form login: procedure tflogin.loginclick(sender:tobject); begin if (edit1.text=’public’) then begin with fmenuutama do begin mahasiswa1.enabled:=false; praktikum1.enabled:=false; fmenuutama.show; flogin.close; end; end else if (edit1.text=’operator’)and(edit2.text=table1.fields.asstring) then…
Code Parameters : Ctrl-Shift-Space Code Completion : Ctrl-Space Code Templates : Ctrl-J Class Completion Class Completion : Ctrl-Shift-C Class Nav Up Ctrl-Shift-Up Class…
procedure TForm1.FormShow(Sender: TObject); var Tahun, Bulan, Tanggal : Integer; begin Tahun := 2007; Bulan := 9; Tanggal := 1; if (Date >= EncodeDate(tahun,…
gimana caranya ngitung jumlah jam ? (catatan : perhitungan diusahakan menggunakan query biasa saja) misal : jam awal jam akhir tanggal jumlah jam…
Menghitung Jumlah Jam Lembur? Saya ingin menghitung lama jam kerja lembur bagi pegawai Hari.1 Pengawai A – Jam Mulai : 18.00 – Jam Selesai:…
Formulasi untuk selisih tanggal secara matematis: selisih := trunc(de2.date-de1.date); // (matematis) atau selisih := trunc(de2.date) -Trunc(de1.date); // (pengertian kita sehari-hari) http://delphi-id.org/dpr/Forum-viewtopic-t-4559.pas