Aplikasi Pemesanan Pernikahan Syari Dengan MS Access Pada Visual Studio 2012

Bismillah,
Saya akan memberikan pengetahuan sedikit saya mengenai aplikasi yang telah saya buat dengan menggunakan visual studio 2012 dan MS Access
Langsung saja lihat bagaimana saya membuatnya!

1.  Membuat tampilan Form Menu Utama seperti berikut

 Source code yang di gunakan:
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Paket.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        layanan.Show()
        Me.Hide()
    End Sub

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

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        tutorial.Show()
        Me.Hide()
    End Sub

End Class

2. Membuat Form Tutorial Seperti berikut

3. Membuat Form Paket seperti berikut

Agar dapat dijalankan, adapun source code nya:

Public Class Paket

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        dekor1.Checked = True
        dekor2.Checked = True
        dekor3.Checked = True
        dekor4.Checked = True
        dekor5.Checked = True
        dekor6.Checked = True
        rias1.Checked = True
        rias2.Checked = True
        b1.Checked = True
        b2.Checked = True
        b3.Checked = True
        b4.Checked = True
        b5.Checked = True
        b6.Checked = True
        bice.Checked = True
        bsoto.Checked = True
        bsiomay.Checked = True
        ya1.Checked = True
        tdk1.Checked = False
        ya2.Checked = True
        tdk2.Checked = False
        ya3.Checked = True
        tdk3.Checked = False
        bonus1.Checked = True
        bonus2.Checked = True
        bonus3.Checked = True
        txtporsi.Text = "800"
    End Sub

    Private Sub Paket_Load(sender As Object, e As EventArgs) Handles Me.Load
        cbgedung.Items.Add("Masjid Agung AT TIN")
        cbgedung.Items.Add("Masjid Agung Sunda kelapa")
        cbgedung.Items.Add("Masjid Baiturrahman MPR/DPR RI")
        cbgedung.Items.Add("Masjid Raya Pondok Indah")
        cbgedung.Items.Add("Masjid Al BIna Gelora Bungkarno")
        cbgedung.Items.Add("Masjid Islaic Centre Jakarta")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Transaksi.Show()
        Me.Hide()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        dekor1.Checked = True
        dekor2.Checked = True
        dekor3.Checked = True
        dekor4.Checked = True
        dekor5.Checked = True
        dekor6.Checked = True
        rias1.Checked = True
        rias2.Checked = True
        b1.Checked = True
        b2.Checked = True
        b3.Checked = True
        b4.Checked = True
        b5.Checked = True
        b6.Checked = True
        bice.Checked = True
        bsoto.Checked = True
        bsiomay.Checked = True
        ya1.Checked = True
        tdk1.Checked = False
        ya2.Checked = True
        tdk2.Checked = False
        ya3.Checked = True
        tdk3.Checked = False
        bonus1.Checked = True
        bonus2.Checked = True
        bonus3.Checked = True
        txtporsi.Text = "600"
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        dekor1.Checked = True
        dekor2.Checked = True
        dekor3.Checked = True
        dekor4.Checked = True
        dekor5.Checked = True
        dekor6.Checked = True
        rias1.Checked = True
        rias2.Checked = True
        b1.Checked = True
        b2.Checked = True
        b3.Checked = True
        b4.Checked = True
        b5.Checked = True
        b6.Checked = True
        bice.Checked = True
        bsoto.Checked = True
        bsiomay.Checked = True
        ya1.Checked = True
        tdk1.Checked = False
        ya2.Checked = True
        tdk2.Checked = False
        ya3.Checked = True
        tdk3.Checked = False
        bonus1.Checked = True
        bonus2.Checked = True
        bonus3.Checked = True
        txtporsi.Text = "400"
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        dekor1.Checked = True
        dekor2.Checked = True
        dekor3.Checked = True
        dekor4.Checked = True
        dekor5.Checked = True
        dekor6.Checked = True
        rias1.Checked = True
        rias2.Checked = True
        b1.Checked = True
        b2.Checked = True
        b3.Checked = True
        b4.Checked = True
        b5.Checked = True
        b6.Checked = True
        bice.Checked = True
        bsoto.Checked = True
        bsiomay.Checked = True
        ya1.Checked = True
        tdk1.Checked = False
        ya2.Checked = True
        tdk2.Checked = False
        ya3.Checked = True
        tdk3.Checked = False
        bonus1.Checked = True
        bonus2.Checked = True
        bonus3.Checked = True
        txtporsi.Text = "200"
    End Sub
End Class

4. Membuat Form Layanan seperti berikut

Agar berjalan berikan source code di bawah ini:

