系统窗体组成主要由程序主窗体，查询窗体，基本信息注册窗体，合同表窗体，离职窗体，异动窗体以及数据模块窗体组成。下面分别给出这些窗体的设计。
在编写数据库应用程序时，经常要遇到这样的情况，即多个组件、窗体同时访问相同的数据源，如果为每一个组件或者窗体都设置一个数据源将是十分耗时的工件，而且要保证这些数据源的确是相同的也需花一番功夫。那么，能不能将这些数据源集中管理，最好是做成一个统一的模块，需要时就将该模块引入而不必直接操作数据源本身呢？数据模块（DataModule）是解决这个问题最好的答案。简单说来，数据模块是用来集中管理数据源的一个窗体，该窗体可被需要的地方随时引入。
图5-4
本程序的数据模块（data_mod）窗体图。ADO_Connection连接到数据库，其他的ADOQuery(QtyB-ase,QryRolePrivilege,QryRole,QryDepline,QryDepceo)在Delphi的学习中对ADO组件了解的更加清楚，使用也较BDE更为熟练，而且，ADO组件的功能也较BDE更为强大，所以在这里采用ADO组件来进行数据库联接。在程序开始时有下代码来测试程序与数据库的连接：
data_mod.ADO_Con.ConnectionString:= PromptDataSource(Handle,data_mod.ADO_Connection.ConnectionString);
显示的连接窗体如下：
图5-5 数据链接属性窗口
§6.3 数据库连接
Delphi中处理数据库主要有两种方法，也就是BDE、ADO，从Delphi 6.0开始还加入了一种dbExpress方法。 另外，Delphi还提供了专门处理Borland 公司自己的数据库产品InterBase 数据库的专门的方法。本系统使用的是ADO技术。
ADO 技术是微软提出来的处理关系型数据库和非关系型数据库的新技术，它基于微软被称为OLE DB的数据访问模式，它是专门为了给大范围商业数据源提供访问而设计的，包括传统的关系型数据表、电子邮件系统、图形格式、Internet资源等。ADO 所需内存更少，更适合大流量和大事务量的网络计算机系统。
ADO 顶层有三个对象：Connection、Command、Recordset。
Connection用以指定数据源，建立和数据源的连接。
Command 对象用以对数剧源执行指定的命令，可以接受SQL 语句，表和存储过程的名称，执行SQL 查询，更新数据，插入纪录等。
Recordset 对象表示的是来自表或命令执行结果的记录全集，操纵来自提供者的几乎所有数据。
下面我们演示数据库连接的过程：
首先利用Delphi中ADO面板上的ADOConnection控件，如图4－2：
ADOConnection控件
设置控件属性：ConnectionString='连接字符串'；LoginPrompt＝‘Faise’；Connected＝‘True’。
然后加入同样ADO面板上的ADOQuery控件，如图4－3，ADOQuery使用SQL语言,可以一次访问数据库的一个或多个的表。
ADOQuery控件
设置控键属性：Connection＝‘ADOConnection’；SQL：＝‘ADOQuery要执行的SQL语句’；Active=‘True’。
再加入Data Access面板上的DataSourse控件，如图4－4，DataSourse控件提
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>