GenTra

1. Tahap Awal

Bukalah cisco anda, dan pasangkan pada modem yang sudah di sediakan oleh pihak astinet. pastikan modem sudah pada kualitas A. dan sudah sesuai dengan permintaan bandwith yang di inginkan.

Buka email atau surat yang telah di faxkan oleh pihak Astinet dan catat untuk ip serial dan ip public yang diberikan kepada anda oleh pihak telkom sbb :

ip serial : 192.x.x.x , netmask 255.x.x.x

ip public : 222.x.x.x

kalu data ini anda sudah siap berarti anda sudah bisa melakukan konfigurasi terhadap rooter saudara.

2. Tahap Setting Router secara umum

a. Pertama yang dilakukan adalah setting ip untuk fastethernetnya terlebih dahulu ini penting karena untuk mempermudah setting di kemudian untuk proses telnet dsb.

b. Colok lah router ke modem leaseline, kemudian colok kabel console yang berwarna biru , untuk melakukan konfigurasi lewat pc.

c. Dari pc jalankan HyperTerminal untuk mengkonfigurasi awal cisco router

d. Setelah terpasang kabel console, restartlah cisco router anda. dan pertama kali booting cisco akan mengeluarkan pertanyaan pertanyaan default mengenai konfigurasi awal cisco, seperti hostname , passsword dsb

e. Yang pertama kali kita lakukan adalah

1. Setting lah password console, aux, vty dan secret password caranya adalah cara :

router# config t

router(config)# enable secret (pass-anda)

router(config)# enable password (pass-anda)

settung untuk console , vty, dan aux

cara :

router(config)# line console 0

router(config-line)#login

router(config-line)#password ( password anda )

begitu juga dengan setting vty dan aux

lakukan satu setting lagi untuk password biar pada saat di sh run password di encrypt. dan semua password terencryption.

cara :

router(config)# service password-encryption

router(config)# enable password (password anda )

router(config)#line vty 0 4

router(config-line)#login

router(config-line)#password (pass anda )

router(config-line)#line con 0

router(config-line)#login

router(config-line)#password ( pass anda )

router(config-line)# exit

router(config)# no service password-encryption

router(config)# ^Z

router(config)# wr mem

setelah selesai melakukan setting password, kita bisa sekarang mengubah hostname dengan cara :

router#config t

router(config)# hostname (nama hostname anda )

router(config)#^Z

router(config)#wr mem

(nama host anda)#

jika anda perlu setting benner silahkan setting banner pada cisco anda, disini saya tidak masukan karena saya tidak penting ini.

3. Setting Konfigurasi

1. Setting terhadap FastEthernet fa 0/0

caranya :

router#config t

router(config)# int fa0/0

router(config-if)# ip address 222.x.x.x 255.x.x.x

router(config-if#ip address 192.168.x.x 255..x.x.x secondary

2. Setting terhadap Serial 0/0

caranya :

router# config t

router(config)# int serial0/0

router(config-if)# ip address 192..x.x.x 255..x.x.x

router(config-if)# bandwith 512

router(config-if)#^Z

router# wr mem

3. Setting ip route biar bisa melewati paket ke luar dari ip mana saja lewat serial0

caranya :

router(config)# ip route 0.0.0.0 0.0.0.0 serial0/0

4. Settingan untuk access-list

router(config)# access-list 1 permit 192.168.x.x 0.0.0.255

router(config)#^Z

router# wr mem

ok.. semua settingan untuk astinet sudah kelar.. sekarang anda tinggal coba melakukan ping ke ip address yang ada di internet bila suda ok berarti kerja anda berhasil.

dan jangan lupa untuk menset Gateway pada client anda ke ip privet yang ada pada fastEthernet anda di cisco router.

Program Rumah Sakit (Visual Basic)

Program Rumah Sakit Umum -> Visual Basic

Database :

Relasi Antar Tabel Keseluruhan

LISTING PROGRAM FORM MENU

Code:

Private Sub DBAYAR_Click()
    FBAYAR.Show 1
End Sub

Private Sub DBIAYA_Click()
    FBIAYA.Show 1
End Sub

Private Sub DPASIEN_Click()
    FPASIEN.Show 1
End Sub

Private Sub DPERUSAHAAN_Click()
    FPERUSAHAAN.Show 1
End Sub

Private Sub DPKELUAR_Click()
    FKELUAR.Show 1
End Sub

Private Sub DRUJUKAN_Click()
    FRUJUKAN.Show 1
End Sub

Private Sub DTAGIIHAN_Click()
    FTAGIHAN.Show 1
End Sub

Private Sub LBAYAR_Click()
    FLBAYAR.Show 1
End Sub

Private Sub LHBT_Click()
    FLBIAYA.Show 1
End Sub

Private Sub LPASIEN_Click()
    FLPASIEN.Show 1
End Sub

Private Sub LPERPASIEN_Click()
    FBIAYAPERPAS.Show 1
End Sub

Private Sub LPERUSAHAAN_Click()
    CRP.ReportFileName = App.Path & "\RPERUSAHAAN.rpt"
    CRP.Destination = crptToWindow
    CRP.WindowState = crptMaximized
    CRP.DiscardSavedData = True
    CRP.RetrieveDataFiles
    CRP.SelectionFormula = cari
    CRP.Action = 1
End Sub

Private Sub LRUJUKAN_Click()
    FLRUJUKAN.Show 1
End Sub

Private Sub LTAGIHAN_Click()
    FLTAGIHAN.Show 1
End Sub

Private Sub KANAN_Timer()
    Label1.ForeColor = QBColor(Rnd * 9 + 4)
    Label2.ForeColor = QBColor(Rnd * 7 + 6)
    If Label1.Left + Label1.Width < Me.Width Then
        Label1.Left = Label1.Left + 100
    Else
        KANAN.Enabled = False
        KIRI.Enabled = True
    End If
End Sub

Private Sub KIRI_Timer()
    Label1.ForeColor = QBColor(Rnd * 8 + 6)
    Label2.ForeColor = QBColor(Rnd * 9 + 6)
    If Label1.Left > 100 Then
        Label1.Left = Label1.Left - 100
    Else
        KANAN.Enabled = True
        KIRI.Enabled = False
    End If
End Sub

Private Sub MKELUAR_Click()
    End
End Sub

LISTING PROGRAM FORM PERUSAHAAN

Code:

Dim DBRSU As Database
Dim TPERUSAHAAN As Recordset
Dim KET As String

Private Sub AKHIR_Click()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub
Private Sub Form_Activate()
    ATURFRAME (False)
    KDPERUSAHAAN.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        KDPERUSAHAAN.Text = .Fields!KDPERUSAHAAN
        NMPERUSAHAAN.Text = .Fields!NMPERUSAHAAN
        ALPERUSAHAAN.Text = .Fields!ALPERUSAHAAN
        NOTELEPON.Text = .Fields!NOTELEPON
        NMPIMPINAN.Text = .Fields!NMPIMPINAN
    End If
End With
End Sub

Private Sub BERSIH()
    KDPERUSAHAAN.Text = ""
    NMPERUSAHAAN.Text = ""
    ALPERUSAHAAN.Text = ""
    NOTELEPON.Text = ""
    NMPIMPINAN.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TPERUSAHAAN = DBRSU.OpenRecordset("TPERUSAHAAN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TPERUSAHAAN.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub KDPERUSAHAAN_LostFocus()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        .Index = "KDPERUSAHAAN"
        .Seek "=", KDPERUSAHAAN.Text
        If Not TPERUSAHAAN.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    KDPERUSAHAAN.Enabled = False
    ATURFRAME (True)
    NMPERUSAHAAN.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub SEBELUM_Click()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TPERUSAHAAN
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TPERUSAHAAN
    If KDPERUSAHAAN.Text = "" Then
        MsgBox ("KODE PERUSAHAAN HARUS DIISI...")
        KDPERUSAHAAN.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!KDPERUSAHAAN = KDPERUSAHAAN.Text
        .Fields!NMPERUSAHAAN = NMPERUSAHAAN.Text
        .Fields!ALPERUSAHAAN = ALPERUSAHAAN.Text
        .Fields!NOTELEPON = NOTELEPON.Text
        .Fields!NMPIMPINAN = NMPIMPINAN.Text
        .Update
    Else
        .Edit
        .Fields!NMPERUSAHAAN = NMPERUSAHAAN.Text
        .Fields!ALPERUSAHAAN = ALPERUSAHAAN.Text
        .Fields!NOTELEPON = NOTELEPON.Text
        .Fields!NMPIMPINAN = NMPIMPINAN.Text
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    KDPERUSAHAAN.SetFocus
    KET = "TAMBAH"
End Sub

LISTING PROGRAM FORM RUJUKAN

Code:

Dim DBRSU As Database
Dim TRUJUKAN As Recordset
Dim TPERUSAHAAN As Recordset
Dim KET As String

Private Sub AKHIR_Click()
With TRUJUKAN
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TRUJUKAN
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub
Private Sub Form_Activate()
    If TPERUSAHAAN.RecordCount <> 0 Then
        TPERUSAHAAN.MoveFirst
        KDPERUSAHAAN.Clear
        Do Until TPERUSAHAAN.EOF
            KDPERUSAHAAN.AddItem (TPERUSAHAAN.Fields!KDPERUSAHAAN)
            TPERUSAHAAN.MoveNext
        Loop
    End If
   
    ATURFRAME (False)
    NOSURAT.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TRUJUKAN
    If .RecordCount <> 0 Then
        NOSURAT.Text = .Fields!NOSURAT
        TGRUJUKAN.Value = Format(.Fields!TGRUJUKAN, "DD-MM-YYYY")
        KDPERUSAHAAN.Text = .Fields!KDPERUSAHAAN
        TPERUSAHAAN.Index = "KDPERUSAHAAN"
        TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
        If Not TPERUSAHAAN.NoMatch Then
            NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
        End If
        NIP.Text = .Fields!NIP
        NMPEGAWAI.Text = .Fields!NMPEGAWAI
        NMPASIEN.Text = .Fields!NMPASIEN
        HUBUNGAN.Text = .Fields!HUBUNGAN
        KELAS.Text = .Fields!KELAS
    End If
End With
End Sub

Private Sub BERSIH()
    NOSURAT.Text = ""
    TGRUJUKAN.Value = Format(Date, "DD-MM-YYYY")
    KDPERUSAHAAN.Text = ""
    NMPERUSAHAAN.Text = ""
    NIP.Text = ""
    NMPEGAWAI.Text = ""
    NMPASIEN.Text = ""
    HUBUNGAN.Text = ""
    KELAS.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TRUJUKAN = DBRSU.OpenRecordset("TRUJUKAN")
    Set TPERUSAHAAN = DBRSU.OpenRecordset("TPERUSAHAAN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TRUJUKAN.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub KDPERUSAHAAN_Change()
    TPERUSAHAAN.Index = "KDPERUSAHAAN"
    TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
    If Not TPERUSAHAAN.NoMatch Then
        NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
    End If
End Sub

Private Sub KDPERUSAHAAN_Click()
KDPERUSAHAAN_Change
End Sub

Private Sub NOSURAT_LostFocus()
With TRUJUKAN
    If .RecordCount <> 0 Then
        .Index = "NOSURAT"
        .Seek "=", NOSURAT.Text
        If Not TRUJUKAN.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NOSURAT.Enabled = False
    ATURFRAME (True)
    TGRUJUKAN.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub SEBELUM_Click()
With TRUJUKAN
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TRUJUKAN
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TRUJUKAN
    If NOSURAT.Text = "" Then
        MsgBox ("NOMOR SURAT HARUS DIISI...")
        NOSURAT.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NOSURAT = NOSURAT.Text
        .Fields!TGRUJUKAN = Format(TGRUJUKAN.Value, "DD-MM-YYYY")
        .Fields!KDPERUSAHAAN = KDPERUSAHAAN.Text
        .Fields!NIP = NIP.Text
        .Fields!NMPEGAWAI = NMPEGAWAI.Text
        .Fields!NMPASIEN = NMPASIEN.Text
        .Fields!HUBUNGAN = HUBUNGAN.Text
        .Fields!KELAS = KELAS.Text
        .Update
    Else
        .Edit
        .Fields!NOSURAT = NOSURAT.Text
        .Fields!TGRUJUKAN = Format(TGRUJUKAN.Value, "DD-MM-YYYY")
        .Fields!KDPERUSAHAAN = KDPERUSAHAAN.Text
        .Fields!NIP = NIP.Text
        .Fields!NMPEGAWAI = NMPEGAWAI.Text
        .Fields!NMPASIEN = NMPASIEN.Text
        .Fields!HUBUNGAN = HUBUNGAN.Text
        .Fields!KELAS = KELAS.Text
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NOSURAT.SetFocus
    KET = "TAMBAH"
End Sub

LISTING PROGRAM FORM PASIEN

Code:

Dim DBRSU As Database
Dim TPASIEN As Recordset
Dim TPERUSAHAAN As Recordset
Dim TRUJUKAN As Recordset
Dim KET As String

Private Sub AKHIR_Click()
With TPASIEN
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TPASIEN
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub
Private Sub Form_Activate()
    If TRUJUKAN.RecordCount <> 0 Then
        TRUJUKAN.MoveFirst
        NOSURAT.Clear
        Do Until TRUJUKAN.EOF
            NOSURAT.AddItem (TRUJUKAN.Fields!NOSURAT)
            TRUJUKAN.MoveNext
        Loop
    End If
   
    ATURFRAME (False)
    NOPASIEN.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TPASIEN
    If .RecordCount <> 0 Then
        NOPASIEN.Text = .Fields!NOPASIEN
        NMPASIEN.Text = .Fields!NMPASIEN
        TGMASUK.Value = Format(.Fields!TGMASUK, "DD-MM-YYYY")
        NOSURAT.Text = .Fields!NOSURAT
        TRUJUKAN.Index = "NOSURAT"
        TRUJUKAN.Seek "=", NOSURAT.Text
        If Not TRUJUKAN.NoMatch Then
            KDPERUSAHAAN.Text = TRUJUKAN.Fields!KDPERUSAHAAN
            TPERUSAHAAN.Index = "KDPERUSAHAAN"
            TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
            If Not TPERUSAHAAN.NoMatch Then
                NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
            End If
            KELAS.Text = TRUJUKAN.Fields!KELAS
        End If
    End If
End With
End Sub

Private Sub BERSIH()
    NOPASIEN.Text = ""
    TGMASUK.Value = Format(Date, "DD-MM-YYYY")
    KDPERUSAHAAN.Text = ""
    NMPERUSAHAAN.Text = ""
    NOSURAT.Text = ""
    NMPASIEN.Text = ""
    KELAS.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TPASIEN = DBRSU.OpenRecordset("TPASIEN")
    Set TPERUSAHAAN = DBRSU.OpenRecordset("TPERUSAHAAN")
    Set TRUJUKAN = DBRSU.OpenRecordset("TRUJUKAN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TPASIEN.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub KDPERUSAHAAN_Change()
    TPERUSAHAAN.Index = "KDPERUSAHAAN"
    TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
    If Not TPERUSAHAAN.NoMatch Then
        NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
    End If
End Sub

Private Sub KDPERUSAHAAN_Click()
KDPERUSAHAAN_Change
End Sub

Private Sub NOPASIEN_LostFocus()
With TPASIEN
    If .RecordCount <> 0 Then
        .Index = "NOPASIEN"
        .Seek "=", NOPASIEN.Text
        If Not TPASIEN.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NOPASIEN.Enabled = False
    ATURFRAME (True)
    TGMASUK.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub NOSURAT_Change()
    TRUJUKAN.Index = "NOSURAT"
    TRUJUKAN.Seek "=", NOSURAT.Text
    If Not TRUJUKAN.NoMatch Then
        KDPERUSAHAAN.Text = TRUJUKAN.Fields!KDPERUSAHAAN
        TPERUSAHAAN.Index = "KDPERUSAHAAN"
        TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
        If Not TPERUSAHAAN.NoMatch Then
            NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
        End If
        NMPASIEN.Text = TRUJUKAN.Fields!NMPASIEN
        KELAS.Text = TRUJUKAN.Fields!KELAS
    End If
End Sub

Private Sub NOSURAT_Click()
NOSURAT_Change
End Sub

Private Sub SEBELUM_Click()
With TPASIEN
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TPASIEN
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TPASIEN
    If NOPASIEN.Text = "" Then
        MsgBox ("NOMOR PASIEN HARUS DIISI...")
        NOPASIEN.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!NMPASIEN = NMPASIEN.Text
        .Fields!TGMASUK = Format(TGMASUK.Value, "DD-MM-YYYY")
        .Fields!NOSURAT = NOSURAT.Text
        .Fields!KELAS = KELAS.Text
        .Update
    Else
        .Edit
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!NMPASIEN = NMPASIEN.Text
        .Fields!TGMASUK = Format(TGMASUK.Value, "DD-MM-YYYY")
        .Fields!NOSURAT = NOSURAT.Text
        .Fields!KELAS = KELAS.Text
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NOPASIEN.SetFocus
    KET = "TAMBAH"
End Sub

LISTING PROGRAM FORM BIAYA

Code:

Dim DBRSU As Database
Dim TBIAYA As Recordset
Dim TPASIEN As Recordset
Dim KET As String

Private Sub AKHIR_Click()
With TBIAYA
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TBIAYA
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub
Private Sub Form_Activate()
    If TPASIEN.RecordCount <> 0 Then
        TPASIEN.MoveFirst
        NOPASIEN.Clear
        Do Until TPASIEN.EOF
            NOPASIEN.AddItem (TPASIEN.Fields!NOPASIEN)
            TPASIEN.MoveNext
        Loop
    End If
   
    ATURFRAME (False)
    NOKWITANSI.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TBIAYA
    If .RecordCount <> 0 Then
        NOKWITANSI.Text = .Fields!NOKWITANSI
        TGKWITANSI.Value = Format(.Fields!TGKWITANSI, "DD-MM-YYYY")
        NOPASIEN.Text = .Fields!NOPASIEN
        TPASIEN.Index = "NOPASIEN"
        TPASIEN.Seek "=", NOPASIEN.Text
        If Not TPASIEN.NoMatch Then
            NMPASIEN.Text = TPASIEN.Fields!NMPASIEN
        End If
        KETERANGAN.Text = .Fields!KETERANGAN
        BIAYA.Text = Str(.Fields!BIAYA)
    End If
End With
End Sub

Private Sub BERSIH()
    NOKWITANSI.Text = ""
    TGKWITANSI.Value = Format(Date, "DD-MM-YYYY")
    NOPASIEN.Text = ""
    NMPASIEN.Text = ""
    KETERANGAN.Text = ""
    BIAYA.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TBIAYA = DBRSU.OpenRecordset("TBIAYA")
    Set TPASIEN = DBRSU.OpenRecordset("TPASIEN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TBIAYA.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub NOKWITANSI_LostFocus()
With TBIAYA
    If .RecordCount <> 0 Then
        .Index = "NOKWITANSI"
        .Seek "=", NOKWITANSI.Text
        If Not TBIAYA.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NOKWITANSI.Enabled = False
    ATURFRAME (True)
    TGKWITANSI.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub NOPASIEN_Change()
    TPASIEN.Index = "NOPASIEN"
    TPASIEN.Seek "=", NOPASIEN.Text
    If Not TPASIEN.NoMatch Then
        NMPASIEN.Text = TPASIEN.Fields!NMPASIEN
    End If
End Sub

Private Sub NOPASIEN_Click()
    NOPASIEN_Change
End Sub

Private Sub SEBELUM_Click()
With TBIAYA
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TBIAYA
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TBIAYA
    If NOKWITANSI.Text = "" Then
        MsgBox ("NOMOR PASIEN HARUS DIISI...")
        NOKWITANSI.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NOKWITANSI = NOKWITANSI.Text
        .Fields!TGKWITANSI = Format(TGKWITANSI.Value, "DD-MM-YYYY")
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!KETERANGAN = KETERANGAN.Text
        .Fields!BIAYA = Val(BIAYA.Text)
        .Update
    Else
        .Edit
        .Fields!NOKWITANSI = NOKWITANSI.Text
        .Fields!TGKWITANSI = Format(TGKWITANSI.Value, "DD-MM-YYYY")
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!KETERANGAN = KETERANGAN.Text
        .Fields!BIAYA = Val(BIAYA.Text)
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NOKWITANSI.SetFocus
    KET = "TAMBAH"
End Sub

LISTING PROGRAM FORM KELUAR

Code:

Dim DBRSU As Database
Dim TKELUAR As Recordset
Dim TPASIEN As Recordset
Dim TBIAYA As Recordset
Dim KET As String
Dim TOT As Currency
Dim TGM As Date
Dim TGK As Date

Private Sub AKHIR_Click()
With TKELUAR
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TKELUAR
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub
Private Sub Form_Activate()
    If TPASIEN.RecordCount <> 0 Then
        TPASIEN.MoveFirst
        NOPASIEN.Clear
        Do Until TPASIEN.EOF
            NOPASIEN.AddItem (TPASIEN.Fields!NOPASIEN)
            TPASIEN.MoveNext
        Loop
    End If
   
    ATURFRAME (False)
    NONOTA.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TKELUAR
    If .RecordCount <> 0 Then
        NONOTA.Text = .Fields!NONOTA
        TGNOTA.Value = Format(.Fields!TGNOTA, "DD-MM-YYYY")
        NOPASIEN.Text = .Fields!NOPASIEN
        TPASIEN.Index = "NOPASIEN"
        TPASIEN.Seek "=", NOPASIEN.Text
        If Not TPASIEN.NoMatch Then
            NMPASIEN.Text = TPASIEN.Fields!NMPASIEN
            TGMASUK.Value = Format(TPASIEN.Fields!TGMASUK)
        End If
        TOTBIAYA.Text = Str(.Fields!TOTBIAYA)
    End If
End With
End Sub

Private Sub BERSIH()
    NONOTA.Text = ""
    TGNOTA.Value = Format(Date, "DD-MM-YYYY")
    NOPASIEN.Text = ""
    NMPASIEN.Text = ""
    TOTBIAYA.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TKELUAR = DBRSU.OpenRecordset("TKELUAR")
    Set TPASIEN = DBRSU.OpenRecordset("TPASIEN")
    Set TBIAYA = DBRSU.OpenRecordset("TBIAYA")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TKELUAR.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub NONOTA_LostFocus()
With TKELUAR
    If .RecordCount <> 0 Then
        .Index = "NONOTA"
        .Seek "=", NONOTA.Text
        If Not TKELUAR.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NONOTA.Enabled = False
    ATURFRAME (True)
    TGNOTA.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub NOPASIEN_Change()
    TPASIEN.Index = "NOPASIEN"
    TPASIEN.Seek "=", NOPASIEN.Text
    If Not TPASIEN.NoMatch Then
        NMPASIEN.Text = TPASIEN.Fields!NMPASIEN
        TGMASUK.Value = Format(TPASIEN.Fields!TGMASUK)
    End If
    TOT = 0
    TBIAYA.MoveFirst
    Do Until TBIAYA.EOF
        If NOPASIEN.Text = TBIAYA.Fields!NOPASIEN Then
            TOT = TOT + TBIAYA.Fields!BIAYA
        End If
        TBIAYA.MoveNext
    Loop
    TGM = Format(TGMASUK.Value, "DD-MM-YYYY")
    TGK = Format(TGNOTA.Value, "DD-MM-YYYY")
    LMNGINAP.Text = Str(TGK - TGM)
    TOTBIAYA.Text = Str(TOT)
End Sub

Private Sub NOPASIEN_Click()
    NOPASIEN_Change
End Sub

Private Sub SEBELUM_Click()
With TKELUAR
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TKELUAR
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TKELUAR
    If NONOTA.Text = "" Then
        MsgBox ("NOMOR PASIEN HARUS DIISI...")
        NONOTA.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NONOTA = NONOTA.Text
        .Fields!TGNOTA = Format(TGNOTA.Value, "DD-MM-YYYY")
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!TOTBIAYA = Val(TOTBIAYA.Text)
        .Update
    Else
        .Edit
        .Fields!NONOTA = NONOTA.Text
        .Fields!TGNOTA = Format(TGNOTA.Value, "DD-MM-YYYY")
        .Fields!NOPASIEN = NOPASIEN.Text
        .Fields!TOTBIAYA = Val(TOTBIAYA.Text)
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NONOTA.SetFocus
    KET = "TAMBAH"
End Sub

Private Sub TGNOTA_Change()
    TGM = Format(TGMASUK.Value, "DD-MM-YYYY")
    TGK = Format(TGNOTA.Value, "DD-MM-YYYY")
    LMNGINAP.Text = Str(TGK - TGM)
End Sub

Private Sub TGNOTA_Click()
    TGNOTA_Change
End Sub

LISTING PROGRAM FORM TAGIHAN

Code:

Dim DBRSU As Database
Dim TPASIEN As Recordset
Dim TRUJUKAN As Recordset
Dim TTAGIHAN As Recordset
Dim TPERUSAHAAN As Recordset
Dim TBIAYA As Recordset
Dim TKELUAR As Recordset
Dim KET As String
Dim NOPASIEN As String
Dim NOSURAT As String
Dim TOTAL As Currency

Private Sub AKHIR_Click()
With TTAGIHAN
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TTAGIHAN
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub

Private Sub BLTAGIHAN_Change()
KDPERUSAHAAN_Change
End Sub

Private Sub Form_Activate()
    If TPERUSAHAAN.RecordCount <> 0 Then
        TPERUSAHAAN.MoveFirst
        KDPERUSAHAAN.Clear
        Do Until TPERUSAHAAN.EOF
            KDPERUSAHAAN.AddItem (TPERUSAHAAN.Fields!KDPERUSAHAAN)
            TPERUSAHAAN.MoveNext
        Loop
    End If
    ATURFRAME (False)
    NOTAGIHAN.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TTAGIHAN
    If .RecordCount <> 0 Then
        NOTAGIHAN.Text = .Fields!NOTAGIHAN
        TGTAGIHAN.Value = Format(.Fields!TGTAGIHAN, "DD-MM-YYYY")
        KDPERUSAHAAN.Text = .Fields!KDPERUSAHAAN
        TPERUSAHAAN.Index = "KDPERUSAHAAN"
        TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
        If Not TPERUSAHAAN.NoMatch Then
            NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
        End If
        THTAGIHAN.Text = .Fields!THTAGIHAN
        BLTAGIHAN.Text = .Fields!BLTAGIHAN
        JLTAGIHAN.Text = Str(.Fields!JLTAGIHAN)
    End If
End With
End Sub

Private Sub BERSIH()
    NOTAGIHAN.Text = ""
    TGTAGIHAN.Value = Format(Date, "DD-MM-YYYY")
    KDPERUSAHAAN.Text = ""
    NMPERUSAHAAN.Text = ""
    THTAGIHAN.Text = ""
    BLTAGIHAN.Text = ""
    JLTAGIHAN.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TPASIEN = DBRSU.OpenRecordset("TPASIEN")
    Set TTAGIHAN = DBRSU.OpenRecordset("TTAGIHAN")
    Set TPERUSAHAAN = DBRSU.OpenRecordset("TPERUSAHAAN")
    Set TBIAYA = DBRSU.OpenRecordset("TBIAYA")
    Set TKELUAR = DBRSU.OpenRecordset("TKELUAR")
    Set TRUJUKAN = DBRSU.OpenRecordset("TRUJUKAN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TTAGIHAN.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub KDPERUSAHAAN_Change()
    TPERUSAHAAN.Index = "KDPERUSAHAAN"
    TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
    If Not TPERUSAHAAN.NoMatch Then
        NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
    End If
    TOTAL = 0
    TRUJUKAN.MoveFirst
    Do Until TRUJUKAN.EOF
        If KDPERUSAHAAN.Text = TRUJUKAN.Fields!KDPERUSAHAAN Then
            NOSURAT = TRUJUKAN.Fields!NOSURAT
            TPASIEN.MoveFirst
            Do Until TPASIEN.EOF
                If NOSURAT = TPASIEN.Fields!NOSURAT Then
                    NOPASIEN = TPASIEN.Fields!NOPASIEN
                    TKELUAR.MoveFirst
                    Do Until TKELUAR.EOF
                        If (NOPASIEN = TKELUAR.Fields!NOPASIEN) And (Val(BLTAGIHAN.Text) = Month(TKELUAR.Fields!TGNOTA.Value)) And (Val(THTAGIHAN.Text) = Year(TKELUAR.Fields!TGNOTA)) Then
                            TOTAL = TOTAL + TKELUAR.Fields!TOTBIAYA
                        End If
                        TKELUAR.MoveNext
                    Loop
                End If
                TPASIEN.MoveNext
            Loop
        End If
        TRUJUKAN.MoveNext
    Loop
    JLTAGIHAN.Text = Str(TOTAL)
End Sub

Private Sub KDPERUSAHAAN_Click()
KDPERUSAHAAN_Change
End Sub

Private Sub NOTAGIHAN_LostFocus()
With TTAGIHAN
    If .RecordCount <> 0 Then
        .Index = "NOTAGIHAN"
        .Seek "=", NOTAGIHAN.Text
        If Not TTAGIHAN.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NOTAGIHAN.Enabled = False
    ATURFRAME (True)
    TGTAGIHAN.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub SEBELUM_Click()
With TTAGIHAN
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TTAGIHAN
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TTAGIHAN
    If NOTAGIHAN.Text = "" Then
        MsgBox ("NOMOR SURAT HARUS DIISI...")
        NOTAGIHAN.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NOTAGIHAN = NOTAGIHAN.Text
        .Fields!TGTAGIHAN = Format(TGTAGIHAN.Value, "DD-MM-YYYY")
        .Fields!KDPERUSAHAAN = KDPERUSAHAAN.Text
        .Fields!THTAGIHAN = THTAGIHAN.Text
        .Fields!BLTAGIHAN = BLTAGIHAN.Text
        .Fields!JLTAGIHAN = Val(JLTAGIHAN.Text)
        .Update
    Else
        .Edit
        .Fields!NOTAGIHAN = NOTAGIHAN.Text
        .Fields!TGTAGIHAN = Format(TGTAGIHAN.Value, "DD-MM-YYYY")
        .Fields!KDPERUSAHAAN = KDPERUSAHAAN.Text
        .Fields!THTAGIHAN = THTAGIHAN.Text
        .Fields!BLTAGIHAN = BLTAGIHAN.Text
        .Fields!JLTAGIHAN = Val(JLTAGIHAN.Text)
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NOTAGIHAN.SetFocus
    KET = "TAMBAH"
End Sub

Private Sub THTAGIHAN_Change()
KDPERUSAHAAN_Change
End Sub

LISTING PROGRAM FORM BAYAR

Code:

Dim DBRSU As Database
Dim TBAYAR As Recordset
Dim TTAGIHAN As Recordset
Dim TPERUSAHAAN As Recordset
Dim KET As String

Private Sub AKHIR_Click()
With TBAYAR
    If .RecordCount <> 0 Then
        .MoveLast
        TAMPILDATA
    End If
End With
End Sub

Private Sub AWAL_Click()
With TBAYAR
    If .RecordCount <> 0 Then
        .MoveFirst
        TAMPILDATA
    End If
End With
End Sub

Private Sub BATAL_Click()
    Form_Activate
End Sub
Private Sub ATURFRAME(KONDISI As Boolean)
    FRAMEDATA.Enabled = KONDISI
    FRAMENAVIGASI.Enabled = Not KONDISI
    FRAMETOMBOL.Enabled = Not KONDISI
    FRAMESIMPAN.Enabled = KONDISI
End Sub

Private Sub Form_Activate()
    If TTAGIHAN.RecordCount <> 0 Then
        TTAGIHAN.MoveFirst
        NOTAGIHAN.Clear
        Do Until TTAGIHAN.EOF
            NOTAGIHAN.AddItem (TTAGIHAN.Fields!NOTAGIHAN)
            TTAGIHAN.MoveNext
        Loop
    End If
    ATURFRAME (False)
    NOKWITANSI.Enabled = True
    BERSIH
    AWAL_Click
End Sub

Private Sub TAMPILDATA()
With TBAYAR
    If .RecordCount <> 0 Then
        NOKWITANSI.Text = .Fields!NOKWITANSI
        TGBAYAR.Value = Format(.Fields!TGBAYAR, "DD-MM-YYYY")
        NOTAGIHAN.Text = .Fields!NOTAGIHAN
        TTAGIHAN.Index = "NOTAGIHAN"
        TTAGIHAN.Seek "=", NOTAGIHAN.Text
        If Not TTAGIHAN.NoMatch Then
            KDPERUSAHAAN.Text = TTAGIHAN.Fields!KDPERUSAHAAN
            TPERUSAHAAN.Index = "KDPERUSAHAAN"
            TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
            If Not TPERUSAHAAN.NoMatch Then
                NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
            End If
        End If
        JLBAYAR.Text = Str(.Fields!JLBAYAR)
    End If
End With
End Sub

Private Sub BERSIH()
    NOKWITANSI.Text = ""
    TGBAYAR.Value = Format(Date, "DD-MM-YYYY")
    NOTAGIHAN.Text = ""
    KDPERUSAHAAN.Text = ""
    NMPERUSAHAAN.Text = ""
    JLBAYAR.Text = ""
End Sub

Private Sub Form_Load()
    Set DBRSU = OpenDatabase(App.Path & "\DBRSU.MDB")
    Set TBAYAR = DBRSU.OpenRecordset("TBAYAR")
    Set TTAGIHAN = DBRSU.OpenRecordset("TTAGIHAN")
    Set TPERUSAHAAN = DBRSU.OpenRecordset("TPERUSAHAAN")
End Sub

Private Sub HAPUS_Click()
    PESAN = MsgBox("YAKIN DIHAPUS...", vbYesNo + vbExclamation, "HATI-HATI")
    If PESAN = vbYes Then
        TBAYAR.Delete
        BERSIH
        Form_Activate
    End If
End Sub

Private Sub NOKWITANSI_LostFocus()
With TBAYAR
    If .RecordCount <> 0 Then
        .Index = "NOKWITANSI"
        .Seek "=", NOKWITANSI.Text
        If Not TBAYAR.NoMatch Then
            TAMPILDATA
            MsgBox "DATA TELAH ADA..."
            Form_Activate
        End If
    End If
End With
End Sub

Private Sub KELUAR_Click()
    PESAN = MsgBox("YAKIN KELUAR...", vbYesNo + vbInformation, "PERHATIAN")
    If PESAN = vbYes Then
        Unload Me
    End If
End Sub

Private Sub KOREKSI_Click()
    NOKWITANSI.Enabled = False
    ATURFRAME (True)
    TGBAYAR.SetFocus
    KET = "KOREKSI"
End Sub

Private Sub NOTAGIHAN_Change()
    TTAGIHAN.Index = "NOTAGIHAN"
    TTAGIHAN.Seek "=", NOTAGIHAN.Text
    If Not TTAGIHAN.NoMatch Then
        KDPERUSAHAAN.Text = TTAGIHAN.Fields!KDPERUSAHAAN
        TPERUSAHAAN.Index = "KDPERUSAHAAN"
        TPERUSAHAAN.Seek "=", KDPERUSAHAAN.Text
        If Not TPERUSAHAAN.NoMatch Then
            NMPERUSAHAAN.Text = TPERUSAHAAN.Fields!NMPERUSAHAAN
        End If
        JLBAYAR.Text = Str(TTAGIHAN.Fields!JLTAGIHAN)
    End If
End Sub

Private Sub NOTAGIHAN_Click()
NOTAGIHAN_Change
End Sub

Private Sub SEBELUM_Click()
With TBAYAR
    If .RecordCount <> 0 Then
        .MovePrevious
        If .BOF Then
            .MoveLast
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SETELAH_Click()
With TBAYAR
    If .RecordCount <> 0 Then
        .MoveNext
        If .EOF Then
            .MoveFirst
        End If
        TAMPILDATA
    End If
End With
End Sub

Private Sub SIMPAN_Click()
With TBAYAR
    If NOKWITANSI.Text = "" Then
        MsgBox ("NOMOR SURAT HARUS DIISI...")
        NOKWITANSI.SetFocus
        Exit Sub
    End If
    If KET = "TAMBAH" Then
        .AddNew
        .Fields!NOKWITANSI = NOKWITANSI.Text
        .Fields!TGBAYAR = Format(TGBAYAR.Value, "DD-MM-YYYY")
        .Fields!NOTAGIHAN = NOTAGIHAN.Text
        .Fields!JLBAYAR = Val(JLBAYAR.Text)
        .Update
    Else
        .Edit
        .Fields!NOKWITANSI = NOKWITANSI.Text
        .Fields!TGBAYAR = Format(TGBAYAR.Value, "DD-MM-YYYY")
        .Fields!NOTAGIHAN = NOTAGIHAN.Text
        .Fields!JLBAYAR = Val(JLBAYAR.Text)
        .Update
    End If
    Form_Activate
End With
End Sub

Private Sub TAMBAH_Click()
    ATURFRAME (True)
    BERSIH
    NOKWITANSI.SetFocus
    KET = "TAMBAH"
End Sub

LISTING PROGRAM FORM LAPORAN RUJUKAN

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TRUJUKAN.TGRUJUKAN})=" & Val(Left(TGL.Text, 2)) & " and month ({TRUJUKAN.TGRUJUKAN})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TRUJUKAN.TGRUJUKAN})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RRUJUKAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TRUJUKAN.TGRUJUKAN})= " & Val(BLN.Text) & " and year({TRUJUKAN.TGRUJUKAN})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RRUJUKAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TRUJUKAN.TGRUJUKAN}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RRUJUKAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub


Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub



Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

