3.2 FORMS 3.2.1 創(chuàng)建表級(jí)的When_Timer_EXPired,對(duì)數(shù)據(jù)進(jìn)行POST動(dòng)作 Declare Begin IF Upper(Get_application_Property(TIMER_NAME)) = Upper('Timer_Post') THEN Post; END IF; End;
3.2.2 創(chuàng)建數(shù)據(jù)塊級(jí)的When_Valid_Record,創(chuàng)建Timer Declare Timer_Post Timer; Begin Timer_Post:=Create_Timer('Timer_Post', 5, NO_REPEAT); End;
3.2.3 創(chuàng)建數(shù)據(jù)項(xiàng)級(jí)的When_Valid_Item,對(duì)數(shù)據(jù)進(jìn)行檢查性檢查 Declare L_Count Number; Begin Select Count(0) Into L_Count From TestCheckUnique Where T1=:TestCheckUnique.T1; If L_Count>0 Then Message('字段輸入重復(fù)值'); Raise Form_Trigger_Failure; End If; End;