Latihan_36_36110046

Deskripsi & Prosedur Form Latihan_36_36110046

Deskripsi Form Latihan_36_36110046

 

Pada Form Latihan 36 terdapat 5 object, yaitu button, label,datetimepicker, datagridview dan textbox.

Object Pada Form

Object Button

Terdapat 2 objek button (seperti terlihat gambar di atas)

Object Label

Terdapat 6 objek label (seperti terlihat gambar di atas)

Object DateTimePicker

Terdapat 1 objek label (seperti terlihat gambar di atas)

Object DataGridview

Terdapat 1 objek label (seperti terlihat gambar di atas)

Object Textbox

Terdapat 5 objek textbox (seperti terlihat gambar di atas)

Script Unique

-

Event

ButtonClick

TextChanged

Property

-

Prosedur Form Latihan_36_36110046

Langkah-langkah mengerjakan Latihan 36, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 36 dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_36_36110046

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

    Dim Table As New DataTable

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

        'mendeklarasikan kendaraan

        Dim Adapter As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        Adapter = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NOTRANS_36110046.Text & "'", Connect)

        'bersihkan data

        Table.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        Adapter.Fill(Table)

        'untuk menampilkan isi datatable ke data grid view

        Adapter.Dispose()

        DGV_36110046.DataSource = Table

        'perintah primarykey

        Dim Kolom(2) As DataColumn

        Kolom(0) = Table.Columns("Kodebarang")

        Table.PrimaryKey = Kolom

    End Sub

    Private Sub TAMBAH_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_36110046.Click

        'Memeriksa isi textbox

        If KB_36110046.Text.Length = 0 Then

            MsgBox("Masukkan kode barang")

            Exit Sub

        End If

        If UNIT_36110046.Text.Length = 0 Then

            MsgBox("Masukkan jumlah unit barang")

            Exit Sub

        End If

        If HARGA_36110046.Text.Length = 0 Then

            MsgBox("Masukkan harga barang")

            Exit Sub

        End If

        'perintah pencarian data

        Dim drlebay As DataRow

        drlebay = Table.Rows.Find(KB_36110046.Text)

        If Not drlebay Is Nothing Then

            MsgBox("Maaf, data sudah ada!!! Masukkan data baru")

            Exit Sub

        End If

        'penyimpanan data ke datatable

        Table.Rows.Add(KB_36110046.Text, Val(UNIT_36110046.Text), Val(HARGA_36110046.Text))

        'mengosongkan textbox

        KB_36110046.Text = ""

        UNIT_36110046.Text = ""

        HARGA_36110046.Text = ""

    End Sub

    Private Sub SIMPAN_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110046.Click

        'Memeriksa isi textbox

        If NOTRANS_36110046.Text.Length = 0 Then

            MsgBox("Masukkan nomor transaksi")

            Exit Sub

        End If

        If JNSTRANS_36110046.Text.Length = 0 Then

            MsgBox("Masukkan jenis transaksi")

            Exit Sub

        End If

        If Table.Rows.Count = 0 Then

            MsgBox("Tidak ada data yang dapat disimpan")

            Exit Sub

        End If

        'Memeriksa nomor transaksi pd master transaksi

        Dim search As New ByIskandar.CariKeDataBaseByIskandar

        search.AturPencarianDataBase("mastertransaksi", "notrans", NOTRANS_36110046.Text, 1, Connect)

        If search.JumlanBaris > 0 Then

            MsgBox("No. Transaksi sudah ada")

            Exit Sub

        End If

        'Proses Penyimpanan ke tabel master transaksi

        Dim qipe As New OleDb.OleDbCommand

        qipe = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NOTRANS_36110046.Text & "',#" & TGL_36110046.Value.Month & "/" & TGL_36110046.Value.Day & "/" & TGL_36110046.Value.Year & "#,'" & JNSTRANS_36110046.Text & "')", Connect)

        Connect.Open()

        qipe.ExecuteNonQuery()

        Connect.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each baris As DataRow In Table.Rows

            qipe = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NOTRANS_36110046.Text & "','" & baris("kodebarang") & "'," & baris("unit") & "," & baris("harga") & ")", Connect)

            Connect.Open()

            qipe.ExecuteNonQuery()

            Connect.Close()

        Next

        qipe.Dispose()

        'Mengosongkan isi text box

        NOTRANS_36110046.Text = ""

        JNSTRANS_36110046.Text = ""

        'Mengosongkan baris datatable

        Table.Rows.Clear()

        'menutup form

        Me.Close()

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.