Skip to main content

Contoh Program Database Delphi Sederhana Menggunakan Ms. Access

Contoh Program Database Delphi Sederhana Menggunakan Ms. Access - Membuat program database di Access tidaklah terlalu sulit asal kita tahu dasarnya. Karena itu, hari ini saya ingin berbagi tutorial dasar membuat program database Delphi dengan Access sederhana untuk pemula.

Cara membuat tombol save, edit, delete, dan clear di Delphi Terhubung Database Access
Cara membuat tombol save, edit, delete, dan clear di Delphi

Dalam tutorial ini, kita akan mempelajari tentang komponen-komponen yang dibutuhkan dalam membuat program database Delphi. Selain itu, kita juga akan mempelajari cara menghubungkan Delphi dengan database Access lengkap dengan memasukkan data ke database melalui form dengan tombol save, edit, delete, dan clear.

Contoh Program Database Delphi Sederhana Menggunakan Ms. Access


Berikut ini cara membuat program database Delphi sederhana menggunakan Microsoft Access 2010 lengkap dengan gambar mulai dari a-z.

Komponen yang kita butuhkan:


Berikut ini komponen-komponen utama yang harus dimasukkan ke dalam form ketika ingin membuat program dengan menggunakan database Access.

1. ADOConnection1

2. DataSource1

3. ADOTable1

4. DBGrid1

5. TEdit

- Edit1 = ID
- Edit2 = Merk HP
- Edit3 = Harga

6. 3 TLable sesuai dengan kebutuhan.

7. TButton

- Button1 = Simpan (Save)
- Button2 = Edit (Update)
- Button3 = Hapus (Delete)
- Button4 = Kosongkan (Clear)

Berikut ini tutorial cara membuat program Delphi menggunakan database Microsoft Access 2010 sederhana.


1. Buka aplikasi Delphi

2. Klik File > New > Windows VCL Application - Delphi

3. Buat Database di Microsoft Access

 Cara Membuat Database Access
Cara Membuat Database Access

Save file database Access dalam form mdb, bukan accdb.

4. Akan muncul form baru. Masukkan komponen-komponen yang dibutuhkan.

a. ADOConnection1

Untuk memasukkan ADOConnection, gunakan tombol search kemudian tulis adoconnection.

Cara memasukkan ADOConnection ke Form Delphi
Cara memasukkan ADOConnection ke Form Delphi

Klik 2 kali ADOConnection1 > Klik Build > Pada Provide pilih Microsoft Jet 4.0 OLE DB Provider > Klik Next > Pada select or enter a database name (klik tanda ... ) > cari file database Hpdb.mdb yang telah dibuat tadi > Test Connection

Akan muncul kotak dialog Microsoft Data Link dengan informasi Test Connection Succeeded. Klik Ok.

Cara menghubungkan Delphi dengan database Access
Cara menghubungkan Delphi dengan database Access

b. DataSource1

Gunakan tombol search di Delphi kemudian ketik DataSource1 kemudian klik.

Cara Edit DataSource1 Agar DataSet Sesuai Dengan ADOTable1
Cara Edit DataSource1 Agar DataSet Sesuai Dengan ADOTable1

Klik DataSource1 di form kemudian pada Properties > DataSet > ADOTable1

c. ADOTable1

Gunakan tombol search di Delphi untuk memasukkan komponen ADOTable1.

Klik ADOTable1 kemudian setting Properties ADOTable1 seperti gambar berikut ini.

Cara Setting ADOTable1 Delphi
Cara Setting ADOTable1 Delphi

Properties yang penting untuk disetting di ADOTable1:

- Active > True
- Connection > ADOConnection1
- TableName > Tabelhp (Otomatis)

Klik 2 kali pada ADOTable1 di form kemudian muncul kotak dialog yang memunculkan field-field sesuai dengan yang di database. Jika belum muncul, klik kanan pada kotak dialog, kemudian Add Fields.

d. DBGrid1

Palette > Data Controls > TBDGrid

Klik DBGrid1 > Pada Properties DataSource > Pilih DataSource1

Klik kanan pada DBGrid1 > Columns Editor > Add All Fields

Mengatur DBGrid Delphi
Mengatur DBGrid Delphi

Untuk mengatur tampilan fields di DBGrid, pada Editing Columns > Klik salah satu Field > Pada Properties > Atur Size agar jarak antara fields lebih rapi. Kamu juga bisa tidak menampilkan field yang tidak dibutuhkan dengan menghilangkannya pada Columns Editor.

e. TEdit

Edit1 untuk ID
Edit2 untuk Merk Hp
Edit3 untuk Harga

Oh ya, tambahkan label ID, Merk Hp, Harga di samping Edit1, Edit2, dan Edit3.

Pada Properties, kosongkan Text.

f. TButton

Button1 = Simpan
Button2 = Edit
Button3 = Hapus
Button4 = Kosongkan

Pada Properties Button, ubah Caption sesuai dengan keterangan berikut ini.

5. Coding Program Database Delphi

Setelah komponen siap dan pengaturannya, saatnya untuk memasukkan kode program.

a. Klik 2 kali pada tombol simpan

Copy dan paste kode berikut ini.

ADOTable1.Append;
ADOTable1['id']:=edit1.Text;
ADOTable1['merk']:=edit2.Text;
ADOTable1['harga']:=edit3.Text;
ADOTable1.Refresh;

b. Klik 2 kali pada tombol edit

Copy dan paste kode berikut ini.

ADOTable1.Edit;
ADOTable1['id']:=edit1.Text;
ADOTable1['merk']:=edit2.Text;
ADOTable1['harga']:=edit3.Text;
ADOTable1.Refresh;

c. Klik 2 kali pada tombol hapus

Copy dan paste kode berikut ini.

ADOTable1.Delete;
ADOTable1.Refresh;

d. Klik 2 kali pada tombol kosongkan

Copy dan paste kode berikut ini.

ADOTable1.Refresh;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';

Sebenarnya yang paling utama script simpan, hapus, edit, dan kosongkan. Tapi tidak masalah, berikut ini source code program database sederhana Delphi menggunakan Ms. Access.

unit Koneksidb;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.StdCtrls;

type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable1merk: TWideStringField;
ADOTable1harga: TBCDField;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBGrid1: TDBGrid;
ADOTable1id: TIntegerField;
Label4: TLabel;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1['id']:=edit1.Text;
ADOTable1['merk']:=edit2.Text;
ADOTable1['harga']:=edit3.Text;
ADOTable1.Refresh;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1['id']:=edit1.Text;
ADOTable1['merk']:=edit2.Text;
ADOTable1['harga']:=edit3.Text;
ADOTable1.Refresh;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin

ADOTable1.Delete;
ADOTable1.Refresh;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
ADOTable1.Refresh;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

end.

Berikut ini tampilan output program di atas.

Contoh Program Database Delphi Sederhana Menggunakan Ms. Access
Contoh Program Database Delphi Sederhana Menggunakan Ms. Access

Sebenarnya masih banyak kekurangan dalam program ini. Kita belum memunculkan secara otomatis data ketika memasukkan id di kotak ID. Jadi sepertinya akan sulit di edit kecuali kita memasukkan id yang telah ada di database kemudian klik tombol Edit. Nanti kalau saya sudah ada waktu kita pelajari untuk itu. 

Lihat juga Cara Membuat Bola Pantul di Delphi

Demikianlah contoh program database Delphi sederhana menggunakan Ms. Access 2010 lengkap dengan gambar dan source codenya. Semoga bermanfaat!
Contact Us: Komentar, saran dan masukan melalui WA 085396717324 dan Gmail Lara4store@gmail.com.