Arsip: Update field menggunakan validasi jam

more 12 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 12 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 12 years ago
lukersgn
terima kasih atas masukannya, database yg saya gunakan Firebirds,
kira2 trigger di firebirds bagaimana yah untuk update?
thanks mas.

more 12 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 12 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- tanya cetak detail band Fast Report pada posisi tertentu
by shindo in Hal umum tentang Pascal Indonesia more 17 years ago - [Ask] short cut key...
by yayaretina in Hal umum tentang Pascal Indonesia more 18 years ago - Module buat Procedure
by OnDelphi80 in Hal umum tentang Pascal Indonesia more 18 years ago - 2 query di satu report
by d4mnf1y32 in MySQL more 13 years ago - Buka laci cash register dengan Delphi
by wati in Hal umum tentang Pascal Indonesia more 14 years ago - Signature diprotes Trusss. Wakakakakakakaak
by saysansay in OOT more 19 years ago - Tipe data boolean
by wati in FireBird more 17 years ago - Query pada SQL Server - akses variable bit
by shindo in Hal umum tentang Pascal Indonesia more 17 years ago - Parameter Array untuk stored Procedure
by EkoIndri in Hal umum tentang Pascal Indonesia more 18 years ago - Mohon Triknya Dong.....
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago