UAS VB2 SEMESTER 3

HALOOOO......
Assalamulaikum wr. Wb. 

Pada kesempatan ini, untuk tugas UAS VB2 ini saya akan membuat sebuah aplikasi mengenai manipulasi data dengan koneksi dengan file Database.

Pada tugas ini saya akan membuat database input untuk petugas dan pelanggan sebuah perusahaan pegadaian.

Pertama saya membuat database untuk petugas pegadaian dan database untuk pelanggan :

1. database untuk petugas

2. database untuk pelanggan

Setelah membuat database untuk aplikasi manipulasi data ini, langkah selanjutnya adalah membuat design aplikasi pada  visual basic. 

Pertama, kita membuat form terlebih dahulu. Pada form1 langkahnya sebagai berikut:

Beri nama atau judul sesuai yang kita inginkan kemudian pada form1 saya membuat input Log In pelanggan :

Source code nya adalah sebagai berikut :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "DIVA" Then
            If TextBox2.Text = "123" 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

Pada tahap 2 pada form berikut saya membuat input untuk petugas, yaitu sebagai berikut :

Dan pada tahap 3 pada form selanjutnya saya membuat input untuk pelanggan yaitu sebagai berikut :

SOURCE CODE :

• SAVE

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Validate()
        Me.InventoryBindingSource.EndEdit()
        InventoryTableAdapter.Update(Me.Inventory_VB2DataSet.Inventory)

      Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

PublicClass Form1

PrivateSub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Dim koneksi AsString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="D:\uas vb 2 fix bgt\DataPerusahaan.accdb""

Dim obkoneksi AsNew OleDb.OleDbConnection(koneksi)

Dim tambah AsString = "INSERT INTO Table_Petugas values ('"& TextBox1.Text &"', '"& TextBox2.Text &"', '"& TextBox3.Text &"')"

Dim ocmd = New OleDbCommand(tambah, obkoneksi)

        obkoneksi.Open()

        ocmd.ExecuteNonQuery()

        MsgBox("Success!!!")

        obkoneksi.Close()

EndSub

• DELETE

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        inputdata.RemoveCurrent()
    End Sub

• FIND

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles FindButton.Click
        If RadioButton1.Checked Then
            Me.Table_TransaksiBindingSource.Filter = "ID pelanggan ='" & TextBox1.Text & "'"
        End If
        If RadioButton2.Checked Then
           Me.Table_TransaksiBindingSource.Filter = "Nama pelanggan LIKE'%" & TextBox2.Text & "'"
        End If
        If RadioButton3.Checked Then
           Me.Table_TransaksiBindingSource.Filter = "Jenis barang gadai LIKE'%" & TextBox3.Text & "'"

        End If
    End Sub

Untuk menampilkan database yang telah dibuat yaitu kita men-Drag toolbox tersebut pada data source yaitu database yang sudah kita hubungkan.

Cara menghubungkan vb dengan database yang sudah kita buat:

-          Add data source :

lalu klik FINISH

Demikian Aplikasi yang telah saya buat

Semoga bermanfaat

Wassalamualaikum wr. Wb.