Category Archives: Referensi PBO 1 (Delphi)

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

Posted in Referensi PBO 1 (Delphi) | 4 Comments

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;

Posted in Pengetahuan Komputer Terapan, Referensi PBO 1 (Delphi) | Leave a comment

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

Posted in Referensi PBO 1 (Delphi) | 5 Comments

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

Posted in Referensi PBO 1 (Delphi) | Leave a comment

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

Posted in Referensi PBO 1 (Delphi) | 2 Comments

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

Posted in Referensi PBO 1 (Delphi) | Leave a comment

Instalasi Packet: Quick Report

Instalasi Packet: Quick Report Component Install packet Dclqrt70.bpl

Posted in Referensi PBO 1 (Delphi) | Leave a comment

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

Posted in Referensi PBO 1 (Delphi) | Leave a comment

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

Posted in Referensi PBO 1 (Delphi) | Leave a comment

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

Posted in Referensi PBO 1 (Delphi) | Leave a comment