Kualitas kita dapat ditentukan oleh orang di sekitar kita

Kualitas kita dapat ditentukan oleh orang di sekitar kita

James Bender dalam bukunya, "How to Talk Well" [New York; McGray-Hill Book Company,Inc., 1994], menyebutkan sebuah cerita tentang seorang petani yang menanam jagung unggulan dan sering kali memenangkan penghargaan.


Suatu hari, seorang wartawan dari koran lokal melakukan wawancara dan menggali rahasia kesuksesan petani tersebut.


Wartawan itu menemukan bahwa petani itu membagikan benih jagungnya kepada para tetangganya.


"Bagaimana Anda bisa berbagi benih jagung dengan tetangga Anda, lalu bersaing dengannya dalam kompetisi yang sama setiap tahunnya?" tanya wartawan, dengan penuh rasa heran dan takjub.


"Tidakkah Anda mengetahui bahwa angin menerbangkan serbuk sari dari jagung yang akan berbuah dan membawanya dari satu ladang ke ladang yang lain. Jika tetangga saya menanam jagung yang jelek, maka kualitas jagung saya akan menurun ketika terjadi serbuk silang. Jika saya ingin menghasilkan jagung kualitas unggul, saya harus membantu tetangga saya untuk menanam jagung yang bagus pula," jawab petani.


Petani ini sangat menyadari hukum keterhubungan dalam kehidupan. Dia tidak dapat meningkatkan kualitas jagungnya, jika dia tidak membantu tetangganya untuk melakukan hal yang sama.


Dalam kehidupan, mereka yang ingin menikmati kebaikan, harus memulai dengan menabur kebaikan pada orang-orang di sekitarnya. Jika Anda ingin bahagia, Anda harus menabur kebahagiaan untuk orang lain. Jika Anda ingin hidup dengan kemakmuran, maka Anda harus berusaha meningkatkan taraf hidup orang-orang di sekitar Anda.


Anda tidak akan mungkin menjadi ketua tim yang hebat, jika Anda tidak berhasil meng-upgrade masing-masing anggota tim Anda. KUALITAS ANDA DITENTUKAN OLEH ORANG-ORANG DI SEKITAR ANDA.


Orang Cerdas sejatinya adalah orang yang mencerdaskan orang lain, begitu pula orang yang baik adalah orang yang mau membaikkan orang lain...

Berbagi, Merasa Cukup dan Bersyukurlah

Mulai Dengan Sukses-Sukses Kecil (2)

Suatu pencapaian lain yang tidak sulit untuk dijangkau, namun tidak kalah penting artinya di dalam hidup ini adalah "contentment management". Kemampuan mengatur rasa puas, rasa cukup  dengan apapun keadaan kita. Lawannya adalah "tidak pernah puas", "selalu merasa kurang", dan "tidak bahagia" dengan apapun yang dimiliki dan dialami saat ini.

Ini suatu pencapaian yang besar karena banyak orang yang hidupnya kelihatan baik dari luar namun batinnya sengsara. Pikirannya dan hidupnya menderita karena merasa sebagai orang yang serba kurang dibandingkan dengan orang lain di sekelilingnya.

Mengapa Selalu Merasa Kurang
Kenapa orang merasa selalu kurang? Begini konsepnya,., ....bila kita mengira bahwa kepuasan diukur dari sesuatu yang di luar: materi, barang yang kita punya, HP baru, mobil baru, dll ... atau kepuasan mata, pergi berbelanja, jalan jalan ke luar negeri,... atau kepuasan jasmani, seperti makan makanan yang enak, hubungan fisik dsb maka kita salah mencari kepuasan.


Kepuasan itu berasal dari dalam. Nikmat dan bahagia itu masalah hati. Dan kita perlu belajar untuk bisa merasakan itu.

Kepuasan dirasakan ketika kita berinteraksi dengan Tuhan dan orang yang kita kasihi. Buktinya,.... ketika kita pertama kali bertemu dengan Tuhan Yesus, menerima Tuhan sebagai Tuhan dan Sahabat, kita merasakan damai dan kebahagian dan kepuasan yang tidak bisa dijelaskan. Perasaan ecstasy yang sulit dibandingkan dengan apapun juga.

Demikian pula ketika seseorang sedang jatuh cinta, dia merasakan suatu perasaan yang sulit dibandingkan sekalipun makan siangnya hanya nasi dan tempe di rumah kos-kos-an yang sederhana.

