Delphi工程窗体结构设计

《Delphi工程窗体结构设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5.2.3工程窗体结构设计在Delphi中，应用程序通过一个工程Project来实现，而工程通过多个窗体Form来实现应用程序所具有的功能。与教材管理系统的系统功能模块相对应，工程中窗体的结构如图所示。在主窗体设计好后，就可以创建和设计各个窗体，有两种方法：一种是创建一个空白窗体就马上进行设计，然后再创建和设计下一个空白窗体．．．；另一种是先新建所有的空白窗体，然后再逐个设计。现在新建13个空白窗体Form，将工程中的13个空白窗体分别按表进行设置(主要设置各个窗体的Name属性値、Caption属性值和单元文件名)，并将各个窗体的单元文件保存到子目录“Source”下。窗体

2、及其单元文件名属性属性值用户登录窗体Loginfrm.pasNamefrmLoginCaption欢迎登录教材管理系统用户管理窗体Userfrm.pasNamefrmUserCaption用户管理密码修改窗体PasswordChangefrm.pasNamefrmPasswordChangeCaption密码修改班级管理窗体ClassManagefrm.pasNamefrmClassManageCaption班级管理单位信息窗体Unitesfrm.pasNamefrmUnitesCaption单位信息缴纳书费窗体PayBookFeefrm.pasNamefrmPayBookFe

3、eCaption缴纳书费退回书费窗体ReturnBookFeefrm.pasNamefrmReturnBookFeeCaption退回书费教材入库窗体BookInfrm.pasNamefrmBookInCaption教材入库学生领书窗体StuGainBookfrm.pasNamefrmStuGainBookCaption学生领书书费查询窗体BookFeeQueryfrm.pasNamefrmBookFeeQueryCaption书费查询库存查询窗体StorageQueryfrm.pasNamefrmStorageQueryCaption库存查询关于窗体Aboutfrm.pasN

4、amefrmAboutCaption关于封面窗体Splashfrm.pasNamefrmSplashCaption5.2.4创建公共使用单元在本教材管理系统中，将系统要访问的全局变量放在同一个单元文件pubicvar_u.pas中。这样在要使用这些变量的单元中，只需在其uses子句中包含publicvar_u单元，即可以访问这些变量。在delphi的File菜单下单击New

5、unit命令，系统将自动产生一个空框架的单元文件，将该文件保存为publicvar.pas。在公共单元文件中，设计如下的全局变量：unitpublicvar_u;interfacevar//添加公共全局变量

6、logintimes:integer;//登录次数username:string;//用户名password:string;//保存用户密码//四个权限,qx[1]-系统管理权，qx[2]-收费权，qx[3]-出入库权，qx[4]-查询权qx:array[1..4]ofboolean;qxname:array[1..4]ofstring;//保存权限名anewlogin:boolean;//是否重新登录标志recordapp:boolean;//记录是否被追加newrecord:boolean;//是否是新记录strlength:integer;//字符串长度filename:

7、string;dbname,dbsourcename:string;implementationend.5.2.5创建数据模块数据模块类似于普通的窗体，在数据模块上只能存放不可见组件。将数据访问组件、BDE组件或ADO组件放在数据模块中，程序中的单元可以访问数据模块中的组件，这样做有利于程序的结构化，便于修改和对数据进行统一管理。下面介绍如何建立数据模块。在Delphi的主菜单上选择File

8、New

9、DataModule命令来创建一个数据模块，将其窗体名（Name属性）设置为DMbook，保存的文件名为Data_u.pas。使用了数据模块后，访问位于其上的组件的方法是：数据模块

10、名.组件对象名。本系统采用ADO接口访问数据库，故添加一个TADOConnection组件，name属性设置为ADOConn。在C/S架构中，ADOConnection组件用于为客户端和服务器建立连接，并对连接进行管理。在系统所有的窗体中都可以通过数据模块窗体来引用其中的数据组件ADOConn，只需要在相应的单元文件中的实现部分即implementation语句下面加入“usesdata_u;”代码即可。登录窗体需要使用数据模块中数据组件ADOConn，因此数据模块窗体应该放在最前面，这需要