DELPHI - Latihan 2 dengan database access

1. buatlah database DVD dengan nama tabel DVD untuk pembuatan database lebih rinci bisa dlihat tutorial sebelumnya.. >>> koneksi database access













2. buat lah desain sepertigambar dibawah ini, nama objectnya default saja seperti aslinya..

3. koneksikan database yg tadi di buat seperti pada pembahasan sebelumnya di koneksi database access

4. buatlah procedure aktif, procedure pasif, prosedure tampil, dan procedure kode..

a. pertama buat procedure di public

    private
    { Private declarations }
  public
  procedure aktif;
  procedure pasif;
  procedure tampil;
  procedure kode;
    { Public declarations }
  end;
----------------------------------------------------------------------------------
b. kedua buat procedurenya di bawah code {$R *.dfm}

procedure tform1.aktif;        { membuat procedure aktif  }
begin
groupbox1.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=true;
button4.Enabled:=false;
button5.Enabled:=true;
end;

procedure tform1.pasif;        { membuat procedure pasif  }
begin
edit1.Clear;
edit2.Clear;
combobox1.Clear;
combobox1.Items.Add('HQ');
combobox1.Items.Add('HD');
combobox1.Items.Add('Blu-ray');
edit3.Text:='0';
edit4.Text:='0';
groupbox1.Enabled:=false;
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button1.SetFocus;
end;

procedure tform1.tampil;        { membuat procedure tampil }
begin
if adotable1.RecordCount<>0 then         { Jika record tidak kosong maka semua field akan tampil }
  begin
  edit1.Text:=adotable1['kode_dvd'];       { field kode_dvd masuk kedalam edit1.text }
  edit2.Text:=adotable1['judul'];               { atau edit1.text MENAMPUNG field kode_dvd }
  combobox1.Text:=adotable1['format'];
  edit3.Text:=adotable1['harga_sewa'];
  edit4.Text:=adotable1['stok'];
  button1.Enabled:=false;
  button2.Enabled:=true;
  button3.Enabled:=false;
  button4.Enabled:=true;
  button5.Enabled:=true;
  end
end;

procedure tform1.kode;                   { membuat procedure kode otomatis }
var kode:integer;
begin
adotable1.Refresh;
if adotable1.RecordCount=0 then      { jika record samadengan 0 atau tidak ada record }
  begin
  edit1.Text:='DVD'+'001';                 { maka kodenya adalaha DVD001 }
  end
else
  begin
  adotable1.Last;                                                           { jika record yg paling akhir ada maka }
  kode:=strtoint(copy(adotable1['kode_dvd'],4,3));        
  inc(kode);
  if kode<10 then                                                            { jika kurang dari 10 maka kodenya 00 + 1 }
    edit1.Text:='DVD'+'00'+inttostr(kode)
  else
    edit1.Text:='DVD'+'0'+inttostr(kode);                      { jika lebih dari 9 maka kodenya 0 + 10 }
  end
end;

-----------------------------------------------------------------------

5. mengisi combo box dengan cara manual pada menu properties combobox "items {T-String}

kemudian isi kan listingnya sebagai berikut

procedure TForm1.ComboBox1Change(Sender: TObject);   { isi listing dari combobox1 }
begin
if combobox1.Text='HQ' then
  edit3.Text:='10000'
else if combobox1.Text='HD' then
  edit3.Text:='15000'
else
  edit3.Text:='20000';
end;

--------------------------------------------------------------------

6. membuat listing TAMBAH pada button1

procedure TForm1.Button1Click(Sender: TObject);        { membuat tombol tambah  }
begin
isi:=true;
aktif;
kode;
edit2.SetFocus;
end;

----------------------------------------------------------------------

7. membuat listing UBAH / EDIT pada button2

procedure TForm1.Button2Click(Sender: TObject);        { membuat tombol EDIT  }
begin
aktif;
end;

------------------------------------------------------------------

