Madriva: Aplikasi Database Menggunakan TSTringGrid

Aplikasi Database Menggunakan TSTringGrid

Posted by : Rhyf Ahmad Tuesday, March 27, 2012

Tiga hari yang lalu, tepatnya pada tanggal 24 Maret 2012, saya sempat menghadirkan postingan tentang pembuatan aplikasi database sederhana dengan menggunakan Delphi 7. Sekarang, saya akan berbagi cara tentang pembuatan aplikasi database dengan tidak menggunakan DBGrid seperti pada postingan sebelumnya, tetapi menggunakan TSTringGrid, yang menurut hemat saya, lebih mudah dalam pembacaan data. Yuk ah...

Pertama-tama dan yang paling sangat amat utama adalah, buatlah terlebih dahulu sebuah database menggunakan Microsoft Access dengan susunan sebagai berikut:

Langkah yang kedua, simpan database yang telah dibuat tadi dengan format Microsoft Access 2000-2003. Jika sudah, mari sama-sama kita buka Delphinya. Klik File>New>Other, pilih kategori Delphi Project, pilih VCL Form Application. Tambahkan sebuah StringGrid di Tab Additional dan ganti Property Namenya menjadi Grid.

Tambahkan juga beberapa objek dengan Property sebagai berikut:

Object : Button1

Name : bCari

Caption : Cari

Object : Button2

Name : bSimpan

Caption : Simpan Data

Object : Button3

Name : bHapus

Caption : Hapus Data

Object : Button4

Name : bClose

Caption : Close

Untuk object berupa TEdit, Property Textnya dikosongkan saja yah sob.
Object : Edit1
Name : eCari

Object : Edit2
Name : eID

Object : Edit3
Name : eNama

Object : Edit4
Name :eAlamat

Object : Edit5
Name :eIstri

Setelah itu, tambahkan ADOConnection pada Tab dbGo pada Delphi 2010, dan pada Tab Data Access pada Delphi7. Sebuah ADOTable, dan ADOQuery. Sehingga desain Form akan tampak seperti gambar di bawah ini.

Lakukan koneksi data antara ADOConnection dengan ADOTable, jika belum tau caranya, lihat pada postingan ini.

Berikut ini adalah Listing kode programnya.Tinggal disesuaikan saja yah sob..

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Grid: TStringGrid;
    eCari: TEdit;
    bCari: TButton;
    bSimpan: TButton;
    bHapus: TButton;
    bClose: TButton;
    Label1: TLabel;
    Label2: TLabel;
    eID: TEdit;
    Label3: TLabel;
    eNama: TEdit;
    eAlamat: TEdit;
    Label4: TLabel;
    eIstri: TEdit;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure bSimpanClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bHapusClick(Sender: TObject);
    procedure bCloseClick(Sender: TObject);
    procedure bCariClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bCariClick(Sender: TObject);
begin
if ADOTAble1.Locate('Nama',eCari.Text,[loCaseInsensitive,loPartialKey]) then begin
Grid.Row:=ADOTable1.RecNo;
end;
end;

procedure TForm1.bCloseClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.bHapusClick(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure TForm1.bSimpanClick(Sender: TObject);
begin
ADOTAble1.Append;
ADOTable1['ID']:=StrToFloat(eID.Text);
ADOTable1['Nama']:=eNama.Text;
ADOTable1['Alamat']:=eAlamat.Text;
ADOTable1['Nama_Istri']:=eIstri.Text;
ADOTable1.Post;
ADOTable1.Refresh;//Digunakan untuk mereload data yang ada pada table
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Grid.ColWidths[0]:= 40; //Pengaturan lebar kolom pertama
//(kolom yang tidak bergerak ketika scroll ditekan)
Grid.ColWidths[1]:= 130; //Pengaturan lebar kolom kedua
Grid.ColWidths[2]:= 130; //Pengaturan lebar kolom ketiga
Grid.ColWidths[4]:= 120; //Pengaturan lebar kolom keempat
Grid.Cols[0].Text:='ID';//Text header kolom pertama
Grid.Cols[1].Text:='Nama';//Text header kolom kedua
Grid.Cols[2].Text:='Alamat';//Text header kolom ketiga
Grid.Cols[3].Text:='Nama Istri';//Text header kolom keempat
with ADOTAble1 do begin
Grid.RowCount := RecordCount +1;
First;
while not Eof do begin
Grid.Cells[0,RecNo]:=FieldByName('ID').AsString;
Grid.Cells[1,RecNo]:=FieldByName('Nama').AsString;
Grid.Cells[2,RecNo]:=FieldByName('Alamat').AsString;
Grid.Cells[3,RecNo]:=FieldByName('Nama_Istri').AsString;
end;
end;
end;

end.