Public Class layanan

    Private Sub dekor1_CheckedChanged(sender As Object, e As EventArgs) Handles dekor1.CheckedChanged
        If dekor1.Checked = True Then
            dekor2.Checked = True
            dekor3.Checked = True
            dekor4.Checked = True
            dekor5.Checked = True
            dekor6.Checked = True
            harga1.Text = "8000000"
        End If
    End Sub

    Private Sub rias1_CheckedChanged(sender As Object, e As EventArgs) Handles rias1.CheckedChanged
        If rias1.Checked = True Then
            rias2.Checked = True
            harga2.Text = "3000000"
        End If
    End Sub

    Private Sub b1_CheckedChanged(sender As Object, e As EventArgs) Handles b1.CheckedChanged
        If b1.Checked = True Then
            b2.Checked = True
            b3.Checked = True
            b4.Checked = True
            b5.Checked = True
            b6.Checked = True
        End If
    End Sub

    Private Sub txtporsi_LostFocus(sender As Object, e As EventArgs) Handles txtporsi.LostFocus
        Select Case txtporsi.Text
            Case 300
                harga3.Text = "2000000"
            Case 350
                harga3.Text = "2500000"
            Case 400
                harga3.Text = "3000000"
            Case 450
                harga3.Text = "3500000"
            Case 500
                harga3.Text = "4000000"
            Case 550
                harga3.Text = "4500000"
            Case 600
                harga3.Text = "5000000"
            Case 650
                harga3.Text = "5500000"
            Case 700
                harga3.Text = "6000000"
            Case 750
                harga3.Text = "6500000"
            Case 800
                harga3.Text = "7000000"
            Case 850
                harga3.Text = "7500000"
            Case 900
                harga3.Text = "8000000"
            Case 950
                harga3.Text = "8000000"
            Case 1000
                harga3.Text = "80000000"
        End Select

    End Sub

    Private Sub ya1_CheckedChanged(sender As Object, e As EventArgs) Handles ya1.CheckedChanged
        If ya1.Checked = True Then
            harga4.Text = "2000000"
        End If
    End Sub

    Private Sub ya2_CheckedChanged(sender As Object, e As EventArgs) Handles ya2.CheckedChanged
        If ya2.Checked = True Then
            harga5.Text = "2000000"
        End If
    End Sub

    Private Sub ya3_CheckedChanged(sender As Object, e As EventArgs) Handles ya3.CheckedChanged
        If ya3.Checked = True Then
            harga6.Text = "2500000"
        End If
    End Sub

    Private Sub tdk1_CheckedChanged(sender As Object, e As EventArgs) Handles tdk1.CheckedChanged
        If tdk1.Checked = True Then
            harga4.Text = "0"
        End If
    End Sub

    Private Sub tdk2_CheckedChanged(sender As Object, e As EventArgs) Handles tdk2.CheckedChanged
        If tdk2.Checked = True Then
            harga5.Text = "0"
        End If
    End Sub

    Private Sub tdk3_CheckedChanged(sender As Object, e As EventArgs) Handles tdk3.CheckedChanged
        If tdk3.Checked = True Then
            harga6.Text = "0"
        End If
    End Sub

    Private Sub layanan_Load(sender As Object, e As EventArgs) Handles Me.Load
        cbgedung.Items.Add("Masjid Agung AT TIN")
        cbgedung.Items.Add("Masjid Agung Sunda kelapa")
        cbgedung.Items.Add("Masjid Baiturrahman MPR/DPR RI")
        cbgedung.Items.Add("Masjid Raya Pondok Indah")
        cbgedung.Items.Add("Masjid Al BIna Gelora Bungkarno")
        cbgedung.Items.Add("Masjid Islaic Centre Jakarta")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Transaksi.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()
    End Sub
End Class

5. Membuat Form Transaksi seperti berikut

agar berjalan maka berikan source code seperti ini:

