Arsip: Update field menggunakan validasi jam

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.

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

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

more 10 years ago
pada filed DELAY_HOUR bikin computed field seperti berikut
mas luker bisa tambahkan di trigger after update, sehingga bila ada update data field status juga akan terbarukan
selamat mencoba
semoga bermanfaat
:D
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

(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 :


more 10 years ago
denmasdanang
@wati: Firebird terbaru versi brp mas?terus ems nya apakah gratis ?thanksFB 2.5.0 ( sekarang 2.5.1 ) EMS unlicense :D
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- pergeseran bit biner gimana caranya ?
by putu_niki in Tip n Trik Pemrograman more 15 years ago - Mask / DisplayFormat pada QuickReport
by bad2001 in Reporting more 14 years ago - rumus dengan Otomata
by esafm in Hal umum tentang Pascal Indonesia more 14 years ago - help
by vandy in onLinux more 15 years ago - ASK : Cara memasukkan checkbox / checklist ke dbgrid
by akbaaar in Hal umum tentang Pascal Indonesia more 10 years ago - menyimpan file gambar jpeg
by erwinkiting in Paradox more 17 years ago - Cara Edit,Hapus,Tampilkan Data berfoto???
by camp_sire in Tip n Trik Pemrograman more 14 years ago - [OOT] ucapan syukur dari para pendekar delphi-id.org
by ImanD in OOT more 12 years ago - find connection string
by nurez in Tip n Trik Pemrograman more 14 years ago - procedure dan function
by willbrig in Tip n Trik Pemrograman more 14 years ago