售楼信息管理系统课程设计57644038

《售楼信息管理系统课程设计57644038》由会员分享，可在线阅读，更多相关《售楼信息管理系统课程设计57644038（74页珍藏版）》请在装配图网上搜索。

1、成 绩 评 定 表学生姓名班级学号专 业课程设计题目售楼信息管理系统评语组长签字：成绩日期 年12月 日课程设计任务书学 院专 业学生姓名班级学号课程设计题目售楼信息管理系统实践教学规定与任务:设计为MDI窗体，具有主菜单：文献、数据管理、数据查询。文献菜单涉及如下子菜单及其功能：注册新顾客菜单：打开“注册新顾客”窗体退出菜单：结束程序运营数据管理 涉及如下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询涉及如下子菜单：

2、查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体工作筹划与进度安排:第一周：数据库设计，运用SQL Server创立数据库及数据表。 总体构造设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试多种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与答辩。指引教师： 12月1 日专业负责人： 12月 日学院教学副院长： 年12月 日摘 要近几年，中国经济迅速、平稳发展，随着着中国都市化进程加快和住房体制的改革，售楼行业得到了迅猛

3、发展，房地产销售业务量急剧扩大，因此对售楼管理提出了更高的规定。售楼信息管理系统就是为了实现这一目的而设计的，管理人员通过该系统可以及时理解楼盘的动态销售状况，还能充足运用电脑的可检索性、以便、迅速地理解有关销售楼盘的其她多种具体资料，以便及时做出对的决策。 本系统重要实现如下功能：售楼管理，即管理所有的售楼信息、合同信息、收款信息，并对售楼数据进行添加、删除等操作。此外，以便的查询功能可以使客户迅速地找到自己所需的售楼信息；系统的核心实现对楼盘销售的数据、合同签订状况、客户付费等状况的管理。 系统以中文版Visual Basic 6.0为前台开发工具，用中文版SQL 作为后台数据库。核心词：

4、Visual Basic SQL sever 售楼信息管理系统目 录第一章 系统功能概述11.1 系统功能分析11.2 系统构造图1第二章 数据库设计22.1 需求分析22.2 E-R模型22.3 关系模型42.4 表构造设计5第三章 系统各功能模块的具体设计103.1 主窗体模块的具体设计103.2 顾客管理模块的具体设计133.3 数据查询模块的具体设计173.4 数据管理模块的具体设计28总结50参照文献51第1章 系统功能概述1.1 系统功能分析该系统具有的功能涉及楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。具体重要实现如下功能：售楼信息管理部分涉及楼盘信息管理

5、、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。售楼信息查询部分涉及楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。1.2 系统构造图图1.1售楼管理信息系统总体构造售楼信息管理售楼楼盘信息售楼合同信息售楼收款信息楼盘编号楼号单元号楼层房号户型面积合同编号合同签订日期购买人姓名身份证号售楼人员姓名合同单价付款方式贷款银行收款编号交款日

6、期收款金额交款人收款人第2章 数据库设计2.1 需求分析通过对顾客需求的分析，拟定系统应具有的功能涉及楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。具体重要实现如下功能：售楼信息管理部分涉及楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。（1）楼盘信息：涉及楼盘信息的添加、删除和查询。楼盘信息涉及楼盘编号，楼号，单元号，楼层，房号，户型和面积。（2）收款信息：涉及收款信息的添加、删除和查询。收款信息涉及收款编号，交款日期，收款金额，交款

7、人和收款人。（3）合同信息：涉及合同信息的添加、删除和查询。合同信息涉及合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。（4）售楼合同信息：涉及售楼合同信息的添加、删除和查询。售楼合同信息涉及合同编号，楼盘编号，合同签订日期和身份证号。（5）收款合同信息：涉及收款合同信息的添加、删除和查询。收款合同信息涉及收款编号，合同编号，交款人和收款人。2.2 E-R模型(1) 局部E-R模型：图1.2楼盘信息楼盘信息楼盘编号楼号单元号楼层房号户型面积图1.3合同信息合同信息合同编号合同签订日期身份证号售楼人员姓名购买人姓名合同单价付款方式贷款银行图1.4收款信息

8、收款信息收款编号交款日期收款金额交款人收款人图1.5售楼合同信息售楼合同信息楼盘编号合同编号身份证号合同签订日期图1.6收款合同信息收款合同信息收款编号合同编号交款人收款人(2) 全局E-R模型：图1.7售楼信息管理系统E-R模型楼盘信息购买合同信息支付收款信息 m n n m楼盘编号身份证号合同编号合同编号交款人收款编号合同签订日期收款人2.3 关系模型（1） 楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视

9、费，电费）（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售楼合同信息

10、表属性基本数据如下图： 图1.17售楼合同信息表基本数据（6）收款合同信息表的建立与基本数据图1.18收款合同信息表属性基本数据如下图：图1.19收款合同信息表基本数据第3章 系统各功能模块的具体设计3.1 主窗体模块的具体设计运用VB工程实现，页面的设计如下图：1、主窗体页面图1.20主窗体2、主窗体模块功能（1）设计为MDI窗体，具有主菜单：文献、数据管理、数据查询。文献菜单涉及如下子菜单及其功能：注册新顾客菜单：打开“注册新顾客”窗体退出菜单：结束程序运营数据管理 涉及如下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信

11、息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询涉及如下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体3、主窗体模块具体设计代码Private Sub 查询合同信息1_Click()查询合同信息.ShowEnd SubPrivate Sub 查询楼盘信息1_Click()查询楼盘信息.ShowEnd SubPrivate Sub 查询收款合同信息1_Click()查询收款合同信息.Show

12、End SubPrivate Sub 查询收款信息1_Click()查询收款信息.ShowEnd SubPrivate Sub 查询售楼合同信息1_Click()查询售楼合同信息.ShowEnd SubPrivate Sub 管理合同信息1_Click()管理合同信息.ShowEnd SubPrivate Sub 管理楼盘信息1_Click()管理楼盘信息.ShowEnd SubPrivate Sub 管理收款合同信息1_Click()管理收款合同信息.ShowEnd SubPrivate Sub 管理收款信息1_Click()管理收款信息.ShowEnd SubPrivate Sub 管理售

13、楼合同信息1_Click()管理售楼合同信息.ShowEnd SubPrivate Sub 退出1_Click()Unload MeEnd SubPrivate Sub 注册新顾客1_Click()注册新顾客.ShowEnd Sub3.2 顾客管理模块的具体设计1、运用VB工程实现，页面的设计如下图：（1）进入售楼管理系统页面图1.21进入售楼管理系统（2）顾客登录页面图1.22顾客登录（3）注册新顾客页面图1.23注册新顾客2、各模块功能（1）进入售楼管理系统 点击进入按钮，进入主窗体对象的属性值表：表1-1对象名属性名属性值命令按钮NameCommand1Caption进入系统（2） 顾客

14、登录 输入顾客与密码，若输入对的，则可以对售楼信息进行管理与查询，否则退出系统对象的属性值表：表1-2对象名属性名属性值标签框NameLabel1 Label2 Caption输入顾客 输入密码 命令按钮NameCmdLand CmdCancelCaption登录 取消文本框NameText1 Text2（3） 注册新顾客 对新顾客进行注册，输入顾客名与密码，点击登录按钮，顾客注册成功，否则退出系统对象的属性值表：表1-3对象名属性名属性值标签框NameLabel1 Label2 Label3Caption顾客名 输入密码 确认密码命令按钮NameCommand1 Command2Captio

15、n登录 取消文本框NameText1 Text2 Text33、各模块具体设计代码（1）进入售楼管理系统代码Private Sub Command1_Click()Unload Me登录.ShowEnd Sub（2）顾客登录代码Dim miCount As Integer 用于记录输入密码次数Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr = Select * From 密码表 Where 顾客名= & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Record

16、set.BOF Then 若没找到符合Where条件的记录 MsgBox 顾客名错误，重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocus Text1获得焦点Else 判断密码与否对的 If Adodc1.Recordset.Fields(密码) = Text2 Then 主窗体.Show Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Th

17、en Unload MeEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub（3）注册新顾客代码Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 请输入顾客名！, vbExclamation, 确认顾客名 Text1.SetFocus Exit SubElse sqlstr = Select * from 密码表 where 顾客名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.RefreshIf Ado

18、dc1.Recordset.EOF = False Then MsgBox 顾客名已存在，请重新输入！, vbExclamation, 检查顾客名 Text1 = Text1.SetFocus Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检查密码 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检查密码 Text2.SetFocusElse A

