latihan_37_36110036

Deskripsi latihan_37_36110036

A.           Object Label

Terdapat Sembilan label yang bertuliskan no transaksi, tanggal, jenis transaksi, kode barang, nama barang, unit, harga, jumlah, total.

B.            Object textbox

         Terdapat delapan textbox (enam status input, dua status read only). Status input digunakan untuk memasukkan nilai dari no transaksi, jenis transaksi, kode barang, nama barang, unit, dan harga.

         Status read only digunakan untuk menampilkan nama barang, jumlah, dan total.

C.           Object button

Terdapat dua object button (tambah dan simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada textbox kedalam data table (yang ditampilkan pada datagridview). sedangkan button simpan digunakan untuk menyimpan data yang telah diinput ke dalam database. pada latihan ini, kode barang yang telah diinput harus merupakan kode barang yang sudah ada pada tabel kode barang.

D.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data yang telah diinput.

E.            Object Date timepicker

Terdapat satu object date timepicker yang digunakan untuk menginput tanggal transaksi.

F.            Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_37_36110036.

G.    Even

        latihan_37_36110036_Load

          tambah_36110036_Click

          simpan_36110036_Click

      H.      Property

                Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_37_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

       

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                  

 6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_37_36110036.

Public Class latihan_37_36110036

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=anna")

    Dim anna As New DataTable

    Dim rima As DataRow

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

        Dim X As New OleDb.OleDbDataAdapter

        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & no_36110036.Text & "'", CONECT)

        X.Fill(anna)

        X.Dispose()

        Dim dataPrimary(1) As DataColumn

        dataPrimary(0) = anna.Columns("KODEBARANG")

        anna.PrimaryKey = dataPrimary

        data_36110036.DataSource = anna

    End Sub

    Private Sub TOTALJUMLAH()

        Dim TOT As Double = 0

        For Each x As DataRow In anna.Rows

            TOT = TOT + x("JUMLAH")

        Next

        total_36110036.Text = TOT

    End Sub

    Private Sub KB_36110036_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110036.Leave

        If KB_36110036.Text.Length = 0 Then

            Exit Sub

        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

        Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", KB_36110036.Text, 1, CONECT)

        If Pencari.JumlanBaris > 0 Then

            KB_36110036.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")

            NB_36110036.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")

        Else

            MsgBox("Kode barang tersebut tidak ada")

            Exit Sub

        End If

    End Sub

    Private Sub KB_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_36110036.TextChanged

        no_36110036.Text = ""

        Unit_36110036.Text = ""

        Harga_36110036.Text = ""

    End Sub

    Private Sub Unit_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_36110036.TextChanged, Harga_36110036.TextChanged

        jumlah_36110036.Text = Val(Unit_36110036.Text) * Val(Harga_36110036.Text)

    End Sub

    Private Sub simp_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110036.Click

        If no_36110036.Text.Length = 0 Then

            MsgBox("No. transaksi sudah ada")

            Exit Sub

        End If

        If jenis_36110036.Text.Length = 0 Then

            MsgBox("Jenis transaksi sudah ada")

            Exit Sub

        End If

        If anna.Rows.Count = 0 Then

            MsgBox("Jumlah baris tidak terisi")

            Exit Sub

        End If

        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar

        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", no_36110036.Text, 1, CONECT)

        If pencari.JumlanBaris > 0 Then

            MsgBox("data tersebut sudah ada")

            Exit Sub

        End If

        Dim CM As New OleDb.OleDbCommand

        CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & no_36110036.Text & "', #" & tanggal_36110036.Value.Month & "/" & tanggal_36110036.Value.Day & "/" & tanggal_36110036.Value.Year & "#, '" & jenis_36110036.Text & "')", CONECT)

        CONECT.Open()

        CM.ExecuteNonQuery()

        CONECT.Close()

        For Each X As DataRow In anna.Rows

            CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & no_36110036.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", CONECT)

            CONECT.Open()

            CM.ExecuteNonQuery()

            CONECT.Close()

            CM.Dispose()

        Next

        no_36110036.Text = ""

        jenis_36110036.Text = ""

        jumlah_36110036.Text = ""

        anna.Rows.Clear()

        TOTALJUMLAH()

    End Sub

    Private Sub tambah_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110036.Click

        If KB_36110036.Text.Length = 0 Then

            MsgBox("Kode barang sudah ada")

            Exit Sub

        End If

        If no_36110036.Text.Length = 0 Then

            MsgBox("Nama barang sudah ada")

        End If

        If Val(Unit_36110036.Text) = 0 Then

            MsgBox("Masukkan unit barang")

            Exit Sub

        End If

        If Val(Harga_36110036.Text) = 0 Then

            MsgBox("Masukkan harga barang barang")

            Exit Sub

        End If

        rima = anna.Rows.Find(KB_36110036.Text)

        If rima Is Nothing Then

            rima = anna.NewRow

            rima("KODEBARANG") = KB_36110036.Text

        Else

            MsgBox("Maaf kodebarang sudah ada")

            Exit Sub

        End If

        rima = anna.NewRow

        rima("KODEBARANG") = KB_36110036.Text

        rima("NAMABARANG") = NB_36110036.Text

        rima("UNIT") = Unit_36110036.Text

        rima("HARGA") = Harga_36110036.Text

        rima("JUMLAH") = jumlah_36110036.Text

        anna.Rows.Add(rima)

        KB_36110036.Text = ""

        NB_36110036.Text = ""

        Unit_36110036.Text = ""

        Harga_36110036.Text = ""

        TOTALJUMLAH()

    End Sub

    Private Sub simpan_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110036.Click

        If no_36110036.Text.Length = 0 Then

            MsgBox("No. transaksi sudah ada")

            Exit Sub

        End If

        If jumlah_36110036.Text.Length = 0 Then

            MsgBox("Jenis transaksi sudah ada")

            Exit Sub

        End If

        If anna.Rows.Count = 0 Then

            MsgBox("Jumlah baris tidak terisi")

            Exit Sub

        End If

        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar

        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", no_36110036.Text, 1, CONECT)

        If pencari.JumlanBaris > 0 Then

            MsgBox("data tersebut sudah ada")

            Exit Sub

        End If

        Dim CM As New OleDb.OleDbCommand

        CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & no_36110036.Text & "', #" & tanggal_36110036.Value.Month & "/" & tanggal_36110036.Value.Day & "/" & tanggal_36110036.Value.Year & "#, '" & jumlah_36110036.Text & "')", CONECT)

        CONECT.Open()

        CM.ExecuteNonQuery()

        CONECT.Close()

        For Each X As DataRow In anna.Rows

            CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & no_36110036.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", CONECT)

            CONECT.Open()

            CM.ExecuteNonQuery()

            CONECT.Close()

            CM.Dispose()

        Next

        no_36110036.Text = ""

        jenis_36110036.Text = ""

        jumlah_36110036.Text = ""

        anna.Rows.Clear()

        TOTALJUMLAH()

    End Sub

End Class

7.      Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.