房地产信息管理系统的设计与开发.docx

Delphi + SQL Server2000
房地产信息治理系统的设计与开发（课本）

盘算分院短学期课本（2）

2

房地产信息治理系统的设计与开发
【摘要】该系统为满足中小衡宇销售公司业务治理的需要，凭据一般的房产销售治理业务流程，通过模块化设计,能够对楼盘、楼房、衡宇、客户信息，衡宇销售情况及员产业绩等多种信息进行全方位治理。
系统由底子信息、衡宇销售、统计报表和系统设置等四大模块组成。每个大的模块又由多个分模块组成，好比，衡宇销售模块中又包罗衡宇销售治理、客户资料治理、销售收款治理和客户退款治理等,能够满足衡宇销售业务各个环节的需要。系统的报表生成东西和阐发东西使衡宇销售情况和公司员工的业绩一目了然。系统的设置模块除了密码等通例设置外，另有权限设置，差别权限的人员进入差别操纵模块，使数据具有保密性。
系统使用Delphi 7.0和SQL Server数据库为开发平台,系统具有很好的宁静性。
该系统还具有操纵界面友好、使用方便、维护简朴等显著特点，是中小房产企业治理销售业务的有力东西。

48

浙江大学都会学院结业论文 Error! No text of specified style in document.
目录
Delphi + SQL Server2000 1
第1章 提要 1
房地产信息治理系统的功效结构图： 1
1.1.2 底子信息治理 1
第2章 数据库设计 3
房地产信息治理系统数据库的表 3
楼盘根本信息表的字段 4
2.1.2 楼房信息表的字段 5
2.1.3 衡宇信息表的字段 5
客户信息表的字段 5
2.1.2 系统流程图 6
第3章 主窗体设计 7
主窗体界面设计 7
主窗体界面设计提要 7
主窗体界面详细设计 8
3.2 主窗体的第一次代码设计 15
3.3 数据模块设计 16
第4章 登录模块设计 21
登录模块的窗体设计 21
登录窗口样式 21
登录模块的数据控件 23
登录模块代码设计 24
第5章 功效模块设计 30
5.1 房型资料录入模块设计 30
在dm窗体中添加数据控件 30
5.1.2 窗体详细设计 31
5.1.3 房型资料录入窗体的代码设计 32
5.2 楼盘楼房资料录入模块的设计 39
5.2.1 做好连接数据表的准备 40
5.2.2 楼盘楼房资料录入模块的界面设计 42
5.2.3 楼房资料录入模块的设计 44
第6章 数据统计报表的设计 45
6.1 数据统计报表设计概述 45
参考文献 46
附录 47

浙江大学都会学院结业论文 Error! No text of specified style in document.
图目录
图2.2 系统流程图 6
图3.1 主窗体页面 7
图3.2 一级菜单设计图 8
图3.3 【衡宇销售治理】的二级菜单设计图 9
图3.4 其余三项菜单的二级菜单设计图 9
图3.5 菜单的详细内容 10
图3.6 设置image控件的”picture”属性以载入配景图 10
图3.7 载入配景图后的样式 11
图3.8 将StausBar1控件分成三段 12
图3.9 状态条第三段显示系统时间 13
图3.10 设计好的东西栏 14
图3.11 设置快捷键的Layout属性 14
图3.12 选择DataModule窗体 16
图3.13 DataModule窗体中的连接控件 17
图3.14 fdc_conn控件的Connection属性 17
图3.15 数据库连接乐成 18
图4.2 设置DBLookupCombobox1控件的属性 22
图4-3 为登录窗体访问数据库要求的数据控件 23
图4-4 登录用的用户表 24
图4-5 登录窗口 29
图4-6 预先窜放在f_user表的信息 29
图5.1 编辑CommandText属性 30
图5.2 编辑CommandText属性 31
图5-3 设计好的房型资料录入窗体 32
图5-4 房型资料录入窗体初始化时的三个事件 33
三个事件的详细代码： 33
图5-4 编译好的房型资料录入窗体 35
图5-5 开始录入房型资料 36
图5-5 楼盘楼房资料录入模块运行结果 39
图5-5 楼房资料录入模块运行结果 40
图5-6 CommandText Editor窗口 41
图5-7 新添访问f_house和f_build表的数据控件 42
图5-8 楼盘楼房资料录入界面 43

浙江大学都会学院结业论文 Error! No text of specified style in document.
表目录
表数据库的表 3
表2 楼盘根本信息表f_build 的字段 4
表5 客户信息表f_customer 的字段 5

房地产信息治理系统的设计与开发 第1章 提要
第1章 提要
房地产信息治理系统的功效结构图：
房地产信息治理系统的功效许多，系统大而庞大，设计起来非常繁琐，尤其是销售部门，相互关联的部门许多，窗口套窗口。所以在设计之前，要把模块之间的干系梳理清除。
系统由底子信息、衡宇销售、统计报表和系统设置四个大的功效模块组成。

图1-1 房地产信息治理系统功效结构图
底子信息治理
衡宇销售治理系统的底子信息中，关于楼房的信息有楼盘（即我们平时所说的小区）、楼房（即该小区中的第几号楼）、和衡宇（即户）三层底子资料。
首先是要创建一个楼盘（小区）的资料，即数据库中的f_build表（楼盘根本信息表），一个实用化的楼盘根本信息表有23项内容，比力庞大。接下来是创建每一座楼的根本信息，即数据库中f_house表（楼房根本信息），表中的明细也有15项之多。关于楼房的第三项根本数据是具体到每一户，就是数据库中的f_room（衡宇信息表），动手设计之前，一定要牢记这三张表。别的另有公司员工信息、客户信息等。

房地产信息治理系统的设计与开发 附录
第2章 数据库设计
房地产信息治理系统数据库的表
用SQL Server2000创建数据库，取名为.
数据库一共有30张表，表名见表1：
表数据库的表
表名称
功效描述
f_appertain_house
隶属房产
f_build
楼盘根本信息
f_buy_factor
客户购置因素信息表
f_buy_will
客户购置意向
f_customer
客户信息
f_customer_change
客户调换信息
f_customwer_return
退房信息表
f_customer_work
客户事情信息
f_employees
员工信息表
f_family_structure
家庭结构
f_house
楼房根本信息
f_house_aspect
楼房朝向信息表
f_house_type
楼房类型
f_house_structure
楼房结构
f_mode
房型根本信息表
f_pay_item
付款项目表
f_pay_mode
支付方法表
f_pay_plan
付款摆设
f_post
岗亭表
f_price_reflect
代价反应表
f_require_area
需求面积
f_require_floor
需求楼层
f_room_mode
需求房型
f_room
衡宇信息表
f_room_format
衡宇格式表
f_room_pay
衡宇付款
f_standard
装修及设备尺度
f_tube_net
网管资料
f_sys_company
公司信息
f_user
用户资料

在上述的30张表中，最重要的是下列三表，楼盘à楼房à衡宇。
1. f_build 楼盘根本信息。就是记载一个新建楼盘，即“小区”的所有信息；
2. f_house 楼房根本信息。一个楼盘下面有多栋楼房，该表记载楼房信息。
3. f_room 衡宇根本信息。每栋楼房有多个户数，该表记载每户的信息。
楼盘根本信息表的字段
表2 楼盘根本信息表f_build 的字段
字段名称
字段类型
主键
允许为空
默认值
功效描述
楼盘编号
Varchar(20)
是

标识一个楼盘
楼盘名称
Varchar(20)

是

地理位置
Varchar(20)

是

占地面积
Varchar(20)

是

修建面积
Varchar(20)

是

修建占地面积
Varchar(20)

是

门路广场占地面积
Varchar(20)

是

修建密度
Varchar(20)

是

容积率
numeric(9)

是

绿化面积
varchar(20)

是

绿化率
numeric(9)

是

开发日期
datetime(8)

是
time_default

楼房数量
numeric(9)

是

车位数
numeric(9)

是

衡宇数量
numeric(9)

是

出售数量
numeric(9)

是

预定命量
numeric(9)

是

出售未审核数量
numeric(9)

是

未出售数量
numeric(9)

是

楼盘备注
varchar(20)

是

建档人员
varchar(20)

是

建档日期
datetime(8)

是
time_default

楼盘图片
image

是

2.1.2 楼房信息表的字段
楼房信息表f_house的字段如表3所示。
衡宇信息表的字段
楼房信息表f_house的字段如表4所示。

2.1.4客户信息表的字段
表5列出的是客户信息表的字段。客户信息表也是本系统的重要数据表。

