Delphi工程窗体结构设计.docVIP

5.2.3 工程窗体结构设计 在Delphi中，应用程序通过一个工程Project来实现，而工程通过多个窗体Form来实现应用程序所具有的功能。与教材管理系统的系统功能模块相对应，工程中窗体的结构如图所示。 在主窗体设计好后，就可以创建和设计各个窗体，有两种方法：一种是创建一个空白窗体就马上进行设计，然后再创建和设计下一个空白窗体．．．；另一种是先新建所有的空白窗体，然后再逐个设计。现在新建13个空白窗体Form，将工程中的13个空白窗体分别按表进行设置(主要设置各个窗体的Name属性値、Caption属性值和单元文件名)，并将各个窗体的单元文件保存到子目录“\Source”下。 窗体及其单元文件名 属性 属性值 用户登录窗体 Loginfrm.pas Name frmLogin Caption 欢迎登录教材管理系统 用户管理窗体 Userfrm.pas Name frmUser Caption 用户管理 密码修改窗体 PasswordChangefrm.pas Name frmPasswordChange Caption 密码修改 班级管理窗体 ClassManagefrm.pas Name frmClassManage Caption 班级管理 单位信息窗体 Unitesfrm.pas Name frmUnites Caption 单位信息 缴纳书费窗体 PayBookFeefrm.pas Name frmPayBookFee Caption 缴纳书费 退回书费窗体 ReturnBookFeefrm.pas Name frmReturnBookFee Caption 退回书费 教材入库窗体 BookInfrm.pas Name frmBookIn Caption 教材入库 学生领书窗体 StuGainBookfrm.pas Name frmStuGainBook Caption 学生领书 书费查询窗体 BookFeeQueryfrm.pas Name frmBookFeeQuery Caption 书费查询 库存查询窗体 StorageQueryfrm.pas Name frmStorageQuery Caption 库存查询 关于窗体 Aboutfrm.pas Name frmAbout Caption 关于 封面窗体 Splashfrm.pas Name frmSplash Caption 5.2.4创建公共使用单元 在本教材管理系统中，将系统要访问的全局变量放在同一个单元文件pubicvar_u.pas中。这样在要使用这些变量的单元中，只需在其uses子句中包含publicvar_u单元，即可以访问这些变量。 在delphi的File菜单下单击New|unit命令，系统将自动产生一个空框架的单元文件，将该文件保存为publicvar.pas。 在公共单元文件中，设计如下的全局变量： unit publicvar_u; interface var //添加公共全局变量 logintimes:integer; //登录次数 username:string;//用户名 password:string; //保存用户密码 //四个权限,qx[1]-系统管理权，qx[2]-收费权 ，qx[3]-出入库权 ，qx[4]-查询权 qx:array[1..4] of boolean; qxname:array[1..4] of string; //保存权限名 anewlogin:boolean;//是否重新登录标志 recordapp:boolean;//记录是否被追加 newrecord:boolean;//是否是新记录 strlength:integer;//字符串长度 filename:string; dbname,dbsourcename: string; implementation end. 5.2.5 创建数据模块 数据模块类似于普通的窗体，在数据模块上只能存放不可见组件。将数据访问组件、BDE组件或ADO组件放在数据模块中，程序中的单元可以访问数据模块中的组件，这样做有利于程序的结构化，便于修改和对数据进行统一管理。下面介绍如何建立数据模块。 在Delphi的主菜单上选择File|New|Data Module命令来创建一个数据模块，将其窗体名（Name属性）设置为DMbook，保存的文件名为Data_u.pas。使用了数据模块后，访问位于其上的组件的方法是：数据模块名.组件对象名。 本系统采用ADO接口访问数据库，故添加一个TADOConnection组件，name属性设置为A