Selasa, 16 September 2008

Listing Program

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

BAB V

BAB V

KESIMPULAN DAN SARAN

5.1 Kesimpulan

Dari analisa dan pembahasan yang telah dilakukan, maka dapat diambil kesimpulan sebagai berikut :

1. Kegiatan pengolahan data pasien rawat inap pada RSUD M.ZEIN Painan, sarana yang digunakan dan proses masih dilakukan secara manual sehingga waktu yang diperlukan untuk mengolah data relatif lama.

2. Dengan menggunakan sistem ini, maka kegiatan pengolahan data pasien pasien rawat inap yang diinginkan dapat dilakukan dengan cepat dan tepat.

  1. Tingkat kesalahan dalam pencatatan data pasien yang dibutuhkan dapat dikurangi karena program input data yang digunakan telah didisain sedemikian rupa sehingga kesalahan yang mungkin terjadi pada saat pemasukkan data dapat dikurangi sedemikian mungkin.
  2. Sistem pengolahan data pasien yang telah dirancang ini diharapkan akan dapat menjamin kelancaran dalam pengolahan data transaksi pasien rawat inap serta pembuatan laporannya.
  3. Dengan penerapan sistem ini, baik data input, penambahan data, penghapusan data, pengeditan data ataupun pembuatan laporan yang berupa informasi di layar dan dalam bentuk cetak dapat dilakukan secara simultan / serentak.

5.2 Saran-Saran

Dengan adanya sistem yang sedang berjalan maupun sistem yang sedang dikembangkan, maka disarankan :

  1. Sistem informasi yang baru ini sebaiknya diterapkan secara bertahap dengan sistem yang sedang berjalan sekarang ini agar dapat diketahui sejauh mana sistem baru tersebut mampu menutupi kelemahan sistem sebelumnya.
  2. Spesifikasi dari perangkat komputer yang akan digunakan sebaiknya disesuaikan (baik hardware maupun software) dengan kebutuhan standar dari program aplikasi yang akan dijalankan.
  3. Lakukan pelatihan dan penyesuaian terhadap tenaga kerja yang akan menjalankan sistem baru.
  4. Migrasi dari sistem yang sedang berjalan dengan sistem yang diusulkan memerlukan waktu yang tepat dengan cara sistem yang sedang berjalan tetap dipergunakan dengan didukung sistem yang baru sehingga pada saatnya nanti jika sistem yg diusulkan sudah bisa menangani sistem yang lama maka sistem yang lama ditiadakan dalam penggunaannya.