Posted by : Rhyf Ahmad Monday, April 02, 2012

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:

Object
Name
Caption/Text
Label 1
Label1
ID
Label 2
Label2
Nama Pengunjung
Label 3
Label3
Source Traffic
TDBGrid1
Grid1
-
TADOConnection1
Con1
-
TADOTable1
Table1
-
DataSource1
Source1
-
Button1
bUbah
Rubah Data
Button2
bUpdate
Update
Button3
bTambah
Tambah
Button4
bClose
Close
Edit1
eID
-
Edit2
eNama
-
Edit3
eSource
-

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)

{ 2 comments... read them below or Comment }

  1. Ok,thanks infonya..

    Btw,blognya udah saya follow,follow back,ya..
    bangagri.blogspot.com

    ReplyDelete
    Replies
    1. sudah saya folback gan.. :)
      makasih kunjungannya.. ;)

      Delete

You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -