Tutorial Membuat Program Perpustakaan Form Anggota Perpustakaan dengan Visual Basic 6.0

Teman – teman kali ini kita akan mencoba untuk membuat sebuah program sederhanan dengan menggunakan visual basic, contoh project saya kali ini adalah form Anggota Perpustakaan.
Baiklah sebelum kita mulai siapkan dulu bahan – bahannya ya…heheh seperti mau masak makanan aja yaa…

Pertama kita bikin databasenya yaaa, untuk percobaan kali ini kita menggunakan database dari MS.Acces2.

Field	Size
NIS	5
Nama	50
Tempat_Lahir	50
Tanggal_Lahir	Date/time
Jenis_Kelamin	10
Agama	10
Alamat	50
No.Hp	15
Aktif_Sampai	Date/time

Seteh field kita selesai simpan dengan nama “Anggota”, dan setelah  itu simpan database dengan nama “Pustaka”, simpanlah database disatu folder dengan program aplikasi yang akan kita bikin.
Okeeee setelah database selesai kita bikin selanjutnya kita kerjakan form input VB nya. Bukalah program VB dan masukkan komponen – komponen berikut kedalam form vb :

Nama Komponen	Keterangan
Label1 Label2 Label3 Label4 DTPicker1 Combo1 Combo2 Text3 Text4 DTPicker2 Command1 Command2 Command3 Command4 Command5 Datagrid1 Image1 Image2	PERPUSTAKAAN SEKOLAH SMPN 2 NIS Nama Tempat Lahir Tanggal Lahir Jenis Kelamin Agama Alamat No. HP Aktif Sampai SIMPAN HAPUS UBAH BATAL KELUAR Untuk logo sekolah disudut kiri atas Untuk gambar latar

Susunlah komponen diatas seperti gambar dibawah ini :

Setelah itu kita akan masuk pada pengekodean, yang pertama akan kita bahas adalah koneksi, untuk menghubungakan vb dengan database acces kita memerlukan komponen ADODC untuk mencari alamat database yang telah kita buat, setelah itu baru kita masukkan alamat tadi kedalam module, baiklah kita lansung saja untuk mengkoneksikan vb dengan database acces adalah sebagai berikut :
1.      Ambillah komponen ADODC didalam menu komponen, jika tidak ada nama komponen ADODC maka kita keluarkan dengan cara klik kanan pada menu komponen .

Seperti gambar dibawah ini :

Lalu beri tanda pada komponen yang akan kita gunakan seperti gambar dibawah ini:

       Setelah memilih komponen yang digunakan lalu tekan tombol “Ok”.

2.      Untuk membuat module koneksi pada vb kita perlu memanggil fungsinya dengan cara sebagai berikut :

-  Klik kanan pada bagian project > lalu pilih Add > Module, makan pada bagian project akan ada module seperti gambar dibawah ini :

-      Untuk membuat koneksi kita ambil alamat database dengan menggunakan komponen ADODC masukkan kedalam form.

Komponen ADODC

-  Klik Kanan komponen ADODC dan pilih ADODC Properties seperti gambar dibawah ini:

- Klik Tombol Build

Setelah muncul properties dari ADODC selanjutnya klik tombil buid.

-  Pilih Microsoft Jet 4.0 OLE DB Provider setelah itu klik Next.

-  Selajutnya klik tombol next dan properties selanjutnya akan menuju ke tab connection selanjutnya pada bagian  select or enter a database name, carilah lokasi penyimpanan database yang sudah kita buat.

- selanjutnya setelah database kita temukan, untuk memastikan bahwa databasenya sudah terkoneksi dengan baik, klik tombol Test Connection. Jika sudah terhubung dengan baik maka akan muncul pesan seperti dibawah ini :

- Selanjutnya klik oke dan salin perintah yang ada pada use connection string semuanya.

Setelah alamat lokasi database disalin semua, tutup properties ADODC dengan klik tombol CANCEL. Selah itu kembali pada module yang kita buat pada project tadi dan  ketikkan perintah dibawah ini :
Membuat variabel koneksi dan recordset

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Membuat fungsi baru dangan nama “koneksi”

Function koneksi()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Pustaka.mdb;Persist Security Info=False"
End Function

Setelah koneksi database kita lakukan tutup halaman module koneksi ini dan simpan, setelah itu hapus saja ADODC yang ada pada form dan koneksi ini cukup satu kali kita lakukan untuk satu project vb ini,untuk form selanjutnya kita akan panggil koneksi yang sudah kita buat tadi.

Sekarang kita akan mengisi perintah pada setiap tombol yang ada pada form dan yang pertama kita membuat tombol simpan,.
- Klik 2 kali tombol simpan dan ketikkan perintah dibawah  ini :

Set rs = New ADODB.Recordset
rs.Open "select*from Anggota where NIS ='" & Text1.Text & "'", cn, adOpenKeyset
If rs.RecordCount <> 0 Then
        MsgBox " data sudah ada"
        BERSIH
        Else
cn.Execute "insert into Anggota values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & DTPicker1 & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & DTPicker2 & "')"
MsgBox "Data Anda Sudah Di Simpan"
    tampil
    BERSIH
    End If

- Selanjutnya klik tombol hapus dan masukkan perintah  ini:

Private Sub Command2_Click()
cn.Execute "delete from Anggota where NIS = '" & Text1.Text & "'"
    MsgBox "Data Anda Sudah Di Hapus"
    tampil
    BERSIH
End Sub

- Selanjutnya kita masukkan perintah ubah / update

Private Sub Command3_Click()
cn.Execute ("update Anggota set NIS= '" & Text1.Text & "',Nama= '" & Text2.Text & "', Tempat_lahir = '" & Text3.Text & "',Tanggal_lahir= '" & DTPicker1 & "',Jenis_Kelamin='" & Combo1.Text & "',Agama='" & Combo2.Text & "',Alamat = '" & Text7.Text & "',No_hp ='" & Text8.Text & "',Aktif_sampai='" & DTPicker2 & "' where NIS= '" & Text1.Text & "'")
    MsgBox "Data Anda Sudah Di Perbaiki"
    tampil
BERSIH
End Sub

Sekarang perintah yang paling gampang yaitu untuk membersihkan komponen text :

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = "----Pilih----"
Combo2.Text = "----Pilih----"
End Sub

Pada program ini saya juga menambahkan fungsi tambahan untuk mempermudah pengkodean.

Fungsi tambahan pertama yakni :

Private Sub BERSIH()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = "----Pilih----"
Combo2.Text = "----Pilih----"
End Sub

 # Kegunaannya adalah untuk membersihkan komponen dengan cara memanggil nama fungsinya “BERSIH”.

Berikutnya Fungsi tampil gunanya untuk menampilkan data yang ada didatabase kedalam datagerid form kita.

Private Sub tampil()
Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select*from Anggota", cn, adOpenKeyset, adLockBatchOptimistic
    With DataGrid1
        Set DataGrid1.DataSource = rs
        DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
        DataGrid1.Refresh
    End With
End Sub

Sebelum kita uji coba programnya kita harus masukkan perintah koneksi pada Form Load , perintahnya adalah :

Private Sub Form_Load()
Call koneksi
tampil
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = "----Pilih----"
Combo2.Text = "----Pilih----"
With Combo1
            .AddItem "laki-laki"
            .AddItem "Perempuan"
End With
With Combo2
            .AddItem "Islam"
            .AddItem "Kristen"
            .AddItem "Hindu"
            .AddItem "Budha"
End With
End Sub

Perintah diatas adalah untuk mengisi item atau nilai kedalam combo.

Maka setiap program akan dijalankan maka akan langsung membaca script koneksi yang di tujukan ke module koneksi yang kita bikin tadi.


Perintah berikutnya adalah untuk meriksa apakah data yang akan kita simpan sudah ada di dalah database atau belum yakni dengan cara klik 2 kali pada komponen text1 lalu masukkan perintah berikut ini :

Private Sub Text1_Change()
Set rs = New ADODB.Recordset
rs.Open "select*from Anggota where NIS ='" & Text1.Text & "'", cn, adOpenKeyset
If rs.RecordCount <> 0 Then
    Text2.Text = rs!Nama
    Text3.Text = rs!Tempat_lahir
    DTPicker1.Value = rs!Tanggal_lahir
    Combo1.Text = rs!Jenis_kelamin
    Combo2.Text = rs!Agama
    Text7.Text = rs!Alamat
    Text8.Text = rs!No_hp
    DTPicker2.Value = rs!Aktif_sampai
    MsgBox "Data Sudah Ada!!!"
    End If
End Sub

Untuk image 1 dan 2 kita atur pada propertis  Picture dan cari file gambar yang anda ingin jadikan background.

maka program anggota perpustakaan kita sidah siap untuk digunakan dan jalan kan dengan klik tombol F5 pada keyboard.