Contoh Program Database Sederhana / Delphi

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.