Hallo Delphier, saya punya script seperti ini, procedure TFormUnitDMCR.qUnitDMCRBeforePost(DataSet: TDataSet); var Temp : TDateTime; begin if DataSet.FieldByName('START_TIME').AsDateTime > DataSet.FieldByName('END_TIME').AsDateTime then begin Temp := IncDay( DataSet.FieldByName('END_TIME').AsDateTime,1); DataSet.FieldByName('DELAY_TIME').AsDateTime := Temp - DataSet.FieldByName('START_TIME').AsDateTime; end else begin DataSet.FieldByName('DELAY_TIME').AsDateTime := DataSet.FieldByName('END_TIME').AsDateTime - DataSet.FieldByName('START_TIME').AsDateTime; end; end; saya mau pakai nilai DELAY_TIME untuk validasi supaya apabila nilainya lebih kecil dari 2 jam, akan meng-UPDATE field STATUS di tabel yg sama. mohon pencerahannya yah fren,, terima kasih.

:mas luker sebaiknya metode yang mas terapkan tidak ditempatkan di hard code tetapi ditempatkan di trigger table, ( kalau yang dibutuhkan hanya mengupdate field lain saja ) kalau boleh tau DB menggunakan apa? thx smoga bisa membantu

terima kasih atas masukannya, database yg saya gunakan Firebirds, kira2 trigger di firebirds bagaimana yah untuk update? thanks mas.

@lukersgn: terima kasih atas masukannya, database yg saya gunakan Firebirds, kira2 trigger di firebirds bagaimana yah untuk update? thanks mas.

:mas luker saya simulasikan di firebird terbaru menggunakan EMS pertama table yang dimaksud seperti berikut ini pada filed DELAY_HOUR bikin computed field seperti berikut

(DATEDIFF(hour from table1.start_time to table1.end_time))

kemudian bikin trigger seperti berikut ini :

CREATE TRIGGER "AI_TABLE1_delay_hour" FOR TABLE1 ACTIVE
BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.delay_hour >= 2) THEN begin
      NEW."Status" = 'Lebih 2 jam';
  end else new."Status" = 'kurang 2 jam';
END

hasilnya seperti berikut ini : mas luker bisa tambahkan di trigger after update, sehingga bila ada update data field status juga akan terbarukan selamat mencoba semoga bermanfaat :D

Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanks

@wati: Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanks

FB 2.5.0 ( sekarang 2.5.1 ) EMS unlicense :D