Latihan_36_36110056

Deskripsi Latihan 36:

Form Latihan 36 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 36.

Even

FromLoad

ButtonClick

 

Property

Default

 

                               Form Latihan 36

 

 

Langkah-langkah penyelesaian latihan 36:

• 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 latihan36_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 latihan36_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

        Dim aa(1) As DataColumn

        aa(0) = iyas.Columns("kodebarang")

        iyas.PrimaryKey = aa

    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.Rows.Find(kb_36110056.Text)

        If cu Is Nothing Then

            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 = ""

        Else

            MsgBox("maaf barang sudah ada")

        End If

    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")

            Exit Sub

        ElseIf jt_36110056.Text.Length = 0 Then

            MsgBox("maaf belum terisi")

            Exit Sub

        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 issi As New OleDb.OleDbCommand

        issi = 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()

        issi.ExecuteNonQuery()

        jembatan.Close()

        For Each r As DataRow In iyas.Rows

            issi = New OleDb.OleDbCommand("insert into DETAILTRANSAKSI(notrans, kodebarang, unit, harga) values ('" & nt_36110056.Text & "','" & r("kodebarang") & "','" & r("unit") & "','" & r("harga") & "')", jembatan)

            jembatan.Open()

            issi.ExecuteNonQuery()

            jembatan.Close()

        Next

        issi.Dispose()

        iyas.Rows.Clear()

        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