1.
FORM
MENU
2.
FORM
INPUT
3.
HASIL
FORM INPUT
4.
FORM
CETAK
LISTING
MENU
Public Class Form1
Private Sub DATAKORBANToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DATAKORBANToolStripMenuItem.Click
FORM_INPUT.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 LAPDATAKORBANToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LAPDATAKORBANToolStripMenuItem.Click
Dim
laporan As New
DATA
DATA_KORBAN.CRV.ReportSource = laporan
DATA_KORBAN.Show()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
LISTING INPUT
Imports
MySql.Data.MySqlClient
Public Class FORM_INPUT
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=korban_db"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub bagian_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
opendb()
Call
Bersih()
Call
buattabel()
Call
IsiTabel()
End Sub
Sub
Bersih()
NAMA.Text = ""
ALAMAT.Text = ""
JK.Text = ""
UMUR.Text = ""
SUKU.Text = ""
AGAMA.Text = ""
STATUS.Text = ""
RubahButton(True,
False, False, False, True)
NAMA.Enabled = True
End Sub
Sub
RubahButton(ByVal Btn1 As
Boolean, ByVal
Btn2 As Boolean,
ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean)
BARU.Enabled = Btn1
SIMPAN.Enabled = Btn2
HAPUS.Enabled = Btn3
BATAL.Enabled = Btn4
KELUAR.Enabled = Btn5
End Sub
Sub ShowDB()
rs.Read()
NAMA.Text = rs("nama")
ALAMAT.Text = rs("alamat")
JK.Text = rs("jk")
UMUR.Text = rs("umur")
SUKU.Text = rs("suku")
AGAMA.Text = rs("agama")
STATUS.Text = rs("status")
RubahButton(False,
True, True, True, False)
simpan.Text = "Edit"
NAMA.Enabled = False
End Sub
Sub
prosesdb(ByVal log As
Integer)
Dim
pesan As String
= ""
Select Case log
Case
0
sql = "Insert
into korban(nama,alamat,jk,umur,suku,agama,status)" & _
" values('" & NAMA.Text & _
"','" & ALAMAT.Text & _
"','" & JK.Text & _
"','" & UMUR.Text & _
"','"
& SUKU.Text & _
"','" & AGAMA.Text & _
"','" & STATUS.Text & "')"
pesan = "Data Telah Tersimpan"
Case
1
sql = "update
korban set alamat='" & ALAMAT.Text & "'" & _
"jk='"
& JK.Text & "'," & _
"umur='"
& UMUR.Text & _
"suku='"
& SUKU.Text & _
"agama='"
& AGAMA.Text & _
"status='"
& STATUS.Text & _
"where nama='" & NAMA.Text & "',"
pesan = "Data Telah Terupdate"
Case
2
sql = "Delete
from korban where nama='" & NAMA.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
IsiTabel()
lv.Items.Clear()
sql = "Select
* from korban"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("nama")
lst.SubItems.Add(rs("alamat"))
lst.SubItems.Add(rs("jk"))
lst.SubItems.Add(rs("umur"))
lst.SubItems.Add(rs("suku"))
lst.SubItems.Add(rs("agama"))
lst.SubItems.Add(rs("status"))
lv.Items.Add(lst)
End
While
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Sub
buattabel()
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
lv.Columns.Add("nama")
lv.Columns.Add("alamat")
lv.Columns.Add("jk")
lv.Columns.Add("umur")
lv.Columns.Add("suku")
lv.Columns.Add("agama")
lv.Columns.Add("status")
End Sub
Private Sub BARU_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BARU.Click
Call Bersih()
NAMA.Focus()
End Sub
Private Sub BATAL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BATAL.Click
Call
Bersih()
BATAL.Focus()
End Sub
Private Sub KELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles KELUAR.Click
Me.Close()
End Sub
Private Sub SIMPAN_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles SIMPAN.Click
If
SIMPAN.Text = "Simpan" Then prosesdb(0) Else
prosesdb(1)
End Sub
Private Sub HAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HAPUS.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 NAMA_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
NAMA.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
NAMA.Text = "" Then
MsgBox("Isi
nama terlebih dahulu")
Else
sql = "select
* from korban where nama='" & NAMA.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
ShowDB()
Catch
ex As Exception
x = NAMA.Text
Bersih()
NAMA.Text = x
RubahButton(False, True, False, True, False)
SIMPAN.Text = "Simpan"
End
Try
ALAMAT.Focus()
rs.Close()
End
If
End If
End Sub
End Class
Demikian lah postingan saya Nama : Retno sari Npm : 1102082
Selamat Belajar VB Net
Tidak ada komentar:
Posting Komentar