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