Latihan_36_46110037

Deskripsi Form Latihan 36

Terdapat 5 object yaitu Label; DataGridView; DateTimePicker, Textbox dan Button.

Object Label

Terdapat 6 Label yaitu No.Transaksi; Tanggal; Jenis Transaksi; Kode Barang; Unit dan Harga

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data table.

Object DateTimePicker

Terdapat 1 DateTimePicker yaitu Tanggal.

Object Textbox

Terdapat 5  yaitu No.Transaksi; Jenis Transaksi; Kode Barang; Unit dan Harga

Object Button

Terdapat 2 button yaitu Tombol Insert dan Save. Ketika Tombol Insert di click maka akan menambah data yang diinput kedalam data table yang muncul pada datagridview . Ketika tombol Save diclick maka data yang ada di data table akan tersimpan di data access.

Script Unique

Tidak ada Script Unique pada latihan ini karena hampir sama dengan latihan sebelumnya.

Even

Load, Click

Property

Default

Langkah-Langkah Menjalankan Form Latihan 36 46110037

Click Start Debugging untuk menjalankan Script Latihan_36_46110037, masukkan data pada semua textbox dan datetimepicker, kemudian click Tombol Insert, maka data yang diinput akan mucul pada tabel yang ada di data gridview,  click tombol Save untuk menyimpan data tersebut kedalam file access.

Langkah-langkah Menyelesaikan Form Latihan 36 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_36_46110037) dengan menggunakan Label; DataGridView; DateTimePicker, Textbox dan Button.
• Ganti nama DataGridView, Textbox, DateTimePicker dan Button di properties-Name,
• Click Kanan pada design Latihan_36_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_36_46110037

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NOTRA46110037.Text & "'", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        Showme46110037.DataSource = INNA

        Dim kabotcibay(2) As DataColumn

        kabotcibay(0) = INNA.Columns("Kodebarang")

        INNA.PrimaryKey = kabotcibay

    End Sub

    Private Sub Tambah46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah46110037.Click

        If KB46110037.Text.Length = 0 Then

            MsgBox("Please, insert the code of goods")

            Exit Sub

        End If

        If Unit46110037.Text.Length = 0 Then

            MsgBox("Please, insert the unit of goods")

            Exit Sub

        End If

        If Harga46110037.Text.Length = 0 Then

            MsgBox("Please, insert the cost of goods")

            Exit Sub

        End If

        Dim CARIDATA As DataRow

        CARIDATA = INNA.Rows.Find(KB46110037.Text)

        If Not CARIDATA Is Nothing Then

            MsgBox("Sorry, the data has been exist!!! Please insert new data")

            Exit Sub

        End If

        INNA.Rows.Add(KB46110037.Text, Val(Unit46110037.Text), Val(Harga46110037.Text))

        KB46110037.Text = ""

        Unit46110037.Text = ""

        Harga46110037.Text = ""

    End Sub

    Private Sub Simpan46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan46110037.Click

        If NOTRA46110037.Text.Length = 0 Then

            MsgBox("Please, insert the Number of the transaction")

            Exit Sub

        End If

        If JT46110037.Text.Length = 0 Then

            MsgBox("Please, insert the type of the transaction")

            Exit Sub

        End If

        If INNA.Rows.Count = 0 Then

            MsgBox("the data is none")

            Exit Sub

        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar

        search.AturPencarianDataBase("mastertransaksi", "notrans", NOTRA46110037.Text, 1, Jalan)

        If search.JumlanBaris > 0 Then

            MsgBox("the code has been exist")

            Exit Sub

        End If

        Dim MOBIL As New OleDb.OleDbCommand

        MOBIL = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NOTRA46110037.Text & "',#" & TGL46110037.Value.Month & "/" & TGL46110037.Value.Day & "/" & TGL46110037.Value.Year & "#,'" & JT46110037.Text & "')", Jalan)

        Jalan.Open()

        MOBIL.ExecuteNonQuery()

        Jalan.Close()

        For Each MUTH As DataRow In INNA.Rows

            MOBIL = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NOTRA46110037.Text & "','" & MUTH("kodebarang") & "'," & MUTH("unit") & "," & MUTH("harga") & ")", Jalan)

            Jalan.Open()

            MOBIL.ExecuteNonQuery()

            Jalan.Close()

        Next

        MOBIL.Dispose()

        NOTRA46110037.Text = ""

        JT46110037.Text = ""

        INNA.Rows.Clear()

        Me.Close()

    End Sub

End Class

• save dan Click Start Debugging untuk menjalankan form