Latihan_35_46110002

Deskripsi Form Latihan 35

Pada form latihan 35 ada Lima object  yang digunakan yaitu Label, Textbox, Button, data time picker, dan Data Grid View.

Object Label

Terdapat Enam object label (no. transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).

Object Textbox

Terdapat Lima object textbox yang semuanya berstatus input.

Object Button

Terdapat Dua object button yaitu "tambah" berfungsi untuk menginput data textbox ke tabel yang ada pada data grid view. Sedangkan button "simpan" digunakan untuk menyimpan data yang diinput ke database.

Object Date Time Picker

Dalam latihan ini terdapat sebuah date time picker.

Object DataGridView

Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput

Script Unique

'Memeriksa isi textbox

        If KB_46110002.Text.Length = 0 Then

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

            Exit Sub

        End If

 Langkah-Langkah Penyelesaian Form Latihan_35_46110002

·         Buka folder project yang telah dibuat.
  ·         Click project kemudian pilih add windows form

·         Buat form "Latihan_35_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties untuk object button dan label.

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_35_46110002
    Dim ILDA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim YANI As New DataTable

    Private Sub Latihan_35_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'mendeklarasikan kendaraan
        Dim AK As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        AK = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NT_46110002.Text & "'", ILDA)

        'bersihkan data
        YANI.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        AK.Fill(YANI)

        'untuk menampilkan isi datatable ke data grid view
        AK.Dispose()
        DGV_46110002.DataSource = YANI
    End Sub

    Private Sub TAMBAH_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110002.Click
        'Memeriksa isi textbox
        If KB_46110002.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If UN_46110002.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If HR_46110002.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If


        'penyimpanan data ke datatable
        YANI.Rows.Add((KB_46110002.Text), Val(UN_46110002.Text), Val(HR_46110002.Text))

        'mengosongkan textbox
        KB_46110002.Text = ""
        UN_46110002.Text = ""
        HR_46110002.Text = ""
    End Sub

    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click
        'Memeriksa isi textbox
        If NT_46110002.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If JT_46110002.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If YANI.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", NT_46110002.Text, 1, ILDA)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim RINDU As New OleDb.OleDbCommand
        RINDU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110002.Text & "',#" & DTP_46110002.Value.Month & "/" & DTP_46110002.Value.Day & "/" & DTP_46110002.Value.Year & "#,'" & JT_46110002.Text & "')", ILDA)
        ILDA.Open()
        RINDU.ExecuteNonQuery()
        ILDA.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each AKU As DataRow In YANI.Rows
            RINDU = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110002.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", ILDA)
            ILDA.Open()
            RINDU.ExecuteNonQuery()
            ILDA.Close()

        Next
        RINDU.Dispose()

        'Mengosongkan isi text box
        NT_46110002.Text = ""
        JT_46110002.Text = ""

        'Mengosongkan baris datatable
        YANI.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class
 

Langkah-Langkah Menjalankan Form Latihan 35

·         Klik star debugging, trus klik latihan 35

·          Maka akan muncul hasil seperti ini

·         Lalu click “tambah, untuk menambah data pada file akses trus klik simpan untuk menyimpan data yang telah ditambahkan.