房地产企业销售系统的设计

毕业论文(设计)题目:房地产公司销售系统的设计页眉页脚页眉页脚院(系):计算机科学与技术学院专业年级:计算机科学与技术2023级（专升本）姓名:*****学号:*********指导教师:*****史玉珍讲师史玉珍讲师2023年3月26日

原创性声明本人郑重声明：本人所呈交的毕业论文，是在指导老师的指导下独立进行研究所取得的成果。毕业论文中凡引用别人已经发表或未发表的成果、数据、观点等，均已明确注明出处。除文中已经注明引用的内容外，不包含任何其他个人或集体已经发表或撰写过的科研成果。对本文的研究成果做出重要奉献的个人和集体，均已在文中以明确方式标明。本声明的法律责任由本人承担。论文作者署名：*****日期：2023年3月26日

关于毕业论文使用授权的声明本人在指导老师指导下所完毕的论文及相关的资料（涉及图纸、实验记录、原始数据、实物照片、图片、录音带、设计手稿等），知识产权归属*****学院。本人完全了解*****学院有关保存、使用毕业论文的规定，批准学校保存或向国家有关部门或机构送交论文的纸质版和电子版，允许论文被查阅和借阅；本人授权*****学院可以将本毕业论文的所有或部分内容编入有关数据库进行检索，可以采用任何复制手段保存和汇编本毕业论文。假如发表相关成果，一定征得指导教师批准，且第一署名单位为*****学院。本人离校后使用毕业论文或与该论文直接相关的学术论文或成果时，第一署名单位仍然为*****学院。论文作者署名：*****日期：2023年3月26日指导老师署名：日期：

房地产公司销售系统的设计摘要随着人类社会的进步和科学技术的发展，人们生活水平也在不断提高，房地产已经成为当今社会比较热门的行业。由于房地产销售形式复杂，业务种类繁多，信息的管理就显得由为重要。初期的手工管理方式已经不能适应现代房地产的销售的需求，在这种情况下，房地产销售管理系统应运而生。在房地产信息管理系统的系统设计中，对系统流程从功能流程和数据流程进行了分析，对系统功能模块进行了设计，具体说明了数据库的设计过程，并且设计了基础信息、房屋销售、记录报表、系统设立等功能模块，并对系统的界面进行了设计。房地产信息管理系统选用了VB作为系统开发工具，数据库管理系统采用SQLServer2023。该系统重要开发了楼盘信息、楼房信息、客户信息、员工信息等模块，这些模块实现了信息录入、修改、管理、查询、记录等功能。系统设立模块可以进行用户权限、密码的设定。关键词：信息管理系统,房地产

theInformationSystemofRealEstateManagementAbstractWiththeprogressofhumansocietyanddevelopmentofscienceandtechnology,thestandardofpeople'slifeisconstantlyincreasing,therealestatehasbecomemorepopularinnowadays.Becausetheformofrealestatesaleiscomplex,awidevarietyofproducts,theinformationsystemofrealestatemanagementbecomesimportant.Theearlymanualmanagementmethodshasnotsuitedthemodernrealestatesale'sdemand,inwhichcase,theinformationsystemofrealestatemanagementcameintobeing.Inthisarticle,wewillanalysethefunctionalprocessesandthedataflow.designthefunctionalmodulesofthesystem,describethedatabasedesignprocessindetail,anddesignthefoundationinformation,housingmarketing,statisticalstatements,thefunctionofthesysteminstalledmodules,andsysteminterface.TheinformationsystemofrealestatemanagementwechoseVBassystemdevelopmenttools,indatabasemanagementsystemsusingSQLServer2023.Developthebuildinginformation,customerinformation,employeeinformationmodulesandsoon.Thestatisticalstatementshavemodulesforinformationclassification,Systemmodulescaninstallthecompetenceoftheuserandthepasswords.Keywords:informationmanagementsystem,Realestate

