Latihan_383940_36110056

Deskripsi Latihan 383940:

Form Latihan 383940 terdapat dua object yaitu button, dan Dategridview

Object  Button
Terdapat dua buah object Button yaitu  Pilih dan Batal.


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 383940

Even

FromLoad

Property

Default

Langkah-langkah penyelesaian latihan 383940:

• 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 dan Button yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan383940_36110056

    Dim iye 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 latihan383940_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim be As New OleDb.OleDbDataAdapter

        be = New OleDb.OleDbDataAdapter("select *from barang", jembatan)

        iye.Rows.Clear()

        be.Fill(iye)

        be.Dispose()

        dgv_36110056.DataSource = iye

    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

 

Latihan_40B_36110056

Deskripsi Latihan 40B:

Form Latihan 40B terdapat enam object yaitu Lable, Textbox, Datetimepicker, button, StatusStrip 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. Kode barang yang diinput harus merupakan kode barang yang sudah ada pada tabel kode barang k. Jika kode barang yang diinput tidak ada, maka akan muncul form Latihan383940_36110056


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


Object  StatusStrip 
Terdapat satu object statustrip yang memiliki dua label (yang diberi nama no transaksi dan -).

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 40B

Even

FromLoad

ButtonClick

CellendEdit

( )

Property

Property Windows TextBox ReadOnly = True

Langkah-langkah penyelesaian latihan 40B:

• 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, StatusStrip dan textbox yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Form40b_36109003
    Dim arman As New ByIskandar.CariKeDataBaseByIskandar
    Dim anto As New DataTable
    Dim soe As New OleDb.OleDbCommand
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")
    Public Sub anra2()
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & nt_36109003.Text & "'", ndut)
        anto.Rows.Clear()
        a.Fill(anto)
    End Sub
    Public Sub anra3()
        Dim anra31 As Integer = 0
        For Each anra32 As DataRow In anto.Rows
            anra31 += anra32("JUMLAH")
        Next
        total_36109003.Text = anra31
    End Sub

    Private Sub anra4()
        If nt_36109003.Text.Length = 0 Then
            MsgBox("no transaksi harus terisi")
            Exit Sub
        End If

        If jt_36109003.Text.Length = 0 Then
            MsgBox("jenis transaksi harus terisi")
            Exit Sub
        End If

        If anto.Rows.Count = 0 Then
            MsgBox("Isi datatable")
            Exit Sub
        End If
    End Sub

    Private Sub tambah()
        anra4()
        arman.AturPencarianDataBase("mastertransaksi", "notrans", nt_36109003.Text, 1, ndut)
        If arman.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu..")
            Exit Sub
        End If

        soe = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109003.Text & "',#" & tgl_36109003.Value.Month & "/" & tgl_36109003.Value.Day & "/" & tgl_36109003.Value.Year & "#, '" & tgl_36109003.Text & "')", ndut)
        ndut.Open()
        soe.ExecuteNonQuery()
        ndut.Close()

        For Each x As DataRow In anto.Rows
            soe = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nt_36109003.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", ndut)
            ndut.Open()
            soe.ExecuteNonQuery()
            ndut.Close()
        Next
        soe.Dispose()

        nt_36109003.Text = ""
        jt_36109003.Text = ""
        total_36109003.Text = ""
        kode_36109003.Text = "-"

        anto.Rows.Clear()
        form40a_36109003.anra1
    End Sub

    Public Sub edit()
        anra4()
        If nt_36109003.Text <> kode_36109003.Text Then
            arman.AturPencarianDataBase("mastertransaksi", "notrans", nt_36109003.Text, 1, ndut)
            If arman.JumlanBaris > 0 Then
                MsgBox("no transaksi telah ada")
                Exit Sub
            End If
        End If

        soe = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & kode_36109003.Text & "'", ndut)
        ndut.Open()
        soe.ExecuteNonQuery()
        ndut.Close()

        soe = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109003.Text & "',#" & tgl_36109003.Value.Month & "/" & tgl_36109003.Value.Day & "/" & tgl_36109003.Value.Year & "#, '" & jt_36109003.Text & "')", ndut)
        ndut.Open()
        soe.ExecuteNonQuery()
        ndut.Close()

        soe = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & kode_36109003.Text & "'", ndut)
        ndut.Open()
        soe.ExecuteNonQuery()
        ndut.Close()

        For Each x As DataRow In anto.Rows
            soe = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt_36109003.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", ndut)
            ndut.Open()
            soe.ExecuteNonQuery()
            ndut.Close()
        Next
        soe.Dispose()

        nt_36109003.Text = ""
        jt_36109003.Text = ""
        total_36109003.Text = ""
        kode_36109003.Text = "-"

        anto.Rows.Clear()
        form40a_36109003.anra1()
    End Sub
    Private Sub Form40b_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        anra2()

        Dim dc(1) As DataColumn
        dc(0) = anto.Columns("kodebarang")
        anto.PrimaryKey = dc

        anto.Columns("unit").DefaultValue = 0
        anto.Columns("harga").DefaultValue = 0
        anto.Columns("jumlah").DefaultValue = 0

        dgv_36109003.DataSource = anto
    End Sub

    Private Sub dgv_36109003_Cellendedit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36109003.CellEndEdit
        If dgv_36109003.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            dgv_36109003.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv_36109003.CurrentRow.Cells("UNIT").Value = 0
            dgv_36109003.CurrentRow.Cells("HARGA").Value = 0
            dgv_36109003.CurrentRow.Cells("JUMLAH").Value = 0

            arman.AturPencarianDataBase("barang", "kodebarang", dgv_36109003.CurrentRow.Cells("KODEBARANG").Value, 1, ndut)
            If arman.JumlanBaris > 0 Then
                dgv_36109003.CurrentRow.Cells("NAMABARANG").Value = arman.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv_36109003.CurrentRow.Cells("NAMABARANG").Value = ""
                If form38_39_40_36109003.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv_36109003.CurrentRow.Cells("KODEBARANG").Value = form38_39_40_36109003.dgv_36109003.CurrentRow.Cells("KODEBARANG").Value
                    dgv_36109003.CurrentRow.Cells("NAMABARANG").Value = form38_39_40_36109003.dgv_36109003.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv_36109003.Columns(e.ColumnIndex).Name = "UNIT" Or dgv_36109003.Columns(e.ColumnIndex).Name = "HARGA" Then
            dgv_36109003.CurrentRow.Cells("JUMLAH").Value = dgv_36109003.CurrentRow.Cells("UNIT").Value * dgv_36109003.CurrentRow.Cells("HARGA").Value
            anra3()
        End If
    End Sub

    Private Sub simpan_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109003.Click
        If kode_36109003.Text = "-" Then
            tambah()
        Else
            edit()
        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

Latihan_40A_36110056

Deskripsi Latihan 40A:

Form Latihan 40A terdapat tiga object yaitu Lable,  button, dan Dategridview

Object  label
Terdapat satu object label yang diberi nama DATA TRANSAKSI.


Object  Button
Terdapat tiga buah object Button yaitu  Hapus, Tambah, Edit. Object button Hapus digunakan  untuk menghapus data yang telah dipilih pada datagridview. object button tambah digunakan untuk menambah data barang yang diinginkan. Object button edit digunakan untuk mengedit barang yang dipilih pada datagridview dan Jika tombol tambah atau edit diklik, makan akan muncul form latihan_40B_36110056.


Object  DateGridView
Terdapat dua object DataGridView. object  DataGridView 1 digunakan untuk menampilkan  kolom data notrans, tanggal transaksi, dan jenis transaksi dan object DataGridView 2 digunakan untuk menampilkan kolom notrans, kode barang, nama barang, harga, unit, dan jumlah 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 40A

Even

FromLoad

ButtonClick

( )

Property

  Default

Langkah-langkah penyelesaian latihan 40A:

• 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 dan Button yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan40A_36110056
    Dim iya As New DataSet
    Dim neng1 As New DataTable
    Dim neng2 As New DataTable
    Dim abang1 As New BindingSource
    Dim abang2 As New BindingSource
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb")
    Public Sub nenong()
        Dim cc As New OleDb.OleDbDataAdapter
        cc = New OleDb.OleDbDataAdapter("select * from mastertransaksi", jembatan)
        neng1.Rows.Clear()
        cc.Fill(neng1)

        cc = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", jembatan)
        neng2.Rows.Clear()
        cc.Fill(neng2)

    End Sub

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

        iya.Tables.Add(neng1)
        iya.Tables.Add(neng2)

        neng1.TableName = "n1"
        neng2.TableName = "n2"

        iya.Relations.Add(New DataRelation("an", iya.Tables("n1").Columns("notrans"), iya.Tables("n2").Columns("notrans")))

        abang1.DataSource = iya
        abang1.DataMember = "n1"

        abang2.DataSource = abang1
        abang2.DataMember = "an"

        Dim dd(1) As DataColumn
        dd(0) = neng1.Columns("notrans")
        neng1.PrimaryKey = dd

        dgv1_36110056.DataSource = abang1
        dgv2_36110056.DataSource = abang2
    End Sub

  
    Private Sub hapus_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36110056.Click
        Dim mm As New OleDb.OleDbCommand
        mm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_36110056.CurrentRow.Cells("notrans").Value & "'", jembatan)
        jembatan.Open()
        mm.ExecuteNonQuery()
        jembatan.Close()

        mm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_36110056.CurrentRow.Cells("notrans").Value & "'", jembatan)
        jembatan.Open()
        mm.ExecuteNonQuery()
        jembatan.Close()
        mm.Dispose()
        nenong()
    End Sub

    Private Sub edit_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110056.Click
        If latihan40B_36110056.Visible = False Then
            latihan40B_36110056.Show()
        Else
            latihan40B_36110056.Activate()
        End If

        latihan40B_36110056.nt_36110056.Text = dgv1_36110056.CurrentRow.Cells("notrans").Value
        latihan40B_36110056.dtp_36110056.Value = dgv1_36110056.CurrentRow.Cells("tanggaltransaksi").Value
        latihan40B_36110056.jt_36110056.Text = dgv1_36110056.CurrentRow.Cells("jenistransaksi").Value
        latihan40B_36110056.ntr_36110056.Text = dgv1_36110056.CurrentRow.Cells("notrans").Value

        latihan40B_36110056.total()
        latihan40B_36110056.sus()

    End Sub

    Private Sub tambah_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110056.Click
        If latihan40B_36110056.Visible = False Then
            latihan40B_36110056.Show()
        Else
            latihan40B_36110056.Activate()
        End If

        latihan40B_36110056.nt_36110056.Text = ""
        latihan40B_36110056.jt_36110056.Text = ""
        latihan40B_36110056.ntr_36110056.Text = "-"
        latihan40B_36110056.sus()
        latihan40B_36110056.total()
    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