精品售楼信息管理系统毕业论文.docx
《精品售楼信息管理系统毕业论文.docx》由会员分享，可在线阅读，更多相关《精品售楼信息管理系统毕业论文.docx（60页珍藏版）》请在冰豆网上搜索。
精品售楼信息管理系统毕业论文
成绩评定表
学生姓名
张恒郡
班级学号
专业
信息与计算科学
课程设计题目
售楼信息管理系统
评
语
组长签字：
成绩
日期
2013年12月日
课程设计任务书
学院
理学院
专业
信息与计算科学
学生姓名
张恒郡
班级学号
课程设计题目
售楼信息管理系统
实践教学要求与任务:
设计为MDI窗体，含有主菜单：
[文件]、[数据管理]、[数据查询]。
[文件]菜单包含以下子菜单及其功能：
[注册新用户]菜单：
打开“注册新用户”窗体
[退出]菜单：
结束程序运行
[数据管理]包含以下子菜单：
[管理楼盘信息]菜单：
显示管理楼盘信息窗体
[管理合同信息]菜单：
显示管理合同信息窗体
[管理收款信息]菜单：
显示管理收款信息窗体
[管理收款合同信息]菜单：
显示管理收款合同信息窗体
[管理售楼合同信息]菜单：
显示管理售楼合同信息窗体
[数据查询]包含以下子菜单：
[查询楼盘信息]：
显示查询楼盘信息窗体
[查询合同信息]：
显示查询合同信息窗体
[查询收款信息]：
显示查询收款信息窗体
[查询收款合同信息]：
显示查询收款合同信息窗体
[查询售楼合同信息]：
显示查询售楼合同信息窗体
工作计划与进度安排:
第一周：
数据库设计，利用SQLServer创建数据库及数据表。
总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。
第二周：
管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。
撰写课程设计报告，验收与答辩。
指导教师：
2013年12月1日
专业负责人：
2013年12月日
学院教学副院长：
2013年12月日
摘要
近几年，中国经济快速、平稳发展，伴随着中国城市化进程加快和住房体制的改革，售楼行业得到了迅猛发展，房地产销售业务量急剧扩大，因此对售楼管理提出了更高的要求。
售楼信息管理系统就是为了实现这一目标而设计的，管理人员通过该系统可以及时了解楼盘的动态销售情况，还能充分利用电脑的可检索性、方便、快速地了解有关销售楼盘的其他各种详细资料，以便及时做出正确决策。
本系统主要实现以下功能：
售楼管理，即管理所有的售楼信息、合同信息、收款信息，并对售楼数据进行添加、删除等操作。
此外，方便的查询功能可以使客户迅速地找到自己所需的售楼信息；系统的核心实现对楼盘销售的数据、合同签订情况、客户付费等情况的管理。
系统以中文版VisualBasic6.0为前台开发工具，用中文版SQL2000作为后台数据库。
关键词：
VisualBasicSQLsever2000售楼信息管理系统
目录
第一章系统功能概述1
1.1系统功能分析1
1.2系统结构图1
第二章数据库设计2
2.1需求分析2
2.2E-R模型2
2.3关系模型4
2.4表结构设计5
第三章系统各功能模块的详细设计10
3.1主窗体模块的详细设计10
3.2用户管理模块的详细设计13
3.3数据查询模块的详细设计17
3.4数据管理模块的详细设计28
总结50
参考文献51
第1章系统功能概述
1.1系统功能分析
该系统具备的功能包括楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。
具体主要实现如下功能：
售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。
售楼信息查询部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。
1.2系统结构图
图1.1售楼管理信息系统总体结构
第2章数据库设计
2.1需求分析
通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。
具体主要实现如下功能：
售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。
（1）楼盘信息：
包括楼盘信息的添加、删除和查询。
楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。
（2）收款信息：
包括收款信息的添加、删除和查询。
收款信息包括收款编号，交款日期，收款金额，交款人和收款人。
（3）合同信息：
包括合同信息的添加、删除和查询。
合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。
（4）售楼合同信息：
包括售楼合同信息的添加、删除和查询。
售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。
（5）收款合同信息：
包括收款合同信息的添加、删除和查询。
收款合同信息包括收款编号，合同编号，交款人和收款人。
2.2E-R模型
（1）局部E-R模型：
图1.2楼盘信息
图1.3合同信息
图1.4收款信息
图1.5售楼合同信息
图1.6收款合同信息
（2）全局E-R模型：
图1.7售楼信息管理系统E-R模型
2.3关系模型
（1）楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）
（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）
（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视费，电费）
（4）售楼合同信息（楼盘编号，合同编号，合同签订日期，身份证号）
（5）收款合同信息（收款编号，合同编号，收款人，交款人）
2.4表结构设计
（1）用户信息表的建立与基本数据
图1.8密码表属性
基本数据如下图：
图1.9密码表基本数据
（2）楼盘信息表的建立与基本数据
图1.10楼盘信息表属性
基本数据如下图：
图1.11楼盘信息表基本数据
（3）合同信息表的建立与基本数据
图1.12合同信息表属性
基本数据如下图：
图1.13合同信息表基本数据
（4）收款信息表的建立与基本数据
图1.14收款信息表属性
基本数据如下图：
图1.15收款信息表基本数据
（5）售楼合同信息表的建立与基本数据
图1.16售楼合同信息表属性
基本数据如下图：
图1.17售楼合同信息表基本数据
（6）收款合同信息表的建立与基本数据
图1.18收款合同信息表属性
基本数据如下图：
图1.19收款合同信息表基本数据
第3章系统各功能模块的详细设计
3.1主窗体模块的详细设计
利用VB工程实现，页面的设计如下图：
1、主窗体页面
图1.20主窗体
2、主窗体模块功能
（1）设计为MDI窗体，含有主菜单：
[文件]、[数据管理]、[数据查询]。
[文件]菜单包含以下子菜单及其功能：
[注册新用户]菜单：
打开“注册新用户”窗体
[退出]菜单：
结束程序运行
[数据管理]包含以下子菜单：
[管理楼盘信息]菜单：
显示管理楼盘信息窗体
[管理合同信息]菜单：
显示管理合同信息窗体
[管理收款信息]菜单：
显示管理收款信息窗体
[管理收款合同信息]菜单：
显示管理收款合同信息窗体
[管理售楼合同信息]菜单：
显示管理售楼合同信息窗体
[数据查询]包含以下子菜单：
[查询楼盘信息]：
显示查询楼盘信息窗体
[查询合同信息]：
显示查询合同信息窗体
[查询收款信息]：
显示查询收款信息窗体
[查询收款合同信息]：
显示查询收款合同信息窗体
[查询售楼合同信息]：
显示查询售楼合同信息窗体
3、主窗体模块详细设计代码
PrivateSub查询合同信息1_Click（）
查询合同信息.Show
EndSub
PrivateSub查询楼盘信息1_Click（）
查询楼盘信息.Show
EndSub
PrivateSub查询收款合同信息1_Click（）
查询收款合同信息.Show
EndSub
PrivateSub查询收款信息1_Click（）
查询收款信息.Show
EndSub
PrivateSub查询售楼合同信息1_Click（）
查询售楼合同信息.Show
EndSub
PrivateSub管理合同信息1_Click（）
管理合同信息.Show
EndSub
PrivateSub管理楼盘信息1_Click（）
管理楼盘信息.Show
EndSub
PrivateSub管理收款合同信息1_Click（）
管理收款合同信息.Show
EndSub
PrivateSub管理收款信息1_Click（）
管理收款信息.Show
EndSub
PrivateSub管理售楼合同信息1_Click（）
管理售楼合同信息.Show
EndSub
PrivateSub退出1_Click（）
UnloadMe
EndSub
PrivateSub注册新用户1_Click（）
注册新用户.Show
EndSub
3.2用户管理模块的详细设计
1、利用VB工程实现，页面的设计如下图：
（1）进入售楼管理系统页面
图1.21进入售楼管理系统
（2）用户登录页面
图1.22用户登录
（3）注册新用户页面
图1.23注册新用户
2、各模块功能
（1）进入售楼管理系统
点击进入按钮，进入主窗体
对象的属性值表：
表1-1
对象名
属性名
属性值
命令按钮
Name
Command1
Caption
进入系统
（2）用户登录
输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统
对象的属性值表：
表1-2
对象名
属性名
属性值
标签框
Name
Label1Label2
Caption
输入用户输入密码
命令按钮
Name
CmdLandCmdCancel
Caption
登录取消
文本框
Name
Text1Text2
（3）注册新用户
对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统
对象的属性值表：
表1-3
对象名
属性名
属性值
标签框
Name
Label1Label2Label3
Caption
用户名输入密码确认密码
命令按钮
Name
Command1Command2
Caption
登录取消
文本框
Name
Text1Text2Text3
3、各模块详细设计代码
（1）进入售楼管理系统代码
PrivateSubCommand1_Click（）
UnloadMe
登录.Show
EndSub
（2）用户登录代码
DimmiCountAsInteger'用于记录输入密码次数
PrivateSubCmdLand_Click（）
DimsqlstrAsString
sqlstr="Select*From密码表Where用户名='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen'若没找到符合Where条件的记录
MsgBox"用户名错误，重新输入",vbExclamation,"警告"
Text1.Text=""
Text1.SetFocus'Text1获得焦点
Else'判断密码是否正确
IfAdodc1.Recordset.Fields（"密码"）=Text2Then
主窗体.Show
UnloadMe
Else
MsgBox"密码错误，重新输入",vbExclamation,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
miCount=miCount+1
IfmiCount=3ThenUnloadMe
EndSub
PrivateSubCmdCancel_Click（）
UnloadMe
EndSub
（3）注册新用户代码
PrivateSubCommand1_Click（）
DimsqlstrAsString
IfText1=""Then
MsgBox"请输入用户名！
",vbExclamation,"确认用户名"
Text1.SetFocus
ExitSub
Else
sqlstr="Select*from密码表where用户名='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已存在，请重新输入！
",vbExclamation,"检验用户名"
Text1=""
Text1.SetFocus
ExitSub
EndIf
EndIf
IfText2<>Text3Then
MsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"
Text2="":
Text3=""
Text2.SetFocus
ExitSub
ElseIfText2=""Then
MsgBox"密码不能为空！
",vbExclamation,"检验密码"
Text2.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"用户名"）=Trim（Text1）
Adodc1.Recordset.Fields（"密码"）=Trim（Text2）
Adodc1.Recordset.Update
Me.Hide
MsgBox"成功注册新用户！
",vbInformation,"添加用户"
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
3.3数据查询模块的详细设计
利用VB工程实现，页面的设计如下图：
1、各查询页面
图1.24查询楼盘信息页面
图1.25查询合同信息页面
图1.26查询收款信息页面
图1.27查询收款合同信息页面
图1.28查询售楼合同信息页面
2、各查询模块功能
combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。
输出框下面的主要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与相连之后可以实现对查询结果的输出。
（1）查询楼盘信息
选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示
图1.29对楼盘信息进行查询
对象的属性值表：
表1—4
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：
楼盘编号，楼号，单元号，楼层，房号，户型，面积
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcxcmdfh
Caption
查询返回
DataGrid1
属性默认
（2）查询合同信息
当查询合同信息时，对’购买人姓名’查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示
图1.30对合同信息进行查询
对象的属性值表：
表1—5
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：
合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcxcmdfh
Caption
查询返回
DataGrid1
属性默认
（3）查询收款信息
图1.31对收款信息进行查询
对象的属性值表：
表1—6
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：
收款编号，交款日期，收款金额，交款人，收款人
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcxcmdfh
Caption
查询返回
DataGrid1
属性默认
（4）查询收款合同信息
图1.32对收款合同信息进行查询
对象的属性值表：
表1—7
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：
合同编号，收款编号，交款人，收款人
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcxcmdfh
Caption
查询返回
DataGrid1
属性默认
（5）查询售楼合同信息
图1.33对售楼合同信息进行查询
对象的属性值表：
表1—8
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：
楼盘编号，合同编号，身份证号，合同签订日期
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcxcmdfh
Caption
查询返回
DataGrid1
属性默认
3、各查询模块详细设计代码
（1）查询楼盘信息代码
PrivateSubcmdcx_Click（）
DimsqlstrAsString
IfCombo1.List（0）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.楼盘编号like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List
（1）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.楼号like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List
（2）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.单元号like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List（3）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.楼层like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List（4）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.房号like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List（5）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.户型like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List（6）=Combo1.TextThen
sqlstr="select*from楼盘信息"
sqlstr=sqlstr&"where楼盘信息.面积like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
EndIf
EndSub
PrivateSubcmdfh_Click（）
主窗体.Show
UnloadMe
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"楼盘编号"
Combo1.AddItem"楼号"
Combo1.AddItem"单元号"
Combo1.AddItem"楼层"
Combo1.AddItem"房号"
Combo1.AddItem"户型"
Combo1.AddItem"面积"
EndSub
（2）查询合同信息代码
PrivateSubcmdcx_Click（）
DimsqlstrAsString
IfCombo1.List（0）=Combo1.TextThen
sqlstr="select*from合同信息"
sqlstr=sqlstr&"where合同信息.合同编号like'"&Trim（Text1.Text）&"%'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
ElseIfCombo1.List
（1）=Combo1.TextThen
sqlstr="select*from合同信息"
sqlstr=sqlstr&"where合同信息.合同签订日期like'"&Trim（Text1.Tex
升级会员 