Latihan 40b

Public Class Tugas40B_36109067

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

    Public Sub Valentine()
        Dim L As New OleDb.OleDbDataAdapter
        L = 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= '" & tb1.Text & "'", V)
        DT.Rows.Clear()
        L.Fill(DT)
    End Sub

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

        dgv40b1.DataSource = DT

        TOTALJUMLAH()
    End Sub

    Public Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each y As DataRow In DT.Rows
            TOT = TOT + y("JUMLAH")
        Next
        tb3.Text = TOT

    End Sub

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

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

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

        TOTALJUMLAH()
    End Sub

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

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

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

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

        Dim MV As New OleDb.OleDbCommand
        MV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#, '" & tb2.Text & "')", V)
        'Membuka koneksi'
        V.Open()
        'Eksekusi prose penyimpanan'
        MV.ExecuteNonQuery()
        'Menutup koneksi'
        V.Close()

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

        NO1.Text = "-"
        tb1.Text = ""
        tb2.Text = ""

        DT.Rows.Clear()

        TOTALJUMLAH()
        'Prosedur mengambil data dari Latihan40A017'
        Tugas40A_36109067.Valentine()
    End Sub

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

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

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

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

        Dim NV As New OleDb.OleDbCommand
        NV = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & tb1.Text & "'", V)
        V.Open()
        NV.ExecuteNonQuery()
        V.Close()

        NV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#, '" & tb2.Text & "')", V)
        V.Open()
        NV.ExecuteNonQuery()
        V.Close()

        NV = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & tb1.Text & "'", V)
        V.Open()
        NV.ExecuteNonQuery()
        V.Close()

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

        NO1.Text = "-"
        tb1.Text = ""
        tb2.Text = ""

        DT.Rows.Clear()

        TOTALJUMLAH()
        Tugas40A_36109067.Valentine()
    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 Tugas40A_36109067

    Dim V 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 Bsource1 As New BindingSource 'Deklarasi bindingsource'
    Dim Bsource2 As New BindingSource

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

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

        BS1 = 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", V)
        BS1.Fill(dt1)

        BS1.Dispose()

    End Sub

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

        Valentine()

        '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'
        Bsource1.DataSource = dset
        Bsource1.DataMember = "T01"
        Bsource2.DataSource = Bsource1
        Bsource2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DVG'
        dgv401.DataSource = Bsource1
        dgv40a2.DataSource = Bsource2
    End Sub

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

        MV = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgv401.CurrentRow.Cells("NOTRANS").Value & "'", V)
        V.Open()
        MV.ExecuteNonQuery()
        V.Close()

        MV.Dispose()

        Valentine()

    End Sub

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

        Tugas40B_36109067.NO1.Text = dgv401.CurrentRow.Cells("NOTRANS").Value
        Tugas40B_36109067.tb1.Text = dgv401.CurrentRow.Cells("NOTRANS").Value
        Tugas40B_36109067.tb2.Text = dgv401.CurrentRow.Cells("JENISTRANSAKSI").Value

        Tugas40B_36109067.Valentine()
        Tugas40B_36109067.TOTALJUMLAH()
    End Sub

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

        Tugas40B_36109067.NO1.Text = "-"
        Tugas40B_36109067.tb1.Text = ""
        Tugas40B_36109067.tb2.Text = ""

        Tugas40B_36109067.Valentine()
        Tugas40B_36109067.TOTALJUMLAH()

    End Sub
End Class

Latihan 39

Public Class Tugas39_36109067

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

    Private Sub Latihan39017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim H As New OleDb.OleDbDataAdapter
        H = 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= '" & tb1.Text & "'", V)
        H.Fill(dt1)
        H.Dispose()

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

        dgv1.DataSource = dt1
    End Sub

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

    End Sub

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

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

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

            TOTALJUMLAH()
        End If
    End Sub

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

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

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

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

        Dim MV As New OleDb.OleDbCommand
        MV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#, '" & tb2.Text & "')", V)
        V.Open()
        MV.ExecuteNonQuery()
        V.Close()

        For Each Y As DataRow In dt1.Rows
            MV = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & tb1.Text & "','" & Y("KODEBARANG") & "'," & Y("UNIT") & ", " & Y("HARGA") & ")", V)
            V.Open()
            MV.ExecuteNonQuery()
            V.Close()
            MV.Dispose()
        Next

        tb1.Text = ""
        tb2.Text = ""

        dt1.Rows.Clear()

    End Sub
End Class

Latihan 38,39,40

Public Class Tugas383940_36109067

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

    Public Sub valentine()
        Dim H As New OleDb.OleDbDataAdapter
        H = New OleDb.OleDbDataAdapter("Select * From BARANG", V)
        dt1.Rows.Clear()
        H.Fill(dt1)
        H.Dispose()
    End Sub

    Private Sub Latihan383940017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        valentine()
        DGV38.DataSource = dt1
    End Sub
End Class

Latihan 38

Public Class Tugas38_36109067
    Dim V As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt1 As New DataTable
    Dim dr1 As DataRow

    Private Sub Latihan38017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim M As New OleDb.OleDbDataAdapter
        M = 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= '" & tb1.Text & "'", V)
        M.Fill(dt1)
        M.Dispose()

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

        dgv1.DataSource = dt1
    End Sub

    Private Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each Y As DataRow In dt1.Rows
            TOT = TOT + Y("JUMLAH")
        Next
        tb8.Text = TOT

    End Sub

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

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

    Private Sub KB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb3.TextChanged
        tb4.Text = ""
        tb5.Text = ""
        tb6.Text = ""
    End Sub

Latihan 37

Public Class Tugas37_36109067

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

    Private Sub Latihan37017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim L As New OleDb.OleDbDataAdapter
        L = 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= '" & tb1.Text & "'", V)
        L.Fill(dt1)
        L.Dispose()

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

        dgv1.DataSource = dt1
    End Sub

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

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

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

    Private Sub tb3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb3.TextChanged
        tb4.Text = ""
        tb5.Text = ""
        tb6.Text = ""
    End Sub

    Private Sub tb5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb5.TextChanged, tb6.TextChanged
        tb7.Text = Val(tb5.Text) * Val(tb6.Text)
    End Sub

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

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

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

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

        'b'
        dr1 = dt1.Rows.Find(tb3.Text)

        If dr1 Is Nothing Then
            dr1 = dt1.NewRow
            dr1("KODEBARANG") = tb3.Text
        Else
            MsgBox("Maaf kodebarang sudah ada")
            Exit Sub
        End If

        'c'
        dr1 = dt1.NewRow
        dr1("KODEBARANG") = tb3.Text
        dr1("NAMABARANG") = tb4.Text
        dr1("UNIT") = tb5.Text
        dr1("HARGA") = tb6.Text
        dr1("JUMLAH") = tb7.Text

        dt1.Rows.Add(dr1)

        'd'
        tb3.Text = ""
        tb4.Text = ""
        tb5.Text = ""
        tb6.Text = ""

        'e'
        TOTALJUMLAH()
    End Sub

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

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

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

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

        'd'
        Dim MV As New OleDb.OleDbCommand
        MV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#, '" & tb2.Text & "')", V)
        V.Open()
        MV.ExecuteNonQuery()
        V.Close()

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

        'f'
        tb1.Text = ""
        tb2.Text = ""
        tb7.Text = ""
        'g'
        dt1.Rows.Clear()

        'h'
        TOTALJUMLAH()
    End Sub
End Class

Latihan 36

