Adhimas Putra Kaldera
1306470155
Yah hari ini saya akan menjelaskan tentang cara memanipulasi dengan menghubungkan database dan visual basic/ databasenya saya menggunakan microsoft acces 2007 dan visual basicnya saya menggunakan visual studio 2012.
Saya akan membuat Aplikasi Toko Game Kaldera
Microsoft Acces
Pertama-tama kita akan membuat databasenya
pertama kita buat dulu tabel stok game
kita buat seperti ini:
ini designnya
dan ini tampilannya
setelah itu kita buat tabel ke 2
kita buat designya seperti ini
lalu kita isi tabelnya seperti ini
Hanya id pembeli dan id game saja yang di isi
Lalu kita bikin querynya
hasil dari querynya
VB
Saya memakai visual studio 2012
pertama kita akan menghubungkan microsoft acces kita tadi dengan vb kita
pertama tekan data sources lalu add new data source seperti gambar di bawah
lalu pilih database dan klik next
pilih dataset dan klik next
klik new connection dan pilih microsoft acces database file lalu browse data microsoft acces kita tadi lalu klik ok
jika ada pertanyaan klick yes
lalu klik next
checklist table lalu tekan finish
pertama tekan data sources lalu add new data source seperti gambar di bawah
lalu pilih database dan klik next
pilih dataset dan klik next
klik new connection dan pilih microsoft acces database file lalu browse data microsoft acces kita tadi lalu klik ok
jika ada pertanyaan klick yes
lalu klik next
checklist table lalu tekan finish
FormLogin
Pertama kita buat form login
Tampilanny seperti ini
untuk codingannya sendiri
Public Class FormLogin
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If UsernameTextBox.Text = "adhimas" And PasswordTextBox.Text = "kaldera" Then
MsgBox("Password benar")
Formmenu.Show()
Me.Hide()
Else
MsgBox("Username dan Password salah", MsgBoxStyle.Critical, "Error")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Form 2
berlanjut ke form 2 kita buat menunya
designya seperti ini
Codingannya ini
Public Class Formmenu
Private Sub Stock_Click(sender As Object, e As EventArgs) Handles Stock.Click
FormStock.Show()
End Sub
Private Sub Pembelian_Click(sender As Object, e As EventArgs) Handles Pembelian.Click
Formpembelian.Show()
End Sub
End Class
Form 3
Kemudian pada form 3 ini saya akan membuat form stock game barang
designya seperti ini
codingannya
designya seperti ini
codingannya
Private Sub Tabel_Stok_GameBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabel_Stok_GameBindingNavigatorSaveItem.Click
Me.Validate()
Me.Tabel_Stok_GameBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)
End Sub
Private Sub FormStock_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Tabel_Stok_GameTableAdapter.Fill(Me.DatabaseDataSet.Tabel_Stok_Game)
End Sub
Form 4
Pada form 4 ini saya buat form Pembelian
Designya seperti ini
codingnya
Private Sub Tabel_PembelianBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabel_PembelianBindingNavigatorSaveItem.Click
Me.Validate()
Me.Tabel_PembelianBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)
End Sub
Private Sub Formpembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Tabel_PembelianTableAdapter.Fill(Me.DatabaseDataSet.Tabel_Pembelian)
End Sub
Tes Program
selanjutnya akan saya test program
pertama kita tes form login dengan
username adhimas
dan pasword kaldera
jika berhasil seperti ini
lalu akan langsung lanjut ke form 2 yaitu form2
seperti ini
jika kita memilih stok game akan menuju form stok game
dan jika kita memilih button pembelian game akan menuju form pembeliangame
Nah sekarang fungsi pada formstok dan formpembelian
tombol berbentuk tambah di gunakan untuk menambahakn data,x untuk mengurangi data
dan tombol yang seperti floppy disk untuk mensave data
Sekian penuturan dari saya .
Mohon maaf kalau ada salah-salah
Terimakasih
