Halo semuanya! Pada hari ini saya akan menjelaskan mengenai manipulasi data. Saya akan membuat form dan data mengenai pembelian barang, pencatatannya dilakukan oleh pegawai toko buku.
Hal pertama yang harus kita lakukan adalah membuat halaman baru pada Microsoft Access. Buatlah halaman pada Microsoft Access seperti berikut:
Setelah itu, kita akan membuat query yang berisi rumus-rumus yang diperlukan untuk menghitung total harga, diskon, total pembelian, dan kembalian.
1. Klik Create, lalu pilih Query Design
2. Klik Add untuk menambahkan table yang kamu inginkan, kemudian click Close.
Kemudian masukkan field – field table ke dalam kisi QBE bagian bawah dengan cara klik tahan nama field, kemudian geser ke bagian fungsi QBE.
Lalu tulis rumus-rumus berikut pada kolom total harga, diskon, total pembelian, dan kembalian pada kolom yang tersedia:
- TotalHarga: [JumlahBuku]*[HargaSatuan]
- Diskon: IIf([Status]="Member";[TotalHarga]*10/100;0)
- TotalPembelian: [TotalHarga]-[Diskon]
- Kembalian: [UangPembayaran]-[TotalPembelian]
3. Save query yang tela kita buat. Jika setelah Anda mengisi jumlah buku, harga satuan, status, dan total harga, diskon, total pembelian, serta kembalian otomatis dapat menghitung angka yang telah Anda masukkan, maka query berhasil dibuat.
Lalu simpan halaman pekerjaan Microsoft Access Anda dengan cara klik Office Button, lalu klik Save.
Setelah itu kita membuat project pada Visual Basic. Kali ini kita akan membuat 3 Form, yaitu:
1. Form1
Kita akan memasukkan atau menghubungkan pekerjaan di Microsoft Access yang telah kita buat dengan Visual Basic yang sedang kita buat.
Pada Tab General Form 1, klik Data Source, lalu klik Add New Data Source.
Pilih Database, lalu klik Next
Pilih Dataset, setelah itu klik Next
Klik Browse dan pekerjaan kita yang telah dibuat di Microsoft Access, lalu klik OK
Expand pada "Connection string that you will save in the application" lalu copy untuk koding kita nanti, setelah itu klik Next
Jika Ada pertanyaan seperti dibawah ini, pilih Yes
Setelah itu klik Next
Lalu Check pada Tables dan klik Finish
Setelah itu, pada Tab General, pilih Data Source, klik double pada DataPembeliDataSet, lalu klik double pada TablePembeli, setelah itu drag isi TablePembeli satu-satu dan susun seperti berikut:
Tambahkan pula 4 Button dan ganti Text Button seperti gambar diatas
Sebelum koding Public Class Form1, tulislah koding berikut ini:
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Koding untuk Button Clear:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
IDPembeliTextBox.Text = ""
NamaPembeliTextBox.Text = ""
EmailTextBox.Text = ""
JumlahBukuTextBox.Text = ""
HargaSatuanTextBox.Text = ""
TotalHargaTextBox.Text = ""
StatusTextBox.Text = ""
DiskonTextBox.Text = ""
TotalPembelianTextBox.Text = ""
UangPembayaranTextBox.Text = ""
KembalianTextBox.Text = ""
End Sub
Koding untuk Button Save:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Shabrina Ghassani\Lab VB2\Tugas VB 2 - Shabrina Ghassani\DataPembeli.accdb"
Dim tambah As String = "INSERT INTO TablePembeli values('" & IDPembeliTextBox.Text & "', '" & NamaPembeliTextBox.Text & "','" & EmailTextBox.Text & "','" & JumlahBukuTextBox.Text & "','" & HargaSatuanTextBox.Text & "','" & TotalHargaTextBox.Text & "','" & StatusTextBox.Text & "','" & DiskonTextBox.Text & "','" & TotalPembelianTextBox.Text & "','" & UangPembayaranTextBox.Text & "','" & KembalianTextBox.Text & "')"
Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
objekkoneksi.Open()
ocmd.ExecuteNonQuery()
MsgBox("Sukses")
objekkoneksi.Close()
End Sub
Koding untuk Button Check:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form2.Show()
End Sub
Koding untuk Button Exit:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
2. Form2
Pada Tab General, pilih Data Source, lalu double klik DataPembeliDataSet, setelah itu drag TablePembeli ke Form2. Berikut adalah tampilannya:
3. FormLogin
Masukkan 2 Label, 2 TextBox, serta 1 Button dan susun seperti berikut ini:
Koding untuk Button Login:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "Pegawai" And TextBox2.Text = "123456" Then
Form1.Show()
Form2.Hide()
Else
MsgBox("Sorry, Wrong Username/Password")
End If
End Sub
Untuk memilih Form mana yang muncul pertama kali saat kita debug, pilih Project, lalu klik Tugas VB 2 - Shabrina Ghassani Properties, setelah itu pilih Application, lalu pada Startup Form pilih form yang Anda inginkan untuk muncul pertama kali. Tetapi dalam kasus ini, saya memilih FormLogin untuk menjadi Startup Form
Berikut ini adalah hasil dari pekerjaan yang telah dilakukan saat di debug:
Masukkan username dan password sesuai koding. Pada kasus ini, username nya adalah Pegawai dan passwordnya adalah 123456, setelah itu klik Login.
Berikut adalah form yang terbuka setelah kita meng-klik Login. Data yang tertera adalah data pertama yang sudah tertera di Microsoft Access kita. Untuk menambahkan data baru, maka kita harus mengosongkan semua TextBox yang ada dengan cara meng-klik Button Clear.
Setelah semua TextBox kosong, Anda dapat memasukkan data yang baru.
Jika data telah ditulis, maka klik Button Save dan akan keluar MessageBox seperti berikut yang menandakan data sukses di input.
Untuk mengecek data yang sudah tersimpan, klik Button Check, lalu Form2 akan muncul. Pada Form2 berikut, data baru yang telah kita masukkan sudah ter-input.
Setelah Anda memasukkan data-data baru dan sudah berhasil tersimpan, Anda dapat keluar dari Form dengan cara meng-klik Button Exit.
Sekian penjelasan dari saya, semoga bermanfaat untuk kita semua. Aamin Aamiin :)
No comments:
Post a Comment