Latihan_37_46110038

Deskripsi Form Latihan_37_46110038:

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

Object Label

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

Object Textbox

Di Latihan_37_46110038  ada 8 textbox, 5 status 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_37_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_37_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

Object Datagridview

Di Latihan_37_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

click

Leave

Cara Membuat Form Latihan_37_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_37_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_37_46110038

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

    Dim merah As New DataTable

    Private Sub tot()

        Dim total As Integer

        For Each hasil As DataRow In merah.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 saya As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        saya = 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

        merah.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        saya.Fill(merah)

        'untuk menampilkan isi datatable ke data grid view

        saya.Dispose()

        Data46110038.DataSource = merah

        'perintah primarykey

        Dim key(2) As DataColumn

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

        merah.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 Pencari As New ByIskandar.CariKeDataBaseByIskandar

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

        If Pencari.JumlanBaris > 0 Then

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

        Else

            MsgBox("the data is not exist")

            kode46110038.Text = ""

            nomor46110038.Text = ""

            Exit Sub

        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 drlebay As DataRow

        drlebay = merah.Rows.Find(kode46110038.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

        merah.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 merah.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 merah.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

        merah.Rows.Clear()

        'menutup form

        Me.Close()

    End Sub

End Class

Untuk menjalankan Latihan_37_46110038, klik start debugging dan masukkan data