1. Bukalah
Microsoft Access dan buat database dengan nama Perpustakaan dengan 2 tabel.
Tabel 1.Login :
User : agussalim
Pass : 063
Tabel 2.Buku :
Kode_Buku :
Judul_Buku :
Pengarang :
Penerbit :
Pilih tempat penyimpanan, usahakan buatin folder supaya
memudahkan dalam penyimpanan projectnya nanti.
2. Buka
program delphi7 dan buatah form 1 serta isi semua data dan codingnya.
Disini kita menggunakan AdoQuery untuk mengkoneksikannya
nanti dengan database yang telah kita buat di Microfoft Access, jangan lupa
tambahkan DataSource.
3. Tambah
2 tombol button dan ganti namanya dengan nama LOGIN, yan satunya lagi ganti
dengan nama BATAL.
4. Klik
button LOGIN 2X dan isikan coding ini di bawah tulisan Begin :
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select
* from login where username=:user and password=:pass');
adoquery1.Parameters.ParamByName('user').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('pass').Value:=edit2.text;
adoquery1.Open;
if
adoquery1.RecordCount<=0 then
begin
messagedlg ('login
gagal, please try again', mtinformation, [mbOK],0);
edit1.SetFocus;
end else
begin
form1.Hide;
form2.show;
end;
end;
5. Kemudian
pada button BATAL, isikan coding :
procedure
TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
6 6. Koneksikan
database menggunakan adoquery
7. Buat
form 2 (Form 2 Disini sebagai form buku), masukkan koding TAMBAH, SIMPAN, EDIT,
HAPUS, CARI, KELUAR DAN REPORT(Report adalah Sebagai Laporan Untuk Bukunya dan
Penyambung antara Form 2 dengan Report nanti). Serta isilah beberapa fieldnya.
Disini kita tetap menggunakan Adoquery & DataSource.
8. Isikan
coding ini pada button TAMBAH :
procedure
TForm2.Button1Click(Sender: TObject);
begin
ADOQuery1.Append;
end;
9. Pada
button SIMPAN :
procedure TForm2.Button1Click(Sender:
TObject);
begin
ADOQuery1.Post;
end;
10. EDIT :
procedure TForm2.Button1Click(Sender:
TObject);
begin
ADOQuery1.Edit;
end;
11. HAPUS :
procedure TForm2.Button1Click(Sender:
TObject);
begin
ADOQuery1.Delete;
end;
12. KELUAR :
procedure TForm2.Button1Click(Sender:
TObject);
begin
ADOQuery1.Close;
end;
13. REPORT/ DATA’S BOOK :
QuickReport3.preview;
14. CARI :
if
ADOQuery1.Locate('Kode_Buku',edit1.text,[]) then
begin
dbedit1.Text:=ADOQuery1['Kode_Buku'];
dbedit2.Text:=ADOQuery1['Judul_Buku'];
dbedit3.Text:=ADOQuery1['Pengarang'];
dbedit4.Text:=ADOQuery1['Penerbit'];
end else
messageDlg('Data
Lose',mtinformation,[mbOk],0)
end;
15. Buatlah sebuah Report, klik menu file, new,
other, report. Kemudian isilah field sesuai dengan data yang ada di form 2.
16. Tambahkan AdoQuery dan lakukan koneksi.
17. Pada lembar kerja report tersebut, klik kanan
di tengah-tengah lembar kerja, pilih Report & Setting, maka akan tampil
seperti ini :
CheckList
Title, Column Header, Detail Band. Klik Apply, Klik OK.
Setelah
itu akan tampil seperti ini :
18. Isilah lembar kerja sesuai form 2
19. Pada lembar kerja, klik tulisan Kode_Buku dan
lihat pada properties di samping kiri, cari DataField kemudian isikan dengan
Kode_Buku(Lakukan juga pada Judul_Buku dan seterusnya).
20. Setelah semuanya selesai, RUN. Isikan
username & password(jika salah mengisi username/ password maka :
Jika berhasil, maka akan tampil form 2.
21. Cobalah untuk menginput identitas lengkap
sebuat buku, klik SIMPAN/ SAVE, dan klik REPORT/ Data’s Book. Maka akan tampil
:
