Latihan_35_36110056

Deskripsi Latihan 35:

Form Latihan 35 terdapat lima object yaitu Lable, Textbox, Datetimepicker, button, dan Dategridview

Object  label
Terdapat enam object label (yang bertuliskan no.transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).

Object  TextBox
 Terdapat lima buah object Textbox yang semuanya berstatus input. 


Object  DateTimePicker
Terdapat sebuah object DateTimePicker yang digunakan untuk memasukkan tanggal transaksi.


Object  Button
Terdapat dua buah object Button yaitu Tambah dan Simpan. object button tambah digunakan untuk menambahkan data baru  ke DataBase. Sedangkan object button Simpan digunakan untuk menyimpan data baru ke DataBase.


Object  DateGridView
Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 35.

Even

FromLoad

ButtonClick

 

Property

Default

 
                                         Form Latihan 35

Langkah-langkah penyelesaian latihan 35:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View, label, Button , datetimepicker, dan textbox yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView ,Button, textbox, datetimpicker, label yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan35_36110056

    Dim yas As New ByIskandar.CariKeDataBaseByIskandar

    Dim iyas As New DataTable

    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb")

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

        Dim bos As New OleDb.OleDbDataAdapter

        bos = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where notrans = '" & nt_36110056.Text & "'", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

    End Sub

    Private Sub tambah_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110056.Click

        If kb_36110056.Text.Length = 0 Then

            MsgBox("maaf kode barang tidak ada")

        ElseIf Val(unit_36110056.Text) = 0 Then

            MsgBox("maaf unit belum terisi")

        ElseIf Val(hrg_36110056.Text) = 0 Then

            MsgBox("maaf harga barang belum terisi")

            Exit Sub

        End If

        Dim cu As DataRow

        cu = iyas.NewRow

        cu("kodebarang") = kb_36110056.Text

        cu("unit") = unit_36110056.Text

        cu("harga") = hrg_36110056.Text

        iyas.Rows.Add(cu)

        kb_36110056.Text = ""

        unit_36110056.Text = ""

        hrg_36110056.Text = ""

    End Sub

    Private Sub simpan_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110056.Click

        If nt_36110056.Text.Length = 0 Then

            MsgBox("maaf notrans barang tidak ada")

        ElseIf jt_36110056.Text.Length = 0 Then

            MsgBox("maaf belum terisi")

        ElseIf iyas.Rows.Count = 0 Then

            MsgBox("data tidak boleh kosong")

            Exit Sub

        End If

        yas.AturPencarianDataBase("mastertransaksi", "notrans", nt_36110056.Text, 1, jembatan)

        If yas.JumlanBaris > 0 Then

            MsgBox(" maaf sudah ada ")

            Exit Sub

        End If

        Dim issii As New OleDb.OleDbCommand

        issii = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36110056.Text & "', #" & Dtp_36110056.Value.Month & "/" & Dtp_36110056.Value.Day & "/" & Dtp_36110056.Value.Year & "#,'" & jt_36110056.Text & "')", jembatan)

        jembatan.Open()

        issii.ExecuteNonQuery()

        jembatan.Close()

        For Each yus As DataRow In iyas.Rows

            issii = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt_36110056.Text & "','" & yus("kodebarang") & "','" & yus("unit") & "','" & yus("harga") & "')", jembatan)

            jembatan.Open()

            issii.ExecuteNonQuery()

            jembatan.Close()

        Next

        issii.Dispose()

        nt_36110056.Text = ""

        jt_36110056.Text = ""

    End Sub

End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini