Ginanjar Galang Mahardhika: Database Dengan Delphi 7

Berikut adalah salah satu contoh dari praktik membuat data base menggunakan Delphi 7.Di sini saya akan membuat data base mengenai Game yang saya mainkan saat ini yaitu Eligium Online.

Langkah 1

Pertama kita membuat form Home

Di form home terdapat beberapa perintah seperti yang terlihat Input Data,View Data,Exit

Pada Button Input Data isikan code sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

end.

Pada Button view data isikan code sebagai berikut:

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;

Pada Button exit isikan code sebagai berikut:

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

Di form 2 terdapat beberapa table dan beberapa icon yang terlihat.

Icon pertama yaitu

ADO Connection

-doubleklik pada ADOConnection, kan muncul dialog seperti pada gambar
-lalu klik build

- akan keluar dialog seperti gambar diatas
- pilih microsoft jet 4, microsoft jet 4 digunakan untuk mengenali file database dari ms Access
- kemudian pilih next

- pada bagian conection, pilih lokasi database(ekstensi .mdb) yang sebelumnya telah dibuat

- lakukan test connection untuk melihat database telah terkoneksi atau belum.

- apabila database memiliki password maka isikan pada bagian password dan username

- setelah selesai klik ok

- klik ADOTable, pada bagian properties (bagian kiri bawah) atur seperti pada gambar diatas

- active digunakan untuk mengaktifkan pengambilan tabel

- name digunakan untuk merubah nama ADOTabel yang digunakan dalam program, pada gambar diatas name diubah menjadi table1

- table direct digunakan untuk melakukan akses table pada database secara langsung

- tablename digunakan untuk melakukan pengambilan table pada file database, seringkali dalam sebuah database terdapat banyak table dan querry, karena itu untuk mengakses banyak table diperlukan banyak ADOTable karena sebuah ADOTable hanya dapat mengakses 1 table saja dalam 1 waktu, pada gambar diatas dipilih table dengan nama database pada file database yang telah diload oleh ADOConnection(ADOConnection harus dalam posisi Connected=true)

Setelah mengisikan code pada icon-icon di atas, sekarang mengisikan code pada table

Button Input di isi code sebagai berikut

procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.table1.Open;
form3.table1.Append;
form3.table1.FieldByName('Username').AsString:=edit1.Text;
form3.table1.FieldByName('Nick').AsString:=edit2.Text;
form3.table1.FieldByName('Faction').AsString:=edit3.Text;
   form3.table1.FieldByName('Race').AsString:=edit4.Text;
    form3.table1.FieldByName('Job').AsString:=edit5.Text;
     form3.table1.FieldByName('Level').AsString:=edit6.Text;
      form3.table1.Post;
      Form3.Show;
Form2.Hide;
end;

end.

Button Clean isikan code sebagai berikut

procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
end;

Button Home isikan code sebagai berikut

procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;

Langkah 3

Pada form ke tiga di isi berisi data-data yang telah di input di simpah dan di tampilkan, serta dapat menghapus data yang telah tersimpan. buat form seperti berikut:

Di form ini juga terdapat icon-icon yang sama dengan form 2 isikan form tersebut dengan kode dan perintah di object inspektor, sama dengan form 2.

lalu pada pengisian DB grid sebagai beritkut:

- masuk ke bagian data control

- pilih dbgrid lalu tempatkan apda form seperti pada gambar diatas

- dbgrig adalah tampilan interface berupa table, namun karena belum diisi maka tampilan dbgrid masih kosong seperti pada gambar

- pada bagian properties dbgrid, datasource dapat diisi dengan source1 yaitu nilai dari field yang telah diambil dari database access

- setelah melakukan perubahan properties pada dbgrid maka tampilannya akan berubah dan menampilkan isi table database yang telah diambil seperti terlihat pada gambar

- apabila table tidak muncul pada dbgrid perlu decek kembali apakah ADOConnection sudah connected = true dan apakah ADOTable sudah active = true