AKUNTANSII: 2011

Sabtu, 03 Desember 2011

latihan 40B

Public Class Latihan40B36109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim DATA As New DataTable

    Public Sub lilismulyani()
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & notra.Text & "'", L)
        DATA.Rows.Clear()
        X.Fill(DATA)
    End Sub

    Private Sub Latihan40B36109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = DATA.Columns("NOTRANS")
        DATA.PrimaryKey = dataPrimary
        dgv.DataSource = DATA

        TOTALJUMLAH()
    End Sub

    Public Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each x As DataRow In DATA.Rows
            TOT = TOT + x("JUMLAH")
        Next
        total.Text = TOT

    End Sub

    Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit
        If dgv.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
            'Cari nama barang'
            dgv.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv.CurrentRow.Cells("UNIT").Value = 0
            dgv.CurrentRow.Cells("HARGA").Value = 0
            dgv.CurrentRow.Cells("JUMLAH").Value = 0

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", dgv.CurrentRow.Cells("KODEBARANG").Value, 1, L)
            'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
            If Pencari.JumlanBaris > 0 Then
                dgv.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv.CurrentRow.Cells("KODEBARANG").Value = ""
                If Latihan38394036109061.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv.CurrentRow.Cells("KODEBARANG").Value = Latihan38394036109061.dgv.CurrentRow.Cells("KODEBARANG").Value
                    dgv.CurrentRow.Cells("NAMABARANG").Value = Latihan38394036109061.dgv.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv.Columns(e.ColumnIndex).Name = "UNIT" Or dgv.Columns(e.ColumnIndex).Name = "HARGA" Then
            'Hitung kolom jumlah'
            dgv.CurrentRow.Cells("JUMLAH").Value = dgv.CurrentRow.Cells("UNIT").Value * dgv.CurrentRow.Cells("HARGA").Value
        End If

        TOTALJUMLAH()
    End Sub

    Private Sub Simpan_tambah()
        If notra.Text.Length = 0 Then
            MsgBox("Maaf, Nomor transaksi harus diisi dulu")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Maaf, Jenis transaksi harus diisi dulu")
            Exit Sub
        End If

        If DATA.Rows.Count() = 0 Then
            MsgBox("Maaf, Proses tidak dapat dilanjutkan")
            Exit Sub
        End If

        If NO1.Text <> notra.Text Then
            Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
            pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notra.Text, 1, L)
            If pencari.JumlanBaris > 0 Then
                MsgBox("Nomor transaksi sudah ada")
                Exit Sub
            End If
        End If

        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & DTP.Value.Day & "/" & DTP.Value.Year & "#, '" & jetra.Text & "')", L)
        'Membuka koneksi'
        L.Open()
        'Eksekusi prose penyimpanan'
        LM.ExecuteNonQuery()
        'Menutup koneksi'
        L.Close()

        'Memeriksa isi jumlah baris dalam object tabel'
        For Each X As DataRow In DATA.Rows
            'Mengatur perintah simpan'
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        NO1.Text = "-"
        notra.Text = ""
        jetra.Text = ""

        DATA.Rows.Clear()

        TOTALJUMLAH()
        'Prosedur mengambil data dari Latihan40A017'
        Latihan40A36109061.lis()
    End Sub

    Private Sub Simpan_edit()
        If notra.Text.Length = 0 Then
            MsgBox("Maaf, Nomor transaksi harus diisi dulu")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Maaf, Jenis transaksi harus diisi dulu")
            Exit Sub
        End If

        If DATA.Rows.Count() = 0 Then
            MsgBox("Maaf, Proses tidak dapat dilanjutkan")
            Exit Sub
        End If

        If NO1.Text <> notra.Text Then
            Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
            pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notra.Text, 1, L)
            If pencari.JumlanBaris > 0 Then
                MsgBox("Nomor transaksi sudah ada")
                Exit Sub
            End If
        End If

        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & notra.Text & "'", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        LM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & N.Text & "'", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        'Memeriksa isi jumlah baris dalam object tabel'
        For Each XX As DataRow In DATA.Rows
            'Mengatur perintah simpan'
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        NO1.Text = "-"
        notra.Text = ""
        jetra.Text = ""

        DATA.Rows.Clear()

        TOTALJUMLAH()
        Latihan40A36109061.ina()
    End Sub
    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        If NO1.Text = "-" Then
            Simpan_tambah()
        Else
            Simpan_edit()
        End If
    End Sub