TOC\o"1-3"\h\u目录189801绪论 78482概述 8324563数据库分析 9179473.1创建数据库 9304293.2创建表/字段 10298444界面设计 1179094.1房地产销售管理信息系统主窗体 11315554.2用户管理模块界面设计 11171954.2.1登录界面 11183304.2.2添加用户界面 1231434.2.3修改用户密码界面 12217594.2.4删除用户界面 13206234.3楼盘信息模块界面设计 13202324.3.1添加楼盘信息界面 13271744.3.2编辑楼盘信息界面 14228424.3.3查询楼盘信息界面 14324054.4房型管理信息模块界面设计 15225124.4.1添加房型信息界面 15194674.4.2编辑房型信息界面 1566314.4.3查询房型信息界面 16291114.5客户管理信息模块界面设计 1698084.5.1添加客户信息界面 1650804.5.2编辑客户信息界面 17109944.5.3查询客户信息界面 173824.6销售信息模块界面设计 18147184.6.1添加销售信息界面 18289374.6.2修改销售信息界面 18134314.6.3查询销售信息界面 19209704.7员工管理信息模块界面设计 1942334.7.1添加员工信息界面 19259134.7.2编辑员工信息界面 20300034.7.3查询员工信息界面 207188附录 2124631参考文献 4929160致谢 50

1绪论随着近年来经济的发展，国内的房地产行业开始迅猛发展。房地产业的兴旺带动了相关行业的极大繁荣，如：建材、建筑设计、施工、房地产销售、市场营销、律师等，在这空前的大市场中房地产销售作为一门新兴的行业尤为引人注目，问题也特别多。由于资料管理无序，有时主线无法及时准确地查阅客户信息；销售工作混乱，没有统一规范化；人员管理无序，人员过多，人才缺少。上述问题导致房地产销售行业效率低、混乱。在当前行业竞争日趋剧烈的市场环境下，必须运用先进的IT信息技术和现代管理思想，提高房地产行业的管理水平、工作效率、服务质量、减少运营成本、提高经济效益，最终提高房地产销售公司的核心竞争力。2概述房地产销售管理信息系统的主界面：图1-1从该界面可以看到，该房地产销售管理信息系统涉及系统用户管理、楼盘管理、房型管理、客户管理、销售管理和员工管理6个部分。(1)系统管理用于管理使用该系统的用户，以及权限的分派，从而为系统提供一定的安全性。(2)楼盘管理涉及楼盘的一些基本信息，如楼盘编号、地理位置、建筑面积情况，能合理的反映楼盘的情况，并可随时查询楼盘的信息。(3)房型管理对目前楼盘中所有房型的基本信息进行登记，涉及房型名称、建筑面积和销售面积等，从而可以非常高效的查看楼盘中所有的房型资料。(4)客户管理重要涉及客户编号、客户名称、需求面积和需求房型，这样可以及时准确的查阅客户的信息。(5)销售管理用于对楼盘里所有房屋的销售情况进行管理，涉及楼盘名称、客户编号、已付金额等信息。(6)员工管理对房地产销售公司的所有员工进行统一的管理，涉及员工的员工号、姓名、性别等，这对于销售公司的内部管理非常重要。3数据库分析3.1创建数据库分析数据库各各表的结构：楼盘基本信息表列名数据类型字段大小是否为空楼盘名称Nvarchar20NOTNULL地理位置Nvarchar50NULL建筑面积Real4NULL占地面积Real4NULL广场面积Real4NULL绿化面积Real4NULL楼房数量Int4NULL开发日期Datetime8NULL备注Nvarchar50NULL房型信息表列名数据类型字段大小是否为空房型名称Nvarchar20NOTNULL建筑面积Real4NULL使用面积Real4NULL阳台面积Real4NULL房层高度Int4NULL销售面积Real4NULL备注Nvarchar50NULL客户信息表列名数据类型字段大小是否为空客户编号Char10NOTNULL客户名称Nvarchar20NULL性别Char1NULL年龄Int4NULL职业Nvarchar20NULL工作单位Nvarchar20NULL身份证号Char15NULL邮编Char6NULL联系地址Nvarchar50NULL联系电话Nvarchar20NULL需求面积Int4NULL需求楼层Int4NULL需求房型Nvarchar20NULL备注Nvarchar50NULL销售信息表列名数据类型字段大小是否为空序号（自动增长）Int4NOTNULL楼盘名称Int4NULL客户编号Char10NULL房型名称Nvarchar20NULL楼层Int4NULL单元号Int4NULL房间号Int4NULL房屋朝向Nvarchar20NULL销售面积Real4NULL单价Real4NULL总价Real4NULL已付金额Real4NULL备注Nvarchar50NULL员工信息表列名数据类型字段大小是否为空员工号Char10NOTNULL姓名Nvarchar20NULL性别Char1NULL出生日期Datetime8NULL民族Nvarchar5NULL婚姻状况Char2NULL政治面貌Nvarchar5NULL学历Nvarchar5NULL进入公司时间Datetime8NULL转正时间Datetime8NULL部门Nvarchar10NULL岗位Nvarchar10NULL籍贯Nvarchar20NULL户口所在地Nvarchar20NULL身份证号Char15NULL家庭通信地址Nvarchar20NULL邮编Char6NULL电话Nvarchar15NULL3.2创建表/字段在SQLServer2023中创建SQL语句：见附录。

4界面设计4.1房地产销售管理信息系统主窗体在这个项目中使用了多文档界面，右击“工程资源管理器”窗口，在弹出的菜单中选择“添加”|“添加MDI窗口”命令。在新建立的这个窗体中添加所需的控件，创建好的窗体如下图：图4-14.2用户管理模块界面设计4.2.1登录界面一方面，创建一个登录界面，用户需要输入用户名和密码，在系统验证完毕并判断对的有效后，系统将跳转到主界面。图4-2-1在这个界面上放4个Label（标签）控件。它们分别标记了本系统的名称，两个TextBox的功能和版权声明。两个TextBox（文本框）控件分别用来输入用户名和密码。尚有两个按钮用来拟定和取消登录。4.2.2添加用户界面在窗体中放置3个TextBox（文本框），分别用来输入所添加用户的用户名、密码、和确认密码。两个CommandButton（按钮）用来拟定是否添加用户。3个Label（标签）用来表达文本框的提醒。如下图：图4-2-24.2.3修改用户密码界面在窗体中，两个TextBox（文本框）分别用来输入新密码和确认新密码，两个CommandButton（按钮）用来拟定是否修改密码。如下图：图4-2-34.2.4删除用户界面界面中放置了一个List控件，用于列出所有以添加的用户，两个命令按钮用来拟定是否删除用户。如下图：图4-2-44.3楼盘信息模块界面设计4.3.1添加楼盘信息界面这个模块重要是用来输入楼盘的基本信息，如房型、当前房型等。两个按钮用来拟定是否添加楼盘信息。多个标签则用来标记众多文本框的功能，以及所需输入的内容。图4-3-14.3.2编辑楼盘信息界面选择菜单上的“楼盘信息管理”|“修改楼盘信息”命令。这个窗体由3部分组成：楼盘信息部分、导航部分、编辑部分。楼盘信息部分与“添加楼盘信息”部分的界面设计类似。导航部分通过4个按钮来实现对记录的浏览。编辑部分实现修改记录、保存信息、删除信息和关闭退出的功能。图4-3-24.3.3查询楼盘信息界面“查询楼盘信息界面”模块，可以采用按楼盘编号、按开发日期两种查询方式。界面中需要添加一个DataGrid控件。图4-3-34.4房型管理信息模块界面设计4.4.1添加房型信息界面“选择添加房型信息”命令即进入对房型信息进行添加操作的界面，界面效果如下图：图4-4-14.4.2编辑房型信息界面“编辑房型信息”界面是通过现在“房型信息管理”|“编辑房型信息”命令进入的，如下图：图4-4-24.4.3查询房型信息界面选择“房型信息管理”下拉菜单最后一项，就是“查询房型信息”命令，界面如下图：图4-4-34.5客户管理信息模块界面设计4.5.1添加客户信息界面图4-5-14.5.2编辑客户信息界面选择“客户信息管理”|“编辑客户信息”命令，进入“编辑客户信息”界面，窗体如下图：图4-5-24.5.3查询客户信息界面选择“客户信息管理”下拉菜单最后一项，就是“查询客户信息”命令，界面如下图：图4-5-34.6销售信息模块界面设计4.6.1添加销售信息界面选择“添加销售信息”命令，进入下图界面：图4-6-14.6.2修改销售信息界面选择“销售信息管理”下拉菜单的第二项“编辑销售信息”命令，则进入界面如下图：图4-6-24.6.3查询销售信息界面选择下拉菜单中最后一项，查询销售信息命令，进入下图界面：图4-6-34.7员工管理信息模块界面设计4.7.1添加员工信息界面选择“添加员工信息”命令，进入下图界面：图4-7-14.7.2编辑员工信息界面选择“员工信息管理”下拉菜单的第二项“编辑编辑信息”命令：图4-7-24.7.3查询员工信息界面选择下拉菜单中最后一项，查询员工信息命令，进入下图界面：图4-7-3缺少结论缺少结论

附录创建楼盘信息表，SQL代码如下：ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[楼盘信息]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[楼盘信息]GOCREATETABLE[dbo].[楼盘信息]( [楼盘名称][nvarchar](20)COLLATEChinese_PRC_CI_ASNOTNULL, [地理位置][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [建筑面积][real]NULL, [占地面积][real]NULL, [广场面积][real]NULL, [绿化面积][real]NULL, [楼房数量][int]NULL, [开发日期][datetime]NULL, [备注][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO创建房型信息表，SQL代码如下：ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[房型信息]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[房型信息]GOCREATETABLE[dbo].[房型信息]( [房型名称][nvarchar](20)COLLATEChinese_PRC_CI_ASNOTNULL, [建筑面积][real]NULL, [使用面积][real]NULL, [阳台面积][real]NULL, [房层高度][real]NULL, [销售面积][real]NULL, [备注][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO创建客户信息表，SQL代码如下：ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[客户信息]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[客户信息]GOCREATETABLE[dbo].[客户信息]( [客户编号][char](10)COLLATEChinese_PRC_CI_ASNOTNULL, [客户名称][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [性别][char](1)COLLATEChinese_PRC_CI_ASNULL, [年龄][int]NULL, [职业][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [工作单位][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [身份证][char](15)COLLATEChinese_PRC_CI_ASNULL, [邮编][char](6)COLLATEChinese_PRC_CI_ASNULL, [联系地址][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [联系电话][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [需求面积][int]NULL, [需求楼层][int]NULL, [需求房型][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [备注][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO创建销售信息表，SQL代码如下：ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[销售信息]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[销售信息]GOCREATETABLE[dbo].[销售信息]( [序号][int]IDENTITY(1,1)NOTNULL, [楼盘名称][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [客户编号][char](10)COLLATEChinese_PRC_CI_ASNULL, [房型名称][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [楼层][int]NULL, [单元号][int]NULL, [房间号][int]NULL, [房屋朝向][nvarchar](2)COLLATEChinese_PRC_CI_ASNULL, [销售面积][real]NULL, [单价][real]NULL, [总价][real]NULL, [已付金额][real]NULL, [备注][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO创建员工信息表，SQL代码如下：ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[员工信息]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[员工信息]GOCREATETABLE[dbo].[员工信息]( [员工号][char](10)COLLATEChinese_PRC_CI_ASNOTNULL, [姓名][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [性别][char](10)COLLATEChinese_PRC_CI_ASNULL, [出生日期][smalldatetime]NULL, [民族][nvarchar](5)COLLATEChinese_PRC_CI_ASNULL, [婚姻状况][char](2)COLLATEChinese_PRC_CI_ASNULL, [政治面貌][nvarchar](5)COLLATEChinese_PRC_CI_ASNULL, [学历][nvarchar](5)COLLATEChinese_PRC_CI_ASNULL, [进入公司时间][datetime]NULL, [转正时间][datetime]NULL, [部门][nvarchar](10)COLLATEChinese_PRC_CI_ASNULL, [岗位][nvarchar](10)COLLATEChinese_PRC_CI_ASNULL, [籍贯][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [户口所在地][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [身份证号][char](15)COLLATEChinese_PRC_CI_ASNULL, [家庭通讯地址][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [邮编][char](6)COLLATEChinese_PRC_CI_ASNULL, [电话][nvarchar](15)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO公用模块，代码如下：PublicfMainFormAsfrmMain'程序主窗体PublicUserNameAsString'用户名PublicPWDAsString'用户密码PublicCONNAsString'数据库连接字符串SubMain()CONN="FileDSN=Reality.dsn;UID=sa;PWD="DimfLoginAsNewfrmLoginfLogin.ShowvbModalIfNotfLogin.OKThen'登录失败后退出程序EndEndIfUnloadfLoginSetfMainForm=NewfrmMainfMainForm.ShowEndSubPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.Recordset'executesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsString'OnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenCONNIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCountSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&_"条记录"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查询错误:"&_Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction用户登录模块代码：OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBoolean'记录拟定次数DimmiCountAsIntegerPrivateSubForm_Load()OK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsString'变量定义txtSQL是用来存放SQL语句，MsgText存放返回信息UserName=""IfTrim(txtUserName.Text="")Then'判断用户名输入是否为空MsgBox"没有这个用户，请重新输入用户名！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElsetxtSQL="select*from管理员whereusername='"&txtUserName.Text&"'"'对所输入的用户名进行查询Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"没有这个用户，请重新输入用户名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)Then'判断密码输入对的性OK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)'记录用户名和密码到全局变量ElseMsgBox"输入密码不对的，请重新输入！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfEndIfmiCount=miCount+1IfmiCount=3Then'记录密码输入的次数，累计到3此则自动结束程序Me.HideEndIfExitSubEndSubPrivateSubLabel2_Click()EndSub添加用户模块代码设计：PrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringIfTrim(Text1(0).Text)=""ThenMsgBox"请输入用户名称！",vbOKOnly+vbExclamation,"警告"ExitSubText1(0).SetFocusElsetxtSQL="select*from管理员"Setmrc=ExecuteSQL(txtSQL,MsgText)While(mrc.EOF=False)IfTrim(mrc.Fields(0))=Trim(Text1(0))ThenMsgBox"用户已经存在，请重新输入用户名！",vbOKOnly+vbExclamation,"警告"Text1(0).SetFocusText1(0).Text=""Text1(1).Text=""Text1(2).Text=""ExitSubElsemrc.MoveNextEndIfWendEndIfIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"两次输入密码不同样，请确认！",vbOKOnly+vbExclamation,"警告"Text1(1).SetFocusText1(1).Text=""Text1(2).Text=""ExitSubElseIfText1(1).Text=""ThenMsgBox"密码不能为空！",vbOKOnly+vbExclamation,"警告"Text1(1).SetFocusText1(1).Text=""Text1(2).Text=""Elsemrc.AddNewmrc.Fields(0)=Trim(Text1(0).Text)mrc.Fields(1)=Trim(Text1(1).Text)mrc.Updatemrc.CloseMe.HideMsgBox"添加用户成功！",vbOKOnly+vbExclamation,"添加用户"EndIfEndIfEndSub修改用户模块代码设计：PrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimtxtSQL,MsgTextAsStringDimmrcAsADODB.RecordsetIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"密码输入不对的！",vbOKOnly+vbExclamation,"警告"Text1(1).SetFocusText1(1).Text=""ElsetxtSQL="select*fromuser_Infowhereuser_ID='"&UserName&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.Fields(1)=Text1(1).Textmrc.Updatemrc.CloseMsgBox"密码修改成功！",vbOKOnly+vbExclamation,"修改密码"Me.HideEndIfEndSub删除用户模块代码设计：OptionExplicitPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdDel_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsStringIfList1.List(List1.ListIndex)<>""ThenIfMsgBox("真的要删除用户"&List1.List(List1.ListIndex),vbOKCancel+vbExclamation,"警告")=vbOKThentxtSQL="deletefrom管理员whereusername='"&Trim(List1.List(List1.ListIndex))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)List1.ClearForm_LoadEndIfEndIfMsgBox"删除成功",vbOKOnly,"信息框"EndSubPrivateSubForm_Load()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringtxtSQL="selectusernamefrom管理员"Setmrc=ExecuteSQL(txtSQL,MsgText)Whilemrc.EOF=FalseList1.AddItemmrc.Fields(0)mrc.MoveNextWendEndSub添加楼盘管理信息模块代码设计：OptionExplicitPrivateSubcancelCommand_Click()UnloadMeEndSubPrivateSubtxtfields_LostFocus(IndexAsInteger)DimpTitleAsStringpTitle="信息框"IfNotIsNumeric(txtFields(2).Text)And(txtFields(2).Text<>"")ThenMsgBox"请在“建筑面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(2).SetFocustxtFields(2).SelLength=Len(txtFields(2))txtFields(2).SelStart=0EndIfIfNotIsNumeric(txtFields(3).Text)And(txtFields(3).Text<>"")ThenMsgBox"请在“占地面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(3).SetFocustxtFields(3).SelLength=Len(txtFields(3))txtFields(3).SelStart=0EndIfIfNotIsNumeric(txtFields(4).Text)And(txtFields(4).Text<>"")ThenMsgBox"请在“广场面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(4).SetFocustxtFields(4).SelLength=Len(txtFields(4))txtFields(4).SelStart=0EndIfIfNotIsNumeric(txtFields(5).Text)And(txtFields(5).Text<>"")ThenMsgBox"请在“绿化面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(5).SetFocustxtFields(5).SelLength=Len(txtFields(5))txtFields(5).SelStart=0EndIfIfNotIsNumeric(txtFields(6).Text)And(txtFields(6).Text<>"")ThenMsgBox"请在“楼房数量”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(6).SetFocustxtFields(6).SelLength=Len(txtFields(6))txtFields(6).SelStart=0EndIfIfNotIsDate(txtFields(7).Text)And(txtFields(7).Text<>"")ThenMsgBox"请在“开发日期”中输入日期yyyy-mm-dd",vbExclamation+vbOKOnly,pTitletxtFields(7).SetFocustxtFields(7).SelLength=Len(txtFields(6))txtFields(7).SelStart=0EndIfEndSubPrivateSubupdateCommand_Click()DimtxtSQLAsStringDimMsgTextAsStringDimmrccAsADODB.RecordsetIfNotTesttxt(txtFields(0).Text)ThenMsgBox"请输入楼盘名称！",vbOKOnly+vbExclamation,"警告"txtFields(0).SetFocusExitSubEndIftxtSQL="select*from楼盘信息where楼盘名称='"&Trim(txtFields(0).Text)&"'"Setmrcc=ExecuteSQL(txtSQL,MsgText)Ifmrcc.EOF=FalseThenMsgBox"楼盘名称反复，请重新输入！",vbOKOnly+vbExclamation,"警告"mrcc.ClosetxtFields(0).SetFocusElsemrcc.AddNewmrcc.Fields(0)=Trim(txtFields(0).Text)mrcc.Fields(1)=Val(txtFields(1).Text)mrcc.Fields(2)=Val(txtFields(2).Text)mrcc.Fields(3)=Val(txtFields(3).Text)mrcc.Fields(4)=Val(txtFields(4).Text)mrcc.Fields(5)=Val(txtFields(5).Text)mrcc.Fields(6)=Val(txtFields(6).Text)mrcc.Fields(7)=CDate(txtFields(7).Text)mrcc.Fields(8)=Trim(txtFields(8).Text)mrcc.UpdateMsgBox"楼盘信息添加成功！",vbOKOnly+vbExclamation,"添加楼盘信息"mrcc.CloseEndIfEndSub编辑楼盘管理信息模块代码设计：OptionExplicitDimmrcAsADODB.RecordsetDimmyBookmarkAsVariantDimmccleanAsBooleanPrivateSubcancelCommand_Click()UnloadMeEndSubPrivateSubdeleteCommand_Click()myBookmark=mrc.BookmarkIfMsgBox("是否删除当前记录？",vbOKCancel,"删除当前记录")=vbOKThenmrc.MoveNextIfmrc.EOFThenmrc.MoveFirstmyBookmark=mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark=myBookmarkCallviewDataElsemyBookmark=mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark=myBookmarkCallviewDataEndIfElsemrc.Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubeditCommand_Click()mcclean=FalseFrame2.Enabled=FalsefirstCommand.Enabled=FalsepreviousCommand.Enabled=FalsenextCommand.Enabled=FalselastCommand.Enabled=FalseDimiAsIntegerFori=1To8txtFields(i).Enabled=TrueNextmyBookmark=mrc.BookmarkEndSubPrivateSubfirstCommand_Click()mrc.MoveFirstCallviewDataEndSubPrivateSubForm_Load()DimtxtSQLAsStringDimMsgTextAsStringtxtSQL="select*from楼盘信息"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.MoveFirstCallviewDatamyBookmark=mrc.Bookmarkmcclean=TrueDimiAsIntegerFori=0To8txtFields(i).Enabled=FalseNextEndSubPublicSubviewData()DimiAsIntegerFori=0To8txtFields(i).Text=mrc.Fields(i)NextEndSubPrivateSublastCommand_Click()mrc.MoveLastCallviewDataEndSubPrivateSubnextCommand_Click()mrc.MoveNextIfmrc.EOFThenmrc.MoveFirstEndIfCallviewDataEndSubPrivateSubpreviousCommand_Click()mrc.MovePreviousIfmrc.BOFThenmrc.MoveLastEndIfCallviewDataEndSubPrivateSubtxtFields_Change(IndexAsInteger)EndSubPrivateSubupdateCommand_Click()IfmccleanThenMsgBox"请先修改楼盘信息",vbOKOnly+vbExclamation,"警告"ExitSubEndIfmrc.Fields(1)=Val(txtFields(1).Text)mrc.Fields(2)=Val(txtFields(2).Text)mrc.Fields(3)=Val(txtFields(3).Text)mrc.Fields(4)=Val(txtFields(4).Text)mrc.Fields(5)=Val(txtFields(5).Text)mrc.Fields(6)=Val(txtFields(6).Text)mrc.Fields(7)=CDate(txtFields(7).Text)mrc.Fields(8)=Trim(txtFields(8).Text)mrc.UpdateMsgBox"楼盘信息更新成功！",vbOKOnly+vbExclamation,"更新楼盘信息"mrc.Bookmark=myBookmarkCallviewDataFrame2.Enabled=TruefirstCommand.Enabled=TruepreviousCommand.Enabled=TruenextCommand.Enabled=TruelastCommand.Enabled=TrueDimiAsIntegerFori=0To8txtFields(i).Enabled=FalseNextmcclean=TrueEndSub查询楼盘管理信息模块代码设计：PrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubcmdInquire_Click()DimtxtSQLAsStringDimMsgTextAsStringDimdd(4)AsBooleanDimmrcAsADODB.RecordsettxtSQL="select*from楼盘信息where"IfOpName.ValueThenIfTrim(txtName.Text)=""ThensMeg="楼盘名称不能为空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtName.SetFocusExitSubtxtSQL=txtSQL&"楼盘名称='"&Trim(txtName.Text)&"'"EndIfEndIfIfOpDate.ValueThenIfTrim(txtDate.Text)=""ThensMeg="开发日期不能为空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtDate.SetFocusExitSubElsetxtSQL=txtSQL&"开发日期='"&Trim(txtDate.Text)&"'"EndIfEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)SetDataGrid1.DataSource=mrcEndSub添加房型管理信息模块代码设计：OptionExplicitPrivateSubcancelCommand_Click()UnloadMeEndSubPrivateSubtxtfields_LostFocus(IndexAsInteger)DimpTitleAsStringpTitle="信息框"IfNotIsNumeric(txtFields(1).Text)And(txtFields(1).Text<>"")ThenMsgBox"请在“建筑面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(1).SetFocustxtFields(1).SelLength=Len(txtFields(1))txtFields(1).SelStart=0EndIfIfNotIsNumeric(txtFields(2).Text)And(txtFields(2).Text<>"")ThenMsgBox"请在“使用面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(2).SetFocustxtFields(2).SelLength=Len(txtFields(2))txtFields(2).SelStart=0EndIfIfNotIsNumeric(txtFields(3).Text)And(txtFields(3).Text<>"")ThenMsgBox"请在“阳台面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(3).SetFocustxtFields(3).SelLength=Len(txtFields(3))txtFields(3).SelStart=0EndIfIfNotIsNumeric(txtFields(4).Text)And(txtFields(4).Text<>"")ThenMsgBox"请在“房层高度”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(4).SetFocustxtFields(4).SelLength=Len(txtFields(5))txtFields(4).SelStart=0EndIfIfNotIsNumeric(txtFields(5).Text)And(txtFields(5).Text<>"")ThenMsgBox"请在“销售面积”中输入数字",vbExclamation+vbOKOnly,pTitletxtFields(5).SetFocustxtFields(5).SelLength=Len(txtFields(6))txtFields(5).SelStart=0EndIfEndSubPrivateSubupdateCommand_Click()DimtxtSQLAsStringDimMsgTextAsStringDimmrccAsADODB.RecordsetIfNotTesttxt(txtFields(0).Text)ThenMsgBox"请输入房型名称！",vbOKOnly+vbExclamation,"警告"txtFields(0).SetFocusExitSubEndIftxtSQL="select*from房型信息where房型名称='"&Trim(txtFields(0).Text)&"'"Setmrcc=ExecuteSQL(txtSQL,MsgText)Ifmrcc.EOF=FalseThenMsgBox"房型名称反复，请重新输入！",vbOKOnly+vbExclamation,"警告"mrcc.ClosetxtFields(0).SetFocusElsemrcc.AddNewmrcc.Fields(0)=Trim(txtFields(0).Text)mrcc.Fields(1)=Val(txtFields(1).Text)mrcc.Fields(2)=Val(txtFields(2).Text)mrcc.Fields(3)=Val(txtFields(3).Text)mrcc.Fields(4)=Val(txtFields(4).Text)mrcc.Fields(5)=Val(txtFields(5).Text)mrcc.UpdateMsgBox"房型信息添加成功！",vbOKOnly+vbExclamation,"添加房型信息"mrcc.CloseEndIfEndSub编辑房型管理信息模块代码设计：OptionExplicitDimmrcAsADODB.RecordsetDimmyBookmarkAsVariantDimmccleanAsBooleanPrivateSubcancelCommand_Click()UnloadMeEndSubPrivateSubdeleteCommand_Click()myBookmark=mrc.BookmarkIfMsgBox("是否删除当前记录？",vbOKCancel,"删除当前记录")=vbOKThenmrc.MoveNextIfmrc.EOFThenmrc.MoveFirstmyBookmark=mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark=myBookmarkCallviewDataElsemyBookmark=mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark=myBookmarkCallviewDataEndIfElsemrc.Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubeditCommand_Click()mcclean=FalseFrame2.Enabled=FalsefirstCommand.Enabled=FalsepreviousCommand.Enabled=FalsenextCommand.Enabled=FalselastCommand.Enabled=FalseDimiAsIntegerFori=1To6txtFields(i).Enabled=TrueNextmyBookmark=mrc.BookmarkEndSubPrivateSubfirstCommand_Click()mrc.MoveFirstCallviewDataEndSubPrivateSubForm_Load()DimtxtSQLAsStringDimMsgTextAsStringtxtSQL="select*from房型信息"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.MoveFirstCallviewDatamyBookmark=mrc.Bookmarkmcclean=TrueDimiAsIntegerFori=0To6txtFields(i).Enabled=FalseNextEndSubPublicSubviewData()DimiAsIntegerFori=0To6txtFields(i).Text=mrc.Fields(i)NextEndSubPrivateSublastCommand_Click()mrc.MoveLastCallviewDataEndSubPrivateSubnextCommand_Click()mrc.MoveNextIfmrc.EOFThenmrc.MoveFirstEndIfCallviewDataEndSubPrivateSubpreviousCommand_Click()mrc.MovePreviousIfmrc.BOFThenmrc.MoveLastEndIfCallviewData