Contoh Program Database Sederhana
Form Utama
Untuk membuat aplikasi data base yang sederhana, yang perlu disiapkan adalah komponen Ttable yang akan menghubungkan program Anda dengan file data base yang ada di hard disk. Ada tiga properties yang penting dari Ttable yang perlu diisi, yaitu:
o DataBaseName, menujuk tempat dimana file database disimpan, biasanya menjunjuk alias dari path database tersebut.
o TableName, berisi nama-nama table yang ada pada direktori yang ditunjuk.
o Active, diisi true jika table tersebut ingin dibuka(active) dan diisi false jika teble tersebut tetap tertutup (Close).
Form tambah Data
Keterangan :
Tnegara adalah Nama Ttable dengan :
DatabaseName : DBDEmos
TableName : Country.db
DSNegara adalah Nama DataSource dengan DataSet : Tnegara
Kode Programnya adalah:
unit Unitdbs;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, Grids, DBGrids, Db, DBTables;
type
TFormlatihdatabase = class(TForm)
DSNegara: TDataSource;
TNegara: TTable;
DBGrid1: TDBGrid;
BtTambah: TButton;
BtHapus: TButton;
BtEdit: TButton;
BitBtn1: TBitBtn;
procedure BtTambahClick(Sender: TObject);
procedure BtEditClick(Sender: TObject);
procedure BtHapusClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formlatihdatabase: TFormlatihdatabase;
implementation
uses Unittmb;
{$R *.DFM}
procedure TFormlatihdatabase.BtTambahClick(Sender: TObject);
begin
formtambahdata:=Tformtambahdata.create(self);
with formtambahdata do
begin
ednama.text:='';
edibukota.text:='';
edbenua.text:='';
edluas.text:='';
edjumlah.text:='';
caption :='Menambah data';
activecontrol:=ednama;
end;
formtambahdata.showmodal;
if (formtambahdata.modalresult=mrOK) then
with TNegara,FormTambahData do
begin
append;
fieldbyname('Name').asstring:=ednama.text;
fieldbyname('capital').asstring:=edibukota.text;
fieldbyname('continent').asstring:=edbenua.text;
fieldbyname('area').asstring:=edluas.text;
fieldbyname('population').asstring:=edjumlah.text;
post;
end;
formtambahdata.free;
end;
procedure TFormlatihdatabase.BtEditClick(Sender: TObject);
begin
formtambahdata:=Tformtambahdata.create(self);
with TNegara,formtambahdata do
begin
ednama.text:=fieldbyname('Name').asstring;
edibukota.text:=fieldbyname('capital').asstring;
edbenua.text:=fieldbyname('continent').asstring;
edluas.text:=fieldbyname('area').asstring;
edjumlah.text:=fieldbyname('population').asstring;
caption :='Mengedit data';
activecontrol:=ednama;
end;
formtambahdata.showmodal;
if (formtambahdata.modalresult=mrOK) then
with TNegara,FormTambahData do
begin
edit;
fieldbyname('Name').asstring:=ednama.text;
fieldbyname('capital').asstring:=edibukota.text;
fieldbyname('continent').asstring:=edbenua.text;
fieldbyname('area').asstring:=edluas.text;
fieldbyname('population').asstring:=edjumlah.text;
post;
end;
formtambahdata.free;
end;
procedure TFormlatihdatabase.BtHapusClick(Sender: TObject);
var
s: array[0..255] of char;
begin
strPcopy(S,Format('Anda Yakin Negara %s dihapus??',[TNegara.fields[0].asstring]));
if (application.messageBox(S,'Perhatian',MB_YESNO or MB_ICONQUESTION)=IDYES) then
TNegara.delete;
end;
end.
