二手房销售文档

1、二手房销售文档«软件工程系统设计报告题目:二手房销售治理信息系统1引言32需求分析43系统设计界而设计84数据库设计105功能和界面设计148系统设计197测试318总结31参考文献31二手房销售治理信息系统1引言1.1 选题背景：一直以来，房地产市场都保持着繁荣的局面。近几年，不仅新楼盘销售在盛，二手房 市场也是在不断升温，相关需求也不断增加，为此，在这介绍一下二手房销售设计开发 方法。房地产经纪公司的二手房销售治理业务流程能够简单的描述为：（1） 搜集房源信息并记录，验收房屋实际情形是否与房主所汇报房源信息相符， 再进行相应记录。（2） 客户到房地产经纪公司提出购房要求，经确定购

2、房区域后，由房地产经纪公 司委派该区域的职员查找符合条件的全部的全部房源信息，经与客户协商后 到实地看房。（3） 看房之前需要签订看房协议，客户保证可不能越过该房地产经纪公司私自和 房主发生买卖行为，否那么也要交纳相应的中介费用。（4） 假如客户选定某个房屋，那么由该公司职员引导，并由专人负责客户与房地 产房地产经纪公司签订房屋居间服务合同，交纳中介费和指定金额的定金， 同时客户需要承诺在规定的期限内缴纳剩余房款和彳兑金，否那么定为违约， 定金作为房地产经纪公司的补偿。（5） 办理完全产证的更名等一切手续，并由客户验收后，由房地产经纪公司将房 款交给房主。房屋买卖交易终止。而对大量的二手房信息

3、和交易活动，传统的手工治理专门复杂。工作效率低下， 数据纷乱且难以发觉其中的规律。对各个房地产经纪公司来说，二手房销售治理系统， 辅助治理销售，是提高工作销售的必经之路。而我们也能够得到一样的房产中介公司的 二手房销售治理业务模型。1.2 系统目标：本系统是以一样的房地产经纪公司的销售治理业务为依靠，围绕房屋销售的业务流 程，设计并开发一个二手房销售治理信息系统，针对公司不治理层的职员，提供一个互动 式的二手房销售治理平台。其系统目标和功能要求如下：1、系统目标：1）将销售治理的理论知识与一样房地产经纪公司的销售治理业务相结合，使销 售治理业务流程更加合理。2）提供方便、灵活的操作3）节约成本

4、，提高效率4）对系统进行权限治理2、功能目标：5）满足二手房销售房的销售数据需求，能够方便的进行房屋数据的录入和多条 件的查询。6）与手工治理相比，要添加基础数据的治理和用户权限的治理。7）居间服务合同的结构要严格遵守原有的业务，同时要求数据准确、安全，同 时准确的记录时刻。8）针对不同角色，将系统用户分为系统治理员、经纪人和合同负责人三级权限。 系统治理员能够享有系统的全部权限:经纪人仅享有本人所负责的房屋信息 的更新权和全部房屋信息的查询权；合同负责人享有房屋居间服务合同的更 新权和全部房屋信息的查询权：公司的高层治理者拥有修通治理员权限。9）为保证系统，关于可能发生的问题的输入要进行检验

5、，同时要给出合理的提 示信息。2需求分析2.1概述新信息系统的建立是在现行业务基础上通过改建或重建而得到的。因此，在进行新系统 的规划、分析和设计工作之前，必须对现行系统做全面、充分的调查研究和分析，在此基础 上建立企业模型。业务模型是对业务结构和业务活动本质、概括的认识，可用 ''业务范畴-业 务过程-具体业务处理"如此的层次结构来对其进行描述。业务模型的建立也能够分为3个时 期。1）现型业务的调查和分析。2）提出一个表示全部业务的模型。3）扩展上述模型，使它能表示出各项具体的业务活动，最终确定为业务模型八依照对二手房销售治理的业务流程的调查和分析，得到一样的房产中

6、介公司的二手的二 手房销售治理业务模型，如图6-1所示。表6-1二手房销售治理业务模型业务范畴业务过程具体业务处理二手房 销售 治理职员差不多信息治 理登录各级销售人员的差不多信息 更新和爱护职员的差不多信息 提供分域的职员信息检索功能职员销售信息治理录入与房屋销售相关的职员信息，包括责任区域等提供检索功能对职员数据销售业绩进行统计房源数据治理搜集房源信息并记录验收房屋实际情形是否与房主所报房源信息相符更新和爱护房源数据随时按各种要求查询房源数据客户看房治理客户提出购房要求经确定购房区域后，由该区域的职员查找符合条件的全部房源 签订看房协议，客户要保证可不能越过该房地产经纪公司私自 与房主发生

7、买卖行为，否那么也要缴纳相应的中介费用房屋居间服务 合同治理客户选定某房屋，那么由该职员引导，并由专人负责客户与房 地产经纪公司签订房屋居间服务合同客户交纳中介费和指定金额的定金，并需要承诺在规定的缴纳 剩余房款和税金，否那么视为违约，定金作为房地产经纪公司的补 偿已售房信息治理买卖缴纳全部房款办理过户房地产经纪公司将房款交给房主登记已售房屋信息删除相应的房源数据销售数据统计2.2数据分析在建立了较为完整、稳固的业务模型之后，需要依照模型进行数据分析。差不多方法 是按照业务过程进行数据分类和组织。数据分类后，进行信息体系结构的设计：即结合 业务过程与数据类，建立系统的功能/数据类矩阵（C-U矩

8、阵数据分类得到的结果将用 于系统分析和系统设计时期。依照表6-1的业务模型，得到本系统涉及到得数据类：职员差不多信息、职员销售信 思、房源信息数据、客房看房信息、房屋居间服务合同信息、已售房信息。建立系统C-U 矩阵，如表6-2所示。据类业务过总、职员差不多信 息职员销售信息房源信息客户看房信息服务合同信息已售房信息职员差不多 信息治理C职员错售信息治理UC房源数据 治理UC客户看房 治理UC房屋居间服 务合同治理UC已售房信息 治理UUC23系统分析系统分析的依据是系统规划时期建立的业务模型和c-u矩阵，并在现有资料的基础 上深入的调查研究，进行功能分析，最终确定新系统的逻辑功能结构。2.4

9、逻辑功能结构1、数据流程图并非所有的业务处理都能由运算机来完成，因此围绕着信息处理业务，依照业务流 程图，必须弄清晰系统需要产生什么样的信息输出。为了得到如此的输出应该对什 么数据进行处理，输入数据向输出数据所进行的转换过程是什么？而那个过程是进 行数据抽取，建立数据流程图的过程。数据流程图描述了新系统的全部的数据处理 逻辑和数据的流淌过程，构成了新系统逻辑模型。销售 工具员工销存 数据清单:手房销隹管理系统业务流程图依照业务流程图，去掉其中信息系统不能完成的和本系统处理以外的环节，并将业务处 理比较集中的功能作为一个高层模块，从而得到本系统高层数据流程图，如图6-2所示。高层数据流程图中有些

10、功能不可再分，在进一步的设计中能够将其作为一个单独的模块: 而有些功能比较复杂，应进一步再分解，明白每个子模块的功能、独立，不可再分。本系统 的高层数据流程图中各个模块的处理功能比较集中，均可作为一个单独的子模块。对比数据流程图和业务流程图不难看出，从业务过程（业务流程图）抽取数据流的过程 中，有些纯人工i的操作在数据流程图中被省略，如买方交纳全部房款的过程：有些环行不属 于本系统的处理范畴要去掉，如办理过户的过程；有些初期调研没有得到的常规业务要增加 到数据流程图中，如提供一些报表功能等。综合一些报表功能等。综合以上各个步骤的分析, 最终得到了用数据流程图表达的新系统的逻辑功能结构。历源所仃

