UAS Lab VB2 - Aplikasi "Toko Buku"

Hai, pada kesempatan kali ini saya akan membuat tutorial aplikasi "Toko Buku" menggunakanVB.NET yang terkoneksi dengan MS.Access sebagai database
Disimak dengan baik :)

• Buat databasenya terlebih dahulu. Buka MS. Access, kemudian buat sebuah tabel. (Go to Table Design) lalu disain tampilannya seperti berikut

• Simpan ditempat yang mudah di ingat. Kali ini saya taruh file database accessnya di "Drive D : toko_buku"

• Buat Project baru di Visual Studio, Kemudian langsung saja klik menu Data -> Lalu pilih -> Add New Data Source

• Selanjutnya akan muncul dialog Data Source Configuration Wizard, pilih Database lalu klik Next

• Lanjut, klik Dataset lalu Next lagi

• Sekarang kita klik tombol New Connection... 

• Kita akan dibawa ke dialog Add Connection, tekan tombol Change.

• Untuk Data Source, kita pilih Microsoft Access Database File, kemudian klik OK

• Kembali lagi ke kotak dialog Add Connection, sekarang klik BROWSE untuk memilih file database MS.Access yang kita buat tadi.

• Lalu kembali ke kotak dialog Add Connection sekarang klik OK

• Dan secara tiba-tiba muncul kotak dialog pertanyaan. "Apakah anda ingin meng-copy file database anda ke folder Project VB anda? Jika Yes maka nggak papa, Jika No maka nggak papa juga" Klik NO aja biar mudah tau lokasi Filenya.

• Next, kita akan diarahkan ke Data Source Configuration Wizard. Disini kita bisa mengubah nama Connection Stringnya. tapi untuk studi kasus kali ini lebih baik tidak perlu, dan sekarang klik NEXT lagi.

rjaan for,m

• Checklist semua yang ada di dialog Choose your database object. Dan kita sudah selesai melakukan setting pada data source yang akan kita gunakan :D

• Sekarang kita mulai dengan pekerjaan Form! Form pertama yang dibuat adalah form Login beserta Source Code nya seperti berikut

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "muhammad.rega" Then

            If TextBox2.Text = "1306469891" Then

                Inventory.Show()

            Else

                MsgBox("Password anda salah, silahkan coba lagi")

            End If

        Else

            MsgBox("Username atau Password anda salah, silahkan coba lagi")

        End If

    End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close

    End Sub

End Class

• Sekarang kita buat Form kedua dengan cara buka lagi Project yang tadi ke close, kemudian KLIK DATASOURCE disamping TOOLBOX, kemudian GESER tbl_buku ke dalam form kedua. Maka akan menghasilkan form seperti gambar berikut!

• Next, tarik satu-satu field yang ada di Data Source toolbox, seperti gambar dibawah ini, maka hasilnya akan seperti berikut

• Nah terakhir tinggal kita isi aja datanya sesuai yang kita inginkan. 

• Jika kita ingin mencari data yang sudah pernah tersimpan, kita bisa mengunakan fitur "FIND" yang dapat memudahkan kita. Berikut Source Code nya

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.IDBukuBindingSource.Filter = "ID'%" & TextBox1.Text & "'"

    End Sub

• Terakhir, jika kita ingin melihat database yang sudah kita isi dan simpan di aplikasi toko buku tersebut, kita bisa buka file Ms.Access yang kita buat tadi seperti pada gambar berikut

Demikian tutorial yang dapat saya buat tentang aplikasi "Toko Buku"

Semoga Bermanfaat :)