Latihan_38_46110038

Deskripsi Form Latihan_38_46110038:

Form Latihan_38_46110038 hanya terdapat 5 object yaitu label, textbox, button, datagridview, dan Datetimepicker.

Object Label

Di Latihan_38_46110038  ada 9 label yang bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, Kode Barang, Unit, Harga, Jumlah, da Total.

Object Textbox

Di Latihan_38_46110038  ada 8 textbox, 5status input yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga, dan 3 status readonly yang digunakan untuk menampilkan jumlah data yang telah di input.

Object Button

Di Latihan_38_46110038  ada 2 object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK).

Object DateTimePicker

Di Latihan_38_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

Object Datagridview

Di Latihan_38_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

click

Leave

Cara Membuat Form Latihan_38_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_38_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_38_46110038

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

    Dim DT As New DataTable

    Private Sub tot()

        Dim total As Integer

        For Each hasil As DataRow In DT.Rows

            total += hasil("Jumlah")

        Next

        total46110038.Text = total

    End Sub

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

        'mendeklarasikan kendaraan

        Dim merah As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        merah = 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='" & nomor46110038.Text & "'", Jalan)

        'bersihkan data

        DT.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        merah.Fill(DT)

        'untuk menampilkan isi datatable ke data grid view

        merah.Dispose()

        Data46110038.DataSource = DT

        'perintah primarykey

        Dim key(2) As DataColumn

        key(0) = DT.Columns("Kodebarang")

        DT.PrimaryKey = key

    End Sub

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

        If kode46110038.Text.Length = 0 Then

            Exit Sub

        End If

        'mencari data yang ada di tabel

        Dim search As New ByIskandar.CariKeDataBaseByIskandar

        search.AturPencarianDataBase("barang", "kodebarang", kode46110038.Text, 1, Jalan)

        If search.JumlanBaris > 0 Then

            nomor46110038.Text = search.DataTablenya.Rows(0).Item(1)

        Else

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

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

                kode46110038.Text = Latihan_383940_46110038.Data46110038.CurrentRow.Cells("KodeBarang").Value

                nomor46110038.Text = Latihan_383940_46110038.Data46110038.CurrentRow.Cells("namabarang").Value

                harga46110038.Text = Latihan_383940_46110038.Data46110038.CurrentRow.Cells("hargajual").Value

            Else

                kode46110038.Text = ""

                nomor46110038.Text = ""

            End If

        End If

    End Sub

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

        'Memeriksa isi textbox

        If kode46110038.Text.Length = 0 Then

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

            Exit Sub

        End If

        If unit46110038.Text.Length = 0 Then

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

            Exit Sub

        End If

        If harga46110038.Text.Length = 0 Then

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

            Exit Sub

        End If

        'perintah pencarian data

        Dim mm As DataRow

        mm = DT.Rows.Find(kode46110038.Text)

        If Not mm Is Nothing Then

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

            Exit Sub

        End If

        'penyimpanan data ke datatable

        DT.Rows.Add(kode46110038.Text, nomor46110038.Text, Val(unit46110038.Text), Val(harga46110038.Text), total46110038.Text)

        tot()

        'mengosongkan textbox

        kode46110038.Text = ""

        nomor46110038.Text = ""

        unit46110038.Text = ""

        harga46110038.Text = ""

        total46110038.Text = ""

    End Sub

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

        total46110038.Text = Val(unit46110038.Text) * Val(harga46110038.Text)

    End Sub

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

        'Memeriksa isi textbox

        If nomor46110038.Text.Length = 0 Then

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

            Exit Sub

        End If

        If jenis46110038.Text.Length = 0 Then

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

            Exit Sub

        End If

        If DT.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", nomor46110038.Text, 1, Jalan)

        If search.JumlanBaris > 0 Then

            MsgBox("the code has been exist")

            Exit Sub

        End If

        'Proses Penyimpanan ke tabel master transaksi

        Dim kawan As New OleDb.OleDbCommand

        kawan = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & nomor46110038.Text & "',#" & tanggal46110038.Value.Month & "/" & tanggal46110038.Value.Day & "/" & tanggal46110038.Value.Year & "#,'" & jenis46110038.Text & "')", Jalan)

        Jalan.Open()

        kawan.ExecuteNonQuery()

        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each erma As DataRow In DT.Rows

            kawan = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & nomor46110038.Text & "','" & erma("kodebarang") & "'," & erma("unit") & "," & erma("harga") & ")", Jalan)

            Jalan.Open()

            kawan.ExecuteNonQuery()

            Jalan.Close()

        Next

        kawan.Dispose()

        'Mengosongkan isi text box

        nomor46110038.Text = ""

        jenis46110038.Text = ""

        'Mengosongkan baris datatable

        DT.Rows.Clear()

        'menutup form

        Me.Close()

    End Sub

End Class

Untuk menjalankan Latihan_38_46110038, klik start debugging dan masukkan data.