11、齐 （员工）二手房销售瞥理系统数据流程围2、数据字典数据流程图并不能完整地描述软件需求，因为它没有描述数据流程图上各个成分的具体 内容。实际应用中，数据流程图往往与数据字典配套使用。数据字典实在数据流程图的基础 上，进一步定义和描述流程图上各个成分的工具，它包括对一切动态数据可在系统内外流 淌的数据流）和静态数据（不参与流淌的数据储备）的数据结构和相互关系等的说明，是数 据分析和数据治理的重要工具。数据字典中常常包括对数据元素、数据结构、数据流的来源 去处、数据储备、处理功能和外部实体的说明。本系统建立数据字典中，对处理功能的说明如下：1）权限设定系统治理员-一一系统的全部权限经纪人仅具有本人

12、所负责区域的房屋信息的更新权和全部房屋信息的查询权 合同责任人一一房屋居间服务合同的更新权和全部房屋信息的查询权 公司高层治理者一一系统治理员权限2）职员（销售）信息治理：录入与房屋销售相关的职员信息，包括责任区域等。3）房源数据治理：搜集房源信息并记录。验收房屋实际情形是否与房主所报房源 信息一致，更新和爱护房源数据，并随时按各种要求查i旬房源数据。4）客户看房治理：客户提出购房要求。确定购房区域后，由该区域的职员查找符 合条件的全部房源信息，并与客户签订看房协议。5）房屋居间服务合同治理：客户与房地产经纪公司签订房屋居间服务合同。交纳中 介费和指定金额的定金，并需要承诺在规定期限内交纳剩余

13、房款和税金。6）已售房款信息治理：登记已售房屋信息：删除相应的房源数据：进行售房数据统 计。3系统设计1.1 系统总体设计：依据系统分析时期得到的数据流程图和数据字典，以数据流程图中的处理功能为动身 点，抽取各个要紧的处理功能建立模块结构图。从数据流程图转化为系统模块结构时， 有3个问题需要注意：1、模块结构图的层次要对应于数据流程图的层次2、添加模块。抛开具体业务本身，考虑到信息安全问题，往往要添加登录模块，登 录成功的用户才承诺使用系统：为了方便系统的治理和爱护，要添加系统治理模块，用 以治理系统用户的相关信息。3、由人工操作到运算机世界的转化过程中，为了便于运算机处理数据，往往需要对 尸

14、体添加唯独标识（字符），如对学生信息的处理往往加上学号来标识学生，那个过程叫 做编码。编码需要用单独的数据治理界而来治理，因此一样的应用程序都会有基础数据 治理模块，同时只承诺系统治理员使用。以下图为本系统的模块结构图系统模块结构图3.1.2 功能模块1、登录模块：用于输入用户名和密码，假如用户名和密码正确，进入主操纵平台；否那么提示用户明 确的错误信息。2、系统治理模块：用户治理子模块：用于系统治理员进行用户进行用户权限设置和用户的扫瞄，包括用户 密码和用户权限的更换，其他用户只能扫瞄。修改密码子模块：保证任何用户能够修改自己的密码。3、基础数据治理模块：用于设置和爱护区域、房屋、楼盘的编码

15、与名称的对应关系。系统治理员有权进行信息 更新，其他用户只能扫瞄。4、公司内部信息治理模块：职员数据治理子模块：用于设置和治理与房屋销售相关的职员信息数据，包括其差不多 信息和责任区域，并向全部职员提供查询功能。系统治理员能够进行数据的添加、删除和修 改。房源数据治理子模块：用于设置和治理房源数据，并向全部职员提供查询功能。系统治理 员和负责本区域的精进人能够进行数据的添加、删除与修改。5、售房信息治理模块：客户看房记录子模块：功能是记录客户看房信息，用于检查是否客户越过该房地产经纪 公司私自和房主发生买卖行为。系统治理员和负责本区域的经纪人能够进行数据的添加、删 除、修改。房屋居间服务合同治

16、理子模块：用于录入和爱护房屋居间服务合同，并生成报表。由合 同责任人即使进行合同数据的校验、更新和取消。系统治理员和合同责任人能够进行数据的 添加、删除和修改。然而，当确认此次房屋交易差不多完成时，任何人不能进行更新。已售房屋信息治理子模块：当房屋买卖交易终止后，意味着该房屋买卖差不多完成。由 相应的合同责任人将客户购房信息进行记录。并由系统自动将其从房源数据中删除，并向全 部职员提供查询功能。系统治理员和合同责任人能够进行数据的添加、删除和修改。1.3 编码设计编码是通过一些便于运算机或人来识别和处理的符号来表示各类信息。编码方式有专门 多，常用的是层次码和顺序码。层次码是指把编码对象分类，

