|
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.
| Send
your comments or suggestions |
|
|
|