BAB 2 PEMBUATAN APLIKASI PERPUSTAKAAN SEKOLAH

BAB 2 PEMBUATAN APLIKASI PERPUSTAKAAN SEKOLAH

2.1 Persiapan Program Utama Pada bab ini kita akan membahas tentang pembuatan program utama yaitu Aplikasi Perpustakaan Sekolah dengan menggunakan program Microsoft Visual Basic 6.0. Langkah demi langkahnya akan dijelaskan pada bab ini dan nantinya bisa digunakan untuk pedoman membuat Aplikasi Perpustakaan lain ataupun aplikasi lainnya.

2.1.1 Membuat Proyek Baru Program yang digunakan dalam pembuatan aplikasi ini adalah menggunakan program Microsoft Visual Basic 6.0. Sebagai langkah awal dalam pembuatan aplikasi, kita harus membuat proyek baru pada program. Berikut adalah langkah-langkahnya : 1.

Buku program Microsoft Visual Basic 6.0, dari Start – All Programs – Microsoft Visual Basic 6.0 - Microsoft Visual Basic 6.0. Lihat tampilan di bawah ini.

Gambar 2.1 Tampilan Langkah Membuka Visual Basic 6.0

16 | Atep Ruhiat Membuat Aplikasi Perpustakaan Sekolah Dengan Visual Basic 6.0

2.

Setelah muncul jendela New Project, pilih VB Enterprise Edition Controls supaya komponennya lengkap. Klik Open untuk membukanya.

Gambar 2.2 Tampilan Pilihan Projek Visual Basic 3.

Gunakan form pertama untuk membuat Menu Utama Aplikasi Perpustakaan.

4.

Simpan project dari File – Save Project. Lihat gambar di bawah ini.

Gambar 2.3 Tampilan Langkah Penyimpanan Project Kerja 5.

Penyimpanan

pertama

adalah

penyimpanan

untuk

form,

tentukan lokasi folder yang sebelumnya sudah kita buat yaitu Aplikasi

Perpustakaan

Sekolah/Form


lalu

beri

nama

Form_Menu_Utama klik tombol Save. Untuk lebih jelasnya lihat pada gambar.

Gambar 2.4 Tampilan Penyimpanan Form 6.

Sedangkan penyimpanan kedua adalah project kerja, simpan ke dalam sub-folder Data. Beri nama Apl_Perpustakaan klik tombol Save. Lihat gambar di bawah ini.

Gambar 2.5 Tampilan Penyimpanan Project 7.

Kemudian akan muncul jendela Source Code Control untuk melanjutkan klik tombol No.

Gambar 2.6 Tampilan Source Code Control


2.1.2 Mendesain Menu Utama Aplikasi Menu utama aplikasi merupakan tampilan awal aplikasi, di mana dalam menu utama ini terdapat fasilitas-fasilitas yang nantinya bisa kita gunakan dalam mengelola Aplikasi Perpustakaan Sekolah yang akan kita buat. Bentuk menu utama yang akan kita buat, untuk lebih jelasnya seperti tampilan di bawah ini.

Gambar 2.7 Tampilan Menu Utama Aplikasi Perpustakaan Untuk membuat tampilan seperti di atas, coba ikuti langkahlangkah di bawah ini. 1.

Buka Form_Menu_Utama yang telah kita buat tadi.

2.

Kemudian aturlah properti form tersebut dengan ketentuan seperti di bawah ini. Komponen

Form

3.

Properti Name BackColor BorderStyle Caption

Nilai Form_Menu_Utama &H00DCB470& 3–Fixed Dialog :: Menu Utama Aplikasi Perpustakaan Sekolah ShowInTaskbar True Windows-State 2-Maximized Tabel 2.1 Konfigurasi Form Menu Utama

Selanjutnya buatlah menu Pull Down dengan menggunakan Menu Editor dari Tools – Menu Editor. Berikut contoh tampilannya.


Gambar 2.8 Tampilan Membuka Menu Editor 4.

Lalu buatlah menu dan sub-menu pada jendela Menu Editor. Berikut ini tampilan gambarnya.

Gambar 2.9 Tampilan Menu Editor 5.

Untuk lebih jelas tentang pengaturannya bisa dilihat pada tabel di bawah ini. Level 1 Sistem

Caption Level 2 Login Logout Keluar

Data Petugas Anggota Jenis Buku Buku


Name MnSistem SbMnLogin SbMnLogout Baris1 SbMnKeluar MnData SbMnPetugas SbMnAnggota Baris2 SbMnJenisBk SbMnBuku

Transaksi Peminjaman Buku Pengembalian Buku Laporan

MnTransaksi SbMnPeminjamanBk Baris3 SbMnPengembalianBk MnLaporan SbMnDtPetugas SbMnDtAnggota Baris4 SbMnJenisBk

Data Petugas Data Anggota Data Jenis Buku Data Buku SbMnDtBkKeseluruhan Keseluruhan Data Buku Yang SbMnDtBkYgTersedia Tersedia Data Buku Yang SbMnDtBkYgDipinjam Dipinjam Baris5 Trans. Peminjaman SbMnTransPinjamBk Buku Trans. Pengembalian SbMnTransKembaliBk Buku Tabel 2.2 Konfigurasi Menu Utama 6.

Setelah menu dan sub-menu tersebut sudah dibuat, klik tombol OK.

7.

Tambahkan komponen Toolbar (

) dan Status Bar (

)

pada Form_Menu_Utama. Sehingga tampilannya seperti di bawah ini.

Objek Toolbar

Objek StatusBar

Gambar 2.10 Tampilan Form Setelah Ditambah Toolbar dan StatusBar


8.

Klik kanan pada objek Status Bar, pilih Properties.

9.

Akan muncul jendela Property Page, pilih tab Panels, kemudian tambahkan satu panel lagi ke dalam komponen Status Bar yaitu caranya dengan klik tombol Insert Panel satu kali. Lihat pada gambar di bawah ini.

Gambar 2.11 Tampilan Untuk Menambah Panel Pada Objek Status Bar 10. Setelah itu klik tombol Apply, kemudian lanjutkan dengan mengklik tombol OK.

2.1.3 Membuat Kode pada Menu Utama Aplikasi Setelah pembuatan

semuanya kode

selesai,

program

pada

langkah

selanjutnya

Form_Menu_Utama.

adalah Ikutilah

langkah-langkah di bawah ini : 1.

Pada Form_Menu_Utama dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘memberikan kondisi pada menu pada saat form dijalankan

2.

SbMnLogout.Enabled = False SbMnKeluar.Enabled = True MnData.Enabled = False MnTransaksi.Enabled = False MnLaporan.Enabled = False End Sub Dari halaman Form_Menu_Utama, pilih menu Sistem – Login. Kemudian ketikkan kode program di bawah ini. Private Sub SbMnLogin_Click() ‘membuka form login


3.

Form_Login.Show 1 End Sub Masih dari halaman Form_Menu_Utama, pilih menu Sistem – Logout. Kemudian ketikkan kode program di bawah ini. Private Sub SbMnLogout_Click() ‘memberikan kondisi pada menu SbMnLogin.Enabled = True SbMnLogout.Enabled = False SbMnKeluar.Enabled = True MnData.Enabled = False MnTransaksi.Enabled = False MnLaporan.Enabled = False

4.

‘mengosongkan status userid dan nama petugas StatusBar1.Panels(1) = "" StatusBar1.Panels(2) = "" End Sub Masih dari halaman Form_Menu_Utama, pilih menu Sistem – Keluar. Kemudian ketikkan kode program di bawah ini. Private Sub SbMnKeluar_Click() ‘memunculkan dialog bok konfirmasi Keluar = MsgBox("Anda yakin akan keluar?", _ vbInformation + vbYesNo, "Informasi")

5.

‘jika memilih Yes maka akan keluar ‘jika sebaliknya No maka akan keluar dari sub kode If Keluar = vbYes Then End Else Exit Sub End If End Sub Masih dari halaman Form_Menu_Utama, pilih menu Data – Petugas. Kemudian ketikkan kode program di bawah ini.

6.

Private Sub SbMnPetugas_Click() ‘membuka form petugas Form_Petugas.Show 1 End Sub Masih dari halaman Form_Menu_Utama, pilih menu Data – Anggota. Kemudian ketikkan kode program di bawah ini.

7.

Private Sub SbMnAnggota_Click() ‘membuka form anggota Form_Anggota.Show 1 End Sub Masih dari halaman menu utama, pilih menu Data – Jenis Buku. Kemudian ketikkan kode program di bawah ini.


8.

Private Sub SbmnJenisBk_Click() ‘membuka form jenis buku Form_Jenis_Buku.Show 1 End Sub Masih dari halaman Form_Menu_Utama, pilih menu Data – Buku. Kemudian ketikkan kode program di bawah ini.

9.

Private Sub SbMnBuku_Click() ‘membuka form buku Form_Buku.Show 1 End Sub Masih dari halaman Form_Menu_Utama, pilih menu Transaksi – Peminjaman Buku. Kemudian ketikkan kode program di bawah ini.

Private Sub SbMnPeminjamanBk_Click() ‘membuka form peminjaman Form_Peminjaman.Show 1 End Sub 10. Masih dari halaman Form_Menu_Utama, pilih menu Transaksi – Pengembalian Buku. Kemudian ketikkan kode program di bawah ini. Private Sub SbMnPengembalianBk_Click() ‘membuka form pengembalian Form_Pengembalian.Show 1 End Sub 11. Kemudian tekan tombol Ctrl+S pada keyboard

untuk

menyimpan kembali Form_Menu_Utama.

2.2 Pembuatan Program Data Petugas Setelah Form_Menu_Utama selesai dibuat, selanjutnya kita buat form Petugas. Form ini digunakan untuk mendata petugas yang nantinya data pertugas tersebut akan dijadikan akses untuk bisa masuk ke dalam Aplikasi Perpustakaan Sekolah.

2.2.1 Mendesain Form Petugas Pada tahapan ini kita akan mendesain form Petugas, di mana langkah-langkahnya bisa dilihat di bawah ini. 1.

Tambah form baru ke dalam project dengan cara klik menu Project – Add Form, maka akan muncul tampilan di bawah ini.


Gambar 2.12 Tampilan Penambahan Form 2.

Klik tombol Open untuk menambah form baru.

3.

Setelah form berhasil dibuat langkah selanjutnya tambahkan komponen Label ( CommandButton

), komponen TextBox ( (

komponen DataGrid (

),

komponen

Adodc

), komponen (

),

dan

). Lihat tampilan di bawah ini.

Gambar 2.13 Tampilan Desain Form 4.

Kemudian atur properti pada setiap komponennya dengan ketentuan di bawah ini :

Komponen

Properti Name

Form 1

Caption

Nilai Form_Petugas ∷ Aplikasi Perpustakaan Sekolah


Label1 Label2 Label3 Label4

Label5

Text1

Text2

Text3

Text4

Command1 Command2 Command3 Command4 Command5 Command6

Adodc1

BorderStyle ClipControls ControlBox Caption FontStyle FontSize Caption Caption Caption Name Caption FontStyle ForeColor Visible Name Appereance Text Name Appereance PasswordChar Text Name Appereance Text Name Alignment Appereance BackColor PasswordChar Visible Name Caption TabIndex Name Caption Name Caption Name Caption Name Caption Name Caption Visible Name Caption Visible

3-Fixed Dialog False False INPUT AKSES PETUGAS Bold 14 User Id Password Nama Petugas Lbl_Duplikat [Duplikat Data] Bold &H000000FF& False txtUserId 0-Flat txtPassword 0-Flat * txtNama 0-Flat txtKonfirmasi 2-Center 0-Flat &H0000FF00& * False cmdTambah &Tambah 1 cmdSimpan &Simpan cmdUbah &Ubah cmdHapus &Hapus cmdKeluar &Keluar cmdKonfirmasi &Konfirmasi False Konek_Petugas Koneksi Petugas False


DataGrid1

5.

Name Grid_Petugas DataSource Konek_Petugas Tabel 2.3 Konfigurasi Form Petugas

Sehingga tampilan form seperti di bawah ini.

Gambar 2.14 Tampilan Desain Form Setelah Disesuaikan

2.2.2 Membuat Kode pada Form Petugas Setelah Form_Petugas selesai dibuat, langkah selanjutnya adalah pembuatan kode program pada Form_Petugas. Ikutilah langkah-langkah di bawah ini : 1.

Masuk pada area pengetikkan kode program dari menu View – Code. Lihat tampilan di bawah ini.

Gambar 2.15 Tampilan Area Pengetikan Kode Program 2.

Buatlah prosedur untuk menormalkan kondisi Form_Petugas dengan nama Normal. Kemudian ketikkan kode program di bawah ini. Sub Normal() ‘memanggil prosedur form tidak aktif dan kosong Call Kondisi(False) Call Kosong


‘membuat kondisi pada tombol cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdUbah.Enabled = False cmdHapus.Enabled = False cmdKeluar.Caption = "&Keluar"

3.

‘menyembunyikan komponen cmdKonfirmasi.Visible = False txtKonfirmasi.Visible = False End Sub Buat juga prosedur untuk mengosongkan kondisi inputan pada Form_Petugas dengan nama Kosong. Lalu ketikkan kode program di bawah ini.

4.

Sub Kosong() ‘memberikan inputan kosong txtUserId.Text = "" txtPassword.Text = "" txtNama.Text = "" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan

inputan

pada

Form_Petugas

dengan

nama

Kondisi. Ketikan kode di bawah ini.

5.

Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtUserId.Enabled = Kform txtPassword.Enabled = Kform txtNama.Enabled = Kform End Sub Pada Form_Petugas dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Petugas.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel petugas Konek_Petugas.RecordSource = _ "Select * From Petugas" Konek_Petugas.Refresh Grid_Petugas.Columns(1).Visible = False ‘memposisikan form pada tengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2


‘memanggil prosedur form normal Call Normal cmdSimpan.Enabled = False cmdHapus.Enabled = False ‘memberikan informasi ketika database masih kosong With Konek_Petugas.Recordset If .BOF Then MsgBox "Data Petugas Masih Kosong!!!", _ vbInformation + vbOKOnly, "" _ & "Informasi" Grid_Petugas.Enabled = False Else Grid_Petugas.Enabled = True End If End With

6.

‘mengatur grid petugas Grid_Petugas.HeadLines = 2 Grid_Petugas.Columns(0).Caption = "USER ID" Grid_Petugas.Columns(2).Caption = "NAMA PETUGAS" End Sub Dari halaman Form_Petugas, dobel klik pada tombol Tambah. Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘memanggil prosedur kondisi aktif dan kosong Call Kondisi(True) Call Kosong

7.

‘memberikan kondisi pada tombol cmdTambah.Enabled = False cmdHapus.Enabled = False cmdSimpan.Enabled = True cmdKeluar.Enabled = True cmdUbah.Enabled = False cmdKeluar.Caption = "&Batal" txtUserId.SetFocus End Sub Kembali ke halaman Form_Petugas, dobel klik pada tombol Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtUserId.Text = "" Then MsgBox "UserID belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtUserId.SetFocus ElseIf txtUserId.MaxLength > 5 Then MsgBox "UserID melebihi!!!", _ vbInformation + vbOKOnly, "Informasi"


txtUserId.SetFocus ElseIf txtUserId.Text = "" Then MsgBox "UserID belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtUserId.SetFocus ElseIf txtPassword.Text = "" Then MsgBox "Password belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtPassword.SetFocus ElseIf txtNama.Text = "" Then MsgBox "Nama petugas belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtNama.SetFocus Else ‘kode program untuk menyimpan data With Konek_Petugas.Recordset .AddNew !UserId = txtUserId.Text !Password = txtPassword.Text !Nama_Petugas = txtNama.Text .Update End With ‘memanggil prosedur kosong dan kondisi aktif Call Kosong Call Kondisi(False)

8.

‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdHapus.Enabled = False cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdSimpan.Enabled = False cmdTambah.Enabled = True cmdTambah.SetFocus Grid_Petugas.Enabled = True End If End Sub Setelah itu kembali lagi ke halaman Form_Petugas, dobel klik pada tombol Ubah. Kemudian ketikkan kode program untuk merubah data di bawah ini. Private Sub cmdUbah_Click() ‘kode program untuk merubah data With Konek_Petugas.Recordset .Update !UserId = txtUserId.Text !Password = txtPassword.Text !Nama_Petugas = txtNama.Text End With


9.

‘memanggil prosedur kondisi tidak aktif Call Kondisi(False) ‘memberikan kondisi pada tombol cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdHapus.Enabled = False cmdTambah.Enabled = True End Sub Lalu dobel klik pada tombol Hapus. Kemudian ketikkan kode program untuk menghapus data di bawah ini. Private Sub cmdHapus_Click() ‘memunculkan kotak dialog penghapusan Hapus = MsgBox("Anda akan menghapus data ini!!", _ vbInformation + vbYesNo, "Hapus Data") ‘memberikan kondisi jika Yes maka akan terhapus ‘jika No maka akan membatalkan proses penghapusan If Hapus = vbYes Then Konek_Petugas.Recordset.Delete Konek_Petugas.Recordset.MoveFirst Else MsgBox "Batal menghapus!!", , "Batal" End If ‘memanggil prosedur form normal Call Normal

‘menyembunyikan komponen txtKonfirmasi.Visible = False cmdKonfirmasi.Visible = False End Sub 10. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdKeluar_Click() ‘kondisi jika Keluar maka akan keluar ‘jika Batal maka akan memanggil prosedur form Normal If cmdKeluar.Caption = "&Keluar" Then Unload Me Else Call Normal End If End Sub 11. Dobel klik juga pada tombol Konfirmasi. Lalu ketikkan kode program untuk memberikan konfirmasi sebelum data tersebut akan diubah ataupun dihapus seperti di bawah ini. Private Sub cmdKonfirmasi_Click() ‘memberikan kondisi jika password sama maka data ‘petugas akan bisa diubah dan dihapus


‘sebaliknya jika tidak maka akan muncul informasi If txtPassword.Text = txtKonfirmasi.Text Then txtUserId.Enabled = False txtPassword.Enabled = True txtNama.Enabled = True txtKonfirmasi.Visible = False cmdKonfirmasi.Visible = False cmdUbah.Enabled = True cmdHapus.Enabled = True cmdHapus.Enabled = True txtPassword.SetFocus Else MsgBox "Error!!, Password tidak sesuai.", _ vbInformation + vbOKOnly, "Informasi" txtKonfirmasi.SetFocus txtKonfirmasi.Text = "" End If End Sub 12. Pada Grid_Petugas tambahkan kode program untuk menampilkan

data

ke

inputan

pada

form

dengan

cara

mendobel klik pada grid. Dengan memindahkan eventnya yang tadinya Click menjadi DblClick. Private Sub Grid_Petugas_DblClick() ‘menghindari error On Error Resume Next ‘memunculkan data pada grid ke inputan txtUserId.Text = Grid_Petugas.Columns(0) txtPassword.Text = Grid_Petugas.Columns(1) txtNama.Text = Grid_Petugas.Columns(2) ‘memanggil prosedur kondisi tidak aktif Call Kondisi(False) txtKonfirmasi.Visible = True txtKonfirmasi.SetFocus txtKonfirmasi.Text = "" ‘memberikan kondisi pada tombol cmdKonfirmasi.Visible = True cmdSimpan.Enabled = False cmdKeluar.Caption = "&Batal" cmdTambah.Enabled = False lbl_Duplikat.Visible = False End Sub 13. Kemudian dobel klik pada komponen txtUserId. Lalu ketikkan kode program untuk mencari data agar tidak memasukan data yang sama.


Private Sub txtUserId_Change() ‘mencari data userid yang sama Konek_Petugas.Recordset.Find "UserId='" _ & txtUserId.Text & "'", , adSearchForward, 1 With Konek_Petugas.Recordset If Not .EOF Then On Error Resume Next cmdSimpan.Enabled = False lbl_Duplikat.Visible = True On Error GoTo 0 Exit Sub End If End With cmdSimpan.Enabled = True lbl_Duplikat.Visible = False End Sub 14. Masih pada area pengetikan kode di atas, ganti event Change menjadi KeyPress. Lalu ketikkan kode program di bawah ini agar bisa menggunakan tombol Enter pada keyboard. Private Sub txtUserId_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus KeyAscii = 0 End If End Sub 15. Dobel klik pada komponen txtPassword, ganti event Change menjadi KeyPress. Sama seperti halnya dengan maksud kode sebelumnya. Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtNama.SetFocus KeyAscii = 0 End If End Sub 16. Lalu dobel klik pada komponen txtNama, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtNama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If cmdSimpan.Enabled = True Then cmdSimpan.SetFocus KeyAscii = 0 ElseIf cmdUbah.Enabled = True Then cmdUbah.SetFocus KeyAscii = 0 Else cmdKeluar.SetFocus KeyAscii = 0 End If


End If End Sub 17. Setelah itu dobel klik juga pada txtKonfirmasi, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtKonfirmasi_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then cmdKonfirmasi.SetFocus KeyAscii = 0 End If End Sub 18. Terakhir simpan form petugas dengan nama Form_Petugas dan letakkan pada sub-folder Form.

2.2.3 Mengaktifkan Halaman dan Mencoba Program Setelah Form_Petugas sudah selesai dibuat, coba jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini: 1.

Aktifkan terlebih dahulu halaman form dari menu Project – Properties. Maka akan muncul tampilan di bawah ini.

Gambar 2.16 Tampilan Jendela Project Properties 2.

Pada Startup Object pilih Form_Petugas, klik tombol OK.

3.

Coba jalankan form dari menu Run – Start atau bisa juga dengan menekan F5 pada keyboard. Maka akan muncul tampilan seperti di bawah ini.


Gambar 2.17 Tampilan Form Petugas Setelah Dijalankan

2.3 Pembuatan Program Data Anggota Selanjutnya

kita

akan

membuat

form

Anggota.

Form

ini

digunakan untuk mendata anggota yang nantinya data tersebut akan dijadikan akses untuk bisa melakukan peminjaman dan pengembalian buku.

2.3.1 Mendesain Form Anggota Pada tahapan ini kita akan mendesain form Anggota, di mana langkah-langkahnya bisa dilihat di bawah ini. 1.


Gambar 2.18 Tampilan Penambahan Form


2.


3.

Setelah form berhasil dibuat langkah selanjutnya tambahkan komponen

Label

(

),

komponen MaskEdBox (

komponen

(

),

), komponen ComboBox (

),

komponen CommandButton ( dan komponen DataGrid (

TextBox

), komponen Adodc (

),




Komponen

Properti Name Caption

Form 1

Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8

BorderStyle ClipControls ControlBox Caption FontStyle FontSize Caption Caption Caption Caption Caption Caption Caption

Nilai Form_Anggota ∷ Aplikasi Perpustakaan Sekolah 3-Fixed Dialog False False INPUT ANGGOTA Bold 14 Tanggal Masuk Id Anggota Nama Anggota Alamat No Phone Status Masa Berlaku


txtTglMasuk 0-mskFlat ##/##/#### txtId 0-Flat Text1 True txtNama Text2 0-Flat txtAlamat 0-Flat Text3 True 2-Vertical (text) txtHP MaskEdBox2 0-mskFlat &&&-&&&-&&&&&& cmbStatus Siswa Siswi Combo1 List Guru Stap Lainnya Text Name txtMsBerlaku MaskEdBox3 Appereance 0-mskFlat Mask ##/##/#### Name cmdTambah Command1 Caption &Tambah TabIndex 1 Name cmdSimpan Command2 Caption &Simpan Name cmdUbah Command3 Caption &Ubah Name cmdHapus Command4 Caption &Hapus Name cmdCetak Command5 Caption &Cetak Kartu Name cmdKeluar Command6 Caption &Keluar Name Konek_Anggota Adodc1 Caption Koneksi Anggota Visible False Name Grid_Anggota DataGrid1 DataSource Konek_Anggota Tabel 2.4 Konfigurasi Form Anggota MaskEdBox1

Name Appereance Mask Name Appereance Locked Text Name Appereance Text Name Appereance MultiLine ScrollBars Text Name Appereance Mask Name


5.

Sehingga tampilan formnya seperti di bawah ini.


2.3.2 Membuat Kode pada Form Anggota Setelah Form_Anggota selesai dibuat, langkah selanjutnya adalah pembuatan kode program pada Form_Anggota. Ikutilah langkah-langkah di bawah ini : 1.



Buatlah variabel untuk mendeklarasikan Id Anggota.

3.

Dim IdAnggotaBaru As String Dim Id As String Kemudian buat prosedur untuk membuat Id Anggota secara otomatis dengan nama BuatId. Ketikkan kode program di bawah ini. Sub BuatId() With Konek_Anggota.Recordset


4.

‘jika record masih kosong If .BOF Then IdAnggotaBaru = "APS.0001" Exit Sub Else ‘jika record tidak kosong .MoveLast Id = !Id Id = Val(Right(Id, 4)) Id = Id + 1 End If IdAnggotaBaru = "APS." & Format(Id, "0000") End With End Sub Buatlah prosedur untuk menormalkan kondisi Form_Anggota dengan nama Normal. Kemudian ketikkan kode program di bawah ini. Sub Normal() ‘memanggil prosedur kondisi tidak aktif dan kosong Call Kondisi(False) Call Kosong

5.

‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdUbah.Enabled = False cmdHapus.Enabled = False cmdCetak.Enabled = False cmdKeluar.Caption = "&Keluar" End Sub Buat juga prosedur untuk mengosongkan kondisi inputan pada Form_Anggota dengan nama Kosong. Lalu ketikkan kode program di bawah ini.

6.

Sub Kosong() ‘mengosongkan inputan txtTglMasuk.Text = "__/__/____" txtId.Text = "" txtNama.Text = "" txtAlamat.Text = "" txtHP.Text = "___-___-______" cmbStatus.Text = "" txtMsBerlaku.Text = "__/__/____" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan

inputan

pada

Form_Anggota

Kondisi. Ketikan kode program di bawah ini.


dengan

nama

7.

Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtTglMasuk.Enabled = Kform txtId.Enabled = Kform txtNama.Enabled = Kform txtAlamat.Enabled = Kform txtHP.Enabled = Kform cmbStatus.Enabled = Kform txtMsBerlaku.Enabled = Kform End Sub Pada Form_Anggota dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Anggota.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel anggota dengan mengurutkan data ‘berdasarkan id Konek_Anggota.RecordSource = _ "Select * From Anggota Order by Id" Konek_Anggota.Refresh ‘memposisikan form pada tengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘memanggil prosedur form normal Call Normal cmdSimpan.Enabled = False cmdHapus.Enabled = False ‘memberikan validasi ketika data masih kosong With Konek_Anggota.Recordset If .BOF Then MsgBox "Data Anggota Masih Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Anggota.Enabled = False Else Grid_Anggota.Enabled = True End If End With ‘mengatur grid anggota Grid_Anggota.HeadLines = 2 Grid_Anggota.Columns(0).Caption = "TGL MASUK" Grid_Anggota.Columns(1).Caption = "ID ANGGOTA" Grid_Anggota.Columns(2).Caption = "NAMA ANGGOTA"


8.

Grid_Anggota.Columns(3).Caption = Grid_Anggota.Columns(4).Caption = Grid_Anggota.Columns(5).Caption = Grid_Anggota.Columns(6).Caption = Grid_Anggota.Columns(7).Caption = End Sub Dari halaman Form_Anggota, dobel klik

"ALAMAT" "NO PHONE" "STATUS" "MS BERLAKU" "USERID PETUGAS" pada tombol Tambah.

Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘variabel tanggal bertipe string Dim Tgl As String ‘memanggil prosedur kosong,kondisi aktif, dan ‘membuat id baru Call Kosong Call Kondisi(True) Call BuatId txtId.Text = IdAnggotaBaru ‘memberikan kondisi pada tombol cmdCetak.Enabled = False cmdTambah.Enabled = False cmdHapus.Enabled = False cmdSimpan.Enabled = True cmdKeluar.Enabled = True cmdUbah.Enabled = False cmdKeluar.Caption = "&Batal"

9.

‘membuat penanggalan otomatis 1 tahun berlaku kartu txtTglMasuk.Text = Format(Now, "dd/mm/yyyy") Tgl = Val(Right(txtTglMasuk, 4)) txtMsBerlaku.Text = Format(Now,"dd/mm/")&Val(Tgl)+1 txtNama.SetFocus End Sub Kembali ke halaman Form_Anggota, dobel klik pada tombol Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtId.Text = "" Then MsgBox "ID belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtId.SetFocus ElseIf txtNama.Text = "" Then MsgBox "Nama anggota belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtNama.SetFocus ElseIf txtAlamat.Text = "" Then MsgBox "Alamat anggota belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi"


txtAlamat.SetFocus ElseIf txtHP.Text = "___-___-______" Then MsgBox "No Phone anggota belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtHP.SetFocus ElseIf cmbStatus.Text = "" Then MsgBox "Status anggota belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" cmbStatus.SetFocus Else ‘kode program untuk menyimpan data With Konek_Anggota.Recordset .AddNew !tgl_Masuk = txtTglMasuk.Text !Id = txtId.Text !Nama_Anggota = txtNama.Text !Alamat = txtAlamat.Text !No_Phone = txtHP.Text !Status = cmbStatus.Text !Masa_Berlaku = txtMsBerlaku.Text !UserId = _ Form_Menu_Utama.StatusBar1.Panels(1) .Update End With ‘memanggil prosedur kondisi tidak aktif Call Kondisi(False) ‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdHapus.Enabled = False cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdCetak.Enabled = True cmdCetak.SetFocus Grid_Anggota.Enabled = True End If End Sub 10. Setelah itu kembali lagi ke halaman Form_Anggota, dobel klik pada tombol Ubah. Kemudian ketikkan kode program untuk merubah data di bawah ini. Private Sub cmdUbah_Click() ‘kode program untuk mengubah data With Konek_Anggota.Recordset !tgl_Masuk = txtTglMasuk.Text !Id = txtId.Text !Nama_Anggota = txtNama.Text !Alamat = txtAlamat.Text !No_Phone = txtHP.Text


!Status = cmbStatus.Text !Masa_Berlaku = txtMsBerlaku.Text !UserId = _ Form_Menu_Utama.StatusBar1.Panels(1) End With ‘memanggil prosedur kondisi aktif Call Kondisi(False) ‘memberikan kondisi pada tombol cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdHapus.Enabled = False cmdTambah.Enabled = True cmdCetak.Enabled = True cmdCetak.SetFocus End Sub 11. Lalu dobel klik pada tombol Hapus. Kemudian ketikkan kode program untuk menghapus data di bawah ini. Private Sub cmdHapus_Click() ‘memunculkan kotak dialog penghapusan Hapus = MsgBox("Anda akan menghapus data ini!!", _ vbInformation + vbYesNo, "Hapus Data") ‘jika Yes maka data akan terhapus If Hapus = vbYes Then Konek_Anggota.Recordset.Delete Konek_Anggota.Recordset.MoveFirst Else ‘jika No maka akan membatalkan proses penghapusan MsgBox "Batal menghapus!!", , "Batal" End If Call Normal End Sub 12. Pada tombol Cetak Kartu ketikkan kode program untuk menampilkan kartu anggota di bawah ini. Private Sub cmdCetak_Click() ‘kode program untuk menampilkan kartu anggota ‘berdasarkan id anggota Konek_Anggota.Recordset.Requery With Form_Menu_Utama.CRKartuAnggota .ReportFileName = App.Path & "\Kartu_Anggota.rpt" .SelectionFormula = "{Anggota.Id}='" & txtId.Text & "'"

.RetrieveDataFiles .WindowShowPrintSetupBtn = True .WindowShowRefreshBtn = True .WindowTitle = "KARTU ANGGOTA" .WindowState = crptMaximized .Action = 1 End With End Sub


13. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdKeluar_Click() ‘jika keluar If cmdKeluar.Caption = "&Keluar" Then Unload Me Else ‘jika batal maka akan memanggil prosedur normal Call Normal End If End Sub 14. Pada Grid_Anggota tambahkan kode program untuk menampilkan

data

ke

inputan

pada

form

dengan

cara

mendobel klik pada grid. Dengan memindahkan eventnya yang tadinya Click menjadi DblClick. Private Sub Grid_Anggota_DblClick() ‘menghindari error On Error Resume Next ‘menampilkan data pada grid ke inputan txtTglMasuk.Text = Grid_Anggota.Columns(0) txtId.Text = Grid_Anggota.Columns(1) txtNama.Text = Grid_Anggota.Columns(2) txtAlamat.Text = Grid_Anggota.Columns(3) txtHP.Text = Grid_Anggota.Columns(4) cmbStatus.Text = Grid_Anggota.Columns(5) txtMsBerlaku.Text = Grid_Anggota.Columns(6) ‘memberikan kondisi pada tombol cmdKeluar.Caption = "&Batal" cmdUbah.Enabled = True cmdHapus.Enabled = True cmdTambah.Enabled = False cmdSimpan.Enabled = False ‘mengaktif dan non-aktifkan inputan txtTglMasuk.Enabled = True txtId.Enabled = False txtNama.Enabled = True txtAlamat.Enabled = True txtHP.Enabled = True cmbStatus.Enabled = True txtMsBerlaku.Enabled = True txtNama.SetFocus End Sub 15. Dobel klik pada komponen txtNama, ganti event Change menjadi KeyPress. Lalu ketikkan kode program agar bisa menggunakan tombol Enter pada keyboard.


Private Sub txtNama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtAlamat.SetFocus KeyAscii = 0 End If End Sub 16. Dobel klik pada komponen txtAlamat, ganti event Change menjadi KeyPress. Sama seperti halnya dengan maksud kode sebelumnya. Private Sub txtAlamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtHP.SetFocus KeyAscii = 0 End If End Sub 17. Lalu dobel klik pada komponen txtHP, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtHP_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmbStatus.SetFocus KeyAscii = 0 End If End Sub 18. Kemudian dobel klik juga pada komponen cmbStatus, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub cmbStatus_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If cmdSimpan.Enabled = True Then cmdSimpan.SetFocus KeyAscii = 0 Else cmdUbah.SetFocus KeyAscii = 0 End If End If End Sub 19. Terakhir simpan Form_Anggota dengan nama Form_Anggota dan letakkan pada sub-folder Form.

2.3.3 Mengaktifkan Halaman dan Mencoba Program Setelah form Anggota sudah selesai dibuat, coba jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini: 1.




Pada Startup Object pilih Form_Anggota, klik tombol OK.

3.


Gambar 2.24 Tampilan Form Anggota Setelah Dijalankan


2.4 Pembuatan Program Data Jenis Buku Selanjutnya kita akan membuat form Jenis Buku. Form ini digunakan untuk mendata jenis buku yang ada yang nantinya akan ditempatkan dalam rak tertentu untuk mempermudah pencarian buku.

2.4.1 Mendesain Form Jenis Buku Pada tahapan ini kita akan mendesain form Jenis Buku, di mana langkah-langkahnya bisa dilihat di bawah ini. 1.




3.


Label

(

),


komponen

TextBox

(

), komponen Adodc (

), ),





Komponen


Form 1

Label1 Label2 Label3 Label4

Label5

Text1

Text2

Text3

BorderStyle ClipControls ControlBox Caption FontStyle FontSize Caption Caption Caption Name Caption FontStyle ForeColor Visible Name Appereance Text Name Appereance Text Name Appereance Mask

Nilai Form_Jenis_Buku ∷ Aplikasi Perpustakaan Sekolah 3-Fixed Dialog False False INPUT JENIS BUKU Bold 14 Kode Jenis Nama Jenis No Rak Lbl_Duplikat [Duplikat Data] Bold &H000000FF& False txtKode 0-Flat txtJenis 0-Flat txtRak 0-Flat


Command1 Command2 Command3 Command4 Command5 Adodc1 DataGrid1

5.

Name Caption TabIndex Name Caption Name Caption Name Caption Name Caption Name Caption Visible Name DataSource Tabel 2.5 Konfigurasi

cmdTambah &Tambah 1 cmdSimpan &Simpan cmdUbah &Ubah cmdHapus &Hapus cmdKeluar &Keluar Konek_Jenis_Buku Koneksi Jenis Buku False Grid_Jenis_Buku Konek_Jenis_Buku Form Jenis Buku



2.4.2 Membuat Kode pada Form Jenis Buku Setelah semuanya selesai dibuat, langkah selanjutnya adalah pembuatan kode program pada Form_Jenis_Buku. Ikutilah langkahlangkah di bawah ini : 1.




Buatlah

prosedur

untuk

menormalkan

kondisi

Form_Jenis_Buku dengan nama Normal. Kemudian ketikkan kode program di bawah ini. Sub Normal() ‘memanggil prosedur kondisi tidak aktif dan kosong Call Kondisi(False) Call Kosong

3.

‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdUbah.Enabled = False cmdHapus.Enabled = False cmdKeluar.Caption = "&Keluar" End Sub Buat juga prosedur untuk mengosongkan kondisi inputan pada Form_Jenis_Buku dengan nama Kosong. Lalu ketikkan kode program di bawah ini.

4.

Sub Kosong() ‘mengosongkan inputan pada form txtKode.Text = "" txtJenis.Text = "" txtRak.Text = "" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan inputan pada Form_Jenis_Buku dengan nama Kondisi. Ketikan kode program di bawah ini. Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtKode.Enabled = Kform txtJenis.Enabled = Kform txtRak.Enabled = Kform End Sub


5.

Pada Form_Jenis_Buku dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Jenis_Buku.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel jenis buku Konek_Jenis_Buku.RecordSource = _ "Select * From Jenis_Buku" Konek_Jenis_Buku.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘memanggil form normal Call Normal ‘memberikan informasi ketika data masih kosong Konek_Jenis_Buku.Refresh With Konek_Jenis_Buku.Recordset If .BOF Then MsgBox "Data Jenis Buku Masih Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Jenis_Buku.Enabled = False Else Grid_Jenis_Buku.Enabled = True End If End With

6.

‘mengatur grid jenis buku Grid_Jenis_Buku.HeadLines = 2 Grid_Jenis_Buku.Columns(0).Caption = Grid_Jenis_Buku.Columns(1).Caption = Grid_Jenis_Buku.Columns(2).Caption = End Sub Dari halaman Form_Jenis_Buku, dobel

"KODE JENIS" "NAMA JENIS" "NO RAK" klik

pada

tombol

Tambah. Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘memanggil prosedur kondisi aktif dan kosong Call Kondisi(True) Call Kosong ‘memberikan kondisi pada tombol cmdTambah.Enabled = False cmdHapus.Enabled = False cmdSimpan.Enabled = True


7.

cmdKeluar.Enabled cmdUbah.Enabled = cmdKeluar.Caption txtKode.SetFocus End Sub Kembali ke halaman

= True False = "&Batal"

Form_Jenis_Buku, dobel klik pada tombol

Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtKode.Text = "" Then MsgBox "Kode Jenis belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtKode.SetFocus ElseIf txtJenis.Text = "" Then MsgBox "Jenis Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtJenis.SetFocus ElseIf txtRak.Text = "" Then MsgBox "No Rak Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtRak.SetFocus Else ‘kode program untuk menyimpan data With Konek_Jenis_Buku.Recordset .AddNew !Kode_Jenis = txtKode.Text !Jenis_Buku = txtJenis.Text !No_rak = txtRak.Text .Update End With ‘memanggil prosedur kosong dan tidak aktif Call Kosong Call Kondisi(False)

8.

‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdHapus.Enabled = False cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdTambah.SetFocus Grid_Jenis_Buku.Enabled = True End If End Sub Setelah itu kembali lagi ke halaman Form_Jenis_Buku, dobel klik pada tombol Ubah. Kemudian ketikkan kode program untuk merubah data di bawah ini.


Private Sub cmdUbah_Click() ‘kode program untuk merubah data With Konek_Jenis_Buku.Recordset .Update !Kode_Jenis = txtKode.Text !Jenis_Buku = txtJenis.Text !No_rak = txtRak.Text End With ‘memanggil prosedur kondisi tidak aktif Call Kondisi(False)

9.

‘memberikan kondisi pada tombol cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdHapus.Enabled = False cmdTambah.Enabled = True End Sub Lalu dobel klik pada tombol Hapus. Kemudian ketikkan kode program untuk menghapus data di bawah ini. Private Sub cmdHapus_Click() ‘memunculkan kotak dialog untuk penghapusan Hapus = MsgBox("Anda akan menghapus data ini!!", _ vbInformation + vbYesNo, "Hapus Data")

‘jika Yes maka data akan terhapus If Hapus = vbYes Then Konek_Jenis_Buku.Recordset.Delete Konek_Jenis_Buku.Recordset.MoveFirst Else ‘jika No maka akan membatalkan proses penghapusan MsgBox "Batal menghapus!!", , "Batal" End If Call Normal End Sub 10. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdKeluar_Click() ‘jika keluar If cmdKeluar.Caption = "&Keluar" Then Unload Me Else ‘jika batal akan memanggil prosedur normal Call Normal End If End Sub 11. Pada Grid_Jenis_Buku tambahkan kode program untuk menampilkan data ke inputan pada form di bawah ini dengan


cara mendobel klik pada grid. Dengan memindahkan eventnya yang tadinya Click menjadi DblClick. Private Sub Grid_Jenis_Buku_DblClick() ‘mencegah terjadinya error On Error Resume Next ‘menampilkan data pada grid ke inputan txtKode.Text = Grid_Jenis_Buku.Columns(0) txtJenis.Text = Grid_Jenis_Buku.Columns(1) txtRak.Text = Grid_Jenis_Buku.Columns(2) ‘memberikan kondisi pada tombol dan inputan cmdTambah.Enabled = False cmdSimpan.Enabled = False cmdUbah.Enabled = True cmdHapus.Enabled = True cmdKeluar.Caption = "&Batal" txtJenis.Enabled = True txtRak.Enabled = True lbl_Duplikat.Visible = False txtJenis.SetFocus End Sub 12. Kemudian dobel klik pada komponen txtKode. Lalu ketikkan kode program di bawah ini untuk mencari data agar tidak memasukan data yang sama. Private Sub txtKode_Change() ‘mencegah terjadinya error On Error Resume Next ‘mencari data yang sama Konek_Jenis_Buku.Recordset.Find "Kode_Jenis='" _ & txtKode.Text & "'", , adSearchForward, 1 With Konek_Jenis_Buku.Recordset If Not .EOF Then On Error Resume Next cmdSimpan.Enabled = False lbl_Duplikat.Visible = True On Error GoTo 0 Exit Sub End If End With cmdSimpan.Enabled = True lbl_Duplikat.Visible = False End Sub 13. Masih pada area pengetikan kode di atas, ganti event Change menjadi KeyPress. Lalu ketikkan kode program agar bisa menggunakan tombol Enter pada keyboard.


Private Sub txtKode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtJenis.SetFocus KeyAscii = 0 End If End Sub 14. Dobel klik pada komponen txtJenis, ganti event Change menjadi KeyPress. Sama seperti halnya dengan maksud kode sebelumnya. Private Sub txtJenis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtRak.SetFocus KeyAscii = 0 End If End Sub 15. Lalu dobel klik pada komponen txtRak, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtRak_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If cmdSimpan.Enabled = True Then cmdSimpan.SetFocus KeyAscii = 0 ElseIf cmdUbah.Enabled = True Then cmdUbah.SetFocus KeyAscii = 0 Else cmdKeluar.SetFocus KeyAscii = 0 End If End If End Sub 16. Terakhir simpan Form_Jenis_Buku dengan nama Form_Jenis_Buku dan letakkan pada sub-folder Form.

2.4.3 Mengaktifkan Halaman dan Mencoba Program Setelah

Form_Jenis_Buku

sudah

selesai

dibuat,

coba

jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini : 1.




Pada Startup Object pilih Form_Jenis_Buku, klik tombol OK.

3.


Gambar 2.30 Tampilan Form Jenis Buku Setelah Dijalankan


2.5 Pembuatan Program Data Buku Kemudian kita akan membuat form Buku. Form ini digunakan untuk mendata buku yang ada di perpustakaan.

2.5.1 Mendesain Form Buku Pada tahapan ini kita akan mendesain form Buku, di mana langkah-langkahnya bisa dilihat di bawah ini. 1.




3.

Setelah form berhasil dibuat langkah selanjutnya tambahkan komponen Label ( DataCombo

(

), komponen TextBox ( ),

komponen Adodc (

komponen

),komponen

CommandButton

), dan komponen DataGrid (

Lihat tampilan di bawah ini.


(

), ).



Komponen


Form 1

Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Text1

Text2

BorderStyle ClipControls ControlBox Caption FontStyle FontSize Caption Caption Caption Caption Caption Caption Caption Name Appereance Text Name Appereance MultiLine ScrollBars Text

Nilai Form_Buku ∷ Aplikasi Perpustakaan Sekolah 3-Fixed Dialog False False INPUT BUKU Bold 14 Kode Buku Nama Buku Pengarang Jenis Buku No Rak Keterangan Status Buku txtKode 0-Flat txtNama 0-Flat True 2-Vertical


Text3

Text4

Text5

Text5

DataCombo1

Command1 Command2 Command3 Command4 Command5 Adodc1

Adodc2 DataGrid1

5.

Name txtPengarang Appereance 0-Flat Text Name txtRak Appereance 0-Flat Locked True Text Name txtKeterangan Appereance 0-Flat MultiLine True ScrollBars 2-Vertical Text (text) Name txtStatus Appereance 0-Flat Locked True Text Name DCJenis ListField Jenis_Buku RowSource Konek_Jenis_Buku Name cmdTambah Caption &Tambah TabIndex 1 Name cmdSimpan Caption &Simpan Name cmdUbah Caption &Ubah Name cmdHapus Caption &Hapus Name cmdKeluar Caption &Keluar Name Konek_Buku Caption Koneksi Buku Visible False Name Konek_Jenis_Buku Caption Koneksi Jenis Buku Visible False Name Grid_Buku DataSource Konek_Buku Tabel 2.6 Konfigurasi Form Buku




2.5.2 Membuat Kode pada Form Buku Setelah

tahapan

desain,

langkah

selanjutnya

adalah

pembuatan kode program pada Form_Buku. Ikutilah langkahlangkah di bawah ini : 1.



Pertama buatlah variabel untuk mendeklarasikan Kode Jenis.

3.

Dim Kd_Jenis As String Buatlah prosedur untuk menormalkan

kondisi Form_Buku

dengan nama Normal. Kemudian ketikkan kode program di bawah ini. Sub Normal() ‘memanggil prosedur kondisi tidak aktif dan kosong


Call Kondisi(False) Call Kosong

4.

‘memberikan kondisi pada inputan cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdUbah.Enabled = False cmdHapus.Enabled = False cmdKeluar.Caption = "&Keluar" End Sub Buat juga prosedur untuk mengosongkan kondisi inputan pada Form_Buku

dengan

nama

Kosong.

Lalu

ketikkan

kode

program di bawah ini.

5.

Sub Kosong() ‘mengosongkan inputan txtKode.Text = "" txtNama.Text = "" txtPengarang.Text = "" DCJenis.Text = "" txtRak.Text = "" txtKeterangan.Text = "" txtStatus.Text = "" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan inputan pada Form_Buku dengan nama Kondisi. Ketikan kode program di bawah ini.

6.

Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtKode.Enabled = Kform txtNama.Enabled = Kform txtPengarang.Enabled = Kform DCJenis.Enabled = Kform txtRak.Enabled = Kform txtKeterangan.Enabled = Kform txtStatus.Enabled = Kform End Sub Pada Form_Buku dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Jenis_Buku.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel jenis buku Konek_Jenis_Buku.RecordSource = _


"Select * From Jenis_Buku" Konek_Jenis_Buku.Refresh ‘membuka koneksi ke database Konek_Buku.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel buku Konek_Buku.RecordSource = _ "Select * From Buku" Konek_Buku.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘memanggil prosedur form normal Call Normal ‘memberikan informasi ketika data masih kosong Konek_Jenis_Buku.Refresh With Konek_Buku.Recordset If .BOF Then MsgBox "Data Buku Masih Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Buku.Enabled = False Else Grid_Buku.Enabled = True End If End With

7.

‘mengatur grid buku Grid_Buku.HeadLines = 2 Grid_Buku.Columns(0).Caption Grid_Buku.Columns(1).Caption Grid_Buku.Columns(2).Caption Grid_Buku.Columns(3).Caption Grid_Buku.Columns(4).Caption Grid_Buku.Columns(5).Caption End Sub Dari halaman Form_Buku, dobel

= = = = = =

"KODE BUKU" "NAMA BUKU" "PENGARANG" "KODE JENIS" "KETERANGAN" "STATUS"

klik pada tombol Tambah.

Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘memanggil prosedur kondisi aktif dan kosong Call Kondisi(True) Call Kosong ‘memberikan kondisi pada tombol cmdTambah.Enabled = False


8.

cmdHapus.Enabled = False cmdSimpan.Enabled = True cmdKeluar.Enabled = True cmdUbah.Enabled = False cmdKeluar.Caption = "&Batal" txtKode.SetFocus txtStatus.Text = "Tersedia" End Sub Kembali ke halaman Form_Buku, dobel klik pada tombol Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtKode.Text = "" Then MsgBox "Kode Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtKode.SetFocus ElseIf txtNama.Text = "" Then MsgBox "Nama Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtNama.SetFocus ElseIf txtPengarang.Text = "" Then MsgBox "Pengarang belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" txtPengarang.SetFocus ElseIf DCJenis.Text = "" Then MsgBox "Jenis Buku belum dipilih!!!", _ vbInformation + vbOKOnly, "Informasi" DCJenis.SetFocus Else ‘kode program untuk menyimpan data With Konek_Buku.Recordset .AddNew !Kode_Buku = txtKode.Text !Nama_Buku = txtNama.Text !Pengarang = txtPengarang.Text !Kode_Jenis = Kd_Jenis !keterangan = txtKeterangan.Text !Status = txtStatus.Text .Update .Sort = "Kode_Buku" End With ‘memanggil prosedur kosong dan kondisi tidak aktif Call Kosong Call Kondisi(False) ‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdHapus.Enabled = False


9.

cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdTambah.SetFocus Grid_Buku.Enabled = True End If End Sub Setelah itu kembali lagi ke halaman Form_Buku, dobel klik pada tombol Ubah. Kemudian ketikkan kode program untuk merubah data di bawah ini. Private Sub cmdUbah_Click() ‘kode program untuk merubah data With Konek_Buku.Recordset .Update !Kode_Buku = txtKode.Text !Nama_Buku = txtNama.Text !Pengarang = txtPengarang.Text !Kode_Jenis = Kd_Jenis !keterangan = txtKeterangan.Text !Status = txtStatus.Text End With ‘memanggil prosedur kondisi tidak aktif Call Kondisi(False)

‘memberikan kondisi pada tombol cmdUbah.Enabled = False cmdKeluar.Caption = "&Keluar" cmdHapus.Enabled = False cmdTambah.Enabled = True End Sub 10. Lalu dobel klik pada tombol Hapus. Kemudian ketikkan kode program untuk menghapus data di bawah ini. Private Sub cmdHapus_Click() ‘memunculkan kotak dialog untuk penghapusan Hapus = MsgBox("Anda akan menghapus data ini!!", _ vbInformation + vbYesNo, "Hapus Data") ‘jika Yes maka data akan terhapus If Hapus = vbYes Then Konek_Buku.Recordset.Delete Konek_Buku.Recordset.MoveFirst Else ‘jika No maka akan membatalkan proses penghapusan MsgBox "Batal menghapus!!", , "Batal" End If Call Normal End Sub


11. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdKeluar_Click() ‘jika keluar If cmdKeluar.Caption = "&Keluar" Then Unload Me Else ‘jika batal maka akan memanggil prosedur normal Call Normal End If End Sub 12. Pada Grid_Buku tambahkan kode program untuk menampilkan data ke inputan pada form di bawah ini dengan cara mendobel klik pada grid. Dengan memindahkan eventnya yang tadinya Click menjadi DblClick. Private Sub Grid_Buku_DblClick() ‘mengantisipasi adanya error On Error Resume Next ‘menampikan data pada grid ke inputan dengan adanya ‘pencarian data berdasarkan kode jenis txtKode.Text = Grid_Buku.Columns(0) txtNama.Text = Grid_Buku.Columns(1) txtPengarang.Text = Grid_Buku.Columns(2) Konek_Jenis_Buku.Recordset.Find "Kode_Jenis='" _ & Grid_Buku.Columns(3) & "'", , adSearchForward, 1 DCJenis.Text = _ Konek_Jenis_Buku.Recordset.Fields("Jenis_Buku") txtRak.Text = _ Konek_Jenis_Buku.Recordset.Fields("No_Rak") txtKeterangan.Text = Grid_Buku.Columns(4) txtStatus.Text = Grid_Buku.Columns(5) ‘memanggil prosedur kondisi aktif Call Kondisi(True) ‘memberikan kondisi pada tombol cmdKeluar.Caption = "&Batal" cmdUbah.Enabled = True txtKode.Enabled = False cmdTambah.Enabled = False lbl_Duplikat.Visible = False txtNama.SetFocus End Sub 13. Kemudian dobel klik pada komponen txtKode. Lalu ketikkan kode program untuk mencari data agar tidak memasukan data yang sama.


Private Sub txtKode_Change() ‘mengantisipasi terjadinya error On Error Resume Next ‘mencari data yang sama Konek_Buku.Recordset.Find "Kode_Buku='" _ & txtKode.Text & "'", , adSearchForward, 1 With Konek_Buku.Recordset If Not .EOF Then On Error Resume Next cmdSimpan.Enabled = False lbl_Duplikat.Visible = True On Error GoTo 0 Exit Sub End If End With cmdSimpan.Enabled = True lbl_Duplikat.Visible = False End Sub 14. Masih pada area pengetikan kode di atas, ganti event Change menjadi KeyPress. Lalu ketikkan kode program agar bisa menggunakan tombol Enter pada keyboard. Private Sub txtKode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtNama.SetFocus KeyAscii = 0 End If End Sub 15. Dobel klik pada komponen txtNama, ganti event Change menjadi KeyPress. Sama seperti halnya dengan maksud kode sebelumnya. Private Sub txtNama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPengarang.SetFocus KeyAscii = 0 End If End Sub 16. Lalu dobel klik pada komponen txtPengarang, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtPengarang_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then DCJenis.SetFocus KeyAscii = 0 End If End Sub


17. Kemudian dobel klik pada komponen DCJenis. Lalu ketikkan kode program di bawah ini untuk mencari data yang ada pada tabel Jenis Buku. Private Sub DCJenis_Change() ‘mengantisipasi terjadinya error On Error Resume Next ‘pencarian jenis buku Konek_Jenis_Buku.Recordset.Find "Jenis_Buku='" _ & DCJenis.Text & "'", , adSearchForward, 1 ‘menampilkan hasil pencarian ke inputan txtRak.Text = _ Konek_Jenis_Buku.Recordset.Fields("No_Rak") Kd_Jenis = _ Konek_Jenis_Buku.Recordset.Fields("Kode_Jenis") txtKeterangan.SetFocus On Error GoTo 0 End Sub 18. Masih pada area pengetikkan kode ini, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub DCJenis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtKeterangan.SetFocus KeyAscii = 0 End If End Sub 19. Setelah itu dobel klik pada komponen txtKeterangan, ganti event Change menjadi KeyPress. Ketikkan kode program di bawah ini. Private Sub txtKeterangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then If cmdSimpan.Enabled = True Then cmdSimpan.SetFocus KeyAscii = 0 ElseIf cmdUbah.Enabled = True Then cmdUbah.SetFocus KeyAscii = 0 Else cmdKeluar.SetFocus KeyAscii = 0 End If End If End Sub 20. Terakhir simpan Form_Buku dengan nama Form_Buku dan letakkan pada sub-folder Form.


2.5.3 Mengaktifkan Halaman dan Mencoba Program Setelah Form_Buku sudah selesai dibuat, coba jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini: 1.



Pada Startup Object pilih Form_Buku, klik tombol OK.

3.


Gambar 2.36 Tampilan Form Buku Setelah Dijalankan


2.6

Pembuatan

Program

Transaksi

Peminjaman Buku Selanjutnya kita akan membuat form Transaksi Peminjaman Buku di mana form ini digunakan untuk melakukan pendataan transaksi peminjaman buku di perpustakaan. Untuk menjalankan form Peminjaman Buku ini ada beberapa hal yang harus diperhatikan yaitu kita memerlukan form pendukung, diantaranya form Cari Anggota, Cari Buku 1, dan Cari Buku 2.

2.6.1 Mendesain Form Pada tahapan ini ada 3 (tiga) form yang harus kita desain, diantaranya desain untuk form Peminjaman Buku, Cari Anggota, Cari Buku 1, dan Cari Buku 2. Untuk lebih jelasnya coba ikuti langkah-langkah di bawah ini.

a. Form Peminjaman Buku Untuk membuat desain form Peminjaman Buku, berikut ini langkah-langkahnya : 1.





3.

Setelah form berhasil dibuat langkah selanjutnya tambahkan komponen komponen

Label

(

),

MaskEdBox

(

komponen ),


TextBox

komponen

(

Frame

), (

), komponen Adodc (

), ),


DataGrid1

DataGrid2



Komponen


Form 1

BorderStyle ClipControls ControlBox Caption

Label1 Label2 Label3 Label4 Label5 Label6 Label7

FontStyle FontSize Caption Caption Caption Caption Caption Caption

Nilai Form_Peminjaman ∷ Aplikasi Perpustakaan Sekolah 3-Fixed Dialog False False TRANSAKSI PEMINJAMAN BUKU Bold 14 No Pinjam Tanggal Pinjam Id Anggota Nama Anggota Tanggal Kembali Kode Buku


Label8 Label9 Label10 Label11 Label12

Label13

Text1

Text2

Text3

Text4

Text5

Text6

Text7

Text8

Caption Caption Caption Caption Caption Name Caption FontStyle FontSize ForeColor Height Width Name Appereance Text Locked Name Appereance Text Locked Name Appereance Text Locked Name Appereance Locked Text Name Appereance Locked MultiLine ScrollBars Text Name Appereance Locked Text Name Appereance Locked Text Name Appereance Locked MultiLine ScrollBars

Nama Buku Pengarang Kode Buku Nama Buku Pengarang Lbl_Keterangan ≪Informasi≫ Bold 12 &H000000FF& 3510 4300 txtNo 0-Flat True txtId 0-Flat True txtNama 0-Flat True txtKode1 0-Flat True txtBuku1 0-Flat True True 2-Vertical txtPengarang1 0-Flat True txtKode2 0-Flat True txtBuku2 0-Flat True True 2-Vertical


Text9

MaskEdBox1

MaskEdBox2

Frame1

Text Name Appereance Locked Text Name Appereance Mask Name Appereance Mask Name Caption Font Style Name

Frame2

Command1 Command2 Command3 Command4 Command5 Command6 Adodc1

Adodc2

Adodc3

Adodc4

DataGrid1

Caption Font Style Name Caption Name Caption Name Caption Name Caption TabIndex Name Caption Name Caption Name Caption Visible Name Caption Visible Name Caption Visible Name Caption Visible Name DataSource Visible

txtPengarang2 0-Flat True txtTglPinjam 0-mskFlat ##/##/#### txtTglKembali 0-mskFlat ##/##/#### Frm_Peminjaman1 Peminjaman 1 (Satu) Buku : Bold Frm_Peminjaman2 Peminjaman 2 (Dua) Buku : Bold cmdCari1 &Cari.. cmdCari2 &Cari.. cmdCari3 &Cari.. cmdTambah &Tambah 1 cmdSimpan &Simpan cmdKeluar &Keluar Simpan_Peminjaman Simpan Peminjaman False Simpan_Det_Peminjaman Simpan Detail Peminjaman False Konek_Anggota Koneksi Anggota False Konek_Buku Koneksi Buku False Grid_Buku Konek_Buku False


Name Grid_Peminjaman DataSource Simpan_Peminjaman Tabel 2.7 Konfigurasi Form Peminjaman Buku

DataGrid2

5.



b. Form Cari Anggota Selanjutnya kita harus mendesain form Cari Anggota. Form ini digunakan untuk mencari data anggota agar mempermudah dalam malakukan transaksi Peminjaman Buku. 1.


Gambar 2.40 Tampilan Penambahan Form


2.


3.

Setelah

form

tambahkan ComboBox (

berhasil

dibuat

komponen

Label

langkah (

), komponen TextBox

CommandButton ( komponen DataGrid (

selanjutnya

), (

komponen ), komponen

), komponen Adodc (

), dan




Komponen

Properti Name Caption BorderStyle ClipControls ControlBox Caption Caption Name

Nilai

Form_Cari_Anggota ∷ Pencarian Anggota Form 1 3-Fixed Dialog False False Label1 Kategori Label2 Cari cmdKategori Id Combo1 List Nama Text Name txtCari Text1 Appereance 0-Flat Text Name cmdKeluar Command1 Caption &Keluar Name Konek_Anggota Adodc1 Caption Koneksi Anggota Visible False Name Grid_Anggota DataGrid1 DataSource Konek_Anggota ToolTipText Dobel klik salah satu data! Tabel 2.8 Konfigurasi Form Cari Anggota


5.



c.

Form Cari Buku 1 Kemudian kita juga harus mendesain form Cari Buku 1.

Form

ini

digunakan

untuk

mencari

data

buku

agar

mempermudah dalam malakukan transaksi Peminjaman Buku. 1.




3.

Setelah

form


berhasil

dibuat

komponen

Label

langkah (

), komponen TextBox


selanjutnya

), (


), komponen Adodc (

), dan





Komponen

Properti

Nilai

Name Caption BorderStyle ClipControls ControlBox Caption Caption Name

Form_Cari_Buku1 ∷ Pencarian Buku Form 1 3-Fixed Dialog False False Label1 Kategori Label2 Cari cmdKategori Kode Buku Combo1 List Nama Buku Text Name txtCari Text1 Appereance 0-Flat Text Name cmdKeluar Command1 Caption &Keluar Name Konek_Buku Adodc1 Caption Koneksi Buku Visible False Name Grid_Buku DataGrid1 DataSource Konek_Buku ToolTipText Dobel klik salah satu data! Tabel 2.9 Konfigurasi Form Cari Buku 1 5.




d. Form Cari Buku 2 Untuk mendesain form Cari Buku 2 hampir sama dengan mendesain form Cari Buku 1, namun untuk mempercepat pembuatan coba ikuti langkah-langkah di bawah ini. 1.




3.

Buka

Form_Cari_Buku1,

kemudian

tekan

Ctrl+A

pada

keyboard lalu tekan Ctrl+C untuk mengcopykan komponen pada form.


Gambar 2.44 Tampilan Mengcopykan Komponen 4.

Buka form yang baru kita buat tadi, lalu tekan tombol Ctrl+V pada keyboard untuk menggandakan komponen. Maka akan nampak pada gambar di bawah ini.

Gambar 2.45 Tampilan Hasil Penggandaan Komponen 5.

Kemudian

kita

tinggal atur properti formnya

samakan

dengan Form_Cari_Buku1. Sehingga tampilan seperti di bawah ini.



2.6.2 Membuat Kode pada Form a. Form Peminjaman Buku Setelah semuanya selesai dibuat, langkah selanjutnya adalah pembuatan kode program pada Form_Peminjaman. Ikutilah langkah-langkah di bawah ini : 1.



Pertama

buatlah

variabel

untuk

mendeklarasikan

No

Pinjam.

3.

Dim NoPinjamBaru As String Dim No As String Lalu buatlah prosedur dengan membuat

No

Pinjam

secara

nama

otomatis.

BuatNo

untuk

Ketikkan

kode

program di bawah ini.

4.

Sub BuatNo() With Simpan_Peminjaman.Recordset ‘jika pada record awal If .BOF Then NoPinjamBaru = "PJM.001" Exit Sub Else ‘jika pada record akhir .MoveLast No = !No_Pinjam No = Val(Right(No, 3)) No = No + 1 End If NoPinjamBaru = "PJM." & Format(No, "000") End With End Sub Buatlah prosedur untuk menormalkan Form_Peminjaman

dengan

nama

ketikkan kode program di bawah ini.


Normal.

kondisi Kemudian

Sub Normal() ‘memanggil prosedur kondisi tidak aktif dan kosong Call Kondisi(False) Call Kosong

5.

‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdKeluar.Caption = "&Keluar" cmdCari1.Enabled = False cmdCari2.Enabled = False cmdCari3.Enabled = False ‘menampilkan frame peminjaman Frm_Peminjaman1.Visible = True Frm_Peminjaman2.Visible = True lbl_Keterangan.Caption = "" End Sub Buat juga prosedur untuk mengosongkan kondisi inputan pada

Form_Peminjaman

dengan

nama

Kosong.

Lalu

ketikkan kode program di bawah ini.

6.

Sub Kosong() ‘mengosongkan inputan txtNo.Text = "" txtTglPinjam.Text = "__/__/____" txtId.Text = "" txtNama.Text = "" txtTglKembali.Text = "__/__/____" txtKode1.Text = "" txtBuku1.Text = "" txtPengarang1.Text = "" txtKode2.Text = "" txtBuku2.Text = "" txtPengarang2.Text = "" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan inputan pada Form_Peminjaman dengan nama Kondisi. Ketikan kode program di bawah ini. Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtNo.Enabled = Kform txtTglPinjam.Enabled = Kform txtId.Enabled = Kform txtNama.Enabled = Kform txtTglKembali.Enabled = Kform txtKode1.Enabled = Kform txtBuku1.Enabled = Kform txtPengarang1.Enabled = Kform txtKode2.Enabled = Kform txtBuku2.Enabled = Kform


7.

txtPengarang2.Enabled = Kform End Sub Pada Form_Peminjaman dobel klik pada area form sampai muncul

area

untuk

mengetikkan

kode

program.

Lalu

ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Simpan_Peminjaman.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel peminjaman berdasarkan urutan ‘no pinjam Simpan_Peminjaman.RecordSource = _ "Select * From Peminjaman Order By No_Pinjam" Simpan_Peminjaman.Refresh ‘membuka koneksi ke database Simpan_Det_Peminjaman. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel detail peminjaman Simpan_Det_Peminjaman.RecordSource = _ "Select * From Detail_Peminjaman" Simpan_Det_Peminjaman.Refresh ‘membuka koneksi ke database Konek_Buku. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel buku Konek_Buku.RecordSource = "Select * From Buku" Konek_Buku.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘memanggil prosedur form normal Call Normal ‘memberikan informasi ketika data masih kosong With Simpan_Peminjaman.Recordset If .BOF Then MsgBox"Transaksi Peminjaman Masih Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Peminjaman.Enabled = False Else Grid_Peminjaman.Enabled = True


End If End With

8.

‘mengatur grid peminjaman Grid_Peminjaman.HeadLines = 2 Grid_Peminjaman.Columns(0).Caption Grid_Peminjaman.Columns(1).Caption Grid_Peminjaman.Columns(2).Caption Grid_Peminjaman.Columns(3).Caption End Sub Pada halaman Form_Peminjaman,

= = = =

"KODE PINJAM" "TGL PINJAM" "ID ANGGOTA" "TGL KEMBALI"

dobel

klik

pada

komponen cmdCari1. Lalu ketikkan kode program di bawah ini. Private Sub cmdCari1_Click() ‘mengosongkan inputan txtKode1.Text = "" txtBuku1.Text = "" txtPengarang1.Text = "" txtKode2.Text = "" txtBuku2.Text = "" txtPengarang2.Text = "" ‘memberikan informasi ketika data masih kosong With Form_Cari_Anggota.Konek_Anggota.Recordset If .BOF Then MsgBox "Data Anggota Masih Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" End If End With

9.

‘membuka form cari anggota Form_Cari_Anggota.Show 1 End Sub Kemudian pada halaman Form_Peminjaman, dobel klik pada komponen cmdCari2. Lalu ketikkan kode program di bawah ini. Private Sub cmdCari2_Click() ‘memberikan informasi ketika data masih kosong With Form_Cari_Buku1.Konek_Buku.Recordset If .BOF Then MsgBox "Data Buku Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Exit Sub End If End With ‘membuka form cari buku 1 Form_Cari_Buku1.Show 1 End Sub


10. Dobel klik juga pada komponen cmdCari3. Lalu ketikkan kode program di bawah ini. Private Sub cmdCari3_Click() ‘memberikan informasi ketika data masih kosong With Form_Cari_Buku2.Konek_Buku.Recordset If .BOF Then MsgBox "Data Buku Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Exit Sub End If End With ‘membuka form cari buku 2 Form_Cari_Buku2.Show 1 End Sub 11. Dari halaman Form_Peminjaman, dobel klik pada tombol Tambah. Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘memanggil kondisi aktif,kosong, dan membuat no ‘otomatis Call Kondisi(True) Call Kosong Call BuatNo txtNo.Text = NoPinjamBaru ‘memberikan kondisi pada tombol cmdTambah.Enabled = False cmdSimpan.Enabled = True cmdKeluar.Enabled = True cmdKeluar.Caption = "&Batal" cmdCari1.Enabled = True cmdCari2.Enabled = True cmdCari3.Enabled = True ‘memberikan otomatisasi pada tgl kembali 7 hari ‘peminjaman txtTglPinjam.Text = Format(Now, "dd/mm/yyyy") txtTglKembali.Text = _ DateValue(txtTglPinjam.Text) + 8 cmdCari1.SetFocus End Sub 12. Kembali ke halaman Form_Peminjaman, dobel klik pada tombol Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtId.Text = "" Then MsgBox "ID Anggota belum diisi!!!", _


vbInformation + vbOKOnly, "Informasi" cmdCari1.SetFocus ElseIf txtKode1.Text = "" Then MsgBox "Kode Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" cmdCari2.SetFocus Else ‘kode untuk menyimpan data ke tabel peminjaman With Simpan_Peminjaman.Recordset .AddNew !No_Pinjam = txtNo.Text !Tgl_Pinjam = txtTglPinjam.Text !Id = txtId.Text !Tgl_Kembali = txtTglKembali.Text .Update End With ‘kode untuk menyimpan data ke tabel detail ‘peminjaman With Simpan_Det_Peminjaman.Recordset If txtKode1.Text <> "" Then .AddNew !No_Pinjam = txtNo.Text !Id = txtId.Text !Kode_Buku = txtKode1.Text .Update End If End With ‘kode program untuk menyimpan data ke tabel ‘detail peminjaman With Simpan_Det_Peminjaman.Recordset If txtKode2.Text <> "" Then .AddNew !No_Pinjam = txtNo.Text !Id = txtId.Text !Kode_Buku = txtKode2.Text .Update End If End With ‘kode untuk mengubah status pada tabel buku With Konek_Buku.Recordset If txtKode1.Text <> "" Then .Find "Kode_Buku='" & txtKode1.Text & "'" _ , , adSearchForward, 1 .Update !Status = "Dipinjam" End If End With ‘kode untuk mengubah status pada tabel buku With Konek_Buku.Recordset If txtKode2.Text <> "" Then .Find "Kode_Buku='" & txtKode2.Text & "'" _ , , adSearchForward, 1 .Update


!Status = "Dipinjam" End If End With ‘memanggil prosedur kosong dan kondisi aktif Call Kosong Call Kondisi(False) ‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdKeluar.Caption = "&Keluar" cmdSimpan.Enabled = False cmdTambah.SetFocus Grid_Peminjaman.Enabled = True ‘keluar dari form Unload Me ‘membuka form kembali untuk membuka koneksi baru Form_Peminjaman.Show 1 End If End Sub 13. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdkeluar_Click() ‘jika keluar If cmdKeluar.Caption = "&Keluar" Then Unload Me Else ‘jika batal maka akan memanggil form normal Call Normal End If End Sub 14. Kemudian dobel klik pada komponen txtId. Lalu ketikkan kode program untuk mencari data anggota agar tidak ada yang meminjam buku lebih dari 2 (dua). Private Sub txtId_Change() ‘menyeleksi tabel detail peminjaman berdasarkan id Simpan_Det_Peminjaman.RecordSource = _ "Select * From Detail_Peminjaman " & _ "Where Id = '" & txtId.Text & "'" Simpan_Det_Peminjaman.Refresh With Simpan_Det_Peminjaman.Recordset ‘jika tidak diketemukan If .RecordCount = 0 Then lbl_Keterangan.Caption = "" Frm_Peminjaman1.Visible = True Frm_Peminjaman2.Visible = True cmdSimpan.Enabled = True ‘jika pencarian ada satu peminjaman


ElseIf .RecordCount = 1 Then lbl_Keterangan.Caption = _ "Anggota ini baru meminjam 1 buku!!" Frm_Peminjaman1.Visible = True Frm_Peminjaman2.Visible = False cmdSimpan.Enabled = True ‘jika pencarian ada dua peminjaman ElseIf .RecordCount = 2 Then lbl_Keterangan.Caption = _ "Anggota ini sudah meminjam 2 buku!!" Frm_Peminjaman1.Visible = False Frm_Peminjaman2.Visible = False cmdSimpan.Enabled = False End If End With End Sub 15. Terakhir simpan Form_Peminjaman dengan nama Form_Peminjaman dan letakkan pada sub-folder Form. b. Form Cari Anggota Untuk pembuatan kode program pada Form_Cari_Anggota. Ikutilah langkah-langkah di bawah ini : 1.

Buku Form_Cari_Anggota, lalu dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Anggota.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel anggota berdasarkan urutan id Konek_Anggota.RecordSource = _ "Select Anggota.Id,Anggota.Nama_Anggota " _ & " From Anggota Order by Id" Konek_Anggota.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘mengatur grid cari anggota Grid_Anggota.HeadLines = 2 Grid_Anggota.Columns(0).Caption = "ID ANGGOTA" Grid_Anggota.Columns(1).Caption = "NAMA ANGGOTA" End Sub


2.

Pada

halaman

Form_Cari_Anggota,

dobel

klik

pada

komponen cmdKategori. Lalu ketikkan kode program di bawah ini. Private Sub cmbKategori_Click() ‘mengosongkan pencarian dan kursos fokus ke pencarian

3.

txtCari.Text = "" txtCari.SetFocus End Sub Kemudian dobel klik

juga

pada

komponen

txtCari.

Ketikkan kode program untuk pencarian di bawah ini. Private Sub txtCari_Change() ‘jika pilihan id If cmbKategori.ListIndex = 0 Then Konek_Anggota.RecordSource = _ "Select Anggota.ID, Anggota.Nama_Anggota " _ & " From Anggota Where Id like '" _ & txtCari.Text & "%'" Konek_Anggota.Refresh ‘jika pilihan nama anggota ElseIf cmbKategori.ListIndex = 1 Then Konek_Anggota.RecordSource = _ "Select Anggota.ID, Anggota.Nama_Anggota " _ & " From Anggota Where Nama_Anggota like '" _ & txtCari.Text & "%'" Konek_Anggota.Refresh End If

4.

‘mengatur grid cari anggota Grid_Anggota.HeadLines = 2 Grid_Anggota.Columns(0).Caption = "ID ANGGOTA" Grid_Anggota.Columns(1).Caption = "NAMA ANGGOTA" End Sub Kemudian kembali ke halaman Form_Cari_Anggota, dobel klik pada komponen Grid_Anggota. Lalu ganti eventnya yang tadinya Click menjadi DblClick dan ketikkan kode program di bawah ini. Private Sub Grid_Anggota_DblClick() ‘mengantisipasi terjadinya error On Error Resume Next ‘menampilkan data yang dipilih pada grid ke ‘inputan yang berada pada form peminjaman Form_Peminjaman.txtId.Text = _ Grid_Anggota.Columns(0) Form_Peminjaman.txtNama.Text = _ Grid_Anggota.Columns(1)


5.

‘keluar dari form pencarian Unload Me End Sub Dobel klik juga pada tombol Keluar. Lalu ketikkan kode program untuk keluar di bawah ini.

6.

Private Sub cmdKeluar_Click() ‘keluar dari form pencarian Unload Me End Sub Terakhir simpan Form_Cari_Anggota

dengan

nama

Form_Cari_Anggota dan letakkan pada sub-folder Form.

c. Form Cari Buku 1 Sama halnya dengan membuat kode program untuk form Cari Anggota, form Cari Buku 1 pun hampir sama langkahnya cuman penulisan struktur kodenya yang sedikit beda. Untuk lebih jelasnya coba ikutilah langkah-langkah di bawah ini : 1.

Buku Form_Cari_Buku1, lalu dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Buku. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel buku berdasarkan kriteria Konek_Buku.RecordSource = _ "Select Buku.Kode_Buku,Buku.Nama_Buku," _ & "Buku.Pengarang From Buku where Kode_Buku<>'" _ & Form_Peminjaman.txtKode1.Text & "' " _ & "and kode_buku<>'" _ & Form_Peminjaman.txtKode2.Text & "'" _ & "and Status<>'Dipinjam'" Konek_Buku.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘mengatur grid buku Grid_Buku.HeadLines = 2 Grid_Buku.Columns(0).Caption = "KODE BUKU" Grid_Buku.Columns(1).Caption = "NAMA BUKU" Grid_Buku.Columns(2).Caption = "PENGARANG" End Sub


2.

Pada

halaman

Form_Cari_Buku1,

dobel

klik

pada

komponen cmdKategori. Lalu ketikkan kode program di bawah ini.

3.

Private Sub cmbKategori_Click() ‘mengosongkan pencarian dan fokus ke pencarian txtCari.Text = "" txtCari.SetFocus End Sub Kemudian dobel klik juga pada komponen txtCari. Ketikkan kode program untuk pencarian di bawah ini. Private Sub txtCari_Change() ‘jika pilihan kode buku If cmbKategori.ListIndex = 0 Then Konek_Buku.RecordSource = _ "Select Buku.Kode_Buku,Buku.Nama_Buku," & "Buku.Pengarang From Buku " & _ "Where kode_buku<>'" _ & Form_Peminjaman.txtKode2.Text & "'" _ & "and Status<>'Dipinjam'" _ & "and Kode_Buku like '" & txtCari.Text Konek_Buku.Refresh ‘jika pilihan nama buku Else Konek_Buku.RecordSource = _ "Select Buku.Kode_Buku,Buku.Nama_Buku," & "Buku.Pengarang From Buku " & _ "where kode_buku<>'" _ & Form_Peminjaman.txtKode2.Text & "'" _ & "and Status<>'Dipinjam'" _ & "and Nama_Buku like '" & txtCari.Text Konek_Buku.Refresh End If

4.

‘mengatur grid buku Grid_Buku.HeadLines = 2 Grid_Buku.Columns(0).Caption Grid_Buku.Columns(1).Caption Grid_Buku.Columns(2).Caption End Sub Kemudian kembali ke halaman

_

& "%'"

_

& "%'"

= "KODE BUKU" = "NAMA BUKU" = "PENGARANG" Form_Cari_Buku1, dobel

klik pada komponen Grid_Buku. Lalu ganti eventnya yang tadinya

Click

menjadi

DblClick

dan

ketikkan

program di bawah ini. Private Sub Grid_Buku_DblClick() ‘mengantisipasi terjadinya error On Error Resume Next ‘menampilkan data yang dipilih pada grid ke


kode

‘inputan yang ada di form peminjaman Form_Peminjaman.txtKode1.Text = _ Grid_Buku.Columns(0) Form_Peminjaman.txtBuku1.Text = _ Grid_Buku.Columns(1) Form_Peminjaman.txtPengarang1.Text = _ Grid_Buku.Columns(2)

5.

‘menyegarkan database Konek_Buku.Refresh ‘menutup form cari buku Unload Me Form_Peminjaman.cmdCari3.Enabled = True End Sub Dobel klik juga pada tombol Keluar. Lalu ketikkan kode program untuk keluar di bawah ini.

6.

Private Sub cmdKeluar_Click() ‘keluar dari form cari buku Unload Me End Sub Terakhir simpan Form_Cari_Buku1

dengan

nama

Form_Cari_Buku1 dan letakkan pada sub-folder Form.

d. Form Cari Buku 2 Untuk pembuatan kode program untuk form Cari Buku 2 sama dengan pembuatan form Cari Buku 1. Coba lakukan langkah-langkah tadi atau bisa menggunakan langkah seperti di bawah ini. 1.

Buka Form_Cari_Buku1, lalu buka area penulisan kode programnya tekan Ctrl+A untuk memblok semua kode program kemudian tekan Ctrl+C pada keyboard.

2.

Setelah itu buka Form_Cari_Buku2, kemudian buka area penulisan kode programnya dari View – Code dan tekan tombol Ctrl+V pada keyboard untuk menggandakan kode program.

3.

Kembali ke halaman Form_Cari_Buku2, dobel klik pada komponen Grid_Buku. Ganti kode programnya dengan kode program di bawah ini. Private Sub Grid_Buku_DblClick() ‘mengantisipasi terjadinya error On Error Resume Next ‘menampilkan data pada grid ke inputan yang ada


‘di form peminjaman Form_Peminjaman.txtKode2.Text = _ Grid_Buku.Columns(0) Form_Peminjaman.txtBuku2.Text = _ Grid_Buku.Columns(1) Form_Peminjaman.txtPengarang2.Text = _ Grid_Buku.Columns(2) ‘menyegarkan database Konek_Buku.Refresh

4.

‘menutup form cari buku Unload Me End Sub Kemudian simpan Form_Cari_Buku2

dengan

nama

Form_Cari_Buku2 dan letakkan pada sub-folder Form.

2.6.3 Mengaktifkan Halaman dan Mencoba Program Untuk

mencoba

peminjaman. Coba

menjalankan

jalankan

untuk

transaksi

form tersebut dengan

form

mengikuti

langkah-langkah di bawah ini : 1.



Pada Startup Object pilih Form_Peminjaman, klik tombol OK.


5.


Gambar 2.49 Tampilan Form Peminjaman Setelah Dijalankan

2.7

Pembuatan

Program

Transaksi

akan

form

Pengembalian Buku Pada

tahapan

ini

kita

membuat

Transaksi

Pengembalian Buku di mana form ini digunakan untuk melakukan mendataan transaksi pengembalian buku di perpustakaan. Untuk menjalankan form Pengembalian Buku ini kita memerlukan form pendukung yaitu form Cari Peminjaman Buku.

2.7.1 Mendesain Form Ada 2 (dua) form yang harus kita desain yaitu desain untuk form Pengembalian Buku dan Cari Peminjaman Buku. Untuk lebih jelasnya coba ikuti langkah-langkah di bawah ini.

a. Form Pengembalian Buku Untuk membuat desain form Pengembalian Buku, berikut ini langkah-langkahnya :


1.




7.

Setelah form berhasil dibuat langkah selanjutnya tambahkan komponen komponen

Label

(

MaskEdBox

),

komponen

(

),


TextBox

komponen

Frame

), komponen Adodc (

(

), (

), ),


DataGrid1

DataGrid2 DataGrid3




Komponen


Form 1

BorderStyle ClipControls ControlBox Caption

Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10 Label11 Label12 Label13 Label14 Label15 Label16

Text1

Text2

Text3

Text4

Text5

FontStyle FontSize Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Font Style Height Width Name Appereance Text Locked Name Appereance Text Locked Name Appereance Text Locked Name Appereance Locked Text Name Appereance

Nilai Form_Pengembalian ∷ Aplikasi Perpustakaan Sekolah 3-Fixed Dialog False False TRANSAKSI PENGEMBALIAN BUKU Bold 14 No Kembali Tanggal Id Anggota Nama Anggota Tanggal Pinjam Tanggal Kembali Kode Buku Nama Buku Pengarang Kode Buku Nama Buku Pengarang Keterlambatan Denda Bold 555 3000 txtNo 0-Flat True txtId 0-Flat True txtNama 0-Flat True txtKode1 0-Flat True txtBuku1 0-Flat


Text6

Text7

Text8

Text9

MaskEdBox1

MaskEdBox2

MaskEdBox3

Frame1

Locked MultiLine ScrollBars Text Name Appereance Locked Text Name Appereance Locked Text Name Appereance Locked MultiLine ScrollBars Text Name Appereance Locked Text Name Appereance Mask Name Appereance Mask Name Appereance Mask Name Caption Font Style Name

Frame2

Frame3

Command1 Command2

Caption Font Style Name Caption Font Style Visible Name Caption Name Caption

True True 2-Vertical txtPengarang1 0-Flat True txtKode2 0-Flat True txtBuku2 0-Flat True True 2-Vertical txtPengarang2 0-Flat True txtTgl 0-mskFlat ##/##/#### txtTglPinjam 0-mskFlat ##/##/#### txtTglKembali 0-mskFlat ##/##/#### Frm_Pengembalian1 Pengembalian 1 (Satu) Buku : Bold Frm_Pengembalian2 Pengembalian 2 (Dua) Buku : Bold Frm_Informasi Informasi Bold False cmdCari &Cari.. cmdProses &Proses


Name cmdTambah Caption &Tambah TabIndex 1 Name cmdSimpan Command4 Caption &Simpan Name cmdKeluar Command5 Caption &Keluar Name Konek_Det_Peminjaman Adodc1 Caption Koneksi Detail Peminjaman Visible False Name Simpan_Pengembalian Adodc2 Caption Simpan Pengembalian Visible False Name Simpan_Det_Pengembalian Adodc3 Caption Simpan Detail Pengembalian Visible False Name Hapus_Peminjaman Adodc4 Caption Hapus Peminjaman Visible False Name Hapus_Det_Peminjaman Adodc5 Caption Hapus Detail Peminjaman Visible False Name Update_Buku Adodc4 Caption Update Buku Visible False Name Grid_Buku DataGrid1 DataSource Konek_Buku Visible False Name Grid_Detail BackColor &H0000FF00& DataGrid2 DataSource Konek_Det_Peminjaman Caption Pilih data peminjaman buku Visible False Name Grid_Pengembalian DataGrid3 DataSource Simpan_Pengembalian Tabel 2.10 Konfigurasi Form Pengembalian Buku Command3

9.




b. Form Cari Peminjaman Selanjutnya kita akan mendesain form Cari Peminjaman, coba ikuti langkah-langkah di bawah ini. 1.





3.

Setelah

form


berhasil

dibuat

komponen

Label

langkah (

), komponen TextBox


selanjutnya

), (


), komponen Adodc (

), dan




Komponen

Properti Name

Nilai

Form_Cari_Peminjaman ∷ Pencarian Peminjaman Caption Buku Form 1 BorderStyle 3-Fixed Dialog ClipControls False ControlBox False Label1 Caption Kategori Label2 Caption Cari Name cmdKategori Id Combo1 List Nama Anggota Text Name txtCari Text1 Appereance 0-Flat Text Name cmdKeluar Command1 Caption &Keluar Name Konek_Peminjaman Adodc1 Caption Koneksi Peminjaman Visible False Name Grid_Peminjaman DataGrid1 DataSource Konek_Peminjaman ToolTipText Dobel klik salah satu data! Tabel 2.11 Konfigurasi Form Cari Peminjaman


5.



2.7.2 Membuat Kode pada Form a. Form Pengembalian Buku Tahapan selanjutnya yaitu kita akan membuatkan kode program pada setiap form yang tadi kita sudah desain. Untuk membuat kode program pada Form_Pengembalian, coba ikuti langkah-langkah di bawah ini. 1.



Pertama

buatlah

variabel

untuk

mendeklarasikan

No

Kembali.

3.

Dim NoKembaliBaru As String Dim No As String Lalu buatlah prosedur dengan membuat No Kembali

secara

nama

otomatis.

program di bawah ini. Sub BuatNo() With Simpan_Pengembalian.Recordset ‘jika pada record awal If .BOF Then NoKembaliBaru = "KMB.00001"


BuatNo Ketikkan

untuk kode

4.

Exit Sub Else ‘jika pada record akhir .MoveLast No = !No_Kembali No = Val(Right(No, 5)) No = No + 1 End If NoKembaliBaru = "KMB." & Format(No, "00000") End With End Sub Buatlah prosedur untuk menormalkan kondisi Form_Pengembalian

dengan

nama

Normal.

Kemudian

ketikkan kode program di bawah ini. Sub Normal() ‘memanggil prosedur tidak aktif dan kosong Call Kondisi(False) Call Kosong ‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdSimpan.Enabled = False cmdKeluar.Caption = "&Keluar" cmdCari.Enabled = False cmdProses.Enabled = False ‘menampilkan frame pengembalian Frm_Pengembalian1.Visible = True Frm_Pengembalian2.Visible = True

5.

‘menyembunyikan frame informasi dan grid detail Frm_Informasi.Visible = False Grid_Detail.Visible = False End Sub Buat juga prosedur untuk mengosongkan inputan pada Form_Pengembalian dengan nama Kosong. Lalu ketikkan kode program di bawah ini. Sub Kosong() ‘mengosongkan inputan txtNo.Text = "" txtTgl.Text = "__/__/____" txtTglPinjam.Text = "__/__/____" txtId.Text = "" txtNama.Text = "" txtTglKembali.Text = "__/__/____" txtKode1.Text = "" txtBuku1.Text = "" txtPengarang1.Text = "" txtKode2.Text = ""


6.

txtBuku2.Text = "" txtPengarang2.Text = "" txtKeterlambatan.Text = "" txtDenda.Text = "" End Sub Setelah itu tambahkan prosedur kondisi untuk mengaktif dan non-aktifkan inputan pada Form_Pengembalian dengan nama Kondisi. Ketikan kode program di bawah ini. Sub Kondisi(Kform As Boolean) ‘memberikan kondisi inputan true atau false txtNo.Enabled = Kform txtTglPinjam.Enabled = Kform txtId.Enabled = Kform txtNama.Enabled = Kform txtTglKembali.Enabled = Kform txtKode1.Enabled = Kform txtBuku1.Enabled = Kform txtPengarang1.Enabled = Kform txtKode2.Enabled = Kform txtBuku2.Enabled = Kform txtPengarang2.Enabled = Kform End Sub

7.

Pada Form_Pengembalian dobel klik pada area form sampai muncul

area

untuk

mengetikkan

kode

program.

Lalu

ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuat koneksi ke database Simpan_Pengembalian.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel pengembalian berdasarkan urutan ‘no kembali Simpan_Pengembalian.RecordSource = _ "Select * From Pengembalian " _ & "Order By No_Kembali" Simpan_Pengembalian.Refresh ‘membuat koneksi ke database Hapus_Peminjaman.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel peminjaman Hapus_Peminjaman.RecordSource = _ "Select * From Peminjaman" Hapus_Peminjaman.Refresh


‘membuat koneksi ke database Konek_Det_Peminjaman. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel detail peminjaman Konek_Det_Peminjaman.RecordSource = _ "Select * From Detail_Peminjaman" Konek_Det_Peminjaman.Refresh ‘membuat koneksi ke database Simpan_Det_Pengembalian. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel detail pengembalian Simpan_Det_Pengembalian.RecordSource = _ "Select * From Detail_Pengembalian" Simpan_Det_Pengembalian.Refresh ‘membuat koneksi ke database Update_Buku. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel buku Update_Buku.RecordSource = _ "Select * From Buku" Update_Buku.Refresh ‘membuat koneksi ke database Hapus_Det_Peminjaman. = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel detail peminjaman Hapus_Det_Peminjaman.RecordSource = _ "Select * From Detail_Peminjaman " Hapus_Det_Peminjaman.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 ‘memanggil prosedur form normal Call Normal ‘memberikan informasi ketika data masih kosong With Simpan_Pengembalian.Recordset If .BOF Then MsgBox "Transaksi Pengembalian Masih Kosong!!!", _

vbInformation + vbOKOnly, "Informasi" Grid_Pengembalian.Enabled = False


Else Grid_Pengembalian.Enabled = True End If End With Grid_Detail.Visible = False ‘mengatur grid pengembalian Grid_Pengembalian.HeadLines = 2 Grid_Pengembalian.Columns(0).Caption Grid_Pengembalian.Columns(1).Caption Grid_Pengembalian.Columns(2).Caption Grid_Pengembalian.Columns(3).Caption

8.

= "NO KEMBALI" = "TANGGAL" = "ID" = _ "KATERLAMBATAN" Grid_Pengembalian.Columns(4).Caption = "DENDA" End Sub Pada halaman Form_Pengembalian, dobel klik pada komponen cmdCari. Lalu ketikkan kode program di bawah ini. Private Sub cmdCari_Click() ‘memberikan informasi ketika data masih kosong With _ Form_Cari_Peminjaman.Konek_Peminjaman.Recordset If .BOF Then MsgBox "Data Peminjaman Kosong!!!", _ vbInformation + vbOKOnly, "Informasi" Exit Sub End If End With

9.

‘membuka form cari peminjaman Form_Cari_Peminjaman.Show 1 End Sub Kemudian pada halaman Form_Pengembalian, dobel klik pada komponen cmdProses. Lalu ketikkan kode program di bawah ini. Private Sub cmdProses_Click() ‘memberikan validasi ketika inputan masih kosong If txtTgl.Text = "__/__/____" Then MsgBox " Maaf, Tanggal masih kosong!!", _ vbInformation + vbOKOnly, "Informasi" txtTgl.SetFocus ElseIf txtId.Text = "" Then MsgBox " Maaf, Id Anggota masih kosong!!", _ vbInformation + vbOKOnly, "Informasi" cmdCari.SetFocus Else ‘memberikan perhitungan tentang keterlambaran ‘pengembalian buku txtKeterlambatan.Text = _


DateValue(txtTgl.Text)- DateValue(txtTglKembali.Text) ‘jika mengembalikan sebelum tanggal kembali

If txtKeterlambatan.Text < -1 Then txtKeterlambatan.Text = "0" txtDenda.Text = "0,00" lbl_Keterangan.Caption = _ "SELAMAT, Anda tidak dikenai denda!!" lbl_Keterangan.ForeColor = vbBlue ‘jika mengembalikan tepat dengan tanggal kembali ElseIf txtKeterlambatan.Text = 0 Then txtKeterlambatan.Text = "0" txtDenda.Text = "0,00" lbl_Keterangan.Caption = _ "SELAMAT, Anda tidak dikenai denda!!" lbl_Keterangan.ForeColor = vbBlue ‘jika mengembalikan melebihi tanggal kembali Else txtDenda.Text = _ 1000 * txtKeterlambatan.Text lbl_Keterangan.Caption = _ "MAAF, Anda dikenakan denda!! sebesar Rp " _ & txtDenda.Text lbl_Keterangan.ForeColor = vbRed End If Frm_Informasi.Visible = True cmdSimpan.Enabled = True End If End Sub 10. Dari halaman Form_Pengembalian, dobel klik pada tombol Tambah. Kemudian ketikkan kode program di bawah ini. Private Sub cmdTambah_Click() ‘memanggil prosedur kondisi aktif,kosong,dan ‘membuat otomatisasi no kembali Call Kondisi(True) Call Kosong Call BuatNo txtNo.Text = NoKembaliBaru ‘memberikan kondisi pada tombol cmdTambah.Enabled = False cmdKeluar.Enabled = True cmdKeluar.Caption = "&Batal" cmdCari.Enabled = True txtTgl.Text = Format(Now, "dd/mm/yyyy") cmdCari.SetFocus End Sub


11. Kembali ke halaman Form_Pengembalian, dobel klik pada tombol Simpan. Kemudian ketikkan kode program untuk menyimpan data di bawah ini. Private Sub cmdSimpan_Click() ‘memberikan validasi ketika inputan masih kosong If txtId.Text = "" Then MsgBox "ID Anggota belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" cmdCari.SetFocus ElseIf txtKode1.Text = "" Then MsgBox "Kode Buku belum diisi!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Detail.SetFocus cmdCari.SetFocus ElseIf Grid_Detail.Visible = True Then MsgBox "Maaf, data pinjaman masih ada!!!", _ vbInformation + vbOKOnly, "Informasi" Grid_Detail.SetFocus Else ‘kode program untuk menyimpan data ke tabel ‘pengembalian With Simpan_Pengembalian.Recordset .AddNew !No_Kembali = txtNo.Text !Tanggal = txtTgl.Text !Id = txtId.Text !Keterlambatan = txtKeterlambatan.Text !Denda = txtDenda.Text .Update End With ‘kode program untuk menyimpan data ke tabel ‘detail pengembalian With Simpan_Det_Pengembalian.Recordset If txtKode1.Text <> "" Then .AddNew !No_Kembali = txtNo.Text !Kode_Buku = txtKode1.Text .Update End If End With ‘kode program untuk menyimpan data ke tabel ‘pengembalian With Simpan_Det_Pengembalian.Recordset If txtKode2.Text <> "" Then .AddNew !No_Kembali = txtNo.Text !Kode_Buku = txtKode2.Text .Update End If End With


‘kode program untuk mengubah status pada tabel ‘buku With Update_Buku.Recordset If txtKode1.Text <> "" Then .Find "Kode_Buku='" & txtKode1.Text & "'" , , adSearchForward, 1 .Update !Status = "Tersedia" End If End With ‘kode program untuk mengubah status pada tabel ‘buku With Update_Buku.Recordset If txtKode2.Text <> "" Then .Find "Kode_Buku='" & txtKode2.Text & "'" , , adSearchForward, 1 .Update !Status = "Tersedia" End If End With ‘kode program untuk menghapus data pada tabel ‘peminjaman With Hapus_Peminjaman.Recordset .Delete End With ‘kode program untuk menghapus data pada tabel ‘detail peminjaman With Hapus_Det_Peminjaman.Recordset If txtKode1.Text <> "" Then .Find "Kode_Buku='" & txtKode1.Text & "'" , , adSearchForward, 1 .Delete End If End With ‘kode program untuk menghapus data pada tabel ‘detail peminjaman With Hapus_Det_Peminjaman.Recordset If txtKode2.Text <> "" Then .Find "Kode_Buku='" & txtKode2.Text & "'" , , adSearchForward, 1 .Delete End If End With

_

_

_

_

‘memanggil prosedur kosong dan kondisi tidak aktif Call Kosong Call Kondisi(False) ‘memberikan kondisi pada tombol cmdTambah.Enabled = True cmdKeluar.Caption = "&Keluar" cmdSimpan.Enabled = False cmdTambah.SetFocus


Grid_Pengembalian.Enabled = True ‘menutup form peminjaman Unload Me ‘membuka kembali form peminjaman untuk membuka ‘koneksi baru Form_Pengembalian.Show 1 End If End Sub 12. Kemudian dobel klik pada tombol Keluar. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdKeluar_Click() ‘jika keluar If cmdKeluar.Caption = "&Keluar" Then Unload Me Else ‘jika batal maka akan memanggil prosedur form normal

Call Normal End If End Sub 13. Kemudian dobel klik pada komponen txtTgl. Lalu ketikkan kode program di bawah ini. Private Sub txtTgl_Change() ‘menyembunyikan frame informasi Frm_Informasi.Visible = False End Sub 14. Lalu dobel klik juga pada komponen

txtKode1.

Lalu

ketikkan kode program di bawah ini. Private Sub txtKode1_Change() ‘mengaktifkan tombol proses cmdProses.Enabled = True End Sub 15. Kembali ke halaman Form_Pengembalian, dobel klik pada komponen Grid_Detail. Ketikkan kode program di bawah ini. Private Sub Grid_Detail_Click() ‘mengantisipasi terjadinya error On Error Resume Next ‘jika inputan kode 1 kosong maka data ‘akan ditampilkan pada inputan pertama If txtKode1.Text = "" Then txtKode1.Text = Grid_Detail.Columns(2) txtBuku1.Text = Grid_Detail.Columns(3) txtPengarang1.Text = Grid_Detail.Columns(4) Grid_Detail.Visible = False


Else ‘jika inputan kode 2 kosong maka data ‘akan ditampilkan pada inputan kedua txtKode2.Text = Grid_Detail.Columns(2) txtBuku2.Text = Grid_Detail.Columns(3) txtPengarang2.Text = Grid_Detail.Columns(4) Grid_Detail.Visible = False End If ‘mencari id berdasarkan inputan id yang dipilih Konek_Det_Peminjaman.Recordset.Find "id='" _ & txtId.Text & "'", , adSearchForward, 1 With Konek_Det_Peminjaman.Recordset ‘jika ditemukan satu If .RecordCount = 1 Then Grid_Detail.Visible = False Else ‘jika ditemukan lebih dari satu maka akan menyeleksi ‘data lainnya

Konek_Det_Peminjaman.RecordSource = _ "Select Detail_Peminjaman.No_Pinjam," _ & "Detail_Peminjaman.Id, " _ & "Detail_Peminjaman.Kode_Buku,Buku.Nama_Buku, " _ & "Buku.Pengarang From Detail_Peminjaman," _ & "Buku Where Detail_Peminjaman.Id = '" _ & txtId.Text & "' And " _ & "Detail_Peminjaman.Kode_Buku=Buku.Kode_Buku " _ & "And Detail_Peminjaman.Kode_Buku<>'" _ & txtKode1.Text & "'" Konek_Det_Peminjaman.Refresh Grid_Detail.Visible = True End If End With ‘mengatur grid detail peminjaman Grid_Detail.HeadLines = 2 Grid_Detail.Columns(0).Caption = "KODE PINJAM" Grid_Detail.Columns(1).Caption = "ID" Grid_Detail.Columns(2).Caption = "KODE BUKU" Grid_Detail.Columns(3).Caption = "NAMA BUKU" Grid_Detail.Columns(4).Caption = "PENGARANG" End Sub 16. Terakhir simpan form Pengembalian Buku dengan nama Form_Pengembalian dan letakkan pada sub-folder Form.


b. Form Cari Peminjaman Untuk

pembuatan

kode

program

pada

Form_Cari_Peminjaman. Ikutilah langkah-langkah di bawah ini : 1.

Buku Form_Cari_Peminjaman, lalu dobel klik pada area form

sampai

muncul

area

untuk

mengetikkan

kode

program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Peminjaman.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel peminjaman dan anggota berdasarkan ‘id anggota

Konek_Peminjaman.RecordSource = _ "Select Peminjaman.Id,Anggota.Nama_Anggota," _ & "Peminjaman.Tgl_Pinjam,Peminjaman.Tgl_Kembali," _ & "Peminjaman.No_pinjam From Peminjaman,Anggota " _

& "Where Peminjaman.Id=Anggota.Id " Konek_Peminjaman.Refresh ‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2

7.

‘mengatur grid peminjaman Grid_Peminjaman.HeadLines = 2 Grid_Peminjaman.Columns(0).Caption = "ID ANGGOTA" Grid_Peminjaman.Columns(1).Caption = _ "NAMA ANGGOTA" Grid_Peminjaman.Columns(2).Caption = "TGL PINJAM" Grid_Peminjaman.Columns(3).Caption = "TGL KEMBALI" Grid_Peminjaman.Columns(4).Caption = "KODE PINJAM" End Sub Pada halaman Form_Cari_Peminjaman, dobel klik pada komponen cmdKategori. Lalu ketikkan kode program di bawah ini. Private Sub cmbKategori_Click() ‘mengosongkan pencarian dan kursor fokus dipencarian

8.

txtCari.Text = "" txtCari.SetFocus End Sub Kemudian dobel klik

juga

pada

komponen

txtCari.

Ketikkan kode program untuk pencarian di bawah ini.


Private Sub txtCari_Change() ‘jika pilihan id anggota If cmbKategori.ListIndex = 0 Then Konek_Peminjaman.RecordSource = _ "Select Peminjaman.Id,Anggota.Nama_Anggota," _ & "Peminjaman.Tgl_Pinjam,Peminjaman.Tgl_Kembali," _ & "Peminjaman.No_Pinjam From Peminjaman,Anggota " _

& "Where Peminjaman.Id=Anggota.Id And " _ & "Peminjaman.Id like '" & txtCari.Text & "%'" Konek_Peminjaman.Refresh ‘jika pilihan nama anggota ElseIf cmbKategori.ListIndex = 1 Then Konek_Peminjaman.RecordSource = _ "Select Peminjaman.Id,Anggota.Nama_Anggota," _ & "Peminjaman.Tgl_Pinjam,Peminjaman.Tgl_Kembali," _ & "Peminjaman.No_Pinjam From Peminjaman,Anggota " _

& "Where Peminjaman.Id=Anggota.Id And " _ & "Anggota.Nama_Anggota like '" & txtCari.Text & "%'"

Konek_Peminjaman.Refresh End If

9.

‘mengatur grid peminjaman Grid_Peminjaman.HeadLines = 2 Grid_Peminjaman.Columns(0).Caption = "ID ANGGOTA" Grid_Peminjaman.Columns(1).Caption = _ "NAMA ANGGOTA" Grid_Peminjaman.Columns(2).Caption = "TGL PINJAM" Grid_Peminjaman.Columns(3).Caption = "TGL KEMBALI" Grid_Peminjaman.Columns(4).Caption = "KODE PINJAM" End Sub Kemudian kembali ke halaman Form_Cari_Peminjaman, dobel klik pada komponen Grid_Peminjaman. Lalu ganti eventnya

yang

tadinya

Click

menjadi

DblClick

ketikkan kode program di bawah ini. Private Sub Grid_Peminjaman_DblClick() ‘mengantisipasi terjadinya error On Error Resume Next ‘menampilkan data pada grid ke inputan yang ada ‘di form pengembalian Form_Pengembalian.txtId.Text = _ Grid_Peminjaman.Columns(0) Form_Pengembalian.txtNama.Text = _ Grid_Peminjaman.Columns(1) Form_Pengembalian.txtTglPinjam.Text = _ Grid_Peminjaman.Columns(2) Form_Pengembalian.txtTglKembali.Text = _ Grid_Peminjaman.Columns(3) NoPinjam = Grid_Peminjaman.Columns(4)


dan

‘menyeleksi data yang dipilih berdasarkan id dan ‘no pinjam untuk mencari banyaknya peminjaman buku Form_Pengembalian.Konek_Det_Peminjaman.RecordSource = _

"Select Detail_Peminjaman.No_Pinjam," _ & "Detail_Peminjaman.Id," _ & "Detail_Peminjaman.Kode_Buku," _ & "Buku.Nama_Buku,Buku.Pengarang " _ & "From Detail_Peminjaman,Buku Where " _ & "Detail_Peminjaman.Id ='" & Form_Pengembalian.txtId.Text & "'" _ & "And Detail_Peminjaman.Kode_Buku=Buku.Kode_Buku " _ & "And Detail_Peminjaman.No_Pinjam='" & NoPinjam & "'"

Form_Pengembalian.Konek_Det_Peminjaman.Refresh Konek_Peminjaman.Refresh ‘menutup form cari peminjaman Unload Me ‘menampilkan dan mengatur grid detail peminjaman Form_Pengembalian.Grid_Detail.Visible = True Form_Pengembalian.Grid_Detail.HeadLines = 2 Form_Pengembalian.Grid_Detail.Columns(0).Caption = _ "KODE PINJAM" Form_Pengembalian.Grid_Detail.Columns(1).Caption = _ "ID" Form_Pengembalian.Grid_Detail.Columns(2).Caption = _ "KODE BUKU" Form_Pengembalian.Grid_Detail.Columns(3).Caption = _ "NAMA BUKU" Form_Pengembalian.Grid_Detail.Columns(4).Caption = _ "PENGARANG" ‘mengosongkan beberapa inputan pada form pengembalian

Form_Pengembalian.txtKode1.Text = "" Form_Pengembalian.txtBuku1.Text = "" Form_Pengembalian.txtPengarang1.Text = "" Form_Pengembalian.txtKode2.Text = "" Form_Pengembalian.txtBuku2.Text = "" Form_Pengembalian.txtPengarang2.Text = "" End Sub 10. Dobel klik juga pada tombol Keluar. Lalu ketikkan kode program untuk keluar di bawah ini. Private Sub cmdKeluar_Click() ‘keluar dari form cari peminjaman Unload Me End Sub 11. Terakhir simpan Form_Cari_Peminjaman

dengan

nama

Form_Cari_Peminjaman dan letakkan pada sub-folder Form.


2.7.3 Mengaktifkan Halaman dan Mencoba Program Untuk

mencoba

menjalankan

form

untuk

transaksi

pengembalian. Coba jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini: 1.



Pada Startup Object pilih Form_Pengembalian, klik tombol OK.

3.


Gambar 2.58 Tampilan Form Pengembalian Setelah Dijalankan


2.8 Pembuatan Program Login Aplikasi Selanjutnya untuk memberikan hak akses untuk bisa masuk ke Aplikasi Perpustakaan Sekolah, kita harus membuat form Login Aplikasi.

2.8.1 Mendesain Form Login Untuk mendesain form Login, tidak begitu sulit seperti membuat form-form sebelumnya. Cukup ikuti langkah-langkah di bawah ini. 1.




3.


Label

(

),

komponen

komponen CommandButton ( (

TextBox

Gambar 2.60 Tampilan Desain Form

Membuat Aplikasi Perpustakaan Sekolah Dengan Visual Basic 6.0

),

), dan komponen Adodc


113 | Atep Ruhiat

(

4.


Komponen

Form 1

Label1 Label2 Text1

Text1

Command1 Command1 Adodc1

5.

Properti

Nilai

Name Form_Login ∷ Login Aplikasi Caption BorderStyle 3-Fixed Dialog ClipControls False ControlBox False Caption User Id Caption Password Name txtUserId Appereance 0-Flat Text TabIndex 1 Name txtPassword Appereance 0-Flat PasswordChar * Text Name cmdLogin Caption &Login Name cmdBatal Caption &Batal Name Konek_Login Caption Koneksi Login Visible False Tabel 2.12 Konfigurasi Form Login



2.8.2 Membuat Kode pada Form Login Setelah form selesai didesain, langkah selanjutnya kita buat kode program untuk Form_Login. Coba ikuti langkah-langkah di bawah ini.


1.



Pertama buatlah variabel untuk mendeklarasikan UserId dan Nama Petugas.

3.

Dim PetugasId, PetugasNm As String Pada Form_Login dobel klik pada area form sampai muncul area untuk mengetikkan kode program. Lalu ketikkan kode program di bawah ini. Private Sub Form_Load() ‘membuka koneksi ke database Konek_Login.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=dbPerpustakaan.accdb;" _ & "Persist Security Info=False" ‘menyeleksi tabel petugas Konek_Login.RecordSource = _ "Select * From Petugas" Konek_Login.Refresh

4.

‘memposisikan form ditengah layar Move (Screen.Width - Width) / 2, _ (Screen.Height - Height) / 2 End Sub Pada halaman Form_Login, dobel klik

pada

komponen

cmdLogin. Lalu ketikkan kode program di bawah ini. Private Sub cmdLogin_Click() ‘memberikan validasi ketika inputan masih kosong If txtUser.Text = "" Then MsgBox "Maaf, User masih kosong!!", _ vbInformation + vbOKOnly, "Informasi" txtUser.SetFocus ElseIf txtPassword.Text = "" Then MsgBox "Maaf, Password masih kosong!!", _ vbInformation + vbOKOnly, "Informasi" txtPassword.SetFocus Else


‘menyeleksi tabel petugas berdasarkan inputan user id ‘dan password Konek_Login.RecordSource = _ "Select * From Petugas " _ & "Where UserId='" & txtUser.Text & "' " _ & "And Password='" & txtPassword.Text & "'" Konek_Login.Refresh With Konek_Login.Recordset ‘jika tidak kosong If Not .BOF Then ‘kalau data sesuai maka akan menampilkan user id dan nama ‘petugas pada status bar di menu utama

PetugasId = _ Konek_Login.Recordset.Fields("UserId") PetugasNm = _ Konek_Login.Recordset.Fields("Nama_Petugas") With Form_Menu_Utama .StatusBar1.Panels(1) = _ Konek_Login.Recordset.Fields("UserId") .StatusBar1.Panels(2) = _ Konek_Login.Recordset.Fields("Nama_Petugas") End With ‘form login akan keluar Unload Me ‘membuat kondisi pada menu di menu utama Form_Menu_Utama.SbMnLogin.Enabled = False Form_Menu_Utama.SbMnLogout.Enabled = True Form_Menu_Utama.SbMnKeluar.Enabled = False Form_Menu_Utama.MnTransaksi.Enabled = True Form_Menu_Utama.MnLaporan.Enabled = True Form_Menu_Utama.MnData.Enabled = True ‘jika user id dan password tidak sesuai maka akan ‘muncul kotak dialog perhatian Else MsgBox "Maaf, data yang anda masukan salah mohon!!", _

5.

vbCritical + vbOKOnly, "Perhatian" txtUser.Text = "" txtPassword.Text = "" txtUser.SetFocus End If End With End If End Sub Kemudian dobel klik pada tombol Batal. Kemudian ketikkan kode program untuk batal dan keluar di bawah ini. Private Sub cmdBatal_Click() ‘membatalkan/keluar dari form login Unload Me End Sub


6.

Dobel klik pada komponen txtUserId, ganti event Change menjadi KeyPress. Lalu ketikkan kode program agar bisa menggunakan tombol Enter pada keyboard.

7.

Private Sub txtUserId_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus KeyAscii = 0 End If Lalu kembali ke halaman Form_Login, dobel klik pada komponen

txtPassword,

KeyPress.

Lalu

ganti

ketikkan

event

kode

Change

program

menjadi

agar

bisa

menggunakan tombol Enter pada keyboard.

8.

Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdLogin.SetFocus KeyAscii = 0 End If Terakhir simpan Form_Login dengan nama Form_Login dan letakkan pada sub-folder Form.

2.8.3 Mengaktifkan Halaman dan Mencoba Program Untuk mencoba menjalankan form untuk login aplikasi. Coba jalankan form tersebut dengan mengikuti langkah-langkah di bawah ini: 1.


Gambar 2.57 Tampilan Jendela Project Properties


2.

Pada Startup Object pilih Form_Menu_Utama, klik tombol OK.

3.


Gambar 2.58 Tampilan Form Menu Utama Setelah Dijalankan 4.

Kemudian pilih menu Sistem - Login. Maka akan muncul Form_Login.

Gambar 2.59 Tampilan Form Login Setelah Dijalankan


BAB 2 PEMBUATAN APLIKASI PERPUSTAKAAN SEKOLAH

Recommend Documents