LISTING PROGRAM MODULE
Public dbrumkit As Database
Public rspas As Recordset
Public rsins As Recordset
Public rsper As Recordset
Public rstag As Recordset
Sub main()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM MENU UTAMA
Private Sub ewr_Click()
Form1.Show
End Sub
Private Sub etert_Click()
Form9.Show
End Sub
Private Sub hhj_Click()
Form11.Show
End Sub
Private Sub hjhjh_Click()
Form7.Show
End Sub
Private Sub hk_Click()
psn = MsgBox("Anda yakin akan keluar dari sistem?", vbQuestion + vbYesNo, "Konfirmasi Keluar Dari Sistem")
If psn = vbYes Then
Unload Me
'psn = MsgBox("Terima Kasih Anda Telah Menggunakan Sistem Saya", vbInformation + vbOKOnly, "By: Dodi Salfan")
End If
End Sub
Private Sub ipoi_Click()
Form12.Show
End Sub
Private Sub iuiuiui_Click()
Form8.Show
End Sub
Private Sub jljl_Click()
Form5.Show
End Sub
Private Sub kljkl_Click()
Form4.Show
End Sub
Private Sub uoiuo_Click()
Form3.Show
End Sub
Private Sub uyu_Click()
Form3.Show
End Sub
Private Sub yuju_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report7.rpt"
'lap1.ReplaceSelectionFormula "month({tperawatan.tgl_msk})=" & b2 & "And year({tperawatan.tgl_msk})=" & b3 & ""
lap1.RetrieveDataFiles
lap1.Action = 1
End Sub
Private Sub yuui_Click()
Form1.Show
End Sub
Private Sub yuuyu_Click()
Form2.Show
End Sub
Private Sub yuyu_Click()
a.Show
End Sub
LISTING PROGRAM ENTRY DATA PASIEN
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End Sub
Private Sub kosong1()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End Sub
Sub textmati()
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
End Sub
Sub texthidup()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Text2.BackColor = &H80000005
Text3.BackColor = &H80000005
Text4.BackColor = &H80000005
Text5.BackColor = &H80000005
Combo1.BackColor = &H80000005
Combo2.BackColor = &H80000005
End Sub
Private Sub Cmdbatal_Click()
kosong
textmati
Text1.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdsimpan.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Text1.SetFocus
End Sub
Private Sub cmdedit_Click()
X = MsgBox("Edit Data?", vbYesNo, "Pesan")
If X = vbYes Then
Text1.Enabled = False
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
Cmdsimpan.Enabled = True
cmdkeluar.Enabled = False
texthidup
Text2.SetFocus
End If
End Sub
Private Sub Cmdhapus_Click()
X = MsgBox("Yakin Data Di Hapus ?", vbYesNo, "Pesan")
If X = vbYes Then
rspas.Delete
kosong
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Else
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Text1.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
X = MsgBox("Anda Yakin?", vbYesNo, "Pesan")
If X = vbYes Then
Unload Me
MDIForm1.Show
MDIForm1.Enabled = True
End If
End Sub
Private Sub Cmdsimpan_Click()
X = MsgBox("Data Disimpan ?", vbYesNo, "Pesan")
If X = vbYes Then
rspas.Seek "=", Text1.Text
If rspas.NoMatch = False Then
rspas.Edit
Else
rspas.AddNew
End If
rspas!kode_pas = Text1.Text
rspas!nm_pas = Text2.Text
rspas!tgl_lhr = DTPicker1.Value
rspas!jns_kel = Combo1.Text
rspas!umur = Text3.Text
rspas!agama = Combo2.Text
rspas!almt_pas = Text4.Text
rspas!pekerjaan = Text5.Text
rspas.Update
kosong
textmati
Text1.Enabled = True
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdbatal.Enabled = False
cmdkeluar.Enabled = True
Else
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
kosong
textmati
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
rspas.Index = "idxpasien"
Combo1.AddItem "Laki-laki"
Combo1.AddItem "Perempuan"
Combo2.AddItem "Islam"
Combo2.AddItem "Keristen"
Combo2.AddItem "Budha"
Combo2.AddItem "Hindu"
Combo2.AddItem "Konghucu"
Combo2.AddItem "Lain - Lain"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
rspas.Index = "idxpasien"
rspas.Seek "=", Text1.Text
If rspas.NoMatch Then
texthidup
kosong1
Text2.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Else
textmati
Text2.Text = rspas!nm_pas
DTPicker1.Value = rspas!tgl_lhr
Combo1.Text = rspas!jns_kel
Text3.Text = rspas!umur
Combo2.Text = rspas!agama
Text4.Text = rspas!almt_pas
Text5.Text = rspas!pekerjaan
Cmdsimpan.Enabled = False
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
End If
Else
kosong1
End If
End Sub
LISTING PROGRAM ENTRY DATA KAMAR
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub kosong1()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Sub textmati()
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
Sub texthidup()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text2.BackColor = &H80000005
Text3.BackColor = &H80000005
Text4.BackColor = &H80000005
End Sub
Private Sub Cmdbatal_Click()
kosong
textmati
Text1.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdsimpan.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Text1.SetFocus
End Sub
Private Sub cmdedit_Click()
X = MsgBox("Edit Data?", vbYesNo, "Pesan")
If X = vbYes Then
Text1.Enabled = False
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
Cmdsimpan.Enabled = True
cmdkeluar.Enabled = False
texthidup
Text2.SetFocus
End If
End Sub
Private Sub Cmdhapus_Click()
X = MsgBox("Yakin Data Di Hapus ?", vbYesNo, "Pesan")
If X = vbYes Then
rsins.Delete
kosong
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Else
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Text1.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
X = MsgBox("Anda Yakin?", vbYesNo, "Pesan")
If X = vbYes Then
Unload Me
MDIForm1.Show
MDIForm1.Enabled = True
End If
End Sub
Private Sub Cmdsimpan_Click()
X = MsgBox("Data Disimpan ?", vbYesNo, "Pesan")
If X = vbYes Then
rsins.Seek "=", Text1.Text
If rsins.NoMatch = False Then
rsins.Edit
Else
rsins.AddNew
End If
rsins!kode_kmr = Text1.Text
rsins!nm_kmr = Text2.Text
rsins!tipe_kmr = Text3.Text
rsins!harga = Text4.Text
rsins.Update
kosong
textmati
Text1.Enabled = True
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdbatal.Enabled = False
cmdkeluar.Enabled = True
Else
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
kosong
textmati
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rsins = dbrumkit.OpenRecordset("tkamar")
rsins.Index = "idxkamar"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
rsins.Index = "idxkamar"
rsins.Seek "=", Text1.Text
If rsins.NoMatch Then
texthidup
kosong1
Text2.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Else
textmati
Text2.Text = rsins!nm_kmr
Text3.Text = rsins!tipe_kmr
Text4.Text = rsins!harga
Cmdsimpan.Enabled = False
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
End If
Else
kosong1
End If
End Sub
LISTING PROGRAM TRANSAKSI PERAWATAN
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
DTPicker1.Value = Date
End Sub
Private Sub kosong1()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
DTPicker1.Value = Date
End Sub
Sub textmati()
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo2.Enabled = False
Combo1.Enabled = False
Combo3.Enabled = False
DTPicker1.Enabled = False
End Sub
Sub texthidup()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Combo2.Enabled = True
Combo1.Enabled = True
Combo3.Enabled = True
DTPicker1.Enabled = True
Text2.BackColor = &H80000005
Text3.BackColor = &H80000005
Text4.BackColor = &H80000005
Text5.BackColor = &H80000005
Text6.BackColor = &H80000005
Text7.BackColor = &H80000005
Combo2.BackColor = &H80000005
Combo1.BackColor = &H80000005
Combo3.BackColor = &H80000005
DTPicker1.CalendarBackColor = &H80000005
End Sub
Private Sub Cmdbatal_Click()
kosong
textmati
Text1.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdsimpan.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Text1.SetFocus
End Sub
Private Sub cmdedit_Click()
X = MsgBox("Edit Data?", vbYesNo, "Pesan")
If X = vbYes Then
Text1.Enabled = False
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
Cmdsimpan.Enabled = True
cmdkeluar.Enabled = False
texthidup
Text2.SetFocus
End If
End Sub
Private Sub Cmdhapus_Click()
X = MsgBox("Yakin Data Di Hapus ?", vbYesNo, "Pesan")
If X = vbYes Then
rsper.Delete
kosong
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Else
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Text1.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
X = MsgBox("Anda Yakin?", vbYesNo, "Pesan")
If X = vbYes Then
Unload Me
MDIForm1.Show
MDIForm1.Enabled = True
End If
End Sub
Private Sub Cmdsimpan_Click()
X = MsgBox("Data Disimpan ?", vbYesNo, "Pesan")
If X = vbYes Then
rsper.Seek "=", Text1.Text
If rsper.NoMatch = False Then
rsper.Edit
Else
rsper.AddNew
End If
rsper!no_register = Text1.Text
rsper!kode_pas = Combo1.Text
rsper!tgl_msk = DTPicker1.Value
rsper!kode_kmr = Combo2.Text
rsper!kel_utama = Text4.Text
rsper!stts_rawat = Combo3.Text
rsper!suhu_badan = Text5.Text
rsper!tinggi_badan = Text6.Text
rsper!berat_badan = Text7.Text
rsper.Update
kosong
textmati
Text1.Enabled = True
Text1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdbatal.Enabled = False
cmdkeluar.Enabled = True
Else
Text1.SetFocus
End If
End Sub
Private Sub Combo1_Change()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo1.Text
If rspas.NoMatch = False Then
Text2.Text = rspas!nm_pas
End If
End Sub
Private Sub Combo1_Click()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo1.Text
If rspas.NoMatch = False Then
Text2.Text = rspas!nm_pas
End If
End Sub
Private Sub Combo2_Change()
rsins.Index = "idxkamar"
rsins.Seek "=", Combo2.Text
If rsins.NoMatch = False Then
Text3.Text = rsins!nm_kmr
End If
End Sub
Private Sub Combo2_Click()
rsins.Index = "idxkamar"
rsins.Seek "=", Combo2.Text
If rsins.NoMatch = False Then
Text3.Text = rsins!nm_kmr
End If
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rspas.EOF = True
Combo1.List(a) = rspas!kode_pas
a = a + 1
rspas.MoveNext
Loop
Dim b As Integer
On Error Resume Next
Do While Not rsins.EOF = True
Combo2.List(b) = rsins!kode_kmr
b = b + 1
rsins.MoveNext
Loop
End Sub
Private Sub Form_Load()
kosong
textmati
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
rsper.Index = "idxperawatan"
rspas.Index = "idxpasien "
rsins.Index = "idxkamar"
rsper.Seek "=", Text1.Text
If rsper.NoMatch Then
texthidup
kosong1
Combo1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Else
textmati
Combo1.Text = rsper!kode_pas
Text2.Text = rspas!nm_pas
Text3.Text = rsins!nm_kmr
DTPicker1.Value = rsper!tgl_msk
Combo2.Text = rsper!kode_kmr
Text4.Text = rsper!kel_utama
Combo3.Text = rsper!stts_rawat
Text5.Text = rsper!suhu_badan
Text6.Text = rsper!tinggi_badan
Text7.Text = rsper!berat_badan
Cmdsimpan.Enabled = False
cmdedit.Enabled = True
Cmdhapus.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
End If
Else
kosong1
End If
End Sub
LISTING PROGRAM TRANSAKSI PEMBAYARAN
Private Sub Cmdbatal_Click()
batal
'textmati
'Text1.Enabled = True
cmdedit.Enabled = False
Cmdhapus.Enabled = False
Cmdsimpan.Enabled = True
Cmdbatal.Enabled = True
cmdkeluar.Enabled = True
Combo1.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
X = MsgBox("Anda Yakin?", vbYesNo, "Pesan")
If X = vbYes Then
Unload Me
MDIForm1.Show
MDIForm1.Enabled = True
End If
End Sub
Private Sub Cmdsimpan_Click()
X = MsgBox("Data Disimpan ?", vbYesNo, "Pesan")
If X = vbYes Then
rstag.Seek "=", Combo1.Text
If rstag.NoMatch = False Then
rstag.Edit
Else
rstag.AddNew
End If
rstag!no_register = Combo1.Text
rstag!tgl_keluar = DTPicker2.Value
rstag!biaya_perawatan = Text5.Text
rstag!biaya_obat = Text6.Text
rstag!biaya_lain = Text7.Text
rstag.Update
batal
Combo3.Text = ""
Combo2.Text = ""
Text10.Text = ""
Text9.Text = ""
' textmati
Text1.Enabled = True
Combo1.SetFocus
Cmdsimpan.Enabled = True
cmdedit.Enabled = False
Cmdbatal.Enabled = False
cmdkeluar.Enabled = True
Else
Text1.SetFocus
End If
End Sub
Private Sub Combo1_Click()
'rsper.Index = "idxperawatan"
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Seek "=", Combo1.Text
If rsper.NoMatch = False Then
End If
Combo2.Text = rsper!kode_pas
Text10.Text = rspas!nm_pas
Text9.Text = rspas!almt_pas
DTPicker1.Value = rsper!tgl_msk
Combo3.Text = rsper!kode_kmr
Text1.Text = rsins!nm_kmr
Text2.Text = rsins!tipe_kmr
Text3.Text = rsins!harga
End Sub
Private Sub DTPicker4_Click()
Text3.Text = Val(DTPicker4.Value) - Val(DTPicker2.Value)
Text7.Text = Val(Text6.Text) * Val(Text3.Text)
End Sub
Private Sub Combo2_Change()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo2.Text
If rspas.NoMatch = False Then
Text10.Text = rspas!nm_pas
Text9.Text = rspas!almt_pas
End If
End Sub
Private Sub Combo2_Click()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo2.Text
If rspas.NoMatch = False Then
Text10.Text = rspas!nm_pas
Text9.Text = rspas!almt_pas
End If
End Sub
Private Sub Combo3_Change()
rsins.Index = "idxkamar"
rsins.Seek "=", Combo3.Text
If rsins.NoMatch = False Then
Text1.Text = rsins!nm_kmr
Text2.Text = rsins!tipe_kmr
Text3.Text = rsins!harga
End If
End Sub
Private Sub Combo3_Click()
rsins.Index = "idxkamar"
rsins.Seek "=", Combo3.Text
If rsins.NoMatch = False Then
Text1.Text = rsins!nm_kmr
Text2.Text = rsins!tipe_kmr
Text3.Text = rsins!harga
End If
End Sub
Private Sub DTPicker2_Change()
Text4.Text = Val(DTPicker2) - Val(DTPicker1)
Text5.Text = Val(Text3) * Val(Text4)
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rspas.EOF = True
Combo2.List(a) = rspas!kode_pas
a = a + 1
rspas.MoveNext
Loop
Dim b As Integer
On Error Resume Next
Do While Not rsins.EOF = True
Combo3.List(b) = rsins!kode_kmr
b = b + 1
rsins.MoveNext
Loop
Dim c As Integer
On Error Resume Next
Do While Not rsper.EOF = True
Combo1.List(c) = rsper!no_register
c = c + 1
rsper.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
Combo2.Enabled = False
Combo3.Enabled = False
Text10.Enabled = False
Text9.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub
Sub batal()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = ""
DTPicker1.Value = Date
DTPicker2.Value = Date
End Sub
Sub mati()
Combo2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
DTPicker1.Enabled = False
Combo3.Enabled = False
DTPicker2.Enabled = False
Text3.Enabled = False
DTPicker4.Enabled = True
Combo4.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
End Sub
Private Sub Text3_Change()
Text5.Text = Val(Text3) * Val(Text4)
End Sub
Private Sub Text7_Change()
Text8 = Val(Text5) + Val(Text6) + Val(Text7)
End Sub
LISTING PROGRAM LAPORAN DATA PASIEN
Private Sub Command1_Click()
b1 = aa.Day
b2 = aa.Month
b3 = aa.Year
bsek1 = b1 & "-" & b2 & "-" & b3
bsek = Format(bsek1, "mmmm-yyyy")
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report7.rpt"
lap1.ReplaceSelectionFormula "month({tperawatan.tgl_msk})=" & b2 & "And year({tperawatan.tgl_msk})=" & b3 & ""
'lap1.Formulas(0) = "kabag='" & Text1.Text & "'"
lap1.Formulas(0) = "bulan='" & bsek & "'"
lap1.WindowState = crptMaximized
lap1.RetrieveDataFiles
lap1.Action = 1
End Sub
LISTING PROGRAM LAPORAN PERINCIAN BIAYA
Private Sub Command1_Click()
b1 = aa.Day
b2 = aa.Month
b3 = aa.Year
bsek1 = b1 & "-" & b2 & "-" & b3
bsek = Format(bsek1, "mmmm-yyyy")
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report8.rpt"
lap1.ReplaceSelectionFormula "month({tperawatan.tgl_msk})=" & b2 & "And year({tperawatan.tgl_msk})=" & b3 & ""
'lap1.Formulas(0) = "kabag='" & Text1.Text & "'"
lap1.Formulas(0) = "bulan='" & bsek & "'"
lap1.WindowState = crptMaximized
lap1.RetrieveDataFiles
lap1.Action = 1
End Sub
LISTING PROGRAM KARTU BEROBAT
Private Sub Combo1_Click()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo1.Text
If rspas.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report1.rpt"
lap1.SelectionFormula = "{tpasien.kode_pas}='" & Combo1.Text & "'"
lap1.Formulas(0) = "no='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rspas.EOF = True
Combo1.List(a) = rspas!kode_pas
a = a + 1
rspas.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM SURAT RAWAT INAP
Private Sub Combo1_Click()
rsper.Index = "idxperawatan"
rsper.Seek "=", Combo1.Text
If rsper.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report6.rpt"
lap1.SelectionFormula = "{tperawatan.no_register}='" & Combo1.Text & "'"
lap1.Formulas(0) = "no='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rsper.EOF = True
Combo1.List(a) = rsper!no_register
a = a + 1
rsper.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM KWITANSI
Private Sub Combo1_Click()
rsper.Index = "idxperawatan"
rsper.Seek "=", Combo1.Text
If rsper.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report5.rpt"
lap1.SelectionFormula = "{tperawatan.no_register}='" & Combo1.Text & "'"
lap1.Formulas(0) = "no='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rsper.EOF = True
Combo1.List(a) = rsper!no_register
a = a + 1
rsper.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM STATUS PASIEN
Private Sub Combo1_Click()
rspas.Index = "idxpasien"
rspas.Seek "=", Combo1.Text
If rspas.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report2.rpt"
lap1.SelectionFormula = "{tpasien.kode_pas}='" & Combo1.Text & "'"
lap1.Formulas(0) = "kode='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rspas.EOF = True
Combo1.List(a) = rspas!kode_pas
a = a + 1
rspas.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM STATUS PENDERITA
Private Sub Combo1_Click()
rsper.Index = "idxperawatan"
rsper.Seek "=", Combo1.Text
If rsper.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report3.rpt"
lap1.SelectionFormula = "{tperawatan.no_register}='" & Combo1.Text & "'"
lap1.Formulas(0) = "kode='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rsper.EOF = True
Combo1.List(a) = rsper!no_register
a = a + 1
rsper.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub
LISTING PROGRAM CATATAN PERAWATAN INTENSIF
Private Sub Combo1_Click()
rsper.Index = "idxperawatan"
rsper.Seek "=", Combo1.Text
If rsper.NoMatch = False Then
End If
End Sub
Private Sub Command1_Click()
lap1.DataFiles(0) = App.Path & "\Database\rsud.mdb"
lap1.ReportFileName = App.Path & "\laporan\Report4.rpt"
lap1.SelectionFormula = "{tperawatan.no_register}='" & Combo1.Text & "'"
lap1.Formulas(0) = "no='" & Combo1.Text & "'"
'lap1.Formulas(1) = "kabag='" & Text1.Text & "'"
lap1.RetrieveDataFiles
lap1.WindowState = crptMaximized
lap1.Action = 1
End Sub
Private Sub Form_Activate()
Dim a As Integer
On Error Resume Next
Do While Not rsper.EOF = True
Combo1.List(a) = rsper!no_register
a = a + 1
rsper.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set dbrumkit = OpenDatabase(App.Path & "\Database\rsud.mdb")
Set rspas = dbrumkit.OpenRecordset("tpasien")
Set rsins = dbrumkit.OpenRecordset("tkamar")
Set rsper = dbrumkit.OpenRecordset("tperawatan")
Set rstag = dbrumkit.OpenRecordset("tpembayaran")
rspas.Index = "idxpasien"
rsins.Index = "idxkamar"
rsper.Index = "idxperawatan"
rstag.Index = "idxpembayaran"
End Sub