For U

Apa mungkin semuanya akan menjadi bahagia.

Menemukan semua jawaban dari setiap pertanyaan yang menggeliat dalam pikirku

Aku hanya tak bisa mengerti sampai detik ini.

Maaf karena aku begitu lambat dalam membaca.

Maaf jika aku tak dapat menjadi apa yang kau inginkan dan yang kau harapkan

Aku hanya berharap kau tersenyum untuk terakhir kalinya kepadaku, sebelum aku beranjak pergi.

Pergi menjauh meninggalkanmu, meninggalkanmu dengan sejuta Tanya dan kenangan.

Meninggalkanmu dengan kisah yang tak terlupakan.

For To night

Untuk malam ini. Biarkan aku menangis bersama jiwa yang galau di dalam hati seorang diri

Untuk malam ini, biarkan gelapmu menemaniku dalam kesunyian ini.

Untuk malam ini, biarkan aku merenung sejenak menemani waktu menjemput pagi

Untuk malam ini,  biarkan dinginmu menemaniku dalam lelapku.

Untuk malam ini, biarkan aku tetap mengenangmu dalam tidurku.

apkom4 latihan 44

latihan 44

Public Class latihan44_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=apa")
    Dim DT As New DataTable

    Private Sub latihan44_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()
        chart_36109017.ColumnCount = 3
        chart_36109017.RowCount = DT.Rows.Count
        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_36109017.Row = POSISIBARIS

            chart_36109017.RowLabel = x("bulan")

            chart_36109017.Column = 1
            chart_36109017.Data = x("unit")

            chart_36109017.Column = 2
            chart_36109017.Data = x("rata-rata harga") / 1000

            chart_36109017.Column = 3
            chart_36109017.Data = x("jumlah") / 10000
        Next

    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub btn4_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub btn5_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

apkom4 latihan 43

latihan 43

Public Class latihan43_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=apa")
    Dim DT As New DataTable

    Private Sub latihan43_36109017_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv36109017.DataSource = DT

        uphy.Dispose()
        chart36109017.ColumnCount = 3
        chart36109017.RowCount = DT.Rows.Count

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart36109017.Row = POSISIBARIS

            chart36109017.RowLabel = x("kode barang")

            chart36109017.Column = 1
            chart36109017.Data = x("unit")

            chart36109017.Column = 2
            chart36109017.Data = x("rata-rata harga") / 1000

            chart36109017.Column = 3
            chart36109017.Data = x("jumlah") / 10000
        Next

    End Sub
End Class

apkom4 latihan 42

latihan 42

Public Class latihan42_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=apa")
    Dim DT As New DataTable

    Private Sub latihan42_36109017_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT
        uphy.Dispose()
        chart_36109017.ColumnCount = 2
        chart_36109017.RowCount = DT.Rows.Count

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_36109017.Row = POSISIBARIS
            chart_36109017.RowLabel = x("koderekening")
            chart_36109017.Column = 1
            chart_36109017.Data = x("total debet") / 1000

            chart_36109017.Column = 2
            chart_36109017.Data = x("total kredit") / 1000
        Next

    End Sub
End Class

apkom4 latihan 41

 latihan 41

Public Class latihan41_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    Dim DT As New DataTable

    Private Sub latihan41_36109017_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        Dgv_36109017.DataSource = DT

        uphy.Dispose()

        chart_36109017.ColumnCount = 2
        chart_36109017.RowCount = DT.Rows.Count

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_36109017.Row = POSISIBARIS
            chart_36109017.RowLabel = x("tahun")

            chart_36109017.Column = 1
            chart_36109017.Data = x("PENDAPATAN") / 1000

            chart_36109017.Column = 2
            chart_36109017.Data = x("BIAYA") / 1000
        Next
    End Sub
End Class

apkom4 latihan 39

LATIHAN 39

