• 0

Latihan_38_46110003



Deskripsi form Latihan_38_46110003
Dalam form Latihan_38_46110003 terdapat empat object yaitu Label, Textbox, Button dan DataGridView.
Object Label :
Dalam form ini terdapat sembilan buah object label yang bertuliskan “No.Transakasi”, “Tgl Transaksi”, “Jenis Transaksi”, “Kode Barang”, “Unit”, “Nama Barang”, “Jumlah”, “Harga” dan “Total”
Object Textbox :
Dalam form ini terdapat sembilan buah object textbox 6 yang berstatus input dan 3 yang berstatus read only.
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 :
Perintah untuk memeriksa apakah kode barang ada dalam database dan jika tidak ada maka program akan menampilkan daftar kode barang yang ada dalam database dengan cara menampilkan form latihan 383940.

Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", kb_46110003.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            nb_46110003.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If latihan_383940_46110003.ShowDialog = Windows.Forms.DialogResult.OK Then
                kb_46110003.Text = latihan_383940_46110003.dgv_46110004.CurrentRow.Cells("KodeBarang").Value
                nb_46110003.Text = latihan_383940_46110003.dgv_46110003.CurrentRow.Cells("namabarang").Value
                Harga_46110003.Text = latihan_383940_46110003.dgv_46110003.CurrentRow.Cells("hargajual").Value
            Else
                kb_46110003.Text = ""
                nb_46110003.Text = ""
            End If
        End If

Even :
Button click
Load
TextChanged


Langkah-langkah penyelesaian form latihan_38_46110003

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

Public Class Latihan_38_46110003
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Private Sub botto()
        Dim ttotal As Integer
        For Each hasil As DataRow In gitik.Rows
            ttotal += hasil("jumlah")
        Next
        Total_46110003.Text = ttotal
    End Sub
    Private Sub Latihan37_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'mendeklarasikan kendaraan
        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        bojel = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & NT_46110003.Text & "'", Jalan)

        'bersihkan data
        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        bojel.Fill(gitik)

        'untuk menampilkan isi datatable ke data grid view
        bojel.Dispose()
        Showme_46110003.DataSource = gitik

        'perintah primarykey
        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = gitik.Columns("Kodebarang")
        gitik.PrimaryKey = kabotcibay
    End Sub
    Private Sub kb_46110003_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110003.Leave
        If KB_46110003.Text.Length = 0 Then
            Exit Sub
        End If

        'mencari data yang ada di tabel
        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110003.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            NB_46110003.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_383940_46110003.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_46110003.Text = Latihan_383940_46110003.view_46110003.CurrentRow.Cells("KodeBarang").Value
                NB_46110003.Text = Latihan_383940_46110003.view_46110003.CurrentRow.Cells("namabarang").Value
                Harga_46110003.Text = Latihan_383940_46110003.view_46110003.CurrentRow.Cells("hargajual").Value
            Else
                KB_46110003.Text = ""
                NB_46110003.Text = ""
            End If
        End If

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

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

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

        'perintah pencarian data
        Dim drlebay As DataRow
        drlebay = gitik.Rows.Find(KB_46110003.Text)
        If Not drlebay Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        'penyimpanan data ke datatable
        gitik.Rows.Add(KB_46110003.Text, NB_46110003.Text, Val(Unit_46110003.Text), Val(Harga_46110003.Text), Jumlah_46110003.Text)

        botto()

        'mengosongkan textbox
        KB_46110003.Text = ""
        NB_46110003.Text = ""
        Unit_46110003.Text = ""
        Harga_46110003.Text = ""
        Jumlah_46110003.Text = ""
    End Sub
    Private Sub unit_46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110003.TextChanged, Harga_46110003.TextChanged
        Jumlah_46110003.Text = Val(Unit_46110003.Text) * Val(Harga_46110003.Text)
    End Sub
    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110003.Click
        'Memeriksa isi textbox
        If NT_46110003.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

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

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

        'Proses Penyimpanan ke tabel master transaksi
        Dim kacci As New OleDb.OleDbCommand
        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110003.Text & "',#" & DTP_46110003.Value.Month & "/" & DTP_46110003.Value.Day & "/" & DTP_46110003.Value.Year & "#,'" & JT_46110003.Text & "')", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        '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()

        'Mengosongkan isi text box
        NT_46110003.Text = ""
        JT_46110003.Text = ""

        'Mengosongkan baris datatable
        gitik.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.