1、Delphi”程序級觸發器”功能的實現 發表:不詳 閱讀:75次 關鍵字： 字體:大 中 小 在Delphi的數據集控件中，提供了類似關系數據庫管理系統中觸發器功能的事件機制-觸發器類事件。靈活使用數據集控件的此類事件，能夠實現程序級的觸發器功能，以加強數據的完整性檢驗。 以Delphi中表數據集為例，其相應的觸發器類事件： 事件名稱 說明 BeforeInsert, AfterInsert 插入記錄前后調用的事件 BeforeEdit, AfterEdit 編輯前后調用的事件 BeforePost, AfterPost 保存數據前后調用的事件 BeforeDelete, AfterDelet

2、e 刪除前后調用的事件 BeforeCancel, AfterCancel 取消編輯前后調用的事件 BeforeOpen, AfterOpen 打開數據集前后調用的事件 BeforeClose, AfterClose 關閉數據集前后調用的事件 OnNewRecord 新記錄產生時調用的事件 OnCalcField 當計算字段被計算時調用的事件 OnFilterRecord 啟動過濾后，數據集內每條記錄都調用此事件 事件使用舉例： 1 更改Delphi中DbNavigator控件默認的刪除對話框 設置DbNavigator的ConfirmDelete屬性為False，在Table控件的Befor

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

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

5、表是否有訪問權 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 +

6、Mb_IconQuestion of Id_Yes : AdoTable1.Post; file:/保存數據 Id_No : ; file:/不保存 Id_Cancel: Abort; file:/取消關閉事件 end; 其它事件編程略。 Delphi的數據集控件給程序開發人員提供了靈活的前端數據完整性檢驗的機制 （作者 陳立平） 在Delphi的數據集控件中，提供了類似關系數據庫管理系統中觸發器功能的事件機制-觸發器類事件。靈活使用數據集控件的此類事件，能夠實現程序級的觸發器功能，以加強數據的完整性檢驗。 以Delphi中表數據集為例，其相應的觸發器類事件： 事件名稱 說明 BeforeIn

7、sert, AfterInsert 插入記錄前后調用的事件 BeforeEdit, AfterEdit 編輯前后調用的事件 BeforePost, AfterPost 保存數據前后調用的事件 BeforeDelete, AfterDelete 刪除前后調用的事件 BeforeCancel, AfterCancel 取消編輯前后調用的事件 BeforeOpen, AfterOpen 打開數據集前后調用的事件 BeforeClose, AfterClose 關閉數據集前后調用的事件 OnNewRecord 新記錄產生時調用的事件 OnCalcField 當計算字段被計算時調用的事件 OnFilte

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

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

10、過程 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_YesNoCan