Class Biaya
Imports System.Data.OleDb
Public Class clsBiaya
Private FIDBiaya As String
Private FJenis As String
Private FHarga As Integer
Public Property PIDBiaya() As String
Get
Return FIDBiaya
End Get
Set(ByVal value As String)
FIDBiaya = value
End Set
End Property
Public Property PJenis() As String
Get
Return FJenis
End Get
Set(ByVal value As String)
FJenis = value
End Set
End Property
Public Property PHarga() As Integer
Get
Return FHarga
End Get
Set(ByVal value As Integer)
FHarga = value
End Set
End Property
Public Sub Baca(ByVal Lv As ListView)
Dim baris As Integer = 0
ConnectToServer()
Q = "SELECT IDBiaya, Jenis, Harga FROM BIAYA"
myCmd = New OleDbCommand(Q, mycn)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
While myRead.Read
Lv.Items.Add(myRead.Item("IDBiaya"))
Lv.Items(baris).SubItems.Add(myRead.Item("Jenis"))
Lv.Items(baris).SubItems.Add(myRead.Item("Harga"))
baris = baris + 1
End While
End If
End Sub
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO BIAYA (IDBiaya, Jenis, Harga) values (?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
myCmd.Parameters.AddWithValue("Jenis", FJenis)
myCmd.Parameters.AddWithValue("Harga", FHarga)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Ubah() As Integer
ConnectToServer()
Q = "UPDATE BIAYA SET Jenis=? , Harga=?"
Q &= " WHERE IDBiaya=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("Jenis", FJenis)
myCmd.Parameters.AddWithValue("Harga", FHarga)
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Hapus() As Integer
ConnectToServer()
Q = "DELETE FROM BIAYA"
Q &= " WHERE IDBiaya=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Cari() As Integer
ConnectToServer()
Q = "SELECT IDBiaya,Jenis,Harga FROM BIAYA"
Q &= " WHERE IDBiaya=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
myRead.Read()
FIDBiaya = myRead.Item("IDBiaya")
FJenis = myRead.Item("Jenis")
FHarga = myRead.Item("Harga")
Return True
Else
Return False
End If
End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(IDBiaya, 4)) as kode From BIAYA"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "B0001"
Else
Return "B000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Class Detil
Imports System.Data.OleDb
Public Class clsDetil
Private FIDResep As String
Private FIDObat As String
Private FJmlObat As Integer
Private FHrgTotal As Integer
Public Property PIDResep() As String
Get
Return FIDResep
End Get
Set(ByVal value As String)
FIDResep = value
End Set
End Property
Public Property PIDObat() As String
Get
Return FIDObat
End Get
Set(ByVal value As String)
FIDObat = value
End Set
End Property
Public Property PJmlObat() As Integer
Get
Return FJmlObat
End Get
Set(ByVal value As Integer)
FJmlObat = value
End Set
End Property
Public Property PHrgTotal() As Integer
Get
Return FHrgTotal
End Get
Set(ByVal value As Integer)
FHrgTotal = value
End Set
End Property
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO DETIL_RESEP (IDResep, IDObat, JmlObat, HrgTotal) values (?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDReep", FIDResep)
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
myCmd.Parameters.AddWithValue("JmlObat", FJmlObat)
myCmd.Parameters.AddWithValue("HrgTotal", FHrgTotal)
Return myCmd.ExecuteNonQuery()
End Function
End Class
Class Detil Biaya
Imports System.Data.OleDb
Public Class clsDetilBiaya
Private FIDBiaya As String
Private FIDKamar As String
Private FJmlBayar As Integer
Public Property PIDKamar() As String
Get
Return FIDKamar
End Get
Set(ByVal value As String)
FIDKamar = value
End Set
End Property
Public Property PIDBiaya() As String
Get
Return FIDBiaya
End Get
Set(ByVal value As String)
FIDBiaya = value
End Set
End Property
Public Property PJmlBayar() As Integer
Get
Return FJmlBayar
End Get
Set(ByVal value As Integer)
FJmlBayar = value
End Set
End Property
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO DETIL_BIAYA (IDKamar, IDBiaya, JmlBayar) values (?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
myCmd.Parameters.AddWithValue("IDBiaya", FIDBiaya)
myCmd.Parameters.AddWithValue("JmlBayar", FJmlBayar)
Return myCmd.ExecuteNonQuery()
End Function
End Class
Class Kamar
Imports System.Data.OleDb
Public Class clsKamar
Private FIDKamar As String
Private FNmKamar As String
Private FKelas As String
Private FHrgPaket As Integer
Public Property PIDKamar() As String
Get
Return FIDKamar
End Get
Set(ByVal value As String)
FIDKamar = value
End Set
End Property
Public Property PNmKamar() As String
Get
Return FNmKamar
End Get
Set(ByVal value As String)
FNmKamar = value
End Set
End Property
Public Property PKelas() As String
Get
Return FKelas
End Get
Set(ByVal value As String)
FKelas = value
End Set
End Property
Public Property PHrgPaket() As Integer
Get
Return FHrgPaket
End Get
Set(ByVal value As Integer)
FHrgPaket = value
End Set
End Property
Public Sub Baca(ByVal Lv As ListView)
Dim baris As Integer = 0
ConnectToServer()
Q = "SELECT IDKamar, NmKamar, Kelas, HrgPaket FROM KAMAR"
myCmd = New OleDbCommand(Q, mycn)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
While myRead.Read
Lv.Items.Add(myRead.Item("IDKamar"))
Lv.Items(baris).SubItems.Add(myRead.Item("NmKamar"))
Lv.Items(baris).SubItems.Add(myRead.Item("Kelas"))
Lv.Items(baris).SubItems.Add(myRead.Item("HrgPaket"))
baris = baris + 1
End While
End If
End Sub
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO KAMAR (IDKamar, NmKamar, Kelas, HrgPaket) values (?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
myCmd.Parameters.AddWithValue("NmKamar", FNmKamar)
myCmd.Parameters.AddWithValue("Kelas", FKelas)
myCmd.Parameters.AddWithValue("HrgPaket", FHrgPaket)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Ubah() As Integer
ConnectToServer()
Q = "UPDATE KAMAR SET NmKamar=? , Kelas=? , HrgPaket=?"
Q &= " WHERE IDKamar=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NmKamar", FNmKamar)
myCmd.Parameters.AddWithValue("Kelas", FKelas)
myCmd.Parameters.AddWithValue("HrgPaket", FHrgPaket)
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Hapus() As Integer
ConnectToServer()
Q = "DELETE FROM KAMAR"
Q &= " WHERE IDKamar=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Cari() As Integer
ConnectToServer()
Q = "SELECT IDKamar,NmKamar,Kelas,HrgPaket FROM KAMAR"
Q &= " WHERE IDKamar=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
myRead.Read()
FIDKamar = myRead.Item("IDKamar")
FNmKamar = myRead.Item("NmKamar")
FKelas = myRead.Item("Kelas")
FHrgPaket = myRead.Item("HrgPaket")
Return True
Else
Return False
End If
End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(IDKamar, 4)) as kode From KAMAR"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "K0001"
Else
Return "K000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Class Obat
Imports System.Data.OleDb
Public Class clsObat
Private FIDObat As String
Private FNmObat As String
Private FJenis As String
Private FHarga As Integer
Public Property PIDObat() As String
Get
Return FIDObat
End Get
Set(ByVal value As String)
FIDObat = value
End Set
End Property
Public Property PNmObat() As String
Get
Return FNmObat
End Get
Set(ByVal value As String)
FNmObat = value
End Set
End Property
Public Property PJenis() As String
Get
Return FJenis
End Get
Set(ByVal value As String)
FJenis = value
End Set
End Property
Public Property PHarga() As Integer
Get
Return FHarga
End Get
Set(ByVal value As Integer)
FHarga = value
End Set
End Property
Public Sub Baca(ByVal Lv As ListView)
Dim baris As Integer = 0
ConnectToServer()
Q = "SELECT IDObat, NmObat, Jenis, Harga FROM OBAT"
myCmd = New OleDbCommand(Q, mycn)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
While myRead.Read
Lv.Items.Add(myRead.Item("IDObat"))
Lv.Items(baris).SubItems.Add(myRead.Item("NmObat"))
Lv.Items(baris).SubItems.Add(myRead.Item("Jenis"))
Lv.Items(baris).SubItems.Add(myRead.Item("Harga"))
baris = baris + 1
End While
End If
End Sub
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO OBAT (IDObat, NmObat, Jenis, Harga) values (?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
myCmd.Parameters.AddWithValue("NmObat", FNmObat)
myCmd.Parameters.AddWithValue("Jenis", FJenis)
myCmd.Parameters.AddWithValue("Harga", FHarga)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Ubah() As Integer
ConnectToServer()
Q = "UPDATE OBAT SET NmObat=? , Jenis=? , Harga=?"
Q &= " WHERE IDObat=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NmObat", FNmObat)
myCmd.Parameters.AddWithValue("Jenis", FJenis)
myCmd.Parameters.AddWithValue("Harga", FHarga)
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Hapus() As Integer
ConnectToServer()
Q = "DELETE FROM OBAT"
Q &= " WHERE IDObat=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Cari() As Integer
ConnectToServer()
Q = "SELECT IDObat,NmObat,Jenis,Harga FROM OBAT"
Q &= " WHERE IDObat=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
myRead.Read()
FIDObat = myRead.Item("IDObat")
FNmObat = myRead.Item("NmObat")
FJenis = myRead.Item("Jenis")
FHarga = myRead.Item("Harga")
Return True
Else
Return False
End If
End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(IDObat, 4)) as kode From OBAT"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDObat", FIDObat)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "OB0001"
Else
Return "OB000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Class Pasien
Imports System.Data.OleDb
Public Class clsPasien
Private FIDPasien As String
Private FNmPasien As String
Private FAlamat As String
Private FJenkel As String
Private FTmptLahir As String
Private FTglLahir As String
Private FTelp As String
Private FRujukan As String
Private FAgama As String
Public Property PIDPasien() As String
Get
Return FIDPasien
End Get
Set(ByVal value As String)
FIDPasien = value
End Set
End Property
Public Property PNmPasien() As String
Get
Return FNmPasien
End Get
Set(ByVal value As String)
FNmPasien = value
End Set
End Property
Public Property PAlamat() As String
Get
Return FAlamat
End Get
Set(ByVal value As String)
FAlamat = value
End Set
End Property
Public Property PJenkel() As String
Get
Return FJenkel
End Get
Set(ByVal value As String)
FJenkel = value
End Set
End Property
Public Property PTmptLahir() As String
Get
Return FTmptLahir
End Get
Set(ByVal value As String)
FTmptLahir = value
End Set
End Property
Public Property PTglLahir() As String
Get
Return FTglLahir
End Get
Set(ByVal value As String)
FTglLahir = value
End Set
End Property
Public Property PTelepon() As String
Get
Return FTelp
End Get
Set(ByVal value As String)
FTelp = value
End Set
End Property
Public Property PRujukan() As String
Get
Return FRujukan
End Get
Set(ByVal value As String)
FRujukan = value
End Set
End Property
Public Property PAgama() As String
Get
Return FAgama
End Get
Set(ByVal value As String)
FAgama = value
End Set
End Property
Public Sub Baca(ByVal Lv As ListView)
Dim baris As Integer = 0
ConnectToServer()
Q = "SELECT IDPasien, NmPasien, Alamat, Jenkel, TmptLahir, TglLahir, Rujukan, Telepon, Agama FROM PASIEN"
myCmd = New OleDbCommand(Q, mycn)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
While myRead.Read
Lv.Items.Add(myRead.Item("IDPasien"))
Lv.Items(baris).SubItems.Add(myRead.Item("NmPasien"))
Lv.Items(baris).SubItems.Add(myRead.Item("Alamat"))
Lv.Items(baris).SubItems.Add(myRead.Item("Jenkel"))
Lv.Items(baris).SubItems.Add(myRead.Item("TmptLahir"))
Lv.Items(baris).SubItems.Add(myRead.Item("TglLahir"))
Lv.Items(baris).SubItems.Add(myRead.Item("Rujukan"))
Lv.Items(baris).SubItems.Add(myRead.Item("Telepon"))
Lv.Items(baris).SubItems.Add(myRead.Item("Agama"))
baris = baris + 1
End While
End If
End Sub
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO PASIEN (IDPasien, NmPasien, Alamat, Jenkel, TmptLahir, TglLahir, Rujukan, Telepon, Agama) values (?,?,?,?,?,?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
myCmd.Parameters.AddWithValue("NmPasien", FNmPasien)
myCmd.Parameters.AddWithValue("Alamat", FAlamat)
myCmd.Parameters.AddWithValue("Jenkel", FJenkel)
myCmd.Parameters.AddWithValue("TmptLahir", FTmptLahir)
myCmd.Parameters.AddWithValue("TglLahir", FTglLahir)
myCmd.Parameters.AddWithValue("Rujukan", FRujukan)
myCmd.Parameters.AddWithValue("Telepon", FTelp)
myCmd.Parameters.AddWithValue("Agama", FAgama)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Ubah() As Integer
ConnectToServer()
Q = "UPDATE PASIEN SET NmPasien=? , Alamat=? , Jenkel=? , TmptLahir=? , TglLahir=? , Rujukan=? , Telepon=? , Agama=?"
Q &= " WHERE IDPasien=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NmPasien", FNmPasien)
myCmd.Parameters.AddWithValue("Alamat", FAlamat)
myCmd.Parameters.AddWithValue("Jenkel", FJenkel)
myCmd.Parameters.AddWithValue("TmptLahir", FTmptLahir)
myCmd.Parameters.AddWithValue("TglLahir", FTglLahir)
myCmd.Parameters.AddWithValue("Rujukan", FRujukan)
myCmd.Parameters.AddWithValue("Telepon", FTelp)
myCmd.Parameters.AddWithValue("Agama", FAgama)
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Hapus() As Integer
ConnectToServer()
Q = "DELETE FROM PASIEN"
Q &= " WHERE IDPasien=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Cari() As Integer
ConnectToServer()
Q = "SELECT IDPasien,NmPasien,Alamat,Jenkel,TmptLahir,TglLahir,Rujukan,Telepon,Agama FROM PASIEN"
Q &= " WHERE IDPasien=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
myRead.Read()
FIDPasien = myRead.Item("IDPasien")
FNmPasien = myRead.Item("NmPasien")
FAlamat = myRead.Item("Alamat")
FJenkel = myRead.Item("Jenkel")
FTmptLahir = myRead.Item("TmptLahir")
FTglLahir = myRead.Item("TglLahir")
FRujukan = myRead.Item("Rujukan")
FTelp = myRead.Item("Telepon")
FAgama = myRead.Item("Agama")
Return True
Else
Return False
End If
End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(IDPasien, 4)) as kode From PASIEN"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "P0001"
Else
Return "P000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Class Registrasi
Imports System.Data.OleDb
Public Class clsRegistrasi
Private FNoReg As String
Private FTglReg As String
Private FIDPasien As String
Private FIDKamar As String
Public Property PNoReg() As String
Get
Return FNoReg
End Get
Set(ByVal value As String)
FNoReg = value
End Set
End Property
Public Property PTglReg() As String
Get
Return FTglReg
End Get
Set(ByVal value As String)
FTglReg = value
End Set
End Property
Public Property PIDPasien() As String
Get
Return FIDPasien
End Get
Set(ByVal value As String)
FIDPasien = value
End Set
End Property
Public Property PIDKamar() As String
Get
Return FIDKamar
End Get
Set(ByVal value As String)
FIDKamar = value
End Set
End Property
Public Sub Baca(ByVal Lv As ListView)
Dim baris As Integer = 0
ConnectToServer()
Q = "SELECT NoReg, TglReg, IDPasien, IDKamar FROM REGISTRASI"
myCmd = New OleDbCommand(Q, mycn)
myRead = myCmd.ExecuteReader()
If myRead.HasRows Then
While myRead.Read
Lv.Items.Add(myRead.Item("NoReg"))
Lv.Items(baris).SubItems.Add(myRead.Item("TglReg"))
Lv.Items(baris).SubItems.Add(myRead.Item("IDPasien"))
Lv.Items(baris).SubItems.Add(myRead.Item("IDKamar"))
baris = baris + 1
End While
End If
End Sub
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO REGISTRASI (NoReg, TglReg, IDPasien, IDKamar) values (?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NoReg", FNoReg)
myCmd.Parameters.AddWithValue("TglReg", FTglReg)
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Ubah() As Integer
ConnectToServer()
Q = "UPDATE REGISTRASI SET TglReg=? , IDPasien=? , IDKamar=?"
Q &= " WHERE NoReg=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("TglReg", FTglReg)
myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
myCmd.Parameters.AddWithValue("IDKamar", FIDKamar)
myCmd.Parameters.AddWithValue("NoReg", FIDPasien)
Return myCmd.ExecuteNonQuery()
End Function
Public Function Hapus() As Integer
ConnectToServer()
Q = "DELETE FROM REGISTRASI"
Q &= " WHERE NoReg=?"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NoReg", FNoReg)
Return myCmd.ExecuteNonQuery()
End Function
'Public Function Cari() As Integer
' ConnectToServer()
' Q = "SELECT IDPasien,NmPasien,Alamat,Jenkel,TmptLahir,TglLahir,Rujukan,Telepon,Agama FROM PASIEN"
' Q &= " WHERE IDPasien=?"
' myCmd = New OleDbCommand(Q, mycn)
' myCmd.CommandType = CommandType.Text
' myCmd.Parameters.AddWithValue("IDPasien", FIDPasien)
' myRead = myCmd.ExecuteReader()
' If myRead.HasRows Then
' myRead.Read()
' FIDPasien = myRead.Item("IDPasien")
' FNmPasien = myRead.Item("NmPasien")
' FAlamat = myRead.Item("Alamat")
' FJenkel = myRead.Item("Jenkel")
' FTmptLahir = myRead.Item("TmptLahir")
' FTglLahir = myRead.Item("TglLahir")
' FRujukan = myRead.Item("Rujukan")
' FTelp = myRead.Item("Telepon")
' FAgama = myRead.Item("Agama")
' Return True
' Else
' Return False
' End If
'End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(NoReg, 4)) as kode From REGISTRASI"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("NoReg", FIDPasien)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "R0001"
Else
Return "R000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Class Resep
Imports System.Data.OleDb
Public Class clsResep
Private FIDResep As String
Private FJmlBayar As Integer
Private FTglResep As Date
Private FNoReg As String
Public Property PIDResep() As String
Get
Return FIDResep
End Get
Set(ByVal value As String)
FIDResep = value
End Set
End Property
Public Property PTglResep() As Date
Get
Return FTglResep
End Get
Set(ByVal value As Date)
FTglResep = value
End Set
End Property
Public Property PJmlBayar() As Integer
Get
Return FJmlBayar
End Get
Set(ByVal value As Integer)
FJmlBayar = value
End Set
End Property
Public Property PNoReg() As String
Get
Return FNoReg
End Get
Set(ByVal value As String)
FNoReg = value
End Set
End Property
Public Function Simpan() As Integer
ConnectToServer()
Q = "INSERT INTO RESEP (IDResep, TglResep, JmlBayar, NoReg) values (?,?,?,?)"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDResep", FIDResep)
myCmd.Parameters.AddWithValue("TglResep", FTglResep)
myCmd.Parameters.AddWithValue("JmlBayar", FJmlBayar)
myCmd.Parameters.AddWithValue("NoReg", FNoReg)
Return myCmd.ExecuteNonQuery()
End Function
Public Function AutoNumber()
ConnectToServer()
Q = "SELECT Max(Right(IDResep, 4)) as kode From RESEP"
myCmd = New OleDbCommand(Q, mycn)
myCmd.CommandType = CommandType.Text
myCmd.Parameters.AddWithValue("IDResep", FIDResep)
myRead = myCmd.ExecuteReader()
If Not myRead.Read Then
Return "RS0001"
Else
Return "RS000" & Format(Val(myRead("kode").ToString) + 1, "####")
End If
End Function
End Class
Popup Biaya
Imports System.Data.OleDb
Imports System.Data
Public Class popupBiaya
Public refIDBiaya As String
Public refJenis As String
Public refHarga As String
Dim objBiaya As New clsBiaya
Private Sub popupBiaya_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objBiaya.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refIDBiaya = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refJenis = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refHarga = ListView1.SelectedItems(0).SubItems(2).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from BIAYA WHERE Jenis like '%" & Trim(txtKey.Text) & "%' order by IDBiaya Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetString(1)
.Items(x).SubItems(2).Text = myRead.GetInt32(2)
End With
End While
Finally
myRead.Close()
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
Pilih()
frmEntryBiaya.EnableObject()
frmEntryBiaya.btnUbah.Enabled = True
frmEntryBiaya.btnHapus.Enabled = True
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Popup Kamar
Imports System.Data.OleDb
Imports System.Data
Public Class popupKamar
Public refIDKamar As String
Public refNmKamar As String
Public refKelas As String
Public refHrgPaket As String
Dim objKamar As New clsKamar
Private Sub popupPasien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objKamar.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refIDKamar = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refNmKamar = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refKelas = ListView1.SelectedItems(0).SubItems(2).Text.ToString
refHrgPaket = ListView1.SelectedItems(0).SubItems(3).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from KAMAR WHERE NmKamar like '%" & Trim(txtKey.Text) & "%' order by IDKamar Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetString(1)
.Items(x).SubItems(2).Text = myRead.GetString(2)
.Items(x).SubItems(3).Text = myRead.GetInt32(3)
End With
End While
Finally
myRead.Close()
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
Pilih()
frmEntryKamar.EnableObject()
frmEntryKamar.btnUbah.Enabled = True
frmEntryKamar.btnHapus.Enabled = True
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Popup Obat
Imports System.Data.OleDb
Imports System.Data
Public Class popupObat
Public refIDObat As String
Public refNmObat As String
Public refJenis As String
Public refHarga As String
Dim objObat As New clsObat
Private Sub popupObat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objObat.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refIDObat = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refNmObat = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refJenis = ListView1.SelectedItems(0).SubItems(2).Text.ToString
refHarga = ListView1.SelectedItems(0).SubItems(3).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from OBAT WHERE NmObat like '%" & Trim(txtKey.Text) & "%' order by IDObat Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetString(1)
.Items(x).SubItems(2).Text = myRead.GetString(2)
.Items(x).SubItems(3).Text = myRead.GetInt32(3)
End With
End While
Finally
myRead.Close()
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Popup Pasien
Imports System.Data.OleDb
Imports System.Data
Public Class popupPasien
Public refIDPasien As String
Public refNmPasien As String
Public refAlamat As String
Public refJenkel As String
Public refTmptLahir As String
Public refTglLahir As String
Public refTelepon As String
Public refRujukan As String
Public refAgama As String
Dim objPasien As New clsPasien
Private Sub popupPasien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objPasien.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refIDPasien = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refNmPasien = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refAlamat = ListView1.SelectedItems(0).SubItems(2).Text.ToString
refJenkel = ListView1.SelectedItems(0).SubItems(3).Text.ToString
refTmptLahir = ListView1.SelectedItems(0).SubItems(4).Text.ToString
refTglLahir = ListView1.SelectedItems(0).SubItems(5).Text.ToString
refRujukan = ListView1.SelectedItems(0).SubItems(6).Text.ToString
refTelepon = ListView1.SelectedItems(0).SubItems(7).Text.ToString
refAgama = ListView1.SelectedItems(0).SubItems(8).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from PASIEN WHERE NmPasien like '%" & Trim(txtKey.Text) & "%' order by IDPasien Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetString(1)
.Items(x).SubItems(2).Text = myRead.GetString(2)
.Items(x).SubItems(3).Text = myRead.GetString(3)
.Items(x).SubItems(4).Text = myRead.GetString(4)
.Items(x).SubItems(5).Text = myRead.GetDateTime(5)
.Items(x).SubItems(6).Text = myRead.GetString(6)
.Items(x).SubItems(7).Text = myRead.GetString(7)
.Items(x).SubItems(8).Text = myRead.GetString(8)
End With
End While
Finally
myRead.Close()
x = 0
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
Pilih()
frmEntryPasien.EnableObject()
frmEntryPasien.btnUbah.Enabled = True
frmEntryPasien.btnHapus.Enabled = True
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Popup Registrasi
Imports System.Data.OleDb
Imports System.Data
Public Class popupReg
Public refNoReg As String
Public refTglReg As String
Public refIDPasien As String
Public refIDKamar As String
Dim objRegistrasi As New clsRegistrasi
Private Sub popupRegistrasi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objRegistrasi.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refNoReg = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refTglReg = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refIDPasien = ListView1.SelectedItems(0).SubItems(2).Text.ToString
refIDKamar = ListView1.SelectedItems(0).SubItems(3).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from REGISTRASI WHERE TglReg like '%" & Trim(txtKey.Text) & "%' order by IDPasien Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetDateTime(1)
.Items(x).SubItems(2).Text = myRead.GetString(2)
.Items(x).SubItems(3).Text = myRead.GetString(3)
End With
End While
Finally
myRead.Close()
x = 0
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
Pilih()
frmEntryPasien.EnableObject()
frmEntryPasien.btnUbah.Enabled = True
frmEntryPasien.btnHapus.Enabled = True
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Form Transaksi Pembayaran
Public Class frmPembayaran
Private index As Integer = 0
Private Total As Double = 0.0
Dim objDetilBiaya As New clsDetilBiaya
Dim objKamar As New clsKamar
Sub TextClear()
txtNoReg.Clear()
dtpReg.Value = Date.Now
txtNoReg.Clear()
dtpReg.Value = Date.Now
txtIDPasien.Clear()
txtIDKamar.Clear()
txtHrgPaket.Clear()
txtIDBiaya.Clear()
txtJenis.Clear()
txtHarga.Clear()
txtNmKamar.Clear()
End Sub
Private Sub btnCariReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim popupReg As New popupReg
popupReg.ShowDialog()
If popupReg.refNoReg <> "" Then
txtNoReg.Text = popupReg.refNoReg
dtpReg.Text = popupReg.refTglReg
txtIDPasien.Text = popupReg.refIDPasien
End If
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
Dim Value() As String = {txtNoReg.Text, txtIDKamar.Text, txtIDBiaya.Text, txtHarga.Text}
AddList(Value)
Total += CDbl(txtHarga.Text) : txtJmlBayar.Text = Format(CDbl(CStr(Total)), "##,###,###,###")
txtIDBiaya.Clear()
txtJenis.Clear()
txtHarga.Clear()
End Sub
Sub AddList(ByVal Value() As String)
Dim subIndex As Integer
ListView1.Items.Add("")
For subIndex = 0 To 3
ListView1.Items(index).SubItems.Add("")
ListView1.Items(index).SubItems(subIndex).Text = Value(subIndex)
Next
index = index + 1
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
objDetilBiaya.PIDKamar = txtIDKamar.Text
objDetilBiaya.PIDBiaya = txtIDBiaya.Text
objDetilBiaya.PJmlBayar = txtJmlBayar.Text
If objDetilBiaya.Simpan = 1 Then
MessageBox.Show("Data Berhasil Disimpan", "Berhasil")
Else
MessageBox.Show("Data Gagal Disimpan", "Gagal")
End If
TextClear()
End Sub
Private Sub btnCariReg_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCariReg.Click
Dim popupReg As New popupReg
popupReg.ShowDialog()
If popupReg.refNoReg <> "" Then
txtNoReg.Text = popupReg.refNoReg
dtpReg.Text = popupReg.refTglReg
txtIDPasien.Text = popupReg.refIDPasien
txtIDKamar.Text = popupReg.refIDKamar
txtIDKamar.Focus()
End If
End Sub
Private Sub txtIDKamar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtIDKamar.KeyPress
If Asc(e.KeyChar) = 13 Then
objKamar.PIDKamar = txtIDKamar.Text
If objKamar.Cari = True Then
txtIDKamar.Text = objKamar.PIDKamar
txtNmKamar.Text = objKamar.PNmKamar
txtHrgPaket.Text = objKamar.PHrgPaket
btnCariBiaya.Focus()
Else
btnSimpan.Enabled = True
End If
End If
End Sub
Private Sub frmPembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.99
End Sub
Private Sub btnCariBiaya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCariBiaya.Click
popupBiaya.ShowDialog()
If popupBiaya.refIDBiaya <> "" Then
txtIDBiaya.Text = popupBiaya.refIDBiaya
txtJenis.Text = popupBiaya.refJenis
txtHarga.Text = popupBiaya.refHarga
btnTambah.Focus()
End If
End Sub
Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
TextClear()
End Sub
Private Sub btnKembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKembali.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
Form Cetak Registrasi
Public Class frmCetakLapReg
Private Sub btnKembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKembali.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Dim ask As String
ask = MsgBox("Apa anda yakin ingin keluar?", MsgBoxStyle.OkCancel, "Warning!")
If ask = vbOK Then
Application.Exit()
End If
End Sub
Private Sub btnCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCetak.Click
frmCrLapReg.tgl1 = DateTimePicker1.Value.Date
frmCrLapReg.tgl2 = DateTimePicker2.Value.Date
frmCrLapReg.ShowDialog()
End Sub
Private Sub frmCetakLapReg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.99
End Sub
End Class
Popup Registrasi
Imports System.Data.OleDb
Imports System.Data
Public Class popupReg
Public refNoReg As String
Public refTglReg As String
Public refIDPasien As String
Public refIDKamar As String
Dim objRegistrasi As New clsRegistrasi
Private Sub popupRegistrasi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objRegistrasi.Baca(ListView1)
list_data()
Me.Opacity = 0.99
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Pilih()
End Sub
Private Sub Pilih()
Try
refNoReg = ListView1.SelectedItems(0).SubItems(0).Text.ToString
refTglReg = ListView1.SelectedItems(0).SubItems(1).Text.ToString
refIDPasien = ListView1.SelectedItems(0).SubItems(2).Text.ToString
refIDKamar = ListView1.SelectedItems(0).SubItems(3).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Public Sub list_data()
ConnectToServer()
Call clear_list()
Dim sqlx As String
Dim x As Integer = 1
sqlx = "SELECT * from REGISTRASI WHERE TglReg like '%" & Trim(txtKey.Text) & "%' order by IDPasien Asc"
If mycn.State <> ConnectionState.Closed Then mycn.Close()
mycn.Open()
myCmd = New OleDbCommand(sqlx, mycn)
myRead = myCmd.ExecuteReader
Try
While myRead.Read = True
x = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = myRead.GetString(0)
.Items(x).SubItems(1).Text = myRead.GetDateTime(1)
.Items(x).SubItems(2).Text = myRead.GetString(2)
.Items(x).SubItems(3).Text = myRead.GetString(3)
End With
End While
Finally
myRead.Close()
x = 0
End Try
mycn.Close()
End Sub
Private Sub clear_list()
While Val(txtCounter.Text) > 0
ListView1.Items.Clear()
txtCounter.Text = Val(txtCounter.Text) - 1
End While
End Sub
Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
list_data()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
Pilih()
frmEntryPasien.EnableObject()
frmEntryPasien.btnUbah.Enabled = True
frmEntryPasien.btnHapus.Enabled = True
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
End Sub
End Class
No comments:
Post a Comment