17、用不同的码位来表示不同类别 进行编码。顺序是按排列顺序对编码对象进行编码。1.4 系统详细设计总体设计搭建了系统的功能框架，建立了系统数据库结构。在总体设计的基础上，需要 对每个模块的输入数据、需要完成的处理逻辑和输出数据进行详细的设计和描述 3.5系统公共文件依照系统模块结构图，抽取系统中多个模块的相同的子功能来建立系统的公共特点，能 够做到减少总代码量，幸免重复开发，保持系统实现风格统一，以及增加可修改性等特点。 本系统的公共文件包含以下几个子功能：1)主体框架2)添加模块3)定义用户名、用户类型、职员编号以及登陆成功的标识为系统公共变量定义4) Main (系统启动)函数。5) Conn

18、ect String函数。该函数用于设置数据库连接字符串函数。本系统数据库用户名 和密码设置为sa 06) Execute SQL函数。该函数用于设置SQL语句的执行函数，并创建到数据源的连接， 执行SQL语句。假如SQL语句成功执行，返回值为Ture,结果储存；否那么返回False 07) DB Exist函数。该函数用于判定数据库中是否存在指定记录，返回记录数：否那么， 返回值为0。8) TxtlsNull函数。该函数用于判定输入到TextBox的内容是否为空，参数为TextBox 实例。9) Is Over String Len函数。干函数用于判定输入内容是否超过给定值，参数为需要处理

19、的字符串和给定长度值。其处理流程为：判定字符串的长度不超过给定值时返回值为 Ture.结果储存；否那么返回False .10) View Data函数。该函数用于执行SQL语句，当检索到的记录数不为。时，将相应 的数据集设置为Datagrid的数据源，并返回记录数：否那么给出提示信息，返回值为 0。ID ISEquelLen函数。该函数用于判定输入到TextBox的内容是否为给定值。12) ComoboData函数。它是为ComoboBox赋值函数。其处理流程为：从数据库中检索 记录，当检索记录不为。时，将名称字段添加到ComoboBox的显示列表中，同时将 编号字段作为相应名称的索引值。13

20、) ) ComoboHour函数。该函数是为小时ComoboBox赋值函数，参数为ComoboBox实 例。其处理流程为：采纳24小时/天的计时方式，从1到24,通过循环在ComoboBox 里添加小时数字。ComoboBox里数位为2位。14) ComoboNdin函数。该函数是为分钟ComoboBox赋值函数，参数为ComoboBox实 例。其处理流程为：从1到60,通过循环在ComoboBox里添加分钟数字。ComoboBox 里数位为2位。15) ComoboYear函数。该函数是为年ComoboBox赋值函数，参数为ComoboBox名称。 其处理流程为：从1990到2600,通过循

21、环在ComoboBox里添加年份数字。16) ComoboMonth函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名 称。其处理流程为：从1到12,通过循环在ComoboBox里添加月份数字。ComoboBox 里数位为2位。17) ComoboDate函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名称。 其其处理流程为：从1到31,通过循环在ComoboBox里添加日期数字。ComoboBox 里数位为2位。18) setCboDataReg函数。该函数用于区域名ComoboBox赋值，参数为ComoboBox实 例。其处理流程为：检索区域编码

22、信息表，调用ComoboData函数将区域名称添加到 责任区域ComoboBox列表中。19) setCboDataltem函数。它用于为楼盘名ComoboBox赋值，参数为ComoboBox实例。 其处理流程为：检索楼盘编码信息表，调用ComoboData函数将楼盘名称添加到楼盘 区域ComoboBox列表中。20) setCboDataStru函数,该函数用于为房型名ComoboBox赋值，参数为ComoboBox 实例。其处理流程为：检索房型编码信息表，调用ComoboData函数将楼盘名称添加 到房型区域ComoboBox列表中。21) getCboRegld函数。该函数用于猎取名称C

23、omoboBox中名称所对应的编号，参数为 ComoboBox实例和储备编号值的变量。使用该函数的前提是在为ComoboBox下拉列 表赋值时，差不多将与名称对应的编号设置为下拉列表项目的索引值(本系统使用 ComoboBox即可)。处理流程：判定ComoboBox当前文本内容，假如为空，储备编 号值的变量值为下拉列表项目的索引值。然后判定储备编号值的变量长度是否为该字 段在数据库中的长度值n,用select case语句将任何长度的变量设置为n位(不足位 的前而补0)022) setCboData函数。该函数用于为房源编号ComoboBox赋值，参数为ComoboBox实 例。其处理流程为：

24、检索房源信息表，将房源编号添加到对应的ComoboBox下拉列 表中。23) setLabelData函数。该函数用于为窗体上的Label控件的Caption属性赋值。参数值 为ComoboBox实例和Label实例。其处理流程为：以ComoboBox实例的文本内容为关犍字, 检索房源信息表，将检索到的房源名称赋给对应的label实例中的Caption属性。4数据库设计数据库设计是在DBMS的支持下，按照管用的要求设计合理的数据库物理结构。本系统 采纳SQL Server 2000数据库，依照系统分析和模块设计中得到的功能和相应的数据储备，本 系统数据库的数据项和数据库如下。1、数据库数据库名

25、称：二手房销售信息库标识：DB House2、数据库表结构：1）表名：用户信息表标识：tb User数据来源：用户模块的录入列名数据类型长度允许空Useridchar10UserPasswordchar8UserKinich AT20用户信息表2）表名：区域编码信息表标识：tb Region数据来源：基础数据治理模块的录入列名数据类型长度|允许空Regidchar5var chir30区域编码信息表3）表名：楼盘编码信息表标识：tb Item数据来源：基础数据治理模块的录入4）表名：职员销售信息表标识：tb Sale Man数据来源：公司内部信息治理模块的录入列名数据类型长度允许空Salehl

26、anldchar3Salehlanilajnevar char30Gendervar char2Posi tionvar char107Telvar char157Regidvar char5V职员销售信息表5）表名：房源信息表标识：tb House数据来源：公司内部信息治理模块的录入列名数据类型长度允许空I螃Houseldchar8HouseNmewar char30Regid.char5Item工dchar57ItemYerchar4VItemCopy ar char30Struldchar5VAreadecimal97Floorwar char2VAllFloorwar char2VUn

27、itvarehir2CarAr eadecimal97Schoolvarchar30VBuswar char30Streetvarchar307Chamb erwar char30VDoorffumberchar1VSquervarchar30VEstvarchar307Fitmentvarchar6VServi ceFeemoney8V房源信息表6）表名：客户看房记录标识：lb House Pre数据来源：售房信息治理模块录入列名数据类型长度允许空?Houseldchar8Housellainevar char30Vi ewTimeehar8Vi ewYMDchar107Cl i entN-

28、umvar char30ClientlDCar dchar18客户看房记录7）表名：房屋居间服务合同表标识：tb Contract数据来源：售房信息治理模块录入列名数据类型长度允许空Houseldchar8Houseffamevarchar30Si gnDatechr10SaleMoneymoney87rar char307money8Me diMoneymoney8Pr eMoiteymoney83AreaAecimal97Belong：varchar8VIC ontactrar char507Heivarchar207YIDCardvarchar20JConta.ctvarehar20JT

29、elvarchar20JI DC ar dvarchar20HimeLimitdatetime87JTimeLimitdatetime8MPresentvarchar503Jlelegatevarehar303Y Aelegatevarchar30V房屋居间服务合同表8）表名：己售房屋记录表标识：tb House Sale数据来源：售房信息治理模块录入列名数据类型长度允许空1HouseIdchr8KouseNmevarchar30Regidchar5MItemldchr5PItemYearchr47It-emC oprar char30VStruldchar5VArealecimal9VFlo

30、orvarchar2VAllFloorvarchar2VUnitvarehar2VCarAr eadecimal9VSchoolvarchar30VBusxrarchar30MStreetvarchar307Chjnb ervarchar30VDoorffumberchr1Squervarchar30VEstvarchar30PFi tmentvarchar6VServimoney8V己售房屋记录表5系统模块与界面设计1、人机交互设计*二手房精售管理系统登录冈用户名孑尔Q） ： | cboLogin密码9： I取消确定2、用户登录模块的IPO过程输入：用户名和密码。处理：1）登录窗体启动。2）

31、输入用户名和密码。3）假如用户名或密码为空，处理终止，并进行错误信息提示。4）以输入的用户名作为关键字，检索用户信息表（tb User）的用户名和密码字段。5）通过检索结果判定该用户名是否存在，假如用户名不存在，处理终止，并进行错误信 息提示。6）假如用户名存在，比较检索到的密码字段和输入的密码是否相等。假如不相等那么处 理终止，并进行错误信息提示。7）假如输入的密码正确，将该用户名和用户类型分别储存到全局变量guserName和 guserkind 中。8）进入主操纵台。输出：主操纵平台。5.1主操纵平台的设计系统主控平台采纳简单、直观的布局，通过菜单实现对系统各个模块的调用和各个窗体 的现

32、实。设置状态栏用来显示当前日期、时刻和当前用户信息。1、人机交互设计2、主操纵平分的功能设计1）菜单导航功能：系统治理：用户治理、修改密码。基础数据库治理。公司内部信息治理：职员数据治理、房源数据治理。售房信息治理：客户看房记录、房屋居间服务合同治理和已售房屋记录。职员销售业绩分析.销售额分析。退出。2）对当前用户、系统时刻的状态显示3）给出主操纵台的提示信息，如标题。4）判定当前用户类型，对该类型用户的权限进行记录。5）点击各个菜单或子菜单时，显示相应的界面。5.2 系统治理模块系统治理模块一样包括用户治理和修改密码两个子模块。用户治理模块只有系统治理员 能够使用，一样用户不能使用。修改密码

33、模块面向任何用户，提供修改登录密码的功能。用 户类型有系统治理员、经纪人和合同负责人。5.3 基础数据治理模块1、人机交互设计3、基础数据治理模块的IPO过程输入：区域、楼盘或者房型的编号和名称。处理：1）当用户类型为系统治理员时该菜单可用。2）基础数据治理窗体启动。3）从区域编码信息表中读取全部记录，显示在表格控件dgBasicData中。4）当鼠标单击标签，标签改变时，从对应的数据庠表中读取全部记录，显示在表格控件 dgbasicdata 中。5）各级系统治理员的选择（添加、修改和删除）进行相应的处理5.4 公司内部信息治理模块公司内部信息治理模块治理包括职员数据治理和房源数据治理两个子模

34、块，其中每个子模 块都包含两个界面：数据显示、操作界而和添加、修改数据界面1、人机交互设计（2）职员数据治理子模块的IPO过程输入：职员编码、职员姓名、性别、职务、联系 、区域名称。处理：当用户类型为系统治理员时该菜单可用。职员数据治理窗体启动。从职员信息表中读取全部记录，显示在表格控件dgemp中。依照系统治理员的选择（添加、修改、删除）进行相应处理。2、房源数据子模块（1） 人机交互设计（2）房源数据治理子模块的IPO过程输入：房源数据、房源名称、所属区域名称、楼盘名称、建筑年代、建筑单位、户型名 称、建筑而积、楼层、总楼层、单元、车库而积、学校、公交线路、临近街道、小区会所、 梯户、广场

35、、基础设施、装修状况、物业治理费、权属、售价和销售状态。其中包括专门多模块，添加模块也在其中5.5 售房信息治理模块售房信息治理治理模块包括客户看房记录、房屋居间服务合同治理和已销售信息治理3个 子模块。1、客户看房记录子模块客户看房记录子模块的IPO过程输入：房源编号、房源名称、看房时刻、看房年月日、客户人数、客户身份证号。 同时添加客户看房记录2、房屋居间合同子模块（1） 人机交互设计<2） 房屋居间服务和同居间治理子模块的IPO过程输入：房源编号、房源名称、签订日期、甲方实际售价、税率说明、税金总计、中 介费、定金、建筑面积、权属、乙方联系方式、乙方身份证号、甲方联系 、甲方联系方

36、式、 乙方房款交全最后期限、甲方交房最后期限、甲方赠物记录、甲方代表、乙方代表和丙方。3、已售房屋信息治理子模块（1） 人际交互界面（2）已售房屋信息治理子模块的IPO过程输入：房源编号、房源名称、建筑面积、实际销售日期等6系统实施6.1 数据的访问在数据库的操作中，考虑到操作数据库时假如利用数据绑定，那么会锁定记录表，使得表 的访问为独占式，而假如两个终端同时访问那个表，那么容易造成死锁。因此用SQL直截了 当进行数据库的访问是比较适合的，即使偶然发生并发操作，对数据库的修改不成功，也能 够连续储存。同时由于考虑数据库中的数据属于动态的、变化的，因此，在数据库德操纵过 程中，大量使用了 SQ

37、L语句进行对数据库的操作。具体来说，包括数据库的插入、修改、删 除和查询。1、查询操作txtSql = Mselect Houseld as 房源编号,HouseName as 房源名称,ViewTime as 看房时刻,”txtSql = txtSql + MViewYMD as 看房年月日,ClientNum as 客户人数,ClientIDCard as 客户 身份证号”If txtClientIDCard.Text = ,H, ThentxtSql = txtSql + " from tbHousePre order by Houseld "ElsetxtSql =

38、 txtSql + *' from tbHousePre where ClientIDCard=Mf + txtClientIDCard.Text + order by Houseld,12、修改操作txtSql = "update tbHousePre set HouseName=H, + Trim(lblName.Caption) +txtSql = txtSql + " ClientNum="M + Trim(txtClientNuni.Text) 十 二”txtSql = txtSql + "ClientIDCard" + Tr

39、im(txtClientlDCard.Text) +txtSql = txtSql + u where Houseld" + Trim(cboId.Text) + H,MtxtSql = txtSql + ” and ViewYMD=,H + Trim(strViewYMD) +txtSql = txtSql + ” and ViewTime='H + Trim(strViewTime) +result = ExecuteSQUtxtSqL rstView. True)MsgBox ”修改成功”,vbOKOnly + vbExclamation, “警告”3、添加操作txtS

