Sunday - May 18, 2008

Home | Site Map | Channels | Profile | Press Room | Services | Contact 

currently 13 user(s) online

search 

   Latest News

»

sony-ak.com Luncurkan Kamus Teknologi Informasi (May 27, 2006)

»

sony-ak.com Luncurkan IT Event Calendar (May 20, 2006)

»

Web Chat Berbasis AJAX dari sony-ak.com (May 09, 2006)

»

sony-ak.com Advertising Program (May 01, 2006)

»

Sony AK di Tabloid PCplus (April 18, 2006)

news archives » 


   Random Article

»

Membuat Web Counter Sederhana Dengan PHP dan Text File (4335)

»

Beberapa Alasan Mengapa Perusahaan Melakukan Outsourcing dalam Teknologi Informasi (2868)

»

Mengenal Microsoft Data Access Components (MDAC) (5695)

»

Etika dalam Mengirimkan E-mail Attachment yang Berukuran Lebih dari 150 KB (2385)

»

Pengantar Knowledge Management (KM) (5825)

   Newsletter

Join our newsletter, you will get alert about content updates

powered by Yahoo! Groups















Nedstat Basic - Free web site statistics

 
 
Koneksi Database dari Borland Delphi ke MS Access

Author: Ratih Kusumawati
Published: June 16, 2004
Visits: 8869 - Category: Borland Delphi
 
     
 

Kali ini penulis akan membahas tentang bagaimana membuat database untuk menyimpan data - data, membuka kembali data - data atau menambah dan mengurangi data. Database Delphi yang akan penulis bahas menggunakan software pembangun file database Microsoft Access. Yang perlu dilakukan dalam pembuatan database ada beberapa langkah:

1. Membangun database pada Microsoft Access.
Pertama kali penulis membuat field-field pada Microsoft access. Dengan langkah - langkah sebagai berikut:
1.1. Buatlah new database dengan design view.
1.2. Isi field-field dengan nama dan type field yang akan digunakan serta atur property dari field. Pilih primary key/field utama.
1.3. Simpan file database tersebut dan file tabel.

Tampilan dari Access seperti dibawah ini:

Untuk keamanan anda dapat membuat password di tool - security - set database password.

2. Membangun ODBC dan BDE Administrator
Jika kita membuat suatu program aplikasi maka kita memerlukan daftar file database yang dapat diakses oleh program tersebut dengan menggunakan ODBC.
Langkah membuat ODBC adalah :
2.1. Buka tampilan window ODBC Data Source Administrator dengan melalui control panel - performance and maintenance - administrative tools - Data Source (ODBC).
2.2. Masukkan daftar file database baru denan mengklik tombol add pada menu User DSN, pilih Microsoft Access Driver (*.mdb) kemudian tekan tombol finish.
2.3. Beri nama file database dengan mengisi Data Source Name yang akan dibuat misalnya penulis memberi nama 'Mahasiswa'. Pilih database yang telah dibuat pada Microsoft Access yaitu dengan menekan select pada database. Pilih dan jika telah selesai klik OK.
2.4. Untuk mengisi Login Name dan Password dengan menekan advance.

3. Buat Aplikasi Form pada Delphi
Pada form aplikasi harus dihubungkan dengan database yang telah kita buat. Komponen database yang ada pada Delphi antara lain terletak pada 
3.1. Page BDE (menghubungkan file database melalui BDE Administrator)
3.2. Page Data Access (Penghubung aplikasi dengan file database melalui komponen BDE)
3.3. Page Data Controls (Mengendalikan akses data)
3.4. Page Quick Report (Penyusun Laporan)

