Aplikasi Perpustakaan Menggunakan Delphi dan Ms Access

Berikut ini penulis share cara membuat aplikasi perpustakaan menggunakan Delphi dan Ms Access.

Kebutuhan:

1.   Delphi 7

2.   Ms Access (minimal Office 2003)

3.   PDFViewer. Jika tidak ada download disini.

Langkah 1.

Anda membuat basis datanya terlebih dahulu di Ms Access. Jika belum buat silahkan Download Modul Database Menggunakan Delphi. OK, kita lanjut. Saya anggap Anda sudah memiliki database yang tersimpan di Ms Access. Misalnya saya punya contoh data berikut.

Langkah Kedua.

Desain Form Delphi seperti berikut.

Perhatikan Atribut yang digunakan: 6 Label, 4 Edit, 2 ComboBox, 3 BitButton, 4 GroupBox, 1 ADOConnection, 1 Image, 1 ADOQuery, 1 DataSource, 2 OpenDialog, 1 DBNavigator, 1 DBGrid, 1 WebBrowser, 1 StatusBar, dan AlphaSkins.

Langkah Ketiga.

Silahkan koneksikan data Ms Access ke Form Delphi yang sudah Anda buat. Baca Cara Mengkoneksikan Data Ms Access ke Delphi di Modul yang sudah Anda download pada Langkah 1.

Langkah Keempat.

Memasukkan perintah ke masing-masing Tombol.

Tombol Load File.

Var alamatpdf:string;

begin

if opendialog1.Execute  then

begin

alamatpdf:=OpenDialog1.FileName;

e1.Text:=alamatpdf;

end;

Tombol Save File

    

if (e1.Text='') or (e2.Text='') or (e3.Text='Choice')

then

begin

ShowMessage('Please...!, Complite of Data Input');

Exit;

end;

adoquery1.Append;

adoquery1.FieldByName('Categories').AsString:=e3.Text;

adoquery1.FieldByName('Title').AsString:=e2.Text;

adoquery1.FieldByName('Server').AsString:=e1.Text;

AdoQuery1.Post;

ShowMessage('Save Data is Success, Please Cek It!');

e4.Caption:='The Amount of Data =  ' +inttostr(AdoQuery1.RecordCount)+' Data';

e1.Clear;

e2.Clear;

e3.Text:='Choice';

end;

Tombol Show File

     webbrowser1.Navigate(dbedit1.Text);

Edit Pada Search

     Var

filter:string;

begin

case e5.ItemIndex of

0:filter:='Categories';

1:filter:='Title';

2:filter:='Server';

end;

AdoQuery1.Open;

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add('Select*From e_pustaka where '+filter+' like '+QuotedStr('%'+e6.Text+'%'));

AdoQuery1.Open;

e4.Caption:='The Amount of Search=  ' +inttostr(AdoQuery1.RecordCount)+' Data';

end;

Langkah kelima.

Lakukan Simulasi dengan langkah: Load File à Save File à Search à Show File.

Download Aplikasinya disini.

Download Modul Praktikum Database Delphi disini.

Terima Kasih. Semoga Bermanfaat.