Kali ini saya akan
membahas tentang SISTEM INFORMASI PEMBAYARAN PREMI ASURANSI PADA ASURANSI JIWA
BUMIPUTERA 1912 LUBUK PAKAM. Pertama-tama kita desain tabel untuk database nya
seperti di bawah ini:
Nama Database
: dbagen
Nama Tabel : agen
Sehingga ketika diinput
data nya maka hasilnya seperti ini databasenya:
Langkah selanjutnya
langsung saja kita desain form seperti gambar di bawah ini yaa....
Di bawah ini adalah
listing program desain form di atas
Imports
MySql.Data.MySqlClient
Public Class Form1
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
kode_agen.Focus()
rs.Close()
End
If
End If
End Sub
End Class
Oke deh Selamat Mencoba....^_^