Public Class latihan39_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub latihan39_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DT.Columns.Add(New DataColumn("KODEBARANG", GetType(String)))
        DT.Columns.Add(New DataColumn("NAMABARANG", GetType(String)))
        DT.Columns.Add(New DataColumn("UNIT", GetType(Double)))
        DT.Columns.Add(New DataColumn("HARGA", GetType(Integer)))
        DT.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
        dgv_36109017.DataSource = DT
       
        Dim dcp(1) As DataColumn
        dcp(0) = DT.Columns("KODEBARANG")
        DT.PrimaryKey = dcp

        DT.Columns("UNIT").DefaultValue = 0
        DT.Columns("HARGA").DefaultValue = 0
        DT.Columns("JUMLAH").DefaultValue = 0

    End Sub

    Private Sub hitung()
        Dim uphy As Integer
        For Each r As DataGridViewRow In dgv_36109017.Rows
            uphy = uphy + r.Cells("JUMLAH").Value
        Next
        bx4_36109017.Text = uphy
    End Sub

    Private Sub dgv_36109017_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36109017.CellEndEdit
        If e.ColumnIndex = 0 Then

            cari.AturPencarianDataBase("BARANG", "kodebarang", dgv_36109017.CurrentRow.Cells("kodebarang").Value, 1, CONECT)
            If cari.JumlanBaris > 0 Then
                dgv_36109017.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
                dgv_36109017.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
            Else
                MsgBox("kode barang tidak tersedia")
                If latihan_38_39_40_36109017.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv_36109017.CurrentRow.Cells("KODEBARANG").Value = latihan_38_39_40_36109017.dgv_36109017.CurrentRow.Cells("KodeBarang").Value
                    dgv_36109017.CurrentRow.Cells("NAMABARANG").Value = latihan_38_39_40_36109017.dgv_36109017.CurrentRow.Cells("namabarang").Value
                    dgv_36109017.CurrentRow.Cells("HARGA").Value = latihan_38_39_40_36109017.dgv_36109017.CurrentRow.Cells("HARGAJUAL").Value
                Else
                    dgv_36109017.CurrentRow.Cells("KODEBARANG").Value = ""
                    dgv_36109017.CurrentRow.Cells("NAMABARANG").Value = ""
                End If
            End If
        End If
        If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv_36109017.CurrentRow.Cells("JUMLAH").Value = dgv_36109017.CurrentRow.Cells("UNIT").Value * dgv_36109017.CurrentRow.Cells("HARGA").Value

        End If

        hitung()
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("no transaksi belum terisi")
            Exit Sub
        End If


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

        If DT.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If
        cari.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("kode sudah ada")
            Exit Sub
        End If

        Dim iftah As New OleDb.OleDbCommand
        iftah = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Date & "#," & Val(bx3_36109017.Text) & ")", CONECT)

        CONECT.Open()
        iftah.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In DT.Rows

            iftah = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & bx1_36109017.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
            CONECT.Open()
            iftah.ExecuteNonQuery()
            CONECT.Close()

            iftah.Dispose()

        Next

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""
        bx4_36109017.Text = ""

        DT.Rows.Clear()
        hitung()
    End Sub
End Class

apkom4 latihan 38

LATIHAN 38

