房地产信息管理系统的设计与开发样本

房地产信息管理系统设计与开发二○一○年三月十日房地产信息管理系统设计与开发【摘要】该系统为满足中小房屋销售公司业务管理需要，按照普通房产销售管理业务流程，通过模块化设计,可以对楼盘、楼房、房屋、客户信息，房屋销售状况及员工业绩等各种信息进行全方位管理。系统由基本信息、房屋销售、记录报表和系统设立等四大模块构成。每个大模块又由各种分模块构成，例如，房屋销售模块中又涉及房屋销售管理、客户资料管理、销售收款管理和客户退款管理等,可以满足房屋销售业务各个环节需要。系统报表生成工具和分析工具使房屋销售状况和公司员工业绩一目了然。系统设立模块除了密码等常规设立外，尚有权限设立，不同权限人员进入不同操作模块，使数据具备保密性。系统使用Delphi7.0和SQLServer数据库为开发平台,系统具备较好安全性。该系统还具备操作界面和谐、使用以便、维护简朴等明显特点，是中小房产公司管理销售业务有力工具。【核心词】商品房销售管理系统，SQLSever数据库，Delhpi7.0，毕业论文TheDesignandDevelopmentofhumanresourcesmanagementsystem【Abstract】MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文摘要，内容应与中文摘要一致]【KeyWords】MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文核心词]，MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文核心词]，MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文核心词]，MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文核心词]，MACROBUTTONAcceptAllChangesInDoc[单击此处添加外文核心词]目录第1章概要 11.1房地产信息管理系统功能构造图： 11.1.2 11.2研究基本内容 11.2.1基本框架 21.2.2研究重点及要解决核心问题 2第2章数据库设计 32.1房地产信息管理系统数据库表 32.1.1楼盘基本信息表字段 42.1.1客户信息表字段 52.1.2系统流程图 62.2系统开发使用技术 62.2.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 62.2.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 6第3章主窗体设计 73.1主窗体设计概要 73.1.1主窗体详细设计 83.2数据模块设计 15第4章登录模块设计 184.1登录模块窗体设计 184.1.1登录窗口样式 185.1.2登录模块数据控件 194.1.2登录模块代码设计 205.1.3编译成功后登录窗口 23第5章功能模块设计 255.1房型资料录入模块设计 255.1.1在dm窗体中添加数据控件 255.1.2窗体详细设计 265.1.3房型资料录入窗体代码设计 275.2楼盘楼房资料录入模块设计 325.2.1做好连接数据表准备 335.2.2楼盘楼房资料录入模块界面设计 355.2.3楼房资料录入模块设计 375.2.4MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 385.2MACROBUTTONAcceptAllChangesShown[单击此处添加节标题] 385.2.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 385.2.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 38第6章制作系统安装程序 396.1InstallShield概述 396.1.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 396.1.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 406.1.3MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 406.2MACROBUTTONAcceptAllChangesShown[单击此处添加节标题] 406.2.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 406.2.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题] 40结论 42参照文献 43附录 46道谢 47图目录TOC\h\z\t"图标题"\c图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.12选取DataModule窗体 15图3.13DataModule窗体中连接控件 16图3.14fdc_conn控件Connection属性 16图3.15数据库连接成功 16图4.2设立DBLookupCombobox1控件属性 19图4-3为登录窗体访问数据库规定数据控件 20图4-4登录取顾客表 20图4-5登录窗口 24图5.1编辑CommandText属性 25图5.2编辑CommandText属性 26图5-3设计好房型资料录入窗体 27图5-4编译好房型资料录入窗体 28图5-5开始录入房型资料 28图5.1MACROBUTTONAcceptAllChangesShown[单击此处添加图标题] 31图6.1MACROBUTTONAcceptAllChangesShown[单击此处添加图标题] 32表目录TOC\h\z\t"表标题"\c表3.1人员基本资料表（JBZL） 7表3.2简历信息表（JLXX） 7表4.1MACROBUTTONAcceptAllChangesShown[单击此处添加表标题] 10表5.1MACROBUTTONAcceptAllChangesShown[单击此处添加表标题] 12表6.1MACROBUTTONAcceptAllChangesShown[单击此处添加表标题] 14第1章概要1.1房地产信息管理系统功能构造图：房地产信息管理系统功能诸多，系统大而复杂，设计起来非常繁琐，特别是销售某些，互有关联某些诸多，窗口套窗口。因此在设计之前，要把模块之间关系梳理清除。系统由基本信息、房屋销售、记录报表和系统设立四个大功能模块构成。图1-1房地产信息管理系统功能构造图1.1.2基本信息管理房屋销售管理系统基本信息中，关于楼房信息有楼盘（即咱们平时所说社区）、楼房（即该社区中第几号楼）、和房屋（即户）三层基本资料。一方面是要建立一种楼盘（社区）资料，即数据库中f_build表（楼盘基本信息表），一种实用化楼盘基本信息表有23项内容，比较复杂。接下来是建立每一座楼基本信息，即数据库中f_house表（楼房基本信息），表中明细也有15项之多。关于楼房第三项基本数据是详细到每一户，就是数据库中f_room（房屋信息表），动手设计之前，一定要紧记这三张表。此外尚有公司员工信息、客户信息等。第2章数据库设计2.1房地产信息管理系统数据库表用SQLServer创立数据库，取名为fdc.mdf.数据库一共有30张表，表名见表1：表1fdc.mdf数据库表表名称功能描述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.1.1楼盘基本信息表字段表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所示。2.1.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.1主窗体界面设计概要主界面首要任务是要通过主菜单给顾客提供调用各功能模块选取，因而设计菜单是主窗体设计第一步。此外，与主菜单相配合是工具条设计。工具条上放了许多使用频率高快捷键，以提高使用者操作速度。此外，在主菜单最下方有一种状态栏，该栏用于显示系统当前状态，例如当前操作员和系统时间等。主窗体运营成果如图3-1所示。状态条工具条主菜单状态条工具条主菜单图3.1主窗体页面3.1.2主窗体界面详细设计1.启动Delphi开发平台，将自动弹出窗体设为主窗体，并命名。主窗体name属性：mainform；主窗体单元文献名：mainunit.pas；工程文献名：fdcbuilding.prj。1）主菜单设计向主窗体中拖放一种主菜单控件，使用它默认名：Mainmenu1。在Mainmenu1上按右键，从弹出窗体中，选取“MenuDesigner”以设计主菜单。主菜单第一级有【房屋销售管理】、【数据记录报表】、【基本资料录入】、【系统设立】和【协助】等5项。详细内容如图3-1所示。这条线（分隔符）是在这条线（分隔符）是在Caption属性中输入英文状态下“-”号二级菜单一级菜单图3.2一级菜单设计图2）设计二级菜单在MenuDesigner中按照图3.2中标记完毕【房屋销售管理】菜单二级菜单设计。选取热键接着输入二级菜单名先输入一级菜单名选取热键接着输入二级菜单名先输入一级菜单名图3.3【房屋销售管理】二级菜单设计图接下来分别设计【数据登记表表】、【基本资料录入】、【系统设立】和【协助】菜单二级菜单。设计好二级菜单如图3-4所示。图3.4别的三项菜单二级菜单设计图至于【协助】菜单二级菜单只有“关于”和“协助F2”这2项。咱们可以展开Delphi设计平台左上角“objecttreeview”视窗查看主窗体“MainForm”所有菜单内容，如图3-5所示。

这是分隔符这是分隔符图3.5菜单详细内容3)主窗体背景设计在主窗体（MainForm）中放入一种“image控件”，在它“picture”属性中载入一张保存在本工程文献目下（根目录）图片作为背景图。图3.6设立image控件”picture”属性以载入背景图定期器定期器图3.7载入背景图后样式4)主窗体状态栏控件设计在主窗体最下方添加TStatusBar(在控件栏Win32页)组件，该组件用来显示主窗体运营时状态，用默认名“StausBar1”。将StausBar1提成三个区域，分别是StatusPanel1、StatusPanel2和StatusPanel3。第一种区域显示公司名称，第二个区域显示当前操作员，第三个区域显示系统时间。为此，要在主窗体中添加一种时间控件。这些功能实现是靠代码完毕，稍后简介这些代码。将状态条分段操作办法是：在StausBar1控件上按鼠标右键，弹出“EditingStatusBar1.Panels”编辑窗，在该编辑窗上面按右键，选取弹出窗“Add”，将StatusBar1提成三段，分别是0-STatusPanel1、1-STatusPanel1、2-STatusPanel1。然后在其“Width”属性中设立每一段宽度，如图3-8所示。设立第一段宽度为150设立第一段宽度为150每选取一次Add就会增长一段图3.8将StausBar1控件提成三段5)状态栏代码设计●为了在状态栏第一段中显示当前登录者姓名，一方面在主窗体“public”域中声明一种UserName字符串变量：publicname:string;username:string;●为了在状态栏第三段中显示当前系统时间，要在主窗体中添加一种时间控件，双击主窗体中定期器控件，在弹出代码编写器中编写如下代码：procedureTmainform.Timer1Timer(Sender：TObject);beginMainform.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设计好工具栏7)主窗体工具栏拖曳工具栏不一定始终停靠在一种个固定地方，而是随时可以变换地方，这就要用到控件拖曳技术。●ToolBar1Align属性设立为：alNone，即不固定位置；●ToolBar1DranKInd属性设立为：dkDock；●在主窗体最下方添加一种Panel1组件，它Heigh属性设为1；Align属性设为alBottem；Docksite设为True●程序有关代码：procedureTMainForm.FormCreate(Sender：TObject);begintoolbar1.Hide;end;procedureTMainForm.ToolBar1StartDock(Sender：TObject;varDragObject：TDragDockObject);beginpanel1.Height:=1;end;procedureTMainForm.Panel1DockDrop(Sender：TObject;Source：TDragDockObject；X，Y：Integer);beginpanel1.Height:=toolbar1.Height;end;3.2主窗体第一次代码设计主窗体界面设计好后，着手编写主窗体初始化三段代码，以便先让它空转起来。1）procedureFormShow(Sender：TObject);2）procedureFormCreate(Sender：TObject);3）procedureFormKeyDown(Sender：TObject；varKey：Word;Shift：TShiftState)；//按下F功能键所执行功能4）为了在编译完毕后能退出程序，可先编写主菜单“【系统设立】”中“退出系统”项代码：procedureTMainForm.N27Click(Sender：TObject)；//退出系统菜单beginClose;end;由于内容较多，代码就不一一列出，详细代码请参见程序设计某些。同步要在主窗口代码编辑窗口public处设立如下变量，以备后用：publicmodelr,buildlr,comlr,emplr,sale,gather,plan,payreturn,saler,house,custpay,cust,custfx,user1,databack:boolean;name:string;username:string;3.3数据模块设计在Delphi数据库应用程序设计中，数据库与SQLServer服务器连接是通过数据模块（DataModule）来实现。从菜单“File”|“New”|“Other”，弹出选取“DataModule”模版窗口，从该窗体中点选DataModule项，如图3-12所示。点选DataModule点选DataModule图3.12选取DataModule窗体在新生成DataModule窗体中，从“ADO”组件页中拖放连接数据库“Connection”组件，将其Name属性设为“fdc_conn”，再从“DataAceess”页中拖放一种“DataSource”控件将其Name属性设为“dsuser”，并给数据模版（窗体）命名为“dm”，单元文献保存为：“dmunit.pas”。设计好数据模块如图3-13所示。这些是登录页面访问f_User表所需控件DataSource控件这些是登录页面访问f_User表所需控件DataSource控件图3.13DataModule窗体中连接控件咱们采用ADO数据库连接技术。设立fdc_conn控件Connection属性，以实现连接FDC.mdb数据库。按下图一方面选取提供程序“MicrosoftOLEDBforSQLServer”，然后按右边所谓图示填写数据库所在服务器名和将要连接数据库“FDC”，最后确认数据库连接成功。要连接数据库名选取服务器选取提供程序要连接数据库名选取服务器选取提供程序图3.14fdc_conn控件Connection属性图3.15数据库连接成功在后来设计中将在“dm”窗体中逐次添加其她数据控件。第4章登录模块设计4.1登录模块窗体设计程序启动画面消失后，将弹出登录窗体，顾客通过输入顾客名和密码就可以进入系统，然后依照顾客权限打开相应模块。顾客登录作用是保护应用程序中有关资料，以防止无关人员对程序信息肆意破坏。当进入程序后，顾客只能依照顾客拥有权限对程序中有关模块进行相应操作。为了防止无关人员在数据库中获取顾客信息，而相应用程序进行操作，可以先对顾客名和密码进行再加密后存入数据库中，这样顾客名和密码就不太容易被盗取，使应用程序变得更加安全。当没有输入顾客名和密码时，程序会提示“请输入对的顾客名和密码”，当顾客名或，密码错误时，系统会提示：“对不起，没有这个顾客名”或“密码错误”，系统重新回到登录窗口。一种顾客最多容许输入三次顾客名和密码，超过三次，系统将退出。4.1.1登录窗口样式登录窗体普通样式如图4-1。图4.1登录窗体布局图窗体中用到图片要事先准备好，保存在工程文献根目录下。要注意是，顾客名背面输入框采用控件是位于DataControls页DBLookupCombobox1。用它可以从下拉列表框中选取已经保存在User数据表中顾客，不必每次输入顾客名。读取User表中“读取User表中“顾客名称”字段数据模块中一种名为“dsuser”Datasource数据模块中一种名为“dsuser”Datasource控件外形设立图4.2设立DBLookupCombobox1控件属性5.1.2登录模块数据控件登录窗体中输入顾客名和密码之后，点击键，程序代码就去访问“FDC.mdf”数据库中“User”数据表，通过函数（）将输入顾客名和密码与User表中保存数据与否一致。如果一致，程序就打开主窗体，供登录者进行所需操作；否则会弹出提示框，要你输入对的顾客名和密码，并且最多只能持续输入三次，若三次都不成功，那么程序就退出。为了可以实现这些功能，咱们必要在数据模块（DataModule）中放置如下数据控件：DataSource控件它DataSet属性：UserDataSetDataSource控件它DataSet属性：UserDataSetADODataSet控件它CommandText属性：select*fromf_user表控件，它TableName属性：f_user图4ADODataSet控件它CommandText属性：select*fromf_user表控件，它TableName属性：f_user4.1.2登录模块代码设计登录系统时既要检查顾客名与否存在，还要验证密码与否对的，并且还要获取顾客权限供背面窗体调用。顾客名、密码和顾客权限存储在f_user表中，字段名有顾客编号、顾客名称、和顾客密码以及顾客权限等多项，参见图4-4：代表顾客有权进行房型录入操作代表顾客有权进行房型录入操作图4-4登录取顾客表检查通过后，程序进入主窗体。登录模块重要程序代码如下：unitloginunit;private{Privatedeclarations}publictimes:integer；//设立一种计算登录次数参数{Publicdeclarations}end;varloginform：Tloginform;implementationusesdmunit，mainunit；//登录窗口要与数据模块窗体和主窗体有关联{$R*.dfm}procedureTloginform.DBLookupComboBox1KeyDown(Sender：TObject;varKey：Word；Shift：TShiftState)；//当点击顾客名输入框时执行动作beginifkey=13then//按下回车键edit1.SetFocus;end;procedureTloginform.DBLookupComboBox1Enter(Sender：TObject);begindblookupcombobox1.Color:=clcream;end;procedureTloginform.DBLookupComboBox1Exit(Sender：TObject);begindblookupcombobox1.Color:=clskyblue;end;procedureTloginform.Edit1Enter(Sender：TObject);beginedit1.Color:=clcream；//Edit1是密码输入框end;procedureTloginform.Edit1Exit(Sender：TObject);beginedit1.Color:=clskyblue;end;procedureTloginform.Edit1KeyDown(Sender：TObject；varKey：Word;Shift：TShiftState);beginifkey=13thenbitbtn1.SetFocus;end;procedureTloginform.BitBtn1Click(Sender：TObject)；//按下键beginifdm.usertable.RecordCount=0thenbeginMainform.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.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;endelsebeginifedit1.Text<>trim(dm.usertable.FieldValues['顾客密码'])thenbegintimes:=times+1；//登录次数+1iftimes<3thenbeginmessagebox(self.Handle,'顾客名称或顾客密码不对的，请重新输入','提示信息',mb_iconinformation);edit1.SetFocus;endelsebeginmessagebox(self.Handle,'您已经三次输入不对的，请退出','提示信息',mb_iconinformation);application.Terminate;end;endelsebeginMainform.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['数据备份与恢复'];:=dm.usertable.FieldValues['顾客名称'];dm.usertable.Active:=false;close;end;end;end;procedureTloginform.FormCreate(Sender：TObject);begindm.usertable.Open;times:=0;end;procedureTloginform.FormClose(Sender：TObject；varAction：TCloseAction);begindm.usertable.Active:=false;end;procedureTloginform.FormShow(Sender：TObject);beginDBLookupComboBox1.SetFocus;end;procedureTloginform.BitBtn2Click(Sender：TObject);beginapplication.Terminate;end;end.5.1.3编译成功后登录窗口运营后登录窗口如图4-5所示。图4-5登录窗口输入事先存储在顾客表f_user中顾客名和密码，就可以进到主窗体。图4-6预先窜放在f_user表信息到此，咱们就完毕了第一阶段设计。下面进入到功能模块详细设计。第5章功能模块设计5.1房型资料录入模块设计房型资料录入模块提供对房屋类型管理，该模块重要对f_mode表进行基本增长、编辑、删除和修改等操作。模块中用到了Excel电子表格技术，该项技术比较复杂。5.1.1在dm窗体中添加数据控件为了可以访问f_mode表，需要在md窗体（DataModule1）中加入有关数据访问控件，并进行相应属性设立。添加控件分别是TADOTable（命名为:mode）、TDATASource（命名为：dsmode）以及数据集控件ADODataSet（命名为：mode_ds）。这三个控件是用来访问f_mode表这三个控件是用来访问f_mode表第一种是表控件TADOTable；第二个是数据源控件TDataSource；第三个是数据集控件TADODataSet。图5.1编辑CommandText属性表控件“mode”设立Connection属性：fdc_conn，指定将要连接表即TableName属性为：f_mode（数据库中f_mode表）。dmode控件（DataSource）只需要设立它DataSet属性为mode，即DataSource字符集是通过表控件“mode”获得。而mode_ds控件除了要设立Connection属性同样是fdc_conn之外，还要设立CommandText属性。设立CommandText属性环节是：点击该属性背面…，弹出CommandText编辑框，按照图4-1左边选取f_mode表，右边框中列出要从该表中选取字段名。图5.2编辑CommandText属性5.1.2窗体详细设计1.设计环节（1）在工程中新建一种窗体，窗体name属性：modeform，Capation属性：房型资料录入，BoederStyle属性设为：bsSingle；（2）在窗体上方添加各种TDBEdit组件（在DataControls页）这些组件用于输入修改和增长房屋类型时信息。它们DataSour属性设为de.dsmode（见图5-1），并设立每个组件DataField属性为相应连接字段。也就是说，DBEdit组件将要去连接f_mode（房型表）表中哪个字段。例如说DBEdit1它要连接字段是房型名称，那么它DataField属性就选取“房型名称”，依此类推。（3）在窗体下方添加TDBNavigator组件，采用默认名DBNavigator1。通过该组件中箭头控制DBGrid表中数据记录位置。它DataSour属性设为de.dsmode。（4）在DBNavigator1组件右边添加9个TSpeedButton组件（快捷键），这些控件用来执行添加、修改、保存、打印、显示房型图片等命令。（5）在窗体中央添加一种TDBGrid组件，占满差ungtide整个中央某些。设立它DataSour属性设为de.dsmode。用它来显示房型资料所有信息。设计好方形资料录入模块如图5-3所示。图5-3设计好房型资料录入窗体5.1.3房型资料录入窗体代码设计在编写该窗体代码之前，一定不要忘掉该窗体一定要使用“dm”单元文献，也就是DataModule模块。在代码编辑窗口前面某些要有如下内容：usesdmunit；当前来编写该窗体初始化时三段代码：procedureFormCreate(Sender：TObject);procedureFormShow(Sender：TObject);procedureFormKeyDown(Sender：TObject；varKey：Word;Shift：TShiftState);由于在窗口上使用了诸如F4、F5这样功能键，当按下这些功能键时就相当于按下了窗口上“增长”、“保存”等操作按钮。详细说，按下功能键F4，也就是按下了窗体中。下图是modeform窗体初始化三个事件。图5-4房型资料录入窗体初始化时三个事件三个事件详细代码：procedureTmodeform.FormShow(Sender：TObject)；//房型资料录入窗体显示beginsb_save.Enabled:=false；//保存按钮sb_cancel.Enabled:=false；//取消按钮end;procedureTmodeform.FormCreate(Sender：TObject);beginkeypreview:=true;dm.mode.Open；//datamodule模块中表控件负责打开f_mode表（房型基本信息表）end;procedureTmodeform.FormKeyDown(Sender：TObject；varKey：Word;Shift：TShiftState);beginifkey=113then//F2按下F2键相称于按下“保存键”ifsb_save.Enabled=truethensb_save.Click;ifkey=114then//F3ifsb_cancel.Enabled=truethensb_cancel.Click;ifkey=115then//F4ifsb_add.Enabled=truethensb_add.Click;ifkey=116then//F5ifsb_edit.Enabled=truethensb_edit.Click;ifkey=117then//F6ifsb_del.Enabled=truethensb_del.Click;ifkey=118then//F7ifsb_picture.Enabled=truethensb_picture.Click;ifkey=119then//F8ifsb_print.Enabled=truethensb_print.Click;ifkey=120then//F9ifsb_close.Enabled=truethensb_close.Click;ifkey=121then//F10ifsb_excel.Enabled=truethensb_excel.Click;ifkey=38thendm.mode.Prior;ifkey=40thendm.mode.Next；end;编译好房型资料录入窗体如图5-4所示。图5-4编译好房型资料录入窗体1.接下来编写增长房型资料即点击下方按钮时代码，以便能增长房型（户型）资料。procedureTmodeform.sb_addClick(Sender：TObject)；//点击增长按钮var//先设立三个局部变量y,m,d:word；//代表年、月、日s:string;newid:int64;i:integer;beginfori:=0tomodeform.ComponentCount-1doifmodeform.Components[i]istdbeditthentdbedit(modeform.Components[i]).ReadOnly:=false;dbgrid1.Enabled:=false;decodedate(now,y,m,d)；//该函数分解所指定日期为年、月、日s:=inttostr(y);ifdm.mode.RecordCount=0thenbegindm.mode.Append；//mode是表控件，Append是设立数据文献搜索途径dm.mode.FieldByName('房型编号').AsString:=s+'0001';end;ifdm.mode.RecordCount>0thenbegindm.mode.Last;newid:=strtoint(dm.mode.FieldValues['房型编号'])+1;dm.mode.Append;dm.mode.FieldByName('房型编号').AsString:=inttostr(newid);end;dbedit1.SetFocus；//光标停在房型名称输入控件处sb_save.Enabled:=true；//页面下方保存按钮是可见sb_cancel.Enabled:=true；//取消按钮是可见添加和编辑按钮变为灰色sb_add.Enabled:=false;添加和编辑按钮变为灰色sb_del.Enabled:=false;sb_edit.Enabled:=false;sb_print.Enabled:=false;sb_excel.Enabled:=false;sb_picture.Enabled:=false;end;该段代码编写完后，编译程序，得到下图所示成果。添加和编辑按钮变为灰色添加和编辑按钮变为灰色图5-5开始录入房型资料2.编辑按钮代码如下：5.2楼盘楼房资料录入模块设计该模块可以对楼盘（即咱们平时所说社区）详细资料进行管理，并提供对楼盘中所有楼房（即几号楼或××大厦）资料进行管理。在该窗体中选取选取一种楼盘，单击窗体下方楼房按钮，即可弹出“楼房资料”窗口，该楼房资料从属于前面选取楼盘。该模块运营成果如图5-6所示。图5-5楼盘楼房资料录入模块运营成果在该窗口中单击按钮会弹出“楼房资料”模块窗口，见图5-6。图5-5楼房资料录入模块运营成果5.2.1做好连接数据表准备（1）楼盘、楼房资料录入模块要访问数据库中两个表，第一种表是楼房基本信息表，即f_house表。为此，咱们一方面要在名称为dm数据模块(DataModule)中添加几种数据访问控件。●第一种固然是ADOTable表控件，取名为，housetable1；●它Connection属性设立为fdc_conn（连接数据库Connection控件）；●TableName属性为f_house（要打开数据表名）；●接下来加入一种DataSource（数据源控件）控件，命名为dshouse，它Dataset（数据集）属性指定为housetable1（所有数据来源于表控件）。●再接下来放入一种TADODataSet（数据集）控件，命名为house_dataset。它Connection属性设定为fdc_conn，它尚有一种很重要“CommandText”属性需要设立，详细操作是：单击属性“…”，弹出CommandTextEditor：图5-6CommandTextEditor窗口在编辑窗体左边指定表名“f_house”，在右边编辑框内写入“select*fromf_house”，表达要访问表中所有字段。（2）第二个要访问表是楼盘基本信息表，即f_build表。为此，在dm窗体中放置表控件和数据源控件，并将它们关联起来。●ADOTable表控件，取名为，housetable；●它Connection属性依然设立为fdc_conn；●TableName属性为f_build；●加入一种DataSource（数据源控件）控件，命名为dshouse，它Dataset属性指定为housetable（注意不要指定错了）。访问2个数据表（f_house，f_build）访问控件放置好后dm窗体如图5-7所示。访问f_build表访问f_house访问f_build表访问f_house表数据控件图5-7新添访问f_house和f_build表数据控件5.2.2楼盘楼房资料录入模块界面设计1.设计环节（1）在系统中新建一种窗体，窗体名为houseform，单元文献名为houseunit，Caption属性为“楼盘楼房资料录入”，BorderStyle属性设为bsSingle；（2）设计好界面如图5-8所示。图5-8楼盘楼房资料录入界面5.2.3楼房一种楼盘也就是一种社区里会有若干栋大楼，每栋大楼均有它名称、楼房类型（有高层、小高层、单体别墅等）房屋数量（户数）等多项数据需要输入。在上述楼盘资料录入窗体中若单击下方“楼房”快捷键，就会弹出楼房资料录入窗口。1.设计环节（1）在系统中新建一种窗体，命名为house_houseform，单元文献为house_houseunit.pas，Caption属性为“楼房资料”。（2）该窗体要用到数据表是“f_house”，为此咱们要在数据模块中添加必要数据控件。●ADOTable表控件，取名为，housetable1；●它Connection属性依然设立为fdc_conn；●TableName属性为f_house；●加入一种DataSource（数据源控件）控件，命名为dshousetable，它Dataset属性指定为house_dataset。（3）楼房资料录入模块还要访问数据表f_build注意：由于楼房资料录入模块是由楼盘资料录入模块中进入，因此楼盘资料录入模块必要关联楼房资料录入模块，也就是说，在楼盘资料录入模块中要Usehouse_houseunit.pas。5.2.4MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]5.2MACROBUTTONAcceptAllChangesShown[单击此处添加节标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]5.2.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]5.2.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]第6章制作系统安装程序6.1InstallShield概述MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]如下是阐明文字，正式成文后请删除。模板使用：（1）请不要删除任何具备格式模版文字！（2）按照提示直接单击或者单击后执行“选取性粘贴”－“无格式文本”就可以添加相应内容!6.1.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]如下是阐明文字和插图示例，正式成文后请删除。插图标示和引用办法请参见毕业设计（论文）模板2.1.1AABCD图6.1MACROBUTTONAcceptAllChangesShown[单击此处添加图标题]6.1.2MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]如下是阐明文字和表格示例，正式成文后请删除。表格标示和引用办法请参见毕业设计（论文）模板2.1.2表6.1MACROBUTTONAcceptAllChangesShown[单击此处添加表标题]描述1ζR(1−ζ)R描述2ζR（重复）(1−ζ)R6.1.3MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]如下是阐明文字和公式示例，正式成文后请删除。公式标示和引用办法请参见毕业设计（论文）模板2.1.3（6.1）6.2MACROBUTTONAcceptAllChangesShown[单击此处添加节标题]MACROBUTTONAcceptAllChangesShown[单击此处添加论文正文]6.2.1MACROBUTTONAcceptAllChangesShown[单击此处添加条标题]MACROBUTTONAcceptAllChang