8. Membuat Listing SIMPAN / SAVE pada button3

procedure TForm1.Button3Click(Sender: TObject);        { membuat tombol simpan  }
begin
if isi=true then
  begin
  adotable1.Append;
  adotable1['kode_dvd']:=edit1.Text;
  adotable1['judul']:=edit2.Text;
  adotable1['format']:=combobox1.Text;
  adotable1['harga_sewa']:=strtoint(edit3.Text);
  adotable1['stok']:=strtoint(edit4.Text);
  adotable1.Post;
  messagedlg('Data disimpan.',mtinformation,[mbok],0);
  pasif;
  end
else
  begin
  isi:=false;
  adotable1.Edit;
  adotable1['judul']:=edit2.Text;
  adotable1['format']:=combobox1.Text;
  adotable1['harga_sewa']:=strtoint(edit3.Text);
  adotable1['stok']:=strtoint(edit4.Text);
  adotable1.Post;
  messagedlg('Data diubah.',mtinformation,[mbok],0);
  pasif;
  end
end;

--------------------------------------------------------------------

9. Membuat Listing HAPUS pada button4

procedure TForm1.Button4Click(Sender: TObject);        { membuat tombol hapus  }
begin
if messagedlg('Hapus data?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  adotable1.Delete;
  adotable1.Refresh;
  adotable1.First;
  pasif;
  end
end;

-------------------------------------------------------------------

10. Membuat Listing BATAL atau CANCEL pada button5

procedure TForm1.Button5Click(Sender: TObject);        { membuat tombol batal atau cancel }
begin
pasif;
end;

---------------------------------------------------------------------

11. Membuat Listing CARI atau FIND pada button6

procedure TForm1.Button6Click(Sender: TObject);        { membuat tombol cari  }
begin
if adotable1.Locate('kode_dvd',edit5.Text,[]) then
  begin
  tampil;
  edit5.Clear;
  end
else
  begin
  messagedlg('Data tidak ditemukan.',mtwarning,[mbok],0);
  edit5.Clear;
  end
end;

----------------------------------------------------------------------

12. Membuat listing First Record pada button 7

procedure TForm1.Button7Click(Sender: TObject);        { membuat tombol first record  }
begin
adotable1.First;
tampil;
end;

---------------------------------------------------------------------

13. Membuat listing Previous Record pada button8

procedure TForm1.Button8Click(Sender: TObject);        { membuat tombol previous record  }
begin
adotable1.Prior;
tampil;
if adotable1.Bof=true then
  if adotable1.RecordCount<>0 then
    messagedlg('Data pertama.',mtinformation,[mbok],0);
end;

-------------------------------------------------------------------

14. Membuat listing Next Record pada button9

procedure TForm1.Button9Click(Sender: TObject);        { membuat tombol next record  }
begin
adotable1.Next;
tampil;
if adotable1.Eof=true then
  if adotable1.RecordCount<>0 then
    messagedlg('Data terakhir.',mtinformation,[mbok],0);
end;

--------------------------------------------------------------------

15. Membuat listing Last Record pada button10

procedure TForm1.Button10Click(Sender: TObject);    { membuat tombol last record  }
begin
adotable1.Last;
tampil;
end;

-------------------------------------------------------------------

16. Membuat listing EXIT atau keluar pada button11 atau bisa menggunakan listing seperti di pembahasan di membuat messagebox

procedure TForm1.Button11Click(Sender: TObject);    { membuat tombol exit  }
begin
if messagedlg('Tutup jendela DVD?',mtconfirmation,[mbyes,mbno],0)=mryes then
  close;
end;

--------------------------------------------------------------------

bisa anda coba, hasilnya akan seperti ini

---------------------------------------------------
jika ingin download source codenya silahkan download di
>> DELPHI form DVD melalui dropbox

catatan: "jika ada masalah pada saat program dijalankan, silahkan priksa kembali connection string yg ada pada adotable1.."


~ semoga bermanfaat ~