Latihan_36_36110040

v Tahap Penyelesaian Latihan_36_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_36_36110040

4.      Buat Form Latihan_36 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_36_36110040

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb; jet OLEDB:Database Password=040")

    Dim Table As New DataTable

    Private Sub Latihan_36_36110040_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim rahmi As New OleDb.OleDbDataAdapter

        rahmi = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where Notrans = '" & Notrans36110040.Text & "'", Jembatan)

        Table.Rows.Clear()

        rahmi.Fill(Table)

        rahmi.Dispose()

        Dim KolomPrimary(1) As DataColumn

        KolomPrimary(0) = Table.Columns("KodeBarang")

        Table.PrimaryKey = KolomPrimary

        dgv36110040.DataSource = Table

    End Sub

    Private Sub Tambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah.Click

        If Kode36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If Val(Unit36110040.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Unit Barangnya")

            Exit Sub

        End If

        If Val(Harga36110040.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        If Table.Rows.Find(Kode36110040.Text) Is Nothing Then

            Table.Rows.Add(Kode36110040.Text, Val(Unit36110040.Text), Val(Harga36110040.Text))

        Else

            MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain!")

            Exit Sub

        End If

        Kode36110040.Text = ""

        Unit36110040.Text = ""

        Harga36110040.Text = ""

    End Sub

    Private Sub Simpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan.Click

        If Notrans36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan No Transaksinya")

            Exit Sub

        End If

        If Jenis36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Jenis Transaksinya")

            Exit Sub

        End If

        If Table.Rows.Count = 0 Then

            MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")

            Exit Sub

        End If

        Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

        Periksa.AturPencarianDataBase("MasterTransaksi", "Notrans", Notrans36110040.Text, 1, Jembatan)

        If Periksa.JumlanBaris > 0 Then

            MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")

            Exit Sub

        End If

        Dim mimi As New OleDb.OleDbCommand

        mimi = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _

        "Values ('" & Notrans36110040.Text & "', #" & tanggal36110040.Value.Month & "/" & tanggal36110040.Value.Day & "/" & tanggal36110040.Value.Year & "#, '" & Jenis36110040.Text & "')", Jembatan)

        Jembatan.Open()

        mimi.ExecuteNonQuery()

        Jembatan.Close()

        For Each BarisX As DataRow In Table.Rows

            mimi = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) " & _

            "Values ('" & Notrans36110040.Text & "', '" & BarisX("Kodebarang") & "', " & BarisX("Unit") & ", " & BarisX("Harga") & ")", Jembatan)

            Jembatan.Open()

            mimi.ExecuteNonQuery()

            Jembatan.Close()

        Next

        mimi.Dispose()

        Notrans36110040.Text = ""

        Jenis36110040.Text = ""

        Table.Rows.Clear()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai