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

Tugas Pertemuan 6 - Data Gaji Karyawan

Untuk tugas pertemuan 6 ini saya akan membuat aplikasi untuk menghitung gaji perusahaan.

1.Langkah pertama pada tombol Log in kemudian akan muncul form yang memunculkan untk mengisi username dan password perusahaan.

Sourcecode nya yaitu:

Public Class FormLogin

    Sub bersihkan()

        ComboBox1.Text = ""

        ComboBox1.Text = ""

        ComboBox1.Focus()

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (ComboBox1.Text = "diva" And Txtpassword.Text = "123") Then

            MDIParent1.Show()

            Me.Close()

        Else

            MsgBox("Username atau Password yang Anda Masukkan Salah!", , "Peringatan")

            Call bersihkan()

        End If

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Integer

        x = MsgBox("Apakah Anda yakin ingin keluar dari aplikasi?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Close()

            FormSplash.Close()

        End If

    End Sub

End Class

 

2. Setelah akun yang dimiliki benar maka muncul form untuk pengisian data gaji karyawaan sebagai berikut :

 

 

Sourcecode nya yaitu:

Imports Microsoft.Office.Interop.Word

Public Class Form3

    Sub bersih()

        TextBoxNIP.Text = ""

        TextBoxNama.Text = ""

        TextBoxJabatan.Text = ""

        TextBoxGapok.Text = ""

        TextBoxAnggota.Text = ""

        ComboBoxStatus.Text = ""

        TextBoxTunjIstriSuami.Text = ""

        TextBoxTunjAnak.Text = ""

        TextBoxTunjKesehatan.Text = ""

        ComboBoxGol.Text = ""

        ComboBoxJmlAnak.Text = ""

    End Sub

    Function tunjanganistrisuami()

        If ComboBoxStatus.Text = "Lajang" Then

            tunjanganistrisuami = 0

        ElseIf ComboBoxStatus.Text = "Menikah" Then

            tunjanganistrisuami = 8 / 100 * TextBoxGapok.Text

        End If

    End Function

    Function tunjangananak(ByVal jumlahanak)

        'Dim jumlahanak As Integer

        If ComboBoxStatus.Text = "Menikah" Then

            If (jumlahanak = "0") Then

                tunjangananak = 0

            ElseIf (jumlahanak = "1") Then

                tunjangananak = TextBoxGapok.Text * 10 / 100

            ElseIf (jumlahanak = "2") Then

                tunjangananak = TextBoxGapok.Text * 10 / 100 * 2

            ElseIf (jumlahanak = "3") Then

                tunjangananak = TextBoxGapok.Text * 10 / 100 * 3

            Else

                tunjangananak = TextBoxGapok.Text * 10 / 100 * 3

            End If

        Else

            MsgBox("Terjadi Kesalahan Pada Status Anda!", , "Peringatan")

        End If

    End Function

    Private Sub ButtonMulai_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonMulai.Click

        Call bersih()

    End Sub

    Private Sub ButtonHitung_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonHitung.Click

        Dim kelasgaji As ClassGaji

        kelasgaji = New ClassGaji

        LabelGaKot.Text = kelasgaji.gajikotor(TextBoxGapok.Text, TextBoxTunjIstriSuami.Text, TextBoxTunjAnak.Text, TextBoxTunjKesehatan.Text)

        Dim penghasilannetto As Integer

        Dim pkp As Integer

        Dim pph21 As Integer

        penghasilannetto = LabelGaKot.Text - (0.05 * LabelGaKot.Text)

        If ComboBoxStatus.Text = "Lajang" Then

            pkp = penghasilannetto - 2025000

            pph21 = 0.05 * pkp

            Labelpph.Text = pph21

        ElseIf ComboBoxStatus.Text = "Menikah" Then

            If ComboBoxJmlAnak.Text = "1" Then

                pkp = penghasilannetto - 2025000 - 168750 - 168750

                pph21 = 0.05 * pkp

                Labelpph.Text = pph21

            ElseIf ComboBoxJmlAnak.Text = "2" Then

                pkp = penghasilannetto - 2025000 - 168750 - 168750

                pph21 = 0.05 * pkp

                Labelpph.Text = pph21

            ElseIf ComboBoxJmlAnak.Text = "3" Then

                pkp = penghasilannetto - 2025000 - 168750 - 168750

                pph21 = 0.05 * pkp

                Labelpph.Text = pph21

            Else

                pkp = penghasilannetto - 2025000 - 168750 - 168750

                pph21 = 0.05 * pkp

                Labelpph.Text = pph21

            End If

        End If

        Labelgaber.Text = Val(LabelGaKot.Text) - Val(Labelpph.Text)

    End Sub

    Private Sub ComboBoxGol_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBoxGol.SelectedIndexChanged

        Dim kelasgaji As ClassGaji

        kelasgaji = New ClassGaji

        TextBoxJabatan.Text = kelasgaji.jabatan(ComboBoxGol.Text)

        TextBoxGapok.Text = kelasgaji.gajipokok(ComboBoxGol.Text)

    End Sub

    Private Sub ComboBoxStatus_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBoxStatus.SelectedIndexChanged

        TextBoxTunjIstriSuami.Text = tunjanganistrisuami()

    End Sub

    Private Sub TextBoxAnggota_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBoxAnggota.TextChanged

        Dim kelasgaji As ClassGaji

        kelasgaji = New ClassGaji

        TextBoxTunjKesehatan.Text = kelasgaji.tunjangankesehatan(TextBoxAnggota.Text)

    End Sub

    Private Sub ComboBoxJmlAnak_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBoxJmlAnak.SelectedIndexChanged

        TextBoxTunjAnak.Text = tunjangananak(ComboBoxJmlAnak.Text)

    End Sub

    Private Sub ButtonSelesai_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonSelesai.Click

        Dim x As Integer

        x = MsgBox("Apakah Anda yakin ingin keluar dari program?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myapp As New Microsoft.Office.Interop.Word.Application

        Dim mybook As New Microsoft.Office.Interop.Word.Document

        mybook = myapp.Documents.Open("D:\ambar\datagajikaryawan.doc")

        mybook.Bookmarks("nama") = TextBoxNama.Text

        mybook.Bookmarks("NIP") = TextBoxNIP.Text

        mybook.Bookmarks("golongan") = ComboBoxGol.Text

        mybook.Bookmarks("jabatan") = TextBoxJabatan.Text

        mybook.Bookmarks("gapok") = TextBoxGapok.Text

        mybook.Bookmarks("status") = ComboBoxStatus.Text

        mybook.Bookmarks("jumnak") = ComboBoxJmlAnak.Text

        mybook.Bookmarks("jmkel") = TextBoxAnggota.Text

        mybook.Bookmarks("tunis") = TextBoxTunjIstriSuami.Text

        mybook.Bookmarks("tunak") = TextBoxTunjAnak.Text

        mybook.Bookmarks("tukes") = TextBoxTunjKesehatan.Text

  mybook.Bookmarks("gator") = LabelGaKot.Text

        mybook.Bookmarks("pph21") = Labelpph.Text

        mybook.Bookmarks("gaber") = Labelgaber.Text

        myapp.Quit()

    End Sub

End Class

3.Automaion pada aplikasi ini adalah pada microsoft word jadi saya membuat untuk tempat  peyimpanan data sebagai berikut :

 

 

4. Kemudian tersedia menu-menu pada MDIparent yang berupa menustrip untuk menampilkan data, menginput, mengedit, dsb. Berikut adalah menu-menu yang saya buat pada mdiparent berserta codenya:

 

Sourcecode nya yaitu:

Imports System.Windows.Forms

Public Class MDIParent1

    Dim frm1 As New Form3

    Dim frm2 As New FormOpen

    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.Show()

    End Sub

    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

        formsplash.Close()

    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.Cut()

    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.Copy()

    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.Paste()

    End Sub

    Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click

        Dim nofile As Integer

        nofile = FreeFile()

        FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir VB\gajitugas4.csv", OpenMode.Input)

        frm2.MdiParent = Me

        frm2.RichTextBox1.Text = InputString(nofile, LOF(nofile))

        frm2.Show()

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.ArrangeIcons)

    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.Hide()

    End Sub

    Private Sub UndoToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles UndoToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.Undo()

    End Sub

    Private Sub RedoToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles RedoToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.ClearUndo()

    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SelectAllToolStripMenuItem.Click

        frm1.MdiParent = Me

        frm1.TextBoxAnggota.SelectAll()

    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click

        Dim nofile As Integer

        nofile = FreeFile()

        FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir VB\gajitugas4.csv", OpenMode.Input)

        frm2.MdiParent = Me

        frm2.RichTextBox1.Text = InputString(nofile, LOF(nofile))

        frm2.Show()

    End Sub

    Private Sub OpenToolStripButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripButton.Click

        Dim nofile As Integer

        nofile = FreeFile()

        FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir VB\gajitugas4.csv", OpenMode.Input)

        frm2.MdiParent = Me

        frm2.RichTextBox1.Text = InputString(nofile, LOF(nofile))

        frm2.Show()

    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseToolStripMenuItem.Click

        frm1.MdiParent = Me

        Dim x As Integer

        x = MsgBox("Apakah Anda yakin ingin keluar dari program?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Hide()

            FormSplash.Close()

        End If

    End Sub

End Class

5. Data yang ingin diliahat ataupun ditampilkan bautlah form baru contoh seperti yang saya buat form beserta toolbox -> RichTextBox1

Demikian program atau aplikasi yang untuk menghitung gaji karyawan berserta automationnya ke dalam ms.word.

Terimakasih..