Bertemu dengan keluarga kita dan teman-teman dekat juga memberikan rasa indah yang luar biasa sekalipun pertemuan itu diadakan di restoran yang sederhana.

Tidak Sulit Menemukan Kepuasan Disekeliling Kita 

Sebetulnya setiap kita pasti pernah merasakan kebahagian dan kepuasan yang luar biasa yang diuraikan diatas. Yang kita butuhkan adalah belajar untuk mengalami lagi suasana-suasan tersebut lebih lagi di hidup kita selanjutnya.

Bila kita mengerti hal ini maka anda dan saya menjadi orang-orang yang berbahagia sekalipun mungkin secara materi tidak naik mobil jaguar dan setiap minggu berlibur ke Paris dan Disneyland.....

Sebab aku telah belajar mencukupkan diri dalam segala keadaan. Aku tahu apa itu kekurangan dan aku tahu apa itu kelimpahan. Segala perkara dapat kutanggung di dalam Dia yang memberi kekuatan kepadaku. (Fil4:11b-12a, 13)  


Orang yang mengerti cara untuk berbahagia seperti Paulus bukanlah orang-orang gila. Bukan juga orang-orang yang pandai menipu diri sendiri. Juga bukanlah orang-orang yang apatis, "nrimo" dan tidak ada lagi inisiatif untuk maju. No. No. dan No.

Orang yang pintar mengatur hatinya untuk tetap berbahagia adalah orang-orang yang aktif, bersemangat, punya gairah untuk maju dan menikmasti hidupnya..... O ya....
 
Bersukacitalah senantiasa dalam Tuhan! Sekali lagi kukatakan: Bersukacitalah! Janganlah hendaknya kamu kuatir tentang apapun juga,  (Fil4:4,6)

Bagaimana kalau kita terlalu bergantung dengan hal-hal materi dan situasi di luar diri kita? Bagaimana kalau kepuasan kita terlalu diatur oleh keadaan disekeliling kita?

Well, caranya hanya satu. Yaitu kita mulai belajar menikmati kepuasan-kepuasan yang datang dari dalam. Temukan kembali perasaan-perasaan itu dan hidup anda akan berubah sama sekali.

Dan bila itu terjadi, anda sudah mendapatkan suatu pencapai luart biasa dalam hidup anda.

All blessings,
Binsar

Lolipop Hidupku ^_^

Setiap persoalan yang menimpa hidupku menjadi sebuah pelajaran berharga yang tak mampu dibayar dengan apapun. Mulai dari kegagalan untuk mempercayai orang lain, trauma akan pengkhianatan, dan juga kenangan manis yang mewarnai hari-hari dalam hidupku. :)

Rasanya, tanpa itu semua aku tak akan pernah belajar untuk mengerti bahwa hidupku begitu berharga untuk disia-siakan, dan setiap kenangan manis itu terlalu indah untuk dibuang begitu saja. Tuhan menghadirkan semua itu untuk mengajariku bahwa warna-warni dalam hidup itu penting, Tuhan membisikkan padaku bahwa aku merupakan kekuatan bagi orang-orang yang mengasihiku untuk itu aku tidak boleh memperlihatkan kesedihanku didepan mereka :)

Tidak ada kata yang lebih indah selain ucapan syukur yang bisa kunaikkan kepada Tuhan karena semua yang Dia bri buat hidupku begitu manis meskipun dalam melaluinya aku harus menangis dan bahkan terpuruk O:)
Aku juga bersyukur punya banyak teman, saudara dan sahabat yang selalu bersamaku dalam saat-saat tersulit dalam hidupku, dan bahkan disaat aku merasa sendiri dalam keadaan yang menakutkan karena kekecewaan yang aku alami, mereka tetap bersamaku.

Tuhan juga memberiku 2 orang spesial yang selalu berhasil membuatku terharu bahkan menangis sejadi-jadinya bila mengingat semua yang mereka buat dalam hidupku. Papa dan Mama, 2 org spesial yang selalu ada dalam hatiku, manjadi peneduh disaat hatiku gundah dan selalu berhasil menggertakku kalau aku nakal :) hahahah..., mereka selalu berhasil membuatku merindu tak karuan kala mengingat-ingat suasana rumah...
Tuhan jaga mereka selalu untukku ^_^.

Tuhan, kini aku mengerti bahwa warna-warni itu indah dan manis ibarat LOLIPOP warna warni yang terpajang indah di etalase toko :), terimakasih sudah menghadiahiku LOLIPOP paling besar sedunia, yang tak akan pernah habis meski termakan usia. I Love U Lord :)

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