Category Archives: Referensi PBO 1 (Delphi)
Fungsi dalam Delphi
Pangkat: a:=2; b:=3; c:=exp(b*ln(a)); // nilai = 8 format: edkurs.text:=format(‘%25.2n’,[kurs]); keterangan: d : integer u : integer tanpa + atau – e : argumen bertipe floating point f : sama e, tetapi tidak menggunakan angka eksponen g : format antara … Continue reading
Form Login pada Delphi
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[0].asstring) then begin fmenuutama.show; flogin.close; end end;
Searching pada Delphi
Searching: findnearest // tidak sama persis tbbarang.indexname:=’namabrg’; ada:=tbbarang.findnearest([edcari.text]) Searching: findkey // sama persis tbbarang.indexname:=’namabrg’; ada:=tbbarang.findkey([edcari.text]) if ada then begin tbbarang.edit; tbbarang[‘stock’]:=tbbarang.text; end; Searching majemuk: var caritgl:tdate; begin tbbeli.indexname:=’kdbrgtgl’; // index majemuk try begin caritgl:=strtodate(edtgl.text); tbbeli.findkey([edkodebrg.text, caritgl]); end except tbbeli.findkey([edkodebrg.text]); end; … Continue reading
Link E Book Delphi
Link E Book Delphi Link Tutorial Delphi7.0…! Link Delphi dengan MySQL…! Link Pengenalan Ms Access…! Link Koneksi Delphi ke Ms Access…! Link Komponen Tabel…! Link Komponen Query…! Link Komponen Representasi Data…! Link Komponen Report…! Link Membuat Form Uniik Dengan Dellphii … Continue reading
ADO Query, ADO Command, Grafik dan Tips dan Triks
Teddy Marcus, Agus Prijono, Josef Widiahi, 2002, “Pemprograman Delphi dengan ADOExpress:Meangakses Basisdata MS.Access”,Informatika,Bandung ADOQUERY With ADOQuery1 do Begin Close; SQL.Clear; SQL.Add:=’select * from data_parkir’; SQL.Add:=’order by Operator Desc’; Open; End; With ADOQuery1 do Begin Close; SQL.Clear; SQL.Add(‘select * from applications … Continue reading
DataBase Desktop
1. Hubungan Antara Combo Box dan Memo: Procedure Tform1.ComboBox1Change(Sender:TObject); Begin Memo1.Lines.Clear; Case Combobox1.ItemIndex of 0: Memo1.Lines.Add(Combobox1.Items[0]); 1: Memo1.Lines.Add(Combobox1.Items[1]); 2: Memo1.Lines.Add(Combobox1.Items[2]); 3: Memo1.Lines.Add(Combobox1.Items[3]); 4: Memo1.Lines.Add(Combobox1.Items[4]); End; End; Procedure Tform1.Memo1Change(Sender:TObject); Begin If Combobox1.ItemIndex=0 then Begin Memo1.Color:=clblue; Memo1.Font.Style:=[fsitalic]; Memo1.Font.Color:=clwhite; End; End; 2.Database Desktop … Continue reading
Instalasi Packet: Quick Report
Instalasi Packet: Quick Report Component Install packet Dclqrt70.bpl
Stopwatch, Tipe Data, Konversi Nilai, Format Nilai, Error Detection dan Function / Procedure
Membuat stopwatch Procedure tform1.formcreate(sender:tobejct); Begin Timer1.interval:=1; End; Procedure tform1.button1click(sender:tobejct); Begin If button1.caption=’Start’ then Begin Awal:=time; // awal : tdatetime; pada variabel global Edit1.text:=TimeToStr(Time) Button1.caption:=’Stop’; End Else If button1.caption=’Stop’ then Button1.caption:=’Selesai’; Else Application.termenate; End; Procedure tform1.timer1timer(sender:tobejct); Var slama:string; Begin If button1.caption=’Stop’ … Continue reading
Proses Variabel, Logika, Looping dan Operasional Form
Contoh pertama: //nilai awal procedure tform1.cmulaiclick(sender:tobject); begin tlm.text:=’’; thk.text:=’’; tjumlah.text:=’’; tlm.setfocus() // fokus end; procedure tform1.formcreate(sender:tobject); begin tjumlah.enabled:=false; //tidah aktif tjumlah.color:=clbtnface; //warna form standar end; procedure tform1.thkchange(sender:tobject); var sjml:string[30]; tsem:integer; slm,shk,sjumlah:single; begin val(tlm.text, slm, tsem); //konversi dari huruf ke angka … Continue reading
Splash & Login Form
Contoh pertama://Membuat Splash Procedure tform1.formcreate(sender:tobject); Begin Timer1.enabled:=true; X:=1; // global variabel End; Procedure tform1.timer1timer(sender:tobject); Begin X:=X+1; If X=7 then // jika tujuh detik Begin Flogin.show; Form1.destroy; End; End; Procedure tform1.formshow(sender:tobject); Begin If (form1.width>width) then Left:=form1.left+(form1.width-width) div 2 Else Left:=form1.left; If … Continue reading