Pemrograman Visual Delphi 7 : Program Database menggunakan Script program

Sebuah Aplikasi database yang di bangun menggunakan visual Delphi, membutuhkan analisa table dan data secara cermat, selain itu membutuhkan script program yang cukup rumit, namun sebuah program yang rumit disusun oleh program-program yang sederhana dan digabungkan sehingga menjadi program yang kompleks.

Pada tutorial berikut akan dijelaskan membuat sebuah program untuk menambah, menghapus dan mengedit data di table, jika Anda belum paham proses koneksi antara form dan database serta table, silahkan lihat di tutorial Delphi yang lain di blog ini.

1. Buatlah sebuah aplikasi baru
2. Tambahkan pada form yang baru Table1, datasource1 dan datagrid. Aturlah sesuai fungsinya( cek pada tutorial sebelumnya).

Database = DBDEMOS

Tablename = Country

3. Berikannama pada form tersebut : FormModifikasi

4. Tambahkan tiga tombol dengan ketentua n namenya :

Button1 = Ttambah

Button2 = Thapus

Button3 =Tedit

Sehingga tampilan form sbb:

1. Tambahkan form baru dengan perintah File-New-Form, Bernama form tersebut : formtambah

Adapun tampilan formnya sbb:

Keterangan :

Untuk nama edit tetap tidak di rubah sehingga ada nama edit1 s-d edit5

Kedua tombol menggunakan BitBtn (bukan Button) dan atur kind pada propertis sesuai fungsinya.

1. Sebelum memasukkan kode program simpanlah kedua form diatas. (harus)

2. Klik dua kali pada tombol tambah, dan isikan kode programnya

procedure Tformmodifikasi.TTambahClick(Sender: TObject);

begin

formtambah:=TformTambah.create(self);

with formtambah do

begin

edit1.text:='';

edit2.text:='';

edit3.text:='';

edit4.text:='';

edit5.text:='';

caption:='Menambah data';

activeControl:=edit1;

end;

formtambah.showmodal;

if(formtambah.modalresult=mrOk)then

with table1,formtambah do

begin

Append;

FieldbyName('NAME').AsString :=edit1.text;

FieldbyName('CAPITAL').AsString :=edit2.text;

FieldbyName('CONTINENT').AsString :=edit3.text;

FieldbyName('AREA').AsString :=edit4.text;

FieldbyName('POPULATION').AsString :=edit5.text;

Post;

end;

formtambah.free;

end;

3. Klik dua kali pada tombol hapus, dan isikan kode programnya

procedure Tformmodifikasi.ThapusClick(Sender: TObject);

Var

S : Array [0..255]of char;

begin

StrPCopy(S, Format('Anda Yakin Negara %s dihapus?', [table1.fields[0].AsString]));

if (Application.MessageBox(S,'Peringatan',MB_YESNO or MB_ICONQUESTION)=IDYES)then

{menanyakan apakah benar akan di hapus}

table1.Delete ;

end;

4. Klik dua kali pada tombol edit, dan isikan kode programnya

procedure Tformmodifikasi.TEditClick(Sender: TObject);

begin

formtambah:=TformTambah.create(self);

with formtambah do

begin

edit1.Text :=Table1.Fields[0].asString;

edit2.Text :=Table1.Fields[1].asString;

edit3.Text :=Table1.Fields[2].asString;

edit4.Text :=Table1.Fields[3].asString;

edit5.Text :=Table1.Fields[4].asString;

ActiveControl:=edit1;

end;

formtambah.ShowModal ;

with Table1, formtambah do

begin

edit;

FieldbyName('NAME').AsString :=edit1.text;

FieldbyName('CAPITAL').AsString :=edit2.text;

FieldbyName('CONTINENT').AsString :=edit3.text;

FieldbyName('AREA').AsString :=edit4.text;

FieldbyName('POPULATION').AsString :=edit5.text;

post;

formtambah.Free ;

end;

end;

Selanjutnya simpan kembali program tersebut, coba di jalankan. Pada dasarnya program diatas adalah sebuah program sudah jadi sehingga kemungkinan error kecil tergantung Anda membuatnya,