Latihan_36_46110009

 Latihan_36_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 36

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_36_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 Latihan_36_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 kodebarang,unit,harga FROM DETAILTRANSAKSI where 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 kabotcibay(2) As DataColumn

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

        MARS.PrimaryKey = kabotcibay

    End Sub

    Private Sub Tambah_Click(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 drlebay As DataRow

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

        If Not drlebay 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, Val(Unit_46110009.Text), Val(Harga_46110009.Text))

        'mengosongkan textbox

        KB_46110009.Text = ""

        Unit_46110009.Text = ""

        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