Ujian Akhir Semester 3 Lab Pemrograman Bisnis 2

Hari ini saya akan menjelaskan tentang cara membuat aplikasi windows form berbasis visual studio 2012 dengan campuran Report Wizard dan Main Menu. Berikut langkah2 nya check this out :D

Langkah pertama tentunya kita membuka Microsoft Access 2010 dan Visual Studio 2012

Langkah kedua:
Pada Visual Studio 2012, kita menambahkan beberapa label, textbox dan button
Pada Microsoft Access 2010, kita mencocokkan field name dengan data type pada primary key maupun foreign key

Langkah ketiga yaitu pembuatan Main Menu terbuat dari MenuStrip yang tersedia di ToolBox

File berisikan : Sudah menjadi Member

                         Belum menjadi Member

Transaksi berisikan : Data Pembelian

Report berisikan: Data barang ( Subtotal & Grandtotal )

                                                 ( Expand )

Langkah keempat yaitu mengklik " Sudah Menjadi Member " apabila sudah menjadi member The Body Shop, maka akan muncul seperti ini:

*Jika belum menjadi Member The Body Shop, maka klik " Belum Menjadi Member" maka akan muncul seperti ini:

Langkah kelima yaitu Data Pembelian. Data ini berisikan detail barang yang customer pesan/dibutuhkan

Data-data yang telah diisi customer akan muncul di microsoft access untuk direkapitulasi kembali kebutuhan pelanggan

Langkah keenam yaitu Report Wizard pada Data Barang ada 2 output, yaitu:

a) termasuk Subtotal & Grandtotal

Klik ReportView pada ToolBox lalu drag down pada dalam form

mengklik tombol segitiga tidur mengarah kanan (orang-orang mengatakannya PLAY) itu diklik lalu pilih Design A New Report. Tapi sebelumnya harus sudah melakukan Data Sources.

Cara melakukan Data Sources adalah:

Kalau yang tampak dibawah ini outputnya ada yang berbeda tampilan tetapi cara memperolehnya sama dengan tampilan untuk mendapatkan subtotal dan grandtotal

Source Code

Public Class Form1

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

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

        form2.show()

    End Sub

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

        TxtID.Text = ""

        TxtPassword.Text = ""

    End Sub

End Class

Public Class Form2

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

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

        Form6.Show()

    End Sub

End Class

Public Class Form3

    Private Sub SudahMenjadiMemberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SudahMenjadiMemberToolStripMenuItem.Click

        Form1.Show()

    End Sub

    Private Sub BelumMenjadiMemberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BelumMenjadiMemberToolStripMenuItem.Click

        Form4.Show()

    End Sub

    Private Sub SubtotalGrandtotalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SubtotalGrandtotalToolStripMenuItem.Click

        Form5.Show()

    End Sub

End Class

Imports System.Data

Imports System.Data.OleDb

Public Class Form4

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\dara\Desktop\DatabasePelangganBaru.accdb"

    Dim objeKoneksi As New OleDb.OleDbConnection(koneksi)

    Private xReader As OleDbDataReader

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

        objeKoneksi.Close()

        objeKoneksi.Open()

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

        Dim ocmd = New OleDbCommand(tambah, objeKoneksi)

        ocmd.ExecuteNonQuery()

        objeKoneksi.Close()

        MsgBox("Sukses")

    End Sub

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

        Me.Close()

    End Sub

End Class

Sekian informasi yang bisa saya bagikan mengenai report wizard dengan main menu. Mohon maaf apabila ada kesalahan tulisan/typo, saya meminta maaf sebesar-besarnya :)