Arsip: Update field menggunakan validasi jam

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.

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

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

more 8 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 8 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Mohon Pencerahan VHD
by afre_N in Hal umum tentang Pascal Indonesia more 12 years ago - Tanya StringGrid
by ranum in Tip n Trik Pemrograman more 12 years ago - Flash SMS coding
by maskot in Enginering more 13 years ago - reset code program??
by akudana in Hal umum tentang Pascal Indonesia more 11 years ago - Program Akses Flash Disk
by delphi1st in Tip n Trik Pemrograman more 14 years ago - DBEngine Error : Multiple Record Found.....
by Budiadi in Lain-lain more 13 years ago - Web Application...???
by ZeAL in Web Programming more 15 years ago - Bantuin TugasKU!!!!
by angellowo1 in Hal umum tentang Pascal Indonesia more 14 years ago - tulung tulung ..... Getting IP, Subnet, Gateway
by Manz in Network, Files, I/O & System more 13 years ago - combo box tidak bisa melebar
by flamade in Hal umum tentang Pascal Indonesia more 13 years ago