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 :)