Prosedur Penyelesaian Latihan_40b_36110037
Minggu, 28 Oktober 2012 di 06.17 |  


Form Latihan_40b_36110037 terdapat Lima object yaitu Label, Textbox, Button, Data Grid View dan Status strip.

Object Label
Terdapat Empat object label yang bertuliskan “nomor transaksi”, “tanggal”, “jenis transaksi”  dan “total”.

Object Textbox
Terdapat Empat object textbox yang semuanya berstatus input.

Object Button 
Terdapat Satu object button yaitu button simpan digunakan untuk menampilkan data textbox ke dalam tabel pada data grid view sebelum menyimpan data yang diinput ke database.

Object Data Grid View
Terdapat sebuah object data grid view yang bernama “kertas_36110037”.

Object Status Strip
Terdapat sebuah object status strip yang bernama “StatusStrip_36110037”.

Script Unique
If notrans_36110037.Text <> kode_36110037.Text Then
            rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1, hubung)
            If rhepoet.JumlanBaris > 0 Then
                MsgBox("no transaksi telah ada")
                Exit Sub
            End If
        End If
Event
Buttonclick
Cellendedit

 Property
Default

Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.

4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window

7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_40b_36110037
    Dim rhepoet As New ByIskandar.CariKeDataBaseByIskandar
    Dim table As New DataTable
    Dim rpt As New OleDb.OleDbCommand
    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")
    Public Sub resky2()
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & notrans_36110037.Text & "'", hubung)
        table.Rows.Clear()
        adapter.Fill(table)
    End Sub

    Public Sub resky3()
        Dim resky31 As Integer = 0
        For Each resky32 As DataRow In table.Rows
            resky31 += resky32("JUMLAH")
        Next
        total_36110037.Text = resky31
    End Sub

    Private Sub resky4()
        If notrans_36110037.Text.Length = 0 Then
            MsgBox("no transaksi harus terisi")
            Exit Sub
        End If

        If jnstrans_36110037.Text.Length = 0 Then
            MsgBox("jenis transaksi harus terisi")
            Exit Sub
        End If

        If table.Rows.Count = 0 Then
            MsgBox("Isi datatable")
            Exit Sub
        End If
    End Sub

    Private Sub tambah()
        resky4()
        rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1, hubung)
        If rhepoet.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu..")
            Exit Sub
        End If

        rpt = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_36110037.Text & "',#" & tgl_36110037.Value.Month & "/" & tgl_36110037.Value.Day & "/" & tgl_36110037.Value.Year & "#, '" & tgl_36110037.Text & "')", hubung)
        hubung.Open()
        rpt.ExecuteNonQuery()
        hubung.Close()

        For Each x As DataRow In table.Rows
            rpt = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notrans_36110037.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", hubung)
            hubung.Open()
            rpt.ExecuteNonQuery()
            hubung.Close()
        Next
        rpt.Dispose()

        notrans_36110037.Text = ""
        jnstrans_36110037.Text = ""
        total_36110037.Text = ""
        kode_36110037.Text = "-"

        table.Rows.Clear()
        Latihan_40a_36110037.resky1()
    End Sub

    Public Sub edit()
        resky4()
        If notrans_36110037.Text <> kode_36110037.Text Then
            rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1, hubung)
            If rhepoet.JumlanBaris > 0 Then
                MsgBox("no transaksi telah ada")
                Exit Sub
            End If
        End If

        rpt = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & kode_36110037.Text & "'", hubung)
        hubung.Open()
        rpt.ExecuteNonQuery()
        hubung.Close()

        rpt = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_36110037.Text & "',#" & tgl_36110037.Value.Month & "/" & tgl_36110037.Value.Day & "/" & tgl_36110037.Value.Year & "#, '" & jnstrans_36110037.Text & "')", hubung)
        hubung.Open()
        rpt.ExecuteNonQuery()
        hubung.Close()

        rpt = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & kode_36110037.Text & "'", hubung)
        hubung.Open()
        rpt.ExecuteNonQuery()
        hubung.Close()

        For Each x As DataRow In table.Rows
            rpt = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & notrans_36110037.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", hubung)
            hubung.Open()
            rpt.ExecuteNonQuery()
            hubung.Close()
        Next
        rpt.Dispose()

        notrans_36110037.Text = ""
        jnstrans_36110037.Text = ""
        total_36110037.Text = ""
        kode_36110037.Text = "-"

        table.Rows.Clear()
        Latihan_40a_36110037.resky1()
    End Sub

    Private Sub Latihan_40b_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        resky2()

        Dim dc(1) As DataColumn
        dc(0) = table.Columns("kodebarang")
        table.PrimaryKey = dc

        table.Columns("unit").DefaultValue = 0
        table.Columns("harga").DefaultValue = 0
        table.Columns("jumlah").DefaultValue = 0

        kertas_36110037.DataSource = table
    End Sub

    Private Sub simpan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_36110037.Click
        If kode_36110037.Text = "-" Then
            tambah()
        Else
            edit()
        End If
    End Sub

    Private Sub kertas_36110037_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles kertas_36110037.CellEndEdit
        If kertas_36110037.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = ""
            kertas_36110037.CurrentRow.Cells("UNIT").Value = 0
            kertas_36110037.CurrentRow.Cells("HARGA").Value = 0
            kertas_36110037.CurrentRow.Cells("JUMLAH").Value = 0

            rhepoet.AturPencarianDataBase("barang", "kodebarang", kertas_36110037.CurrentRow.Cells("KODEBARANG").Value, 1, hubung)
            If rhepoet.JumlanBaris > 0 Then
                kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = rhepoet.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = ""
                If Latihan_38_39_40_36110037.ShowDialog = Windows.Forms.DialogResult.OK Then
                    kertas_36110037.CurrentRow.Cells("KODEBARANG").Value = Latihan_38_39_40_36110037.kertas_36110037.CurrentRow.Cells("KODEBARANG").Value
                    kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = Latihan_38_39_40_36110037.kertas_36110037.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf kertas_36110037.Columns(e.ColumnIndex).Name = "UNIT" Or kertas_36110037.Columns(e.ColumnIndex).Name = "HARGA" Then
            kertas_36110037.CurrentRow.Cells("JUMLAH").Value = kertas_36110037.CurrentRow.Cells("UNIT").Value * kertas_36110037.CurrentRow.Cells("HARGA").Value
            resky3()
        End If
    End Sub
End Class

8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai. 

Diposting oleh Unknown

0 komentar:

Posting Komentar

Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger template by blog forum.