表5 客户信息表f_customer 的字段
字段名称
字段类型
主键
允许为空
默认值
功效描述
客户编号
Numeric(9)
是

客户名称
Varchar(10)

是

性别
Varchar(2)

是

年龄
Varchar(3)

是

职业
Varchar(16)

是

身份证号码
Varchar(23)

是

邮编
Varchar(10)

是

联系方法
varchar(15)

是

事情单位
varchar(40)

是

联系地点
varchar(40)

是

家庭结构
varchar(16)

是

需求面积
varchar(16)

是

需求楼层
varchar(11)

是

需求房型
varchar(10)

是

购置意向
varchar(10)

是

代价反应
varchar(10)

是

支付方法
varchar(10)

是

考虑因素
varchar(10)

是

信息来源
varchar(10)

是

购房数量
numeric(9)

是

购房金额
float(8)

是

已付金额
float(8)

是

未付金额
float(8)

是

备注
varchar(100)

建档人员
varchar(10)

建档日期
datetime(8)

修改人员
varchar(8)

修他日期
datetime(8)

2.1.2 系统流程图
图2.2 系统流程图

第3章 主窗体设计
主窗体界面设计
主窗体界面设计提要
主界面首要任务是要通过主菜单给用户提供调用各功效模块的选择，因此设计菜单是主窗体设计的第一步。另外，与主菜单相配合的是东西条的设计。东西条上放了许多使用频率高的快捷键，以提高使用者的操纵速度。
另外，在主菜单的最下方有一个状态栏，该栏用于显示系统的当前状态，例如当前的操纵员和系统时间等。
主窗体运行的结果如图3-1所示。
状态条
东西条
主菜单

图3.1 主窗体页面
3.1.2 主窗体界面详细设计
1. 启动Delphi 开发平台，将自转动出的窗体设为主窗体，并命名。
主窗体的name属性：mainform；
主窗体的单位文件名：mainunit.pas；
工程文件名：fdcbuilding.prj。

1）主菜单设计
向主窗体中拖放一个主菜单控件，使用它的默认名：Mainmenu1。
在Mainmenu1 上按右键，从弹出的窗体中，选择“Menu Designer”以设计主菜单。主菜单的第一级有【衡宇销售治理】、【数据统计报表】、【根本资料录入】、【系统设置】和【资助】等5项。具体内容如图3-1所示。
这条线（分开符）是在Caption属性中输入英文状态下的“-”号
二级菜单
一级菜单

图3.2 一级菜单设计图
2）设计二级菜单
在Menu Designer 中凭据图3.2 中的标识完成【衡宇销售治理】菜单的二级菜单的设计。
选择热键
接着输入二级菜单名
先输入一级菜单名

图3.3 【衡宇销售治理】的二级菜单设计图

接下来分别设计【数据统计表表】、【根本资料录入】、【系统设置】和【资助】菜单的二级菜单。设计好的二级菜单如图3-4所示。

图3.4 其余三项菜单的二级菜单设计图

至于【资助】菜单的二级菜单只有“关于”和“资助 F2” 这2项。
我们可以展开Delphi 设计平台左上角的“object treeview”视窗检察主窗体“MainForm”的全部菜单内容，如图3-5所示。

这是分开符

图3.5 菜单的详细内容
3) 主窗体配景设计
在主窗体（MainForm）中放入一个“image控件”，在它的“picture”属性中载入一张生存在本工程文件目下（根目录）的图片作为配景图。

图3.6 设置image控件的”picture”属性以载入配景图

定时器

图3.7 载入配景图后的样式

4) 主窗体的状态栏控件设计
在主窗体的最下方添加TStatusBar(在控件栏的Win32页)组件，该组件用来显示主窗体运行时的状态，用默认名“StausBar1”。
将StausBar1分成三个区域，分别是StatusPanel1、StatusPanel2和StatusPanel3。第一个区域显示公司名称，第二个区域显示当前的操纵员，第三个区域显示系统时间。为此，要在主窗体中添加一个时间控件。
这些功效的实现是靠代码完成的，稍后介绍这些代码。
将状态条分段的操纵要领是：在StausBar1 控件上按鼠标右键，弹出“” 编辑窗，在该编辑窗上面按右键，选择弹出窗的“Add”，将StatusBar1分成三段，分别是0-STatusPanel1、1-STatusPanel1、2-STatusPanel1。然后在其“Width”属性中设置每一段的宽度，如图3-8 所示。
设置第一段的
宽度为150
每选择一次Add就会增加一段

