Yuk…!! Belajar Pemrograman Visual Basik Dot Net Di Mesran.net

SISTEM INFORMASI PEMBAYARAN PREMI ASURANSI PADA ASURANSI JIWA BUMIPUTERA 1912 LUBUKPAKAM

1   1. Form  Menu

Listing Program Menu

Public Class menu_utama

    Private Sub DataAgenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataAgenToolStripMenuItem.Click

        Data_agen.Show()

    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        End

    End Sub

    Private Sub LaporanAgenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanAgenToolStripMenuItem.Click

        cetak_agen.Show()

    End Sub

End Class

2. Form Input 

 

Listing Program Input

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=dbagen"

        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", 180, HorizontalAlignment.Left)

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

        lv.Columns.Add("telp", 100, 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 Form1_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

  3. Desain Form Cetak Laporan

Listing Program Cetak Laporan

Public Class cetak_agen

    Private Sub crv_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim Laporan As New rptagen

        With Me.crv

            .DisplayGroupTree = False

            .ReportSource = Laporan

            .Refresh()

        End With

    End Sub

End Class

Tampilan Form Cetak Laporan

Demikianlah Postingan Saya NAMA: MUTIA SAKINA NPM: 1102129
Selamat Belajar VB Net