Latiahan_38_46110009

Latiahan_38_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 38

Pada form latihan 34C ada 4 object yang digunakan yaitu Label, Text Box, Button dan Status strip.

          ü Object Label

         Pada form ini label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode barang, unit dan harga).

           ü Object TextBox

         Pada form ini ada 5 textbox yang digunakan (status input). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi, jenis transaksi, kode barang, unit dan harga”.

üObject DateTimePicker

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

üObject Button                                               

         Terdapat 2 object button (tambah dan simpan). Tombol “tambah” digunakan untuk menambah data dan tombol “simpan” untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

üObject DataGridView

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

3.  Rumus

Public Class Latihan_38_46110009

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

    Dim MARS As New DataTable

    Private Sub botto()

        Dim ttotal As Integer

        For Each hasil As DataRow In MARS.Rows

            ttotal += hasil("Jumlah")

        Next

        Total_46110009.Text = ttotal

    End Sub

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

        'mendeklarasikan kendaraan

        Dim DIA As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        DIA = 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 & "'", ULHY)

        'bersihkan data

        MARS.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        DIA.Fill(MARS)

        'untuk menampilkan isi datatable ke data grid view

        DIA.Dispose()

        DGV_46110009.DataSource = MARS

        'perintah primarykey

        Dim BAIK(2) As DataColumn

        BAIK(0) = MARS.Columns("Kodebarang")

        MARS.PrimaryKey = BAIK

    End Sub

    Private Sub KB_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110009.Leave

        If KB_46110009.Text.Length = 0 Then

            Exit Sub

        End If

        'mencari data yang ada di tabel

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

        Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110009.Text, 1, ULHY)

        If Pencari.JumlanBaris > 0 Then

            NB_46110009.Text = Pencari.DataTablenya.Rows(0).Item(1)

        Else

            MsgBox("the data is not exist, please choose from the this list")

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

                KB_46110009.Text = Latihan_383940_46110009.view.CurrentRow.Cells("KodeBarang").Value

                NB_46110009.Text = Latihan_383940_46110009.view.CurrentRow.Cells("namabarang").Value

                Harga_46110009.Text = Latihan_383940_46110009.view.CurrentRow.Cells("hargajual").Value

            Else

                KB_46110009.Text = ""

                NB_46110009.Text = ""

            End If

        End If

    End Sub

    Private Sub Tambah_46110009Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_46110009.Click

        'Memeriksa isi textbox

        If KB_46110009.Text.Length = 0 Then

            MsgBox("Please, insert the code of goods")

            Exit Sub

        End If

        If Unit_46110009.Text.Length = 0 Then

            MsgBox("Please, insert the unit of goods")

            Exit Sub

        End If

        If Harga_46110009.Text.Length = 0 Then

            MsgBox("Please, insert the cost of goods")

            Exit Sub

        End If

        'perintah pencarian data

        Dim CANTIK As DataRow

        CANTIK = MARS.Rows.Find(KB_46110009.Text)

        If Not CANTIK Is Nothing Then

            MsgBox("Sorry, the data has been exist!!! Please insert new data")

            Exit Sub

        End If

        'penyimpanan data ke datatable

        MARS.Rows.Add(KB_46110009.Text, NB_46110009.Text, Val(Unit_46110009.Text), Val(Harga_46110009.Text), Jumlah_46110009.Text)

        botto()

        'mengosongkan textbox

        KB_46110009.Text = ""

        NB_46110009.Text = ""

        Unit_46110009.Text = ""

        Harga_46110009.Text = ""

        Jumlah_46110009.Text = ""

    End Sub

    Private Sub Unit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110009.TextChanged, Harga_46110009.TextChanged

        Jumlah_46110009.Text = Val(Unit_46110009.Text) * Val(Harga_46110009.Text)

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110009.Click

        'Memeriksa isi textbox

        If NT_46110009.Text.Length = 0 Then

            MsgBox("Please, insert the Number of the transaction")

            Exit Sub

        End If

        If JT_46110009.Text.Length = 0 Then

            MsgBox("Please, insert the type of the transaction")

            Exit Sub

        End If

        If MARS.Rows.Count = 0 Then

            MsgBox("the data is none")

            Exit Sub

        End If

        'Memeriksa nomor transaksi pd master transaksi

        Dim search As New ByIskandar.CariKeDataBaseByIskandar

        search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110009.Text, 1, ULHY)

        If search.JumlanBaris > 0 Then

            MsgBox("the code has been exist")

            Exit Sub

        End If

        'Proses Penyimpanan ke tabel master transaksi

        Dim INDO As New OleDb.OleDbCommand

        INDO = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110009.Text & "',#" & DTP_46110009.Value.Month & "/" & DTP_46110009.Value.Day & "/" & DTP_46110009.Value.Year & "#,'" & JT_46110009.Text & "')", ULHY)

        ULHY.Open()

        INDO.ExecuteNonQuery()

        ULHY.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each nhana As DataRow In MARS.Rows

            INDO = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110009.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", ULHY)

            ULHY.Open()

            INDO.ExecuteNonQuery()

            ULHY.Close()

        Next

        INDO.Dispose()

        'Mengosongkan isi text box

        NT_46110009.Text = ""

        JT_46110009.Text = ""

        'Mengosongkan baris datatable

        MARS.Rows.Clear()

        'menutup form

        Me.Close()

    End Sub

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

    End Sub

End Class