End Class

latihan 40A

Public Class Latihan40A36109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable
    Dim dt1 As New DataTable
    Dim dset As New DataSet 'Deklarasi dataset'
    Dim Bs1 As New BindingSource 'Deklarasi bindingsource'
    Dim Bs2 As New BindingSource

    Public Sub lis()
        'Membersihkan detailtransaksi lalu mastertransaksi'
        dt1.Rows.Clear()
        dt.Rows.Clear()

        Dim L1 As New OleDb.OleDbDataAdapter
        L1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", L)
        L1.Fill(dt)

        L1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", L)
        L1.Fill(dt1)

        L1.Dispose()

    End Sub

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

        lis()

        'Memasukkan datatabel dalam dataset'
        dset.Tables.Add(dt)
        dset.Tables.Add(dt1)

        'Mengganti nama datatabel dalam dataset'
        dt.TableName = "T01"
        dt1.TableName = "T02"

        'Menambahkan relasi dalam dataset'
        dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))

        'Datasource dan membersource'
        Bs1.DataSource = dset
        Bs1.DataMember = "T01"
        Bs2.DataSource = Bs1
        Bs2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DVG'
        dgvA.DataSource = Bs1
        dgvB.DataSource = Bs2
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & dgvA.CurrentRow.Cells("NOTRANS").Value & "'", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        LM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgvA.CurrentRow.Cells("NOTRANS").Value & "'", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        LM.Dispose()

        lis()

    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click
        If Latihan40B36109061.Visible = False Then
            Latihan40B36109061.Show()
        Else
            Latihan40B36109061.Activate()
        End If

        Latihan40B36109061.NO1.Text = dgvA.CurrentRow.Cells("NOTRANS").Value
        Latihan40B36109061.notra.Text = dgvA.CurrentRow.Cells("NOTRANS").Value
        Latihan40B36109061.jetra.Text = dgvA.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan40B36109061.lilismulyani()
        Latihan40B36109061.TOTALJUMLAH()
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
        If Latihan40B36109061.Visible = False Then
            Latihan40B36109061.Show()
        Else
            Latihan40B36109061.Activate()
        End If

        Latihan40B36109061.NO1.Text = "-"
        Latihan40B36109061.notra.Text = ""
        Latihan40B36109061.jetra.Text = ""

        Latihan40B36109061.lilismulyani()
        Latihan40B36109061.TOTALJUMLAH()

    End Sub
End Class

Kamis, 01 Desember 2011

latihan 39

Public Class Latihan3936109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable

    Private Sub Latihan39017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & notra.Text & "'", L)
        X.Fill(dt)
        X.Dispose()

        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = dt.Columns("KODEBARANG")
        dt.PrimaryKey = dataPrimary

        dgv.DataSource = dt
    End Sub

    Private Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each x As DataRow In dt.Rows
            TOT = TOT + x("JUMLAH")
        Next
        total.Text = TOT

    End Sub

    Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit
        If dgv.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
            'Cari nama barang'
            dgv.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv.CurrentRow.Cells("UNIT").Value = 0
            dgv.CurrentRow.Cells("HARGA").Value = 0
            dgv.CurrentRow.Cells("JUMLAH").Value = 0

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", dgv.CurrentRow.Cells("KODEBARANG").Value, 1, L)
            'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
            If Pencari.JumlanBaris > 0 Then
                dgv.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv.CurrentRow.Cells("KODEBARANG").Value = ""
                If Latihan38394036109061.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv.CurrentRow.Cells("KODEBARANG").Value = Latihan38394036109061.dgv.CurrentRow.Cells("KODEBARANG").Value
                    dgv.CurrentRow.Cells("NAMABARANG").Value = Latihan38394036109061.dgv.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv.Columns(e.ColumnIndex).Name = "UNIT" Or dgv.Columns(e.ColumnIndex).Name = "HARGA" Then
            dgv.CurrentRow.Cells("JUMLAH").Value = dgv.CurrentRow.Cells("UNIT").Value * dgv.CurrentRow.Cells("HARGA").Value

            TOTALJUMLAH()
        End If
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        If notra.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notra.Text, 1, L)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        L.Open()
        LM.ExecuteNonQuery()
        Kill.Close()

        For Each X As DataRow In dt.Rows
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        notra.Text = ""
        jetra.Text = ""

        dt.Rows.Clear()

    End Sub
End Class

latihan 38,39 dan 40

Public Class Latihan38394036109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable

    Public Sub lilismulyani()
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select * From BARANG", L)
        dt.Rows.Clear()
        X.Fill(dt)
        X.Dispose()
    End Sub

    Private Sub Latihan38394036109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lilismulyani()
        dgv.DataSource = dt
    End Sub
End Class

latihan 38

Public Class Latihan3836109061
    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable
    Dim dr As DataRow

    Private Sub Latihan3836109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & notrans.Text & "'", L)
        X.Fill(dt)
        X.Dispose()

        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = dt.Columns("KODEBARANG")
        dt.PrimaryKey = dataPrimary
        dgv.DataSource = dt
    End Sub

    Private Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each x As DataRow In dt.Rows
            TOT = TOT + x("JUMLAH")
        Next
        TOTAL.Text = TOT

    End Sub

    Private Sub kobar_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kobar.Leave
        If kobar.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kobar.Text, 1, L)
        If Pencari.JumlanBaris > 0 Then
            kobar.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
            nabar.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang tersebut tidak ada")
            If Latihan38394036109061.ShowDialog = Windows.Forms.DialogResult.OK Then
                kobar.Text = Latihan38394036109061.dgv.CurrentRow.Cells("KodeBarang").Value
                nabar.Text = Latihan38394036109061.dgv.CurrentRow.Cells("NamaBarang").Value
            Else
                kobar.Text = ""
            End If
        End If
    End Sub

    Private Sub kobar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobar.TextChanged
        nabar.Text = ""
        unit.Text = ""
        habar.Text = ""
    End Sub

    Private Sub unit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit.TextChanged, habar.TextChanged
        jml.Text = Val(unit.Text) * Val(habar.Text)
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
        'a'
        If kobar.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        If nabar.Text.Length = 0 Then
            MsgBox("Nama barang sudah ada")
        End If

        If Val(unit.Text) = 0 Then
            MsgBox("Masukkan unit barang")
            Exit Sub
        End If

        If Val(habar.Text) = 0 Then
            MsgBox("Masukkan harga barang barang")
            Exit Sub
        End If

        'b'
        dr = dt.Rows.Find(kobar.Text)

        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kobar.Text
        Else
            MsgBox("Maaf kodebarang sudah ada")
            Exit Sub
        End If

        'c'
        dr = dt.NewRow
        dr("KODEBARANG") = kobar.Text
        dr("NAMABARANG") = nabar.Text
        dr("UNIT") = unit.Text
        dr("HARGA") = habar.Text
        dr("JUMLAH") = jml.Text

        dt.Rows.Add(dr)

        'd'
        kobar.Text = ""
        nabar.Text = ""
        unit.Text = ""
        habar.Text = ""

        'e'
        TOTALJUMLAH()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        'a'
        If notrans.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If

        'b'
        If dt.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        'c'
        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notrans.Text, 1, L)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        'd'
        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notrans.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        Label1.Open()
        LM.ExecuteNonQuery()
        L.Close()

        'e'
        For Each X As DataRow In dt.Rows
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notrans.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        'f'
        notrans.Text = ""
        jetra.Text = ""
        jml.Text = ""

        'g'
        dt.Rows.Clear()

        'h'
        TOTALJUMLAH()
    End Sub
End Class

latihan 37

Public Class Latihan3736109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable
    Dim dr As DataRow

    Private Sub Latihan3736109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & notra.Text & "'", L)
        X.Fill(dt)
        X.Dispose()

        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = dt.Columns("KODEBARANG")
        dt.PrimaryKey = dataPrimary

        dgv.DataSource = dt
    End Sub

    Private Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each x As DataRow In dt.Rows
            TOT = TOT + x("JUMLAH")
        Next
        total.Text = TOT
    End Sub

    Private Sub kobar_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kobar.Leave
        If kobar.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kobar.Text, 1, L)
        If Pencari.JumlanBaris > 0 Then
            kobar.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
            nabar.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang tersebut tidak ada")
            Exit Sub
        End If
    End Sub

    Private Sub kobar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobar.TextChanged
        nabar.Text = ""
        unit.Text = ""
        habar.Text = ""
    End Sub

    Private Sub unit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit.TextChanged, habar.TextChanged
        jml.Text = Val(unit.Text) * Val(habar.Text)
    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        'a'
        If kobar.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        If nabar.Text.Length = 0 Then
            MsgBox("Nama barang sudah ada")
        End If

        If Val(unit.Text) = 0 Then
            MsgBox("Masukkan unit barang")
            Exit Sub
        End If

        If Val(habar.Text) = 0 Then
            MsgBox("Masukkan harga barang barang")
            Exit Sub
        End If

        'b'
        dr = dt.Rows.Find(kobar.Text)

        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kobar.Text
        Else
            MsgBox("Maaf kodebarang sudah ada")
            Exit Sub
        End If

        'c'
        dr = dt.NewRow
        dr("KODEBARANG") = kobar.Text
        dr("NAMABARANG") = nabar.Text
        dr("UNIT") = unit.Text
        dr("HARGA") = habar.Text
        dr("JUMLAH") = jml.Text

        dt.Rows.Add(dr)

        'd'
        kobar.Text = ""
        nabar.Text = ""
        unit.Text = ""
        habar.Text = ""

        'e'
        TOTALJUMLAH()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        'a'
        If notra.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If

        'b'
        If dt.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        'c'
        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notra.Text, 1, L)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        'd'
        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        'e'
        For Each X As DataRow In dt.Rows
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        'f'
        notra.Text = ""
        jetra.Text = ""
        jml.Text = ""
        'g'
        dt.Rows.Clear()

        'h'
        TOTALJUMLAH()
    End Sub
End Class

latihan 36

Public Class Latihan3636109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable
    Dim dr As DataRow

    Private Sub Latihan3636109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & notrans.Text & "'", L)
        X.Fill(dt)
        X.Dispose()

        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = dt.Columns("KODEBARANG")
        dt.PrimaryKey = dataPrimary

        dgv.DataSource = dt
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
        'a'
        If kobar.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        If Val(unit.Text) = 0 Then
            MsgBox("Masukkan Harga barang")
            Exit Sub
        End If

        If Val(habar.Text) = 0 Then
            MsgBox("Masukkan jumlah barang")
            Exit Sub
        End If

        'b'
        dr = dt.Rows.Find(kobar.Text)

        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kobar.Text
        Else
            MsgBox("Maaf kode barang sudah ada")
            Exit Sub
        End If

        'c'
        dr = dt.NewRow
        dr("KODEBARANG") = kobar.Text
        dr("UNIT") = unit.Text
        dr("HARGA") = habar.Text

        dt.Rows.Add(dr)

        'd'
        kobar.Text = ""
        unit.Text = ""
        habar.Text = ""

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        'a'
        If notrans.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If

        'b'
        If dt.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        'c'
        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notrans.Text, 1, L)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        'd'
        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notrans.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        'e'
        For Each X As DataRow In dt.Rows
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notrans.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        'f'
        notrans.Text = ""
        jetra.Text = ""

        'g'
        dt.Rows.Clear()

    End Sub
End Class

latihan 35

Public Class latihan3536109061

    Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim DT As New DataTable

    Private Sub Latihan3536109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & notra.Text & "'", L)
        X.Fill(DT)
        X.Dispose()
        data061.DataSource = DT
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
        'a'
        If kobar.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        If Val(unit.Text) = 0 Then
            MsgBox("Masukkan Harga barang")
            Exit Sub
        End If

        If Val(habar.Text) = 0 Then
            MsgBox("Masukkan jumlah barang")
            Exit Sub
        End If

        'b'
        Dim dr As DataRow
        dr = DT.NewRow
        dr("KODEBARANG") = kobar.Text
        dr("UNIT") = unit.Text
        dr("HARGA") = habar.Text

        DT.Rows.Add(dr)

        'c'
        kobar.Text = ""
        unit.Text = ""
        habar.Text = ""

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        'a'
        If notra.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If jetra.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If

        'b'
        If DT.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        'c'
        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NO.Text, 1, L)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        'd'
        Dim LM As New OleDb.OleDbCommand
        LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        'e'
        For Each X As DataRow In DT.Rows
            LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", L)
            L.Open()
            LM.ExecuteNonQuery()
            L.Close()
            LM.Dispose()
        Next

        'f'
        notra.Text = ""
        jetra.Text = ""

        'g'
        DT.Rows.Clear()

    End Sub

tes psikolog

Tes Psikologi Watak Anda disini!

Sebelumnya terimakasih atas kesudian para pengunjung sekalian untuk mampir, di sini ini agan dan aganwati dapat mengetahui psikologi watak agan dan aganwati sendiri dengan cara menjawab perntanyaan-pertanyaan yang ada di bawah ini , karena pilihannya A-D maka agan dan aganwati dipersilahkan untuk menyiapkan selembar kertas dan bulpen untuk menulis jawabannya , oh ya di notepad program komputer juga bisa kok. Yang penting ada tempat buat nulis jawabannya , nanti setelah agan dan aganwati menjawab semua pertanyaannya ikutin langkah berikutnya (ada sesudah agan dan aganwati mengikuti testnya) . Met Mencoba...

Berikut pertanyaan-pertanyaannya...

1. Bentar lagi mau kiamat nih. Kalo kamu bisa nyelametin satu jenis binatang, binatang manakah yang beruntung?
a. Kelinci
b. Domba
c. Rusa
d. Kuda

2. Kamu lagi maen ke Afrika, eh trus dipaksa bawa binatang pulang buat souvenir. Kamu akan pilih?
a. Monyet
b. Singa
c. Ular
d. Jerapah

3. Ceritanya kamu dikutuk sama Tuhan jadi binatang. Kamu milih Jadi apa?
a. Anjing
b. Kucing
c. Kuda
d. Ular

4. Jika kamu diberi kekuatan untuk memusnahkan suatu spesies, spesies mana yang akan jadi korban?
a. Singa
b. Ular
c. Buaya
d. Hiu

5. Suatu hari, kamu nemu binatang yang bisa bicara. Kamu berharap binatang itu adalah?
a. Domba
b.. Kuda
c. Kelinci
d. Burung

6. Kalo kamu ada di pulau terpencil dan cuman bisa punya 1 teman, kamu pilih jadi apa??
a. Manusia juga
b. Babi
c. Sapi
d. Burung

7. Andaikan kamu bisa bikin binatang buas jadi jinak, kamu akan pelihara?
a. Dinosaurus
b. Harimau putih
c. Beruang kutub
d. Leopard

8. Kalo kamu bisa jadi binatang selama 5 menit, mau jadi yang mana?
a. Singa
b. Kucing
c. Kuda
d. Merpati

Setiap satu jawaban dari pertanyaan akan menghasilkan satu pernyataan . Silahkan lihat pernyataannya di bawah ini jika pengunjung , agan dan aganwati sudah merasa menjawab pertanyaan diatas tadi dengan benar dan lengkap . Kalau lihat pernyataan sebelum melihat pertanyaan maka tes gagal.

Ini dia pernyataannya...

1. Pada dasarnya kamu tertarik dengan orang yang....
a. KELINCI - Orang yang susah ditebak, contoh: keliatannya cuek banget padahal aslinya super perhatian b. DOMBA - Patuh..dan ramah... (bulunya putih ya?? hehehheh) c. RUSA - Elegan dan sopan d. KUDA - Mereka yang tidak terkekang dan bebas 2. Dalam masa pendekatan, cara pendekatan yang paling bisa bikin Kamu jatuh hati....
a. MONYET - Kreatif, ngga pernah bikin ! kamu bosen b. SINGA - To the point, langsung nyatain tanpa spik yang bebelit c. ULAR - Ulur... tarik... ulur lagi... tarik lagi..., layangaaaan kali d. JERAPAH - Sabar... tapi never give up. 3. Kesan yang pengen kamu kasih liat ke pacar kamu, bahwa kamu adalah orang yang....
a. ANJING - Setia dan bisa dipercaya b. KUCING - Gaya c. KUDA - Optimis d. ULAR - Fleksibel 4. Situasi yang paling kamu benci, yang bisa jadi masalah dalam hubungan kamu....
a. SINGA - Gesombongan pacar kamu dan sikapnya yang sok diktator b. ULAR - Emosional, moodmood-an, sehingga kamu ngga tau lagi musti gimana buat nyenengin dia c. BUAYA - Sadis (jangan diartikan secara fisik yah), berhati dingin, trus suka ngejek d. HIU - Insecure (apa yah bahasa indonya yang pas, ketidakamanan? ketidakstabilan? ketidakpastian?) 5. Hubungan yang pengen kamu jalanin dengan pacar kamu....
a. DOMBA - Walaupun ngga ngomong tapi kalian saling tau isi hati masing2, dengan kata lain kalian tuh communicate by hearts b. KUDA - Saling terbuka, kebebasan mengungkapkan pendapat, ngga ada rahasia-rahasiaan c. KELINCI - Hubungan yang bisa bikin kamu selalu merasa nyaman dan saling mencintai d. BURUNG - Hubungan jangka panjang 6. Tentang nafsu ehem.......(Biar ga masalah ama uu ITE diubah)
a. MANUSIA - Kamu perduli dengan lingkungan dan moral, jadi kamu nggak akan macem-macem kalo belum nikah (amieenn). b. BABI - Walaaahhh!! Kamu nggak bisa nahan godaan nih... c. SAPI - Sebisa mungkin sih kamu berusaha untuk tidak melakukannya d. BURUNG - Tidak stabil. Sebenernya kamu bukan orang yang cocok menikah dan membuat sebuah komitmen. 7. Pernikahan buat kamu....
a. DINOSAURUS - Sedikit pesimis, kamu ngerasa sekarang ini udah ngga ada tuh yang namanya happy marriage. b. HARIMAU PUTIH - Buat kamu pernikahan adalah sesuatu yang berharga dan setelah kamu m! arried kamu bakalan ngejaga banget c. BERUANG KUTUB - Kamu takut akan pernikahan d. LEOPARD - Kamu pengen banget nikah, tapi sebenernya kamu juga nggayakin betul apa sih pernikahan itu? 8. Saat ini, kamu menganggap cinta adalah....
a. SINGA - Kamu selalu haus akan cinta. Tapi bukan berarti mudah jatuh cinta, tapi selalu ingin dicintai. b. KUCING - Kamu sedikit egois. Kamu melihat cinta sebagai sesuatu yang mudah didapat dan dibuang kapanpun kamu mau. c. KUDA - Kamu engga mau dikekang oleh hubungan yang terlalu serius. Kamu masih pengen juga "gebet sana gebet sini" d. MERPATI - Cinta buat kamu adalah sebuah komitmen yang dilakukan oleh kedua pihak.http://fathur-net.blogspot.com/2011/11/tes-psikologi-watak-anda-disini.html

Selasa, 15 November 2011

28 Tipe Cowo Dilihat dari Cara Menghadapi Cewe Nangis,,,

1. Cowok Jaim:

“Plz dunk jangan bikin malu gue, masa nangis sih!”

2. Cowok Gak Sabaran:

“Hari gene masih nangis, plzzz dech!!?”

3. Cowok Sensitif:

“Ikutan nangis ah… hiks..hiks…”

4. Cowok Ahli Hipnotis:

“Saya hitung 1,2,3… dihitungan ketiga anda melupakan semuanya… lupakan semuanya… lupakan… OK!

5. Cowok Kritis:

“Ada apaan sih? siapa? kenapa? dimana? kemana? Kok bisa sih? ya udah… ambil positifnya ajalah”

6. Cowok Pasrah:

“Terserah Lo deh!!!”

7. Cowok Cuek:

“Biarin aja, paling ntar diam sendiri”

8. Cowok Naif:

“Aku beliin gulali sama balon warna-warni ya?”

9. Cowok Gomse:

dipeluk dan dikecup seluruh muka (pelan2 gitu deh), Sambil berkata “if I could share ur pain .. I would”

10. Cowok Analis:

“kenapa kamu menangis?

Apakah kamu menangis bahagia atau sedih?

Jika bahagia, apa yang menyebabkan kamu bahagia?

Jika sedih, apa yang menyebabkan kamu sedih? Sejak kapan kamu menangis?

Kalo kita proyeksikan ke depan, apakah kamu akan terus menangis?”

11. Cowok Idaman:

“Menangislah sepuasnya dipundakku (sambil tangannya melingkar melindungi si cewe, kadang meraba juga)”

12. Cowok Tajir :

“Gue beliin Mobil, Handphone…ya”

13. Cowok Romantis:

“Bacain Puisi mau?, dinyanyiin lagu NINA BOBO ya?”

14. Cowok Horny:

“Dibaringin ditempat tidur de el el”

15. Cowok Bete:

“Dipeluk sambil dibisikin `kita putus aja ya` abisnya kamu cengeng banget sih, say…

16. Cowok Narsis:

“Sibuk ngambil foto diri sendiri pake HP terbaru”

17. Cowok Dermawan:

“Ngeluarin recehan sembari bilang May God Bless You…”

18. Cowok Kere:

“Sory nih yang, aku ga bisa beliin tissue.”

19. Cowok Santri:

“Astagfirullah…. tabahkan hatimu….”

20. Cowok Tulalit:

“Kamu nangis dapet bonus apa ditinggal mati sih? Hiiii… kamu bisa juga nangis yah?”

21. Cowok Matre:

“Cewe kere Lo… nangis mulu nyusahin gue doank!”

22. Cowok Kejam:

“Hehehehe… ini belum seberapa sayang… nanti aku bisa bikin kamu tambah sengsara sampe meraung-raung… lebih parah lagi… mau nangis lagi?!!!”

23. Cowok Ilmiah :

“Wah… hebat ya, ternyata honey tau juga bahwa menangis itu sehat buat bersihin mata ”

24. Cowok Kebapakan:

“sini sama oom… cupcup jangan nangis lagi yah.. (sambil ngusap2 rambut) ”

25. Cowok Puitis:

” ur tears are my tears… aer matamu bagaikan sungaii bengawannn swolooooo…”

26. Cowok Ilmuwan :

” Sayang, air matanya kumpulin pake tissu sebanyak mungkin trus di timbang volumenya untuk mengukur berapa kemampuan manusia mengeluarkan air mata dalam 1X menangis”

27. Cowok Bego :

“sayang kok mata mu kluar aer??”

28. Cowok Autis :

(malah nggak notice kalo cewenya nangis!!)

AKUNTANSII