Modul 5. Membuat Form Penerbit pada Delphi 7.0

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access

Ahmad Rizal Abidin, M.Kom

Karena project Prjpustaka sebelumnya sudah dibuat, pada pada modul 4. Membuat Menu utama maka pada kesempatan ini adalah melengkapi frmpenerbit yaitu dengan cara:

1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.

2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open

3. Klik menu View, lalu klik forms dan double klik frmpenerbit, lengkapi form tersebut seperti gambar berikut :

Gambar 1. Membuat form penerbit

Catatan :

Form diatas terdiri dari :

Palette standard : Label, Edit dan Button

Palette Data controls : DBGrid

Palette ADO : Ado Connection

Palette DAtaAcces : DataSource

4. Mengkoneksikan database

Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection

Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.

Gambar 2. mengkoneksikan Database M. Access

5. apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmpenerbit.

6. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan select * From penerbit. Dan Klik Active pada properties ganti false menjadi true.

7. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form penerbit, lalu klik Dataset pilih Adoquery1

8. Mengkoneksikan DBGrid dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih datasource1

9. Membuat Koding program pada tombol Insert, double klik tombol insert ketikkan listing berikut :

procedure TFrmpenerbit.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add ('insert into penerbit(id_penerbit,penerbit,alamat) values ("'+ edit1.text +'","'+edit2.text+'","'+edit3.text+'")');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.add('Select * from penerbit');
adoquery1.Open;
edit1.text =’’;
kosong;
end;

10. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button2Click(Sender: TObject);</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('update penerbit set penerbit ="'+ edit2.Text +'", alamat="'+ edit3.Text +'" where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.ExecSQL;</p>
<p>adoquery1.SQL.clear;</p>
<p>adoquery1.SQL.Add('Select * from penerbit');</p>
<p>adoquery1.Open;</p>
<p>edit1.text =’’;</p>
<p>kosong;</p>
<p>end;</p>

11. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button3Click(Sender: TObject);</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('delete from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.ExecSQL;</p>
<p>adoquery1.SQL.clear;</p>
<p>adoquery1.SQL.Add('Select * from penerbit');</p>
<p>adoquery1.Open;</p>
<p>edit1.text =’’;</p>
<p>kosong;</p>
<p>end;</p>

12. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button4Click(Sender: TObject);</p>
<p>begin</p>
<p>frmpenerbit.Close;</p>
<p>end;</p>

13. Membuat koding untuk filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object inspector dan double klik pada Onkeypress, lalu ketik listing berikut :

<p>procedure TFrmpenerbit.Edit1KeyPress(Sender: TObject; var Key: Char);</p>
<p>begin</p>
<p>if key=#13 then</p>
<p>begin</p>
<p>adoquery1.Close;</p>
<p>adoquery1.SQL.Clear;</p>
<p>adoquery1.SQL.add('select * from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
<p>adoquery1.open;</p>
<p>if not adoquery1.Eof then</p>
<p>begin</p>
<p>  edit2.Text := adoquery1.Fields[1].AsString;</p>
<p>  edit3.Text := adoquery1.Fields[2].AsString;</p>
<p>end</p>
<p>else</p>
<p>  edit2.SetFocus;</p>
<p>end;</p>
<p>end;</p>

14. Membuat procedure kosong, ketik listing berikut :

<p>procedure TFrmpenerbit.kosong();</p>
<p>begin</p>
<p>edit2.text :='';</p>
<p>edit3.text :='';</p>
<p>end;</p>

15. Pada form Active (OnActive) ketik listing berikut :

<p>procedure TFrmpenerbit.FormActivate(Sender: TObject);</p>
<p>begin</p>
<p>edit1.text ='';</p>
<p>kosong;</p>
<p>@Ahmad</p>
<p>Selamat Mencoba…</p>

@Ahmad
Selamat MEncOba…

Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7

About these ads

3 Responses

  1. tengkyu pak.. :)

  2. tool yg di klik pada ado pallete itu ado conection atau ado query pak?

  3. pak..
    pada adoquery katanya ada klik sql
    tpi kok ga ada ya pak?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: