Latihan 36_36110055

PROSEDUR LATIHAN 36:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool toolbox.

Ø  Buat enam label (yang bertuliskan no transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).

Ø  Buat lima textbox (semuanya status input) yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga.

Ø  Buat dua object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK). Pada latihan ini, data yang memiliki nomor transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database.

Ø  Buat satu object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

Ø  Buat satu object datagridview yang digunakan untuk menampilkan data yang telah diinput pada textbox.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_36_36001155

    Dim bridgeMasnur As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source =D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb")

    Dim tabelMasnur As New DataTable

    Private Sub Latihan_36_36001155_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim truckMasnur As New OleDb.OleDbDataAdapter

        truckMasnur = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI where NOTRANS = '" & No_36001155.Text & "'", bridgeMasnur)

        tabelMasnur.Rows.Clear()

        truckMasnur.Fill(tabelMasnur)

        truckMasnur.Dispose()

        Dim KolomPrimary(1) As DataColumn

        KolomPrimary(0) = tabelMasnur.Columns("KODEBARANG")

        tabelMasnur.PrimaryKey = KolomPrimary

        MASNUR_36001155.DataSource = tabelMasnur

    End Sub

    Private Sub TAMBAH_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_36001155.Click

        If KODE_36001155.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If Val(UNIT_36001155.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Unit Barangnya")

            Exit Sub

        End If

        If Val(HARGA_36001155.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        If tabelMasnur.Rows.Find(KODE_36001155.Text) Is Nothing Then

            tabelMasnur.Rows.Add(KODE_36001155.Text, Val(UNIT_36001155.Text), Val(HARGA_36001155.Text))

        Else

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

            Exit Sub

        End If

        KODE_36001155.Text = ""

        UNIT_36001155.Text = ""

        HARGA_36001155.Text = ""

    End Sub

    Private Sub SIMPAN_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36001155.Click

        If No_36001155.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan No Transaksinya")

            Exit Sub

        End If

        If Jenis_36001155.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Jenis Transaksinya")

            Exit Sub

        End If

        If tabelMasnur.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", No_36001155.Text, 1, bridgeMasnur)

        If Periksa.JumlanBaris > 0 Then

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

            Exit Sub

        End If

        Dim trukMasnur As New OleDb.OleDbCommand

        trukMasnur = New OleDb.OleDbCommand("Insert Into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) " & _

        "Values ('" & No_36001155.Text & "', #" & TGL_36001155.Value.Month & "/" & TGL_36001155.Value.Day & "/" & TGL_36001155.Value.Year & "#, '" & Jenis_36001155.Text & "')", bridgeMasnur)

        bridgeMasnur.Open()

        trukMasnur.ExecuteNonQuery()

        bridgeMasnur.Close()

        For Each row As DataRow In tabelMasnur.Rows

            trukMasnur = New OleDb.OleDbCommand("Insert Into DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) " & _

            "Values ('" & No_36001155.Text & "', '" & row("KODEBARANG") & "', " & row("UNIT") & ", " & row("HARGA") & ")", bridgeMasnur)

            bridgeMasnur.Open()

            trukMasnur.ExecuteNonQuery()

            bridgeMasnur.Close()

        Next

        trukMasnur.Dispose()

        No_36001155.Text = ""

        Jenis_36001155.Text = ""

        tabelMasnur.Rows.Clear()

    End Sub

End Class