40、ql = txtSql + Hvalues(m + Trim(cboId.Text) +txtSql = txtSql + Trim(lblName.Caption) + 二”'txtSql = txtSql + strViewTime + “txtSql = txtSql + strViewYMD + 二txtSql = txtSql + Trim(txtClientNum.Text) +txtSql = txtSql + Trim(txtClientlDCard.Text) +result = ExecuteSQUtxtSqL rstView, Tnic)MsgBox ”客户看房记

41、录添加成功”,vbOKOnly + vbExclamation."警告”4、删除操作txtSql = "delete from tbSaleMan where SaleManId=,M + strSaleManld +results = ExecuteSQL(txtSql, rstEmp. True)MsgBox ”删除成功! ”, vbOKOnly + vbExclamation, "警告”6.2 连卷数据库Public Function ConnectStringO As StringConnectString = MFileDSN=dbhouse.dsn:U

42、ID=sa:PWD=saMEnd Function6.3 系统模块'*系统公共变量定义'*Option ExplicitPublic gUserName As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean*'过程名：Main脱明：系统启动函数'参数：无返回值：无'*本*Sub Main()启动登陆窗体Dim fLogin As New frmLoginfLogin.Show vbModalIf Not gLoginSucceeded ThenMsgBox ”系统启动失败

43、，请重试 vbOKOnly + vbExclamation. "警告”End IfUnload fLoginEnd Sub6.4 程序实现关键代码房屋居间合同治理'*嘀体公共变量定义'*Option ExplicitPrivate txtSql As String Private result As Integer Public ContractFlag As String Public strHouseld As String Public strHouseName As String Public strSignDate As String Public strS

44、aleMoney As String Public strTaxDes As String Public strTax As StringSQL语句,datagrid中的显示记录数'判定添加删除标志'房源编号'房源名称'签订日期'甲方实际售价'税率说明'税金总计'中介费'定金'建筑面积'权属'乙方联系方式'乙方联系'乙方身份证号'甲方联系方式甲方联系甲方身份证号Public strMediMoney As String Public strPreMoney As String

45、 Public strArea As String Public strBelong As String Public strYContact As Strine Public strYTel As String Public strYIDCard As String Public strJContact As String Public strJTel As String Public strJIDCard As StrinePublic strYTimeLimit As String Z方房款交全最后期限Public strJTimeLimit As String 邛方交房最后期限Publ

46、ic strPresent As String卬方赠物记录Public strJdelegate As String邛方代表Public strYdelegate As String '乙方代表Public strBManName As String '丙方Private str As StringPrivate rstContract As ADODB.RecordsetPrivate results As StringPrivate Sub cmdAdd_Click() ContractFlag = "add” frmContractAdd.ShowEnd Sub

47、Private Sub cmdCIear_Click()cboYear.ClearcboMonth.ClearcboDate.ClearCall ComboYear(cboYear)Call ComboMonth(cboMonth)Call ComboDate(cboDate)End SubPrivate Sub cmdDel_Click()Dim blsEditable As BooleanIf Lcn(Trim(strHouseId) = 0 Then检验删除记录是否选定MsgBox ”请点击单元格选择删除的记录！ vbOKOnly + vbExclamation. "警告”El

48、seblsEditable = IsEditable '判定是否能够对合同进行删除If blsEditable = False ThenMsgBox "房屋交易差不多完成，不能进行更新",vbOKOnly + vbExclamation,"警告"Exit SubEnd Ifstr = MsgBox。是否删除当前记录？ ”, vbOKCancelJ删除当前记录“)If str = vbOK ThentxtSql = "delete from tbContractp where HouseId="M + strHouseld +r

49、esults = ExecuteSQL(txtSql, rstContract, True)MsgBox ”删除成功! ”, vbOKOnly + vbExclamation. "警告”txtSql update tbHouse set State='待售'where HouseId=H, + strHouseld + MM,results = ExecuteSQL(txtSql, rstContract, True)End IfEnd IfCall viewDataContractEnd SubPrivate Sub cmdExit_Click() Unload M

50、eEnd SubPrivate Sub cmdModify_Click() Dim blsEditable As BooleanblsEditable = IsEditableIf Trim(strHouseld) = ,H, ThenMsgBox ”请点击单元格选择修改记录”,vbOKOnly + vbExclamation, "警告” Else'判定是否能够对合同进行修改If blsEditable = False ThenMsgBox "房屋交易差不多完成，不能进行更新",vbOKOnly + vbExclaniation,"警告"

51、; Exit SubEnd IfContractFIag = "Modify” frmContractAdd.ShowEnd IfEnd Sub'查询操作Private Sub cmdQuery_Click()txtSql = Mselect Houseld as 房源编号,HouseName as 房源名称,SignDate as 签订日期,”txtSql = txtSql + "SaleMoney as甲方实际售价,TaxDcs as税率说明.Tax as税金总计txtSql = txtSql + MMediMoney as 中介费,PreMoney as 定金

52、,Area as 建筑面积,Belong as 权属,“ txtSql = txtSql + HYContact as乙方联系方式,YTel as乙方联系 .YIDCard as乙方身份证 号JContactas甲方联系方式JtxtSql = txtSql + "JTel as甲方联系 , JIDCard as甲方身份证号.YTimeLimit as乙方房款交 全最后期限,JTimeLimit as甲方交房最后期限,“txtSql = txtSql + "Present as 甲方赠物记录Jdclegate as 甲方代表,Ydelegate as 乙方代 表,BManNa

53、me as 丙方”txtSql = txtSql + H from tbContractp ”IfcboYear.TextoHN ThentxtSql = txtSql + H where SUBSTRING(SignDate, 1,4) = m + cboYear.Text +If cboMonth.Text <> "" ThentxtSql = txtSql + ” and SUBSTRING(SignDatc,62) = H, + cboMonth.Text +End IfIf cboDate.Text <> ThentxtSql = txtSql + ” and SUBSTRING(SignDate,9,2) = m + cboDate