(3)ADOCommand组件
TADOCommand一般用于执行不返回数据集的SQL命令,如Insert、Update、Delete等命令。该组件需要设置以下3个重要属性:
1)Name属性。命令对象名,如设置为ADOCommand。
2)Connection属性或ConnectionString属性。与TADODataSet的属性设置相同。
3)CommandText属性。CommandText属性一般是一个不返回数据集的SQL命令,通常在程序中根据编程需要动态设置所需的SQL语句。
在设置完上述属性后,通过调用该对象的Execute方法通过数据库执行该SQL命令。若执行的是一个不返回数据集的SQL命令,则该方法返回一个空数据集,否则返回一个具有记录的数据集,可以将其赋值给TADODataSet对象的Recordset属性。
(4)数据模块
按系统分析的要求,系统需要与数据库连接、使用用户权限、进行查询等操作,故向数据模块添加1个TADOConnection组件、16个TADODataSet组件(除每个表一个外,另3个分别用于系统登录,登录后该用户的操作权限和生成树型结构) 、15个TDataSource组件(除ADODataSetTree外,每个TADODataSet对象一个)和1个TADOCommand组件,如图4所示:

图4 主细表联接字段编辑器
数据模块中各个组件的属性设置见表14所示:
图14 数据模块对象的属性设置
类名 |
属性名 |
属性值 |
说明 |
TDataModule |
Name |
DMServerDB |
|
TADOConnection |
Name |
ADOConnection |
|
LoginPrompt |
False |
|
Provider |
SQLOLEDB.1 |
|
ConnectionString |
按5.2中(3)中介绍的方面设置 |
|
TADODataSet |
Name |
ADODataSetRole |
|
Connection |
ADOConnection |
|
CommandText |
Select * from Role |
|
CommandType |
cmdText |
|
TDataSource |
Name |
DataSourceRole |
指向ADODataSetRole对象 |
DataSet |
ADODataSetRole |
|
TADODataSet |
其他的TADODataSet对象分别指向不同的表,可参考ADODataSetRole对象 |
TDataSource |
其他的TDataSource对象分别指向不同的TADODataSet,可参考DataSourceRole对象 |
TADODataSet |
Name |
ADODataSetUser |
系统登录 |
Connection |
ADOConnection |
|
TADODataSet |
Name |
ADODataSetUserRight |
用户的权限 |
Connection |
ADOConnection |
|
TADODataSet |
Name |
ADODataSetTree |
用于生成树型结构 |
Connection |
ADOConnection |
| 系统中的所有模块都需要保持与数据库的连接,所以,在数据模块的OnCreate事件中建立与数据库的连接。为了方便配置ADOConnection对象的联接参数,保存计算学生总评成绩时的成绩占比等数据,创建了一个用于读写上述数据的IniFile变量,如代码所示:
|