Latihan_36_46110038

Deskripsi Form Latihan_36_46110038:

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

Object Label

Di Latihan_36_46110038  ada 6 label yang bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, Kode Barang, Unit, dan Harga.

Object Textbox

Di Latihan_36_46110038  ada 5 textbox (semuanya status input) yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga.

Object Button

Di Latihan_36_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). Pada latihan ini, data yang memiliki nomor transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database.

Object DateTimePicker

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

Object Datagridview

Di Latihan_36_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

click

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

Public Class Latihan_36_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 Latihan36_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'mendeklarasikan kendaraan

        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        bojel = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & nomor46110038.Text & "'", Jalan)

        'bersihkan data

        merah.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        bojel.Fill(merah)

        'untuk menampilkan isi datatable ke data grid view

        bojel.Dispose()

        Data46110038.DataSource = merah

        'perintah primarykey

        Dim kabotcibay(2) As DataColumn

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

        merah.PrimaryKey = kabotcibay

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

        merah.Rows.Add(kode46110038.Text, Val(unit46110038.Text), Val(harga46110038.Text))

        'mengosongkan textbox

        kode46110038.Text = ""

        unit46110038.Text = ""

        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_36_46110038, klik start debugging dan masukkan data. Jangan masukkan nomor transaksi yang sama karena tidak dapat ditambah atau disimpan ke dalam database.