Latihan_39_36110031

Tahap Penyelesaian Latihan_39_36110031

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_39  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_39 dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_39_36110031

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

    Dim Tabel As New DataTable

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub DGV_36110031_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_36110031.CellEndEdit

        If e.ColumnIndex = 0 Then

            DGV_36110031.CurrentRow.Cells("NAMABARANG").Value = ""

            DGV_36110031.CurrentRow.Cells("UNIT").Value = 0

            DGV_36110031.CurrentRow.Cells("HARGA").Value = 0

            DGV_36110031.CurrentRow.Cells("JUMLAH").Value = 0

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV_36110031.CurrentRow.Cells("KODEBARANG").Value, 1, Audry)

            If cari.JumlanBaris = 0 Then

                MsgBox("KODE BARANG TIDAK ADA")

                If Latihan_383940_36110031.ShowDialog = Windows.Forms.DialogResult.OK Then

                    DGV_36110031.CurrentRow.Cells("KODEBARANG").Value = Latihan_383940_36110031.Dgv_36110031.CurrentRow.Cells("KODEBARANG").Value

                    DGV_36110031.CurrentRow.Cells("NAMABARANG").Value = Latihan_383940_36110031.Dgv_36110031.CurrentRow.Cells("NAMABARANG").Value

                Else

                    DGV_36110031.CurrentRow.Cells("KODEBARANG").Value = ""

                End If

                Exit Sub

            Else

                DGV_36110031.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item(1)

            End If

        Else

            If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then

                DGV_36110031.CurrentRow.Cells("JUMLAH").Value = DGV_36110031.CurrentRow.Cells("UNIT").Value * DGV_36110031.CurrentRow.Cells("HARGA").Value

                jumlah()

            End If

        End If

    End Sub

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select BARANG.KODEBARANG, BARANG.NAMABARANG, UNIT, HARGA, UNIT*HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS = '" & NoTrans_36110031.Text & "'", Audry)

        Tabel.Rows.Clear()

        adapter.Fill(Tabel)

        adapter.Dispose()

        DGV_36110031.DataSource = Tabel

        Dim kolom(1) As DataColumn

        kolom(0) = Tabel.Columns("kodebarang")

        Tabel.PrimaryKey = kolom

    End Sub

    Private Sub Simpan_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110031.Click

        If NoTrans_36110031.Text.Length = 0 Then

            MsgBox("Masukan Nomor Transaksi")

            Exit Sub

        End If

        If Jenis_36110031.Text.Length = 0 Then

            MsgBox("Masukan Jenis Transaksi")

            Exit Sub

        End If

        If Tabel.Rows.Count = 0 Then

            MsgBox("Masukan datanya")

            Exit Sub

        End If

        cari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NoTrans_36110031.Text, 1, Audry)

        If cari.JumlanBaris > 0 Then

            MsgBox("Nomor Transaksi sudah ada")

            Exit Sub

        End If

        Dim COMMAND As New OleDb.OleDbCommand

        COMMAND = New OleDb.OleDbCommand("insert into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NoTrans_36110031.Text & "', #" & DTP_36110031.Value.Month & "/" & DTP_36110031.Value.Day & "/" & DTP_36110031.Value.Year & "#, '" & Jenis_36110031.Text & "')", Audry)

        Audry.Open()

        COMMAND.ExecuteNonQuery()

        Audry.Close()

        For Each X As DataRow In Tabel.Rows

            COMMAND = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NoTrans_36110031.Text & "', '" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", Audry)

            Audry.Open()

            COMMAND.ExecuteNonQuery()

            Audry.Close()

        Next

        COMMAND.Dispose()

        NoTrans_36110031.Text = ""

        Jenis_36110031.Text = ""

        Total_36110031.Text = ""

        Tabel.Rows.Clear()

        jumlah()

    End Sub

    Public Sub jumlah()

        Dim total As Integer

        For Each x As DataRow In Tabel.Rows

            total = total + x("JUMLAH")

        Next

        Total_36110031.Text = total

    End Sub

End Class

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

 

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

 

8.         Selesai

Deskripsi Latihan_39_36110031

-    Object Label

Terdapat empat label (yang bertuliskan no transaksi, tanggal, jenis transaksi, dan total)

-       Object TextBox

Terdapat tiga (dua status input dan satu status readonly). Status input digunakan untuk memasukkan nilai no transaksi dan jenis transaksi. Sedangkan Status readonly digunakan untuk menampilkan total.

-    Object Button

Terdapat satu object Button yaitu Simpan yang digunakan untuk  menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK). Kode barang yang diinput harus merupakan kode barang yang sudah ada pada tabel kode barang karena nama barang akan ditampilkan pada textbox readonly sesuai dengan kode barang yang diinput. Jika kode barang yang diinput tidak ada, maka akan muncul form Latihan_383940_36110031

-    Object DateTimePiker

Terdapat satu Datetimepiker yang dugunakan untuk menentukan tanggal transaksi.

-    Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data yang telah diinput pada textbox. Dan juga digunakan untuk menginput kode barang.

Script Unique

Untuk script dapat dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…

Even

Simpan_36110031_Click

Latihan_39_36110031_Load