Delphi”程序级触发器”功能的实现

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的数据集控件给程序开发人员提供了灵活的前端数据完整性检验的机制

查看本文来源