Arsip: Update field menggunakan validasi jam

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

wati

Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanks
user image
more 8 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

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com