jika tidak sebagus atau seperti yang di haruskan harap di maklumi.
desain from:
Imports
System.Data.OleDb
Public Class DATA_KORBAN
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public ADP As OleDbDataAdapter
Public DR As OleDbDataReader
Public DS As New DataSet
Dim SQL As String
Public Sub OPENDB()
Dim
LOKASI = "Provider =
Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB5\DATABASE13.mdb"
DB = New
OleDbConnection(LOKASI)
If
DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub
RecordKORBAN()
ADP = New
OleDbDataAdapter("SELECT * FROM KORBAN",
DB)
DS = New
DataSet
ADP.Fill(DS, "KORBAN")
DataGridView1.DataSource = DS.Tables("KORBAN")
End Sub
Sub
butoonbaru()
BARU.Enabled = True
SIMPAN.Enabled = False
EDIT.Enabled = False
HAPUS.Enabled = False
BATAL.Enabled = False
KELUAR.Enabled = True
End Sub
Sub
butoonedit()
BARU.Enabled = False
SIMPAN.Enabled = False
EDIT.Enabled = True
HAPUS.Enabled = True
BATAL.Enabled = True
KELUAR.Enabled = False
End Sub
Sub
butoonsimpan()
BARU.Enabled = False
SIMPAN.Enabled = True
EDIT.Enabled = False
HAPUS.Enabled = False
BATAL.Enabled = True
KELUAR.Enabled = False
End Sub
Sub
hapustext()
NAMA.Text = ""
ALAMAT.Text = ""
J_KELAMIN.Text = ""
UMUR.Text = ""
SUKU.Text = ""
AGAMA.Text = ""
STATUS.Text = ""
Call
butoonbaru()
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 DATA_KORBAN_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
OPENDB()
Call
hapustext()
Call
RecordKORBAN()
Call
butoonbaru()
J_KELAMIN.Items.Add("JENIS KELAMIN")
AGAMA.Items.Add("AGAMA")
End Sub
Private Sub BARU_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BARU.Click
Call
hapustext()
NAMA.Focus()
End Sub
Private Sub HAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HAPUS.Click
SQL = "DELETE
FROM KORBAN Where NAMA='" & NAMA.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
BARU_Click(sender, e)
Call
RecordKORBAN()
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)
Dim
xkode As String
If
tombol = 13 Then
SQL = "SELECT
* FROM KORBAN Where NAMA='" & NAMA.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
DR = CMD.ExecuteReader
DR.Read()
If
DR.HasRows = True Then
ALAMAT.Text = DR.Item(2)
UMUR.Text = DR.Item(4)
SUKU.Text = DR.Item(5)
STATUS.Text = DR.Item(7)
Call
butoonedit()
MsgBox("DATA
DITEMUKAN!")
Else
xkode = NAMA.Text
Call
hapustext()
NAMA.Text = xkode
Call
butoonsimpan()
End
If
ALAMAT.Focus()
End If
End Sub
Private Sub BATAL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BATAL.Click
Call hapustext()
NAMA.Focus()
End Sub
Private Sub EDIT_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles EDIT.Click
SQL = "UPDATE
KORBAN SET ALAMAT='" & ALAMAT.Text & "'," & _
"JENIS_KELAMIN='" & J_KELAMIN.Text
& "'," & _
"UMUR='" & UMUR.Text & "'," & _
"SUKU='" & SUKU.Text & "'," & _
"AGAMA='" & AGAMA.Text & "'," & _
"STATUS='" & STATUS.Text & "' " & _
"Where NAMA='" & NAMA.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
BARU_Click(sender, e)
Call RecordKORBAN()
End Sub
Private Sub SIMPAN_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles SIMPAN.Click
SQL = "INSERT
INTO KORBAN (NAMA, ALAMAT, JENIS_KELAMIN, UMUR, SUKU, AGAMA, STATUS)"
& _
"Values ('" & NAMA.Text & "','" & _
ALAMAT.Text & "','"
& _
J_KELAMIN.Text & "','"
& _
UMUR.Text & "','" &
_
SUKU.Text
& "','" & _
AGAMA.Text & "','"
& _
STATUS.Text & "')"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
BARU_Click(sender, e)
Call
RecordKORBAN()
End Sub
Private Sub J_KELAMIN_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
J_KELAMIN.SelectedIndexChanged
If
J_KELAMIN.Text = "JENIS KELAMIN" Then
J_KELAMIN.Items.Add("LAKI-LAKI")
J_KELAMIN.Items.Add("PEREMPUAN")
J_KELAMIN.Items.Add("WARIA")
End If
End Sub
Private Sub AGAMA_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
AGAMA.SelectedIndexChanged
If
AGAMA.Text = "AGAMA" Then
AGAMA.Items.Add("ISLAM")
AGAMA.Items.Add("KRISTEN")
AGAMA.Items.Add("BUDHA")
AGAMA.Items.Add("HINDU")
AGAMA.Items.Add("KONGHUCHU")
End If
End Sub
End Class