Imports System.Data.OleDb
Imports System.Data
Public Class Transaksi
    Public databaru As Boolean
    Dim simpan, edit As String
    Dim harga, undangan As Integer

    Private Sub jalankansql(ByVal sQl As String)
        koneksi()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MsgBox("Berhasil Di Simpan", vbInformation)
        Catch ex As Exception
            MsgBox("Tidak Berhasil Di Simpan" & ex.Message)
        End Try
    End Sub

    Private Sub showdata()
        koneksi()
        Dim str As String = "Select idtransaksi as [ID Transaksi], namalengkap as [Nama Lengkap], email as [Email], nohp as [No HP], alamatlengkap as [Alamat Lengkap], jenislayanan as [Jenis Layanan], waktupemesanan as [Waktu Pemesanan], waktuacara as [Waktu Acara], totalbiaya as [Total Biaya] from transaksi ORDER By idtransaksi"
        dataadapter = New OleDb.OleDbDataAdapter(str, conn)
        dataset = New DataSet
        dataset.Clear()
        dataadapter.Fill(dataset, "transaksi")
        gridtransaksi.DataSource = dataset.Tables("transaksi")
        dataadapter.Dispose()
        dataset.Dispose()
        conn.Dispose()

    End Sub

    Private Sub Transaksi_Load(sender As Object, e As EventArgs) Handles Me.Load
        cblayanan.Items.Add("Dekorasi Pelaminan + Buffet Menu")
        cblayanan.Items.Add("Dekorasi Pelaminan + Tata Rias")
        cblayanan.Items.Add("Dekorasi Pelaminan + Buffet Menu + Tata Rias")
        cblayanan.Items.Add("Dekorasi Pelaminan + Buffet Menu + Tata Rias + MC + Photography + Videography")


    End Sub

    Private Sub isi()
        Dim a As Integer
        a = gridtransaksi.CurrentRow.Index
        txtid.Text = gridtransaksi.Item(0, a).Value
        txtnama.Text = gridtransaksi.Item(1, a).Value
        txtemail.Text = gridtransaksi.Item(2, a).Value
        txtnohp.Text = gridtransaksi.Item(3, a).Value
        txtalamat.Text = gridtransaksi.Item(4, a).Value
        cblayanan.Text = gridtransaksi.Item(5, a).Value
        waktupemesanan.Text = gridtransaksi.Item(6, a).Value
        waktuacara.Text = gridtransaksi.Item(7, a).Value
        txttotal.Text = gridtransaksi.Item(8, a).Value

    End Sub



    Public Sub hapus()
        txtid.Text = ""
        txtnama.Text = ""
        txtemail.Text = ""
        txtnohp.Text = ""
        txtalamat.Text = ""
        txtharga.Text = ""
        txtundangan.Text = ""
        txttotal.Text = ""
        cblayanan.SelectedItem = 0

        showdata()

    End Sub

    Private Sub gridtransaksi_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridtransaksi.CellContentClick
        databaru = False
        isi()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
     
        If txtid.Text = "" Or txtnama.Text = "" Or txtemail.Text = "" Or txtnohp.Text = "" Or txtalamat.Text = "" Or cblayanan.Text = "" Or txttotal.Text = "" Then
            MsgBox("Data belum lengkap")
            Exit Sub
        Else
            cmd = New OleDbCommand("SELECET *FROM transaksi  where idtransaksi='" & txtid.Text & "'", conn)
            reader = cmd.ExecuteReader
            reader.Read()
            If Not reader.HasRows Then
                Dim simpanke = "INSERT INTO transaksi (idtransaksi, namalengkap, email, nohp, alamatlengkap, jenislayanan, waktupemesanan, waktuacara, totalbiaya) VALUES ('" & txtid.Text & "','" & txtnama.Text & "','" & txtemail.Text & "','" & txtnohp.Text & "','" & txtalamat.Text & "','" & cblayanan.Text & "','" & waktupemesanan.Text & "','" & waktuacara.Text & "','" & txttotal.Text & "')"
                cmd = New OleDbCommand(simpanke, conn)
                cmd.ExecuteNonQuery()
                MsgBox("Berhasil di simpan", vbInformation)
            End If
            Call hapus()
            Call showdata()
            txtid.Focus()
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        databaru = True
        hapus()
        txtid.Focus()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim i As String = txtcari.Text
        conn.Close()
        conn.Open()

        cmd = New OleDbCommand("SELECT * FROM tbl_DataPemilih where No_Undangan like '%" + i + "%'", conn)
        reader = cmd.ExecuteReader
        reader.Read()
        If reader.HasRows Then
            dataadapter = New OleDbDataAdapter("select * from tbl_DataPemilih where No_Undangan like '%" + i + "%'", conn)
            dataset = New DataSet
            dataadapter.Fill(dataset, "transaksi")
            gridtransaksi.DataSource = dataset.Tables("transaksi")
            gridtransaksi.ReadOnly = True
        Else
            txtid.Text = "ID Transaksi Tidak Ada"
        End If
        reader.Close()
    End Sub

    Private Sub cblayanan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cblayanan.SelectedIndexChanged
        If cblayanan.SelectedItem = "Dekorasi Pelaminan + Buffet Menu" Then
            txtharga.Text = "12000000"
        End If
        If cblayanan.SelectedItem = "Dekorasi Pelaminan + Tata Rias" Then
            txtharga.Text = "15000000"
        End If
        If cblayanan.SelectedItem = "Dekorasi Pelaminan + Buffet Menu + Tata Rias" Then
            txtharga.Text = "18000000"
        End If
        If cblayanan.SelectedItem = "Dekorasi Pelaminan + Buffet Menu + Tata Rias + MC + Photography + Videography" Then
            txtharga.Text = "25000000"
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnok.Click
        harga = txtharga.Text
        undangan = txtundangan.Text
        txttotal.Text = undangan * 25000 + harga
    End Sub

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

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        MsgBox("Terimakasih telah memesan kepada jasa layanan kami, tunggu konfirmasi dari kami selanjutnya melalui email", MsgBoxStyle.OkOnly)
        Me.Close()
    End Sub
End Class

6. Lihat database yang telah berhasil di buat dan disimpan di file projek

Demikianlah aplikasi pemesanan pernikahaan syari untuk pengguna yang ingin melakukan pemesanan, semoga bermanfaat apa yang bisa saya bagikan. terimakasih.