SISTEM INFORMASI PENGOLAHAN DATA TINDAK PIDANA PENYALAGUNAAN NARKOBA PADA POLSEKTA HELVETIA MEDAN

LISTING PROGRAM MENU UTAMA

Public Class Form1

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

    Private Sub DATANARKOBAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATANARKOBAToolStripMenuItem.Click
        Form2.Show()
    End Sub
End Class

LISTING PROGRAM DATA TA.


Imports System.Data.OleDb

Public Class Form2
    Public db As OleDbConnection
    Public cmd As OleDbCommand
    Public adp As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As New DataSet
    Dim sql As String
    Public Sub opendb()
        Dim lokasi = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB2\mysql TA"
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()

        End If
    End Sub
    Sub tampilrecordNarkoba()
        adp = New OleDbDataAdapter("select*from Narkoba", db)
        ds = New DataSet
        adp.Fill(ds, "Narkoba")
        DataGridView1.DataSource = ds.Tables("Narkoba")
    End Sub
    Sub buttonbaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = True

    End Sub
    Sub buttonsimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = False

    End Sub

    Sub hapustext()
        KODE.Text = ""
        JENIS_NARKOBA.Text = ""
        Call buttonbaru()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapustext()
        KODE.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Sql = "INSERT INTO Narkoba(kode,jenis)" & _
        "values('" & KODE.Text & "','" & _
        JENIS_NARKOBA.Text & "')"
        cmd = New OleDbCommand(Sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordNarkoba()


    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Sql = "delete from narkoba where kode='" & KODE.Text & "'"
        cmd = New OleDbCommand(Sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordNarkoba()


    End Sub


    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapustext()
        KODE.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call tampilrecordNarkoba()
        Call hapustext()
    End Sub

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            Sql = "SELECT * FROM  Narkoba where jenis='" & JENIS_NARKOBA.Text & "'"
            cmd = New OleDbCommand(Sql, db)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows = True Then
                KODE.Text = dr.Item(1)
                Call buttonedit()
                MsgBox("DATA DITEMUKAN")
            Else
                xkode = KODE.Text
                Call hapustext()
                jenis_narkoba.Text = xkode
                Call buttonsimpan()
            End If
            jenis_narkoba.Focus()
        End If

    End Sub
End Class




DATABASE MYSQL TA.

Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 6 to server version: 3.23.47-max-debug

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> create database narkoba2;
Query OK, 1 row affected (0.00 sec)

mysql> use narkoba2;
Database changed
mysql> create table narkoba(
    -> kode char(20),
    -> jenis_narkoba char(40));
Query OK, 0 rows affected (0.01 sec)

mysql> insert into narkoba values("AA","GANJA");
Query OK, 1 row affected (0.01 sec)

mysql> insert into narkoba values("AA","SABU-SABU");
Query OK, 1 row affected (0.02 sec)

mysql> insert into narkoba values("AAA","EXTASI");
Query OK, 1 row affected (0.00 sec)

mysql> select * from narkoba;
+------+---------------+
| kode | jenis_narkoba |
+------+---------------+
| AA   | GANJA         |
| AA   | SABU-SABU     |
| AAA  | EXTASI        |
+------+---------------+
3 rows in set (0.00 sec)

mysql>