APLIKASI PERUSAHAAN JASA MODAL

Assalamulaikum wr. Wb.

Pada kesempatan ini, saya akan membuat sebuah aplikasi sebagai tugas UAS Take Home yang masih ada kaitannya dengan tugas terakhir saya yaitu manipulasi data dengn koneksi dengan file Database. Sekedar mereview tugas saya sebelumya yaitu saya mambuat aplikasi untuk jenis-jenis peminjaman yang ada ada pada ssebuah perusahaan yang menyediakan pinjaman berupa Cash, Inventory dan Piutang.

Pada tugas ini saya akan membuat database input untuk petugas sebuah perusahaan jasa yang menyediakan pinjaman bagi mereka para pengusaha yang kesulitan dalam masalah keuangan/ Modal.

Pertama saya membuat database Table Petugas dimana untuk mengimput :

-          ID Petugas dari suatu perusahaan

-          Nama Petugas, kemudian

-          Gender

Tampilannya sebagai berikut:

Yang kedua saya akan membuat table untuk mengisikan data transaksi pada hari tersebut, bagi petugas yang bertugas untuk mencatat setiap transaksi yang terjadi apabila ada customer atau pelanggan yang berniat untuk meminjam modal.

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

Pertama, seperti biasa kita membuat project baru terlebih dahulu. Langkahnya sebagai berikut:

Beri nama atau judul sesuai yang kita inginkan kemudian pada form1 saya membuat input untuk yang pertama adalah Tale Petugas. Designnya sebagai berikut:

SOURCE CODE

SIMPAN

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=|DataDirectory|\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

HAPUS

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

       

    End Sub

CARI

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles CariButton.Click
        If RadioButton1.Checked Then
            Me.Table_PetugasBindingSource.Filter = "IDPetugas ='" & TextBox1.Text & "'"
        End If
        If RadioButton2.Checked Then
            Me.Table_PetugasBindingSource.Filter = "Nama_Petugas LIKE'%" & TextBox2.Text & "'"
        End If
        If RadioButton3.Checked Then
            Me.Table_PetugasBindingSource.Filter = "Gender LIKE'%" & TextBox3.Text & "'"
        End If
    End Sub

Kemudian pada form2 saya membuat input untuk data transaksi, designnya sebagai berikut:

SOURCE CODE 

SIMPAN

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

PublicClass Form2

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=|DataDirectory|\DataPerusahaan.accdb"

Dim obkoneksi AsNew OleDb.OleDbConnection(koneksi)

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

Dim ocmd = New OleDbCommand(tambah, obkoneksi)

        obkoneksi.Open()

        ocmd.ExecuteNonQuery()

        MsgBox("Success!!!")

        obkoneksi.Close()

EndSub

HAPUS

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

    End Sub

CARI

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles CariButton.Click
        If RadioButton1.Checked Then
            Me.Table_TransaksiBindingSource.Filter = "IDTransaksi ='" & TextBox1.Text & "'"
        End If
        If RadioButton2.Checked Then
           Me.Table_TransaksiBindingSource.Filter = "No_Rekening LIKE'%" & TextBox2.Text & "'"
        End If
        If RadioButton3.Checked Then
           Me.Table_TransaksiBindingSource.Filter = "Jumlah_Transaksi LIKE'%" & TextBox3.Text & "'"
        End If

        If RadioButton4.Checked Then
           Me.Table_TransaksiBindingSource.Filter = "Tanggal_Transaksi LIKE'%" & TextBox4.Text & "'"
        End If
    End Sub

untuk menampilkan Textbox, Lable dll kita tinggal men-Drag toolbox tersebut pada data source yaitu database yang sudah kita hubungkan atau bisa juga kita meambahkannya langsung pada toolbox.

Nah ini adalah cara menghubungkan vb dengan database yang sudah kita buat:

-          Add data source

-          Pilih Database

-          Kemudian Klik Nem Connection dan cari dimana database yang kita buat itu disimpan setelah itu Test koneksinya terlebih dahulu untuk memastikan apakah aplikasi yang kita buat sudah terhubung atau belum.

-          Kemudian ikuti langkah berikut sampai datanya sudah terhubung.

 

-          Maka aplikasi yang sudah anda buat sudah tehubungan dengan databasenya. Lihat tampilan sebagai berikut ini :

Demikian Aplikasi yang saya buat untuk tugas UAS Pemograman Bisnis 2 ini. Semoga bermanfaat Terimakasih:-)

Wassalamualaikum wr. Wb.