Heraldy Septarianto: Program DataBase pada Delphi 7

Postingan saya kali ini akan saya membahas tentang cara membuat DataBase pada Delphi 7. Pembuatan DataBase ini menghubungkan Delphi7 dengan Microsoft Access. Kali ini saya akan membuat program DataBase berdasarkan Data Mahasiswa. Memang agak rumit dalam pembuatan DataBase ini, kali ini saya akan menjelaskan tentang langkah-langkahnya.

1. Langkah yang pertama adalah dengan membuat tabel pada Microsoft Access

Buat DataBase baru dengan nama Database1

Klik design view pada pojok kiri atas, hal ini dilakukan untuk mengedit database yang akan di buat

Masukan Npm, Nama, Kelas, dan Alamat lalu atur Field Sizenya agar sesuai dengan inputan.

Klik Datasheet View untuk melihat tampilan Database

Setelah Database pada Microsoft Access berhasil di buat, close Microsoft Access dan langsung kita buka Delphi 7.

2. Setelah Delphi 7 terbuka, maka buat Design Form seperti berikut ini :

Pada Form1 diatas terdapat ADOConnection1 yang berfungsi membangun koneksi dengan data fisik menggunakan terminologi ADO milik Microsof.
Selain itu juga terdapat ADOTabble1 yang berfungsi untuk mewakili data fisik dalam aplikasi Delphi yang dibuat.
Dan selanjutnya terdapat DataSource yang berfungsi untuk memberikan sambungan dengan komponen data kontrol visual milik Delphi lainnya untuk membangun Interface.
Selanjutnya terdapat DBGrid1yang berfungsi untuk menampilkan data dalam bentuk table, Setiap kolom pada grid sesuai dengan kolom pada datasetnya (table atau query) baris dalam garis sama dengan record-record.
Lalu terdapat juga DBNavigator yang berfungsi sebagai alat navigasi (bergerak) di antara record –record, serta untuk mengubah data. Dan juga terdapat empat buah label yang bertuliskan “NPM”, ”Nama”, ”Kelas”, dan “Alamat”.
Lalu terdapat empat buah kolom Edit yang berfungsi untuk memasukan inputan.
Terakhir terdapat dua buah Button yang berfungsi untuk menyimpan hasil inputan dan untuk menghapus inputan pada kolom Edit.

Agar Delphi 7 dapat di koneksikan dengan Microsoft Access, maka dapat di lakukan dengan beberapa cara. Berikut ini langkah-langkahnya :

Langkah pertama pilih ADOConection1 pada form, lihat pada bagian kolom properties. Lalu pilih ConnectionString untuk mengkoneksikan Delphi 7 dengan MS. Access. Pada ConnectionString pilih Use Connection String lalu klik Build. Setelah itu muncul Data Link Properties, pada kolom Provider pilih Microsoft Jet 4.0 OLE DB Provider dan klik Next. Selanjutnya pada kolom Connection pilih nama database yang telah di buat setelah itu klik Text Connection, maka akan muncul tampilan Test connection succeeded dan klik OK. Kembali pada kolom Properties pilih True pada baris Connected, baris KeepConnection, dan baris LoginPrompt.

Langkah kedua pilih ADOTable1 pada Form, lalu pada kolom properties pilih true pada baris active. Lalu pada baris Conecction pilih ADOConnection1 dan pada baris TableName pilih nama table Mahasiswa.

Langkah ketiga pilih DataSource1 pada Form, lalu pada kolom Properties pilih ADOTable1 pada baris DataSet dan pilih True pada baris Enabled.

Langkah keempat pilih DBGrid1 lalu pada kolom Properties, pilih DataSource1 pada baris DataSource. Setelah itu pilih True pada baris Visible.

Langkah kelima pilih DBNavigator lalu pada kolom Properties, pilih DataSource1 pada baris DataSource. Setelah itu pilih True pada baris Visible.

Database telah berhasil di koneksikan, maka tampilan Form akan seperti berikut :

3. Berikutnya kita masukkan kodingan dengan cara mengklik dua kali pada masing-masing Button. Berikut ini tampilan kodingan dan penjelasannya :

Pada bagian procedure TForm1.Button1Click(Sender: TObject) terdapat perintah :

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

end;

Perintah tersebut berfungsi untuk menghapus data yang telah di inputkan pada kolom Edit1, Edit2, Edit3, dan Edit4.

Pada bagian procedure TForm1.Button2Click(Sender: TObject) terdapat perintah :

begin

adotable1.Open;

adotable1.Append;

adotable1.FieldByName('NPM').AsString := Edit1.Text;

adotable1.FieldByName('Nama').AsString := Edit2.Text;

adotable1.FieldByName('Kelas').AsString := Edit3.Text;

adotable1.FieldByName('Alamat').AsString := Edit4.Text;

Adotable1.Post;

end;

end.

Perintah tersebut terdapat perintah Open yang berfungsi membuka database pada ADOTable1. Lalu terdapat perintah Append yang berfungsi untuk menambahkan baris baru setelah record terakhir. Setelah itu terdapat perintah FieldByName yang berfungsi untuk memasukan data pada kolom Edit1 berdasarkan “NPM”, kolom Edit2 berdasarkan “Nama”, kolom Edit3 berdasarkan “Kelas”, dan kolom Edit4 berdasarkan “Alamat” dengan tipe data String. Dan yang terakhir terdapat perintah Post yang berfungsi untuk menyimpan data yang telah di masukkan ke dalam Database.

4. Terakhir merupakan tampilan output dari program, berikut ini tampilannya :

-Tampilan output pertama pada saat program di Run