Public Class Tugas36_36109067

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

    Private Sub Latihan36017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim S As New OleDb.OleDbDataAdapter
        S = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & tb1.Text & "'", V)
        S.Fill(dt1)
        S.Dispose()

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

        dgv1.DataSource = dt1
    End Sub

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

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

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

        'b'
        dr1 = dt1.Rows.Find(tb3.Text)

        If dr1 Is Nothing Then
            dr1 = dt1.NewRow
            dr1("KODEBARANG") = tb3.Text
        Else
            MsgBox("Maaf kode barang sudah ada")
            Exit Sub
        End If

        'c'
        dr1 = dt1.NewRow
        dr1("KODEBARANG") = tb3.Text
        dr1("UNIT") = tb4.Text
        dr1("HARGA") = tb5.Text

        dt1.Rows.Add(dr1)

        'd'
        tb3.Text = ""
        tb4.Text = ""
        tb5.Text = ""

    End Sub

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

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

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

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

        'd'
        Dim MV As New OleDb.OleDbCommand
        MV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & DTP.Value.Month & "/" & DTP.Value.Day & "/" & DTP.Value.Year & "#, '" & tb2.Text & "')", V)
        V.Open()
        MV.ExecuteNonQuery()
        V.Close()

        'e'
        For Each S As DataRow In dt1.Rows
            MV = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & tb1.Text & "','" & S("KODEBARANG") & "', " & S("UNIT") & ", " & S("HARGA") & ")", V)
            V.Open()
            MV.ExecuteNonQuery()
            V.Close()
            MV.Dispose()
        Next

        'f'
        tb1.Text = ""
        tb2.Text = ""

        'g'
        dt1.Rows.Clear()

    End Sub
End Class

Latihan 35

Public Class Tugas35_36109067

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

    Private Sub Latihan35017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim M As New OleDb.OleDbDataAdapter
        M = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & tb1.Text & "'", V)
        M.Fill(dt)
        M.Dispose()
        dgv1.DataSource = dt
    End Sub

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

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

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

        'b'
        Dim dr As DataRow
        dr = dt.NewRow
        dr("KODEBARANG") = tb3.Text
        dr("UNIT") = tb4.Text
        dr("HARGA") = tb5.Text

        dt.Rows.Add(dr)

        'c'
        tb3.Text = ""
        tb4.Text = ""
        tb5.Text = ""

    End Sub

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

        If tb2.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", tb1.Text, 1, V)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If

        'd'
        Dim MV As New OleDb.OleDbCommand
        MV = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & tb1.Text & "', #" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#, '" & tb2.Text & "')", V)
        V.Open()
        MV.ExecuteNonQuery()
        V.Close()

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

        'f'
        tb1.Text = ""
        tb2.Text = ""

        'g'
        dt.Rows.Clear()


    End Sub
End Class

Mom's Diary-My Spirit

She is says that :

"Kita harus belajar untuk merasa cukup dan bahagiaa dengan apa yang telah ada pada kita,. Kita bahakan hatus merasa bahagia dan tercukupi dengan keadaan kita yang sekarang meskipun kita belum mendapatkan apa yang kita harapkan."

"Tuhan adalah Pilot yang sangat bertanggung jawab. Selama ada sang Pilot kita tidk perlu khawatir akan perjalanan kita. We are Safety. Jangan lupa untuk mengencangkan sabuk pengaman yaitu Penyembahan, sebab itulah sabuk yang selalu membuat kita merasa aman. Goncangan hidup tidak perlu membuat kita khawatir, nikmati kasihNya dan kita pasti selamat sampai ke tujuan."

"Pribadi unggul yang efektif dibentuk oleh 11 kebiasaan yang dibentuk dengan rumus :

5 sikap dasar + 3 syarat + 3 cara :

5 sikap dasar

1. Jujur

2. Keterbukaan

3. Berani mengambil resiko dan bertanggung jawab.

4. Komitmen

5. Berbagi

3 syarat yang meliputi :

1. Doa

2. Bersyukur

3. Selalu mengandalkan Tuhan

3 Cara itu meliputi

1. Meminta tuntunan Tuhan

2. Mewujudkan perubahan

3. Menjadi teladan dan terang bagi orang lain."

"Apa gunanya aku berdukacita bila dapat bersukacita?"

"Apa gunanya menagis bila dapat tertawa?"

"Bukankah menangis itu menyedihkan dan sedih tu merusak badan? tetap tertawa menambah kesehatan tubuh?"

"Apa gunanya sejengkal dipikirkan sampai sedepa? bukankah lebih baik digulung menjadi pendek dan disimpul sampai mati?"

"Ada umur ada rejeki"

Ada Semangat di balik keterpurukan

Seperti pelangi sehabis hujan, saya selalu percaya bahwa sehabis duka pasti ada kebahagiaan yang cerah di depannya.

Duka, kata yang selalu membuat hati bergetar dan kemudian memerintahkan otak untuk  menjatuhkan butiran2 kecil yang membasahi pipi. Namun, apakah duka itu abadi? rasanya tidak! kehidupan ini memang ibarat tuts piano yang memiliki 2 warna, hitam dan putih. Putih menggambarkan kebahagiaan dan hitam yang menggambarkan duka alias kesedihan.
Banyak kisah duka yang kemudian berakhir dengan kematian, tetapi ada juga orang yang berhasil memotivasi dirinya untuk tetap bangkit dan semangat, tentunya dengan Kasih dan Penyertaan Tuhan!

Berikut kisah Amalia, semoga memberi semangat baru buat kita semua!

Kisah Amelia
Aku selalu berpikir Bahwa kepergian Ibu ku beberapa tahun yang lalu akan membuat kehidupanku berhenti sampai disini saja, karena sejak kecil ibu merupakan "jantung" bagiku. beliau merupakan motor penggerakku karena semua yang kulalkukan bergantung padanya. Kangker mulut rahim merenggutnya dariku, aku merasa kehilangan cintanya dan aku sangat membenci penyakit sialan itu! Aku merasa benar-benar putus asa karena kejadian itu, akhirnya aku memutuskan untuk bunuh diri karena bagiku ini hanya kesiasiaan bagiku untuk hidup. Pada saat itu, aku bertemu seorang pemuda gereja di dekat rumahku. dia mencegahku untuk melakukannya, dan yang menakjubkanku, hanya satu kalimat yang keluar dari mulutnya saat itu "saudariku, Tuhan mengasihimu. Walau seluruh dunia meninggalkanmu Dia akan tetap setia bersamamu". Kalimat itu membuatku merasa aku tak lagi sendiri dan aku merasa bahwa Duka itu tidak abadi, Tuhan tetap mengasihiku dan tidak meninggalkanku. Setiap masalah yang besar tidak akan mampu menghalauku sebab aku akan berkata pada masalah itu "Hey masalah, aku memilik Tuhan yang jauh lebih besar di banding denganmu". :)

Kebohongan!

Miris rasanya, lahir ditengah2 alam yang begitu kaya. tidur beralaskan tambang emas yang begitu besar, tetapi hanya bisa menatap dengan mata yang sayu karena kelaparan, kekacauan, ketidakamanan dan ketidakmampuan untuk terus meraih kehidupan yang layak.

Semua orang hanya bernyanyi, bahwa mereka peduli dengan papua. Tapi lihat apa yan mereka buat? hanya menggendutkan perut tanpa memikirkan orang lain yang menderita karena keserakahan dan ketamakan mereka! Sampai kapan rantai pembodohan akan putus, dan sampai kapan semua orang berlomba2 memuaskan hasrat mereka akan uang,uang, dan uang?? jabatan,jabatan,dan jabatan? Apa gunanya kehormatan dan semuanya itu kalau apa yang mereka lakukan sangat tidak terhormat? bukankah itu mencerminkan sebuah momok yang menjijikan?

Kini, tanpa segan2 orang rela saling "memakan" hanya karena kepentngan pribadi mereka. Mereka tidak pernah menyadari bahwa banyak orang yang tertawa dengan ekspresi menjijikan melihat tingkah mereka. Dasar manusia yang miskin hati nurani, miskin kasih dan miskin kehormatan! Mereka rela menghalalkan segala cara demi mendapatkan apa yang mereka inginkan!

secara biologis Saya memang bukan keturunan asli papua, tetapi dalam darah saya mengalir darah yang bernama "cinta" yang terus bergejolak dan memberontak agar saya secepatnya pulang dan membangun tanah kelahiran saya supaya menjadi tempat yang lebih baik. Saya hanya berserah kepada Tuhan, semoga panggilan hati saya ini mampu mengubah duka anak2 Papua, mama2 Papua dan Pace2 Papua yang rindu akan perhatian, keadilan dan kesejahteraan walau itu hanya sedikit :)

MOB PAPUA

Obet Otak Nau

 

Obed nih seorang pembantu. suatu siang, dia telepon dia pu bos di kantor.

Obed:"Halo bos, ini saya Obed,"

Bos:"Oh, Obed, ada apa telepon?"
...
Obed:"Ah trada bos, sa cuma mo lapor skalian minta maaf, waktu sa setrika tadi, Bos pu jas terbakar,"

Bos yang keliatan sibuk jawab:"Sudahlah Obed, biar saja! tidak apa-apa, nanti saya beli yang baru,"

Obed:"Oh, Bos baik sekali, terima kasih,"

Bos:"Halo Obed, macam ramai sekali deng suara-suara di sebelah, ko ada dimanakah? ini ko telepon darimana?"

Obed:"Sa di wartel Bos,"

Bos:"Kenapa tra telepon dari rumah saja?"

Obed:"Tidak bisa Bos, masalahnya rumah juga ikut terbakar deng Bos pu jas yang saya lapor tadi tuh,"

Bos:"Haaa????"Lihat Selengkapnya

 

 

Pace ones

Pace Ones satu ni de mo curi orang pu anjing.Tiba waktunya de lihat rumah kosong dan de mulai elus2 anjing tu, tunggu sampe anjing jinak baru de isi masuk ke karung..pas ada elus2 begini,tuan rumah de kluar dari pintu,dan...

Tuan rumah : weee....ko bikin apa deng sa pu anjing tu???

Pace Ones de bingung...pace pikir cari alasan eee...baru de jawab:

pace ones : ado bapa,..ini tadi sa pu kutu kesayangan dari sa pu rambut ni de loncat ke anjing pu bulu2..sa ada cari2 dia dari tadi ni...

Pace Panakut 

suatu hari, ada tentara yg bergerilya di dalam hutan untuk mencari gerombolan OPM. karena tentara su lapar, trus pas ada lihat pohon kelapa yang buahnya banyak, jadi pace tentara langsung naik ke atas pohon kelapa. ternyata pohon kelapa itu milik pace yaklep. pas pace yaklep keluar rumah, langsung lihat ada orang diatas pohon kelapanya. serentak pace yaklep langsung batariak tra baik....

yaklep :... wooooiiiii.....ko turun!!!!!!!!!!

karena tentara su merasa bersalah n tra minta ijin sama yang punya pohon, jadi tentara turun dan tra banyak bicara.

pas su mau sampe di bawah, yaklep lihat pace tentara pu laras senjata yang ada keluar sedikit, yaklep tra jadi marah. yaklep su pusing n takut yang bukan main punya. yaklep pikir.....pikir...pikir....pas dapat ide, trus tentara juga su sampai dibawah.

tentara : bapak yang tadi suruh sy turun ka...???
yaklep : ahhh....iyo pak. tadi sa suruh bapak turun supaya bapak pindah ke pohon sebelah saja, dia pu buah lebih banyak....!!!!

Pace dia panakut!!

 HAHAHAHAHAHAHAHAHA

 

Momma am stress :@

Huft, malam ini hampir berakhir tapi spertinya lambat sekali berlalu...
Sepertinya, hari ini terlalu panjang dan takkan berganti pagi. ingin sekali kuteriakkan "momma, am stress". ;(

Baru terasa berat skarang semua yang kujalani sekarang.. kira2 kapan berakhir? sepertinya lamaaaaaaa ;(
Saya hanya bisa berserah pada Tuhan.