SLMIS集成与运行.pptVIP

第10章 SLMIS集成与运行 本章学习要点 SLMIS售楼管理系统是一个典型的客户/服务器（C/S）体系结构的数据库应用系统。 C/S模式的基本工作原理是：客户程序向数据服务器发送SQL请求，服务器返回数据和结果。客户端负责实现用户接口功能，同时封装部分或全部的应用逻辑。服务器端的数据库服务器主要提供数据存储功能，也可通过触发器和存储过程提供部分应用逻辑，并且通常把那些不同的（不管是已知的还是未知的）前台应用所不能违反的规则在服务器程序中集中实现，例如访问者的权限、编号不准重复等规则。所有这些，对于运行客户应用程序的最终用户，是“透明”的，最终用户无须过问（通常也无法干涉）这背后的过程，就可以完成自己的一切工作。在客户服务器架构的应用中，数据库真正变成了公共、专业化的仓库，受到独立的专门管理。 本章将介绍SLMIS数据库系统集成以及系统运行调试方法，最终完成这个传统C/S结构管理信息系统的全面设计。 10.1 工程总体设计 房屋售楼管理系统是一个商品房从录入、销售、合同制作到结算的管理信息系统。系统总体设计和数据库设计已在第1章中详细介绍，下面重点讲解工程总体设计。 运行Delphi将新建一个工程，其包含一个空白窗体。在此工程中在新建14个空白窗体Form（在这里不包括策划管理和销售前台主界面窗体），将工程中的14个空白窗体分别按表进行设置，其中原组件对象名（即Name属性）是空白窗体的默认名字，由系统自动编号给出，即Form1、Form2、Form3等等，将其改为新组件对象名（Name属性）并对其Caption属性的值按照表10-1的内容进行设置。 10.1.2 创建公共使用单元 在售楼管理系统中，将系统要访问的全局变量放在同一个单元文件publicvar.pas中，将系统多个模块要调用的公共过程和函数放在同一个单元文件upublicfunc1.pas中。这样在要使用这些变量、过程或函数的单元中，在其uses子句中包含publicvar和upublicfunc1单元即可访问这些变量或者调用这些函数。 在Delphi的File菜单下单击【New】|【unit】子菜单项，系统将自动产生一个空框架的单元文件，将该文件保存为publicvar.pas。 10.1.3 创建数据模块 在Delphi的主菜单上选中【File】|【New】|【Data Module】来创建一个数据模块，将其Name属性设置为DataModule1。使用了数据模块后访问位于其上的组件的方法是：数据模块名.组件对象名。 在数据模块中，首先要放入一个ADOConnection1组件，其主要属性见表10-2。 10.2.3 系统主窗体设计 主窗体是系统的控制中心，也是用户操作的主要窗体之一。在工程中选中空白窗体Frm_Slmismain，按照第4章的第4节和6节设计主窗体菜单以及其它快捷按钮，同时第4章的第4、6节也介绍了各菜单项和按钮的处理程序。主窗体的FormShow事件中，根据用户当前登录身份，即将登录用户名和当前时间在状态条中显示，实现代码如下。 procedure TFrm_Slmismain.FormShow(Sender: TObject); begin StatusBar1.Panels[1].Text :=当前用户——+username; StatusBar1.Panels[2].Text:= formatdatetime(今天是yyyy年mm月dd日 dddd ,now); end; 主窗体“工具”菜单项包括三个子菜单项，分别是日历、计算器和打印机设置，其中日历子菜单项的处理程序代码如下，将日历窗体以模态形式显示。 procedure Tdfm11.M_rili Click(Sender: TObject); var frmwnl:tfrmwnl; begin application.CreateForm(Tfrmwnl,frmwnl); try frmwnl.showmodal; finally frmwnl.release; end; end; 日历窗体的设计如图10-5所示，从工具栏的Samples页面选择Calendar组件放置在日历窗体中，其Name属性为cale1，主要是该组件显示时间，添加ComboBox组件用于提供给用户从下拉框中选择月份，其Items属性设置一月~十二月，Name属性为ComboBox1，添加UpDown组件用于提供给用户在文本框“2004”的基础上增加或减少1的操作按钮，其Name属性为UpDown1，标签Label3和Label4分别用于显示时间和日期，缺省状态下显示当前时间和日期， 调用计时器组件Timer1的Timer事件即可实现，代