Praktikum Pertemuan 7 Database dengan delphi

PERTEMUAN KE – VII

Database dengan Delphi

Avila Marlini

J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.              Tujuan Praktikum

Tujuan dari praktikum yang berjudul “Mengenal dengan Delphi” ini adalah untuk mempelajari hubungan database dengan Delphi yang di mana dalam proses pembelajaran praktikum ini akan mengetahui cara membuat table-tabel yang diperlukan dalam pemuatan database, selain itu dapat mengetahui komponen-komponen yang menghubungkan database ke delphi.

II.           Deskripsi Program

Program ini adalah program database yang dapat ditambahkan dan pencarian data karyawan. Program ini menggunakan BitBtn, TabSheet, maskedit, statictext. Sedangkan untuk tabel databasenya adalah komponen DBGrid, DataSource, ADOConnection, dan ADOtable.

III.        Interface Program

1.      Table pada Microsoft Acces

2.    Form Program

III.        Coding Program

Program Penjualan

Nama Komponen	Event	Perintah
BitBtn1	OnClick	procedure TForm1.BitBtn1Click(Sender: TObject); begin   ADOTable1.Append;   ADOTable1['NIP']:=MaskEdit1.Text;   ADOTable1['Nama']:=MaskEdit2.Text;   ADOTable1['Alamat']:=MaskEdit3.Text;   ADOTable1['Tgl_Lahir']:=MaskEdit4.Text;   ADOTable1['Gaji']:=MaskEdit5.Text; end;
BitBtn2	OnClik	procedure TForm1.BitBtn2Click(Sender: TObject); begin   ADOTable1.Delete;   MaskEdit1.Clear;   MaskEdit2.Clear;   MaskEdit3.Clear;   MaskEdit4.Clear;   MaskEdit5.Clear; end;
Bitbtn3	OnClik	procedure TForm1.BitBtn3Click(Sender: TObject); begin   if ADOTable1.Locate('NIP',MaskEdit6.Text,[]) then   begin     MaskEdit1.Text:=ADOTable1['NIP'];     MaskEdit2.Text:=ADOTable1['Nama'];     MaskEdit3.Text:=ADOTable1['Alamat'];     MaskEdit4.Text:=ADOTable1['Tgl_Lahir'];     MaskEdit5.Text:=ADOTable1['Gaji'];   end; end;