• 0

Latihan_36_46110003



Deskripsi form Latihan_36_46110003
Dalam form Latihan_36_46110003 terdapat empat object yaitu Label, Textbox, Button dan DataGridView.
Object Label :
Dalam form ini terdapat enam buah object label yang bertuliskan “No.Transakasi”, “Tgl Transaksi”, “Jenis Transaksi”, “Kode Barang”, “Unit” dan “Harga”.
Object Textbox :
Dalam form ini terdapat enam buah object textbox yang semuanya berstatus input.
Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “simpan” dan “tambah”. Button “tambah” digunakan untuk menampilkan data yang telah diinput di datagridview sedangkan Button “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :
Penyimpanan isi datatable ke detail transaksi

For Each nhana As DataRow In gitik.Rows
kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,Unit,Harga) values ('" & nt_46110003.Text & "','" & nhana("kodebarang") & "'," & nhana("Unit") & "," & nhana("Harga") & ")", Jalan)
           
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()

   Next
   kacci.Dispose()

Even :
Button click
Load


Langkah-langkah penyelesaian form latihan_36_46110003

1.      Buat desain Form seperti contoh dibawah ini:
 
2.      Masukkan rumus:

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

    Private Sub Latihan_36_46110003_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='" & notrans46110003.Text & "'", amal)

        'bersihkan data
        maulana.Rows.Clear()

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

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

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


    End Sub

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

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

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

        'perintah pencarian data
        Dim SAYANG As DataRow
        SAYANG = maulana.Rows.Find(kb46110003.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
        maulana.Rows.Add(kb46110003.Text, Val(unit46110003.Text), Val(harga46110003.Text))

        'mengosongkan textbox
        kb46110003.Text = ""
        unit46110003.Text = ""
        harga46110003.Text = ""
    End Sub

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

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

        If maulana.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", notrans46110003.Text, 1, amal)
        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 ('" & notrans46110003.Text & "',#" & date46110003.Value.Month & "/" & date46110003.Value.Day & "/" & date46110003.Value.Year & "#,'" & jt46110003.Text & "')", amal)
        amal.Open()
        RINDU.ExecuteNonQuery()
        amal.Close()

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

        Next
        RINDU.Dispose()

        'Mengosongkan isi text box
        notrans46110003.Text = ""
        jt46110003.Text = ""

        'Mengosongkan baris datatable
        maulana.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class

3.      Jalankan Program dengan mengklik Debugging.
 

0 komentar:

Posting Komentar

Copyright © 2012 amal maulanaTemplate by : UrangkuraiPowered by Blogger.Please upgrade to a Modern Browser.