latihan_36_36110036

Deskripsi latihan_36_36110036

A.           Object Label

Terdapat enam label yang bertuliskan no transaksi, tanggal, jenis transaksi, kode barang, unit, harga.

B.            Object textbox

         Terdapat lima textbox (status input). Status input digunakan untuk memasukkan nilai dari no transaksi, jenis transaksi, kode barang, unit, harga.

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, data yang memiliki nomor transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database.

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_36_36110036.

G.    Even

        latihan_36_36110036_Load

          tambah_36110036_Click

          simpan_36110036_Click

Langkah-langkah mengerjakan latihan_36_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_36_36110036.

Public Class latihan_36_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 cari As New ByIskandar.CariKeDataBaseByIskandar

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

        Dim inna As New OleDb.OleDbDataAdapter

        inna = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB_36110036.Text & "'", CONECT)

        anna.Rows.Clear()

        inna.Fill(anna)

        data_36110036.DataSource = anna

        inna.Dispose()

        Dim ADMA(1) As DataColumn

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

        anna.PrimaryKey = ADMA

    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 belum terisi")

            Exit Sub

        End If

        If Val(unit_36110036.Text) = 0 Then

            MsgBox("UNIT belum terisi")

            Exit Sub

        End If

        If Val(harga_36110036.Text) = 0 Then

            MsgBox("HARGA belum terisi")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            Exit Sub

        End If

        Dim fika As DataRow

        fika = anna.NewRow

        fika("KODEBARANG") = KB_36110036.Text

        fika("UNIT") = unit_36110036.Text

        fika("HARGA") = harga_36110036.Text

        anna.Rows.Add(fika)

        KB_36110036.Text = ""

        unit_36110036.Text = ""

        harga_36110036.Text = ""

    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 belum terisi")

            Exit Sub

        End If

        If jenis_36110036.Text.Length = 0 Then

            MsgBox("jenis transaksi belum terisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", no_36110036.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then

            MsgBox("NO.TRANS sudah ada")

            Exit Sub

        End If

        If anna.Rows.Count = 0 Then

            MsgBox("data tidak tersedia")

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no_36110036.Text & "',#" & tanggal_36110036.Value.Date & "#," & Val(jenis_36110036.Text) & ")", CONECT)

        CONECT.Open()

        com.ExecuteNonQuery()

        CONECT.Close()

        For Each r As DataRow In anna.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & no_36110036.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

            CONECT.Open()

            com.ExecuteNonQuery()

            CONECT.Close()

            com.Dispose()

        Next

        anna.Rows.Clear()

        no_36110036.Text = ""

        jenis_36110036.Text = ""

    End Sub

End Class

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

8.     Setelah program jalan maka file disave.