二手房销售文档

1、 软件工程系统设计报告题目： 二手房销售管理信息系统 目 录1引言32 需求分析43 系统设计界面设计84 数据库设计105功能和界面设计146系统设计 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） 为保障系统，对于可能发生的问题的输入要进行检验，同时要给出合理的提示信息。2

5、 需求分析2.1 概述新信息系统的建立是在现行业务基础上经过改建或重建而得到的。因此，在进行新系统的规划、分析和设计工作之前，必须对现行系统做全面、充分的调查研究和分析，在此基础上建立企业模型。业务模型是对业务结构和业务活动本质、概括的认识，可用“业务范围-业务过程-具体业务处理”这样的层次结构来对其进行描述。业务模型的建立也可以分为3个阶段。1）现型业务的调查和分析。2）提出一个表示全部业务的模型。3）扩展上述模型，使它能表示出各项具体的业务活动，最终确定为业务模型。、根据对二手房销售管理的业务流程的调查和分析，得到一般的房产中介公司的二手的二手房销售管理业务模型，如图6-1所示。 表6-1

6、 二手房销售管理业务模型业务范围业务过程具体业务处理二手房销售管理员工基本信息管理登录各级销售人员的基本信息更新和维护员工的基本信息提供分域的员工信息检索功能员工销售信息管理录入与房屋销售相关的员工信息，包括责任区域等提供检索功能对员工数据销售业绩进行统计房源数据管理搜集房源信息并记录验收房屋实际情况是否与房主所报房源信息相符更新和维护房源数据随时按各种要求查询房源数据客户看房管理客户提出购房请求经确定购房区域后，由该区域的员工查找符合条件的全部房源签订看房协议，客户要保证不会越过该房地产经纪公司私自与房主发生买卖行为，否则也要缴纳相应的中介费用房屋居间服务合同管理 客户选定某房屋，则由该员工

7、引导，并由专人负责客户与房地产经纪公司签订房屋居间服务合同 客户交纳中介费和指定金额的定金，并需要承诺在规定的缴纳剩余房款和税金，否则视为违约，定金作为房地产经纪公司的补偿已售房信息管理买卖缴纳全部房款办理过户房地产经纪公司将房款交给房主登记已售房屋信息删除相应的房源数据销售数据统计2.2 数据分析 在建立了较为完整、稳定的业务模型之后，需要根据模型进行数据分析。基本方法是按照业务过程进行数据分类和组织。数据分类后，进行信息体系结构的设计：即结合业务过程与数据类，建立系统的功能/数据类矩阵（c-u矩阵）。数据分类得到的结果将用于系统分析和系统设计阶段。 根据表6-1的业务模型，得到本系统涉及到

8、得数据类：员工基本信息、员工销售信息、房源信息数据、客房看房信息、房屋居间服务合同信息、已售房信息。建立系统c-u矩阵，如表6-2所示。 数据类业务过程员工基本信息员工销售信息房源信息客户看房信息服务合同信息已售房信息员工基本信息管理 C员工销售信息管理 U C房源数据管理 U C客户看房管理 U C房屋居间服务合同管理 U C已售房信息管理 U U C2.3 系统分析系统分析的依据是系统规划阶段建立的业务模型和c-u矩阵，并在现有资料的基础上深入的调查研究，进行功能分析，最终确定新系统的逻辑功能结构。2.4 逻辑功能结构1、 数据流程图 并非所有的业务处理都能由计算机来完成，因此围绕着信息处

9、理业务，根据业务流程图，必须弄清楚系统需要产生什么样的信息输出。为了得到这样的输出应该对什么数据进行处理，输入数据向输出数据所进行的转换过程是什么？而这个过程是进行数据抽取，建立数据流程图的过程。数据流程图描述了新系统的全部的数据处理逻辑和数据的流动过程，构成了新系统逻辑模型。 根据业务流程图，去掉其中信息系统不能完成的和本系统处理以外的环节，并将业务处理比较集中的功能作为一个高层模块，从而得到本系统高层数据流程图，如图6-2所示。高层数据流程图中有些功能不可再分，在进一步的设计中可以将其作为一个单独的模块；而有些功能比较复杂，应进一步再分解，知道每个子模块的功能、独立，不可再分。本系统的高层

10、数据流程图中各个模块的处理功能比较集中，均可作为一个单独的子模块。对比数据流程图和业务流程图不难看出，从业务过程（业务流程图）抽取数据流的过程中，有些纯人工i的操作在数据流程图中被省略，如买方交纳全部房款的过程；有些环节不属于本系统的处理范围要去掉，如办理过户的过程；有些初期调研没有得到的常规业务要增加到数据流程图中，如提供一些报表功能等。综合一些报表功能等。综合以上各个步骤的分析，最终得到了用数据流程图表达的新系统的逻辑功能结构。 2、 数据字典 数据流程图并不能完整地描述软件需求，因为它没有描述数据流程图上各个成分的具体内容。实际应用中，数据流程图往往与数据字典配套使用。数据字典实在数据流

11、程图的基础上，进一步定义和描述流程图上各个成分的工具，它包括对一切动态数据（可在系统内外流动的数据流）和静态数据（不参与流动的数据存储）的数据结构和相互关系等的说明，是数据分析和数据管理的重要工具。数据字典中常常包括对数据元素、数据结构、数据流的来源去处、数据存储、处理功能和外部实体的说明。 本系统建立数据字典中，对处理功能的说明如下：1） 权限设定 系统管理员-系统的全部权限 经纪人仅具有本人所负责区域的房屋信息的更新权和全部房屋信息的查询权合同责任人房屋居间服务合同的更新权和全部房屋信息的查询权 公司高层管理者系统管理员权限2） 员工（销售）信息管理：录入与房屋销售相关的员工信息，包括责任

12、区域等。3） 房源数据管理：搜集房源信息并记录。验收房屋实际情况是否与房主所报房源信息一致，更新和维护房源数据，并随时按各种要求查询房源数据。4） 客户看房管理：客户提出购房请求。确定购房区域后，由该区域的员工查找符合条件的全部房源信息，并与客户签订看房协议。5）房屋居间服务合同管理：客户与房地产经纪公司签订房屋居间服务合同。交纳中介费和指定金额的定金，并需要承诺在规定期限内交纳剩余房款和税金。6）已售房款信息管理：登记已售房屋信息；删除相应的房源数据；进行售房数据统计。3 系统设计3.1 系统总体设计：依据系统分析阶段得到的数据流程图和数据字典，以数据流程图中的处理功能为出发点，抽取各个主要

13、的处理功能建立模块结构图。从数据流程图转化为系统模块结构时，有3个问题需要注意： 1、模块结构图的层次要对应于数据流程图的层次 2、添加模块。抛开具体业务本身，考虑到信息安全问题，往往要添加登录模块，登录成功的用户才允许使用系统；为了方便系统的管理和维护，要添加系统管理模块，用以管理系统用户的相关信息。 3、由人工操作到计算机世界的转化过程中，为了便于计算机处理数据，往往需要对尸体添加唯一标识（字符），如对学生信息的处理往往加上学号来标识学生，这个过程叫做编码。编码需要用单独的数据管理界面来管理，因此一般的应用程序都会有基础数据管理模块，并且只允许系统管理员使用。下图为本系统的模块结构图3.3

14、.2 功能模块1、登录模块： 用于输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。2、系统管理模块： 用户管理子模块：用于系统管理员进行用户进行用户权限设置和用户的浏览，包括用户密码和用户权限的更改，其他用户只能浏览。 修改密码子模块：保证任何用户可以修改自己的密码。3、基础数据管理模块：用于设置和维护区域、房屋、楼盘的编码与名称的对应关系。系统管理员有权进行信息更新，其他用户只能浏览。4、公司内部信息管理模块：员工数据管理子模块：用于设置和管理与房屋销售相关的员工信息数据，包括其基本信息和责任区域，并向全部员工提供查询功能。系统管理员可以进行数据的添加、删

15、除和修改。 房源数据管理子模块：用于设置和管理房源数据，并向全部员工提供查询功能。系统管理员和负责本区域的精进人可以进行数据的添加、删除与修改。5、售房信息管理模块：客户看房记录子模块：功能是记录客户看房信息，用于检查是否客户越过该房地产经纪公司私自和房主发生买卖行为。系统管理员和负责本区域的经纪人可以进行数据的添加、删除、修改。房屋居间服务合同管理子模块：用于录入和维护房屋居间服务合同，并生成报表。由合同责任人即使进行合同数据的校验、更新和取消。系统管理员和合同责任人可以进行数据的添加、删除和修改。但是，当确认此次房屋交易已经完成时，任何人不能进行更新。已售房屋信息管理子模块：当房屋买卖交易

16、结束后，意味着该房屋买卖已经完成。由相应的合同责任人将客户购房信息进行记录。并由系统自动将其从房源数据中删除，并向全部员工提供查询功能。系统管理员和合同责任人可以进行数据的添加、删除和修改。3.3 编码设计 编码是通过一些便于计算机或人来识别和处理的符号来表示各类信息。编码方式有很多，常用的是层次码和顺序码。层次码是指把编码对象分类，用不同的码位来表示不同类别进行编码。顺序是按排列顺序对编码对象进行编码。3.4 系统详细设计 总体设计搭建了系统的功能框架，建立了系统数据库结构。在总体设计的基础上，需要对每个模块的输入数据、需要完成的处理逻辑和输出数据进行详细的设计和描述3.5 系统公共文件根据

17、系统模块结构图，抽取系统中多个模块的相同的子功能来建立系统的公共特点，可以做到减少总代码量，避免重复开发，保持系统实现风格统一，以及增加可修改性等特点。本系统的公共文件包含以下几个子功能：1） 主体框架2） 添加模块3） 定义用户名、用户类型、职员编号以及登陆成功的标识为系统公共变量定义4） Main（系统启动）函数。5） Connect String 函数。该函数用于设置数据库连接字符串函数。本系统数据库用户名和密码设置为sa 。6） Execute SQL 函数。该函数用于设置SQL语句的执行函数，并创建到数据源的连接，执行SQL语句。如果SQL语句成功执行，返回值为Ture,结果保存；否

18、则返回False 。7） DB Exist函数。该函数用于判断数据库中是否存在指定记录，返回记录数；否则，返回值为0 。8） TxtIsNull 函数。该函数用于判断输入到TextBox的内容是否为空，参数为TextBox实例。9） Is Over String Len函数。干函数用于判断输入内容是否超过给定值，参数为需要处理的字符串和给定长度值。其处理流程为：判断字符串的长度不超过给定值时返回值为Ture,结果保存；否则返回False 。10） View Data函数。该函数用于执行SQL语句，当检索到的记录数不为0时，将相应的数据集设置为Datagrid的数据源，并返回记录数；否则给出提示

19、信息，返回值为0。11） ISEquelLen函数。该函数用于判断输入到TextBox的内容是否为给定值。12） ComoboData 函数。它是为ComoboBox赋值函数。其处理流程为：从数据库中检索记录，当检索记录不为0时，将名称字段添加到ComoboBox的显示列表中，同时将编号字段作为相应名称的索引值。13） ComoboHour 函数。该函数是为小时ComoboBox赋值函数，参数为ComoboBox实例。其处理流程为：采用24小时/天的计时方式，从1到24，通过循环在ComoboBox里添加小时数字。ComoboBox里数位为2位。14） ComoboMin 函数。该函数是为分钟

20、ComoboBox赋值函数，参数为ComoboBox实例。其处理流程为：从1到60，通过循环在ComoboBox里添加分钟数字。ComoboBox里数位为2位。15） ComoboYear 函数。该函数是为年ComoboBox赋值函数，参数为ComoboBox名称。其处理流程为：从1990到2600，通过循环在ComoboBox里添加年份数字。16） ComoboMonth 函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名称。其处理流程为：从1到12，通过循环在ComoboBox里添加月份数字。ComoboBox里数位为2位。17） ComoboDate 函数。该函数是

21、为月ComoboBox赋值函数，参数为ComoboBox名称。其其处理流程为：从1到31，通过循环在ComoboBox里添加日期数字。ComoboBox里数位为2位。18） setCboDataReg 函数。该函数用于区域名ComoboBox赋值，参数为ComoboBox实例。其处理流程为：检索区域编码信息表，调用ComoboData函数将区域名称添加到责任区域ComoboBox列表中。19） setCboDataItem函数。它用于为楼盘名ComoboBox赋值，参数为ComoboBox实例。其处理流程为：检索楼盘编码信息表，调用ComoboData函数将楼盘名称添加到楼盘区域ComoboB

22、ox列表中。20） setCboDataStru函数。该函数用于为房型名ComoboBox赋值，参数为ComoboBox实例。其处理流程为：检索房型编码信息表，调用ComoboData函数将楼盘名称添加到房型区域ComoboBox列表中。21） getCboRegId函数。该函数用于获取名称ComoboBox中名称所对应的编号，参数为ComoboBox实例和存储编号值的变量。使用该函数的前提是在为ComoboBox下拉列表赋值时，已经将与名称对应的编号设置为下拉列表项目的索引值（本系统使用ComoboBox即可）。处理流程：判断ComoboBox当前文本内容，如果为空，存储编号值的变量值为下拉

23、列表项目的索引值。然后判断存储编号值的变量长度是否为该字段在数据库中的长度值n，用select case语句将任何长度的变量设置为n位（不足位的前面补0）。22） setCboData函数。该函数用于为房源编号ComoboBox赋值，参数为ComoboBox实例。其处理流程为：检索房源信息表，将房源编号添加到对应的ComoboBox下拉列表中。23）setLabelData函数。该函数用于为窗体上的Label控件的Caption属性赋值。参数值为ComoboBox实例和Label实例。其处理流程为：以ComoboBox实例的文本内容为关键字，检索房源信息表，将检索到的房源名称赋给对应的labe

24、l实例中的Caption属性。4 数据库设计 数据库设计是在DBMS的支持下，按照应用的要求设计合理的数据库物理结构。本系统采用SQL Server 2000数据库，根据系统分析和模块设计中得到的功能和相应的数据存储，本系统数据库的数据项和数据库如下。 1、数据库数据库名称：二手房销售信息库标识：DB House 2、数据库表结构： 1）表名：用户信息表 标识：tb User 数据来源： 用户模块的录入 用户信息表2）表名：区域编码信息表 标识：tb Region 数据来源：基础数据管理模块的录入 区域编码信息表 3）表名：楼盘编码信息表标识：tb Item 数据来源：基础数据管理模块的录入

25、楼盘编码信息表4）表名：员工销售信息表标识：tb Sale Man 数据来源：公司内部信息管理模块的录入 员工销售信息表5）表名：房源信息表标识：tb House 数据来源：公司内部信息管理模块的录入 房源信息表6）表名：客户看房记录标识：tb House Pre 数据来源：售房信息管理模块录入 客户看房记录 7）表名：房屋居间服务合同表标识：tb Contract 数据来源：售房信息管理模块录入 房屋居间服务合同表8）表名：已售房屋记录表标识：tb House Sale 数据来源：售房信息管理模块录入 已售房屋记录表5 系统模块与界面设计1、人机交互设计2、用户登录模块的IPO过程输入：用户

26、名和密码。处理：1） 登录窗体启动。2） 输入用户名和密码。3） 如果用户名或密码为空，处理终止，并进行错误信息提示。4） 以输入的用户名作为关键字，检索用户信息表（tb User）的用户名和密码字段。5） 通过检索结果判断该用户名是否存在，如果用户名不存在，处理终止，并进行错误信息提示。6） 如果用户名存在，比较检索到的密码字段和输入的密码是否相等。如果不相等则处理终止，并进行错误信息提示。7） 如果输入的密码正确，将该用户名和用户类型分别保存到全局变量guserName和guserkind中。8） 进入主控制台。输出：主控制平台。5.1 主控制平台的设计系统主控平台采用简单、直观的布局，通

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

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

29、管理模块 公司内部信息管理模块管理包括员工数据管理和房源数据管理两个子模块，其中每个子模块都包含两个界面：数据显示、操作界面和添加、修改数据界面1、 人机交互设计 (2)员工数据管理子模块的IPO过程输入：员工编码、员工姓名、性别、职务、联系电话、区域名称。处理：当用户类型为系统管理员时该菜单可用。员工数据管理窗体启动。从员工信息表中读取全部记录，显示在表格控件dgemp中。根据系统管理员的选择（添加、修改、删除）进行相应处理。2、 房源数据子模块（1） 人机交互设计（2） 房源数据管理子模块的IPO过程 输入：房源数据、房源名称、所属区域名称、楼盘名称、建筑年代、建筑单位、户型名称、建筑面积

30、、楼层、总楼层、单元、车库面积、学校、公交线路、临近街道、小区会所、梯户、广场、基础设施、装修状况、物业管理费、权属、售价和销售状态。 其中包括很多模块，添加模块也在其中5.5 售房信息管理模块 售房信息管理管理模块包括客户看房记录、房屋居间服务合同管理和已销售信息管理3个子模块。1、 客户看房记录子模块客户看房记录子模块的IPO过程 输入：房源编号、房源名称、看房时间、看房年月日、客户人数、客户身份证号。并且添加客户看房记录2、 房屋居间合同子模块（1） 人机交互设计（2） 房屋居间服务和同居间管理子模块的IPO过程 输入：房源编号、房源名称、签订日期、甲方实际售价、税率说明、税金总计、中介

31、费、定金、建筑面积、权属、乙方联系方式、乙方身份证号、甲方联系电话、甲方联系方式、乙方房款交全最后期限、甲方交房最后期限、甲方赠物记录、甲方代表、乙方代表和丙方。3、 已售房屋信息管理子模块（1） 人际交互界面（2） 已售房屋信息管理子模块的IPO过程 输入：房源编号、房源名称、建筑面积、实际销售日期等6 系统实施6.1 数据的访问 在数据库的操作中，考虑到操作数据库时如果利用数据绑定，则会锁定记录表，使得表的访问为独占式，而如果两个终端同时访问这个表，则容易造成死锁。因此用SQL直接进行数据库的访问是比较适合的，即使偶尔发生并发操作，对数据库的修改不成功，也可以继续保存。同时由于考虑数据库中

32、的数据属于动态的、变化的，因此，在数据库德操纵过程中，大量使用了SQL语句进行对数据库的操作。具体来说，包括数据库的插入、修改、删除和查询。 1、查询操作 txtSql = "select HouseId as 房源编号,HouseName as 房源名称,ViewTime as 看房时间," txtSql = txtSql + "ViewYMD as 看房年月日,ClientNum as 客户人数,ClientIDCard as 客户身份证号" If txtClientIDCard.Text = "" Then txtSql = t

33、xtSql + " from tbHousePre order by HouseId " Else txtSql = txtSql + " from tbHousePre where ClientIDCard='" + txtClientIDCard.Text + "' order by HouseId" 2、修改操作 txtSql = "update tbHousePre set HouseName='" + Trim(lblName.Caption) + "',&quo

34、t; txtSql = txtSql + " ClientNum='" + Trim(txtClientNum.Text) + "'," txtSql = txtSql + "ClientIDCard='" + Trim(txtClientIDCard.Text) + "'" txtSql = txtSql + " where HouseId='" + Trim(cboId.Text) + "'" txtSql = txtSql

35、 + " and ViewYMD='" + Trim(strViewYMD) + "'" txtSql = txtSql + " and ViewTime='" + Trim(strViewTime) + "'" result = ExecuteSQL(txtSql, rstView, True) MsgBox "修改成功", vbOKOnly + vbExclamation, "警告" 3、添加操作 txtSql = txtSql + &qu

36、ot;values('" + Trim(cboId.Text) + "','" txtSql = txtSql + Trim(lblName.Caption) + "','" txtSql = txtSql + strViewTime + " ','" txtSql = txtSql + strViewYMD + "','" txtSql = txtSql + Trim(txtClientNum.Text) + "'

37、,'" txtSql = txtSql + Trim(txtClientIDCard.Text) + "')" result = ExecuteSQL(txtSql, rstView, True) MsgBox "客户看房记录添加成功", vbOKOnly + vbExclamation, "警告"4、 删除操作txtSql = "delete from tbSaleMan where SaleManId='" + strSaleManId + "'"r

38、esults = ExecuteSQL(txtSql, rstEmp, True) MsgBox "删除成功！", vbOKOnly + vbExclamation, "警告"6.2 连接数据库 Public Function ConnectString() As String ConnectString = "FileDSN=dbhouse.dsn;UID=sa;PWD=sa"End Function6.3 系统模块' *'系统公共变量定义' *Option ExplicitPublic gUserName

39、As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean' *'过程名：Main'说 明：系统启动函数'参 数：无'返回值：无' *Sub Main() '启动登陆窗体 Dim fLogin As New frmLogin fLogin.Show vbModal If Not gLoginSucceeded Then MsgBox "系统启动失败,请重试!", vbOKOnly + vbExclamation, "警告"

40、 End If Unload fLoginEnd Sub6.4 程序实现关键代码房屋居间合同管理' *'窗体公共变量定义' *Option ExplicitPrivate txtSql As String 'SQL语句Private result As Integer 'datagrid中的显示记录数Public ContractFlag As String '判断添加删除标志Public strHouseId As String '房源编号Public strHouseName As String '房源名称Public str

