Menu Click to open Menus
TRENDING
Home » DELPHI » Aplikasi Buku Alamat

Aplikasi Buku Alamat

(277 Views) March 22, 2017 3:07 pm | Published by | No comment

Untuk dapat memahami secara utuh dan mendalam tentang suatu hal, tidak ada cara yang terbaik kecuali dengan contoh dan praktek tentang hal tersebut. Agar Anda dapat memahami bagaimana penggunaan TADOConnection, TADOTable, dan TADOQuery, marilah kita buat aplikasi buku alamat. Spesifikasi aplikasi buku alamat yang kita buat:

  • Menampilkan data teman yang terdapat dalam database teman.mdb pada tabel personal
  • Mempunyai fasilitas pencarian
  • Mempunyai fasilitas tambah data teman baru, hapus data, edit, dan simpan data

 

Untuk menyelesaikan aplikasi buku alamat di atas, lakukan langkah-langkah sebagai berikut:

  1. Buat project baru dengan nama AplikasiBukuAlamat
  2. Buat satu form dengan nama frmTeman dengan tampilan sebagai mana berikut:

Gambar 1-1: Tampilan form frmTeman

 

 

Anda dapat mengetahui property dari masing-masing komponen dengan melihat source code

yang disertakan dalam buku ini, pada folder ..\Source Code\BukuAlamat

 

  1. Tambahkan komponen  yang terletak di Tab dbGo, kemudian ikuti langkah- langkah berikut:
    1. Set property ConnectionString dengan mengklik tombol  ,
    2. pilih Use Connection String, klik tombol Build… ,
    3. pada Tab Provider pilih Microsoft Jet 4.0 OLE DB Provider klik tombol Next,
    4. pada kotak isian Select or enter a database name klik tombol 
    5. cari lokasi file teman.mdb, atau ada bisa Anda isi dengan file teman.mdb yang terdapat dalam CD penyerta buku ini di ..\data\teman.mdb
    6. klik tombol Test Connection, akan muncul dialog informasi “Test Connection succeded.” Yang menunjukkan komponen TADOConnection kini siap
    7. Klik tombol OK untuk kembali ke tampilan desain form
    8. Set property LoginPrompt menjadi False,
  1. Set property Connected menjadi True. Kini komponen TADOConnection telah terhubung dengan database mdb
  1. Tambahkan komponen  dan set property nya sebagai berikut: Name = Tpersonal

Connection = ADOConnection1 TableName = personal

Active = True

  1. Tambahkan komponen  dan set property nya sebagai berikut: Name = Query

Connection = ADOConnection1

 

Pada contoh kali ini, komponen Grid (TStringGrid) akan kita isi dengan field id dan nama dari tabel personal. Komponen-komponen TLabeledEdit kita isi dengan data detail sesuai dengan data id pada baris yang aktif dari komponen Grid. Komponen Grid kita isi pada event OnCreate. Perhatikan potongan kode berikut:

 

{pengaturan lebar kolom Grid} Grid.ColWidths[0]:= 40; //kolom pertama Grid.ColWidths[1]:= 130;//kolom kedua

 

{pengisian kolom Grid}

with Tpersonal do begin

Grid.RowCount:= RecordCount+1;//menentukan jumlah baris pada kolom

//sebanyak jumlah record pada tabel + 1

//+1 karena baris pertama Grid adalah label kolom

First; //menuju ke record pertama pada tabel

while not Eof do begin //jika belum sampai akhir record, lakukan perulangan

//isikan pada kolom ke 0 baris ke-RecNo field ID dari tabel

Grid.Cells[0,RecNo]:= FieldByName(‘ID’).AsString;

//isikan pada kolom ke 1 baris ke-RecNo field nama dari tabel

Grid.Cells[1,RecNo]:= FieldByName(‘nama’).AsString;

Next; //pindah ke record tabel berikutnya

end; end;

 

RecNo adalah nomor record yang aktif saat itu, RecordCount adalah jumlah record yang tersimpan dalam tabel pada komponen Tpersonal (TAdoTable).

 

Adapun pengisian kolom TLabeledEdit, saya tuliskan dalam suatu prosedur dengan nama FillLabeledEdit

yang kodenya adalah sebagai berikut:

 

procedure TfrmTeman.FillLabeledEdit;

begin

with Tpersonal do begin

edID.Text:= FieldByName(‘ID’).AsString; edNama.Text:= FieldByName(‘nama’).AsString;

 

edSex.Text:= FieldByName(‘jenis_kelamin’).AsString; edTglLahir.Text:= FieldByName(‘tanggal_lahir’).AsString; chkStatusNikah.Checked:= FieldByName(‘status_kawin’).AsBoolean; edAnak.Text:= FieldByName(‘jumlah_anak’).AsString; edAlamat.Text:= FieldByName(‘alamat’).AsString; edTelepon.Text:= FieldByName(‘telepon’).AsString; edEmail.Text:= FieldByName(’email’).AsString;

edHobi.Text:= FieldByName(‘hobi’).AsString; end;

end;

 

Procedure FillLabeledEdit dipanggil saat baris Grid dipilih yaitu saat terjadi event GridSelectCell. Kodenya adalah sebagai berikut:

procedure TfrmTeman.GridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

begin

Tpersonal.RecNo:= ARow; //arahkan record tabel sesuai baris grid yang dipilih

FillLabeledEdit; //isikan record tabel pada TLabeledEdit

end;

 

Ada enam operasi data yang akan kita terapkan pada aplikasi kita, yaitu:

  1. Cari Data, mencari record sesuai keyword nama yang dimasukkan. Operasi ini dilakukan saat tombol btnCari ditekan sesuai dengan keyword yang dimasukkan dalam kotak edit edCari.
  2. Hapus Data, menghapus record tabel sesuai baris yang dipilih pada grid saat tombol btnHapus

ditekan.

  1. Tambah Data, mengaktifkan modus tambah data saat tombol btnBaru
  2. Edit Data, mengaktifkan modus edit data saat tombol btnEdit
  3. Simpan Data, menyimpan data yang telah diisikan pada komponen-komponen TLabeledEdit

pada saat modus tambah atau modus edit saat tombol btnSimpan ditekan.

  1. Batal, membatalkan modus tambah atau modus edit saat tombol btnBatal

Related Posts

Categorised in:

No comment for Aplikasi Buku Alamat

Leave a Reply

Your email address will not be published. Required fields are marked *