DESAIN
FORM MENU UTAMA
LISTING PROGRAM MENU UTAMA
Public Class Menu_Utama
Private Sub DataAgenToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DataAgenToolStripMenuItem.Click
Data_Agen.MdiParent = Me
Data_Agen.Show()
End Sub
Private Sub DataPremiToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DataPremiToolStripMenuItem.Click
Data_Premi.MdiParent = Me
Data_Premi.Show()
End Sub
Private Sub PembayaranPremiToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
PembayaranPremiToolStripMenuItem.Click
Pembayaran_premi.MdiParent = Me
Pembayaran_premi.Show()
End Sub
Private Sub PendaftaranPolisToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
PendaftaranPolisToolStripMenuItem.Click
Pendaftaran_Polis.MdiParent = Me
Pendaftaran_Polis.Show()
End Sub
Private Sub
LaporanPembayaranPremiPerAgenToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
LaporanPembayaranPremiPerAgenToolStripMenuItem.Click
laporan_pembayaran_premi_per_agen.MdiParent = Me
laporan_pembayaran_premi_per_agen.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 LaporanRelasiTabelToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LaporanRelasiTabelToolStripMenuItem.Click
laporan_relasi.MdiParent = Me
laporan_relasi.Show()
End Sub
Private Sub LaporanToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LaporanToolStripMenuItem1.Click
laporan_agen.MdiParent = Me
laporan_agen.Show()
End Sub
Private Sub LaporanPembayaranPremiToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LaporanPembayaranPremiToolStripMenuItem.Click
laporan_pembayaran_premi.MdiParent = Me
laporan_pembayaran_premi.Show()
End Sub
Private Sub LaporanPolisToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LaporanPolisToolStripMenuItem.Click
laporan_polis.MdiParent = Me
laporan_polis.Show()
End Sub
End Class
UNTUK FORM AGEN
Nama
Database :TAMYSQL
Nama
tabelnya: agen
DESAIN FORM AGEN
LISTING PROGRAM AGEN
Imports
MySql.Data.MySqlClient
Public Class Data_Agen
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=TAMYSQL"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
kode_agen.Text = ""
nama_agen.Text = ""
alamat.Text = ""
telepon.Text = ""
rubahtombol(True,
False, False, False, True)
kode_agen.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_agen",
80, HorizontalAlignment.Center)
lv.Columns.Add("nama_agen",
80, HorizontalAlignment.Left)
lv.Columns.Add("alamat",
150, HorizontalAlignment.Left)
lv.Columns.Add("telp",
120, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitabel()
LV.Items.Clear()
sql = "select*from
agen"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("kode_agen")
lst.SubItems.Add(rs("nama_agen"))
lst.SubItems.Add(rs("alamat"))
lst.SubItems.Add(rs("telp"))
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 agen(kode_agen,nama_agen,alamat,telp)" & _
"values('"
& kode_agen.Text & _
"','"
& nama_agen.Text & _
"','"
& alamat.Text & _
"','"
& telepon.Text & "')"
pesan = "data telah tersimpan"
Case
1
sql = "update
agen set nama_agen='" & nama_agen.Text & "', " & _
"alamat='"
& alamat.Text & "'," &
_
"telp='"
& telepon.Text & "' "
& _
"where
kode_agen='" & kode_agen.Text & "'"
pesan = "data telah terupdate"
Case
2
sql = "delete
from agen where kode_agen='" & kode_agen.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_agen.Text = rs("kode_agen")
nama_agen.Text = rs("nama_agen")
alamat.Text = rs("alamat")
telepon.Text = rs("telp")
rubahtombol(False,
True, True, True, True)
SMPN.Text = "EDIT"
kode_agen.Enabled = False
End Sub
Private Sub Data_Agen_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_agen.Focus()
End Sub
Private Sub BTL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTL.Click
Call
bersih()
kode_agen.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_agen_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kode_agen.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
kode_agen.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select
* from agen where kode_agen='" & kode_agen.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = kode_agen.Text
bersih()
kode_agen.Text = x
rubahtombol(False, True, False, True, False)
SMPN.Text = "SIMPAN"
End
Try
nama_agen.Focus()
rs.Close()
End
If
End If
End Sub
End Class
DESAIN FORM LAPORAN AGEN
LISTING PROGRAMNYA
Public Class laporan_agen
Private Sub crv_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles crv.Load
Dim
Laporan As New
rptagen
With Me.crv
.DisplayGroupTree = False
.ReportSource = Laporan
.Refresh()
End With
End Sub
End Cl
SETELAH DI JALANKAN
UNTUK FORM PREMI
Nama
Database :TAMYSQL
Nama
tabelnya: premi
DESAIN FORM PREMI
LISTING PROGRAM PREMI
Imports
MySql.Data.MySqlClient
Public Class Data_Premi
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=TAMYSQL"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
kode_premi.Text = ""
besar_premi.Text = ""
rubahtombol(True,
False, False, False, True)
kode_premi.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_premi",
80, HorizontalAlignment.Center)
lv.Columns.Add("besar_premi",
180, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitabel()
LV.Items.Clear()
sql = "select*from
premi"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("kode_premi")
lst.SubItems.Add(rs("besar_premi"))
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 premi(kode_premi,besar_premi)" & _
"values('"
& kode_premi.Text & _
"','"
& besar_premi.Text & "')"
pesan = "data telah tersimpan"
Case
1
sql = "update
premi set besar_premi='" & besar_premi.Text & "' " & _
"where
kode_premi='" & kode_premi.Text & "'"
pesan = "data telah terupdate"
Case
2
sql = "delete
from premi where kode_premi='" & kode_premi.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_premi.Text = rs("kode_premi")
besar_premi.Text = rs("besar_premi")
rubahtombol(False,
True, True, True, True)
SMPN.Text = "EDIT"
kode_premi.Enabled = False
End Sub
Private Sub Data_Premi_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_premi.Focus()
End Sub
Private Sub BTL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTL.Click
Call
bersih()
kode_premi.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_premi_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kode_premi.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
kode_premi.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select
* from premi where kode_premi='" & kode_premi.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = kode_premi.Text
bersih()
kode_premi.Text = x
rubahtombol(False, True, False, True, False)
SMPN.Text = "SIMPAN"
End
Try
besar_premi.Focus()
rs.Close()
End
If
End If
End Sub
End Class
HASILNYA SETELAH
DI JALANKAN
UNTUK FORM PEMBAYARAN PREMI
Nama
Database :TAMYSQL
Nama
tabelnya: pembayaran_premi
DESAIN FORM PEMBAYARAN PREMI
LISTING PROGRAM PEMBAYARAN PREMI
Imports
MySql.Data.MySqlClient
Public Class Pembayaran_premi
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=TAMYSQL"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
no_seri.Text = ""
no_polis.Text = ""
nama_polis.Text = ""
besar_premi.Text = ""
biaya_polis.Text = ""
biaya_materai.Text = ""
rubahtombol(True,
False, False, False, True)
no_seri.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("no_seri",
60, HorizontalAlignment.Center)
lv.Columns.Add("no_polis",
80, HorizontalAlignment.Left)
lv.Columns.Add("nama_polis",
80, HorizontalAlignment.Left)
lv.Columns.Add("besar_premi",
80, HorizontalAlignment.Left)
lv.Columns.Add("biaya_polis",
80, HorizontalAlignment.Left)
lv.Columns.Add("biaya_materai",
80, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitabel()
LV.Items.Clear()
sql = "select*from
pembayaran_premi"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("no_seri")
lst.SubItems.Add(rs("no_polis"))
lst.SubItems.Add(rs("nama_polis"))
lst.SubItems.Add(rs("besar_premi"))
lst.SubItems.Add(rs("biaya_polis"))
lst.SubItems.Add(rs("biaya_materai"))
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
pembayaran_premi(no_seri,no_polis,nama_polis,besar_premi,biaya_polis,biaya_materai)"
& _
"values('"
& no_seri.Text & _
"','"
& no_polis.Text & _
"','"
& nama_polis.Text & _
"','"
& besar_premi.Text & _
"','"
& biaya_polis.Text & _
"','"
& biaya_materai.Text & "')"
pesan = "data telah tersimpan"
Case
1
sql = "update pembayaran_premi set no_polis='"
& no_polis.Text & "', "
& _
"nama_polis='"
& nama_polis.Text & "',"
& _
"besar_premi='"
& besar_premi.Text & "',"
& _
"biaya_polis='"
& biaya_polis.Text & "',"
& _
"biaya_materai='"
& biaya_materai.Text & "' "
& _
"where
no_seri='" & no_seri.Text & "'"
pesan = "data telah terupdate"
Case
2
sql = "delete
from pembayaran_premi where
no_seri='" & no_seri.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()
no_seri.Text = rs("no_seri")
no_polis.Text = rs("no_polis")
nama_polis.Text = rs("nama_polis")
besar_premi.Text = rs("besar_premi")
biaya_polis.Text = rs("biaya_polis")
biaya_materai.Text = rs("biaya_materai")
rubahtombol(False,
True, True, True, True)
SMPN.Text = "EDIT"
no_seri.Enabled = False
End Sub
Private Sub Pembayaran_premi_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()
no_seri.Focus()
End Sub
Private Sub BTL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTL.Click
Call
bersih()
no_seri.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 no_seri_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
no_seri.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If tombol = 13 Then
Dim
x As String
If
no_seri.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select
* from pembayaran_premi where
no_seri='" & no_seri.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = no_seri.Text
bersih()
no_seri.Text = x
rubahtombol(False, True, False, True, False)
SMPN.Text = "SIMPAN"
End
Try
no_polis.Focus()
rs.Close()
End
If
End If
End Sub
End Class
DESAIN FORM LAPORAN
PEMBAYARAN PREMI
LISTING PROGRAM LAPORAN
PEMBAYARAN PREMI
Public Class laporan_pembayaran_premi
Private Sub crv_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles crv.Load
Dim
Laporan As New
rptpembayaranpremi
With Me.crv
.DisplayGroupTree = False
.ReportSource = Laporan
.Refresh()
End With
End Sub
End Class
HASILNYA SETELAH DI JALANKAN
UNTUK FORM PENDAFTARAN POLIS
Nama
Database :TAMYSQL
Nama tabelnya: pendaftaran_polis
DESAIN FORM PENDAFTARAN POLIS
LISTING PROGRAM PENDAFTARAN POLIS
Imports
MySql.Data.MySqlClient
Public Class Pendaftaran_Polis
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=TAMYSQL"
Try
db.ConnectionString = Sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
no_pendaftaran.Text = ""
no_polis.Text = ""
nama_polis.Text = ""
alamat.Text = ""
no_telp.Text = ""
uang_pertanggungan.Text = ""
kode_premi.Text = ""
besar_premi.Text = ""
kode_agen.Text = ""
nama_agen.Text = ""
awal_pembayaran.Text = ""
akhir_pembayaran.Text = ""
rubahtombol(True,
False, False, False, True)
no_pendaftaran.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
showdb()
rs.Read()
no_pendaftaran.Text = rs("no_pendaftaran")
no_polis.Text = rs("no_polis")
nama_polis.Text = rs("nama_polis")
alamat.Text = rs("alamat")
no_telp.Text = rs("no_telp")
uang_pertanggungan.Text = rs("uang_pertanggungan")
kode_premi.Text = rs("kode_premi")
besar_premi.Text = rs("besar_premi")
kode_agen.Text = rs("kode_agen")
nama_agen.Text = rs("nama_agen")
awal_pembayaran.Text = rs("awal_pembayaran")
akhir_pembayaran.Text = rs("akhir_pembayaran")
rubahtombol(False,
True, True, True, True)
SMPN.Text = "EDIT"
no_pendaftaran.Enabled = False
End Sub
Sub
buattabel()
lv.Columns.Add("no_pendaftaran",
60, HorizontalAlignment.Center)
lv.Columns.Add("no_polis",
60, HorizontalAlignment.Center)
lv.Columns.Add("nama_polis",
100, HorizontalAlignment.Left)
lv.Columns.Add("alamat",
100, HorizontalAlignment.Left)
lv.Columns.Add("no_telp",
100, HorizontalAlignment.Left)
lv.Columns.Add("uang_pertanggungan",
100, HorizontalAlignment.Left)
lv.Columns.Add("kode_premi",
60, HorizontalAlignment.Left)
lv.Columns.Add("besar_premi",
100, HorizontalAlignment.Left)
lv.Columns.Add("kode_agen",
60, HorizontalAlignment.Left)
lv.Columns.Add("nama_agen",
100, HorizontalAlignment.Left)
lv.Columns.Add("awal_pembayaran",
100, HorizontalAlignment.Left)
lv.Columns.Add("akhir_pembayaran",
100, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Sub
isitabel()
LV.Items.Clear()
sql = "select*from
pendaftaran_polis"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("no_pendaftaran")
lst.SubItems.Add(rs("no_polis"))
lst.SubItems.Add(rs("nama_polis"))
lst.SubItems.Add(rs("alamat"))
lst.SubItems.Add(rs("no_telp"))
lst.SubItems.Add(rs("uang_pertanggungan"))
lst.SubItems.Add(rs("kode_premi"))
lst.SubItems.Add(rs("besar_premi"))
lst.SubItems.Add(rs("kode_agen"))
lst.SubItems.Add(rs("nama_agen"))
lst.SubItems.Add(rs("awal_pembayaran"))
lst.SubItems.Add(rs("akhir_pembayaran"))
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
pendaftaran_polis(no_pendaftaran,no_polis,nama_polis,alamat,no_telp,uang_pertanggungan,kode_premi,besar_premi,kode_agen,nama_agen,awal_pembayaran,akhir_pembayaran)"
& _
"values('"
& no_pendaftaran.Text & _
"','"
& no_polis.Text & _
"','"
& nama_polis.Text & _
"','"
& alamat.Text & _
"','"
& no_telp.Text & _
"','"
& uang_pertanggungan.Text & _
"','"
& kode_premi.Text & _
"','"
& besar_premi.Text & _
"','"
& kode_agen.Text & _
"','"
& nama_agen.Text & _
"','"
& Format(awal_pembayaran.Value, "yyyy-MM-dd")
& _
"','"
& Format(akhir_pembayaran.Value, "yyyy-MM-dd")
& "')"
pesan = "data telah tersimpan"
Case
1
sql = "update
pendaftaran_polis set no_polis='" & no_polis.Text & "', " & _
"nama_polis='"
& nama_polis.Text & "',"
& _
"alamat='"
& alamat.Text & "'," &
_
"no_telp='"
& no_telp.Text & "',"
& _
"uang_pertanggungan='"
& uang_pertanggungan.Text & "',"
& _
"kode_premi='"
& kode_premi.Text & "',"
& _
"besar_premi='"
& besar_premi.Text & "',"
& _
"kode_agen='"
& kode_agen.Text & "',"
& _
"nama_agen='"
& nama_agen.Text & "',"
& _
"awal_pembayaran='"
& Format(awal_pembayaran.Value, "yyyy-MM-dd")
& "'," & _
"akhir_pembayaran='"
& Format(akhir_pembayaran.Value, "yyyy-MM-dd")
& "' " & _
"where
no_pendaftaran='" & no_pendaftaran.Text & "'"
pesan = "data telah terupdate"
Case
2
sql = "delete
from pendaftaran_polis where no_pendaftaran='" &
no_pendaftaran.Text & "'"
pesan = "data telah dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")
Call
bersih()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
tampilkode_premi()
sql = "Select
* from premi"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
kode_premi.Items.Add(rs("kode_premi"))
End
While
Catch ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Sub
tampilkode_agen()
sql = "Select
* from agen"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
kode_agen.Items.Add(rs("kode_agen"))
End
While
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Sub
tampilno_polis()
sql = "Select
* from pembayaran_premi"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
no_polis.Items.Add(rs("no_polis"))
End
While
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Private Sub Pendaftaran_Polis_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
opendb()
Call
bersih()
Call
buattabel()
Call
isitabel()
Call
tampilkode_premi()
Call
tampilkode_agen()
Call
tampilno_polis()
End Sub
Private Sub BR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BR.Click
Call
bersih()
no_pendaftaran.Focus()
End Sub
Private Sub BTL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTL.Click
Call
bersih()
no_pendaftaran.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
no_pendaftaran.Text = "" Or no_polis.Text = ""
Or nama_polis.Text = ""
Or alamat.Text = ""
Or no_telp.Text = ""
Or uang_pertanggungan.Text = "" Or
kode_premi.Text = "" Or besar_premi.Text = ""
Or kode_agen.Text = ""
Or nama_agen.Text = ""
Or awal_pembayaran.Text = "" Or
akhir_pembayaran.Text = "" Then
MsgBox("Data
Belum Lengkap")
End If
If
SMPN.Text = "SIMPAN" Then
prosesdb(0)
Else
prosesdb(1)
End If
End Sub
Private Sub no_pendaftaran_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
no_pendaftaran.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
Dim
xno_polis As String
Dim
xkode_premi As String
Dim
xkode_agen As String
If
no_pendaftaran.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select
* from pendaftaran_polis where
no_pendaftaran='" & no_pendaftaran.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = no_pendaftaran.Text
xno_polis = no_polis.Text
xkode_premi =
kode_premi.Text
xkode_agen = kode_agen.Text
bersih()
no_pendaftaran.Text = x
rubahtombol(False, True, False, True, False)
SMPN.Text = "SIMPAN"
End
Try
no_polis.Focus()
rs.Close()
End
If
End If
End Sub
Private Sub no_polis_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
no_polis.SelectedIndexChanged
If
no_polis.Text = "" Then Exit Sub
sql = "select
*from pembayaran_premi where
no_polis='" & no_polis.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
rs.Read()
nama_polis.Text = rs("nama_polis")
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Private Sub kode_agen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kode_agen.SelectedIndexChanged
If
kode_agen.Text = "" Then Exit Sub
sql = "select
*from agen where kode_agen='" & kode_agen.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
rs.Read()
nama_agen.Text = rs("nama_agen")
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Private Sub kode_premi_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kode_premi.SelectedIndexChanged
If
kode_premi.Text = "" Then Exit Sub
sql = "select
*from premi where kode_premi='" & kode_premi.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
rs.Read()
besar_premi.Text = rs("besar_premi")
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
End Class
DESAIN FORM LAPORAN POLIS
Public Class laporan_polis
Private Sub crv_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles crv.Load
Dim
Laporan As New
rptpolis
With Me.crv
.DisplayGroupTree = False
.ReportSource = Laporan
.Refresh()
End With
End Sub
End Class
HASILNYA SETELAH DI JALANKAN
UNTUK DESAIN FORM LAPORAN PEMBAYARAN PREMI PER AGEN
LISTING PROGRAM LAPORAN PEMBAYARAN PREMI PER AGEN
Public Class laporan_pembayaran_premi_per_agen
Private Sub crv_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles crv.Load
Dim
Laporan As New
rptperagen
With Me.crv
.DisplayGroupTree = False
.ReportSource = Laporan
.Refresh()
End With
End Sub
End Class
HASILNYA SETELAH DI JALANKAN
DESAIN FROM LAPORAN RELASI TABEL
LISTING PROGRAM LAPORAN RELASI TABEL
Public Class laporan_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
No comments:
Post a Comment