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

  • 内容
  • 评论
  • 相关

    在Delphi的数据集控件中,提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件,能够实现"程序级的触发器"功能,以加强数据的完整性检验。

  以Delphi中表数据集为例,其相应的"触发器类"事件:

  事件名称 说明

  BeforeInsert, AfterInsert 插入记录前后调用的事件

  BeforeEdit, AfterEdit 编辑前后调用的事件

http://www.gaodaima.com/65695.htmlDelphi”程序级触发器”功能的实现_Delphi

  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”程序级触发器”功能的实现_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: Delphi”程序级触发器”功能的实现_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注