Untuk sintak perintah - perintah dalam mengakses data antara lain adalah:
1. namatabel.recordcount; (menghitung jumlah data)
2. namatabel.Bof; (memeriksa batas awal)
3. namatabel.Eof; (memeriksa batas akhir)
4. namatabel.first; (menuju data pertama)
5. namatabel.last; (menuju data terakhir)
6. namatabel.prior; (menuju data sebelumnya)
7. namatabel.next; (menuju data berikutnya)
8. namatabel.post; (meng up load data)
9. namatabel.findkey ("variable yang dicari"); (mencari isi variable yang dicari
10. namatabel.fieldbyname('namafield').as"tipedata"; (menunjuk data yang ber'namafield' pada data yang ditunjuk oleh kursor (sedang aktif)-ada tanda panah disebelah kanan dbgrid.
11. namatabel.edit; (mengedit data)
12. namatabel.cancel; (membatalkan proses pengeditan)
13. namatabel.append; (menambah record baru)

Pada program contoh sederhana berikut diperlukan komponen database:
- Table pada page BDE (Menampilkan table database yang telah kita buat di Microsoft Access)
- Database pada page BDE (Mengatur hubungan antara aplikasi dengan nama alias pada BDE Adminisstrator)
- Session pada page BDE (Mengatur hubungan alias database pada BDE Administrator)
- DataSource pada page Data Controls (Menghubungkan aplikasi dengan data dalam database)

Contoh Program:
1. Bentuk Form

2. Properti

Untuk yang lain hanya mengubah nama Tobject nya seperti pada kotak putih pada gambar form diatas.

3. Program

procedure TForm1.FormCreate(Sender: TObject);
begin
  lbljumlah.Caption :=inttostr(table1.RecordCount);
  // recordcount adalah properti untuk
   // engetahui jumlah dari data
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if button=nbpost then // jika tombol post ditekan
  lbljumlah.Caption :=inttostr(table1.RecordCount);
end;

procedure TForm1.btnexitClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.btncariClick(Sender: TObject);
var i :integer;
  a:string;
begin
  table1.First; //agar looping mulai dari data teratas
  for i:=1 to table1.RecordCount do
  begin
    a:=editnrp.text;
    // program melihat tabel dari baris 1
    if a=table1.FieldByName('NRP').AsString then
    begin
      lblnrp.Caption :=table1.fieldbyname('NRP').AsString;
      lblnama.Caption :=table1.fieldbyname('Nama').AsString;
      lblalamat.Caption := table1.fieldbyname('Alamat').AsString;
      lbltelp.Caption :=table1.fieldbyname('Telp').AsString;
    end
    else
    begin
      table1.Next;
    end;
  end;
//jika baris 1 tidak cocok nilai nrp dengan nilai editnrp
//maka program akan membaca nilai nrp dari baris selanjutnya
//looping dilakukan sampai pada jumlah data pada tabel

// jika sampai pada looping data terakhir tidak ada maka
// muncul msgbox
  if a<>table1.FieldByName('NRP').AsString then
    showmessage('Data Tidak Ada di Database');
end;


Saat di run anda dapat memasukkan data dengan menekan tombol (+) terlebih dahulu kemudian memasukkan data dan di save dengan menekan tanda (v). Data akan masuk dan jumlah mahasiswa akan menghitungnya. Jika anda ingin mencari data seorang mahasiswa hanya dengan memasukkan nrp. Program akan mencari dan ditampilkan di bawahnya tetapi jika data tidak ada maka muncul massage box dengan tulisan 'Data Tidak Ada di Database'.

Demikian pembuatan database sederhana dengan menggunakan Microsoft Access. Semoga berguna bagi pembaca. Untuk komentar tulisan dapat anda kirimkan ke bluesnow_ratih@yahoo.com. Untuk melihat tulisan menarik lainnya anda dapat melihat di www.sony-ak.com.

Terimakasih.




 Recommended articles
 

»

Instalasi PHP dan Apache Web Server pada Windows (4725)

»

Mengenal KFract (1055)

»

Mengenal Standard Ukuran Banner untuk Internet Marketing (2918)

»

Memanfaatkan Internet Connection Sharing Pada Windows (5922)

»

Perbandingan Beberapa Metode Pengembangan Perangkat Lunak (12417)

 Send your comments or suggestions
Full Name :
E-mail :
Comments :
 
 

  Privacy | Site Map | Advertise

  Copyright © 2003 - 2006 Sony AK Knowledge Center - all rights reserved

  info@sony-ak.com