1. Buatlah Tabel : Penyewa

Isi Tabel Tersebut dengan beberapa data
2.Buatlah Form : F_Penyewa

\
3. Buatlah Alias Manager untuk menghubungkan ke Path penyimpanan tabel penyewa
4. Hubungkan Objek-objek ini:
    a. Table1 :
         Database Name : Nama_alias
         Table Name       : Penyewa
          Active               : True
    b. Datasource1
         DataSet  : Table1         
    a. DBGrid :
         Data Source : Datasource1 
Ketentuan Soal:
1. Buatlah Procedure  Bersih,aktif, dan nonaktif
2. Saat Form Dijalankan semua editbox dan radio button tidak aktif
3. di klik Tambah form aktif dan bersih
4. Tombol simpan untuk menyimpan ke tabel Penyewa
5. Untuk pencarian terlebih dahulu mengetik kode yang akan di cari.
  Jika ketemu maka data tampil dan form aktif.
 lalu anda bisa mengubah dan menekan tombol Edit untuk menyimpan hasil Editan 
atau anda bisa menghapus data tersebut dengan tombol hapus
6. tombol batal untuk menonaktifkan form
7.keluar untuk mengakhiri Running form      

atau 
Read More
procedure tform1.bersih;
begin
ekode.Text :='';
enama.Text :='';
ealamat.Text :='';
//membersihkan objek Radio Button
rb1.Checked :=false ;
rb2.Checked :=false;
end;

procedure tform1.aktif;
begin
ekode.Enabled :=true;
enama.Enabled :=true;
ealamat.Enabled :=true;
rb1.Enabled :=true;
rb2.Enabled :=true;
end;

procedure tform1.nonaktif;
begin
ekode.Enabled :=false;
enama.Enabled :=false;
ealamat.Enabled :=false;
rb1.Enabled :=false;
rb2.Enabled :=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.btambahClick(Sender: TObject);
begin
aktif;
bersih;
end;

procedure TForm1.bcariClick(Sender: TObject);
begin
if table1.FindKey([ecari.Text]) then
begin
//jika ketemu maka data tampil
ekode.Text :=table1['kdpenyewa'];
enama.Text :=table1['nmpenyewa'];
ealamat.Text :=table1['alamat'];
if table1['jkel']='P' then
//Menampilkan Radio Button Untuk Pria dari tabel penyewa
rb1.Checked :=true
else
if table1['jkel']='W' then
rb2.Checked :=true;
aktif;
end
else
showmessage('Data Tidak Ditemukan')
end;

procedure TForm1.bbatalClick(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
close;
end;

procedure TForm1.bsimpanClick(Sender: TObject);
begin
table1.Append;
table1['kdpenyewa']:=ekode.Text ;
table1['nmpenyewa']:=enama.Text;
table1['alamat']:=ealamat.Text ;
//Coding Untuk Menyimpan Objek radio Button
if rb1.Checked =true then
table1['jkel']:='P'
else
if rb2.Checked =true then
table1['jkel']:='W';
table1.Post;
showmessage('Data Telah Tersimpan');
end;

procedure TForm1.beditClick(Sender: TObject);
begin
table1.Edit;
table1['kdpenyewa']:=ekode.Text ;
table1['nmpenyewa']:=enama.Text;
table1['alamat']:=ealamat.Text ;
if rb1.Checked =true then
table1['jkel']:='P'
else
if rb2.Checked =true then
table1['jkel']:='W';
table1.Post;
showmessage('Data Telah Du Update');
end;

procedure TForm1.bhapusClick(Sender: TObject);
begin
table1.Delete;
end;