41、SignDate As String '签订日期Public strSaleMoney As String '甲方实际售价Public strTaxDes As String '税率说明Public strTax As String '税金总计Public strMediMoney As String '中介费Public strPreMoney As String '定金Public strArea As String '建筑面积Public strBelong As String '权属Public strYContact A

42、s String '乙方联系方式Public strYTel As String '乙方联系电话Public strYIDCard As String '乙方身份证号Public strJContact As String '甲方联系方式Public strJTel As String '甲方联系电话Public strJIDCard As String '甲方身份证号Public strYTimeLimit As String '乙方房款交全最后期限Public strJTimeLimit As String '甲方交房最后期限

43、Public 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" frmCo

44、ntractAdd.ShowEnd SubPrivate Sub cmdClear_Click() cboYear.Clear cboMonth.Clear cboDate.Clear Call ComboYear(cboYear) Call ComboMonth(cboMonth) Call ComboDate(cboDate)End SubPrivate Sub cmdDel_Click()Dim bIsEditable As BooleanIf Len(Trim(strHouseId) = 0 Then '检验删除记录是否选定 MsgBox "请点击单元格选择删除的记录

45、！", vbOKOnly + vbExclamation, "警告"Else bIsEditable = IsEditable '判断是否能够对合同进行删除 If bIsEditable = False Then MsgBox "房屋交易已经完成,不能进行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If str = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") If str = vbOK

46、 Then txtSql = "delete from tbContractp where HouseId='" + strHouseId + "'" results = ExecuteSQL(txtSql, rstContract, True) MsgBox "删除成功！", vbOKOnly + vbExclamation, "警告" txtSql = "update tbHouse set State='待售' where HouseId='" +

47、strHouseId + "'" results = ExecuteSQL(txtSql, rstContract, True) End If End If Call viewDataContractEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdModify_Click()Dim bIsEditable As BooleanbIsEditable = IsEditableIf Trim(strHouseId) = "" Then MsgBox "请点击

48、单元格选择修改记录", vbOKOnly + vbExclamation, "警告"Else '判断是否能够对合同进行修改 If bIsEditable = False Then MsgBox "房屋交易已经完成,不能进行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If ContractFlag = "Modify" frmContractAdd.ShowEnd IfEnd Sub'查询操作Private Sub cmdQuery_Cl

49、ick()txtSql = "select HouseId as 房源编号,HouseName as 房源名称,SignDate as 签订日期,"txtSql = txtSql + "SaleMoney as 甲方实际售价,TaxDes as 税率说明,Tax as 税金总计,"txtSql = txtSql + "MediMoney as 中介费,PreMoney as 定金,Area as 建筑面积,Belong as 权属,"txtSql = txtSql + "YContact as 乙方联系方式,YTel as

50、乙方联系电话,YIDCard as 乙方身份证号,JContact as 甲方联系方式,"txtSql = txtSql + "JTel as 甲方联系电话, JIDCard as 甲方身份证号,YTimeLimit as 乙方房款交全最后期限,JTimeLimit as 甲方交房最后期限,"txtSql = txtSql + "Present as 甲方赠物记录,Jdelegate as 甲方代表,Ydelegate as 乙方代表,BManName as 丙方"txtSql = txtSql + " from tbContract

51、p "If cboYear.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,1,4) = '" + cboYear.Text + "'" If cboMonth.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,6,2) = '" + cboMonth.Text + "'"

52、; End If If cboDate.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,9,2) = '" + cboDate.Text + "'" End IfElse If cboMonth.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,6,2) = '" + cboMonth.Text + &quo

53、t;'" If cboDate.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,9,2) = '" + cboDate.Text + "'" End If Else If cboDate.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,9,2) = '" + cboDate.Text +

54、"'" End If End IfEnd IftxtSql = txtSql + " order by HouseId"Set dgContract.DataSource = Nothingresult = viewData(txtSql, dgContract)End SubPrivate Sub cmdReport_Click()rptHouse.ShowEnd SubPrivate Sub dgContract_DblClick() Dim bIsEditable As Boolean bIsEditable = IsEditable If Trim(strHouseId) = "" Then MsgBox "请点击单元格选择修改记录&q