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

DESAIN FORM MENU UTAMA

LISTING PROGRAM MENU

Public Class Form1

    Private Sub DataNarkobaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataNarkobaToolStripMenuItem.Click

        Data_Narkoba.MdiParent = Me

        Data_Narkoba.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub DataTersangkaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataTersangkaToolStripMenuItem.Click

        data_tersangka.MdiParent = Me

        data_tersangka.Show()

    End Sub

    Private Sub PelanggaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelanggaranToolStripMenuItem.Click

        pelanggaran.MdiParent = Me

        pelanggaran.Show()

    End Sub

    Private Sub PasalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasalToolStripMenuItem.Click

        pasal.MdiParent = Me

        pasal.Show()

    End Sub

    Private Sub LaporanRelasiPelanggaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPertahunToolStripMenuItem.Click

        cetak_relasi.MdiParent = Me

        cetak_relasi.Show()

    End Sub

    Private Sub LaporanDataNarkobaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPerbulanToolStripMenuItem.Click

        cetak_narkoba.MdiParent = Me

        cetak_narkoba.Show()

    End Sub

    Private Sub LaporanDatatersangkaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPerhariToolStripMenuItem.Click

        cetak_tersangka.MdiParent = Me

        cetak_tersangka.Show()

    End Sub

    Private Sub LaporanPasalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanDatavTersangkaToolStripMenuItem.Click

        cetak_pasal.MdiParent = Me

        cetak_pasal.Show()

    End Sub

End Class

DESAIN FORM DATA TERSANGKA

Nama Database: repina

Nama Tabel        : data_narkoba

DESAIN FORM DATA NARKOBA

 

LISTING PROGRAM DATA NARKOBA

Imports MySql.Data.MySqlClient

Public Class Data_Narkoba

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=repina"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kode_narkoba.Text = ""

        jenis_narkoba.Text = ""

        rubahtombol(True, False, False, False, True)

        kode_narkoba.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        BR.Enabled = btn1

        SMPN.Enabled = btn2

        HPS.Enabled = btn3

        BTL.Enabled = btn4

        KLR.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_narkoba", 80, HorizontalAlignment.Center)

        lv.Columns.Add("jenis_narkoba", 180, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from data_narkoba"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_narkoba")

                lst.SubItems.Add(rs("jenis_narkoba"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into data_narkoba(kode_narkoba,jenis_narkoba)" & _

                    "values('" & kode_narkoba.Text & _

                    "','" & jenis_narkoba.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update data_narkoba set jenis_narkoba='" & jenis_narkoba.Text & "' " & _

                    "where kode_narkoba='" & kode_narkoba.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from data_narkoba where kode_narkoba='" & kode_narkoba.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kode_narkoba.Text = rs("kode_narkoba")

        jenis_narkoba.Text = rs("jenis_narkoba")

        rubahtombol(False, True, True, True, True)

        SMPN.Text = "EDIT"

        kode_narkoba.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

    Private Sub BR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BR.Click

        Call bersih()

        kode_narkoba.Focus()

    End Sub

    Private Sub BTL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTL.Click

        Call bersih()

        kode_narkoba.Focus()

    End Sub

    Private Sub KLR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLR.Click

        End

    End Sub

    Private Sub HPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub SMPN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN.Click

        If SMPN.Text = "SIMPAN" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kode_narkoba.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from data_narkoba where kode_narkoba='" & kode_narkoba.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kode_narkoba.Text

                    bersih()

                    kode_narkoba.Text = x

                    rubahtombol(False, True, False, True, False)

                    SMPN.Text = "SIMPAN"

                End Try

                jenis_narkoba.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class

DESAIN FORM CETAK NARKOBA

LISTING PROGRAM CETAK NARKOBA

Public Class cetak_narkoba

    Private Sub crv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crv.Load

        Dim Laporan As New rptnarkoba

        With Me.crv

            .DisplayGroupTree = False

            .ReportSource = Laporan

            .Refresh()

        End With

    End Sub

End Class

HASILNYA YANG DI JALAN KAN

UNTUK FORM DATA TERSANGKA

Nama Database: repina

Nama Tabel: data_tersangka

DESAIN FORM DATA TERSANGKA

 

LISTING PROGRAM DATA TERSANGKA

Imports MySql.Data.MySqlClient

Public Class data_tersangka

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=repina"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kode_tersangka.Text = ""

        nama_tesangka.Text = ""

        jenis_kelamin.Text = ""

        umur.Text = ""

        alamat.Text = ""

        rubahtombol(True, False, False, False, True)

        kode_tersangka.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        BR.Enabled = btn1

        SMPN.Enabled = btn2

        HPS.Enabled = btn3

        BTL.Enabled = btn4

        KLR.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_tersangka", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama_tersangka", 180, HorizontalAlignment.Left)

        lv.Columns.Add("jenis_kelamin", 80, HorizontalAlignment.Left)

        lv.Columns.Add("umur", 100, HorizontalAlignment.Left)

        lv.Columns.Add("alamat", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from data_tersangka"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_tersangka")

                lst.SubItems.Add(rs("nama_tersangka"))

                lst.SubItems.Add(rs("jenis_kelamin"))

                lst.SubItems.Add(rs("umur"))

                lst.SubItems.Add(rs("alamat"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into data_tersangka(kode_tersangka,nama_tersangka,jenis_kelamin,umur,alamat)" & _

                    "values('" & kode_tersangka.Text & _

                    "','" & nama_tesangka.Text & _

                     "','" & jenis_kelamin.Text & _

                    "','" & umur.Text & _

                    "','" & alamat.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update data_tersangka set nama_tersangka='" & nama_tesangka.Text & "', " & _

                    "jenis_kelamin='" & jenis_kelamin.Text & "'," & _

                    "umur='" & umur.Text & "'," & _

                    "alamat='" & alamat.Text & "' " & _

                    "where kode_tersangka='" & kode_tersangka.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from data_tersangka where kode_tersangka='" & kode_tersangka.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kode_tersangka.Text = rs("kode_tersangka")

        nama_tesangka.Text = rs("nama_tersangka")

        jenis_kelamin.Text = rs("jenis_kelamin")

        umur.Text = rs("umur")

        alamat.Text = rs("alamat")

        rubahtombol(False, True, True, True, True)

        SMPN.Text = "EDIT"

        kode_tersangka.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

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

        jenis_kelamin.Items.Add("PEREMPUAN")

    End Sub

    Private Sub BR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BR.Click

        Call bersih()

        kode_tersangka.Focus()

    End Sub

    Private Sub BTL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTL.Click

        Call bersih()

        kode_tersangka.Focus()

    End Sub

    Private Sub KLR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLR.Click

        End

    End Sub

    Private Sub HPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub SMPN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN.Click

        If SMPN.Text = "SIMPAN" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kode_tersangka.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from data_tersangka where kode_tersangka='" & kode_tersangka.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kode_tersangka.Text

                    bersih()

                    kode_tersangka.Text = x

                    rubahtombol(False, True, False, True, False)

                    SMPN.Text = "SIMPAN"

                End Try

                nama_tesangka.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub jenis_kelamin_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis_kelamin.SelectedIndexChanged

        If jenis_kelamin.Text = "Jenis Kelamin" Then

            jenis_kelamin.Items.Add("laki-laki")

            jenis_kelamin.Items.Add("perempuan")

        End If

    End Sub

End Class

DESAIN FORM CETAK TERSANGKA

LISTING PROGRAM CETAK TERSANGKA

Public Class cetak_tersangka

    Private Sub crv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crv.Load

        Dim Laporan As New rpttersangka

        With Me.crv

            .DisplayGroupTree = False

            .ReportSource = Laporan

            .Refresh()

        End With

    End Sub

End Class

HASILNYA SETELAH DI JALANKAN

UNTUK FORM PASAL

Nama Database:repina

Nama Tabel:pasal

 

DESAIN FORM PASAL

LISTING PROGRAM PASAL

Imports MySql.Data.MySqlClient

Public Class pasal

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=repina"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kode_pasal.Text = ""

        no_pasal.Text = ""

        isi.Text = ""

        rubahtombol(True, False, False, False, True)

        kode_pasal.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        BR.Enabled = btn1

        SMPN.Enabled = btn2

        HPS.Enabled = btn3

        BTL.Enabled = btn4

        KLR.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_pasal", 80, HorizontalAlignment.Center)

        lv.Columns.Add("no_pasal", 180, HorizontalAlignment.Left)

        lv.Columns.Add("isi", 80, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from pasal"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_pasal")

                lst.SubItems.Add(rs("no_pasal"))

                lst.SubItems.Add(rs("isi"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into pasal(kode_pasal,no_pasal,isi)" & _

                  "values('" & kode_pasal.Text & _

                  "','" & no_pasal.Text & _

                  "','" & isi.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update pasal set no_pasal='" & no_pasal.Text & "', " & _

                    "isi='" & isi.Text & "' " & _

                    "where kode_pasal='" & kode_pasal.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from pasal where kode_pasal='" & kode_pasal.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kode_pasal.Text = rs("kode_pasal")

        no_pasal.Text = rs("no_pasal")

        isi.Text = rs("isi")

        rubahtombol(False, True, True, True, True)

        SMPN.Text = "EDIT"

        kode_pasal.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

    Private Sub BR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BR.Click

        Call bersih()

        kode_pasal.Focus()

    End Sub

    Private Sub BTL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTL.Click

        Call bersih()

        kode_pasal.Focus()

    End Sub

    Private Sub KLR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLR.Click

        End

    End Sub

    Private Sub HPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub SMPN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN.Click

        If SMPN.Text = "SIMPAN" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kode_pasal.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from pasal where kode_pasal='" & kode_pasal.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kode_pasal.Text

                    bersih()

                    kode_pasal.Text = x

                    rubahtombol(False, True, False, True, False)

                    SMPN.Text = "SIMPAN"

                End Try

                no_pasal.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class

DESAIN FORM CETAK PASAL

 

LISTING PROGRAM CETAK PASAL

Public Class cetak_pasal

    Private Sub crv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crv.Load

        Dim Laporan As New rptpasal

        With Me.crv

            .DisplayGroupTree = False

            .ReportSource = Laporan

            .Refresh()

        End With

    End Sub

End Class

HASILNYA SETELAH DI JALANKAN

UNTUK FORM PELANGGARAN

Nama Database:repina

Nama Tabel:pelanggaran

 

DESAIN FORM PELANGGARAN

LISTING PROGRAM PELANGGARAN

Imports MySql.Data.MySqlClient

Public Class pelanggaran

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=repina"

        Try

            db.ConnectionString = Sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kode_pelanggaran.Text = ""

        kode_tersangka.Text = ""

        nama_tersangka.Text = ""

        kode_narkoba.Text = ""

        jenis_narkoba.Text = ""

        bukti.Text = ""

        no_pasal.Text = ""

        isi.Text = ""

        tanggal.Text = ""

        tempat_kejadian.Text = ""

        saksi.Text = ""

        rubahtombol(True, False, False, False, True)

        kode_pelanggaran.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        BR.Enabled = btn1

        SMPN.Enabled = btn2

        HPS.Enabled = btn3

        BTL.Enabled = btn4

        KLR.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_pelanggaran", 60, HorizontalAlignment.Center)

        lv.Columns.Add("kode_tersangka", 60, HorizontalAlignment.Left)

        lv.Columns.Add("nama_tersangka", 100, HorizontalAlignment.Left)

        lv.Columns.Add("kode_narkoba", 60, HorizontalAlignment.Left)

        lv.Columns.Add("jenis_narkoba", 100, HorizontalAlignment.Left)

        lv.Columns.Add("bukti", 60, HorizontalAlignment.Left)

        lv.Columns.Add("no_pasal", 60, HorizontalAlignment.Left)

        lv.Columns.Add("isi", 60, HorizontalAlignment.Left)

        lv.Columns.Add("tanggal", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tempat_kejadian", 100, HorizontalAlignment.Left)

        lv.Columns.Add("saksi", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from pelanggaran"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_pelanggaran")

                lst.SubItems.Add(rs("kode_tersangka"))

                lst.SubItems.Add(rs("nama_tersangka"))

                lst.SubItems.Add(rs("kode_narkoba"))

                lst.SubItems.Add(rs("jenis_narkoba"))

                lst.SubItems.Add(rs("bukti"))

                lst.SubItems.Add(rs("no_pasal"))

                lst.SubItems.Add(rs("isi"))

                lst.SubItems.Add(rs("tanggal"))

                lst.SubItems.Add(rs("tempat_kejadian"))

                lst.SubItems.Add(rs("saksi"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Byte)

        Dim pesan As String

        pesan = ""

        Select Case log

            Case 0

                sql = "insert into pelanggaran(kode_pelanggaran,kode_tersangka,nama_tersangka,kode_narkoba,jenis_narkoba,bukti,no_pasal,isi,tanggal,tempat_kejadian,saksi)" & _

                   "values('" & kode_pelanggaran.Text & _

                   "','" & kode_tersangka.Text & _

                   "','" & nama_tersangka.Text & _

                   "','" & kode_narkoba.Text & _

                   "','" & jenis_narkoba.Text & _

                   "','" & bukti.Text & _

                   "','" & no_pasal.Text & _

                   "','" & isi.Text & _

                   "','" & tanggal.Text & _

                   "','" & tempat_kejadian.Text & _

                   "','" & saksi.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update pelanggaran set kode_tersangka='" & kode_tersangka.Text & "', " & _

                   "nama_tersangka='" & nama_tersangka.Text & "'," & _

                   "kode_narkoba='" & kode_narkoba.Text & "'," & _

                   "jenis_narkoba='" & jenis_narkoba.Text & "'," & _

                   "bukti='" & bukti.Text & "'," & _

                   "no_pasal='" & no_pasal.Text & "'," & _

                   "isi='" & isi.Text & "'," & _

                   "tanggal='" & tanggal.Text & "'," & _

                   "tempat_kejadian='" & tempat_kejadian.Text & "'," & _

                   "saksi='" & saksi.Text & "' " & _

                   "where kode_pelanggaran='" & kode_pelanggaran.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from pelanggaran where kode_pelanggaran='" & kode_pelanggaran.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub tampilkode_tersangka()

        sql = "Select * from data_tersangka"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                kode_tersangka.Items.Add(rs("kode_tersangka"))

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub tampilkode_narkoba()

        sql = "Select * from data_narkoba"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                kode_narkoba.Items.Add(rs("kode_narkoba"))

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub tampilno_pasal()

        sql = "Select * from pasal"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                no_pasal.Items.Add(rs("no_pasal"))

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub showdb()

        rs.Read()

        kode_pelanggaran.Text = rs("kode_pelanggaran")

        kode_tersangka.Text = rs("kode_tersangka")

        nama_tersangka.Text = rs("nama_tersangka")

        kode_narkoba.Text = rs("kode_narkoba")

        jenis_narkoba.Text = rs("jenis_narkoba")

        bukti.Text = rs("bukti")

        no_pasal.Text = rs("no_pasal")

        isi.Text = rs("isi")

        tanggal.Text = rs("tanggal")

        tempat_kejadian.Text = rs("tempat_kejadian")

        saksi.Text = rs("saksi")

        rubahtombol(False, True, True, True, True)

        SMPN.Text = "EDIT"

        kode_pelanggaran.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

        Call tampilkode_tersangka()

        Call tampilkode_narkoba()

        Call tampilno_pasal()

    End Sub

    Private Sub BR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BR.Click

        Call bersih()

        kode_pelanggaran.Focus()

    End Sub

    Private Sub BTL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTL.Click

        Call bersih()

        kode_pelanggaran.Focus()

    End Sub

    Private Sub KLR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLR.Click

        End

    End Sub

    Private Sub HPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub SMPN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN.Click

        If SMPN.Text = "SIMPAN" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kode_pelanggaran.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from pelanggaran where kode_pelanggaran='" & kode_pelanggaran.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kode_pelanggaran.Text

                    bersih()

                    kode_pelanggaran.Text = x

                    rubahtombol(False, True, False, True, False)

                    SMPN.Text = "SIMPAN"

                End Try

                kode_tersangka.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub kode_tersangka_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_tersangka.SelectedIndexChanged

        If kode_tersangka.Text = "" Then Exit Sub

        sql = "select *from data_tersangka where kode_tersangka='" & kode_tersangka.Text & "'"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            rs.Read()

            nama_tersangka.Text = rs("nama_tersangka")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Private Sub kode_narkoba_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_narkoba.SelectedIndexChanged

        If kode_narkoba.Text = "" Then Exit Sub

        sql = "select *from data_narkoba where kode_narkoba='" & kode_narkoba.Text & "'"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            rs.Read()

            jenis_narkoba.Text = rs("jenis_narkoba")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Private Sub no_pasal_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no_pasal.SelectedIndexChanged

        If kode_narkoba.Text = "" Then Exit Sub

        sql = "select *from pasal where no_pasal='" & no_pasal.Text & "'"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            rs.Read()

            isi.Text = rs("isi")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

End Class

DESAIN FROM CETAK PELANGGARAN

LISTING PROGRAM NYA

Public Class cetak_relasi

    Private Sub crv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crv.Load

        Dim Laporan As New rptrelasitabel

        With Me.crv

            .DisplayGroupTree = False

            .ReportSource = Laporan

            .Refresh()

        End With

    End Sub

End Class

HASILNYA SETELAH DI JALANKAN