LISTING PROGRAM FORM LAPORAN PASIEN

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TPASIEN.TGMASUK})=" & Val(Left(TGL.Text, 2)) & " and month ({TPASIEN.TGMASUK})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TPASIEN.TGMASUK})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RPASIEN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TPASIEN.TGMASUK})= " & Val(BLN.Text) & " and year({TPASIEN.TGMASUK})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RPASIEN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TPASIEN.TGMASUK}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RPASIEN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub


Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub



Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

LISTING PROGRAM FORM LAPORAN BIAYA

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TBIAYA.TGKWITANSI})=" & Val(Left(TGL.Text, 2)) & " and month ({TBIAYA.TGKWITANSI})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TBIAYA.TGKWITANSI})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RBIAYA.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TBIAYA.TGKWITANSI})= " & Val(BLN.Text) & " and year({TBIAYA.TGKWITANSI})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RBIAYA.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TBIAYA.TGKWITANSI}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RBIAYA.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub

Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

LISTING PROGRAM FORM LAPORAN KELUAR

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TKELUAR.TGNOTA})=" & Val(Left(TGL.Text, 2)) & " and month ({TKELUAR.TGNOTA})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TKELUAR.TGNOTA})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RKELUAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TKELUAR.TGNOTA})= " & Val(BLN.Text) & " and year({TKELUAR.TGNOTA})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RKELUAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TKELUAR.TGNOTA}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RKELUAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub

Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

