No identitas
|
nama
|
alamat
|
Jenis kelamin
|
123
|
TETTY
|
MEDAN
|
PEREMPUAN
|
124
|
DEVI
|
RANTO
|
PEREMPUAN
|
125
|
MARK
|
PEKAN BARU
|
LAKI-LAKI
|
126
|
LISA
|
SIBOLGA
|
PEREMPUAN
|
127
|
BALUHAP
|
RAMBA
|
LAKI-LAKI
|
Imports System.Data.OleDb
Public Class Formpasien
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:\VB2\pasien2.mdb"
DB = New
OleDbConnection(LOKASI)
If
DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub
tampilrecordpasien()
ADP = New
OleDbDataAdapter("SELECT * FROM pasien",
DB)
DS = New
DataSet
ADP.Fill(DS, "pasien")
DataGridView1.DataSource = DS.Tables("pasien")
End Sub
Sub
buttonbaru()
BTNBARU.Enabled = True
BTNSIMPAN.Enabled = False
BTNHAPUS.Enabled = False
BTNBATAL.Enabled = False
BTNKELUAR.Enabled = True
End Sub
Sub
buttonedit()
BTNBARU.Enabled = False
BTNSIMPAN.Enabled = False
BTNHAPUS.Enabled = True
BTNBATAL.Enabled = True
BTNKELUAR.Enabled = False
End Sub
Sub
buttonsimpan()
btnbaru.Enabled = False
btnsimpan.Enabled = True
btnhapus.Enabled = False
btnbatal.Enabled = True
btnkeluar.Enabled = False
End Sub
Sub
hapustext()
noidentitas.Text = ""
NAMAPASIEN.Text = ""
Call
buttonbaru()
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHAPUS.Click
SQL = "delete
from pasien where [no identitas]='" & noidentitas.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
btnhapus_Click(sender, e)
Call
tampilrecordpasien()
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNKELUAR.Click
Me.Close()
End Sub
Private Sub Formpasien_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
OPENDB()
Call
hapustext()
Call
tampilrecordpasien()
JENISKELAMIN.Items.Add("laki-laki")
JENISKELAMIN.Items.Add("perempuan")
End Sub
Private Sub btnbatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNBATAL.Click
Call
hapustext()
noidentitas.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles BTNSIMPAN.Click
SQL = "insert
into pasien([no identitas], nama, alamat, [jenis kelamin]) " & " values('" & noidentitas.Text &
"','" & NAMAPASIEN.Text & "','" & alamat.Text & "','" & JENISKELAMIN.Text & "' )"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
BTNBARU_Click(sender, e)
Call
tampilrecordpasien()
End Sub
Private Sub noidentitas_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
noidentitas.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
Dim
xkode As String
If
tombol = 13 Then
SQL = "select
*from pasien where [no identitas]='" & noidentitas.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
DR = CMD.ExecuteReader
DR.Read()
If
DR.HasRows = True Then
NAMAPASIEN.Text = DR.Item(1)
Call
buttonedit()
MsgBox("data
ditemukan !")
Else
xkode = noidentitas.Text
Call
hapustext()
NAMAPASIEN.Text = xkode
Call
buttonsimpan()
End
If
NAMAPASIEN.Focus()
End If
End Sub
Private Sub BTNBARU_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNBARU.Click
Call
hapustext()
noidentitas.Focus()
End Sub
End Class