Latihan_36_46110055

Deskripsi Form Latihan 36

Pada form latihan 36 Terdapat 5 object yaitu Label, DataGridView, DateTimePicker, Textbox dan Button.

Object Label
Terdapat 6 Label yaitu No.Transaksi; Tanggal; Jenis Transaksi; Kode Barang; Unit dan Harga

Object DataGridView
Terdapat 1 DataGridView yang akan menampilkan data table.

Object DateTimePicker
Terdapat 1 DateTimePicker yaitu Tanggal.

Object Textbox
Terdapat 5  yaitu No.Transaksi; Jenis Transaksi; Kode Barang; Unit dan Harga

Object Button
Terdapat 2 button yaitu Tombol Insert dan Save. Ketika Tombol Insert di click maka akan menambah data yang diinput kedalam data table yang muncul pada datagridview . Ketika tombol Save diclick maka data yang ada di data table akan tersimpan di data access.

Script Unique
Tidak ada Script Unique pada latihan ini karena hampir sama dengan latihan sebelumnya.

Even
Load, Click

Property
Default

Langkah-langkah membuat Latihan 36:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 36”

6. Setelah itu beri teks pada label dan buatlah DataGridview, DateTimePicker, Textbox dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

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

    Private Sub Latihan_36_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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='" & NT46110055.Text & "'", febi)

        'bersihkan data
        feb.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        CINTA.Fill(feb)

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

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

    End Sub

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

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

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

        'perintah pencarian data
        Dim SAYANG As DataRow
        SAYANG = feb.Rows.Find(KB46110055.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
        feb.Rows.Add(KB46110055.Text, Val(UN46110055.Text), Val(HR46110055.Text))

        'mengosongkan textbox
        KB46110055.Text = ""
        UN46110055.Text = ""
        HR46110055.Text = ""
    End Sub

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

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

        If feb.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", NT46110055.Text, 1, febi)
        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 ('" & NT46110055.Text & "',#" & DTP46110055.Value.Month & "/" & DTP46110055.Value.Day & "/" & DTP46110055.Value.Year & "#,'" & JT46110055.Text & "')", febi)
        febi.Open()
        RINDU.ExecuteNonQuery()
        febi.Close()

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

        Next
        RINDU.Dispose()

        'Mengosongkan isi text box
        NT46110055.Text = ""
        JT46110055.Text = ""

        'Mengosongkan baris datatable
        feb.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: