房地产销售管理信息系统的开发与设计.docx

房地产销售管理信息系统的开发与设计.docx

《房地产销售管理信息系统的开发与设计.docx》由会员分享，可在线阅读，更多相关《房地产销售管理信息系统的开发与设计.docx（67页珍藏版）》请在冰点文库上搜索。

房地产销售管理信息系统的开发与设计

房地产销售管理信息系统的开发与设计

1绪论

从20世纪80年代开始、随着计算机硬件和软件技术的发展，特别是计算机和通信网络技术的日趋融合，信息化给企业带来了巨大的变化，信息技术在企业中的应用不再局限于企业活动的某些环节，而是逐步地渗透到企业活动的各个领域、各个环节，极大地改变了企业的生产、流通和组织管理方式，推动了企业物资流、资金流和信息流的相互融合。

凭借IT信息技术和现代管理思想，在这样一个多元化的信息社会里建立房地产销售平台是大势所趋。

房地产管理是一项复杂的工作，它应该非常及时地了解楼盘目前的基本信息，而且能方便的添加、编辑和查询楼盘的资料。

同时，房地产的销售要和大量的客户接触，所以这个销售系统要能够记录相应客户的信息和需求等等。

1.1开发环境的简介

在对房地产销售管理信息系统的设计中，本文采用了visualbasic6.0作为开发工具，sqlserver2000作为数据库管理工具。

VisualBasic6.0是用来创建高性能的企业应用程序及基于Web的应用程序的最有效工具。

VisualBasic6.0使开发者得以创建驻留在客户或服务器上或运行在分布式n-层环境里的强壮应用程序。

是快速创建以数据为中心的企业解决方案的完全套件。

而SQLServer2000则是目前最优秀的数据库管理系统之一，以其易用性得到很多用户的青睐。

它包括支持开发的引擎、标准的SQL语言、扩展的特性（如复制、OLAP、分析）等功能。

1.2VisualBasic6.0简介

VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。

它简单易学、效率高，且功能强大可以与Windowsr专业开发工具SDK相媲美。

在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（SPI）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

随着版本的提高，VisualBasic的功能也越来越强。

5.0版以后，VisualBasic推出了中文版，与前个版本相比，其功能有了很大提升。

VisualBasic6.0是1998年的产品,后来又有几次的升级,现在用的大多数是SP4.

1.3SQLServer2000简介

SQLServer2000是Microsoft公司推出的SQLServer数据库管理系统，该版本继承了SQLServer7.0版本的优点同时又比它增加了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点。

SQLServer2000中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用SQLServer的过程。

SQLServer2000还支持基于标准的、与WindowsDNA集成的程序设计模型，使SQLServer数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。

这些功能使您得以快速交付SQLServer应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。

数据仓库。

SQLServer2000中包括析取和分析汇总数据以进行联机分析处理（OLAP）的工具。

SQLServer中还包括一些工具，可用来直观地设计数据库并通过EnglishQuery来分析数据

1.2前台和后台数据库的连接

本论文前台和后台的数据库连接是采用ADO控件来实现的，ADO控件直接支持SQL结构化查询语言，使用它可以用最少的代码创建数据库应用程序。

而ADO控件操作简易，使用方便。

ADO数据控件常见的属性有ConnectionString属性、CommadandType属性、CursorLocation属性、LockType属性、RecordSource属性。

实例化ADO数据控件时，需要对这些属性进行赋值，代码如下

‘实例化ADO控件：

ADO1

ADO1.ConnectionString=ConnectionString‘设置ADO控件的连接字符串

ADO1.CommandTye=adCmdText‘定义CommandType；类型

ADO1.CursorLocation=adUseClient‘定义CursorLocation位置

ADO1.LockType=adLockPessimistic‘定义LockType类型

ADO1.RecordSoure=“select*from楼房信息表‘定义数据源，结构SQL语句

ADO1.Refresh‘刷新

2系统的分析

2.1理解分析

在房地产开发过程中，楼盘销售是非常重要的环节，也是房地产开发的关键环节，如何提供楼盘销售服务之恋，也是显的非常迫切的，而且通关管理系统，可以来规范和管理销售过程的各个环节，并提供相关信息。

这样，可以极大的提高服务质量和效率。

2.2需求分析

楼盘销售管理主要负责管理房屋信息，并对房屋进行定价，然后进行销售，为用户提供不同信息统计分析，满足管理人员需求。

该系统主要包括房屋信息管理和销售信息管理两大部分。

●房屋信息管理：

主要负责管理房屋的基本信息，包括楼房信息和房间信息

●销售信息管理：

主要负责客户信息、房屋定价、房屋销售以及统计分析

楼盘销售管理系统是为了满足用户进行楼盘销售而开发的。

所以，楼旁销售管理系统应达到以下目标：

●减少人工的参与和基础信息的录入，具有良好的自治功能和信息循环

●能够方便地广利客户资料

●能够根据市场变化对房屋进行定价

●能够管理所有的房屋信息，包括房信息和房间信息

●能够快速的进行房屋信息的查询

3系统功能模块设计

根据对楼盘销售管理系统的需求分析，一个标准的楼销售管理系统应该包括房屋信息管理和销售信息管理功能，如图3.1所示。

每一个功能模块都包含了一系列的子功能。

图3.1

3.1房屋信息管理

房屋信息管理模块用来管理楼房信息和房间信息，它包括楼房管理、房间管理和信息查询3个子功能，如图下

楼房管理功能实现对楼房信息的维护这类信息主要包括楼房号、楼名、所处位置、占地面积、总投资、层数、房间数、简介等。

该模块提供对信息的增加、修改和删除功能。

房间管理功能实现对房间信息的维护。

这类信息主要包括房间号、楼房号、位置、房间大小、适用户型、销售状态、简介、成本价、销售价、折扣率等。

该模块提供增加、修改删除功能。

信息查询系统功能实现对楼房信息和房间信息的查询。

该模块提供模式匹配和多条件查询。

3.2销售信息管理

销售信息管理模块主要用来管理楼盘销售情况，包括客户信息、房屋定价、房屋销售、统计分析4个子功能，如下图

图3.3

1客户信息

客户信息功能主要实现客户基本信息维护。

这类信息主要包括编号、姓名、性别、出生日期、婚否、家庭成员数、职位、身份证号、经济收入、备注。

2.房屋定价

房屋定价功能主要实现对房间的统一定价，涉及的信息包括成本价、销售价格、折扣率。

成本价是指房屋的成本价格：

销售价格是指房屋待销售的价格；折扣率是指楼旁销售时的折扣率。

3.房屋销售

房屋销售功能实现对房屋销售信息的记录。

记录的信息包括销售ID、房间号、楼房号、客户编号、成本价、销售价、折扣率、利润、付款方式、交易日期、备注等。

销售ID为标示种子，自增为1；销售价是指打折后的销售价格；利润=销售价-成本价。

4.统计分析

统计分析功能主要实现对楼旁销售信息的统计分析。

它通过多条件进行分析，分析条件主要有楼房号、利润、付款方式。

4数据库设计

根据系统需求，需要建立四张表，即楼房信息表格、房间信息表、客户信息表、销售记录表。

4.1.1楼房信息表

楼房信息表负责楼房信息，主要包括楼房号、楼名、所处位置、占地面积、总投资、层数、房间数、简介等，表结构如下:

4.1.2房间信息表

房间信息表负责维护房间信息，主要包括房间号、楼房号、位置、房间大小、适用户型、销售状态、简介、成本价、折扣率等，表结构如下

4.1.3客户信息表

客户信息表格主要用语维护客户的基本信息，主要包括看了客户编号、姓名、性别、出生日期、婚否、家庭成员数、职位、身份证号、经济收入、备注等，表结构如下

4.1.4销售记录表

销售记录表用于对房间进行销售，记录销售记录，主要包括销售ID、房间号、楼房号、客户编号、成本价、销售价、折扣率、利润、付款方式、交易日期、备注等，表结构如下：

4.2E-R图

4.3在SQLsever2000中实现表创建的SQL语句

楼盘销售管理系统需要适用ListView控件和TreeView控件，以及如何结构SQL多条件查询语语句。

4.3.1适用ListView控件显示数据

ListView控件是一个Windows公共控件。

作为一个增强功能的列表框，显示更多的信息。

ListView控件可以适用4种不同试图显示项目，通过这些控件，可将项目组成有或没有列标头的列，并显示伴随的图标和文本，这样可以直观而方便地浏览各个对象的数据。

ListView控件并不是默认的工具箱的配置项目，必须手工添加引用不捡，此外就是通过代码来控制ListView控件与数据的关联了，其代码如下所示：

PrivateSubLoadData（）。

'装载数据

DimlistAsListItem

DimkeyAsString

Setrs=Nothing

SQLStr="SELECT*FROM楼房信息表ORDERBYbuildingID"

Setrs=SelectSQL（SQLStr,msg）'查询楼房信息

ListView1.ListItems.Clear'清空ListView控件

