Latihan_36_46110002

Deskripsi Form Latihan 36

Pada form latihan 36 ada 5 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode barang, unit dan harga).

Object TextBox

Pada form ini ada 5 textbox yang digunakan (status input). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi, jenis transaksi, kode barang, unit dan harga”.

Object DateTimePicker

Pada latihan 36 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Button                                                                

Terdapat 2 object button (insert dan save). Tombol “tambah” digunakan untuk menambah data dan tombol “simpan” untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

Even

Load

ButtonClick

Script Unique

Lebih lengkap dan jelasnya silahkan dilihat pada script di bawah.

 

Langkah-Langkah Penyelesaian Form Latihan_36
·  Buka project yang telah dibuat sebelumnya.

·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_36_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Setelah itu beri teks pada button dan label.

·         Kemudian beri nama pada semua objek kecuali label.

·  Setelah form selesai masukkan rumus seperti dibawah ini  

Public Class Latihan_36_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_36_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'mendeklarasikan kendaraan
        Dim CINTA As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        CINTA = 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
        CINTA.Fill(YANI)

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

        'perintah primarykey
        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = YANI.Columns("Kodebarang")
        YANI.PrimaryKey = kabotcibay


    End Sub

    Private Sub INSERT_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_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

        'perintah pencarian data
        Dim SAYANG As DataRow
        SAYANG = YANI.Rows.Find(KB_46110002.Text)
        If Not SAYANG Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            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 36

- Klik start debugging lalu klik latihan 36

1.      Input data pada textbox yang tersedia sesuai perintah yang ada pada label.

2.      Jika ingin menambahkan data klik “insert”

3.      Jika ingin menyimpan data yang telah diinput/ditambah ke data tabel (Data Majemuk) klik tombol “Save”

4.      Selamat mencoba