Latihan_40B_36110031

Tahap Penyelesaian Latihan_40B_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_40B  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_40B  dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_40B_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 Latihan_40B_36110031_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AMBILDATA()

        DGV_36110031.DataSource = Tabel

    End Sub

    Public Sub AMBILDATA()

        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

    End Sub

    Public Sub JUMLAH()

        Dim TOTAL As Integer = 0

        For Each X As DataGridView In DGV_36110031.Rows

            TOTAL = TOTAL + X.cells("JUMLAH").VALUE

        Next

        Total_36110031.Text = TOTAL

    End Sub

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

        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 & "', #" & TANGGAL_36110031.Value.Month & "/" & TANGGAL_36110031.Value.Day & "/" & TANGGAL_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

    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 SUDAH 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

            End If

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

        ElseIf 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 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_40B_36110031

-    Object Label

Terdapat empat  label (yang bertuliskan No. Transaksi, Tanggal Transaksi, Jenis Transaksi, dan Total)

-    Object TextBox

Terdapat tiga object textbox (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 Statusstrip

Terdapat satu object statustrip yang memiliki dua label yang bertuliskan no transaksi dan -

-    Object DateTimePiker

Terdapat satu DateTimePiker yang digunakan untuk menentukan tanggal transaksi

-    Object DataGridView

Terdapat satu object DataGridView yang digunakan untuk menampilkan data yang akan diedit atau ditambah ke dalam database. Data yang akan diedit merupakan data yang sudah dipilih pada form Latihan_40A_36110031

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesai Latihan_40B_36110031

Even

Latihan_40B_36110031_Load

Ambildata()

Jumlah()

Simpan_36110031

DGV_36110031_CellEndEdit