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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Socket TCP IP di intraweb delphi
by skh_cay in Multimedia & Graphic Enhancement more 12 years ago - frekuensi komputer
by takumi in Hal umum tentang Pascal Indonesia more 15 years ago - paket software.....
by pemburu_delphi in Tip n Trik Pemrograman more 15 years ago - FastReport : Hasil Print Struk Saya Berhenti Ditengah
by Wenzz in Reporting more 13 years ago - close mdichild lewat mdichild
by penyakit_mambu in Enginering more 17 years ago - Tanya Filter Median untuk manipulasi citra
by neo_ring in Multimedia & Graphic Enhancement more 15 years ago - Nilai Kumulatif
by mas_kofa in MySQL more 15 years ago - Koneksi di file dll
by EkoIndri in Lain-lain more 15 years ago - DETEKSI REMOVABLE DISK???
by n3o_cybertech in Tip n Trik Pemrograman more 15 years ago - Tips koneksi Database yang handal
by DelphiExpert in Hal umum tentang Pascal Indonesia more 17 years ago