Category Archives: Referensi PBO 1 (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 →

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 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 →

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 →

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 Component Install packet Dclqrt70.bpl

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 →

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 →

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 →