1、Delphi”程序級(jí)觸發(fā)器”功能的實(shí)現(xiàn) 發(fā)表:不詳 閱讀:75次 關(guān)鍵字： 字體:大 中 小 在Delphi的數(shù)據(jù)集控件中，提供了類似關(guān)系數(shù)據(jù)庫管理系統(tǒng)中觸發(fā)器功能的事件機(jī)制-觸發(fā)器類事件。靈活使用數(shù)據(jù)集控件的此類事件，能夠?qū)崿F(xiàn)程序級(jí)的觸發(fā)器功能，以加強(qiáng)數(shù)據(jù)的完整性檢驗(yàn)。 以Delphi中表數(shù)據(jù)集為例，其相應(yīng)的觸發(fā)器類事件： 事件名稱 說明 BeforeInsert, AfterInsert 插入記錄前后調(diào)用的事件 BeforeEdit, AfterEdit 編輯前后調(diào)用的事件 BeforePost, AfterPost 保存數(shù)據(jù)前后調(diào)用的事件 BeforeDelete, AfterDelet

2、e 刪除前后調(diào)用的事件 BeforeCancel, AfterCancel 取消編輯前后調(diào)用的事件 BeforeOpen, AfterOpen 打開數(shù)據(jù)集前后調(diào)用的事件 BeforeClose, AfterClose 關(guān)閉數(shù)據(jù)集前后調(diào)用的事件 OnNewRecord 新記錄產(chǎn)生時(shí)調(diào)用的事件 OnCalcField 當(dāng)計(jì)算字段被計(jì)算時(shí)調(diào)用的事件 OnFilterRecord 啟動(dòng)過濾后，數(shù)據(jù)集內(nèi)每條記錄都調(diào)用此事件 事件使用舉例： 1 更改Delphi中DbNavigator控件默認(rèn)的刪除對(duì)話框 設(shè)置DbNavigator的ConfirmDelete屬性為False，在Table控件的Befor

3、eDelete事件中編寫如下代碼： if Application.MessageBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, 刪除 確認(rèn), mb_YesNo + mb_IconWarning Id_Yes then Abort; file:/利用啞異常阻止刪除事件發(fā)生 2在記錄保存前檢驗(yàn)數(shù)據(jù)的完整性，以及連鎖更新相關(guān)表中的數(shù)據(jù)，實(shí)現(xiàn)數(shù)據(jù)完整性檢驗(yàn)可通過表數(shù)據(jù)集控件的BeforePost事件檢驗(yàn)： file:/GetNowCardMount為自定義函數(shù)(舉例，假設(shè)其取得當(dāng)前憑證的實(shí)際庫存量 if Table1.FieldByName(OutCardMount.AsInteger GetNowCardMoun

4、t then Application.MessageBox(當(dāng)前輸入憑證的下發(fā)數(shù)量超過該種憑證的實(shí)際庫存量！, 錯(cuò)誤, Mb_Ok + Mb_IconError; Abort; file:/利用啞異常阻止數(shù)據(jù)保存，從而，使光標(biāo)仍停留在當(dāng)前行繼續(xù)編輯 else file:/如果需要連鎖更新的話 UpdateProc; file:/假設(shè)的一連鎖更新相關(guān)表數(shù)據(jù)的過程 3表數(shù)據(jù)集打開之前檢驗(yàn)用戶是否具有對(duì)當(dāng)前表的訪問權(quán) 在表數(shù)據(jù)集的BeforeOpen事件中編寫如下代碼： if Not CanVisit(UserName, TableName then file:/CanVisit假設(shè)函數(shù),檢驗(yàn)用戶對(duì)

5、表是否有訪問權(quán) begin Application.MessageBox(當(dāng)前用戶無足夠權(quán)限訪問當(dāng)前數(shù)據(jù)！, 信息, Mb_Ok + Mb_IconInformation; Abort; file:/阻止 當(dāng)前表被打開 end; 4關(guān)閉表數(shù)據(jù)集前提示保存數(shù)據(jù)，防止數(shù)據(jù)丟失 在表數(shù)據(jù)集的BeforeClose事件中編寫如下代碼： if Table1.State in dsEdit, dsInsert then file:/當(dāng)前數(shù)據(jù)被修改或是新插入的記錄 case Application.MessageBox(當(dāng)前數(shù)據(jù)尚未保存,是否保存后再關(guān)閉？, 保存 確認(rèn), Mb_YesNoCancel +

6、Mb_IconQuestion of Id_Yes : AdoTable1.Post; file:/保存數(shù)據(jù) Id_No : ; file:/不保存 Id_Cancel: Abort; file:/取消關(guān)閉事件 end; 其它事件編程略。 Delphi的數(shù)據(jù)集控件給程序開發(fā)人員提供了靈活的前端數(shù)據(jù)完整性檢驗(yàn)的機(jī)制 （作者 陳立平） 在Delphi的數(shù)據(jù)集控件中，提供了類似關(guān)系數(shù)據(jù)庫管理系統(tǒng)中觸發(fā)器功能的事件機(jī)制-觸發(fā)器類事件。靈活使用數(shù)據(jù)集控件的此類事件，能夠?qū)崿F(xiàn)程序級(jí)的觸發(fā)器功能，以加強(qiáng)數(shù)據(jù)的完整性檢驗(yàn)。 以Delphi中表數(shù)據(jù)集為例，其相應(yīng)的觸發(fā)器類事件： 事件名稱 說明 BeforeIn

7、sert, AfterInsert 插入記錄前后調(diào)用的事件 BeforeEdit, AfterEdit 編輯前后調(diào)用的事件 BeforePost, AfterPost 保存數(shù)據(jù)前后調(diào)用的事件 BeforeDelete, AfterDelete 刪除前后調(diào)用的事件 BeforeCancel, AfterCancel 取消編輯前后調(diào)用的事件 BeforeOpen, AfterOpen 打開數(shù)據(jù)集前后調(diào)用的事件 BeforeClose, AfterClose 關(guān)閉數(shù)據(jù)集前后調(diào)用的事件 OnNewRecord 新記錄產(chǎn)生時(shí)調(diào)用的事件 OnCalcField 當(dāng)計(jì)算字段被計(jì)算時(shí)調(diào)用的事件 OnFilte

8、rRecord 啟動(dòng)過濾后，數(shù)據(jù)集內(nèi)每條記錄都調(diào)用此事件 事件使用舉例： 1 更改Delphi中DbNavigator控件默認(rèn)的刪除對(duì)話框 設(shè)置DbNavigator的ConfirmDelete屬性為False，在Table控件的BeforeDelete事件中編寫如下代碼： if Application.MessageBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, 刪除 確認(rèn), mb_YesNo + mb_IconWarning Id_Yes then Abort; file:/利用啞異常阻止刪除事件發(fā)生 2在記錄保存前檢驗(yàn)數(shù)據(jù)的完整性，以及連鎖更新相關(guān)表中的數(shù)據(jù)，實(shí)現(xiàn)數(shù)據(jù)完整性檢驗(yàn)可通過表數(shù)據(jù)集控件的Be

9、forePost事件檢驗(yàn)： file:/GetNowCardMount為自定義函數(shù)(舉例，假設(shè)其取得當(dāng)前憑證的實(shí)際庫存量 if Table1.FieldByName(OutCardMount.AsInteger GetNowCardMount then Application.MessageBox(當(dāng)前輸入憑證的下發(fā)數(shù)量超過該種憑證的實(shí)際庫存量！, 錯(cuò)誤, Mb_Ok + Mb_IconEr ror; Abort; file:/利用啞異常阻止數(shù)據(jù)保存，從而，使光標(biāo)仍停留在當(dāng)前行繼續(xù)編輯 else file:/如果需要連鎖更新的話 UpdateProc; file:/假設(shè)的一連鎖更新相關(guān)表數(shù)據(jù)的

10、過程 3表數(shù)據(jù)集打開之前檢驗(yàn)用戶是否具有對(duì)當(dāng)前表的訪問權(quán) 在表數(shù)據(jù)集的BeforeOpen事件中編寫如下代碼： if Not CanVisit(UserName, TableName then file:/CanVisit假設(shè)函數(shù),檢驗(yàn)用戶對(duì)表是否有訪問權(quán) begin Application.MessageBox(當(dāng)前用戶無足夠權(quán)限訪問當(dāng)前數(shù)據(jù)！, 信息, Mb_Ok + Mb_IconInformation; Abort; file:/阻止當(dāng)前表被打開 end; 4關(guān)閉表數(shù)據(jù)集前提示保存數(shù)據(jù)，防止數(shù)據(jù)丟失 在表數(shù)據(jù)集的BeforeClose事件中編寫如下代碼： if Table1.State in dsEdit, dsInsert then file:/當(dāng)前數(shù)據(jù)被修改或是新插入的記錄 case Application.MessageBox(當(dāng)前數(shù)據(jù)尚未保存,是否保存后再關(guān)閉？, 保存 確認(rèn), Mb_YesNoCan