Latihan_40B_46110009

Latihan_40B_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 40A

Pada latihan 40B terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

          ü  Object Button     

Terdapat 1 object button (save). Tombol “save” digunakan untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

          ü  Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

          ü  Object StatusStrip

Ada 2 statusstrip yang digunakan (no transaksi dan -). “-“ nantinya akan menampilkan no transaksi.

 3.  Rumus

Public Class Latihan_40B_46110009

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim gitik As New DataTable

    Dim baru(1) As DataColumn

    Public Sub botto()

        Dim ttotal As Integer

        For Each hasil As DataRow In gitik.Rows

            ttotal += hasil("Jumlah")

        Next

        Total_46110009.Text = ttotal

    End Sub

    Public Sub makecolumn()

        'mendeklarasikan kendaraan

        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        bojel = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & NT_46110009.Text & "'", Jalan)

        'bersihkan data

        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        bojel.Fill(gitik)

        bojel.Dispose()

        'untuk menampilkan isi datatable ke data grid view

        gitik.Columns("Kodebarang").DefaultValue = ""

        gitik.Columns("NamaBarang").DefaultValue = ""

        gitik.Columns("unit").DefaultValue = 0

        gitik.Columns("harga").DefaultValue = 0

        gitik.Columns("jumlah").DefaultValue = 0

        gitik.Columns("NamaBarang").ReadOnly = True

        baru(0) = gitik.Columns("kodebarang")

        gitik.PrimaryKey = baru

        DGV_46110009.DataSource = gitik

    End Sub

End Class

Latihan_40A_46110009

Latihan_40A_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 40A

         Pada form latihan 40A ada 2 object yang digunakan yaitu , Button dan DataGridView

ü  Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

ü Button

Terdapat 3 object button

3.  Rumus

Public Class Latihan_40A_46110009

    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim dtdetail As New DataTable

    Dim dtmaster As New DataTable

    Dim atur2 As New DataSet

    Dim bsdetail As New BindingSource

    Dim bsmaster As New BindingSource

    Public Sub grabdata()

        'proses pengosongan dan pengisian data tabel

        dtdetail.Rows.Clear()

        dtmaster.Rows.Clear()

        Dim master As New OleDb.OleDbDataAdapter

        master = New OleDb.OleDbDataAdapter("select* from mastertransaksi", go)

        master.Fill(dtmaster)

        master.Dispose()

        Dim detail As New OleDb.OleDbDataAdapter

        detail = New OleDb.OleDbDataAdapter("select* from detailtransaksi", go)

        detail.Fill(dtdetail)

        detail.Dispose()

    End Sub

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

        grabdata()

        'memasukkan datatabel ke dalam dataset

        dtmaster.TableName = "idung"

        dtdetail.TableName = "kake"

        Look1.DataSource = bsmaster

        Look2.DataSource = bsdetail

        atur2.Tables.Add(dtmaster)

        atur2.Tables.Add(dtdetail)

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("idung").Columns("notrans"), atur2.Tables("kake").Columns("notrans")))

        'menampilkan datatabel ke dGV dg menggunakan binding

        bsmaster.DataSource = atur2

        bsmaster.DataMember = "idung"

        bsdetail.DataSource = bsmaster

        bsdetail.DataMember = "relasi"

    End Sub

    Private Sub Ganti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ganti.Click

        Latihan_40B_46110009.Show()

        Latihan_40B_46110009.replace.Text = Look1.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110009.NT_46110009.Text = Look1.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110009.DTP_46110009.Text = Look1.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40B_46110009.JT_46110009.Text = Look1.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40B_46110009.makecolumn()

        Latihan_40B_46110009.botto()

    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

        Latihan_40B_46110009.Show()

        Latihan_40B_46110009.NT_46110009.Text = ""

        Latihan_40B_46110009.JT_46110009.Text = ""

        Latihan_40B_46110009.replace.Text = "-"

        Latihan_40B_46110009.makecolumn()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        If MsgBox("seriously want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        Dim bojel As New OleDb.OleDbCommand

        bojel = New OleDb.OleDbCommand("delete* from mastertransaksi where notrans='" & Look1.CurrentRow.Cells("notrans").Value & "'", go)

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

        bojel = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & Look1.CurrentRow.Cells("notrans").Value & "'", go)

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

        grabdata()

    End Sub

End Class