19、dodc1.Recordset.AddNew Adodc1.Recordset.Fields(顾客名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注册新顾客！, vbInformation, 添加顾客End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.3 数据查询模块的具体设计运用VB工程实现，页面的设计如下图：1、各查询页面图1.24查询楼盘信息页面图1.25查询合同信息页面图

20、1.26查询收款信息页面图1.27查询收款合同信息页面图1.28查询售楼合同信息页面2、 各查询模块功能combo1重要是实现查询条件的多样化，即可以实现运用不同的条件进行查询，text1则重要是接受查询信息，用来匹对有关信息，如果相符则输出相符的元组。输出框下面的重要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口重要实现查询功能，输出框与相连之后可以实现对查询成果的输出。（1） 查询楼盘信息 选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示图1.29对楼盘信息进行查询对象的属性值表：表14控件名属性设立值文本框NameText1组合框NameCombo1Lis

21、tCombo1：楼盘编号，楼号，单元号，楼层，房号，户型，面积 标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（2） 查询合同信息当查询合同信息时，对购买人姓名查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示图1.30对合同信息进行查询对象的属性值表：表15控件名属性设立值文本框NameText1组合框NameCombo1ListCombo1：合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行 标签控件NameLabel1C

22、aption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（3） 查询收款信息图1.31对收款信息进行查询对象的属性值表：表16控件名属性设立值文本框NameText1组合框NameCombo1ListCombo1：收款编号，交款日期，收款金额，交款人，收款人标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（4） 查询收款合同信息图1.32对收款合同信息进行查询对象的属性值表：表17控件名属性设立值文本框NameText1组合框NameCombo1

23、ListCombo1：合同编号，收款编号，交款人，收款人 标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（5） 查询售楼合同信息图1.33对售楼合同信息进行查询对象的属性值表：表18控件名属性设立值文本框NameText1组合框NameCombo1ListCombo1：楼盘编号，合同编号，身份证号，合同签订日期标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认3、各查询模块具体设计代码（1）查询楼盘信息代码P

24、rivate Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.楼盘编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr

25、 & where 楼盘信息.楼号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.单元号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text T

26、hen sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.楼层 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.房号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1

27、.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.户型 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr & where 楼盘信息.面积 like & Trim(Text1

28、.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo1.AddItem 楼盘编号 Combo1.AddItem 楼号 Combo1.AddItem 单元号 Combo1.AddItem 楼层 Combo1.AddItem 房号 Combo1.AddItem 户型 Combo1.AddItem 面积End Sub（2）查询合同信息代码Private Sub c

29、mdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.合同编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信

30、息.合同签订日期 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.购买人姓名 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sq

31、lstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.身份证号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.售楼人员姓名 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1

32、.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.合同单价 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.付款方式 like & Trim(T

33、ext1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.RefreshElseIf Combo1.List(7) = Combo1.Text Then sqlstr = select * from 合同信息 sqlstr = sqlstr & where 合同信息.贷款银行 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPriva

34、te Sub Form_Load()Combo1.AddItem 合同编号 Combo1.AddItem 合同签定日期 Combo1.AddItem 购买人姓名 Combo1.AddItem 身份证号 Combo1.AddItem 售楼人员姓名 Combo1.AddItem 合同单价 Combo1.AddItem 付款方式 Combo1.AddItem 贷款银行End Sub（3）查询收款信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo2.List(0) = Combo2.Text Then sqlstr = select *

35、 from 收款信息 sqlstr = sqlstr & where 收款信息.收款编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(1) = Combo2.Text Then sqlstr = select * from 收款信息 sqlstr = sqlstr & where 收款信息.交款日期 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf C

36、ombo2.List(2) = Combo2.Text Then sqlstr = select * from 收款信息 sqlstr = sqlstr & where 收款信息.收款金额 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(3) = Combo2.Text Then sqlstr = select * from 收款信息 sqlstr = sqlstr & where 收款信息.交款人 like & Trim(Text1.Text) & % Ado

37、dc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(4) = Combo2.Text Then sqlstr = select * from 收款信息 sqlstr = sqlstr & where 收款信息.收款人 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load()

38、 Combo2.AddItem 收款编号 Combo2.AddItem 交款日期 Combo2.AddItem 收款金额 Combo2.AddItem 交款人 Combo2.AddItem 收款人End Sub（4）查询收款合同信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr & where 收款合同信息.合同编号 like & Trim(Text1.Text) & % Adodc

39、1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr & where 收款合同信息.收款编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = select * from 收款合同信息 sqlstr = sq

40、lstr & where 收款合同信息.交款人 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr & where 收款合同信息.收款人 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub c

41、mdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 合同编号 Combo1.AddItem 收款编号 Combo1.AddItem 交款人 Combo1.AddItem 收款人End Sub（5）查询售楼合同信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = select * from 售楼合同信息 sqlstr = sqlstr & where 售楼合同信息.

42、楼盘编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = select * from 售楼合同信息 sqlstr = sqlstr & where 售楼合同信息.合同编号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sql

43、str = select * from 售楼合同信息 sqlstr = sqlstr & where 售楼合同信息.身份证号 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = select * from 售楼合同信息 sqlstr = sqlstr & where 售楼合同信息.合同签订日期 like & Trim(Text1.Text) & % Adodc1.RecordSource = sqlstr

44、 Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo1.AddItem 楼盘编号 Combo1.AddItem 合同编号 Combo1.AddItem 身份证号 Combo1.AddItem 合同签订日期End Sub3.4 数据管理模块的具体设计运用VB工程实现，页面的设计如下图：1、 各管理页面（1）管理楼盘信息页面图1.34管理楼盘信息页面点击表格显示进入所有楼盘信息页面图1.35显示所有楼盘信息表（2）管理合同信息页面图1.3

45、6管理合同信息页面点击表格显示进入所有合同信息页面图1.37显示所有合同信息表（3）管理收款信息页面图1.38管理收款信息页面点击表格显示进入所有收款信息页面图1.39显示所有收款信息表（4）管理收款合同信息页面图1.40管理收款合同信息页面点击表格显示进入所有收款合同信息页面图1.41显示所有收款合同信息表（5）管理售楼合同信息页面图1.42管理收款合同信息页面点击表格显示进入所有售楼合同信息页面图1.43显示所有售楼合同信息表2、 各管理模块功能该窗体以文本框显示目前记录，用按钮首记录、末记录、前一种、后一种，控制记录指针的移动；用一种标签Label显示：目前记录号/记录总数；单击表格显示

46、按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。Command是对数据的查看以及管理，根据按钮的显示可以对数据进行添加、删除等操作，旁边的重要是与数据源相连，以实现对数据源中的数据进行管理，管理窗口重要实现数据的管理功能，输出框与相连之后可以实现对数据管理的输出。（1）管理合同信息：当显示管理信息页面时，点击按钮可以查询每条信息记录，并对其进行新增与删除，如下图所示图1.44新增一条合同记录页面对象属性值表：表19控件名属性设立值标签控件NameLabel1- Label1

47、9Caption合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行，记录：文本框DataSourceAdodc1DataField合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行，记录：Text空，其她默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一种，后一种，末记录，表格显示 （2）管理楼盘信息：对象属性值表：表110控件名属性设立值标签控件Nam

48、eLabel1- Label19Caption楼盘编号，楼号，单元号，楼层，房号，户型，面积，记录：文本框DataSourceAdodc1DataField楼盘编号，楼号，单元号，楼层，房号，户型，面积，记录：Text空，其她默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一种，后一种，末记录，表格显示 （3）管理收款信息：对象属性值表：表111控件名属性设立值标签控件NameLabel1- Label19Caption收款编号

49、，交款日期，收款金额，交款人，收款人，记录：文本框DataSourceAdodc1DataField收款编号，交款日期，收款金额，交款人，收款人，记录：Text空，其她默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一种，后一种，末记录，表格显示 （4）管理收款合同信息：对象属性值表：表112控件名属性设立值标签控件NameLabel1- Label19Caption合同编号，收款编号，交款人，收款人，记录：文本框DataSou

50、rceAdodc1DataField合同编号，收款编号，交款人，收款人，记录：Text空，其她默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一种，后一种，末记录，表格显示 （5）管理售楼合同信息：对象属性值表：表113控件名属性设立值标签控件NameLabel1- Label19Caption楼盘编号，合同编号，身份证号，合同签订日期，记录：文本框DataSourceAdodc1DataField楼盘编号，合同编号，身份证号，

51、合同签订日期，记录：Text空，其她默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一种，后一种，末记录，表格显示 3、各管理模块具体设计代码（1）管理楼盘信息代码Private Sub cmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled = Falsecmddel.Enabled = Falsecmdok.Enabled = Truecmdesc.Enabled = True

52、End SubPrivate Sub cmdbg_Click()所有楼盘信息.ShowEnd SubPrivate Sub cmddel_Click()x = MsgBox(的确要删除目前记录吗？, vbYesNo + vbQuestion, 确认)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub cm

53、desc_Click()Adodc1.Refreshcmdadd.Enabled = Truecmddel.Enabled = Truecmdok.Enabled = Falsecmdesc.Enabled = FalseEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub cmdfirst_Click()Adodc1.Recordset.MoveFirst 记录指针移到首记录（显示首记录）cmdfirst.Enabled = False 让首记录按钮无效Cmdpre.Enabled = False 让前移按钮无

54、效cmdnext.Enabled = True 让后移按钮有效cmdlast.Enabled = True 让末记录按钮有效在Label8上显示目前记录号/记录总数：Label8.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdlast_Click()Adodc1.Recordset.MoveLast 移到末记录 cmdfirst.Enabled = True Cmdpre.Enabled = True cmdnext.Enable

55、d = False cmdlast.Enabled = FalseLabel8.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdnext_Click()Adodc1.Recordset.MoveNext 记录指针移到下一条记录cmdfirst.Enabled = TrueCmdpre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast 则记录指针移到末记录上 cmdnext.Enabled = False cmdlast.Enabled = FalseEnd IfLabel8.Caption = 记录：