YOLA FITRIANA
1506761173

UAS Lab Pengantar Pemrograman Bisnis 2

Assalamu 'alaikum...
Saat ini saya ingin berbagi mengenai sebuah aplikasi yang dapat dikoneksikan dengan Ms. Access.
Aplikasi ini bertujuan untuk mempermudah input data bagi petugas asrama untuk para penghuni di Asrama Mahasiswa UI dan  mempermudah dalam menemukan data kamar yang sudah dihuni.

Berikut Tampilannya :

Berikut adalah source code dari aplikasi :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Lab P. Pembis2_YOLA FITRIANA 1506761173\DBasrama.accdb"
    Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDbDataReader
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        Dim Tambahdata As String = "INSERT INTO TableAsrama values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
        Dim Ocmd = New OleDbCommand(Tambahdata, ObjekKoneksi)
        Ocmd.ExecuteNonQuery()

        ObjekKoneksi.Close()
        MsgBox("Sukses !")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ID_Asrama = InputBox("Masukkan ID Asrama")

        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        Dim Ocmd As New OleDbCommand("SELECT * FROM TableAsrama Where ID_Asrama='" + ID_Asrama + "'", ObjekKoneksi)
        xReader = Ocmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TextBox1.Text = xReader("ID_Asrama")
            TextBox2.Text = xReader("Nama")
            TextBox3.Text = xReader("NPM")
            TextBox4.Text = xReader("Bulan_CheckIn")
            TextBox5.Text = xReader("Gedung")
            TextBox6.Text = xReader("No_Kamar")
        Else
            MsgBox("ID Asrama tidak ditemukan")

        End If
        xReader.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sql As String = "Update TableAsrama set Nama='" + TextBox2.Text + "' where ID_Asrama='" + TextBox1.Text + "'"

        Dim oCmd As New OleDbCommand
        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        oCmd.Connection = ObjekKoneksi
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()

        MsgBox("Sukses !")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Form3.Show()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim delete = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Delete")
        If delete = vbYes Then
            ObjekKoneksi.Close()
            ObjekKoneksi.Open()
            Dim hapus As String = "Delete from TableAsrama where ID_Asrama='" + TextBox1.Text + "'"
            Dim oCmd As New OleDbCommand
            ObjekKoneksi.Close()
            ObjekKoneksi.Open()
            oCmd.Connection = ObjekKoneksi
            oCmd.CommandText = hapus

            oCmd.ExecuteNonQuery()
            MsgBox("Data sudah terhapus", vbArchive)
        End If
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Me.Close()
    End Sub
End Class

Tugas UTS Pengantar Pemrograman Bisnis 2

Assalamu 'alaikum wa rahmatullaahi wa barakaatuh... 

Saya akan menjelaskan aplikasi sederhana untuk penjualan, berikut cara menggunakannya :

1.      Pertama masukkan data berupa Tanggal transaksi dan Nama Pelanggan.

2.      Pilih barang yang sudah tersedia yang akan dibeli dengan cara klik panah berbentuk segitiga terbalik.

3.      Saat barang sudah dipilih, maka akan sekaligus keluar harga barang. Jadi kita hanya perlu memasukkan jumlah barang yang diinginkan (pcs).

4.      Klik button “Hitung” untuk menghitung jumlah pembayaran. Misalnya kita memilih Dress. Maka akan keluar Jumlah dari harga barang dikali pcs nya.

6.      Klik “Save Data” untuk menyimpan data ke Ms. Word (sebagai bukti pembelian) pelanggan dan sekaligus ke Ms. Excel sebagai (arsip penjualan ) pihak toko.

ini adalah hasil dari save data di Ms. Excel :

dan ini adalah hasil dari save data di Ms. Word :

Keterangan :

• Button Save Data berfungsi untuk mensave data ke Microsoft Excel dan juga Microsoft Word yang telah disiapkan sebelumnya yaitu dengan nama dokumen “Barang.xlsx” dan “Barang.docx”
• Dalam file Microsoft word dengan nama dokumen “Barang” telah di bookmark NamaPelanggan, tanggal, NamaBarang, HargaBarang, Pcs, dan Jumlah agar dapat terhubung pada Visual Studio yang akan di Add Reference.
• Sedangkan dalam file Microsoft excel dengan nama dokumen “Barang” telah disiapkan cell Nama Pelanggan, Tanggal transaksi, Nama Barang, Harga Barang, Pcs, dan Jumlah sehingga saat di Add Reference dapat terhubung sesuai dimana cell berada.
• Pada source code bagian "D:\1506761173__YOLA FITRIANA\Barang.xlsx" silahkan sesuaikan dengan tempat penyimpanan dikomputer anda...

Ini adalah Soure Code dari aplikasi diatas :

Public Class Form1

    Dim ExcelApp As New Microsoft.Office.Interop.Excel.Application

    Dim ExcelBook As Microsoft.Office.Interop.Excel.Workbook

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

    Dim DocWord As Microsoft.Office.Interop.Word.Document

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

        ExcelBook = ExcelApp.Workbooks.Open("D:\1506761173__YOLA FITRIANA\Barang.xlsx")

        ExcelApp.Range("A8").Value = Txtnamabrg.Text

        ExcelApp.Range("E5").Value = Txtpelanggan.Text

        ExcelApp.Range("B8").Value = Txthargabrg.Text

        ExcelApp.Range("C8").Value = Txtpcs.Text

        ExcelApp.Range("E4").Value = Txttanggal.Text

        ExcelBook.Save()

        ExcelApp.Visible = True

        DocWord = WordApp.Documents.Open("D:\1506761173__YOLA FITRIANA\Barang.docx")

        DocWord.Bookmarks("NamaBarang").Select()

        WordApp.Selection.TypeText(Txtnamabrg.Text)

        DocWord.Bookmarks("HargaBarang").Select()

        WordApp.Selection.TypeText(Txthargabrg.Text)

        DocWord.Bookmarks("Jumlah").Select()

        WordApp.Selection.TypeText(Txtjumlah.Text)

        DocWord.Bookmarks("Pcs").Select()

        WordApp.Selection.TypeText(Txtpcs.Text)

        DocWord.Bookmarks("NamaPelanggan").Select()

        WordApp.Selection.TypeText(Txtpelanggan.Text)

        DocWord.Bookmarks("tanggal").Select()

        WordApp.Selection.TypeText(Txttanggal.Text)

        DocWord.Save()

        WordApp.Visible = True

    End Sub

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

        Txtjumlah.Text = Val(Txtpcs.Text) * Val(Txthargabrg.Text)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Txtnamabrg.SelectedIndexChanged

        Select Case Txtnamabrg.Text

            Case "T-Shirt"

                Txthargabrg.Text = 100000

            Case "Jaket"

                Txthargabrg.Text = 200000

            Case "Dress"

                Txthargabrg.Text = 240000

            Case "Jeans"

                Txthargabrg.Text = 180000

            Case "Rok"

                Txthargabrg.Text = 120000

            Case "Kemeja"

                Txthargabrg.Text = 220000

        End Select

    End Sub

End Class



Yola Fitriana - 1506761173