VB数据库设计售楼管理.docx

1、VB数据库设计 售楼管理课程设计任务书学 院信息科学与工程学院专 业计算机科学与技术学 生 姓 名庞金凤学 号0803050402设 计 题 目售楼信息管理系统-售楼管理内容及要求： 1、售楼管理系统功能：（1）、售楼人员登记管理（2）、售楼合同登记管理（3）、收款信息登记管理（4）、售楼人员信息查询、售楼合同信息查询、收款信息查询（5）、显示打印报表2、数据库的设计（1） 楼盘信息（楼盘编号、楼号、单元号、楼层、房号、户型、面积）（2） 合同信息（合同编号、合同签定日期、购买人姓名、身份证号、售楼人员姓名 、合同单价、付款方式、贷款银行）（3）收款信息（收款编号、交款日期、收款金额、交款人、

2、收款人）（4）系统信息（用户名、密码） 进度安排：第16周：系统需求分析，设计E-R图数据库设计和模块设计进行软件编码设计，实现各模块功能第17周：继续完成软件设计，调试与完善系统的各项功能书写课程设计报告。验收程序，答辩。指导教师（签字）：年 月 日学院院长（签字）：年 月 日目录第1章 系统功能概述 21.1 问题定义 2第2章 需求分析 32.1 需求分析 32.2 E-R模型 32.3 关系模型 4第3章 系统各功能模块的详细设计 63.1 数据流图的设计 63.1.1顶层的数据流图 63.1.2 细化的数据流图 63.2 系统层次图 7第4章 程序运行结果 84.1 登录界面 84.

3、2用户注册界面 104.3数据信息界面 124.3数据信息界面 19第5章 课设总结 23参考文献 23第1章 系统功能概述1.1 问题定义 随着地产业的不断发展，利用电脑的先进管理手段，把售楼人员从一大堆合同中解放出来，将楼盘的销售推向“无纸化”已经成了解决当前房地产售楼管理的当务之急。下面介绍的售楼管理系统就是为了实现这一目标而设计的。管理人员通过该系统可以及时了解楼盘的动态销售情况，还能充分利用电脑的可检索性，方便、快速地了解有关销售楼盘的其他各种详细资料，以便及时做出正确的决策。而本系统正是针对房产销售的科学化、规范化、网络化的要求而开发，使一线工作人员准确地执行各项活动，减轻劳动强度

4、，又使上层管理人员获得各种需要的信息，起到辅助决策的作用，从而使经营管理的水平达到更高层次，以达到较大的投资回报率及用户满意率。1.2 系统功能本程序实现的主要功能如下：（1）售楼人员登记管理（2）售楼合同登记管理（3）收款信息登记管理（4）售楼人员信息查询、售楼合同信息查询、收款信息查询（5）显示打印报表图1.1 功能模型图第2章 需求分析2.1 需求分析 2.1.1系统管理 对系统的设置，主要包括对信息项所用代码表的维护。其中包括售楼人员信息的增加、删除、修改、查询以及退出系统。2.1.2售楼管理 对楼盘信息进行管理，包括楼盘信息管理和合同信息管理和收款信息，其中： （1）楼盘信息管理包括

5、：增加新楼盘信息、修改楼盘信息、查询楼盘信息以及删除楼盘信息； （2）合同信息的管理包括：增加合同信息、查询合同信息、删除合同信息，此处不能有修改合同信息这一功能，如果出现需要修改的地方，则应重新增加合同； （3）收款信息管理则包括：增加收款信息、查询收款信息、删除收款信息，同理，此处也不能有修改收款信息这一功能。2.2 E-R模型 图2.1 系统用户E-R图 图2.2 楼盘信息E-R图图2.3 收款信息E-R图 图2.4 合同信息E-R图2.3 关系模型 将售楼信息管理系统的E-R图转换为关系模型如下：系统用户（用户名，密码）楼盘信息（楼盘编号，单元号，楼号，房号，户型，面积，楼层）收款信息

6、（收款编号，交款日期，收款人，交款人，收款金额）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）2.4 数据库结构设计 表2.1系统用户表字段名称字段描述类型位数属性username用户名char20可空passwd密码char20可空表2.2楼盘信息表字段名称字段描述类型位数属性build-id楼盘编号int4主码，非空unit_num单元号 char20可空area面积char20可空type户型char20可空bulid-num楼号int4可空Home-num房号int4可空floor楼层int4可空表2.3收款信息表字段名称字段描述类

7、型位数属性rece-id收款编号int4主码，非空issuer收款人char20外码buyer交款人char20外码amount交款金额char15可空表2.4合同信息表字段名称字段描述类型位数属性pact-id合同编号int4主码，非空deal_time签订日期char20可空buyer购买者姓名char20外码amount合同单价char15可空idcard身份证号char18可空issuer售楼人姓名char20外码pay-way付款方式char20可空第3章 系统各功能模块的详细设计3.1 数据流图的设计3.1.1顶层的数据流图图3.1 顶层数据流图的设计3.1.2 细化的数据流图图3

8、.2 售楼信息管理系统细化了的数据流图3.2 系统层次图 图3.3层次方框图第4章 程序运行结果4.1 登录界面在VB6环境中，选择菜单“运行/启动”命令，将显示登陆窗体，如图4.1所示。图4.1 登录界面程序代码如下：Private Sub Command1_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = select * from 系统信息 where 用户名 = & Text1 & and 密码 = & Text2 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Ado

9、dc1.Recordset.EOF ThenMsgBox 用户名或密码错误,请重新重新输入, vbExclamation, 警告Text1.Text = Text2.Text = Text1.SetFocusElseForm3.ShowUnload MeEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Form2.ShowEnd Sub输入用户名及密码，点击确定后就进入系统主窗

10、体，如图4.2所示图4.2 系统主窗体程序代码如下：Private Sub file_Click(Index As Integer)If Index = 1 ThenForm2.ShowElseEndEnd IfEnd SubPrivate Sub manage_Click(Index As Integer)If Index = 1 ThenForm4.ShowForm3.HideElseIf Index = 2 ThenForm5.ShowForm3.HideElseIf Index = 3 ThenForm6.ShowForm3.HideEnd IfEnd IfEnd IfEnd SubP

11、rivate Sub print_Click(Index As Integer)If Index = 1 ThenForm3.HideDataReport1.ShowElseIf Index = 2 ThenForm3.HideDataReport2.ShowEnd IfEnd IfEnd SubPrivate Sub query_Click(Index As Integer)If Index = 2 ThenForm3.HideForm7.ShowElseIf Index = 1 ThenForm3.HideForm8.ShowElseIf Index = 3 ThenForm3.HideF

12、orm9.ShowEnd IfEnd IfEnd IfEnd Sub4.2用户注册界面 新用户登录需注册，如图4.3所示。图4.3 注册新用户程序代码如下：Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 请输入用户名!, vbExclamation, 确认密码 Text1.SetFocus Exit SubElsesqlstr = select * from 系统信息 where 用户名 = & Tex1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf A

13、dodc1.Recordset.EOF = False ThenMsgBox 用户名已存在,请重新输入!, vbExclamation, 检查用户名Text1 = Text1.SetFocusExit SubEnd IfEnd IfIf Text2 Text3 ThenMsgBox 两次输入的密码不一致,请重新输入, vbExclamation, 检验密码Text2 = : Text3 = Text2.SetFocusExit SubElseIf Text2 = ThenMsgBox 密码不能为空!, vbExclamation, 检验密码Text2.SetFocusElseAdodc1.Re

14、cordset.AddNewAdodc1.Recordset.Fields(用户名) = Trim(Text1)Adodc1.Recordset.Fields(密码) = Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox 成功注册新用户!, vbInformation, 添加用户End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm1.ShowEnd Sub4.3数据信息界面售楼人员对楼盘信息管理界面，如图4.4所示图4.4 楼盘信息管理界面程序代码如下：Private Sub Co

15、mbo1_Change()End SubPrivate Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueText1.SetFocusLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command2_C

16、lick()Text1.SetFocusEnd SubPrivate Sub Command3_Click()Dim x As Stringx = MsgBox(确定要删除当前记录么?, vbYesNo + vbQuestion, 确认)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfElseAdodc1.RefreshEnd IfLabel14.Caption = 记录: & Adodc1.Re

17、cordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = FalseLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCo

18、untEnd SubPrivate Sub Command5_Click()Adodc1.RefreshCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = FalseLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command6_Click()Unload MeForm3.ShowEnd SubP

19、rivate Sub Command7_Click()Adodc1.Recordset.MovePreviousCommand8.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand7.Enabled = FalseEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command8_Click()Adodc1.Rec

20、ordset.MoveNextCommand7.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand8.Enabled = FalseEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Load()Label14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition

21、 & / & Adodc1.Recordset.RecordCountEnd Sub售楼人员对合同信息管理界面，如图4.5所示图4.5 合同信息管理界面程序代码如下：Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueText1.SetFocusLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition

22、& / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command2_Click()Text1.SetFocusEnd SubPrivate Sub Command3_Click()Dim x As Stringx = MsgBox(确定要删除当前记录么?, vbYesNo + vbQuestion, 确认)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLast

23、End IfElseAdodc1.RefreshEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = FalseLabel14.Caption = 记录: & Ad

24、odc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command5_Click()Adodc1.RefreshCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = FalseLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCoun

25、tEnd SubPrivate Sub Command6_Click()Unload MeForm3.ShowEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MovePreviousCommand8.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand7.Enabled = FalseEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Rec

26、ordset.RecordCountEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.MoveNextCommand7.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand8.Enabled = FalseEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_

27、Load()Label14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub售楼人员对收款信息管理界面，如图4.6所示图4.6 收款信息管理界面程序代码如下：Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueText1.Set

28、FocusLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command2_Click()Text1.SetFocusEnd SubPrivate Sub Command3_Click()Dim x As Stringx = MsgBox(确定要删除当前记录么?, vbYesNo + vbQuestion, 确认)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordse

29、t.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfElseAdodc1.RefreshEnd IfLabel14.Caption = 记录: & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseC