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.
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. Berikan nama pada form tersebut : FormModifikasi
4. Tambahkan tiga tombol dengan ketentuan namenya :
Button1 = Ttambah
Button2 = Thapus
Button3 =Tedit
Sehingga tampilan form sbb:
5. 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.
6. Sebelum memasukkan kode program simpanlah kedua form diatas.
(harus)
7. 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;
8. 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;
9. 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.
