Latihan_35_46110038

Deskripsi Form Latihan_35_46110038:

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

Object Label

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

Object Textbox

Di Latihan_35_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_35_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_35_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

Object Datagridview

Di Latihan_35_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

click

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

Public Class Latihan_35_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 Latihan_35_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 kodebarang,unit,harga FROM DETAILTRANSAKSI where 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

        Data46110038.DataSource = DT

    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

        'penyimpanan data ke datatable

        DT.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 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_35_46110038, klik start debugging dan masukkan data.