SISTEM INFORMASI PEMBAYARAN PREMI ASURANSI PADA ASURANSI JIWA BUMIPUTERA 1912 LUBUK PAKAM

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

  LISTING PROGRAM 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