Arsip: Update field menggunakan validasi jam

 
user image
more 10 years ago

lukersgn

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.
user image
more 10 years ago

denmasdanang

: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
user image
more 10 years ago

lukersgn

terima kasih atas masukannya, database yg saya gunakan Firebirds, kira2 trigger di firebirds bagaimana yah untuk update? thanks mas.
user image
more 10 years ago

denmasdanang

@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
user image
more 10 years ago

wati

Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanks
user image
more 10 years ago

denmasdanang

@wati: Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanks
FB 2.5.0 ( sekarang 2.5.1 ) EMS unlicense :D
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com