Delphi”程序级触发器”功能的实现
【打印文章】
在Delphi的数据集控件中，提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件，能够实现"程序级的触发器"功能，以加强数据的完整性检验。
以Delphi中表数据集为例，其相应的"触发器类"事件：
事件名称 说明
BeforeInsert, AfterInsert 插入记录前后调用的事件
BeforeEdit, AfterEdit 编辑前后调用的事件
BeforePost, AfterPost 保存数据前后调用的事件
BeforeDelete, AfterDelete 删除前后调用的事件
BeforeCancel, AfterCancel 取消编辑前后调用的事件
BeforeOpen, AfterOpen 打开数据集前后调用的事件
BeforeClose, AfterClose 关闭数据集前后调用的事件
OnNewRecord 新记录产生时调用的事件
OnCalcField 当计算字段被计算时调用的事件
OnFilterRecord 启动过滤后，数据集内每条记录都调用此事件
事件使用举例：
1． 更改Delphi中DbNavigator控件默认的删除对话框
设置DbNavigator的ConfirmDelete属性为False，在Table控件的BeforeDelete事件中编写如下代码：
if Application.MessageBox('确实要删除当前记录吗？', '删除 确认', mb_YesNo + mb_IconWarning) <> Id_Yes then
Abort; file://利用哑异常阻止删除事件发生
2．在记录保存前检验数据的完整性，以及连锁更新相关表中的数据，实现数据完整性检验可通过表数据集控件的BeforePost事件检验：
file://GetNowCardMount为自定义函数(举例)，假设其取得当前凭证的实际库存量
if Table1.FieldByName('OutCardMount').AsInteger > GetNowCardMount then
Application.MessageBox('当前输入凭证的下发数量超过该种凭证的实际库存量！', '错误', Mb_Ok + Mb_IconError);
Abort; file://利用哑异常阻止数据保存，从而，使光标仍停留在当前行继续编辑
else file://如果需要连锁更新的话
UpdateProc; file://假设的一连锁更新相关表数据的过程
3．表数据集打开之前检验用户是否具有对当前表的访问权
在表数据集的BeforeOpen事件中编写如下代码：
if Not CanVisit(UserName, TableName) then file://CanVisit假设函数,检验用户对表是否有访问权
begin
Application.MessageBox('当前用户无足够权限访问当前数据！', '信息', Mb_Ok + Mb_IconInformation);
Abort; file://阻止当前表被打开
end;
4．关闭表数据集前提示保存数据，防止数据丢失
在表数据集的BeforeClose事件中编写如下代码：
if Table1.State in [dsEdit, dsInsert] then file://当前数据被修改或是新插入的记录
case Application.MessageBox('当前数据尚未保存,是否保存后再关闭？',
'保存 确认', Mb_YesNoCancel + Mb_IconQuestion) of
Id_Yes : AdoTable1.Post; file://保存数据
Id_No : ; file://不保存
Id_Cancel: Abort; file://取消关闭事件
end;
其它事件编程略。
Delphi的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制 （作者 陈立平）
在Delphi的数据集控件中，提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件，能够实现"程序级的触发器"功能，以加强数据的完整性检验。
以Delphi中表数据集为例，其相应的"触发器类"事件：
事件名称 说明
BeforeInsert, AfterInsert 插入记录前后调用的事件
BeforeEdit, AfterEdit 编辑前后调用的事件
BeforePost, AfterPost 保存数据前后调用的事件
BeforeDelete, AfterDelete 删除前后调用的事件
BeforeCancel, AfterCancel 取消编辑前后调用的事件
BeforeOpen, AfterOpen 打开数据集前后调用的事件
BeforeClose, AfterClose 关闭数据集前后调用的事件
OnNewRecord 新记录产生时调用的事件
OnCalcField 当计算字段被计算时调用的事件
OnFilterRecord 启动过滤后，数据集内每条记录都调用此事件
事件使用举例：
1． 更改Delphi中DbNavigator控件默认的删除对话框
设置DbNavigator的ConfirmDelete属性为False，在Table控件的BeforeDelete事件中编写如下代码：
if Application.MessageBox('确实要删除当前记录吗？', '删除 确认', mb_YesNo + mb_IconWarning) <> Id_Yes then
Abort; file://利用哑异常阻止删除事件发生
2．在记录保存前检验数据的完整性，以及连锁更新相关表中的数据，实现数据完整性检验可通过表数据集控件的BeforePost事件检验：
file://GetNowCardMount为自定义函数(举例)，假设其取得当前凭证的实际库存量
if Table1.FieldByName('OutCardMount').AsInteger > GetNowCardMount then
Application.MessageBox('当前输入凭证的下发数量超过该种凭证的实际库存量！', '错误', Mb_Ok + Mb_IconError);
Abort; file://利用哑异常阻止数据保存，从而，使光标仍停留在当前行继续编辑
else file://如果需要连锁更新的话
UpdateProc; file://假设的一连锁更新相关表数据的过程
3．表数据集打开之前检验用户是否具有对当前表的访问权
在表数据集的BeforeOpen事件中编写如下代码：
if Not CanVisit(UserName, TableName) then file://CanVisit假设函数,检验用户对表是否有访问权
begin
Application.MessageBox('当前用户无足够权限访问当前数据！', '信息', Mb_Ok + Mb_IconInformation);
Abort; file://阻止当前表被打开
end;
4．关闭表数据集前提示保存数据，防止数据丢失
在表数据集的BeforeClose事件中编写如下代码：
if Table1.State in [dsEdit, dsInsert] then file://当前数据被修改或是新插入的记录
case Application.MessageBox('当前数据尚未保存,是否保存后再关闭？',
'保存 确认', Mb_YesNoCancel + Mb_IconQuestion) of
Id_Yes : AdoTable1.Post; file://保存数据
Id_No : ; file://不保存
Id_Cancel: Abort; file://取消关闭事件
end;
其它事件编程略。
Delphi的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制
-----
陈立平
以Delphi中表数据集为例，其相应的"触发器类"事件：
事件名称 说明
BeforeInsert, AfterInsert 插入记录前后调用的事件
BeforeEdit, AfterEdit 编辑前后调用的事件
BeforePost, AfterPost 保存数据前后调用的事件
BeforeDelete, AfterDelete 删除前后调用的事件
BeforeCancel, AfterCancel 取消编辑前后调用的事件
BeforeOpen, AfterOpen 打开数据集前后调用的事件
BeforeClose, AfterClose 关闭数据集前后调用的事件
OnNewRecord 新记录产生时调用的事件
OnCalcField 当计算字段被计算时调用的事件
OnFilterRecord 启动过滤后，数据集内每条记录都调用此事件
事件使用举例：
1． 更改Delphi中DbNavigator控件默认的删除对话框
设置DbNavigator的ConfirmDelete属性为False，在Table控件的BeforeDelete事件中编写如下代码：
if Application.MessageBox('确实要删除当前记录吗？', '删除 确认', mb_YesNo + mb_IconWarning) <> Id_Yes then
Abort; file://利用哑异常阻止删除事件发生
2．在记录保存前检验数据的完整性，以及连锁更新相关表中的数据，实现数据完整性检验可通过表数据集控件的BeforePost事件检验：
file://GetNowCardMount为自定义函数(举例)，假设其取得当前凭证的实际库存量
if Table1.FieldByName('OutCardMount').AsInteger > GetNowCardMount then
Application.MessageBox('当前输入凭证的下发数量超过该种凭证的实际库存量！', '错误', Mb_Ok + Mb_IconError);
Abort; file://利用哑异常阻止数据保存，从而，使光标仍停留在当前行继续编辑
else file://如果需要连锁更新的话
UpdateProc; file://假设的一连锁更新相关表数据的过程
3．表数据集打开之前检验用户是否具有对当前表的访问权
在表数据集的BeforeOpen事件中编写如下代码：
if Not CanVisit(UserName, TableName) then file://CanVisit假设函数,检验用户对表是否有访问权
begin
Application.MessageBox('当前用户无足够权限访问当前数据！', '信息', Mb_Ok + Mb_IconInformation);
Abort; file://阻止当前表被打开
end;
4．关闭表数据集前提示保存数据，防止数据丢失
在表数据集的BeforeClose事件中编写如下代码：
if Table1.State in [dsEdit, dsInsert] then file://当前数据被修改或是新插入的记录
case Application.MessageBox('当前数据尚未保存,是否保存后再关闭？',
'保存 确认', Mb_YesNoCancel + Mb_IconQuestion) of
Id_Yes : AdoTable1.Post; file://保存数据
Id_No : ; file://不保存
Id_Cancel: Abort; file://取消关闭事件
end;
其它事件编程略。
Delphi的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制 （作者 陈立平）
在Delphi的数据集控件中，提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件，能够实现"程序级的触发器"功能，以加强数据的完整性检验。
以Delphi中表数据集为例，其相应的"触发器类"事件：
事件名称 说明
BeforeInsert, AfterInsert 插入记录前后调用的事件
BeforeEdit, AfterEdit 编辑前后调用的事件
BeforePost, AfterPost 保存数据前后调用的事件
BeforeDelete, AfterDelete 删除前后调用的事件
BeforeCancel, AfterCancel 取消编辑前后调用的事件
BeforeOpen, AfterOpen 打开数据集前后调用的事件
BeforeClose, AfterClose 关闭数据集前后调用的事件
OnNewRecord 新记录产生时调用的事件
OnCalcField 当计算字段被计算时调用的事件
OnFilterRecord 启动过滤后，数据集内每条记录都调用此事件
事件使用举例：
1． 更改Delphi中DbNavigator控件默认的删除对话框
设置DbNavigator的ConfirmDelete属性为False，在Table控件的BeforeDelete事件中编写如下代码：
if Application.MessageBox('确实要删除当前记录吗？', '删除 确认', mb_YesNo + mb_IconWarning) <> Id_Yes then
Abort; file://利用哑异常阻止删除事件发生
2．在记录保存前检验数据的完整性，以及连锁更新相关表中的数据，实现数据完整性检验可通过表数据集控件的BeforePost事件检验：
file://GetNowCardMount为自定义函数(举例)，假设其取得当前凭证的实际库存量
if Table1.FieldByName('OutCardMount').AsInteger > GetNowCardMount then
Application.MessageBox('当前输入凭证的下发数量超过该种凭证的实际库存量！', '错误', Mb_Ok + Mb_IconError);
Abort; file://利用哑异常阻止数据保存，从而，使光标仍停留在当前行继续编辑
else file://如果需要连锁更新的话
UpdateProc; file://假设的一连锁更新相关表数据的过程
3．表数据集打开之前检验用户是否具有对当前表的访问权
在表数据集的BeforeOpen事件中编写如下代码：
if Not CanVisit(UserName, TableName) then file://CanVisit假设函数,检验用户对表是否有访问权
begin
Application.MessageBox('当前用户无足够权限访问当前数据！', '信息', Mb_Ok + Mb_IconInformation);
Abort; file://阻止当前表被打开
end;
4．关闭表数据集前提示保存数据，防止数据丢失
在表数据集的BeforeClose事件中编写如下代码：
if Table1.State in [dsEdit, dsInsert] then file://当前数据被修改或是新插入的记录
case Application.MessageBox('当前数据尚未保存,是否保存后再关闭？',
'保存 确认', Mb_YesNoCancel + Mb_IconQuestion) of
Id_Yes : AdoTable1.Post; file://保存数据
Id_No : ; file://不保存
Id_Cancel: Abort; file://取消关闭事件
end;
其它事件编程略。
Delphi的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制
-----
陈立平
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】