计算字段被计算时调用的事件
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_IconEr
ror);
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的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制