Public Class latihan38_36109017
    Dim dt As New DataTable
    Dim uphy As New OleDb.OleDbCommand
    Dim iftah As New ByIskandar.CariKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub latihan38_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim apa As New OleDb.OleDbDataAdapter
        apa = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & bx1_36109017.Text & "'", conect)
        dt.Rows.Clear()
        apa.Fill(dt)
        apa.Dispose()

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

        dgv_36109017.DataSource = dt
    End Sub
    Private Sub lontong()
        Dim lontong1 As Integer = 0
        For Each lontong2 As DataRow In dt.Rows
            lontong1 += lontong2("JUMLAH")
        Next
        bx9_36109017.Text = lontong1
    End Sub

    Private Sub bx6_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx6_36109017.TextChanged
        bx8_36109017.Text = Val(bx6_36109017.Text) * Val(bx7_36109017.Text)
    End Sub
    Private Sub bx4_36109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles bx4_36109017.Leave
        If bx4_36109017.Text.Length = 0 Then
            Exit Sub
        End If
        iftah.AturPencarianDataBase("barang", "kodebarang", bx4_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            bx4_36109017.Text = iftah.DataTablenya.Rows(0).Item("KODEBARANG")
            bx5_36109017.Text = iftah.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang seperti itu tidak ada..")
            If latihan_38_39_40_36109017.ShowDialog = Windows.Forms.DialogResult.OK Then
                bx4_36109017.Text = latihan_38_39_40_36109017.dgv_36109017.CurrentRow.Cells("kodebarang").Value
                bx5_36109017.Text = latihan_33A_36109017.dgv_36109017.CurrentRow.Cells("namabarang").Value
            Else
                bx4_36109017.Text = ""
            End If
        End If

    End Sub

    Private Sub bx4_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx4_36109017.TextChanged
        bx5_36109017.Text = ""
        bx6_36109017.Text = ""
        bx7_36109017.Text = ""
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx7_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(bx4_36109017.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = bx4_36109017.Text
            dr("NAMABARANG") = bx5_36109017.Text
            dr("UNIT") = Val(bx6_36109017.Text)
            dr("HARGA") = Val(bx7_36109017.Text)
            dr("JUMLAH") = Val(bx8_36109017.Text)

            dt.Rows.Add(dr)

            bx4_36109017.Text = ""
            bx6_36109017.Text = ""
            bx7_36109017.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        lontong()
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If bx2_36109017.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf..Isi rong itu datatable na..")
            Exit Sub
        End If

        iftah.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        uphy = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Month & "/" & bx2_36109017.Value.Day & "/" & bx2_36109017.Value.Year & "#,'" & bx3_36109017.Text & "')", conect)
        conect.Open()
        uphy.ExecuteNonQuery()
        conect.Close()

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

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

        dt.Rows.Clear()
        lontong()

    End Sub

    Private Sub bx7_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx7_36109017.TextChanged
        bx8_36109017.Text = Val(bx6_36109017.Text) * Val(bx7_36109017.Text)
    End Sub

    Private Sub bx8_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx8_36109017.TextChanged
        bx8_36109017.Text = Val(bx6_36109017.Text) * Val(bx7_36109017.Text)
    End Sub
End Class

apkom4 latihan 37

LATIHAN 37

Public Class latihan37_36109017
    Dim dt As New DataTable
    Dim uphy As New OleDb.OleDbCommand
    Dim iftah As New ByIskandar.CariKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub latihan37_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim apa As New OleDb.OleDbDataAdapter
        apa = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & bx1_36109017.Text & "'", conect)
        dt.Rows.Clear()
        apa.Fill(dt)
        apa.Dispose()

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

        dgv_36109017.DataSource = dt

    End Sub
    Private Sub lontong()
        Dim lontong1 As Integer = 0
        For Each lontong2 As DataRow In dt.Rows
            lontong1 += lontong2("JUMLAH")
        Next
        bx9_36109017.Text = lontong1
    End Sub

    Private Sub bx6_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx6_36109017.TextChanged
        bx8_36109017.Text = Val(bx6_36109017.Text) * Val(bx7_36109017.Text)
    End Sub

    Private Sub bx4_36109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles bx4_36109017.Leave
        If bx4_36109017.Text.Length = 0 Then
            Exit Sub
        End If
        iftah.AturPencarianDataBase("barang", "kodebarang", bx4_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            bx4_36109017.Text = iftah.DataTablenya.Rows(0).Item("KODEBARANG")
            bx5_36109017.Text = iftah.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub
    Private Sub bx4_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx4_36109017.TextChanged
        bx5_36109017.Text = ""
        bx6_36109017.Text = ""
        bx7_36109017.Text = ""
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx7_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(bx4_36109017.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = bx4_36109017.Text
            dr("NAMABARANG") = bx5_36109017.Text
            dr("UNIT") = Val(bx6_36109017.Text)
            dr("HARGA") = Val(bx7_36109017.Text)
            dr("JUMLAH") = Val(bx8_36109017.Text)

            dt.Rows.Add(dr)

            bx4_36109017.Text = ""
            bx6_36109017.Text = ""
            bx7_36109017.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        lontong()
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If bx2_36109017.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf..Isi rong itu datatable na..")
            Exit Sub
        End If

        iftah.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        uphy = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Month & "/" & bx2_36109017.Value.Day & "/" & bx2_36109017.Value.Year & "#,'" & bx3_36109017.Text & "')", conect)
        conect.Open()
        uphy.ExecuteNonQuery()
        conect.Close()

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

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

        dt.Rows.Clear()
        lontong()
    End Sub
End Class

Sejarah Ganja

Referensi mengenai tanaman ganja (cannabis) tercatat dalam naskah Cina sejak awal 2700 SM. Penjelajah Eropa pertama kali memperkenalkan ganja ke dunia pada tahun 1545. Tanaman ini dianggap sangat bermanfaat oleh pemerintah kolonial Jamestown awal tahun 1607 dan mulai dibudidayakan. Di Virginia, petani didenda karena tidak mau menanam ganja. Pada tahun 1617 ganja mulai diperkenalkan ke Inggris. Dari abad ketujuh belas hingga ke pertengahan abad kedua puluh ganja dianggap sebagai obat rumah tangga yang berguna untuk mengobati penyakit seperti sakit kepala, kram menstruasi, dan sakit gigi. Dari tahun 1913-1938 jenis ganja yang lebih kuat dibudidayakan oleh perusahaan-perusahaan obat Amerika untuk digunakan dalam produk obat mereka. Ganja jenis itu disebut Cannabis americana.

Add caption

Sebelum tahun 1910, perdagangan ganja dan hasish (bagian yang dihasilkan dari bunga) cukup terbatas. Namun, setelah Revolusi Meksiko, perdagangan obat-obatan lebih terbuka, ini mengakibatkan pertumbuhan dan pengangkutan obat-obatan menjadi lebih mudah dan lebih menguntungkan. Bisnis ini diperluas hingga mencapai pelabuhan New Orleans, di mana waktu itu ganja dijual di pasar gelap untuk penduduk lokal. Tak lama kemudian tren penggunaan ganja sebagai obat menjadi populer.

Ganja segera menjadi populer terutama pada turunan ganja yg kuat seperti: hasish, charas, ghanja, dan bhang. Para musisi mengatakan bahwa merokok ganja dapat memberikan mereka inspirasi yang dibutuhkan untuk memainkan musik mereka. Ada yang mengatakan bahwa ganja bisa memberi mereka visi kontemplatif dan perasaan kebebasan dan semangat yang luar biasa. Selain itu ganja juga di gunakan sebagai obat penghibur atau entertainment. Akhirnya penggunaan ganja, alkohol, dan obat-obatan yang lain menjadi lazim di kota-kota besar di seluruh dunia, seperti Chicago, New York, London, dan Paris.

Banyak entertainers dan musisi Jazz pada jaman itu yang menggunakan narkoba dan alkohol dan mereka sangat tergantung pada gangster (bandar narkoba) saat mereka manggung. Para gangster ini mampu memberikan berbagai obat dan alkohol untuk para pemain dan staf mereka secara gratis.

Di tahun 1920, sebagai hasil dari perubahan amandemen yang melarang penggunaan minuman beralkohol (Prohibition), penggunaan ganja sebagai obat psikoaktif mulai tumbuh. Bahkan setelah pencabutan larangan tersebut tahun 1933, ganja masih digunakan secara luas, seperti juga morfin, heroin, dan kokain. Pada tahun 1937, ke-46 negara bagian US melarang penggunaan ganja bersama dengan obat-obatan narkotika lainnya. Akan tetapi persepsi yang populer adalah ganja tidak adiktif seperti narkotika. Ganja diklasifikasikan sebagai obat yang mengubah suasana hati, persepsi, dan image, bukan sebagai obat narkotika. Ganja masih dianggap sebagai obat-obatan Schedule I, yang berarti ganja dianggap sebagai obat yang berbahaya tanpa ada penggunaan medis. Akhirnya setelah itu rancangan UU diusulkan untuk kembali mengklasifikasikan ganja sebagai obat Shedule  II , yaitu sebagai obat berbahaya dengan penggunaan medis yang terbatas.

Pada tahun 1960-an ganja digunakan secara luas oleh generasi muda dari semua kelas sosial. Diperkirakan bahwa pada tahun 1994, 17 juta orang Amerika telah menggunakan ganja, dan sekitar 1,5 juta orang Amerika menghisap ganja secara teratur. Kehadiran strain ganja yang lebih kuat telah memperluas perdebatan antara penegak badan pengawas obat dan para pendukung dekriminalisasi ganja. Mereka berpendapat, ganja tidak dalam kelas yang sama seperti obat-obatan lain yang memang lebih adiktif. Pendapat yang lain menyatakan bahwa ganja adalah pintu gerbang “gateaway” untuk obat-obatan yang lebih keras dan karena itu hukum terhadap penggunaan dan distribusi harus tetap berlaku.

Sejak tahun 1976 undang-undang memungkinkan penggunaan ganja secara terbatas untuk keperluan medis (Medical Marijuana) yang telah diberlakukan di 35 negara bagian (pada tahun 2003 beberapa undang-undang tersebut telah berakhir atau secara khusus tidak diperpanjang oleh legislator negara bagian). Pada tahun 2002 ada upaya luas untuk dekriminalisasi pengguna ganja di Canada dan Britania Raya. Di Amerika Serikat, hampir semua level di tingkat negara bagian mereformasi hukum obat-obatan yang dianggap tidak efektif dengan melakukan over-riding pada hukum obat federal. Meskipun demikian, sejak 1996 delapan negara bagian telah memberlakukan berbagai upaya hukum yang secara efektif memungkinkan penggunaan medical marijuana yang terbatas dan terkendali. Akan tetapi di beberapa negara bagian tersebut, dokter dan pasien medical marijuana kemungkinan masih menghadapi tuntutan pidana federal.

Pada bulan Mei 1999, National Institutes of Health (NIH) mengeluarkan kebijakan yang menggambarkan perlunya penelitian lebih lanjut dalam penggunaan ganja untuk perawatan medis. NIH berpendapat bahwa penggunaan ganja untuk alasan medis harus melibatkan analisa mengenai manfaat penggunaan serta potensi risiko yang akan timbul.

Sejumlah inisiatif legalisasi ganja, mulai dari legalisasi untuk penggunaan pribadi terbatas sampai kemungkinkan para petani untuk menanam ganja yang menghasilkan non-psikoaktif ganja telah ditolak oleh para pemilih dalam beberapa tahun terakhir. Pada bulan November 2002, tiga proposal reformasi yang diusulkan di Nevada, South Dakota, dan Arizona dikalahkan oleh pemilih di negara-negara bagian tersebut. Para pendukung legalisasi ganja mengutip resolusi “tidak mengikat” di San Francisco dan Massachusetts yang mendorong pemerintah lokal dan legislator negara untuk mengembangkan strategi dekriminalisasi sebagai bukti kepentingan masyarakat dalam mereformasi hukum ganja. Para pendukung reformasi hukum ganja juga terus menegaskan bukti jajak pendapat yang menunjukkan sebagian besar masyarakat mendukung legalisasi ganja untuk keperluan medis.