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>

SISTEM PENGGAJIAN KARYAWAN

Belajar bahasa pemrograman

SISTEM PENGGAJIAN KARYAWAN

Terdapat 3 form; form karyawan, form bagian, dan form jabatan.

LISTING PROGRAM KARYAWAN

Imports System.Data.OleDb

Public Class KARYAWAN

    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:\VB6\DATABASE141.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub RecordKARYAWAN()

        ADP = New OleDbDataAdapter("SELECT * FROM KARYAWAN", DB)

        DS = New DataSet

        ADP.Fill(DS, "KARYAWAN")

        DataGridView1.DataSource = DS.Tables("KARYAWAN")

    End Sub

    Sub butoonbaru()

        Button1.Enabled = True

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = True

    End Sub

    Sub butoonedit()

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub butoonsimpan()

        Button1.Enabled = False

        Button2.Enabled = True

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub hapustext()

        TextBox1.Text = ""

        TextBox2.Text = ""

        Call butoonbaru()

    End Sub

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

        Call OPENDB()

        Call RecordKARYAWAN()

        Call hapustext()

        ComboBox1.Items.Add("JENIS KELAMIN")

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM KARYAWAN Where NIK='" & TextBox1.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                TextBox2.Text = DR.Item(2)

                TextBox3.Text = DR.Item(3)

                TextBox4.Text = DR.Item(5)

                Call butoonedit()

                MsgBox("DATA DITEMUKAN!")

            Else

                xkode = TextBox1.Text

                Call hapustext()

                TextBox1.Text = xkode

                Call butoonsimpan()

            End If

            TextBox2.Focus()

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        SQL = "INSERT INTO KARYAWAN (NIK, NAMA, JABATAN, J_KELAMIN, BAGIAN)" & _

                "Values ('" & TextBox1.Text & "','" & _

                                TextBox2.Text & "','" & _

                                TextBox3.Text & "','" & _

                                ComboBox1.Text & "','" & _

                                TextBox4.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordKARYAWAN()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        SQL = "UPDATE KARYAWAN SET NAMA='" & TextBox2.Text & "'," & _

                                "JABATAN='" & TextBox3.Text & "'," & _

                                "J_KELAMIN='" & ComboBox1.Text & "'," & _

                                "BAGIAN='" & TextBox4.Text & "' " & _

                                "Where NIK='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordKARYAWAN()

        Call hapustext()

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "JENIS KELAMIN" Then

            ComboBox1.Items.Add("LAKI-LAKI")

            ComboBox1.Items.Add("PEREMPUAN")

            ComboBox1.Items.Add("WARIA")

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        SQL = "DELETE FROM KARYAWAN Where NIK='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordKARYAWAN()

    End Sub

End Class

Listing program bagian

Imports System.Data.OleDb

Public Class BAGIAN

    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:\VB6\DATABASE141.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub RecordBAGIAN()

        ADP = New OleDbDataAdapter("SELECT * FROM BAGIAN", DB)

        DS = New DataSet

        ADP.Fill(DS, "BAGIAN")

        DataGridView1.DataSource = DS.Tables("BAGIAN")

    End Sub

    Sub butoonbaru()

        Button1.Enabled = True

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = True

    End Sub

    Sub butoonedit()

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub butoonsimpan()

        Button1.Enabled = False

        Button2.Enabled = True

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub hapustext()

        TextBox1.Text = ""

        TextBox2.Text = ""

        Call butoonbaru()

    End Sub

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

        Call OPENDB()

        Call hapustext()

        Call RecordBAGIAN()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM BAGIAN Where KD_BAGIAN='" & TextBox1.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                TextBox2.Text = DR.Item(2)

                Call butoonedit()

                MsgBox("DATA DITEMUKAN!")

            Else

                xkode = TextBox1.Text

                Call hapustext()

                TextBox1.Text = xkode

                Call butoonsimpan()

            End If

            TextBox2.Focus()

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        SQL = "UPDATE BAGIAN SET NN_BAGIAN='" & TextBox2.Text & "' " & _

                        "Where KD_BAGIAN ='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordBAGIAN()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        SQL = "INSERT INTO BAGIAN (KD_BAGIAN, NN_BAGIAN)" & _

                "Values ('" & TextBox1.Text & "','" & _

                                TextBox2.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordBAGIAN()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        SQL = "DELETE FROM BAGIAN Where KD_BAGIAN='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordBAGIAN()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

End Class

Listing program jabatan

Imports System.Data.OleDb

Public Class JABATAN

    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:\VB6\DATABASE141.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub RecordJABATAN()

        ADP = New OleDbDataAdapter("SELECT * FROM KD_JABATAN", DB)

        DS = New DataSet

        ADP.Fill(DS, "KD_JABATAN")

        DataGridView1.DataSource = DS.Tables("KD_JABATAN")

    End Sub

    Sub butoonbaru()

        Button1.Enabled = True

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = True

    End Sub

    Sub butoonedit()

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub butoonsimpan()

        Button1.Enabled = False

        Button2.Enabled = True

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = True

        Button6.Enabled = False

    End Sub

    Sub hapustext()

        TextBox1.Text = ""

        TextBox2.Text = ""

        Call butoonbaru()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        SQL = "DELETE FROM KD_JABATAN Where KD_JABATAN='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordJABATAN()

    End Sub

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

        Call OPENDB()

        Call hapustext()

        Call RecordJABATAN()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM KD_JABATAN Where KD_JABATAN='" & TextBox1.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                TextBox2.Text = DR.Item(2)

                Call butoonedit()

                MsgBox("DATA DITEMUKAN!")

            Else

                xkode = TextBox1.Text

                Call hapustext()

                TextBox1.Text = xkode

                Call butoonsimpan()

            End If

            TextBox2.Focus()

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        SQL = "UPDATE KD_JABATAN SET NM_JABATAN='" & TextBox2.Text & "' " & _

                                "Where KD_JABATAN ='" & TextBox1.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordJABATAN()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        SQL = "INSERT INTO KD_JABATAN (KD_JABATAN, NM_JABATAN)" & _

                        "Values ('" & TextBox1.Text & "','" & _

                                        TextBox2.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Button1_Click(sender, e)

        Call RecordJABATAN()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Call hapustext()

        TextBox1.Focus()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

End Class