Delphi”程序级触发器”功能的实现_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：649 更新时间：2009/4/23 18:24:41

　　在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://假设的一连锁更新相关表数据的过程

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi5优化

下一篇教程： Delphi多层应用程序的实现

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……