《房地产企业销售系统的设计.doc》由会员分享，可在线阅读，更多相关《房地产企业销售系统的设计.doc（51页珍藏版）》请在三一办公上搜索。
1、毕业论文(设计) 题 目: 房地产企业销售系统的设计页眉页脚 院(系): 计算机科学与技术学院 专业年级: 计算机科学与技术2007级（专升本） 姓 名: * 学 号: * 指导教师: *史玉珍 讲师 2009年 3月 26日 原 创 性 声 明本人郑重声明：本人所呈交的毕业论文，是在指导老师的指导下独立进行研究所取得的成果。毕业论文中凡引用他人已经发表或未发表的成果、数据、观点等，均已明确注明出处。除文中已经注明引用的内容外，不包含任何其他个人或集体已经发表或撰写过的科研成果。对本文的研究成果做出重要贡献的个人和集体，均已在文中以明确方式标明。本声明的法律责任由本人承担。论文作者签名： *
2、日 期： 2009年3月26日 关于毕业论文使用授权的声明本人在指导老师指导下所完成的论文及相关的资料（包括图纸、试验记录、原始数据、实物照片、图片、录音带、设计手稿等），知识产权归属*学院。本人完全了解*学院有关保存、使用毕业论文的规定，同意学校保存或向国家有关部门或机构送交论文的纸质版和电子版，允许论文被查阅和借阅；本人授权*学院可以将本毕业论文的全部或部分内容编入有关数据库进行检索，可以采用任何复制手段保存和汇编本毕业论文。如果发表相关成果，一定征得指导教师同意，且第一署名单位为*学院。本人离校后使用毕业论文或与该论文直接相关的学术论文或成果时，第一署名单位仍然为*学院。论文作者签名：
3、* 日 期： 2009年3月26日 指导老师签名： 日 期： 房地产企业销售系统的设计摘 要随着人类社会的进步和科学技术的发展，人们生活水平也在不断提高，房地产已经成为当今社会比较热门的行业。由于房地产销售形式复杂，业务种类繁多，信息的管理就显得由为重要。早期的手工管理方式已经不能适应现代房地产的销售的需求，在这种情况下，房地产销售管理系统应运而生。在房地产信息管理系统的系统设计中，对系统流程从功能流程和数据流程进行了分析，对系统功能模块进行了设计，详细说明了数据库的设计过程，并且设计了基础信息、房屋销售、统计报表、系统设置等功能模块，并对系统的界面进行了设计。房地产信息管理系统选用了VB作为
4、系统开发工具，数据库管理系统采用SQLServer2000。该系统主要开发了楼盘信息、楼房信息、客户信息、员工信息等模块，这些模块实现了信息录入、修改、管理、查询、统计等功能。系统设置模块可以进行用户权限、密码的设定。关键词：信息管理系统,房地产the Information System of Real Estate ManagementAbstractWith the progress of human society and development of science and technology, the standard of peoples life is constantly
5、increasing, the real estate has become more popular in nowadays. Because the form of real estate sale is complex, a wide variety of products, the information system of real estate management becomes important. The early manual management methods has not suited the modern real estate sales demand, in
6、 which case, the information system of real estate management came into being. In this article, we will analyse the functional processes and the data flow. design the functional modules of the system, describe the database design process in detail, and design the foundation information, housing mark
7、eting, statistical statements, the function of the system installed modules,and system interface.The information system of real estate management we chose VB as system development tools, in database management systems using SQL Server 2000. Develop the building information,customer information, empl
8、oyee information modules and so on.The statistical statements have modules for information classification,System modules can install the competence of the user and the passwords.Keywords:information management system, Real estate目 录1 绪论72 概述83 数据库分析93.1 创建数据库93.2 创建表/字段104 界面设计114.1 房地产销售管理信息系统主窗体11
9、4.2 用户管理模块界面设计114.2.1 登录界面114.2.2 添加用户界面124.2.3 修改用户密码界面124.2.4 删除用户界面134.3 楼盘信息模块界面设计134.3.1 添加楼盘信息界面134.3.2 编辑楼盘信息界面144.3.3 查询楼盘信息界面144.4 房型管理信息模块界面设计154.4.1 添加房型信息界面154.4.2 编辑房型信息界面154.4.3 查询房型信息界面164.5 客户管理信息模块界面设计164.5.1 添加客户信息界面164.5.2 编辑客户信息界面174.5.3 查询客户信息界面174.6 销售信息模块界面设计184.6.1 添加销售信息界面18
10、4.6.2 修改销售信息界面184.6.3 查询销售信息界面194.7 员工管理信息模块界面设计194.7.1 添加员工信息界面194.7.2 编辑员工信息界面204.7.3 查询员工信息界面20附 录21参考文献49致 谢501 绪论随着近年来经济的发展，国内的房地产行业开始迅猛发展。房地产业的兴旺带动了相关行业的极大繁荣，如：建材、建筑设计、施工、房地产销售、市场营销、律师等，在这空前的大市场中房地产销售作为一门新兴的行业尤为引人注目，问题也尤其多。由于资料管理无序，有时根本无法及时准确地查阅客户信息；销售工作混乱，没有统一规范化；人员管理无序，人员过多，人才缺乏。上述问题导致房地产销售行
11、业效率低、混乱。在当前行业竞争日趋激烈的市场环境下，必须运用先进的IT信息技术和现代管理思想，提高房地产行业的管理水平、工作效率、服务质量、降低运营成本、提升经济效益，最终提高房地产销售公司的核心竞争力。2 概述 房地产销售管理信息系统的主界面：图 1-1 从该界面可以看到，该房地产销售管理信息系统包括系统用户管理、楼盘管理、房型管理、客户管理、销售管理和员工管理6个部分。 (1)系统管理用于管理使用该系统的用户，以及权限的分配，从而为系统提供一定的安全性。 (2)楼盘管理包括楼盘的一些基本信息，如楼盘编号、地理位置、建筑面积情况，能合理的反映楼盘的情况，并可随时查询楼盘的信息。 (3)房型管
12、理对目前楼盘中所有房型的基本信息进行登记，包括房型名称、建筑面积和销售面积等，从而可以非常高效的查看楼盘中所有的房型资料。 (4)客户管理主要包括客户编号、客户名称、需求面积和需求房型，这样可以及时准确的查阅客户的信息。 (5)销售管理用于对楼盘里所有房屋的销售情况进行管理，包括楼盘名称、客户编号、已付金额等信息。 (6)员工管理对房地产销售公司的所有员工进行统一的管理，包括员工的员工号、姓名、性别等，这对于销售公司的内部管理非常重要。3 数据库分析3.1 创建数据库分析数据库各各表的结构：楼盘基本信息表列名数据类型字段大小是否为空楼盘名称Nvarchar20NOT NULL地理位置Nvarc
13、har50NULL建筑面积Real4NULL占地面积Real4NULL广场面积Real4NULL绿化面积Real4NULL楼房数量Int4NULL开发日期Datetime8NULL备注Nvarchar50NULL房型信息表列名数据类型字段大小是否为空房型名称Nvarchar20NOT NULL建筑面积Real4NULL使用面积Real4NULL阳台面积Real4NULL房层高度Int4NULL销售面积Real4NULL备注Nvarchar50NULL客户信息表列名数据类型字段大小是否为空客户编号Char10NOT NULL客户名称Nvarchar20NULL性别Char1NULL年龄Int4N
14、ULL职业Nvarchar20NULL工作单位Nvarchar20NULL身份证号Char15NULL邮编Char6NULL联系地址Nvarchar50NULL联系电话Nvarchar20NULL需求面积Int4NULL需求楼层Int4NULL需求房型Nvarchar20NULL备注Nvarchar50NULL销售信息表列名数据类型字段大小是否为空序号（自动增长）Int4NOT NULL楼盘名称Int4NULL客户编号Char10NULL房型名称Nvarchar20NULL楼层Int4NULL单元号Int4NULL房间号Int4NULL房屋朝向Nvarchar20NULL销售面积Real4NU
15、LL单价Real4NULL总价Real4NULL已付金额Real4NULL备注Nvarchar50NULL员工信息表列名数据类型字段大小是否为空员工号Char10NOT NULL姓名Nvarchar20NULL性别Char1NULL出生日期Datetime8NULL民族Nvarchar5NULL婚姻状况Char2NULL政治面貌Nvarchar5NULL学历Nvarchar5NULL进入公司时间Datetime8NULL转正时间Datetime8NULL部门Nvarchar10NULL岗位Nvarchar10NULL籍贯Nvarchar20NULL户口所在地Nvarchar20NULL身份证号
16、Char15NULL家庭通信地址Nvarchar20NULL邮编Char6NULL电话Nvarchar15NULL3.2 创建表/字段在SQL Server 2000中创建SQL语句：见附录。4 界面设计4.1 房地产销售管理信息系统主窗体在这个项目中使用了多文档界面，右击“工程资源管理器”窗口，在弹出的菜单中选择“添加”|“添加MDI窗口”命令。在新建立的这个窗体中添加所需的控件，创建好的窗体如下图：图 4-14.2 用户管理模块界面设计4.2.1 登录界面首先，创建一个登录界面，用户需要输入用户名和密码，在系统验证完成并判断正确有效后，系统将跳转到主界面。图 4-2-1在这个界面上放4个L
17、abel（标签）控件。它们分别标识了本系统的名称，两个TextBox的功能和版权声明。两个TextBox（文本框）控件分别用来输入用户名和密码。还有两个按钮用来确定和取消登录。4.2.2 添加用户界面在窗体中放置3个TextBox（文本框），分别用来输入所添加用户的用户名、密码、和确认密码。两个CommandButton（按钮）用来确定是否添加用户。3个Label（标签）用来表示文本框的提示。如下图：图 4-2-24.2.3 修改用户密码界面在窗体中，两个TextBox（文本框）分别用来输入新密码和确认新密码，两个CommandButton（按钮）用来确定是否修改密码。如下图：图 4-2-34
18、.2.4 删除用户界面界面中放置了一个List控件，用于列出所有以添加的用户，两个命令按钮用来确定是否删除用户。如下图：图 4-2-44.3 楼盘信息模块界面设计4.3.1 添加楼盘信息界面这个模块主要是用来输入楼盘的基本信息，如房型、当前房型等。两个按钮用来确定是否添加楼盘信息。多个标签则用来标识众多文本框的功能，以及所需输入的内容。图 4-3-1 4.3.2 编辑楼盘信息界面选择菜单上的“楼盘信息管理”|“修改楼盘信息”命令。这个窗体由3部分组成：楼盘信息部分、导航部分、编辑部分。楼盘信息部分与“添加楼盘信息”部分的界面设计类似。导航部分通过4个按钮来实现对记录的浏览。编辑部分实现修改记录
19、、保存信息、删除信息和关闭退出的功能。图 4-3-2 4.3.3 查询楼盘信息界面“查询楼盘信息界面”模块，可以采取按楼盘编号、按开发日期两种查询方式。界面中需要添加一个DataGrid控件。图 4-3-34.4 房型管理信息模块界面设计 4.4.1 添加房型信息界面“选择添加房型信息”命令即进入对房型信息进行添加操作的界面，界面效果如下图：图 4-4-14.4.2 编辑房型信息界面“编辑房型信息”界面是通过现在“房型信息管理”|“编辑房型信息”命令进入的，如下图：图 4-4-24.4.3 查询房型信息界面选择“房型信息管理”下拉菜单最后一项，就是“查询房型信息”命令，界面如下图：图 4-4-
20、34.5 客户管理信息模块界面设计4.5.1 添加客户信息界面图 4-5-14.5.2 编辑客户信息界面选择“客户信息管理”|“编辑客户信息”命令，进入“编辑客户信息”界面，窗体如下图：图 4-5-24.5.3 查询客户信息界面选择“客户信息管理”下拉菜单最后一项，就是“查询客户信息”命令，界面如下图：图 4-5-34.6 销售信息模块界面设计4.6.1 添加销售信息界面选择“添加销售信息”命令，进入下图界面：图 4-6-14.6.2 修改销售信息界面选择“销售信息管理”下拉菜单的第二项“编辑销售信息”命令，则进入界面如下图：图 4-6-24.6.3 查询销售信息界面选择下拉菜单中最后一项，查
21、询销售信息命令，进入下图界面：图 4-6-34.7 员工管理信息模块界面设计4.7.1 添加员工信息界面选择“添加员工信息”命令，进入下图界面：图 4-7-14.7.2 编辑员工信息界面选择“员工信息管理”下拉菜单的第二项“编辑编辑信息”命令：图 4-7-24.7.3 查询员工信息界面选择下拉菜单中最后一项，查询员工信息命令，进入下图界面：图 4-7-3缺少结论附 录创建楼盘信息表，SQL代码如下：if exists (select * from dbo.sysobjects where id = object_id(Ndbo.楼盘信息) and OBJECTPROPERTY(id, NIsU
22、serTable) = 1)drop table dbo.楼盘信息GOCREATE TABLE dbo.楼盘信息 (楼盘名称 nvarchar (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,地理位置 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,建筑面积 real NULL ,占地面积 real NULL ,广场面积 real NULL ,绿化面积 real NULL ,楼房数量 int NULL ,开发日期 datetime NULL ,备注 nvarchar (50) COLLATE Chinese_PRC_
23、CI_AS NULL ) ON PRIMARYGO创建房型信息表，SQL代码如下：if exists (select * from dbo.sysobjects where id = object_id(Ndbo.房型信息) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.房型信息GOCREATE TABLE dbo.房型信息 (房型名称 nvarchar (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,建筑面积 real NULL ,使用面积 real NULL ,阳台面积 real NULL
24、,房层高度 real NULL ,销售面积 real NULL ,备注 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO创建客户信息表，SQL代码如下：if exists (select * from dbo.sysobjects where id = object_id(Ndbo.客户信息) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.客户信息GOCREATE TABLE dbo.客户信息 (客户编号 char (10) COLLATE Chinese_P
25、RC_CI_AS NOT NULL ,客户名称 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,性别 char (1) COLLATE Chinese_PRC_CI_AS NULL ,年龄 int NULL ,职业 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,工作单位 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,身份证 char (15) COLLATE Chinese_PRC_CI_AS NULL ,邮编 char (6) COLLATE Chinese
26、_PRC_CI_AS NULL ,联系地址 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,联系电话 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,需求面积 int NULL ,需求楼层 int NULL ,需求房型 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,备注 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO创建销售信息表，SQL代码如下：if exists (select * fr
27、om dbo.sysobjects where id = object_id(Ndbo.销售信息) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.销售信息GOCREATE TABLE dbo.销售信息 (序号 int IDENTITY (1, 1) NOT NULL ,楼盘名称 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,客户编号 char (10) COLLATE Chinese_PRC_CI_AS NULL ,房型名称 nvarchar (20) COLLATE Chinese
28、_PRC_CI_AS NULL ,楼层 int NULL ,单元号 int NULL ,房间号 int NULL ,房屋朝向 nvarchar (2) COLLATE Chinese_PRC_CI_AS NULL ,销售面积 real NULL ,单价 real NULL ,总价 real NULL ,已付金额 real NULL ,备注 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO创建员工信息表，SQL代码如下：if exists (select * from dbo.sysobjects where id = obj
29、ect_id(Ndbo.员工信息) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.员工信息GOCREATE TABLE dbo.员工信息 (员工号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,姓名 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,性别 char (10) COLLATE Chinese_PRC_CI_AS NULL ,出生日期 smalldatetime NULL ,民族 nvarchar (5) COLLATE Chin
30、ese_PRC_CI_AS NULL ,婚姻状况 char (2) COLLATE Chinese_PRC_CI_AS NULL ,政治面貌 nvarchar (5) COLLATE Chinese_PRC_CI_AS NULL ,学历 nvarchar (5) COLLATE Chinese_PRC_CI_AS NULL ,进入公司时间 datetime NULL ,转正时间 datetime NULL ,部门 nvarchar (10) COLLATE Chinese_PRC_CI_AS NULL ,岗位 nvarchar (10) COLLATE Chinese_PRC_CI_AS NU
31、LL ,籍贯 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,户口所在地 nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,身份证号 char (15) COLLATE Chinese_PRC_CI_AS NULL ,家庭通讯地址 nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,邮编 char (6) COLLATE Chinese_PRC_CI_AS NULL ,电话 nvarchar (15) COLLATE Chinese_PRC_CI_AS NULL ) O
32、N PRIMARYGO公用模块，代码如下：Public fMainForm As frmMain 程序主窗体Public UserName As String 用户名Public PWD As String 用户密码Public CONN As String 数据库连接字符串Sub Main() CONN = FileDSN=Reality.dsn;UID=sa;PWD= Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 登录失败后退出程序 End End If Unload fLogin Set fMai
33、nForm = New frmMain fMainForm.ShowEnd SubPublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As StringOn Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set
34、 cnn = New ADODB.Connection cnn.Open CONN If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL =
35、rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Else T
36、esttxt = True End IfEnd Function用户登录模块代码：Option ExplicitPrivate Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As Boolean记录确定次数Dim miCount As IntegerPrivate Sub Form_Load() OK = False miCount = 0End SubPrivate Sub cmdCancel
37、_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String 变量定义 txtSQL是用来存放SQL语句，MsgText存放返回信息 UserName = If Trim(txtUserName.Text = ) Then 判断用户名输入是否为空 MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus El
38、se txtSQL = select * from 管理员 where username = & txtUserName.Text & 对所输入的用户名进行查询 Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly +vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then 判断密码输入正确性 OK = True mrc.Clo
39、se Me.Hide UserName = Trim(txtUserName.Text) 记录用户名和密码到全局变量 Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly +vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then 记录密码输入的次数，累计到3此则自动结束程序 Me.Hide End If Exit SubEnd SubPrivate Sub Label2_Click()End
40、 Sub添加用户模块代码设计：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 请输入用户名称！, vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from 管理员 Set mrc = ExecuteSQL(txtSQL, MsgText) While (mrc.EOF = False) If Trim(mrc.Fields(0) = Trim(Text1(0) Then MsgBox 用户已经存在，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus
