Madriva

Setelah membuat aplikasi database yang sangat sederhana dengan Delphi, mari kita sama-sama berdo'a terlebih dahulu, agar aplikasi database kita dengan Delphi bisa dikembangkan hingga ke tingkat lanjut. Materi kali ini juga masih dalam tahap basic, yaitu bagaimana kita membuat aplikasi yang bisa merubah, mengedit, menghapus, dan menambahkan data ke dalam database yang sudah kita buat sebelumnya, tanpa menyertakan T.

Yuk mari.....

Seperti biasa, buat terlebih dahulu sebuah database dari Microsoft Access dan beri nama "Namapengunjung" (tanpa tanda kutip), dengan anggota sebagai berikut:

Kalau sudah, simpan tabel tersebut dengan nama data1, kemudian isi tiap-tiap Fieldnya, isinya terserah sobat sajah.

Simpan database dengan format Microsoft Access 200-2003. Buka Delphi dan buat sebuah form dengan anggota-anggotanya:

Sehingga desain akhir Form akan terlihat seperti gambar di bawah ini:

Lakukan koneksi antara Con1 dengan database yang sudah kita buat tadi, caranya bisa lihat pada postingan saya di sini.
Rubahlah tidap property dari masing-masing komponen berikut:

Con1 :
Login Prompt : False
Connected : True

Table1 :
Connection : Con1
TableName : data1
Active : True

Source1 :
DataSet : Table1

Grid1 :
DataSource : Source1

Dan sekarang, saatnya bermain kode.... Silahkan cocokkan kode-kode di bawah ini dan perhatikan komentar saya di dalamnya.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan;

type
  TForm1 = class(TForm)
    Grid1: TDBGrid;
    Con1: TADOConnection;
    Table1: TADOTable;
    Source1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    eID: TEdit;
    eNama: TEdit;
    eSource: TEdit;
    bUbah: TButton;
    bUpdate: TButton;
    bTambah: TButton;
    Button4: TButton;
    procedure FormActivate(Sender: TObject);
    procedure bUbahClick(Sender: TObject);
    procedure bUpdateClick(Sender: TObject);
    procedure bTambahClick(Sender: TObject);
    procedure Grid1CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public //Procedure untuk TForm1
  procedure tampil;
  procedure kosong;
  procedure mati;
  procedure hidup;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.tampil;
begin
  eID.Text:=FloatToStr(Table1['ID_Pengunjung']);
  eNama.Text:=Table1['Nama'];
  eSource.Text:=Table1['Source_Traffic'];
end;
Procedure TForm1.kosong;
begin
  eID.Text:=' ';
  eNama.Text:=' ';
  eSource.Text:=' ';
end;
Procedure TForm1.mati;
begin
  bTambah.Enabled:=false;
  bUpdate.Enabled:=false;
  bUbah.Enabled:=true;
  eID.Enabled:=false;
  eNama.Enabled:=true;
  eSource.Enabled:=false;
end;
procedure TForm1.hidup;
begin
  eID.Enabled:=true;
  eNama.Enabled:=true;
  eSource.Enabled:=true;
end;
procedure TForm1.bTambahClick(Sender: TObject);
begin
Table1.Append;
Table1['ID_Pengunjung']:=StrToFloat(eID.Text);
Table1['Nama']:=eNama.Text;
Table1['Source_Traffic']:=eSource.Text;
Table1.Post;
end;

procedure TForm1.bUbahClick(Sender: TObject);
begin
hidup;
kosong;
eID.Enabled:=true;
eNama.Enabled:=true;
Esource.Enabled:=true;
bUpdate.Enabled:=true;
bTambah.Enabled:=true;
end;

procedure TForm1.bUpdateClick(Sender: TObject);
begin
Table1.Edit;
Table1['ID_Pengunjung']:=StrToFloat(eID.Text);
Table1['Nama']:=eNama.Text;
Table1['Source_Traffic']:=eSource.Text;
Table1.Post;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tampil;
mati;
bUpdate.Enabled:=false;
bTambah.Enabled:=false;
end;

procedure TForm1.Grid1CellClick(Column: TColumn);
begin
tampil;
end;

end.

Untuk bisa lebih memahami, silahkan download source codenya, dan yang perlu dicatat setelah mendownload, rubah ConnectionString pada Con1. Karena folder saya dengan anda pasti berbeda penempatan databasenya.

Download Source Code (530 kB)