Latihan_39_36110056

Deskripsi Latihan 39:

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

Object  label
Terdapat empat object label (yang bertuliskan no.transaksi, tanggal, jenis transaksi, dan total).

Object  TextBox
 Terdapat tiga buah object Textbox. Dimana dua yang berstatus input dan satu berstatus ReadOnly. 


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


Object  Button
Terdapat satu buah object Button yaitu  Simpan. 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 39

Even

FromLoad

ButtonClick

( )

 

Property

Property Windows TextBox ReadOnly = True

                                              Form Latihan 39

Langkah-langkah penyelesaian latihan 39:

• 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 latihan39_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 latihan39_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 barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang 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 nut()

        Dim neng As Integer = 0

        For Each abang As DataRow In iyas.Rows

            neng += abang("JUMLAH")

        Next

        tot_36110056.Text = neng

    End Sub

    Private Sub simpan_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109003.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 = ""

        nut()

    End Sub

    Private Sub dgv_36110056_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36110056.CellContentClick

        If dgv_36110056.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            dgv_36110056.CurrentRow.Cells("NAMABARANG").Value = ""

            dgv_36110056.CurrentRow.Cells("UNIT").Value = ""

            dgv_36110056.CurrentRow.Cells("HARGA").Value = ""

            dgv_36110056.CurrentRow.Cells("JUMLAH").Value = ""

            yas.AturPencarianDataBase("barang", "kodebarang", dgv_36110056.CurrentRow.Cells("KODEBARANG").Value, 1, jembatan)

            If yas.JumlanBaris > 0 Then

                dgv_36110056.CurrentRow.Cells("NAMABARANG").Value = yas.DataTablenya.Rows(0).Item("NAMABARANG")

            Else

                dgv_36110056.CurrentRow.Cells("NAMABARANG").Value = ""

                If latihan383940_36110056.ShowDialog = Windows.Forms.DialogResult.OK Then

                    dgv_36110056.CurrentRow.Cells("KODEBARANG").Value = latihan383940_36110056.dgv_36110056.CurrentRow.Cells("KODEBARANG").Value

                    dgv_36110056.CurrentRow.Cells("NAMABARANG").Value = latihan383940_36110056.dgv_36110056.CurrentRow.Cells("NAMABARANG").Value

                End If

            End If

        ElseIf dgv_36110056.Columns(e.ColumnIndex).Name = "UNIT" Or dgv_36110056.Columns(e.ColumnIndex).Name = "HARGA" Then

            dgv_36110056.CurrentRow.Cells("JUMLAH").Value = dgv_36110056.CurrentRow.Cells("UNIT").Value * dgv_36110056.CurrentRow.Cells("HARGA").Value

            nut()

        End If

    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