图 将StausBar1控件分成三段
5) 状态栏的代码设计
●为了在状态栏的第一段中显示目前登录者的姓名，首先在主窗体的“public”域中声明一个UserName的字符串变量：
public
name:string;
username:string;

●为了在状态栏的第三段中显示目前的系统时间，要在主窗体中添加一个时间控件，双击主窗体中的定时器控件，在弹出的代码编写器中编写如下代码：
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
Mainform.StatusBar1.Panels[2].Text :='现在时间： '+datetimetostr(now);
end;

编译后就可以在状态条的第三段看到系统时间，如图3-9所示：
东西栏
显示系统时间

图3.9 状态条第三段显示系统时间

6) 主窗体东西栏的设计
在主窗体中添加一个东西栏，东西栏上安排若干个快件键，以提供某些快速操纵。
添加东西栏的操纵要领是：
1. 从Win32页中拖放一个ToolBar1 控件到主窗体中。设置Align属性（对齐）为alNone；设置DragKind属性为dkDock。
2. 从Additional 页中拖放10个SpeedButton按钮到ToolBar1上。这些SpeedButton按钮作为东西栏的快捷键；
3. 给每个按钮添加上相应的图标和文字。
为了能给这些SpeedButton按钮添加上图标，首先要准备好图标（素材），并将他们存放在一个专门的文件夹中，然后在主窗体中添加一个ImageList 控件，使用默认名ImageList1。选择SpeedButton1，通过它的Glyph 属性添加上为它准备好的图标，并从它的Caption 属性中输入中文名。
设计好的东西栏ToolBar1如图3-10所示：

图3.10 设计好的东西栏
A实现快捷键图标在上、文字在下的要领：
如下图所示，先选中ToolBar上的一个快捷键，将它的Layout属性设置为blGlyphTop就可以了。
把该键的Layout属性设置为blGlyphTop
被选中的快捷键

图3.11 设置快捷键的Layout属性

7) 主窗体东西栏的拖曳
东西栏不一定始终停靠在一个个牢固的地方，而是随时可以变更地方，这就要用到控件的拖曳技能。
●ToolBar1的Align属性设置为：alNone，即不牢固位置；
●ToolBar1的DranKInd属性设置为：dkDock；
●在主窗体的最下方添加一个Panel1组件，它的Heigh属性设为1；Align属性设为alBottem；Docksite设为True
●步伐的相关代码：
procedure TMainForm.FormCreate(Sender: TObject);
begin
toolbar1.Hide;
end;

procedure TMainForm.ToolBar1StartDock(Sender: TObject;
var DragObject: TDragDockObject);
begin
panel1.Height:=1;
end;

procedure TMainForm.Panel1DockDrop(Sender: TObject;
Source: TDragDockObject; X, Y: Integer);
begin
panel1.Height:=toolbar1.Height;
end;
3.2 主窗体的第一次代码设计
主窗体的界面设计好后，着手编写主窗体初始化的三段代码，以便先让它空转起来。
1）procedure FormShow(Sender: TObject);
2）procedure FormCreate(Sender: TObject);
3）procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); //按下F功效键所执行的功效
4）为了在编译完成后能退出步伐，可先编写主菜单“【系统设置】”中的“退出系统”项的代码：
procedure TMainForm.N27Click(Sender: TObject); //退出系统菜单
begin
Close;
end;
由于内容较多，代码就不一一列出，具体的代码请拜见步伐设计部门。
同时要在主窗口的代码编辑窗口的public处设立如下变量，以备后用：
public
modelr,buildlr,comlr,emplr,sale,gather,plan,payreturn,
saler,house,custpay,cust,custfx,user1,databack:boolean;
name:string;
username:string;
数据模块设计
在Delphi的数据库应用步伐设计中，数据库与SQL Server 办事器的连接是通过数据模块（Data Module）来实现的。
从菜单“File” | “New” | “Other” ，弹出选择“Data Module”模版窗口，从该窗体中点选Data Module 项，如图3-12所示。
点选Data Module

