《delphi工程窗体结构设计》由会员分享，可在线阅读，更多相关《delphi工程窗体结构设计（3页珍藏版）》请在金锄头文库上搜索。
1、5.2.3 工程窗体结构设计在 Delphi 中，应用程序通过一个工程 Project 来实现，而工程通过多个窗体 Form 来实 现应用程序所具有的功能。与教材管理系统的系统功能模块相对应，工程中窗体的结构如 图所示。 在主窗体设计好后，就可以创建和设计各个窗体，有两种方法：一种是创建一个空白 窗体就马上进行设计，然后再创建和设计下一个空白窗体 ；另一种是先新建所有的空白 窗体，然后再逐个设计。现在新建 13 个空白窗体 Form，将工程中的 13 个空白窗体分别按 表进行设置(主要设置各个窗体的 Name 属性値、Caption 属性值和单元文件名)，并将各个 窗体的单元文件保存到子目录“
2、Source”下。窗体及其单元文件名属性属性值NamefrmLogin用户登录窗体 Loginfrm.pasCaption欢迎登录教材管理系统NamefrmUser用户管理窗体 Userfrm.pasCaption用户管理NamefrmPasswordChange密码修改窗体 PasswordChangefrm.pasCaption密码修改NamefrmClassManage班级管理窗体 ClassManagefrm.pasCaption班级管理NamefrmUnites单位信息窗体 Unitesfrm.pasCaption单位信息NamefrmPayBookFee缴纳书费窗体 PayBook
3、Feefrm.pasCaption缴纳书费NamefrmReturnBookFee退回书费窗体 ReturnBookFeefrm.pasCaption退回书费NamefrmBookIn教材入库窗体 BookInfrm.pasCaption教材入库NamefrmStuGainBook学生领书窗体 StuGainBookfrm.pasCaption学生领书NamefrmBookFeeQuery书费查询窗体 BookFeeQueryfrm.pasCaption书费查询NamefrmStorageQuery库存查询窗体 StorageQueryfrm.pasCaption库存查询NamefrmAbou
4、t关于窗体 Aboutfrm.pasCaption关于NamefrmSplash封面窗体 Splashfrm.pasCaption5.2.4 创建公共使用单元在本教材管理系统中，将系统要访问的全局变量放在同一个单元文件 pubicvar_u.pas 中。 这样在要使用这些变量的单元中，只需在其 uses 子句中包含 publicvar_u 单元，即可以访问 这些变量。在 delphi 的 File 菜单下单击 New|unit 命令，系统将自动产生一个空框架的单元文件， 将该文件保存为 publicvar.pas。 在公共单元文件中，设计如下的全局变量： unit publicvar_u;in
5、terface var /添加公共全局变量logintimes:integer; /登录次数username:string;/用户名password:string; /保存用户密码/四个权限,qx1-系统管理权，qx2-收费权 ，qx3-出入库权 ，qx4-查询权qx:array1.4 of boolean;qxname:array1.4 of string; /保存权限名anewlogin:boolean;/是否重新登录标志recordapp:boolean;/记录是否被追加newrecord:boolean;/是否是新记录strlength:integer;/字符串长度filename:s
6、tring;dbname,dbsourcename: string;implementationend. 5.2.5 创建数据模块数据模块类似于普通的窗体，在数据模块上只能存放不可见组件。将数据访问组件、 BDE 组件或 ADO 组件放在数据模块中，程序中的单元可以访问数据模块中的组件，这样 做有利于程序的结构化，便于修改和对数据进行统一管理。下面介绍如何建立数据模块。 在 Delphi 的主菜单上选择 File|New|Data Module 命令来创建一个数据模块，将其窗体名 （Name 属性）设置为 DMbook，保存的文件名为 Data_u.pas。使用了数据模块后，访问位 于其上的组
7、件的方法是：数据模块名.组件对象名。 本系统采用 ADO 接口访问数据库，故添加一个 TADOConnection 组件，name 属性设 置为 ADOConn。在 C/S 架构中，ADOConnection 组件用于为客户端和服务器建立连接， 并对连接进行管理。 在系统所有的窗体中都可以通过数据模块窗体来引用其中的数据组件 ADOConn，只需 要在相应的单元文件中的实现部分即 implementation 语句下面加入“uses data_u;”代码即 可。登录窗体需要使用数据模块中数据组件 ADOConn，因此数据模块窗体应该放在最前 面，这需要在工程中设置。设置方法如下：在 Project 菜单下单击 Option 子菜单项，选择 Forms 页面，按图所示的进行设置。图中 Auto-create forms 下的列表框中显示的是运行时 在内存中自动创建的静态窗体，Available Forms 下面的列表框中显示的是运行时临时创建 的动态窗体，使用动态窗体可以节省系统资源。
