gusucode.com > 精典源码Delphi044：指纹考勤管理系统源码程序 > 精典源码Delphi044：指纹考勤管理系统源码程序/精典源码Delphi044：指纹考勤管理系统/顺发指纹考勤管理系统/指纹考勤系统/TRIGGER/trgDelete_bYGongXX.txt

    
/************  
 This Trigger is writed for Delete tabbles :
   bZCBPaiD,bZWen ,bQingJ, bWaiChu,bKQJL,   bCQJieG, bDB_BCPD,bTiaoBanJL,bJiaB_ZB_JL,bLinSchuR, bKQDayHuiZJL 
   recrords when delete this User
 
 Writed WangBin
 Writed Date : 1999-12-24
 Updated Date: 2001 - 09-25: 加考勤测试后，同时删除答题记录表


*************/


CREATE TRIGGER trgDelete_bYGongXX ON [bYGongXX] 
FOR  DELETE 
AS


begin
  if @@RowCount=0
     Return
 /* 1. Delete From bZCBPaiD  where KQNO=Deleted.KQNO   */
  Delete bZCBPaiD from Deleted d,bZCBPaiD t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 2. Delete From bZWen  where KQNO=Deleted.KQNO   */
  Delete bZWen from Deleted d,bZWen t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 3. Delete From bQingJ  where KQNO=Deleted.KQNO   */
  Delete bQingJ from Deleted d,bQingJ t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 4. Delete From bWaiChu  where KQNO=Deleted.KQNO   */
  Delete bWaiChu from Deleted d,bWaiChu t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 5. Delete From bKQJL  where KQNO=Deleted.KQNO   */
  Delete bKQJL from Deleted d,bKQJL t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 6. Delete From bCQJieG  where KQNO=Deleted.KQNO   */
  Delete bCQJieG from Deleted d,bCQJieG t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 7. Delete From bDB_BCPD  where KQNO=Deleted.KQNO   */
  Delete bDB_BCPD from Deleted d,bDB_BCPD t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 8. Delete From bTiaoBanJL  where KQNO=Deleted.KQNO   */
  Delete bTiaoBanJL from Deleted d,bTiaoBanJL t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 9. Delete From bJiaB_ZB_JL  where KQNO=Deleted.KQNO   */
  Delete bJiaB_ZB_JL from Deleted d,bJiaB_ZB_JL t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

 /* 10. Delete From bLinSchuR  where KQNO=Deleted.KQNO   */
  Delete bLinSchuR from Deleted d,bLinSchuR t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError


 /* 11. Delete From bKQDayHuiZJL  where KQNO=Deleted.KQNO   */
  Delete bKQDayHuiZJL from Deleted d,bKQDayHuiZJL t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError
 /* 12. Delete From bYGAnswer  where KQNO=Deleted.KQNO   */
  Delete bYGAnswer from Deleted d,bLinSchuR t where d.KQNO=t.KQNO 
  if @@error !=0 goto DealError

  return

DealError:
  begin
    Raiserror("在 trgDelete_txzUserXX 中失败！",16,1)
    RollBack tran
    Return
  end
 

end