src='https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js'/> Contoh Program Database Delphi Sederhana Menggunakan Ms. Access - teachertekno.com

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, & clear pada Delphi Terhubung Database Access
Cara membuat tombol save, edit, delete, & clear pada Delphi

Dalam tutorial ini, kita akan menilik tentang komponen-komponen yg diharapkan dalam menciptakan acara database Delphi. Selain itu, kita pula akan menilik cara menghubungkan Delphi menggunakan database Access lengkap menggunakan memasukkan data ke database melalui form menggunakan tombol save, edit, delete, & clear.

Contoh Program Database Delphi Sederhana Menggunakan Ms. Access

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

Komponen yg kita butuhkan:

Berikut ini komponen-komponen primer yang wajib dimasukkan ke pada form waktu ingin membuat program dengan memakai database Access.

1. ADOConnection1

dua. DataSource1

tiga. ADOTable1

4. DBGrid1

5. TEdit

- Edit1 = ID

- Edit2 = Merk HP

- Edit3 = Harga

6. 3 TLable sesuai menggunakan kebutuhan.

7. TButton

- Button1 = Simpan (Save)

- Button2 = Edit (Update)

- Button3 = Hapus (Delete)

- Button4 = Kosongkan (Clear)

Berikut ini tutorial cara menciptakan program Delphi memakai database Microsoft Access 2010 sederhana.

1. Buka aplikasi Delphi

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

tiga. Buat Database pada Microsoft Access

 Cara Membuat Database Access
Cara Membuat Database Access

Save file database Access pada form mdb, bukan accdb.

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

A. ADOConnection1

Untuk memasukkan ADOConnection, pakai tombol search lalu 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 timbul kotak obrolan Microsoft Data Link menggunakan kabar Test Connection Succeeded. Klik Ok.

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

b. DataSource1

Gunakan tombol search pada Delphi lalu ketik DataSource1 lalu 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 buat memasukkan komponen ADOTable1.

Klik ADOTable1 kemudian setting Properties ADOTable1 seperti gambar ini dia.

Cara Setting ADOTable1 Delphi
Cara Setting ADOTable1 Delphi

Properties yang penting buat disetting di ADOTable1:

- Active > True

- Connection > ADOConnection1

- TableName > Tabelhp (Otomatis)

Klik 2 kali pada ADOTable1 pada form lalu ada kotak dialog yang memunculkan field-field sinkron dengan yg pada database. Jika belum ada, klik kanan pada kotak obrolan, 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 buat ID

Edit2 untuk Merk Hp

Edit3 buat 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 kabar ini dia.

Lima. Coding Program Database Delphi

Setelah komponen siap dan pengaturannya, saatnya buat memasukkan kode acara.

A. Klik dua kali pada tombol simpan

Copy dan paste kode ini dia.

ADOTable1.Append;

ADOTable1['id']:=edit1.Text;

ADOTable1['merk']:=edit2.Text;

ADOTable1['harga']:=edit3.Text;

ADOTable1.Refresh;

b. Klik dua kali dalam tombol edit

Copy dan paste kode ini dia.

ADOTable1.Edit;

ADOTable1['id']:=edit1.Text;

ADOTable1['merk']:=edit2.Text;

ADOTable1['harga']:=edit3.Text;

ADOTable1.Refresh;

c. Klik dua kali dalam tombol hapus

Copy dan paste kode ini dia.

ADOTable1.Delete;

ADOTable1.Refresh;

d. Klik dua kali pada tombol kosongkan

Copy dan paste kode ini dia.

ADOTable1.Refresh;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

Sebenarnya yang paling utama script simpan, hapus, edit, & kosongkan. Tapi nir masalah, berikut ini source code acara database sederhana Delphi memakai 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 = group(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 hasil acara di atas.

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

Sebenarnya masih banyak kekurangan pada acara ini. Kita belum memunculkan secara otomatis data ketika memasukkan id di kotak ID. Jadi tampaknya akan sulit di edit kecuali kita memasukkan id yg telah ada pada database kemudian klik tombol Edit. Nanti bila aku sudah terdapat ketika kita pelajari buat itu.

Lihat jua Cara Membuat Bola Pantul pada Delphi

Demikianlah contoh program database Delphi sederhana memakai Ms. Access 2010 lengkap menggunakan gambar & source codenya. Semoga berguna!

0 Response to "Contoh Program Database Delphi Sederhana Menggunakan Ms. Access"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel