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

沈阳理工大学课程设计专用纸No第1章系统功能概述1.1系统功能分析该系统具备的功能包括楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。售楼信息查询部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。1.2系统结构图图1.1售楼管理信息系统总体结构售楼信息管理售楼信息管理售楼楼盘信息售楼合同信息售楼收款信息楼盘编号楼号单元号楼层房号户型面积合同编号合同签订日期购买人姓名身份证号售楼人员姓名合同单价付款方式贷款银行收款编号交款日期收款金额交款人收款人第2章数据库设计2.1需求分析通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。

具体主要实现如下功能：

售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。（1）楼盘信息：包括楼盘信息的添加、删除和查询。楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。（2）收款信息：包括收款信息的添加、删除和查询。收款信息包括收款编号，交款日期，收款金额，交款人和收款人。（3）合同信息：包括合同信息的添加、删除和查询。合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。（4）售楼合同信息：包括售楼合同信息的添加、删除和查询。售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。（5）收款合同信息：包括收款合同信息的添加、删除和查询。收款合同信息包括收款编号，合同编号，交款人和收款人。2.2E-R模型局部E-R模型：图1.2楼盘信息楼盘信息楼盘信息楼盘编号楼号单元号楼层房号户型面积图1.3合同信息合同信息合同信息合同编号合同签订日期身份证号售楼人员姓名购买人姓名合同单价付款方式贷款银行图1.4收款信息收款信息收款信息收款编号交款日期收款金额交款人收款人图1.5售楼合同信息售楼合同信息售楼合同信息楼盘编号合同编号身份证号合同签订日期图1.6收款合同信息收款合同信息收款合同信息收款编号合同编号交款人收款人全局E-R模型：图1.7售楼信息管理系统E-R模型楼盘信息楼盘信息购买合同信息支付收款信息mnnm楼盘编号身份证号合同编号合同编号交款人收款编号合同签订日期收款人2.3关系模型楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）（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()查询合同信息.ShowEndSubPrivateSub查询楼盘信息1_Click()查询楼盘信息.ShowEndSubPrivateSub查询收款合同信息1_Click()查询收款合同信息.ShowEndSubPrivateSub查询收款信息1_Click()查询收款信息.ShowEndSubPrivateSub查询售楼合同信息1_Click()查询售楼合同信息.ShowEndSubPrivateSub管理合同信息1_Click()管理合同信息.ShowEndSubPrivateSub管理楼盘信息1_Click()管理楼盘信息.ShowEndSubPrivateSub管理收款合同信息1_Click()管理收款合同信息.ShowEndSubPrivateSub管理收款信息1_Click()管理收款信息.ShowEndSubPrivateSub管理售楼合同信息1_Click()管理售楼合同信息.ShowEndSubPrivateSub退出1_Click()UnloadMeEndSubPrivateSub注册新用户1_Click()注册新用户.ShowEndSub3.2用户管理模块的详细设计1、利用VB工程实现，页面的设计如下图：（1）进入售楼管理系统页面图1.21进入售楼管理系统（2）用户登录页面图1.22用户登录（3）注册新用户页面图1.23注册新用户2、各模块功能（1）进入售楼管理系统点击进入按钮，进入主窗体对象的属性值表：表1-1对象名属性名属性值命令按钮NameCommand1Caption进入系统用户登录输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统对象的属性值表：表1-2对象名属性名属性值标签框NameLabel1Label2Caption输入用户输入密码命令按钮NameCmdLandCmdCancelCaption登录取消文本框NameText1Text2注册新用户对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统对象的属性值表：表1-3对象名属性名属性值标签框NameLabel1Label2Label3Caption用户名输入密码确认密码命令按钮NameCommand1Command2Caption登录取消文本框NameText1Text2Text33、各模块详细设计代码（1）进入售楼管理系统代码PrivateSubCommand1_Click()UnloadMe登录.ShowEndSub（2）用户登录代码DimmiCountAsInteger'用于记录输入密码次数PrivateSubCmdLand_Click()DimsqlstrAsStringsqlstr="Select*From密码表Where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'若没找到符合Where条件的记录MsgBox"用户名错误，重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'Text1获得焦点Else'判断密码是否正确IfAdodc1.Recordset.Fields("密码")=Text2Then主窗体.ShowUnloadMeElseMsgBox"密码错误，重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub（3）注册新用户代码PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElsesqlstr="Select*from密码表where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用户名已存在，请重新输入！",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIfIfText2<>Text3ThenMsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空！",vbExclamation,"检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Trim(Text1)Adodc1.Recordset.Fields("密码")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"成功注册新用户！",vbInformation,"添加用户"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub3.3数据查询模块的详细设计利用VB工程实现，页面的设计如下图：1、各查询页面图1.24查询楼盘信息页面图1.25查询合同信息页面图1.26查询收款信息页面图1.27查询收款合同信息页面图1.28查询售楼合同信息页面各查询模块功能combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。输出框下面的主要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与相连之后可以实现对查询结果的输出。查询楼盘信息选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示图1.29对楼盘信息进行查询对象的属性值表：表1—4控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：楼盘编号，楼号，单元号，楼层，房号，户型，面积标签控件NameLabel1Caption选择查询对象命令按钮NamecmdcxcmdfhCaption查询返回DataGrid1属性默认查询合同信息当查询合同信息时，对’购买人姓名’查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示图1.30对合同信息进行查询对象的属性值表：表1—5控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行标签控件NameLabel1Caption选择查询对象命令按钮NamecmdcxcmdfhCaption查询返回DataGrid1属性默认查询收款信息图1.31对收款信息进行查询对象的属性值表：表1—6控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：收款编号，交款日期，收款金额，交款人，收款人标签控件NameLabel1Caption选择查询对象命令按钮NamecmdcxcmdfhCaption查询返回DataGrid1属性默认查询收款合同信息图1.32对收款合同信息进行查询对象的属性值表：表1—7控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：合同编号，收款编号，交款人，收款人标签控件NameLabel1Caption选择查询对象命令按钮NamecmdcxcmdfhCaption查询返回DataGrid1属性默认查询售楼合同信息图1.33对售楼合同信息进行查询对象的属性值表：表1—8控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：楼盘编号，合同编号，身份证号，合同签订日期标签控件NameLabel1Caption选择查询对象命令按钮NamecmdcxcmdfhCaption查询返回DataGrid1属性默认3、各查询模块详细设计代码（1）查询楼盘信息代码PrivateSubcmdcx_Click()DimsqlstrAsStringIfCombo1.List(0)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.楼盘编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(1)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.楼号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(2)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.单元号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(3)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.楼层like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(4)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.房号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(5)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.户型like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(6)=Combo1.TextThensqlstr="select*from楼盘信息"sqlstr=sqlstr&"where楼盘信息.面积like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshEndIfEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"楼盘编号"Combo1.AddItem"楼号"Combo1.AddItem"单元号"Combo1.AddItem"楼层"Combo1.AddItem"房号"Combo1.AddItem"户型"Combo1.AddItem"面积"EndSub（2）查询合同信息代码PrivateSubcmdcx_Click()DimsqlstrAsStringIfCombo1.List(0)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.合同编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(1)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.合同签订日期like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(2)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.购买人姓名like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(3)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.身份证号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(4)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.售楼人员姓名like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(5)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.合同单价like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(6)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.付款方式like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(7)=Combo1.TextThensqlstr="select*from合同信息"sqlstr=sqlstr&"where合同信息.贷款银行like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshEndIfEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"合同编号"Combo1.AddItem"合同签定日期"Combo1.AddItem"购买人姓名"Combo1.AddItem"身份证号"Combo1.AddItem"售楼人员姓名"Combo1.AddItem"合同单价"Combo1.AddItem"付款方式"Combo1.AddItem"贷款银行"EndSub（3）查询收款信息代码PrivateSubcmdcx_Click()DimsqlstrAsStringIfCombo2.List(0)=Combo2.TextThensqlstr="select*from收款信息"sqlstr=sqlstr&"where收款信息.收款编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo2.List(1)=Combo2.TextThensqlstr="select*from收款信息"sqlstr=sqlstr&"where收款信息.交款日期like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo2.List(2)=Combo2.TextThensqlstr="select*from收款信息"sqlstr=sqlstr&"where收款信息.收款金额like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo2.List(3)=Combo2.TextThensqlstr="select*from收款信息"sqlstr=sqlstr&"where收款信息.交款人like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo2.List(4)=Combo2.TextThensqlstr="select*from收款信息"sqlstr=sqlstr&"where收款信息.收款人like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshEndIfEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubForm_Load()Combo2.AddItem"收款编号"Combo2.AddItem"交款日期"Combo2.AddItem"收款金额"Combo2.AddItem"交款人"Combo2.AddItem"收款人"EndSub（4）查询收款合同信息代码PrivateSubcmdcx_Click()DimsqlstrAsStringIfCombo1.List(0)=Combo1.TextThensqlstr="select*from收款合同信息"sqlstr=sqlstr&"where收款合同信息.合同编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(1)=Combo1.TextThensqlstr="select*from收款合同信息"sqlstr=sqlstr&"where收款合同信息.收款编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(2)=Combo1.TextThensqlstr="select*from收款合同信息"sqlstr=sqlstr&"where收款合同信息.交款人like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(3)=Combo1.TextThensqlstr="select*from收款合同信息"sqlstr=sqlstr&"where收款合同信息.收款人like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshEndIfEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"合同编号"Combo1.AddItem"收款编号"Combo1.AddItem"交款人"Combo1.AddItem"收款人"EndSub（5）查询售楼合同信息代码PrivateSubcmdcx_Click()DimsqlstrAsStringIfCombo1.List(0)=Combo1.TextThensqlstr="select*from售楼合同信息"sqlstr=sqlstr&"where售楼合同信息.楼盘编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(1)=Combo1.TextThensqlstr="select*from售楼合同信息"sqlstr=sqlstr&"where售楼合同信息.合同编号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(2)=Combo1.TextThensqlstr="select*from售楼合同信息"sqlstr=sqlstr&"where售楼合同信息.身份证号like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshElseIfCombo1.List(3)=Combo1.TextThensqlstr="select*from售楼合同信息"sqlstr=sqlstr&"where售楼合同信息.合同签订日期like'"&Trim(Text1.Text)&"%'"Adodc1.RecordSource=sqlstrAdodc1.RefreshEndIfEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"楼盘编号"Combo1.AddItem"合同编号"Combo1.AddItem"身份证号"Combo1.AddItem"合同签订日期"EndSub3.4数据管理模块的详细设计利用VB工程实现，页面的设计如下图：各管理页面（1）管理楼盘信息页面图1.34管理楼盘信息页面点击’表格显示’进入所有楼盘信息页面图1.35显示所有楼盘信息表（2）管理合同信息页面图1.36管理合同信息页面点击’表格显示’进入所有合同信息页面图1.37显示所有合同信息表（3）管理收款信息页面图1.38管理收款信息页面点击’表格显示’进入所有收款信息页面图1.39显示所有收款信息表（4）管理收款合同信息页面图1.40管理收款合同信息页面点击’表格显示’进入所有收款合同信息页面图1.41显示所有收款合同信息表（5）管理售楼合同信息页面图1.42管理收款合同信息页面点击’表格显示’进入所有售楼合同信息页面图1.43显示所有售楼合同信息表各管理模块功能该窗体以文本框显示当前记录，用按钮[首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。Command是对数据的查看以及管理，根据按钮的显示可以对数据进行添加、删除等操作，旁边的主要是与数据源相连，以实现对数据源中的数据进行管理，管理窗口主要实现数据的管理功能，输出框与相连之后可以实现对数据管理的输出。（1）管理合同信息：当显示管理信息页面时，点击按钮可以查询每条信息记录，并对其进行新增与删除，如下图所示图1.44新增一条合同记录页面对象属性值表：表1—9控件名属性设置值标签控件NameLabel1-Label19Caption合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行，记录：文本框DataSourceAdodc1DataField合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行，记录：Text空，其他默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一个，后一个，末记录，表格显示（2）管理楼盘信息：对象属性值表：表1—10控件名属性设置值标签控件NameLabel1-Label19Caption楼盘编号，楼号，单元号，楼层，房号，户型，面积，记录：文本框DataSourceAdodc1DataField楼盘编号，楼号，单元号，楼层，房号，户型，面积，记录：Text空，其他默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一个，后一个，末记录，表格显示（3）管理收款信息：对象属性值表：表1—11控件名属性设置值标签控件NameLabel1-Label19Caption收款编号，交款日期，收款金额，交款人，收款人，记录：文本框DataSourceAdodc1DataField收款编号，交款日期，收款金额，交款人，收款人，记录：Text空，其他默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一个，后一个，末记录，表格显示（4）管理收款合同信息：对象属性值表：表1—12控件名属性设置值标签控件NameLabel1-Label19Caption合同编号，收款编号，交款人，收款人，记录：文本框DataSourceAdodc1DataField合同编号，收款编号，交款人，收款人，记录：Text空，其他默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一个，后一个，末记录，表格显示（5）管理售楼合同信息：对象属性值表：表1—13控件名属性设置值标签控件NameLabel1-Label19Caption楼盘编号，合同编号，身份证号，合同签订日期，记录：文本框DataSourceAdodc1DataField楼盘编号，合同编号，身份证号，合同签订日期，记录：Text空，其他默认命令按钮Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，确认，删除，取消，返回，首记录，前一个，后一个，末记录，表格显示3、各管理模块详细设计代码（1）管理楼盘信息代码PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Truecmdesc.Enabled=TrueEndSubPrivateSubcmdbg_Click()所有楼盘信息.ShowEndSubPrivateSubcmddel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubcmdesc_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubcmdfirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）cmdfirst.Enabled=False'让[首记录]按钮无效Cmdpre.Enabled=False'让[前移]按钮无效cmdnext.Enabled=True'让[后移]按钮有效cmdlast.Enabled=True'让[末记录]按钮有效'在Label8上显示当前记录号/记录总数：Label8.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdlast_Click()Adodc1.Recordset.MoveLast'移到末记录cmdfirst.Enabled=TrueCmdpre.Enabled=Truecmdnext.Enabled=Falsecmdlast.Enabled=FalseLabel8.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdnext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录cmdfirst.Enabled=TrueCmdpre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上cmdnext.Enabled=Falsecmdlast.Enabled=FalseEndIfLabel8.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubCmdpre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录cmdnext.Enabled=Truecmdlast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'则记录指针移到首记录上cmdfirst.Enabled=FalseCmdpre.Enabled=FalseEndIfLabel8.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()cmdfirst.Enabled=False'[首记录]按钮无效Cmdpre.Enabled=False'[前移]按钮无效cmdnext.Enabled=True'后移]按钮有效cmdlast.Enabled=True'[末记录]按钮有效cmdok.Enabled=Falsecmdesc.Enabled=Falsecmdadd.Enabled=Truecmddel.Enabled=TrueLabel8.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub所有楼盘信息代码：PrivateSubcmdfh_Click()管理楼盘信息.ShowUnloadMeEndSub（2）管理合同信息代码PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Truecmdesc.Enabled=TrueEndSubPrivateSubcmdbg_Click()所有合同信息.ShowEndSubPrivateSubcmddel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubcmdesc_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubcmdfirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）cmdfirst.Enabled=False'让[首记录]按钮无效Cmdpre.Enabled=False'让[前移]按钮无效cmdnext.Enabled=True'让[后移]按钮有效cmdlast.Enabled=True'让[末记录]按钮有效'在Label6上显示当前记录号/记录总数：Label9.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdlast_Click()Adodc1.Recordset.MoveLast'移到末记录cmdfirst.Enabled=TrueCmdpre.Enabled=Truecmdnext.Enabled=Falsecmdlast.Enabled=FalseLabel9.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdnext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录cmdfirst.Enabled=TrueCmdpre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上cmdnext.Enabled=Falsecmdlast.Enabled=FalseEndIfLabel9.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubCmdpre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录cmdnext.Enabled=Truecmdlast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'则记录指针移到首记录上cmdfirst.Enabled=FalseCmdpre.Enabled=FalseEndIfLabel9.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()cmdfirst.Enabled=False'[首记录]按钮无效Cmdpre.Enabled=False'[前移]按钮无效cmdnext.Enabled=True'后移]按钮有效cmdlast.Enabled=True'[末记录]按钮有效cmdok.Enabled=Falsecmdesc.Enabled=Falsecmdadd.Enabled=Truecmddel.Enabled=TrueLabel9.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub所有合同信息代码：PrivateSubcmdfh_Click()管理合同信息.ShowUnloadMeEndSub（3）管理收款信息代码PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Truecmdesc.Enabled=TrueEndSubPrivateSubcmdbg_Click()所有收款信息.ShowEndSubPrivateSubcmddel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubcmdesc_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubcmdfirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）cmdfirst.Enabled=False'让[首记录]按钮无效Cmdpre.Enabled=False'让[前移]按钮无效cmdnext.Enabled=True'让[后移]按钮有效cmdlast.Enabled=True'让[末记录]按钮有效'在Label6上显示当前记录号/记录总数：Label6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdlast_Click()Adodc1.Recordset.MoveLast'移到末记录cmdfirst.Enabled=TrueCmdpre.Enabled=Truecmdnext.Enabled=Falsecmdlast.Enabled=FalseLabel6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdnext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录cmdfirst.Enabled=TrueCmdpre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上cmdnext.Enabled=Falsecmdlast.Enabled=FalseEndIfLabel6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubCmdpre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录cmdnext.Enabled=Truecmdlast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'则记录指针移到首记录上cmdfirst.Enabled=FalseCmdpre.Enabled=FalseEndIfLabel6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()cmdfirst.Enabled=False'[首记录]按钮无效Cmdpre.Enabled=False'[前移]按钮无效cmdnext.Enabled=True'后移]按钮有效cmdlast.Enabled=True'[末记录]按钮有效cmdok.Enabled=Falsecmdesc.Enabled=Falsecmdadd.Enabled=Truecmddel.Enabled=TrueLabel6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub所有收款信息代码：PrivateSubcmdfh_Click()管理收款信息.ShowUnloadMeEndSub（4）管理收款合同信息代码PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Truecmdesc.Enabled=TrueEndSubPrivateSubcmdbg_Click()所有收款合同信息.ShowEndSubPrivateSubcmddel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubcmdesc_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubcmdfirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）cmdfirst.Enabled=False'让[首记录]按钮无效Cmdpre.Enabled=False'让[前移]按钮无效cmdnext.Enabled=True'让[后移]按钮有效cmdlast.Enabled=True'让[末记录]按钮有效'在Label6上显示当前记录号/记录总数：Label5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdlast_Click()Adodc1.Recordset.MoveLast'移到末记录cmdfirst.Enabled=TrueCmdpre.Enabled=Truecmdnext.Enabled=Falsecmdlast.Enabled=FalseLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdnext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录cmdfirst.Enabled=TrueCmdpre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上cmdnext.Enabled=Falsecmdlast.Enabled=FalseEndIfLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubCmdpre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录cmdnext.Enabled=Truecmdlast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'则记录指针移到首记录上cmdfirst.Enabled=FalseCmdpre.Enabled=FalseEndIfLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()cmdfirst.Enabled=False'[首记录]按钮无效Cmdpre.Enabled=False'[前移]按钮无效cmdnext.Enabled=True'后移]按钮有效cmdlast.Enabled=True'[末记录]按钮有效cmdok.Enabled=Falsecmdesc.Enabled=Falsecmdadd.Enabled=Truecmddel.Enabled=TrueLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub所有收款合同信息代码：PrivateSubcmdfh_Click()管理收款合同信息.ShowUnloadMeEndSub（5）管理售楼合同信息代码PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Truecmdesc.Enabled=TrueEndSubPrivateSubcmdbg_Click()所有售楼合同信息.ShowEndSubPrivateSubcmddel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubcmdesc_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubcmdfh_Click()主窗体.ShowUnloadMeEndSubPrivateSubcmdfirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）cmdfirst.Enabled=False'让[首记录]按钮无效Cmdpre.Enabled=False'让[前移]按钮无效cmdnext.Enabled=True'让[后移]按钮有效cmdlast.Enabled=True'让[末记录]按钮有效'在Label6上显示当前记录号/记录总数：Label5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdlast_Click()Adodc1.Recordset.MoveLast'移到末记录cmdfirst.Enabled=TrueCmdpre.Enabled=Truecmdnext.Enabled=Falsecmdlast.Enabled=FalseLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdnext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录cmdfirst.Enabled=TrueCmdpre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上cmdnext.Enabled=Falsecmdlast.Enabled=FalseEndIfLabel5.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubcmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdesc.Enabled=FalseEndSubPrivateSubCmdpre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录cmdnext.Enabled=Truecmdlast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'则记录指针移到首记录上cmdfirst.Enabled=FalseCmdpre.Enabled=FalseEnd