第23页 共53页
built_time customer_remark 字段名 id sort price remark establishment_people establishment_time explain door_model fitment class 字段名 number content release_time release_people release_company 字段名 id sort house_id demand_id demand_name price release_data release_people release_company remark door_model fitment class 字段名 number house_id owner_id owner_name door_model fitment class 字段名 number datatime varchar 数据类型 varchar varchar float varchar varchar datatime varchar varchar varchar varchar 数据类型 varchar varchar varchar varchar varchar 数据类型 varchar varchar varchar varchar varchar float datatime varchar varchar varchar varchar varchar varchar 数据类型 varchar varchar varchar varchar varchar varchar varchar 数据类型 varchar 8 100 字段长度 20 50 8 50 10 8 50 50 50 20 字段长度 20 10000 8 10 50 字段长度 20 40 50 50 50 10 8 10 50 50 50 50 20 字段长度 50 50 50 50 50 50 20 字段长度 50 主/外键 P 主/外键 P 主/外键 P 主/外键 P F 主/外键 P 建档日期 备注 说明 编号 房屋类别 收费金额 备注 制定人 制定时间 标准说明 户型 装修 房型 说明 编号 信息内容 发布时间 发布人 发布单位 说明 编号 房屋类别 房屋编号 客户编号 客户姓名 收取金额 收取时间 收取人 收取单位 备注 户型 装修 房型 说明 编号 房屋编号 业主编号 业主姓名 户型 装修 房型 说明 编号 ⑺收费标准表（charge_standard） ⑻日常信息表（daily_info） ⑼费用信息表(agency_fee) ⑽求租意向房源信息表（rent_seek_housesfb） ⑾求购意向房源信息表（sale_seek_housesfb） 第24页 共53页
house_id owner_id owner_name door_model fitment class 字段名 xh rq bfmc bflj czr varchar varchar varchar varchar varchar varchar 数据类型 int datatime varchar varchar varchar 数据类型 varchar varchar varchar varchar varchar 数据类型 varchar varchar datatime varchar 数据类型 varchar varchar 50 50 50 50 50 20 字段长度 4 8 30 50 10 字段长度 20 4 30 2 2 字段长度 20 20 20 20 字段长度 4 30 F 主/外键 P 主/外键 p F 主/外键 P 房屋编号 业主编号 业主姓名 户型 装修 房型 说明 序号 备份时间 备份名称 备份路径 操作人 说明 用户编号 功能编号 功能名称 权限读 权限写 说明 用户编号 用户名称 用户角色 用户密码 说明 功能编号 功能名称 ⑿数据备份信息表(data_back) ⒀用户权限表(user_fun) 字段名 userno fun_no fun_name inquire modify 字段名 user_no user_name user_role user_password 字段名 fun_no fun_name ⒁用户信息表（user_info） ⒂功能管理表（fun_info） 主/外键 P 3.3 开发环境与运行环境设计
3.3.1 开发环境设计
本课题采用Delphi和SQL SERVER2000中型数据库技术进行管理系统的三层结构的智能开发。以层的观点看，一个数据库应用程序中有三个基本层。
数据层：负责存储数据，本系统采用SQL Server2000存储数据。
业务层：负责从数据层获取适当格式的数据。例如客户端编号的获取，系统时间的获取都是在应用服务器中统一实现的。
表示层：负责在客户应用程序中以适当的格式显示数据。即与用户交互的界面，如房屋信息浏览，客户信息浏览等。表示层总是与业务层打交道，从不直接与数据层打交道。
第25页 共53页
客户应用程序 客户应用程序 客户应用程序 应用 程序 服务器 远程 数据库 服务器 图3.3 三层体系结构
SQL Server 2000是微软公司推出的新一代大型关系型数据库管理系统，SQL Server 2000除了具有扩展性、可靠性以外，内置了功能强大的工具，提供了比其他数据库系统更方便的功能，是公认的性价比较高的数据库，其数据运行速度快，运算处理精确，安全稳定，即使突然断电也不会造成数据损坏或丢失。 3.3.2 运行环境设计
运行本系统，对机器的要求不是很高，在Windows操作系统下，普通PC机就可以正常运行，客户端要运行bin目录下的scksrvr.exe程序,并需要配置INI文件。应用程序也要配置其INI文件。
客户端INI文件： [user]
Username=系统管理员 Imename=中文（简体） [server] IP=127.0.0.1 服务器INI文件： [Database]
Server.Name=USER-FDC72C15BB Datebase Name=house User Name=sa PassWord=
第26页 共53页
4 应用服务器设计
4.1 应用服务器连接流程图
客户端程序在运行时，需要连接应用服务器以取得服务，但是，在系统实际应用的时候，运行应用服务器程序的计算机是经常改变的，因此在客户端程序启动时，应该先找到运行应用服务器程序的计算机，并与之连接，这就是连接应用服务器的工作原理。本系统动态配置了ADO，将数据库连接的配置信息存放INI文件里，在以后程序安装的时候，只需要修改INI文件就可以很方便连接上数据库了。应用服务器连接流程图如图4.1所示。
添加INI文件 根据配置信息连接数据库 读取 重新修改INI文件 重新配置 连接成功 读取连接失败 失败 进入系统 退出 图4.1 应用服务器连接流程图
4.2 应用服务器数据模块设计
创建应用服务器是在File中New中选择other命令项，在对话框中选择Multitier页签，从中选择RemoduleDataModule项，单击OK按钮，进入向导框，才CoClassName编辑框中输入house，house数据模块就建立好了，再以同样的方法建立house数据模块。
在数据模块上，把数据集组件ADOQuery放到数据模块上，并进行有关设置，使得它们能够访问远程的SQL数据库。把DataSetProvider组件放到远程数据模块上，有一个数据集组件，就要有一个DataSetProvider组件与之对应。设置DataSetProvider的DataSet属性，指定要访问的数据库，就是在远程数据模块上放置的是数据集组件。然后在上面编写代码，实现业务规则。
本系统应用服务器定义了两个数据模块，common数据模块和house数据模块，我们在ICommon接口下定义了客户端调用的接口函数的方法。单击NewMethod菜单，在ICommon下输入方法的名称及方法的输入、输出参数，方法的各个参数设置完毕后，在Delphi中进行保存。当把界面切换到远程数据模块对应的单元中时，就可以在此数据模块的单元代码见到已经声明好的方法。
应用服务器common数据模块设计如图4.2所示：
第27页 共53页
图4.2 应用服务器数据模块图 4.3 应用服务器设计的难点
在设计应用服务器程序时，主要难点是实现业务规则，实现提供给客户端应用程序的接口函数和参数，在本系统中，我们在ICommon接口中定义了几个方法，在服务器中实现自动获取系统时间，自动编号、数据备份、数据恢复。这几个方法具体实现代码如下：
//获取编号
procedure Tcommon.getbh(tablename, fieldname: OleVariant; out bh: OleVariant; SQL_Condition, width: OleVariant); var cxtj:string; xhstr:string; len,i,wid:integer; begin
cxtj:=' where '+Fieldname+' like '''+sql_condition +'%''' ; len:=length(sql_condition); wid:=width; Q_xh.Close;
if sql_condition='' then
Q_xh.SQL.Text:='select max('+Fieldname+') as maxbh from '+tablename else
Q_xh.SQL.Text:='select '+Fieldname+' as maxbh from '+tablename+cxtj+' order by '+Fieldname;
Q_xh.open; Q_xh.last;
if Q_xh.fieldbyname('maxbh').asstring ='' then xhstr:='1' else
xhstr:=inttostr(strtoint(copy(Q_xh.fieldbyname('maxbh').asstring,len+1,wid-len))+1);