二手房销售文档

《软件工程》目录 2需求分析∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙43系统设计界面设计∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙84数据库设计∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙10 ∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙31 11引言1.1选题背景：市场也是在不断升温，相关需求也不断增加，为此，在这介绍一下二手房销售设计开发方法。房地产经纪公司的二手房销售管理业务流程可以简单的描述为：(1)搜集房源信息并记录，验收房屋实际情况是否与房主所汇报房源信息相符，再进行相应记录。(2)客户到房地产经纪公司提出购房请求，经确定购房区域后，由房地产经纪公到实地看房。(3)看房之前需要签订看房协议，客户保证不会越过该房地产经纪公司私自和房主发生买卖行为，否则也要交纳相应的中介费用。(4)如果客户选定某个房屋，则由该公司员工引导，并由专人负责客户与房地产作为房地产经纪公司的补偿。(5)办理完全产证的更名等一切手续，并由客户验收后，由房地产经纪公司将房款交给房主。房屋买卖交易结束。面对大量的二手房信息和交易活动，传统的手工管理很复杂。工作效率低下，数据混乱且难以发觉其中的规律。对各个房地产经纪公司来说，二手房销售管理系统，辅助管理销售，是提高工作销售的必经之路。而我们也可以得到一般的房产中介公司的二手房销售管理业务模型。.2系统目标：二手房销售管理平台。其系统目标和功能要求如下：销售管理业务流程更加合理。2)提供方便、灵活的操作3)节约成本，提高效率4)对系统进行权限管理件的查询。6)与手工管理相比，要添加基础数据的管理和用户权限的管理。时准确的记录时间。新权和全部房屋信息的查询权；公司的高层管理者拥有修通管理员权限。示信息。求分析概述新信息系统的建立是在现行业务基础上经过改建或重建而得到的。因此，在进行新系统的规划、分析和设计工作之前，必须对现行系统做全面、充分的调查研究和分析，在此基础过程-具体业务处理”这样的层次结构来对其进行描述。业务模型的建立也可以分为3个阶段。1)现型业务的调查和分析。2)提出一个表示全部业务的模型。3)扩展上述模型，使它能表示出各项具体的业务活动，最终确定为业务模型。、根据对二手房销售管理的业务流程的调查和分析，得到一般的房产中介公司的二手的二型级销售人员的基本信息工的基本信息域的员工信息检索功能相关的员工信息，包括责任区域等索功能数据销售业绩进行统计源信息并记录况是否与房主所报房源信息相符源数据请求查找符合条件的全部房源会越过该房地产经纪公司私自与为，否则也要缴纳相应的中介费用理，则由该员工引导，并由专人负责客户与房地房屋居间服务合同和指定金额的定金，并需要承诺在规定的缴纳视为违约，定金作为房地产经纪公司的补偿房款将房款交给房主售房屋信息应的房源数据在建立了较为完整、稳定的业务模型之后，需要根据模型进行数据分析。基本方法是按照业务过程进行数据分类和组织。数据分类后，进行信息体系结构的设计：即结合业务过程与数据类，建立系统的功能/数据类矩阵(c-u矩阵)。数据分类得到的结果将用于系统分析和系统设计阶段。u如表6-2所示。类息同信息信息管理C信息管理UCUCUCUCUUC系统分析系统分析的依据是系统规划阶段建立的业务模型和c-u矩阵，并在现有资料的基础上深入的调查研究，进行功能分析，最终确定新系统的逻辑功能结构。2.4逻辑功能结构须弄清楚系统需要产生什么样的信息输出。为了得到这样的输出应该对什行处理，输入数据向输出数据所进行的转换过程是什么？而这个过程是进取，建立数据流程图的过程。数据流程图描述了新系统的全部的数据处理逻辑和数据的流动过程，构成了新系统逻辑模型。P3录入房源数据P4验收房源信息房源数据房源数据中介公司房源管理者P7签订看房的协议客户看房记录购房请求符合条件的房源客户销售员工签订房屋居间服务合同P9缴纳全部房款发票P8签订房屋服务条例客户客户确定购房意向客户管理人员P11登记已售房屋信息相关人员已售房屋信息销售员工员工数据表员工销售信息表员工房P3录入房源数据P4验收房源信息房源数据房源数据中介公司房源管理者P7签订看房的协议客户看房记录购房请求符合条件的房源客户销售员工签订房屋居间服务合同P9缴纳全部房款发票P8签订房屋服务条例客户客户确定购房意向客户管理人员P11登记已售房屋信息相关人员已售房屋信息销售员工员工数据表员工销售信息表员工房源数据房源数据表销售销售员工P5P5查查询房源数据房源房源数据表PP6查找房源P10办理用户P12删除相应的房源数据房房屋数据表二手房销售管理系统业务流程图根据业务流程图，去掉其中信息系统不能完成的和本系统处理以外的环节，并将业务处理比较集中的功能作为一个高层模块，从而得到本系统高层数据流程图，如图6-2所示。而有些功能比较复杂，应进一步再分解，知道每个子模块的功能、独立，不可再分。本系统的高层数据流程图中各个模块的处理功能比较集中，均可作为一个单独的子模块。对比数据流程图和业务流程图不难看出，从业务过程(业务流程图)抽取数据流的过程于本系统的处理范围要去掉，如办理过户的过程；有些初期调研没有得到的常规业务要增加骤的分析，最终得到了用数据流程图表达的新系统的逻辑功能结构。p3员工销售数据管理销售员工p2员工销售数据管理房源所有者(员工)客户看房记录购房请求客户签订房屋居间合同P5生成房屋居间服务合同p4购房确定意向客户客户已售房屋信息房源数据表客户看房记录购房请求客户签订房屋居间合同P5生成房屋居间服务合同p4购房确定意向客户客户已售房屋信息房源数据表p3客户看房管理销售员工签订房屋居间服务合同管理合同P6已售房屋信息管理管理人员二手房销售管理系统数据流程图图并不能完整地描述软件需求，因为它没有描述数据流程图上各个成分的具体内容。实际应用中，数据流程图往往与数据字典配套使用。数据字典实在数据流程图的基础上，进一步定义和描述流程图上各个成分的工具，它包括对一切动态数据(可在系统内外流动的数据流)和静态数据(不参与流动的数据存储)的数据结构和相互关系等的说明，是数据分析和数据管理的重要工具。数据字典中常常包括对数据元素、数据结构、数据流的来源去处、数据存储、处理功能和外部实体的说明。本系统建立数据字典中，对处理功能的说明如下：1)权限设定的全部权限所负责区域的房屋信息的更新权和全部房屋信息的查询权人——房屋居间服务合同的更新权和全部房屋信息的查询权公司高层管理者——系统管理员权限2)员工(销售)信息管理：录入与房屋销售相关的员工信息，包括责任区域等。3)房源数据管理：搜集房源信息并记录。验收房屋实际情况是否与房主所报房源信息一致，更新和维护房源数据，并随时按各种要求查询房源数据。4)客户看房管理：客户提出购房请求。确定购房区域后，由该区域的员工查找符合条件的全部房源信息，并与客户签订看房协议。5)房屋居间服务合同管理：客户与房地产经纪公司签订房屋居间服务合同。交纳中介费和指定金额的定金，并需要承诺在规定期限内交纳剩余房款和税金。6)已售房款信息管理：登记已售房屋信息；删除相应的房源数据；进行售房数据统计。售房信息管理用户登录系统管理公司内部信息管理房屋居间服务合同查询已售房屋信息管理客户看房修改密码用户管理房源数据管理售房信息管理用户登录系统管理公司内部信息管理房屋居间服务合同查询已售房屋信息管理客户看房修改密码用户管理房源数据管理系统设计3.1系统总体设计：依据系统分析阶段得到的数据流程图和数据字典，以数据流程图中的处理功能为出发点，抽取各个主要的处理功能建立模块结构图。从数据流程图转化为系统模块结构时，有3个问题需要注意：录成功的用户才允许使用系统；为了方便系统的管理和维护，要添加系统管理模块，用以管理系统用户的相关信息。尸体添加唯一标识(字符)，如对学生信息的处理往往加上学号来标识学生，这个过程叫做编码。编码需要用单独的数据管理界面来管理，因此一般的应用程序都会有基础数据管理模块，并且只允许系统管理员使用。下图为本系统的模块结构图二手房销售管理信息系统基础数据管理管理系统模块结构图功能模块名和密码正确，进入主控制平台；否则提示用户明确的错误信息。：用于系统管理员进行用户进行用户权限设置和用户的浏览，包括用户密码和用户权限的更改，其他用户只能浏览。修改密码子模块：保证任何用户可以修改自己的密码。用于设置和维护区域、房屋、楼盘的编码与名称的对应关系。系统管理员有权进行信息更新，其他用户只能浏览。员工数据管理子模块：用于设置和管理与房屋销售相关的员工信息数据，包括其基本信添加、删除和修改。模块：用于设置和管理房源数据，并向全部员工提供查询功能。系统管理员和负责本区域的精进人可以进行数据的添加、删除与修改。客户看房记录子模块：功能是记录客户看房信息，用于检查是否客户越过该房地产经纪公司私自和房主发生买卖行为。系统管理员和负责本区域的经纪人可以进行数据的添加、删除、修改。房屋居间服务合同管理子模块：用于录入和维护房屋居间服务合同，并生成报表。由合同责任人即使进行合同数据的校验、更新和取消。系统管理员和合同责任人可以进行数据的添加、删除和修改。但是，当确认此次房屋交易已经完成时，任何人不能进行更新。已售房屋信息管理子模块：当房屋买卖交易结束后，意味着该房屋买卖已经完成。由相应的合同责任人将客户购房信息进行记录。并由系统自动将其从房源数据中删除，并向全部员工提供查询功能。系统管理员和合同责任人可以进行数据的添加、删除和修改。.3编码设计编码是通过一些便于计算机或人来识别和处理的符号来表示各类信息。编码方式有很多，常用的是层次码和顺序码。层次码是指把编码对象分类，用不同的码位来表示不同类别进行编码。顺序是按排列顺序对编码对象进行编码。4系统详细设计总体设计搭建了系统的功能框架，建立了系统数据库结构。在总体设计的基础上，需要块的输入数据、需要完成的处理逻辑和输出数据进行详细的设计和描述5系统公共文件的相同的子功能来建立系统的公共特点，可以做到减少总代码量，避免重复开发，保持系统实现风格统一，以及增加可修改性等特点。本系统的公共文件包含以下几个子功能：1)主体框架2)添加模块3)定义用户名、用户类型、职员编号以及登陆成功的标识为系统公共变量定义4)Main(系统启动)函数。5)ConnectString函数。该函数用于设置数据库连接字符串函数。本系统数据库用户名和密码设置为sa。6)ExecuteSQL函数。该函数用于设置SQL语句的执行函数，并创建到数据源的连接，7)DBExist函数。该函数用于判断数据库中是否存在指定记录，返回记录数；否则，返8)TxtIsNull函数。该函数用于判断输入到TextBox的内容是否为空，参数为TextBox实例。9)IsOverStringLen函数。干函数用于判断输入内容是否超过给定值，参数为需要处理Ture存；否则返回False。10)ViewData函数。该函数用于执行SQL语句，当检索到的记录数不为0时，将相应11)ISEquelLen函数。该函数用于判断输入到TextBox的内容是否为给定值。12)ComoboData函数。它是为ComoboBox赋值函数。其处理流程为：从数据库中检索记录，当检索记录不为0时，将名称字段添加到ComoboBox的显示列表中，同时将编号字段作为相应名称的索引值。13)ComoboHour函数。该函数是为小时ComoboBox赋值函数，参数为ComoboBox实14)ComoboMin函数。该函数是为分钟ComoboBox赋值函数，参数为ComoboBox实里数位为2位。15)ComoboYear函数。该函数是为年ComoboBox赋值函数，参数为ComoboBox名称。16)ComoboMonth函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名里数位为2位。17)ComoboDate函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名称。里数位为2位。18)setCboDataReg函数。该函数用于区域名ComoboBox赋值，参数为ComoboBox实流程为：检索区域编码信息表，调用ComoboData函数将区域名称添加到责任区域ComoboBox列表中。9)setCboDataItem函数。它用于为楼盘名ComoboBox赋值，参数为ComoboBox实例。码信息表，调用ComoboData函数将楼盘名称添加到楼盘区域ComoboBox列表中。20)setCboDataStru函数。该函数用于为房型名ComoboBox赋值，参数为ComoboBox房型编码信息表，调用ComoboData函数将楼盘名称添加到房型区域ComoboBox列表中。21)getCboRegId函数。该函数用于获取名称ComoboBox中名称所对应的编号，参数为ComoboBox实例和存储编号值的变量。使用该函数的前提是在为ComoboBox下拉列表赋值时，已经将与名称对应的编号设置为下拉列表项目的索引值(本系统使用ComoboBox即可)。处理流程：判断ComoboBox当前文本内容，如果为空，存储编为该字段在数据库中的长度值n，用selectcase语句将任何长度的变量设置为n位(不足位的前面补0)。22)setCboData函数。该函数用于为房源编号ComoboBox赋值，参数为ComoboBox实例。其处理流程为：检索房源信息表，将房源编号添加到对应的ComoboBox下拉列表中。23)setLabelData函数。该函数用于为窗体上的Label控件的Caption属性赋值。参数值源信息表，将检索到的房源名称赋给对应的label实例中的Caption属性。设计数据库设计是在DBMS的支持下，按照应用的要求设计合理的数据库物理结构。本系统系统数据库的数据项和数据库如下。名称：二手房销售信息库1)表名：用户信息表2)表名：区域编码信息表源：基础数据管理模块的录入表3)表名：楼盘编码信息表源：基础数据管理模块的录入码信息表4)表名：员工销售信息表源：公司内部信息管理模块的录入5)表名：房源信息表源：公司内部信息管理模块的录入6)表名：客户看房记录源：售房信息管理模块录入7)表名：房屋居间服务合同表源：售房信息管理模块录入合同表8)表名：已售房屋记录表源：售房信息管理模块录入块与界面设计输入：用户名和密码。处理：1)登录窗体启动。2)输入用户名和密码。3)如果用户名或密码为空，处理终止，并进行错误信息提示。4)以输入的用户名作为关键字，检索用户信息表(tbUser)的用户名和密码字段。息提示。终止，并进行错误信息提示。7)如果输入的密码正确，将该用户名和用户类型分别保存到全局变量guserName和guserkind中。8)进入主控制台。输出：主控制平台。主控制平台的设计系统主控平台采用简单、直观的布局，通过菜单实现对系统各个模块的调用和各个窗体的现实。设置状态栏用来显示当前日期、时间和当前用户信息。计1)菜单导航功能：系统管理：用户管理、修改密码。基础数据库管理。公司内部信息管理：员工数据管理、房源数据管理。售房信息管理：客户看房记录、房屋居间服务合同管理和已售房屋记录。销售业绩分析.销售额分析。退出。2)对当前用户、系统时间的状态显示3)给出主控制台的提示信息，如标题。4)判断当前用户类型，对该类型用户的权限进行记录。5)点击各个菜单或子菜单时，显示相应的界面。统管理模块系统管理模块一般包括用户管理和修改密码两个子模块。用户管理模块只有系统管理员可以使用，一般用户不能使用。修改密码模块面向任何用户，提供修改登录密码的功能。用户类型有系统管理员、经纪人和合同负责人。数据管理模块输入：区域、楼盘或者房型的编号和名称。处理：1)当用户类型为系统管理员时该菜单可用。2)基础数据管理窗体启动。3)从区域编码信息表中读取全部记录，显示在表格控件dgBasicData中。4)当鼠标单击标签，标签改变时，从对应的数据库表中读取全部记录，显示在表格控件dgbasicdata中。5)各级系统管理员的选择(添加、修改和删除)进行相应的处理部信息管理模块公司内部信息管理模块管理包括员工数据管理和房源数据管理两个子模块，其中每个子模面：数据显示、操作界面和添加、修改数据界面IPO程输入：员工编码、员工姓名、性别、职务、联系电话、区域名称。处理：当用户类型为系统管理员时该菜单可用。员工数据管理窗体启动。从员工信息表中读取全部记录，显示在表格控件dgemp中。根据系统管理员的选择(添加、修改、删除)进行相应处理。(1)人机交互设计(2)房源数据管理子模块的IPO过程、房源名称、所属区域名称、楼盘名称、建筑年代、建筑单位、户型名梯户、广场、基础设施、装修状况、物业管理费、权属、售价和销售状态。块，添加模块也在其中信息管理模块售房信息管理管理模块包括客户看房记录、房屋居间服务合同管理和已销售信息管理3个子模块。IPO程输入：房源编号、房源名称、看房时间、看房年月日、客户人数、客户身份证号。看房记录(1)人机交互设计(2)房屋居间服务和同居间管理子模块的IPO过程、房源名称、签订日期、甲方实际售价、税率说明、税金总计、中介费、定金、建筑面积、权属、乙方联系方式、乙方身份证号、甲方联系电话、甲方联系方式、乙方房款交全最后期限、甲方交房最后期限、甲方赠物记录、甲方代表、乙方代表和丙方。(1)人际交互界面(2)已售房屋信息管理子模块的IPO过程、房源名称、建筑面积、实际销售日期等据的访问在数据库的操作中，考虑到操作数据库时如果利用数据绑定，则会锁定记录表，使得表的QL据库的访问是比较适合的，即使偶尔发生并发操作，对数据库的修改不成功，也可以继续保存。同时由于考虑数据库中的数据属于动态的、变化的，因此，在数据库德操纵过程中，大txtSql"selectHouseIdas房源编号,HouseNameas房源名称,ViewTimeas看房时间,"txtSql=txtSql+"ViewYMDas看房年月日,ClientNumas客户人数,ClientIDCardas客户IftxtClientIDCardText""ThentxtSql=txtSql+"fromtbHousePreorderbyHouseId"txtSql=txtSql+"fromtbHousePrewhereClientIDCard='"+txtClientIDCard.Text+"'rbyHouseIdtxtSql"updatetbHousePresetHouseName='"+Trim(lblName.Caption)+"',"txtSql=txtSql+"ClientNum='"+Trim(txtClientNum.Text)+"',"txtSqltxtSql+"ClientIDCard='"+Trim(txtClientIDCard.Text)+"'"txtSql=txtSql+"whereHouseId='"+Trim(cboId.Text)+"'"txtSql=txtSql+"andViewYMD='"+Trim(strViewYMD)+"'"txtSql=txtSql+"andViewTime='"+Trim(strViewTime)+"'"resultExecuteSQL(txtSql,rstView,True)MsgBox成功",vbOKOnly+vbExclamation,"警告"txtSqltxtSql+"values('"+Trim(cboId.Text)+"','"txtSql=txtSql+Trim(lblName.Caption)+"','"txtSql=txtSql+strViewTime+"','"txtSql=txtSql+strViewYMD+"','"txtSqltxtSql+Trim(txtClientNum.Text)+"','"txtSqltxtSql+Trim(txtClientIDCard.Text)+"')"resultExecuteSQL(txtSql,rstView,True)MsgBox看房记录添加成功",vbOKOnly+vbExclamation,"警告"txtSql="deletefromtbSaleManwhereSaleManId='"+strSaleManId+"'"resultsExecuteSQL(txtSql,rstEmp,True)接数据库PublicFunctionConnectString()AsStringConnectStringFileDSNdbhousedsnUIDsa;PWD=sa"Function系统模块***********************************************************************义************************************************************************xplicitPublicgUserNameAsStringPublicgUserKindAsStringublicgLoginSucceededAsBoolean***********************************************************************'说明：系统启动函数'参数：无***********************************************************************DimfLoginAsNewfrmLoginhowvbModalfNotgLoginSucceededThenMsgBox启动失败,请重试!",vbOKOnly+vbExclamation,"警告"EndIfUnloadfLoginEndSub序实现关键代码理**********************************************************************************************************************************************xplicitrivatetxtSqlAsStringPrivateresultAsIntegerublicContractFlagAsStringublicstrHouseIdAsStringublicstrHouseNameAsStringublicstrSignDateAsStringublicstrSaleMoneyAsStringublicstrTaxDesAsStringublicstrTaxAsStringublicstrMediMoneyAsStringublicstrPreMoneyAsStringublicstrAreaAsStringublicstrBelongAsStringublicstrYContactAsStringublicstrYTelAsStringublicstrYIDCardAsStringublicstrJContactAsStringublicstrJTelAsStringublicstrJIDCardAsStringublicstrYTimeLimitAsStringSQLdatagrid记录数建'筑面积期限PublicstrJTimeLimitAsString'甲方交房最后期限PublicstrPresentAsString'甲方赠物记录PublicstrJdelegateAsString'甲方代表PublicstrYdelegateAsString'乙方代表PublicstrBManNameAsString'丙方PrivatestrAsStringPrivaterstContractAsADODBRecordsetrivateresultsAsStringPrivateSubcmdAddClick)ontractFlagaddactAddShowEndSubPrivateSubcmdClearClick)arClearnthClearteClearomboYearcboYearomboMonthcboMonthomboDatecboDateEndSubPrivateSubcmdDelClick)imbIsEditableAsBooleanIfLenTrimstrHouseId=0Then'检验删除记录是否选定bIsEditable=IsEditable'判断是否能够对合同进行删除IfbIsEditableFalseThenMsgBox交易已经完成,不能进行更新",vbOKOnly+vbExclamation,"警告"SubEndIfstrMsgBox记录？",vbOKCancel,"删除当前记录")IfstrvbOKThentxtSql="deletefromtbContractpwhereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstContract,True)txtSql"updatetbHousesetState='待售'whereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstContract,True)EndIfEndIfwDataContractEndSubPrivateSubcmdExitClick)UnloadMeEndSubPrivateSubcmdModifyClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox击单元格选择修改记录",vbOKOnly+vbExclamation,"警告"同进行修改IfbIsEditableFalseThenMsgBox交易已经完成,不能进行更新",vbOKOnly+vbExclamation,"警告"SubEndIftractFlagModifyactAddShowEndIfEndSubPrivateSubcmdQueryClick)txtSql"selectHouseIdas房源编号,HouseNameas房源名称,SignDateas签订日期,"txtSqltxtSql+"SaleMoneyas甲方实际售价,TaxDesas税率说明,Taxas税金总计,"txtSql=txtSql+"MediMoneyas中介费,PreMoneyas定金,Areaas建筑面积,Belongas权属,"txtSql=txtSql+"YContactas乙方联系方式,YTelas乙方联系电话,YIDCardas乙方身份证JContactas甲方联系方式,"txtSql=txtSql+"JTelas甲方联系电话,JIDCardas甲方身份证号,YTimeLimitas乙方房款交限,JTimeLimitas甲方交房最后期限,"asJdelegateasYdelegateasBManNameas丙方"txtSql=txtSql+"fromtbContractp"IfcboYearText""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,1,4)='"+cboYear.Text+"'"IfcboMonthText""ThentxtSqltxtSql+"andSUBSTRING(SignDate,6,2)='"+cboMonth.Text+"'"EndIfIfcboDateText>""ThentxtSql=txtSql+"andSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfIfcboMonthText""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,6,2)='"+cboMonth.Text+"'"IfcboDateText>""ThentxtSql=txtSql+"andSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfIfcboDateText>""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfEndIfEndIftxtSqltxtSql+"orderbyHouseId"ractDataSourceNothingresultviewData(txtSql,dgContract)EndSubPrivateSubcmdReportClick)rptHouse.ShowEndSubPrivateSubdgContractDblClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox击单元格选择修改记录",vbOKOnly+vbExclamation,"警告"同进行修改IfbIsEditableFalseThenMsgBox交易已经完成,不能进行更新",vbOKOnly+vbExclamation,"警告"SubEndIftractFlagModifyactAddShowEndIfEndSubPrivateSubdgContractRowColChange(LastRowAsVariant,ByValLastColAsInteger)datagrid的值赋给相应定义的字符串IfresultThenHouseIddgContractColumnsTextrHouseNamedgContractColumnsTextrSignDatedgContractColumnsTextrSaleMoneydgContractColumnsTextrTaxDesdgContractColumnsTextrTaxdgContractColumnsTextrMediMoneydgContractColumnsTextPreMoneydgContractColumnsTextrAreadgContractColumnsTextrBelongdgContractColumnsTextrYContactdgContractColumnsTexttrYTeldgContractColumnsTextrYIDCarddgContractColumnsTextrJContactdgContractColumnsTexttrJTeldgContractColumnsTextrJIDCarddgContractColumnsTexttrYTimeLimitdgContractColumnsTexttrJTimeLimitdgContractColumnsTexttrPresentdgContractColumnsTextrJdelegatedgContractColumnsTextrYdelegatedgContractColumnsTexttrBManNamedgContractColumnsTextEndIfEndSubPrivateSubFormLoad)arClearnthClearteClearomboYearcboYearomboMonthcboMonthomboDatecboDatewDataContractviewEndSub***********************************************************************'说明：设置权限'参数：无***********************************************************************PrivateSubpurviewUserKindseMecmdAddEnabled=FalseMecmdDelEnabled=FalseMecmdModifyEnabled=FalseelectEndSub***********************************************************************'说明：将数据在datagrid中显示'参数：无***********************************************************************PublicSubviewDataContracttxtSql"selectHouseIdas房源编号,HouseNameas房源名称,SignDateas签订日期,"txtSql=txtSql+"SaleMoneyas[甲方实际售价(万元)],TaxDesas税率说明,Taxas[税金总txtSql=txtSql+"MediMoneyas[中介费(万元)],PreMoneyas[定金(万元)],Areaas建筑面elongastxtSql=txtSql+"YContactas乙方联系方式,YTelas乙方联系电话,YIDCardas乙方身份JContactas方式,"txtSql=txtSql+"JTelas甲方联系电话,JIDCardas甲方身份证号,YTimeLimitas乙方房后期限,JTimeLimitas甲方交房最后期限,"txtSql=txtSql+"Presentas甲方赠物记录,Jdelegateas甲方代表,Ydelegateas乙方代表,BManNameas[丙方(合同责任人)]"txtSqltxtSql+"fromtbContractporderbyHouseId"resultviewData(txtSql,dgContract)IfresultThenractDataSourceNothingEndIfub***********************************************************************'说明：判断房源交易是否完成'参数：无ruefalse***********************************************************************PrivateFunctionIsEditableAsBooleansEditableTruetxtSql="selectHouseIdfromtbHousewhereHouseId='"+strHouseId+"'"IfDBExisttxtSql=0ThenEditableFalsesEditableTrueEndIfFunctionPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub************************************************************************义************************************************************************xplicitPrivatetxtSqlAsStringSQLPrivateresultAsIntegerdatagrid记录数PrivatestrItemAsString楼盘编码rivatestrRegAsString'与区域名称对应的区域编码PrivatestrStruAsString户型编码PublicstrHouseIdAsString'房源编号PublicstrHouseNameAsString'房源名称PublicstrRegNameAsString'区域名称PublicstrItemNameAsString'楼盘名称PublicstrItemYearAsString建'筑年代PublicstrItemCopAsString建'筑单位PublicstrStruNameAsString'户型名称PublicstrAreaAsString'面积PublicstrFloorAsString'楼层PublicstrAllFloorAsString'总楼层PublicstrUnitAsString'单元PublicstrCarAreaAsString'车库面积PublicstrSchoolAsString'学校PublicstrBusAsString'公交线路PublicstrStreetAsString'临近街道PublicstrChamberAsString'小区会所PublicstrDoorNumberAsString'梯户ublicstrSquerAsStringublicstrEstAsStringublicstrFitmentAsStringublicstrServiceFeeAsStringublicstrBelongAsStringublicstrPriceAsStringPublicHouseFlagAsStringPrivateSubcmdAddClick)HouseFlag"add"ouseAddShowEndSubPrivateSubcmdClearClick)temCleargCleartemYearClearruClearomboYearcboItemYearetCboDataItemcboItemetCboDataRegcboRegetCboDataStrucboStruEndSubPrivateSubcmdDelClick)DimstrAsStringDimrstHouseAsADODBRecordsetDimresultsAsStringimbIsEditableAsBooleanbIsEditable=IsEditableIfLenTrimstrHouseId)=0ThenSubEndIftxtSql"selectHouseIdfromtbContractpwhereHouseId='"+strHouseId+"'"IfDBExisttxtSql<>0ThenSubEndIf除该责任区域房源信息IfbIsEditableFalseAndgUserKind="经纪人"ThenMsgBox能更新责任区域以外的数据",vbOKOnly+vbExclamation,"警告"SubEndIfstrMsgBox记录？",vbOKCancel,"删除当前记录")IfstrvbOKThentxtSql="deletefromtbHousewhereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstHouse,True)EndIfwDataHouseEndSubPrivateSubcmdExitClick)UnloadMeEndSubPrivateSubcmdModifyClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox击单元格选择修改记录",vbOKOnly+vbExclamation,"警告"改该责任区域房源信息IfbIsEditableFalseAndgUserKind="经纪人"ThenMsgBox能更新责任区域以外的数据",vbOKOnly+vbExclamation,"警告"SubEndIfHouseFlag"Modify"ouseAddShowEndIfEndSubPrivateSubcmdQueryClick)txtSql"selectHouseIdas房源编号,HouseNameas房源名称,RegNameas所属区域名称,"txtSql=txtSql+"ItemNameas楼盘名称,ItemYearas建筑年代,ItemCopas建筑单位,"txtSqltxtSql+"StruNameas户型名称,Areaas面积,Flooras楼层,AllFlooras总楼层,"txtSqltxtSql+"Unitas单元,CarAreaas车库面积,Schoolas学校,Busas公交线路,"txtSql=txtSql+"Streetas临近街道,Chamberas小区会所,DoorNumberas梯户,SquerastxtSqltxtSql+"Estas基础设施,Fitmentas装修状况,ServiceFeeas物业管理费,BelongasPriceas元)],Stateas销售状态"txtSql=txtSql+"from((tbHouseleftouterjointbRegionontbHouse.RegId=tbRegion.RegId)"txtSqltxtSql+"leftouterjointbItemontbHouse.ItemId=tbItem.ItemId)"txtSql=txtSql+"leftouterjointbStruontbHouse.StruId=tbStru.StruIdwheretbHouseHouseIdtbHouseHouseId"IfcboItemYearText>""ThentxtSql=txtSql+"andItemYear='"