LISTING PROGRAM FORM LAPORAN TAGIHAN

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TTAGIHAN.TGTAGIHAN})=" & Val(Left(TGL.Text, 2)) & " and month ({TTAGIHAN.TGTAGIHAN})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TTAGIHAN.TGTAGIHAN})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RTAGIHAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TTAGIHAN.TGTAGIHAN})= " & Val(BLN.Text) & " and year({TTAGIHAN.TGTAGIHAN})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RTAGIHAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TTAGIHAN.TGTAGIHAN}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RTAGIHAN.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub

Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

LISTING PROGRAM FORM LAPORAN BAYAR

Code:

Public cari As String

Private Sub bln_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
THN.SetFocus
End If
End Sub

Private Sub BULANAN_Click()
TGL.Enabled = False
BLN.Enabled = True
THN.Enabled = True
BLN.SetFocus
TGL.Text = ""
End Sub

Private Sub HARIAN_Click()
TGL.Enabled = True
BLN.Enabled = False
THN.Enabled = False
TGL.SetFocus
BLN.Text = ""
THN.Text = ""
End Sub

Private Sub KELUAR_Click()
X = MsgBox("YAKIN KELUAR", vbCritical + vbOKCancel, "WARNING")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub PROSES_Click()
If HARIAN.Value = True Then
    cari = "DAY({TBAYAR.TGBAYAR})=" & Val(Left(TGL.Text, 2)) & " and month ({TBAYAR.TGBAYAR})=" & Val(Mid(TGL.Text, 4, 2)) & "and Year({TBAYAR.TGBAYAR})=" & Val(Right(TGL.Text, 4))
    crp.ReportFileName = App.Path & "\RBAYAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If BULANAN.Value = True Then
    cari = "month({TBAYAR.TGBAYAR})= " & Val(BLN.Text) & " and year({TBAYAR.TGBAYAR})=" & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RBAYAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
Else
If TAHUNAN.Value = True Then
    cari = "Year({TBAYAR.TGBAYAR}) = " & Val(THN.Text)
    crp.ReportFileName = App.Path & "\RBAYAR.rpt"
    crp.Destination = crptToWindow
    crp.WindowState = crptMaximized
    crp.DiscardSavedData = True
    crp.RetrieveDataFiles
    crp.SelectionFormula = cari
    crp.Action = 1
End If
End If
End If
End Sub

Private Sub TAHUNAN_Click()
TGL.Enabled = False
BLN.Enabled = False
THN.Enabled = True
THN.SetFocus
TGL.Text = ""
BLN.Text = ""
End Sub

Private Sub tgl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

Private Sub thn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
PROSES.SetFocus
End If
End Sub

Download Project Di Sini :

http://www.savefile.com/files/1387480

Mudah – mudahan bisa di manfaat..in

GenTra

Blog Archive

Another Templates

Mengenai Saya

Arsip Blog

Pengikut