说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

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

比特币钱包Coinbase推出即时交易功能,无需银行转账手续 回收不活跃邮箱续:雅虎高管称能保证前用户信息和数据安全 移动周报:IT民工携娇妻转战传统行业,黄太吉的移动互联网营销 独立游戏开发的传奇!LIMBO开发商Playdead公司CEO专访 Firefox OS模拟器4.0正式发布 支持模拟触摸事件 如何获得串口数据 用缓冲区存取数据的问题请教 救命! VC++调试技术? vc里面编c的问题! 請教1:圖像模糊算法思想或實現,2怎样提高卷积操作的计算速度?象7*7的卷积计算的速度特别慢. 在线等待!!! server.mappath() 中语法问题 用VB6打包成功,但在别的机器上有时安装不成功,不知为什么? 学习笔记——《C++ Primer Plus(第四版)中文版》第四章(2) 冷库安装,冷库维修,冷库报价,冷库公司,南宁冷库公 冷藏库和冷库有什么需别呢?在东莞哪家做冷库比较好? 上海冷库、冷藏库哪家冷库工程做的好? 低温冷藏库的存放丸子、水饺.容重按照多少算 建一个200平方库温在-18度储存玉米的冷库土建加 冷库耗电量节能高招如何计算 100平方的果蔬保鲜库,25平方的冷库造价分别是多 想建一个100平方米的冷藏库,要买那些设备?设备造 一个30平方的冷库造价多少且能装多少吨? 哥伦比亚妇女售卖12个女儿“初夜权”漏洞百出的“全球奴役指数”美媒曝谷歌或正秘密建造海上数据中心哥伦比亚妇女售卖12个女儿初夜权牟利白俄总统错坐普京座位 发现后起身让座到呼伦贝尔看花海 感受纯正草原文化 高考失利 是否复读要看实际情况晃眼支付宝微信好友间可转账了摘葡萄赏荷花 游如画新村夺冠赔率 重新解析绝世玄逍遥魔幻成神富贵贾商异界兽尊异界修真骑士独山旅游路孔旅游孝昌旅游西盟旅游大通旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