Modul Praktikum Basis Data 15 Pemrograman MS Access

Modul Praktikum Basis Data 15 Pemrograman MS Access Pokok Bahasan : - Membuat form entri master dengan pemrograman - Membuat form entri transaksi dengan pemrograman access - Menghubungkan report dengan form yang telah dibuat Tujuan : - Mahasiswa mampu membuat form entri master dengan pemrograman - Mahasiswa mampu membuat form entri transaksi dengan pemrograman access - Mahasiswa mampu menghubungkan report dengan form yang telah dibuat

Uraian Materi : Microsoft Acces selain menyediakan fasilitas wizard dalam merancang form entri databasenya, Microsoft access juga memiliki pemrograman dengan menggunakan visual basic. Pemrograman dalam acces ini sangat dibutuhkan jika ada beberapa informasi tertentu yang diinginkan sesuai dengan fungsi dan kriteria tertentu, sehingga obyek-obyek dalam form yang sudah dirancang harus ditambahkan exprensinya dengan bahasa visual basic. 1. Membuat Form entri dengan pemrograman Membuat form entri yang sesuai dengan kebutuhan operator, biasanya membutuhkan koding pemrograman untuk membuat aplikasi menjadi mudah dan nyaman. Untuk lebih mudahnya akan dibuat form entri data master dan transaksi pada studi kasus data perpustakaan. Gunakan Create Form in Design View sebagai berikut :

Gambar 1: Lembar kerja form entri Praktikum Basis Data 15|Pemrograman MS Access

1

Lalu atur properties dari masing-masing obyek, pertama yang harus dilakukan menghubungkan form kedalam database.

Gambar 2. Merubah properties dalam obyek 2. Membuat form entri master Untuk membuat form entri data master tidaklah terlalu sulit, biasanya cukup dengan teknik Wizard sudah tidak masalah, akan tetapi bila ada penambahan koding untuk membuat operator lebih mudah menggunakan maka harus juga dibutuhkan modifikasi pada form tersebut. Maka untuk memahami lebih jelas akan dibahas pembuatan form entri pada table Anggota dalam sistem informasi Perpustakaan pada bab sebelumnya, dapat diikuti langkahlangkah berikut ini : Rancang Form Entri Anggota Perpustakaan, gunakan Create Form in Design seuai dengan gambar 2 diatas. Lalu ubah properties Form tersebut. Hubungkan form dengan table. Pilih Properties Data, dan pilih Record Source, lalu ketik perintah untuk memanggil table, bisa menggunakan perintah SQL atau cara langsung sebagai berikut : Bila menggunakan SQL Select pada Record Source ketik perintah SELECT * FROM ANGGOTA seperti pada gambar berikut :

Gambar 3. Menghubungkan Form pada table Tambahkan komponen obyek TextBox pada form, seperti sebagai berikut : Praktikum Basis Data 15|Pemrograman MS Access

2

Gambar 4. Menambahkan Textbox dalam Form Lalu ubah properties TextBox : Name, pilih Other, ganti Text0 dengan TxtKodeAnggota, dan juga untuk Textbox lainnya, ganti masing-masing variable Name menjadi TxtNama,TxtAlamat dan TxtTelpon. Bila ingin menggunakan procedure pada Event dalam property Textbox yang ada, maka pilih Event, gunakan procedure yang dimaksud sesuai dengan fungsinya. Misalkan ingin pada saat operator melakukan entri kode anggota yang sudah ada, ada informasi bahwa data sudah ada atau informasi nama,alamat dan telponnya ditampilkan maka gunakan procedure LostFocus artiyna setiap ada penekanan Enter maka akan menjalankan koding yang ada dan informasinya akan disajikan. Seprti sebagai berikut :

Gambar 5. Prosedure LostFocus pada Event Lalu ketik koding untuk mencari data sebagai berikut : Private Sub TxtKodeAnggota_LostFocus() Form.RecordSource = "select TxtKodeAnggota & "'"

*

from

anggota where

KodeAnggota='"

&

Form.Refresh Praktikum Basis Data 15|Pemrograman MS Access

3

If Form.Recordset.RecordCount > 0 Then MsgBox(“Data Telah Ada…”) TxtNama = Form.Recordset!Nama TxtAlamat = Form.Recordset!Alamat TxtTelpon = Form.Recordset!Telpon Else TxtNama = "" TxtAlamat = "" TxtTelpon = "" End If TxtNama.SetFocus End Sub Maka hasil dari form tersebut pada saat dijalankan, pada saat dilakukan entri data yang sudah ada maka informasi data akan dimunculkan sebagai berikut :

Gambar 6. Hasil form Entri Anggota Lalu Buat program untuk menyimpan, terlebih dulu tambahkan Command Buttom, kemudian ketik koding programnya pada procedure klik, seperti dibawah ini :

Praktikum Basis Data 15|Pemrograman MS Access

4

Gambar 7. Membuat tombol penyimpanan Lalu keti koding pada procedure klik seperrti dibawah ini : Private Sub Command9_Click() Form.Recordset.AddNew Form.Recordset!KodeAnggota = TxtKodeAnggota Form.Recordset!Nama = TxtNama Form.Recordset!Alamat = TxtAlamat Form.Recordset!Telpon = TxtTelpon Form.Recordset.Update MsgBox ("Data tersimpan...") End Sub

Maka bila dijalankan dengan memasukan data baru maka dta akan tersimpan, seperti pada gambar berikut :


5

Gambar 8. Hasil form entri penyimpanan data 3. Membuat form entri transaksi Form entri transaksi membutuhkan koneksi ke beberapa table, sehingga membutuhkan teknik pemrograman yang tidak sederhana. Untuk lebih jelasnya maka akan dikerjakan pembuatan form entri transaksi peminjaman buku sebagai berikut : Rancang form entri transaksi pinjam buku sebagai berikut:

Gambar 9. Merancang form transaksi pinjam buku Ketik koding untuk validasi dan pencarian data jika data nopinjam sudah ada maka pada saat entri nopinjam maka ada informasi data sudah ada. Untuk data anggota, jika data kode anggota yang dimasukan sudah ada maka, identitas nama, alamat dan telpon akan ditampilkan. Demikian juga dengan pada saat kode buku dimasukan, dilakukan pencarian apakah kode buku sudah ada atau tidak, jika sudah ada maka judul buku akan dinformasikan jika tidak maka ada informasi data salah entri. Untuk itu pada textbox nomer pinjam, kode anggota dan kode buku ketik koding sebagai berikut : Praktikum Basis Data 15|Pemrograman MS Access

6

Private Sub TxtNoPinjam_LostFocus() Form.RecordSource = "SELECT * FROM PINJAM WHERE NOPINJAM='" & TxtNoPinjam & "'" Form.Refresh If Form.Recordset.RecordCount > 0 Then MsgBox ("NOMER PINJAM SUDAH ADA....") Else TxtTanggal.SetFocus End If End Sub

Private Sub TxtKodeAnggota_LostFocus() Form.Refresh Form.RecordSource = TxtKodeAnggota & "'"

"Select

*

from

anggota

where

KodeAnggota='"

&

Form.Refresh If Form.Recordset.RecordCount > 0 Then TxtNama = Form.Recordset!Nama TxtAlamat = Form.Recordset!Alamat TxtTelpon = Form.Recordset!Telepon TxtKodeBuku.SetFocus Else TxtNama = "" TxtAlamat = "" TxtTelpon = "" Praktikum Basis Data 15|Pemrograman MS Access

7

TxtNama.SetFocus End If End Sub Private Sub TxtKodeBuku_LostFocus() Form.Refresh Form.RecordSource = "SELECT * FROM BUKU WHERE KODEBUKU='" & TxtKodeBuku & "'" Form.Refresh If Form.Recordset.RecordCount > 0 Then TxtJudul = Form.Recordset!JUDUL Form.RecordSource = "SELECT * FROM PINJAM" Form.Refresh Command1.SetFocus Else MsgBox ("SALAH ENTRI KODE BUKU...") End If End Sub Maka hasilnya adalah sebagai berikut :


8

Gambar 10. Hasil form entri peminjaman

4. Membuat Report lebih lanjut dalam form Untuk membuat report atau laporan sudah dibahas dalam bab sebelumnya, akan tetapi laporan dengan terhubung dalam form yang laporannya disajikan sesuai dengan kriteria, untuk lebih jelasnya akan dibahas membuat laporan untu transaksi peminjaman buku berdasarkan transaksi peminjaman. Siapkan form untuk memanggil report(laporan) yang akan dibuat, seperti contoh berikut :

Gambar 11. Rancang Form Untuk Mencetak Yang perlu diperhatikan, untuk TextBox tanggal masing, berinama TxtTg1 dan TxtTg2. Dan simpan rancangan form tersebut sesuai dengan nama yang diinginkan, misalnya Cetak. Praktikum Basis Data 15|Pemrograman MS Access

9

Lalu rancang report sebagai berikut :

Gambar 12. Rancangan Report Peminjaman Buku Yang perlu diperhatikan isi properties Record Source pada Report tersebut dengan perintah SQL sebaga berikut : SELECT a.KodeAnggota, b.KodeBuku, c.Tanggal, * FROM anggota AS a, buku AS b, pinjam AS c WHERE (((a.KodeAnggota)=c.kodeanggota) And ((b.KodeBuku)=c.kodebuku) And ((c.Tanggal)>=Forms!Cetak!TxtTg1 And (c.Tanggal)<=Forms!Cetak!TxtTG2)); Atau gunakan teknik build untuk ekspresi kriteria perintah tersebut, untuk menggunakannya ikuti langkah-langkah berikut :


10

Gambar 13. Gambar Build untuk membuat kriteria dalam query

Gambar 14. Ekspresi Build untuk kriteria Sehingga akan dihasilkan perintah SQL SELECT seperti yang tertulis dalam Record Source diatas. Hasil dari laporan tersebut adalah sebagai berikut :


11

Gambar 15. Form cetak dalam report Sehingga hasil report sesuai dengan kriteria tanggal yang dimaksud adalah sebagi berikut :

Gambar 16. Laporan peminjaman buku


12

Latihan Soal: 1. Buat form entri dengan melakukan validasi pencarian untuk table VCD. Gunakan pemrograman Acces seperti contoh pada bab tersebut. 2. Buat juga form transaksi untuk penyewaan VCD yang mudah digunakan dan lengkapi dengan validasi agar pada saat melakukan entri data tidak terjadi kesalahan. 3. Buat laporan untuk transaksi penyewaan VC


13

Modul Praktikum Basis Data 15 Pemrograman MS Access

Recommend Documents