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