Latihan_35_46110037

Deskripsi Form Latihan 35

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 Tambah dan Simpan. Ketika Tombol Tambah di click maka akan menambah data yang diinput kedalam data table yang muncul pada datagridview . Ketika tombol Simpan diclick maka data yang ada di data table akan tersimpan di data access.

Script Unique

* Menyimpan data ke data table

INNA.Rows.Add((KB46110037.Text), Val(U46110037.Text), Val(HRG46110037.Text))

* Memeriksa Isi Texbox apakah sudah terisi dengan benar atau belum

If NOTRA46110037.Text.Length = 0 Then

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

            Exit Sub

        End If

Even

Load, Click

Property

Default

Langkah-Langkah Menjalankan Form Latihan 35 46110037

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

Langkah-langkah Menyelesaikan Form Latihan 33 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_35_46110037) dengan menggunakan Label; DataGridView; DateTimePicker, Textbox dan Button.
• Ganti nama DataGridView, Textbox, DateTimePicker dan Button di properties-Name,
• Click Kanan pada design Latihan_35_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_35_46110037

    Dim hubung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Private Sub Latihan_35_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 & "'", hubung)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub TMBH46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMBH46110037.Click

        If KB46110037.Text.Length = 0 Then

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

            Exit Sub

        End If

        If U46110037.Text.Length = 0 Then

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

            Exit Sub

        End If

        If HRG46110037.Text.Length = 0 Then

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

            Exit Sub

        End If

        INNA.Rows.Add((KB46110037.Text), Val(U46110037.Text), Val(HRG46110037.Text))

        KB46110037.Text = ""

        U46110037.Text = ""

        HRG46110037.Text = ""

    End Sub

    Private Sub SMPN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN46110037.Click

        If NOTRA46110037.Text.Length = 0 Then

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

            Exit Sub

        End If

        If JENTRA46110037.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, hubung)

        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 & "#,'" & JENTRA46110037.Text & "')", hubung)

        hubung.Open()

        MOBIL.ExecuteNonQuery()

        hubung.Close()

        For Each MUTHMIL As DataRow In INNA.Rows

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

            hubung.Open()

            MOBIL.ExecuteNonQuery()

            hubung.Close()

        Next

        MOBIL.Dispose()

        NOTRA46110037.Text = ""

        JENTRA46110037.Text = ""

        INNA.Rows.Clear()

        Me.Close()

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form