动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   HTML → 阅读文章

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

作者来源: 
阅读 2077 人次 , 2006-5-17 16:44:00 


  在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://假设的一连锁更新相关表数据的过程
  
 
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:全面解析韩国商业网站的设计
· 下一篇:HTML 组件(HTML COMPONENTS)之二
· 深入学习HTML:细说ID和Name属性的区别
· CSS手册简编:列表属性
· 巧用CSS制作可控闪烁效果
· 网页设计中HTML常范的五个错误
· 使用XSLT将XML数据转换成HTML


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077