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.

TUGAS VB2 MANIPULASI DATA

Tugas VB 2 Koneksi dengan Database 

Pada blog ini saya akan membuat aplikasi untuk sebuah koperasi simpan pinjam,

Seperti biasa pada saat pembuatan aplikasi kita harus membuat project baru terlebih dahulu yang terlihat pada gambar berikut ini:

Kemudian pada windows form1 saya membuat form untuk login bagi nasabah bank atau peminjam untuk melakukan LogIn pada form ini. Username dan Password pada saat memasuki office atau pada saat menunggu antrian untuk melakukan peminjaman pada perusahaan misalnya:

Source Code untuk Button OK

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "diva" Then
            If TextBox2.Text = "12345" Then
                MainForm.Show()
            Else
                MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
            End If
        Else
            MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
        End If
    End Sub
End Class

Sebelum membuat aplikasi pada visual studio saya membuat database yang berjudul DataPinjaman, database tersebut dibuat untuk mengetahui segala yang berhubungan dengan pinjaman pada perusahaan yang memfasilitasi pinjaman yang saya buat ini.

Berikut ini adalah gambar Table yang saya buat untuk para anggota dapat mengetahui tentang jenis pinjaman, besarnya pinjaman, bunga pijaman, danangsuran yang dibayar setiap bulannya.

Berikutnya adalah gambar database table datapeminjaman yang saya buat bagi para peminjam mengisi data ini agar terlihat berapa periode pembayaran pinjaman yang sudah dilakukan :

Query Design ini menghubungkan untuk keterkaitan antara tablekelaspeminjaman dan TableDataPinjaman, klik Query Design, klik Table kedua tulisan table tersebut untuk menghubungkan kedua data tersebut:

Untuk mengkoneksian antara aplikasi yang kita buat dengan database caranya sebagai berikut:

-          Klik datasource yang terletak disebah kiri dan dibawahToolbox

Muncul dialog dan pilih database kemudian klik database hingga Finish maka  database sudah terkoneksi denagn program.

Ketika sudh terkoneksi maka drag datasource yang sudah di koneksikan tadi pada form yang ditambahkan sehingga muncul tampilan sebagai beriku:

1.      Table Kelas Peminjaman

Source code nya yaitu :

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:\diva\Database1.accdb"

        Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO datapeminjam values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("SUKSES")

        objekKoneksi.Close()

    End Sub

End Class

Jika di klik save maka akan muncul seperti ini :

2.      Table Data Peminjaman

Source code nya masih sama seperti diatas yaitu :

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:\diva\Database1.accdb"

        Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO datapeminjam values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("SUKSES")

        objekKoneksi.Close()

    End Sub

End Class

Jika di klik save maka akan muncul seperti ini :

 

Demikian tugas Vb2 ini semoga bermanfaat:) TERIMAKASIH