图3.12 选择DataModule窗体
窗体名：dm;
单位文件名：dmunit.pac;
Caption：dm。
记着：主窗体和接下来完成的登录窗体都要‘“as”!
在新生成的Data Module窗体中，从“ADO”组件页中拖放连接数据库的“Connection” 组件，将其Name属性设为“fdc_conn”，再从“DataAceess”页中拖放一个“DataSource”控件将其Name属性设为“dsuser”，并给数据模版（窗体）命名为“dm” ，单位文件生存为：“dmunit.pas” 。设计好的数据模块如图3-13所示。
这些是登录页面访问f_User表所需的控件
DataSource控件

图3.13 DataModule窗体中的连接控件
我们接纳ADO数据库连接技能。
设置fdc_conn控件的Connection属性，以实现连接FDC.mdb数据库。
按下图首先选择提供步伐“Microsoft OLE DB for SQL Server”，然后按右边所谓图示填写数据库所在的办事器名和将要连接的数据库“FDC”，最后确认数据库连接乐成。
要连接的数据库名
选择办事器
选择提供步伐

图 fdc_conn控件的Connection属性

图3.15 数据库连接乐成
接下来在“dm”窗体中逐次添加以下数据控件：

1) userdataSet 控件
属性设置：
— Connection Æ fdc_conn
— CommandText Æ 点击 背面的…，弹出下面的编辑窗体：
选择左边的f_user表后，在这里书写select *from f_user 代码

2) usertable 控件，这是ADO页的表控件，取名为：usertable
Usertable的属性设置：
要连接到fdc_conn控件
要指定它要访问的数据表：f_user表。

4）duser控件，这是一个datasource 控件，与usertable配套使用。
duser控件的属性设置：
指定它的DataSet

5) duserdataset 这是一个DataSource控件（在DataAccess页），取名为duserdataset，表现与前一个userdataset控件配套使用。

duserdataset属性设置：
指定它的DataSet 属性

6) 另外放了两个控件，这是查询用的，其中控件要设置Connection属性：，DataSource1没有属性设置。

注意：该Datamodule 即dm 窗体没有事件，也就是说demunit.pas 中不消编写代码。

第4章 登录模块设计
4.1 登录模块的窗体设计
步伐的启动画面消失后，将弹出登录窗体，用户通过输入用户名和密码就可
以进入系统，然后凭据用户权限打开相应的模块。
用户登录的作用是掩护应用步伐中的相关资料，以防备无关人员对步伐信息
的肆意破坏。当进入步伐后，用户只能凭据用户拥有的权限对步伐中的相关模块进行相应的操纵。为了防备无关人员在数据库中获取用户信息，而对应用步伐进行操纵，可以先对用户名和密码进行再加密后存入数据库中，这样用户名和密码就不太容易被偷取，使应用步伐变得越发宁静。
当没有输入用户名和密码时，步伐会提示“请输入正确的用户名和密码”，当
用户名或，密码错误时，系统会提示：“对不起，没有这个用户名”或“密码错误”，系统重新回到登录窗口。一个用户最多允许输入三次用户名和密码，凌驾三次，系统将退出。
4.1.1 登录窗口样式
登录窗体的一般样式如图4-1。
图4.1 登录窗体结构图
窗体中的控件及其名称：

窗体中用到的图片要事先准备好，生存在工程文件的根目录下。
要注意的是，用户名背面的输入框接纳的控件是位于DataControls页的DBLookupCombobox1。用它可以从下拉列表框中选择已经生存在User数据表中的用户，不必每次输入用户名。
读取User表中的“用户名称”字段
DBLookupCombobox1的属性设置图4-2所示：
数据模块中的一个
名为“dsuser”的Datasource控件
外形设置

图4.2 设置DBLookupCombobox1控件的属性
登录模块的数据控件
登录窗体中输入用户名和密码之后，点击键，步伐代码就去访问
“FDC.mdf” 数据库中的“ User” 数据表，通过函数（）将输入的用户名和密码与User 表中生存的数据是否一致。如果一致，步伐就打开主窗体，供登录者进行所需的操纵；不然会弹出提示框，要你输入正确的用户名和密码，并且最多只能连续输入三次，若三次都不乐成，那么步伐就退出。
为了能够实现这些功效，我们必须在数据模块（DataModule）中安排如下数
据控件：
DataSource控件
它的DataSet属性：UserDataSet

ADODataSet控件
它的CommandText属性：
select * from f_user
表控件，它的TableName属性：f_user

