售楼信息管理系统课设Word格式.docx
《售楼信息管理系统课设Word格式.docx》由会员分享，可在线阅读，更多相关《售楼信息管理系统课设Word格式.docx（66页珍藏版）》请在冰豆网上搜索。
第2章数据库设计
2.1需求分析
通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。
售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。
（1）楼盘信息：
包括楼盘信息的添加、删除和查询。
楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。
（2）收款信息：
包括收款信息的添加、删除和查询。
收款信息包括收款编号，交款日期，收款金额，交款人和收款人。
（3）合同信息：
包括合同信息的添加、删除和查询。
合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。
（4）售楼合同信息：
包括售楼合同信息的添加、删除和查询。
售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。
（5）收款合同信息：
包括收款合同信息的添加、删除和查询。
收款合同信息包括收款编号，合同编号，交款人和收款人。
2.2E-R模型
（1）局部E-R模型：
图1-2楼盘信息
图1-3合同信息
图1-4收款信息
图1-5售楼合同信息
图1-6收款合同信息
（1）全局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
PrivateSub查询收款合同信息1_Click（）
查询收款合同信息.Show
PrivateSub查询收款信息1_Click（）
查询收款信息.Show
PrivateSub查询售楼合同信息1_Click（）
查询售楼合同信息.Show
PrivateSub管理合同信息1_Click（）
管理合同信息.Show
PrivateSub管理楼盘信息1_Click（）
管理楼盘信息.Show
PrivateSub管理收款合同信息1_Click（）
管理收款合同信息.Show
PrivateSub管理收款信息1_Click（）
管理收款信息.Show
PrivateSub管理售楼合同信息1_Click（）
管理售楼合同信息.Show
PrivateSub退出1_Click（）
UnloadMe
PrivateSub注册新用户1_Click（）
注册新用户.Show
3.2用户管理模块的详细设计
1、利用VB工程实现，页面的设计如下图：
（1）进入售楼管理系统页面
图1-21进入售楼管理系统
（2）用户登录页面
图1-22用户登录
（3）注册新用户页面
图1-23注册新用户
2、各模块功能
（1）进入售楼管理系统
点击进入按钮，进入主窗体
对象的属性值表：
对象名
属性名
属性值
命令按钮
Name
Command1
Caption
进入系统
表1-1
（2）用户登录
输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统
标签框
Label1Label2
输入用户输入密码
CmdLandCmdCancel
登录取消
文本框
Text1Text2
表1-2
（3）注册新用户
对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统
Label1Label2Label3
用户名输入密码确认密码
Command1Command2
登录取消
Text1Text2Text3
表1-3
3、各模块详细设计代码
（1）进入售楼管理系统代码
PrivateSubCommand1_Click（）
登录.Show
（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
密码错误，重新输入"
Text2.Text="
Text2.SetFocus
EndIf
EndIf
miCount=miCount+1
IfmiCount=3ThenUnloadMe
PrivateSubCmdCancel_Click（）
（3）注册新用户代码
IfText1="
Then
请输入用户名！
确认用户名"
Text1.SetFocus
ExitSub
Else
sqlstr="
Select*from密码表where用户名='
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
用户名已存在，请重新输入！
检验用户名"
Text1="
IfText2<
>
Text3Then
二次输入的密码不一致，请重新输入"
检验密码"
Text2="
:
Text3="
Text2.SetFocus
ElseIfText2="
密码不能为空！
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"
用户名"
）=Trim（Text1）
）=Trim（Text2）
Adodc1.Recordset.Update
Me.Hide
成功注册新用户！
vbInformation,"
添加用户"
PrivateSubCommand2_Click（）
3.3数据查询模块的详细设计
1、各查询页面
图1-24查询楼盘信息页面
图1-25查询合同信息页面
图1-26查询收款信息页面
图1-27查询收款合同信息页面
图1-28查询售楼合同信息页面
2、各查询模块功能
combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。
输出框下面的
主要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与
相连之后可以实现对查询结果的输出。
（1）查询楼盘信息
选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示
图1-29对楼盘信息进行查询
控件名
属性
设置值
Text1
组合框
Combo1
List
Combo1：
楼盘编号，楼号，单元号，楼层，房号，户型，面积
标签控件
Label1
选择查询对象
cmdcxcmdfh
查询返回
DataGrid1
属性默认
表1—4
（2）查询合同信息
当查询合同信息时，对’购买人姓名’查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示
图1-30对合同信息进行查询
合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行
表1—5
（3）查询收款信息
图1-31对收款信息进行查询
收款编号，交款日期，收款金额，交款人，收款人
表1—6
（4）查询收款合同信息
图1-32对收款合同信息进行查询
合同编号，收款编号，交款人，收款人
表1—7
（5）查询售楼合同信息
图1-33对售楼合同信息进行查询
楼盘编号，合同编号，身份证号，合同签订日期
表1—8
3、各查询模块详细设计代码
（1）查询楼盘信息代码
PrivateSubcmdcx_Click（）
IfCombo1.List（0）=Combo1.TextThen
select*from楼盘信息"
sqlstr=sqlstr&
where楼盘信息.楼盘编号like'
Trim（Text1.Text）&
%'
ElseIfCombo1.List
（1）=Combo1.TextThen
where楼盘信息.楼号like'
ElseIfCombo1.List
（2）=Combo1.TextThen
where楼盘信息.单元号like'
ElseIfCombo1.List（3）=Combo1.TextThen
where楼盘信息.楼层like'
ElseIfCombo1.List（4）=Combo1.TextThen
where楼盘信息.房号like'
ElseIfCombo1.List（5）=Combo1.TextThen
where楼盘信息.户型like'
ElseIfCombo1.List（6）=Combo1.TextThen
where楼盘信息.面积like'
PrivateSubcmdfh_Click（）
主窗体.Show
PrivateSubForm_Load（）
Combo1.AddItem"
楼盘编号"
楼号"
单元号"
楼层"
房号"
户型"
面积"
（2）查询合同信息代码
select*from合同信息"
where合同信息.合同编号like'
where合同信息.合同签订日期like'
where合同信息.购买人姓名like'
where合同信息.身份证号like'
where合同信息.售楼人员姓名like'
where合同信
升级会员 