Ifrs.RecordCount=0Then'如果不存在楼房信息，添加按钮可用，其他按钮不可用

CmdAdd.Enabled=True:

CmdModify.Enabled=False:

CmdDelete.Enabled=False

CmdCancel.Enabled=False:

CmdSave.Enabled=False

Else'如果存在楼房信息，初始化ListView控件

rs.MoveFirst

DoUntilrs.EOF

key=rs.Fields（"buildingID"）&rs.Fields（"bdname"）

Setlist=ListView1.ListItems.Add（,,key,1）

rs.MoveNext

Loop

'编辑控件可用性

CmdAdd.Enabled=True:

CmdModify.Enabled=True:

CmdDelete.Enabled=True

CmdCancel.Enabled=False:

CmdSave.Enabled=False

rs.MoveFirst'返回到第一条记录

EndIf

'设置控件Enable值

CallCtrEnable（False）

EndSub

PrivateSubCtrEnable（flagAsBoolean）

'设置控件的Enable值

txtBuildingId.Enabled=flag

txtName.Enabled=flag

txtArea.Enabled=flag

txtInvest.Enabled=flag

txtFloors.Enabled=flag

txtRooms.Enabled=flag

txtPosition.Enabled=flag

txtNotes.Enabled=flag

EndSub

PrivateSubShowData（）

'在控件中显示数据

Ifrs.RecordCount<>0Then'如果存在记录

'为控件赋值

txtBuildingId.Text=rs.Fields（"buildingID"）

txtName.Text=rs.Fields（"bdname"）

txtArea.Text=rs.Fields（"area"）

txtInvest.Text=rs.Fields（"investment"）

txtFloors.Text=rs.Fields（"layers"）

txtRooms.Text=rs.Fields（"roomN"）

txtPosition.Text=rs.Fields（"bdposition"）

txtNotes.Text=rs.Fields（"bdintroduction"）

EndIf

EndSub

PrivateSubListView1_Click（）

'在控件中显示楼房信息

DimkeyAsString

Ifrs.RecordCount>0Then

key=Trim（ListView1.SelectedItem）

SQLStr="SELECT*FROM楼房信息表WHEREbuildingID='"&Left（key,4）&"'"

Setrs=SelectSQL（SQLStr,msg）

CallShowData'重新显示数据

EndIf

EndSub

PrivateSubCmdAdd_Click（）

'添加操作

CallCtrClear'所有控件重置

CallCtrEnable（True）'设置控件Enable值为可用

flag="Add"'设置标志flag，表示所进行的操作为添加

'添加、修改、删除按钮不可用，取消、保存按钮可用

CmdAdd.Enabled=False:

CmdModify.Enabled=False:

CmdDelete.Enabled=False

CmdCancel.Enabled=True:

CmdSave.Enabled=True

EndSub

用户单击ListView的ListItem来触发ListView的Click事件，并通过查询语句查询所单击的ListItem对应的楼房数据，最后用Text文本显示出来。

这样，ListView很好的发挥了图形功能，让界面更有人性化

4.3.2适用TreeView控件显示结构

TreeView控件为用户提供了一种按层次结构显示信息的方式，它包含了称作节点（node）的条目列表，每一节点都可以有自己的节点，从而提供一种更深层次的数据定义，每个节点都可以被折叠起来，从而允许访问者在一个Treeviewk控件中查找，只查看所感兴趣的那一级的数据，如某一楼房的各个房间数据,Node对象是TreeView控件中的一线，它包含图像和文本，Nodes集合包含一个或多个Node对象，语法如下：

Treeview.Nodes,treeview.Nodes.Item（index）。

4.3.3SQL多条查询语句结构

在统计分析模块中，需要通过多条件进行分析。

分析条件主要有楼房号、利润以及付款方式。

实现该功能，只需把各个查询语句连接起来，构造SQL语句，其代码如下：

PrivateSubCmdQuery_Click（）

'分析销售信息,构造SQL语句

SQLStr="select*from销售记录表where1=1"

IfChkBuildingId.Value=1Then'如果通过楼房号来进行分析

IfTrim（CobBuildingId.Text）<>"所有"Then

SQLStr=SQLStr&"andbuildingID='"&Left（Trim（CobBuildingId.Text）,4）&"'"

EndIf

EndIf

IfChkMethod.Value=1Then'如果通过付款方式来进行分析

SQLStr=SQLStr&"andpayment='"&Trim（CobMethod.Text）&"'"

EndIf

IfChkProfit.Value=1Then'如果通过利润来进行分析

SQLStr=SQLStr&"andprofitbetween"&txtRoomArea1&"and"&txtRoomArea2

EndIf

Setrs=SelectSQL（SQLStr,msg）

SetDataGrid1.DataSource=rs

DataGrid1.Refresh

EndSub

5系统主界面

系统主界面主要用于构建系统的主窗体，并编写一些公共模块，方便其他子窗体构建和调用。

5.1系统主窗体

系统主窗体主要由窗体本身和菜单构成。

首先建立一个工程，然后创建系统主窗体，主窗体的菜单，并在主窗体中添加窗体代码，来处理接各个子窗体的关系。

楼盘销售管理系统的主界面如下：

主窗体属性设置如下：

在主窗体中调用、切换不同界面，进行相应功能的实现，其代码如下：

PrivateSubbuilding_Click（）

frmbuilding.Show'打开楼房管理界面

EndSub

PrivateSubcustom_Click（）

frmcustomer.Show'打开客户信息界面

EndSub

PrivateSubinfo_Click（）

frminfo.Show'打开信息查询界面

EndSub

PrivateSubmnuEnd_Click（）

UnloadMe'结束

EndSub

PrivateSubprice_Click（）

frmprice.Show'打开房屋定价界面

EndSub

PrivateSubroom_Click（）

frmroom.Show'打开房间管理界面

EndSub

PrivateSubsale_Click（）

frmsale.Show'打开楼盘销售界面

EndSub

PrivateSubstatistics_Click（）

frmstatistics.Show'打开统计分析界面

EndSub

5.2公共模块

在VisualBasic中可以使用公共模块来存放整个项目所需要的公用函数和全局变量，来提高代码的利用率，在项目资源管理器重为项目添加一个Module，保存为OperateData.bas。

OpweateData公共模块主要是用来对数据库操作的，主要包括以下4个函数。

●Connstr（）AsString函数，返回连接字符串，用来设置数据库连接字符串。

●OpenConn（ByRefConnAsADODB.Connection）AsBoolean函数，返回布尔值，用来打开数据库连接。

●ExecuteSQL（ByValSQLStrAsString,ByRefmsgAsString）函数，返回布尔值，用来执行SQL语句。

●SelectSQL（ByValSQLStrAsString,ByRefmsgAsString）AsADOB.Recordset函数，返回Recordset,用来执行查询语句。

公共模块的代码如下所示.

PublicFunctionConnStr（）AsString

'设置数据库连接字符串

ConnStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;"&_

"PersistSecurityInfo=False;InitialCatalog=楼盘销售系统"

EndFunction

PublicFunctionOpenConn（ByRefConnAsADODB.Connection）AsBoolean

'打开数据库连接，连接成功返回true，出错时返回false

SetConn=NewADODB.Connection

'出错处理

OnErrorGoToErrorHandle'出错处理

Conn.OpenConnStr'打开数据库连接

OpenConn=True

ExitFunction

ErrorHandle:

'如果出错，进行错误处理

MsgBox"连接数据库失败！

请重新连接！

"

OpenConn=False

ExitFunction

EndFunction

PublicSubExecuteSQL（ByValSQLStrAsString,ByRefmsgAsString）

'执行SQL语句

DimConnAsADODB.Connection

DimsTokens（）AsString

'出错处理

OnErrorGoToErrorHandle

'判断SQL语句

sTokens=Split（SQL）'调用Split函数拆分SQL语句

IfInStr（"INSERT,DELETE,UPDATE",UCase（（sTokens（0））））Then

'打开数据库连接

IfOpenConn（Conn）Then'如果打开连接成功，执行SQL语句

Conn.ExecuteSQLStr

msg=sTokens（0）&"操作执行成功！

"

EndIf

Else

msg="SQL语句有误：

"&SQLStr

EndIf

Finally_Exit:

'程序结束的时候进行对象销毁工作

Setrst=Nothing

SetConn=Nothing

ExitSub

ErrorHandle:

msg="执行错误:

"&Err.Description

ResumeFinally_Exit

EndSub

PublicFunctionSelectSQL（ByValSQLStr_

AsString,ByRefmsgAsString）AsADODB.Recordset

'执行SQL语句，返回ADODB.Recordset

DimConnAsADODB.Connection

DimrstAsADODB.Recordset

DimsTokens（）AsString

'出错处理

OnErrorGoToErrorHandle

'判断SQL语句

sTokens=Split（SQLStr）

IfInStr（"SELECT",UCase（（sTokens（0））））Then

'打开数据库连接

IfOpenConn（Conn）Then'如果打开连接成功，就进行查询操作

Setrst=