图4-3 为登录窗体访问数据库要求的数据控件
登录系统时既要查抄用户名是否存在，还要验证密码是否正确，并且还要获
取用户的权限供背面窗体调用。用户名、密码和用户权限存储在f_user表中，字段名有用户编号、用户名称、和用户密码以及用户权限等多项，拜见图4-4：
代表用户有权进行房型录入操纵

图4-4 登录用的用户表
4.1.3 登录模块代码设计
登录模块的主要步伐代码如下：
unit loginunit;
private
{ Private declarations }
public
times:integer; //设置一个盘算登录次数的参数
{ Public declarations }
end;
var
loginform: Tloginform;
implementation
uses dmunit, mainunit; //登录窗口要与数据模块窗体和主窗体相关联
{$R *.dfm}

procedure Tloginform.DBLookupComboBox1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState); //当点击用户名输入框时执行的行动
begin
if key=13 then //按下回车键
edit1.SetFocus ;
end;

procedure Tloginform.DBLookupComboBox1Enter(Sender: TObject);
begin
dblookupcombobox1.Color:=clcream;
end;

procedure Tloginform.DBLookupComboBox1Exit(Sender: TObject);
begin
dblookupcombobox1.Color:=clskyblue;
end;

procedure Tloginform.Edit1Enter(Sender: TObject);
begin
edit1.Color:=clcream; //Edit1是密码输入框
end;

procedure Tloginform.Edit1Exit(Sender: TObject);
begin
edit1.Color:=clskyblue;
end;

procedure Tloginform.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
bitbtn1.SetFocus ;
end;

procedure Tloginform.BitBtn1Click(Sender: TObject); //按下键
begin
if dm.usertable.RecordCount=0 then
begin
Mainform.Username:='超等用户';
mainform.StatusBar1.Panels[1].Text:='操纵员: '+mainform.username;
mainform.modelr:=true;
主窗体的状态条
mainform.buildlr:=true;
mainform.emplr:=true;
lr:=true;
mainform.sale:=true;
mainform.gather:=true;
mainform.cust:=true;
主窗体中的那些菜单
因为登录的是“超等用户”
所有的菜单都是可操纵的
mainform.plan:=true;
mainform.payreturn:=true;
mainform.saler:=true;
mainform.house:=true;
mainform.custpay:=true;
mainform.custfx:=true;
mainform.user1:=true;
mainform.databack:=true;
dm.usertable.Active:=false;
close;
end
else
begin
if edit1.Text<>trim(dm.usertable.FieldValues['用户密码']) then
begin
times:=times+1; //登录次数+1
if times<3 then
begin
messagebox(self.Handle,'用户名称或用户密码不正确，请重新输入','提示信息',mb_iconinformation);
edit1.SetFocus ;
end
else
begin
messagebox(self.Handle,'您已经三次输入不正确，请退出','提示信息',mb_iconinformation);
application.Terminate ;
end;
end
else
begin
Mainform.Username:=dblookupcombobox1.text;
mainform.StatusBar1.Panels[1].Text:='操纵员: '+mainform.username;
mainform.modelr:=dm.usertable.FieldValues['房型录入'];
mainform.buildlr:=dm.usertable.FieldValues['楼盘楼房录入'];
mainform.emplr:=dm.usertable.FieldValues['员人为料录入'];
lr:=dm.usertable.FieldValues['公司资料录入'];
mainform.sale:=dm.usertable.FieldValues['衡宇销售治理'];
mainform.gather:=dm.usertable.FieldValues['收款治理'];
mainform.cust:=dm.usertable.FieldValues['客户资料治理'];
mainform.plan:=dm.usertable.FieldValues['收款摆设查询'];
mainform.payreturn:=dm.usertable.FieldValues['给客户退款治理'];
mainform.saler:=dm.usertable.FieldValues['销售代表统计'];
mainform.house:=dm.usertable.FieldValues['楼房销售统计'];
mainform.custpay:=dm.usertable.FieldValues['客户购订收款统计'];
mainform.custfx:=dm.usertable.FieldValues['客户数据阐发'];
mainform.user1:=dm.usertable.FieldValues['用户治理'];
mainform.databack:=dm.usertable.FieldValues['数据备份与规复'];
mainform.name:=dm.usertable.FieldValues['用户名称'];
dm.usertable.Active:=false;
close;
end;
end;
end;

procedure Tloginfo