SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR

SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

Diajukan untuk melengkapi tugas dan memenuhi syarat mencapai gelar Ahli Madya

KHOIRIYANI 052406105

DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2008

Khoiriyani : Sistem Informasi Data Pasien Pada Rumah Sakit Sari Mutiara Medan Dengan Menggunakan Visual..., 2008 USU Repository © 2008

PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 : TUGAS AKHIR : KHOIRIYANI : 052406105 : DIPLOMA (D3) ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, Juni 2008

Diketahui/Disetujui oleh Departemen Matematika FMIPA USU Ketua,

Pembimbing,

Dr. Saib Suwilo, M.Sc. NIP 131796149

Dra. Normalina Napitupulu, M.Sc. NIP 131831527

PERNYATAAN

SISTEM INFORMASI DATA PESIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

Saya mengakui bahwa tugas akhir ini adalah hasil kerja saya sendiri, kecuali beberapa kutipan dan ringkasan yang masing-masing disebut sumbernya.

Medan, Juni 2008

KHOIRIYANI 052406105

PENGHARGAAN

Puji dan syukur saya ucapkan kepada Allah SWT yang telah memberikan rahmat dan hidayah-Nya serta kesempatan dan kesehatan hingga akhirnya saya dapat menyelesaikan tugas akhir ini dan diselesaikan tepat pada waktunya sesuai dengan instruksi dan peraturan yang berlaku di Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara. Tugas akhir ini disusun sebagai salah satu syarat untuk menyelesaikan pendidikan Diploma III Ilmu Komputer Fakultas Matematika dan Ilmu Pengetahuan Alam, Universitas Sumatera Utara. Selama penulisan tugas akhir ini, penulis menyadari bahwa banyak terdapat kesalahan-kesalahan yang mungkin terjadi, baik dari segi teknik, tata penyajian ataupun dari segi tata bahasa. Oleh karena itu penulis bersedia menerima kritik dan saran dari pembaca dalam upaya perbaikan tugas akhir ini. Dalam kesempatan ini penulis ingin menyampaikan ucapan terima kasih kepada Ibu Dra. Normalina Napitupulu, M.Sc, selaku pembimbing pada penyusunan tugas akhir ini yang telah banyak memberikan bimbingan dan pengarahan kepada penulis selama menyusun tugas akhir ini. Ucapan terima kasih juga saya tujukan kepada Ketua dan Sekretaris Departemen Dr. Saib Suwilo, M.Sc. dan Drs. Henri Rani Sitepu, M.Si, Dekan dan Pembantu Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, semua dosen pada Departemen Matematika Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, pegawai di FMIPA USU, dan rekan-rekan kuliah khususnya Supiani, Nur Asiah, Santi Nasution, dan Sri Suli Yanti dan juga anak kos Pembangunan no. 12. Akhirnya, tidak terlupakan kepada ayahanda, ibunda dan semua ahli keluarga yang selama ini banyak memberikan dukungan baik secara moril maupun materil sehingga penulis dapat menyelesaikan tugas akhir ini. Semoga Allah SWT akan membalasnya.

ABSTRAK

Kajian ini bertujuan untuk memberikan suatu aplikasi sistem yang dapat digunakan dengan mudah dalam melakukan pekerjaan dan untuk mendukung dalam pengambilan keputusan. Aplikasi ini dirancang sesuai dengan kebutuhan informasi yang semakin maju seiring dengan perkembangan teknologi komputer sangat cepat, baik dari segi perangkat keras dan perangkat lunak. Sistem ini dirancang dengan menggunakan perangkat lunak Microsoft Visual Basic 6.0, Microsoft Access 2000 dan Crystal Report 7.0. Dengan demikian, perancangan suatu sistem informasi memerlukan data dan informasi yang akurat agar sistem informasi yang dirancang dapat memenuhi kebutuhan sesuai yang diinginkan. Untuk itu penulis akan membahas Sistem Informasi Data Pasien pada Rumah Sakit Sari Mutiara Medan. Sistem ini meliputi modul-modul masukan data yang berkaitan dengan data pasien dan dokter. Selain itu juga meliputi modul-modul keluaran data yang berkaitan dengan data masukkan tersebut. Tujuan dari sistem informasi ini adalah untuk mempermudah pengolahan data pasien dan meningkatkan efektivitas dan efisiensi kerja.

DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar Daftar Istilah Bab 1 Pendahuluan 1.1 Latar Belakang 1.2 Identifikasi Masalah 1.3 Batasan Masalah 1.4 Maksud dan Tujuan 1.5 Metode Penelitian 1.6 Sistematika Penulisan

ii iii iv v vi viii ix x 1 1 3 3 4 5 6

Bab 2 Landasan Teori 2.1 Pengertian Komputer 2.2 Pengertian Data, Database, Sistem dan Informasi 2.2.1 Data 2.2.2 Database 2.2.3 Sistem Informasi 2.2.3.1 Sistem 2.2.3.2 Informasi 2.3 Visual Basic 6.0 2.3.1 Mengenal Visual Basic 6.0 2.3.2 Komponen Utama Visual Basic 6.0 2.3.3 Kemampuan dan Manfaat Visual Basic 6.0 2.3.4 Keunggulan Visual Basic 6.0

8 8 9 9 10 11 11 11 12 12 13 18 18

Bab 3 Ruang Lingkup Instansi 3.1 Sejarah Singkat Tentang RSU Sari Mutiara Medan

19 19

Bab 4 Perancangan Sistem 4.1 Perancangan Struktur Database 4.1.1 Struktur Tabel Dokter 4.1.2 Struktur Tabel Kamar 4.1.3 Struktur Tabel Pasien 4.1.4 Struktur Tabel Transaksi

23 23 24 24 25 25

4.2 Algoritma Program 4.2.1 Algoritma Input Data Pasien 4.2.2 Algoritma Edit Data Pasien 4.2.3 Algoritma Cari dan Hapus Data Pasien

26 26 27 28

Bab 5 Implementasi Sistem 5.1 Defenisi Implementasi Sistem 5.2 Komponen Utama dalam Implementasi Sistem 5.3 Tujuan Implementasi 5.4 Pengujian Sistem 5.5 Pemeliharaan Sistem

29 29 29 30 31 32

Bab 6 Kesimpulan dan Saran 6.1 Kesimpulan 6.2 Saran

34 34 34

Daftar Pustaka Lampiran

DAFTAR TABEL

Halaman Tabel 2.1 Tabel 4.1 Tabel 4.2 Tabel 4.3 Tabel 4.4

Kontrol-kontrol pada Toolbox Struktur Tabel Dokter Struktur Tabel Kamar Struktur Tabel Pasien Struktur Tabel Transaksi

15 24 24 25 25

DAFTAR GAMBAR

Halaman Gambar 2.1 Gambar 2.2 Gambar 2.3 Gambar 2.4 Gambar 2.5 Gambar 2.6 Gambar 2.7 Gambar 2.8

Barisan Menu Menu Toolbar Jendela Form Menu Toolbox Jendela Code Jendela Project Jendela Properties Form Layout Windows

13 13 14 14 16 16 17 17

DAFTAR ISTILAH

Analisa

Brainware Data Data store Database File Hardware Implementasi Informasi Input Komputer

Output

Sistem Software

: mempelajari masalah dan lingkungan masalah yang diperbaiki serta mengajukan alternatif dari penyelesaian masalah. : perangkat operator. : kenyataan yang digambarkan oleh nilai – nilai, bilanganbilangan dan simbol-simbol yang mempunyai arti tertentu. : data tersimpan. : kumpulan file yang saling berhubungan satu dengan yang lainnya. : kumpulan dari record yang saling terkait dan memiliki format field yang sama dan sejenis. : perangkat keras. : menulis, menguji dan mendebug program-program komputer serta mengonversi ke sistem baru atau sistem yang dipakai. : data yang sudah diolah untuk tujuan tertentu dalam pengambilan keputusan. : komponen penggerak atau pemberi tenaga di mana sistem itu dioperasikan. : suatu rangkaian peralatan elektronik yang menerima data dan menggolongkannya secara otomatis untuk mengatasi berbagai masalah serta menghasilkan informasi. : hasil operasi dari suatu sistem atau informasi yang dihasilkan oleh program aplikasi yang akan digunakan oleh para pemakai sebagai bahan pengambilan keputusan. : satu kesatuan yang terdiri dari sub-sub sistem yang saling berhubungan untuk mencapai suatu tujuan. : Perangkat lunak.

BAB 1

PENDAHULUAN

1.1 Latar Belakang

Perkembangan zaman era globalisasi sekarang ini sistem informasi dengan menggunakan teknologi komputer yang sangat canggih dan modern akan memudahkan kita untuk melakukan pengolahan data yang dapat menghemat waktu, ruang dan biaya. Dan hasil suatu informasi yang diperoleh akan sangat memuaskan, berguna dan bermanfaat dari suatu lembaga atau instansi yang menggunakannya. Pengolahan data dan informasi secara cepat, tepat dan efisien adalah hal penting yang dibutuhkan bagi lembaga atau instansi, yaitu salah satunya adalah lembaga instansi rumah sakit.

Seiring dengan perkembangan teknologi begitu pesat, kebutuhan akan informasi pun sangat dibutuhkan terlebih lagi informasi yang dihasilkan mengandung nilai yang benar, akurat, cepat dan tepat, sehingga siapapun dan apapun yang menggunakan informasi tersebut dapat menangani berbagai masalah yang terjadi dengan cepat.

Didalam lembaga instansi rumah sakit salah satu kegiatan sistem informasi yang dapat dimudahkan yaitu sistem pengolahan data pasien dan kamar rawat inap pasien. Dengan sistem informasi teknologi tersebut, maka dibutuhkan perancangan suatu sistem untuk mengolah data-data pasien dan kamar rawat inap pasien selama pasien masih dirawat di rumah sakit tersebut sehingga menjadi suatu informasi yang lengkap dan terperinci.

Dengan dukungan sistem komputerisasi, cara kerja suatu sistem yang sebelumnya manual dapat mengubah cara kerja yang lebih efisien, tepat guna dan berdaya guna serta terjamin mutu dan kualitas prosedur kerjanya. Dengan perkembangan sarana teknologi modern yang lebih baik, akan tercipta suatu lingkungan sistem kerja yang lebih produktif.

Perancangan sistem informasi tersebut dapat dilakukan dengan menggunakan beberapa bahasa pemograman diantaranya Microsoft Visual Basic, Visual Database 6.0, maupun Clipper. Pada masa sekarang ini pemograman yang berbasis Visual Basic atau grafis lebih banyak diminati dan disukai oleh berbagai lembaga atau instansi. Karena pengembangan dan pengolahannya sangat mudah untuk dilakukan serta tampilannya juga sangat menarik.

Pada Tugas Akhir ini, penulis menggunakan sistem komputerisasi untuk sistem informasi data pasien dan kamar rawat inap pasien yang menggunakan komputer. Dari uarian diatas penulis merasa tertarik untuk menulis Tugas Akhir ini dengan mengangkat sebuah judul yaitu : “Sistem Informasi Data Pasien Pada Rumah Sakit Sari Mutiara Medan “.

1.2 Identifikasi Masalah

Pada umumnya setiap instansi Rumah Sakit tidak akan terlepas dari masalah dalam aktivitasnya untuk mencapai tujuan yang diinginkan.

Permasalahan yang akan diselesaikan adalah bagaimana merancang suatu sistem informasi yang efisien dan efektif untuk mengolah dan dapat menangani data pasien pada Rumah Sakit Sari Mutiara dengan menggunakan alat bantu komputer, agar pemberian laporan data ini dapat dilakukan dengan cepat, karena penyajian secara manual tidak dapat dijamin ketelitian dan kebenarannya.

1.3 Batasan Masalah

Karena permasalahan keterbatasan waktu penulis dan agar pembahasan tidak menyimpang dari tujuan maka dilakukan pembatasan masalah sebagai berikut : 1.

Progaram ini hanya dapat diaplikasikan untuk membantu kelancaran dalam pendataan pasien, kamar rawat pasien dan tanggal masuk pasien di rumah sakit tersebut.

2.

Sistem dirancang dengan menggunakan bahasa pemograman Visual Basic 6.0.

3.

Sistem yang dirancang dengan sedemikian rupa sehingga dapat bekerja secara dinamis, yaitu dapat dipergunakan dari tahun ke tahun.

4.

Yang didata hanya pasien yang dirawat inap.

1.4 Maksud dan Tujuan

Adapun penelitian pada Rumah Sakit Sari Mutiara Medan adalah : 1.

Mengumpulkan data sebagai bahan penunjang untuk menemukan cara yang tepat dalam merancang suatu system yang menangani pengolahan data pasien sesuai dengan kebutuhan dan permasalahan yang ada dengan bantuan sistem aplikasi Microsoft Visual Basic 6.0.

2.

Mencari dan mengetahui masalah serta kelemahan-kelemahan yang dihadapi suatu instansi rumah sakit dalam pengolahan data.

Tujuan dari penelitian ini adalah : 1.

Mencari jalan keluar untuk mengatasi kelemahan-kelemahan dari sistem yang sedang dipakai dengan merancang sistem informasi data pasien di Rumah Sakit Sari Mutiara Medan dengan menggunakan bahasa pemograman Visual Basic 6.0.

2.

Meningkatkan efektivitas dan produktivitas kerja pegawai dalam mengolah data pasien serta penyajian laporan dengan memanfaatkan fasilitas komputer, sehingga dihasilkan informasi yang akurat, cepat, tepat dan berkualitas.

3.

Mempermudah dan memperlancar cara kerja pegawai dalam pengolahan data pasien yang lebih efektif dan efisien, sehingga menghasilkan sistem baru yang lebih baik dari sistem yang sedang berjalan saat ini.

1.5 Metodologi Penelitian

Untuk mewujudkan maksud penelitian ini, metodologi penelitian yang digunakan penulis adalah sebagai berikut : 1.

Penelitian Lapangan ( Field Research ) Metode penelitian ini dilakukan langsung pada objek penelitian, data serta keterangan yang dikumpulkan dilakukan dengan cara : a. Pengamatan ( Observation ) Dalam hal ini penulis melakukan pengamatan untuk mendapatkan data secara umum dengan melihat langsung, mengamati dan mencatat sistem yang sedang berjalan saat ini serta melihat format-format dilakukan selama ini. b. Wawancara (Interview) Dalam hal ini penulis melakukan wawancara untuk melengkapi bahan yang sudah ada selama observasi. Penulis melakukan tanya jawab kepada staf (pegawai rumah sakit) yang berkaitan dengan sistem yang sedang diteliti.

2.

Penelitian Perpustakaan (Library Research) Penelitian

perpustakaan

adalah

penelitian

dengan

sumber-sumber

perpustakaan. Penelitian ini dimaksudkan untuk mendapatkan landasan teori yang memadai dalam penyusunan tugas akhir ini, dalam hal ini data dan keterangan dikumpulkan dari sumber-sumber seperti buku-buku teks, bacaanbacaan,

bahan-bahan

perkuliahan

serta

materi-materi

lainnya

berhubungan masalah yang ditinjau dalam penyusunan tugas akhir ini.

yang

1.6 Sistematika Penulisan

Adapun sistematika yang digunakan dalam Tugas Akhir ini, penulis membuat sistematika penulisan sebagai berikut : BAB 1

: PENDAHULUAN Dalam bab ini penulis menjelaskan latar belakang, identifikasi masalah, dan batasan masalah, maksud dan tujuan, metode penelitian dan sistematika penulisan.

BAB 2

: LANDASAN TEORI Pada bab ini akan menguraikan tentang pengertian komputer, data, database, sistem informasi serta uraian singkat mengenai bahasa pemograman Visual Basic 6.0.

BAB 3

: RUANG LINGKUP INSTANSI Bab ini berisikan tentang sejarah singkat berdirinya Rumah Sakit ini dan sistem pengolahan datanya.

BAB 4

: PERANCANGAN SISTEM Dalam bab ini penulis akan menjelaskan tentang struktur database, tahap-tahap algoritma dan perancangan progam yang meliputi perancangan input dan output yang akan dimuat pada sistem informasi data pasien dengan menggunakan bahasa pemograman Visual Basic 6.0.

BAB 5

: IMPLEMENTASI SISTEM Bab ini berisikan tentang defenisi implementasi sistem, tujuan implementasi

sistem,

komponen

yang

dibutuhkan

dalam

implementasi sistem,pengujian sistem dan pemeliharaan sistem.

BAB 6

: KESIMPULAN DAN SARAN Pada bab ini berisikan kesimpulan dan saran dari hasil pembuatan tugas akhir.

BAB 2

LANDASAN TEORI

2.1 PENGERTIAN KOMPUTER

Istilah komputer mempunyai arti yang luas dan berbeda untuk orang yang berbeda. Istilah komputer (computer) berasal dari bahasa Latin “Computare” yang berarti menghitung (to compute atau reckon). Jadi komputer dapat diartikan sebagai alat hitung atau mesin hitung.

Sehubungan dengan perkembangan zaman maka defenisi komputer tidak hanya sebagai alat hitung tetapi menjadi alat pengolahan data yang bekerja secara elektronik dengan kecepatan dan ketelitian yang sangat tinggi serta mampu mengerjakan berbagai proses data yang tersimpan dalam memori dengan keterlibatan manusia yang minimum.

Pengolahan data merupakan suatu kegiatan pengolahan data atau pengolahan informasi yang terdiri dari peralatan-peralatan (komponen-komponen) baik itu hardware (perangkat keras), software(perangkat lunak), brainware(tenaga pelaksana), prosedur-prosedur, data dan staf pengolahan data.

2.2 PENGERTIAN DATA, DATABASE, SISTEM DAN INFORMASI

2.2.1 Data

Data berasal dari kata “datum”, yang berarti fakta yang mengandung arti pengolahan data dengan menggunakan komputer dikenal dengan nama Pengolahan Data Elektronik (PDE) atau Elektronik Data Processing (EDP). Data merupakan kumpulan kejadian yang diangkat dari suatu kenyataan. Data dapat berupa symbol-symbol, gambar-gambar, kata-kata, angka-angka, huruf-huruf yang menunjukkan suatu ide, objek, kondisi atau situasi. Dan merupakan bahan yang akan diolah menjadi suatu bentuk yang lebih berguna dan bermanfaat.

Proses pengolahan data ada tiga, yaitu: 1.

Pada Tahapan Input. Yaitu dilakukan proses pemasukan data ke dalam proses komputer lewat alat input (input device).

2.

Pada Tahapan Processing. Yaitu dilakukan dengan proses pengolahan data yang sudah dimasukkan, yang dilakukan oleh alat pemroses (proses device)yang dapat berupa proses perhitungan,

perbandingan,

pengendalian

atau

pencarian

di

storage

(penyimpanan). 3.

Pada Tahapan Output. Yang dilakukan proses menghasilkan output dari hasil pengolahan data ke alat output (output device) yaitu berupa informasi.

Jadi data adalah fakta-fakta yang dipergunakan sebagai suatu dasar untuk perhitungan dan pengolahan meliputi serangkaian tindakan-tindakan atau operasi yang mengarah pada suatu akhir.

2.2.2 Database

Database (basis data) adalah suatu pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktivitas untuk memperoleh informasi. Database dimaksudkan untuk mengatasi problem pada sistem yang memakai pendekatan berbasis berkas. Database terdiri dari data yang akan digunakan atau diperuntukan terhadap banyak user, dari masing-masing user akan menggunakan data tersebut sesuai dengan tugas dan fungsinya.

Dalam merancang dan menyusun database mempunyai banyak tujuan diantaranya melindungi data dari kerusakan fisik, menghapus data yang berlebihan, memudahkan user untuk mendapatkan data, menyediakan perkembangan lebih lanjut didalam sistem database.

Pemrosesan dengan database dapat memberi keuntungan sendiri bagi penggunanya salah satunya kemubajiran data dapat terkurangi, penggunaan data lebih mudah, konsistensi data dapat selalu terjaga dan integritas data dapat selalu terjaga.

2.2.3 Sistem Informasi

Sistem informasi adalah suatu himpunan komponen sistematik dan formal yang melakukan operasi pengolahan data untuk : 1.

Meningkatkan pemahaman atau mengurangi ketidakpastian terhadap suatu data atau fakta-fakta yang akan dilaporkan.

2.

Memberikan berbagai laporan seperti yang diinginkan oleh pihak yang membutuhkan informasi tersebut.

3.

Memberikan kepada pihak manajemen untuk menunjang perencanaan, pengawasan, dan pengambilan keputusan.

2.2.3.1 Sistem

Sistem adalah suatu rangkaian kesatuan yang terdiri dari bagian-bagian yang saling terkait dan mempengaruhi, yang diarahkan untuk mencapai tujuan tertentu.

2.2.3.2 Informasi

Informasi merupakan hasil pengolahan data yang lebih berguna dan berarti bagi yang menerimanya untuk mencapai suatu tujuan yang telah disusun sedemikian rupa sehingga bermakna dan bermanfaat karena dapat dikomunikasikan kepada seseorang yang akan menggunakannya untuk membuat keputusan. Informasi bermanfaat jika informasi akurat, lengkap, relevan, tepat waktu dan dapat dipercaya serta efisien.

2.3 VISUAL BASIC 6.0

2.3.1 Mengenal Visual Basic 6.0

Visual Basic 6.0 merupakan sebuah program aplikasi yang bekerja pada sistem operasi windows. Visual Basic dapat membuat program aplikasi menjadi lebih mudah dan cepat dengan menggunakan metode Generel User Interface (GUI).

Salah satu keunggulan yang dimiliki oleh Microsoft Visual Basic 6.0 adalah kemudahan pemakaian. Dengan bahasa yang mudah dan menyenangkan ini, dapat dibuat apapun sesuai kebutuhan. Jika dibandingkan dengan Bahasa C++, Visual Basic masih jauh tertinggal dalam beberapa hal. Namun dengan hadirnya versi terbaru yaitu Visual Basic 6.0 yang mempunyai fasilitas yang berlebih, sehingga bisa mencukupi kebutuhan pemakai.

Susunan program Visual Basic 6.0 sangat mudah dipelajari. Untuk menyusun suatu aplikasi, hanya diperlukan 3 tahap yaitu merancang interface, menentukan property, dan menulis kode.

Sebagai program yang berbasis Windows, Visual Basic 6.0 mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows seperti Microsoft Word, Microsoft Excel, Microsoft Acces, dan sebagainya. Visual Basic 6.0 juga menjadi salah satu bahasa pemograman yang wajib dipelajari oleh berbagai kalangan jika ingin sukses di dunia komputer dan cenderung lebih banyak digunakan.

2.3.2 Komponen Utama Visual Basic 6.0

1. Baris Menu Baris menu terletak paling atas dan terdiri dari 13 menu yaitu File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help

Gambar 2.1 Barisan Menu

2. Menu Toolbar Menu toolbar merupakan kumpulan icon-icon perintah, yang dapat diklik untuk melakukan suatu perintah khusus secara cepat. Menu toolbarnya yaitu Add Project, Add Form, Menu Editor, Open Project, Save Project, Cut, Copy, Paste, Find, Undo, Redo, Start, Break, End, Project Explorer, Properties, Windows, Form Layout Windows, Object Browser dan Toolbox, yang dapat dilihat seperti gambar dibawah ini.

Gambar 2.2 Menu Toolbar

3. Jendela Form Form tempat yang digunakan untuk merancang aplikasi yang sedang dibuat. Pada form ini dapat diletakkan control seperti label, check box dan sebagainya.

Gambar 2.3 Jendela Form

4. Menu Toolbox Toolbox merupakan kumpulan icon-icon objek atau control yang dibutuhkan untuk membentuk suatu program aplikasi.

Gambar 2.4 Menu Toolbox

Tabel 2.1 Kontrol-kontrol pada Toolbox Nama kontrol Label

Kegunaan Digunakan untuk menampilkan tulisan dalam program, pemakai tidak dapat mengubah tulisan tersebut secara langsung.

TextBox

Digunakan sebagai tempat input atau pemakai dapat mengubah tulisan pada saat program berjalan.

Commond Button

Menjalankan suatu tindakan jika pemakai telah melakukan pilihan.

Option Button

Digunakan untuk menampilkan beberapa pilihan, namun pemakai hanya dapat memilih salah satu pilihan saja.

List Box

Digunakan untuk menampilkan daftar pilihan dalam sebuah kotak pilihan.

Frame

Digunakan untuk mengelompokkan sejumlah objek atau control dalam satu tempat.

Combo Box

Merupakan kombinasi antara text Box dengan List Box. Dengan demikian pemilihan item dapat dilakukan dari List Box, atau dengan mengetik langsung pada Text Box.

Picture Box

Digunakan untuk menampilkan gambar.

5. Jendela Code Jendela Code adalah salah satu jendela yang sangat penting didalam Visual Basic. Jendela ini digunakan untuk menuliskan program yang berupa instuksi-instruksi.

Gambar 2.5 Jendela Code

6. Jendela Project Jendela Project adalah jendela yang menampilkan semua file dalam project yang kita buat. Pada jendela project tipe-tipe file, seperti form, modul, class dan sebagainya.

Gambar 2.6 Jendela Project

7. Jendela Properties Jendela Properties berfungsi untuk menampilkan dan mengubah properti-properti yang dimiliki sebuah objek. Terdapat dua pilihan tampilan yaitu Alphabetic dan Categorized.

Gambar2.7 Jendela Properties

8. Form Layout Windows Jendela yang digunakan untuk menggambarkan posisi dari form yang ditampilkan pada layer monitor. Posisi form ini merupakan petunjuk dimana aplikasi ditampilkan dan juga bisa mengatur letak formnya.

Gambar 2.8 Form Layout Windows

2.3.3 Kemampuan dan Manfaat Visual Basic 6.0

Adapun kemampuan dan manfaat Visual Basic 6.0 adalah sebagai berikut : 1. Dapat membuat program-program yang berbasis Windows. 2. Dapat membuat object-object program bantu seperti control ActiveX, File Help dan Aplikasi Internet. 3. Dapat menguji program (debugging) dan menghasilkan program akhir berakhiran EXE yang bersifat executable, atau dapat langsung dijalankan.

2.3.4 Keunggulan Visual Basic 6.0

Adapun keunggulan dari Visual Basic 6.0 adalah sebagai berikut : 1. Memiliki compiler andal yang dapat menghasilkan file executable yang lebih cepat dan efisien. 2. Memiliki sarana andal untuk mengakses database yang berkemampuan tinggi. 3. Tambahan control-kontrol yang lebih canggih dan selalu disesuaikan dengan kebutuhan.

BAB 3

RUANG LINGKUP INSTANSI

3.1 SEJARAH SINGKAT TENTANG RSU. SARI MUTIARA MEDAN

Rumah sakit adalah salah satu unit pelayanan kelas madya plus yang berstatus swasta milik dari yayasan sari mutiara medan. Instansi ini juga menerima bagi siswa yang akan melakukan praktek/pelatihan untuk mendapatkan asuhan keperawatan demi kelangsungan pendidikan yang akan dijalaninya.

Rumah Sakit Sari Mutiara Medan sudah berdiri sejak 31 Maret 1978 yang memiliki luas tanah (Land) 2.414M2 dan luas room dan office 2.043M2.

Adapun profil umum Rumah Sakit sebagai berikut : 1. Nama Rumah Sakit

: RSU. Sari Mutiara

2. Izin rumah sakit

: No. YM.02.04.2.2.1174

3. Kelas rumah sakit

: Kelas C (Plus)

4. Direktur

: Dr. Deli Theo.SpPK (Clinical Pathologist)

5. Jumlah dokter

: Umum 17 Orang Spesialis 37 Orang Dokter gigi 3 Orang

6. Jumlah perawat

: 150 Orang

7. Jumlah bidan

: 30 Orang

8. Jumlah non perawat : 50 Orang 9. Terakreditasi

: 7 November 2000

10. Alamat

: Jl. Kapten muslim No. 79 Medan Helvetia Sumatera Utara

11. Jumlah tempat tidur

: 150 tempat tidur

12. Jaringan kerja sama

: Selanggor Medical Centres SDN BHD

Malaysia 13. No. Telepon / fax

: 061-8451812 / 061-8452134

14. Email

: [email protected] [email protected]

Rumah Sakit menyediakan fasilitas dan pelayanan yang memuaskan bagi pasien diantaranya adalah : 1. Gawat Darurat 2. Ambulans 3. Poli spesialis / super spesialis 4. Rawat inap 5. Medical check up 6. perawatan 7. Perawatan intensive (ICU) 8. Kamar Operasi 9. Kamar bersalin 10. Laboratorium

11. Farmasi 12. Radiologi - CT Scan - Rontgen - USG 13. Hemodialisa

BAB 4

PERANCANGAN SISTEM

Seiring dengan perkembangan teknologi sistem informasi data pasien pada RSU Sari Mutiara Medan erat untuk meningkatkan efisiensi kerja dan waktu, maka sistem yang ada pada saat ini yang bersifat sebagai manual perlu dikomputerisasi, khususnya dalam pengolahan data, yaitu dengan mengaplikasikan paket program komputer. Data yang perlu dilakukan agar dapat bermanfaat harus dikelolah dalam suatu database. Sistem manajemen database merupakan suatu pengorganisasian dan pengolahan data pada komputer.

4.1 Perancangan Struktur Database

Perancangan struktur database adalah untuk menentukan file database yang digunakan field, tipe data dan ukuran data. Untuk software Visual Basic ini dapat membuat database yang sama dengan software lain. Dalam program ini menggunkan 1 (satu) database yang terdiri dari 4 yaitu : 1. Dokter 2. Kamar 3. Pasien 4. Transaksi

Adapun rancangan database yang digunakan dalam pembuatan sistem informasi ini adalah sebagai berikut : 4.1.1 Struktur Tabel Dokter Nama table

: Dokter

Nama index

: XKode

Nama field kunci

: Kode dokter

Field name

Type

Size

Kode dokter

Text

4

Nama

Text

30

Bagian

Text

30

Tabel 4.1 Stuktur Tabel Dokter

4.1.2 Struktur Tabel Kamar Nama table

: Kamar

Nama index

: XKode

Nama field kunci

: Kode kamar

Field nama

Type

Size

Kode kamar

Text

5

Kelas

Text

15

Nama ruangan

Text

25

Kapasitas

Byte

1

Harga

Currency

8

Berisi

Byte

1

Tabel 4.2 Struktur Tabel Kamar

4.1.3 Struktur Tabel Pasien Nama table

: Pasien

Nama index

: XKode

Nama field kunci

: Kode pasien

Field nama

Type

Size

Kode kamar

Text

5

Nama

Text

30

Usia

Byte

1

Jenis kelamin

Text

10

Alamat

Text

50

Penyakit

Text

30

Tabel 4.3 Struktur Tabel Pasien

4.1.4 Struktur Tabel Transaksi Nama table

: Transaksi

Nama index

: XPasien

Nama field kunci 1

: Kode pasien

Nama field kunci 2

: Status

Field nama

Type

Size

Kode pasien

Text

5

Nama_pasien

Text

30

Kode_kamar

Text

5

Harga

Currency

8

Kode dokter

Text

4

Nama dokter

Text

50

Tgl check in

Date

8

Tgl check out

Date

8

Total biaya

Currency

8

Status

Text

4

Tabel 4.4 Struktur Tabel Transaksi

4.2.1 Algoritma Program Input Data Pasien

Program aplikasi ini bertujuan untuk memasukkan data-data pasien kedalam database RS. Sari Mutiara Medan.

Algoritma input data pasien Langkah 1

: Rancang struktur database, tabel, index dan field kunci

Langkah 2

: Rancang tampilan form input data pasien

Langkah 3

: Deklarasikan variabel database dan tabel pada general sekaligus aktifkan database dan data tersebut pada form_load ()

Langkah 4

: Masukkan field kunci “Kode pasien” dengan batasan 5 digit

Langkah 5

: Uji field kunci “Kode pasien” berdasarkan “Xpasien” a. Jika ketemu tampilan pesan “maaf kode pesan sudah ada” kembali kelangkah 4 b. Jika tidak ketemu lanjut kelangkah 6

Langkah 6

: Isikan seluruh data pada field yang lainnya

Langkah 7

: Klik tombol simpan untuk menyimpan datanya atau klik tombol batal untuk membatalkannya

Langkah 8

: Untuk menginput data kembali kelangkah 4, jika tidak ada penginputan data lagi lanjut kelangkah 9

Langkah 9

: Klik tombol keluar dari form input data pasien dan kembali kemenu utama.

4.2.2 Algoritma Program Edit Data Pasien

Program edit data pasien, bertujuan untuk mengedit data-data pasien yang sebelumnya sudah pernah tersimpan di dalam database RS. Sari Mutiara Medan.

Algoritma edit data pasien Langkah 1

: Rancang stuktur database, tabel, index dan field kunci

Langkah 2

: Rancang tampilan form edit data pasien

Langkah 3

: Deklarasikan variebel database dan tabel pada general sekaligus aktifkan database dan tabel tersebut pada form_load ()

Langkah 4

: Masukkan field kunci “Kode pasien” dengan batasan 5 digit

Langkah 5

: Uji field kunci “Kode pasien” berdasarkan Xpasien “index” a. Jika ketemu tampilan pesan “Apakah data akan di edit?” b. Jika tidak ketemu lanjut kelangkah 6

Langkah 6

: Edit datanya berdasarkan data pasien, kemudian edit data-data lain yang akan dilakukan pengeditan

Langkah 7

: Klik tombol simpan untuk menyimpan data yang sudah di edit dan klik tombol batal untuk membatlkannya

Langkah 8

: Untuk mengedit data kembali kelangkah 4, jika tidak ada pengeditan data lagi lanjut kelangkah selanjutnya.

4.2.3 Algoritma Program Cari dan Hapus Data Pasien

Program cari dan hapus data pasien, bertujuan untuk pencarian data-data pasien dan penghapusan data yang sebelumnya sudah tersimpan dalam tabel pasien

Algoritma Cari dan hapus data pasien Langkah 1

: Rancang struktur database, table, index dan field kunci

Langkah 2

: Rancang tampilan form cari dan hapus data

Langkah 3

: Deklarasikan variabel database dan table pada general, sekaligus aktifkan database dan table tersebut pada form_load ()

Langkah 4

: Masukkan

pilihan

pencarian

berdasarkan

field

kunci

“Kode_Pasien” yang terdapat pada tabel pasien Langkah 5

: Tampilan record-record yang menjadi criteria pencarian

Langkah 6

: Lakukan perintah SEEK untuk pencarian a. Jika data ditemukan tampilankan datanya dan lanjutkan kelangkah 7 b. Jika tidak ditemukan kembali kelangkah 4

Langkah 7

: Klik tombol hapus jika data tersebut ingin dihapus dan klik tombol batal untuk membatalkannya.

BAB 5

IMPLEMENTASI SISTEM

5.1 Defenisi Implementasi Sistem

Implementasi sistem adalah prosedur yang dilakukan untuk menyelesaikan desain sistem yang ada dalam dokumen desain yang disetujui dan diuji kemudian diinstal guna dilakukan pemrosesan data dengan sistem yang baru atau sistem yang diperbaiki.

5.2 Komponen Utama Dalam Implementasi Sistem

Untuk mengolah data menggunakan computer haruslah mempunyai tiga komponen utama, yaitu sebagai berikut : 1. Hardware Hardware (Perangkat Keras) merupakan kompponen fisik dalam rangkaian computer, sedangkan spesifikasi hardware yang dibutuhkan adalah sebagai berikut : -

Monitor

-

CPU (Central Procesing Unit)

-

Hardisk

-

Keyboard

-

Printer untuk mencetak hasil

2. Software Software (Perangkat Lunak) merupakan instruksi program yang dapat digunakan dalam computer dan memberikan fungsi serta menampilkan seperti yang diinginkan, software yang diperlukan untuk menjalankan perangkat keras untuk aplikasi pengolahan nilai, yaitu dengan menggunakan Microsoft Visual Basic 6.0.

3. Brainware Brainware merupakan faktor manusia yang menangani fasilitas komputer, yang dibutuhkan adalah : -

Sistem analis, orang sedang membangun fasilitas rancangan sistem.

-

Programer, orang yang mengerti bahasa pemograman dalam membuat dan membangun program.

-

Operator, orang yang menangani langsung dalam pengolahan data mulai dari mempersiapkan data sampai dengan pengertian data ke komputer.

5.3 Tujuan Implementasi

Tujuan Implementasi Sistem adalah sebagai berikut : 1. Menyelesaikan desain sistem yang ada dalam dokumen desain sistem yang disetujui. 2. Menulis, menguji dan mendokumentasikan program-program dan prosedurprosedur yang dilakukan oleh dokumen desain sistem yang disetujui.

3. Memastikan bahwa personil dapat menggunakan sistem baru yaitu dengan mempersiapkan pemakai dan melatih personil. 4. Memperhitungkan bahwa desain sistem memenuhi permintaan pemakai yaitu dengan menguji sistem secara keseluruhan. 5. Memastikan bahwa konversi ke sistem baru berjalan secara benar yaitu dengan merencanakan, mengontrol dan melakukan instansi sistem baru secar benar.

5.4 Pengujian Sistem

Pengujian ini bertujuan untuk memastikan aplikasi yang telah dibuat apakah sesuai dengan keinginan pemakai dan dapat digunakan oleh pemakai dan dioperasikan oleh operator sistem.

Beberapa tingkatan pengujian sebelum mengimplementasikan aplikasi yaitu : 1. Pengujian Bagian. Dalam tingkatan ini biasanya pengujian dilakukan ke setiap modul program untuk memperhitungkan bahwa setiap modul program teresbut memenuhi spesifikasispesifikasinya.

2. Pengujian Integrasi. Menguji setiap kelompok logika modul-modul program untuk memperhitungkan bahwa setiap kelompok tersebut memenuhi spesifikafi fungsi logika.

3. Pengujian Aplikasi Bagian tingkatan ini menguji aplikasi yang telah dibuat untuk memperhitungkan bahwa aplikasi baru tersebut telah memenuhi spesifikasi aslinya.

4. Pengujian Penerimaan. Pengujian ini bertujuan untuk mempertimbangkan bahwa semua komponen dalam sistem baru berada dalam keadaan memuaskan.

5. Pengujian Operasi dan Pengujian Lingkungan Aplikasi yang telah dibuat tersebut dicoba ke lingkungan yang sesungguhnya untuk memperhitungkan bahwa semua peralatan baru dan factor-faktor lain dalam lingkungan, misalnya memasukkan data, dokumen, dan lain-lain, apakah sudah memuaskan.

5.5 Pemeliharaan Sistem

Sebuah kegiatan pengolahan data akan terus berlangsung dengan melibatkan sejumlah fungsi yang terdiri dari pegawai yang terlibat atau tidak, hingga pemanfaatan sistem tersebut secara maksimal sangat diperlukan. Kegiatan pengolahan data juga akan melibatkan penyelenggaraan data yang berkualitas, baik dalam kecepatan pengolahan atau penampilan laporan tersebut sebagai sajian informasi.

Adanya kecendrungan jumlah data yang membesar, baik volume atau jenisnya akan sangat mempengaruhi penanganan yang akan dilakukan oleh para pegawai. Melihat dari hal diatas maka diperlukan pelatihan secara terus-menerus, khususnya

pada pegawai baru, agar nantinya mampu menangani perkembangan data yang semakin besar.

Bertolak dari permasalahan diatas maka juga diperlukan adanya pemeliharaan sistem agar sistem tersebut dapat berjalan semestinya dan penggunaanya yang semaksimal mungkin. Adapun tujuan dari pemeliharaan sistem adalah sebagai berikut : 1. Mencegah modifikasi sistem yang akan menyebabkan masalah-masalah yang lain. 2. Membuat modifikasi sitem yang sesuai dengan kebutuhan organisasi. 3. Menyempurnakan proses penyusunan sistem dan proses pemeliharaan sistem dengan menganalisa informasi tentang modifikasi sistem. 4. Mengganti pemeliharaan sistem dengan survey sistem jika modifikasi yang diminta relative besar. 5. Meminimalkan gangguan control yang disebabkan oleh pemeliharaan sistem.

BAB 6

KESIMPULAN DAN SARAN

6.1 Kesimpulan dan saran

Dari pembahasan mengenai sistam informasi pengolahan data pasien pada Rumah Sakit Sari Mutiara Medan, maka penulis menyimpulkan bahwa : 1.

Dengan adanya perangkat lunak Sistem Informasi Data Pasien ini, maka proses pengolahan data pasien yang akan datang dapat dilakukan dengan cepat, tepat, akurat, mudah dan lebih baik dari masa sekarang.

2.

Pengolahan data pasien yang baik akan memudahkan dalam hal pengambilan keputusan sehingga dapat meningkatkan kinerja rumah sakit nantinya.

3.

Pembuatan program dengan menggunakan Visual Basic lebih mudah dalam hal perancangan maupun untuk hasil akhirnya (output) dan lebih mudah dimengerti oleh pemakai karena Visual Basic merupakan bahasa pemograman berbasiskan Windows.

6.2 Saran

Dalam hal ini, penulis memberikan saran yang kiranya dapat bermanfaat untuk kemajuan Rumah Sakit ini, yaitu : 1.

Untuk meningkatkan efisiensi kinerja rumah sakit disarankan menggunakan jasa komputer dengan memakai sistem informasi yang telah dirancang.

2.

Diharapkan pada masa yang akan datang, instansi mempunyai sistem aplikasi pengolahan data yang lengkap di bagian tata usaha yang berbasis komputer.

3.

Diharapkan adanya pengembangan lebih lanjut dari sistem informasi yang dirancang,

sehingga

menjadi

sistem

informasi

yang

terpadu

untuk

menanggulangi dan mengolah data yang lebig besar di masa yang akan datang. 4.

Diharapkan bahwa program ini dapat bermanfaat bagi para pembaca.

DAFTAR PUSTAKA

Andi, Krisbianto Paulus, Erwin Budi Setiawan. 2005. Sistem Informasi, Bandung : Informatika. Alam, M. Agus J. 1999. Belajar Sendiri Microsoft Visual Basic 6.0. Jakarta : Elex Media Komputindo, Kelompok Gramedia. Anggota IKAPI. Evangelos Petroutsos 2002, Menguasai Pemograman Database dengan Visual Basic 6.0, cetakan 1, Jakarta : PT. Elex Media Komputindo. Hartono, Jogiyanto. 2000. Pengenalan Komputer. Yogyakarta : Andi Kusumo, Ario Suryo. 2000. Buku Latihan Microsoft Visual Basic 6.0. Jakarta : PT. Elex Media Komputindo. Yung, Kok. 2000. Membangun Database dengan Visual Basic 6.0 dan Perintah SQL. Jakarta : PT. Elex Media Komputindo.

LISTING PROGRAM 1. MENU UTAMA Private Sub laptranperkode_Click() On Error GoTo salah Kode = InputBox("Masukkan Kode Yang Akan Di Laporkan !!!", "Rumah Sakit_ Umum Sari Mutiara Medan") If DataEnvironment1.rsCommand7.State = adStateOpen Then DataEnvironment1.rsCommand7.Close End If DataEnvironment1.Command7 (Kode) CetTranPerKode.Show salah: End Sub Private Sub mabuot_Click() AboutProgram.Show 1 End Sub Private Sub mncaripasien_Click() CariPasien.Show End Sub Private Sub mncheckin_Click() CheckIn.Show 1 End Sub Private Sub mncheckout_Click() CheckOut.Show 1 End Sub Private Sub mneditdokter_Click() EditDokter.Show 1 End Sub Private Sub mneditkamar_Click() EditKamar.Show 1 End Sub Private Sub mneditpasien_Click() EditPasien.Show 1 End Sub Private Sub mnexit_Click() End

End Sub Private Sub mninputdokter_Click() InputDokter.Show 1 End Sub Private Sub mninputkamar_Click() InputRuangan.Show 1 End Sub Private Sub mninputpasien_Click() InputPasien.Show 1 End Sub Private Sub mnlapkamber_Click() If DataEnvironment1.rsCommand5.State = adStateOpen Then DataEnvironment1.rsCommand5.Close End If CetKamBerisi.Show 1 End Sub Private Sub mnlapkamkos_Click() If DataEnvironment1.rsCommand4.State = adStateOpen Then DataEnvironment1.rsCommand4.Close End If CetKamKosong.Show 1 End Sub Private Sub mnlappasperkode_Click() On Error GoTo salah Kode = InputBox("Masukkan Kode Yang Akan Di Laporkan !!!", "Rumah Sakit_ Umum Sari Mutiara Medan") If DataEnvironment1.rsCommand2.State = adStateOpen Then DataEnvironment1.rsCommand2.Close End If DataEnvironment1.Command2 (Kode) CetPasPerKode.Show salah: End Sub Private Sub mnlapselkam_Click() If DataEnvironment1.rsCommand3.State = adStateOpen Then DataEnvironment1.rsCommand3.Close End If CetSelKamar.Show 1 End Sub Private Sub mnlapselpas_Click() If DataEnvironment1.rsCommand1.State = adStateOpen Then

DataEnvironment1.rsCommand1.Close End If CetSelPas.Show 1 End Sub Private Sub mnlapseltran_Click() If DataEnvironment1.rsCommand6.State = adStateOpen Then DataEnvironment1.rsCommand6.Close End If CetSelTran.Show 1 End Sub Private Sub Picture1_Click() End Sub

2. INPUT DATA KAMAR Dim Dbrs As Database Dim Rskamar As Recordset Private Sub CBatal_Click() kosong aktif (False) tkode.Enabled = True tkode.SetFocus CSimpan.Enabled = False tkode.SelStart = 0 End Sub Private Sub CKeluar_Click() Unload Me End Sub Private Sub Csimpan_Click() If tkelas.ListIndex = -1 Then MsgBox "Jangan kosongkan kelas kamar !", vbCritical, "Data tidak lengkap" tkelas.SetFocus Exit Sub ElseIf tnama.Text = "" Then MsgBox "Jangan kosongkan nama kamar !", vbCritical, "Data tidak lengkap" tnama.SetFocus Exit Sub ElseIf Val(tkapasitas) = 0 Then MsgBox "Jangan kosongkan kapasitas kamar !", vbCritical, "Data tidak lengkap" tkapasitas.SetFocus Exit Sub

ElseIf Val(tharga) = 0 Then MsgBox "Jangan kosongkan harga kamar !", vbCritical, "Data tidak lengkap" tkelas.SetFocus Exit Sub End If tanya = MsgBox("Simpan data kamar ke database ?", vbExclamation + vbYesNo, "Simpan Data") If tanya = vbYes Then Rskamar.AddNew Rskamar!kode_kamar = tkode.Text Rskamar!nama_ruangan = tnama.Text Rskamar!kelas = tkelas.Text Rskamar!kapasitas = Val(tkapasitas) Rskamar!harga = Val(tharga) Rskamar!berisi = 0 Rskamar.Update Data1.Refresh CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\rs.mdb") Set Rskamar = Dbrs.OpenRecordset("Kamar") kosong aktif (False) CSimpan.Enabled = False End Sub Sub kosong() tkode.Mask = "" tkode.Text = "" tkode.Mask = "?-###" tkelas.ListIndex = -1 tnama.Text = "" tharga.Text = "" tkapasitas.Text = "" End Sub Sub aktif(a As Boolean) tkelas.Enabled = a tnama.Enabled = a tharga.Enabled = a tkapasitas.Enabled = a End Sub Private Sub tharga_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CSimpan.SetFocus

End If End Sub Private Sub tharga_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub tkapasitas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tharga.SetFocus End If End Sub Private Sub tkapasitas_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub tkelas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tnama.SetFocus End If End Sub Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Rskamar.Index = "xkode" Rskamar.Seek "=", tkode.Text If Rskamar.NoMatch Then aktif (True) CSimpan.Enabled = True tkode.Enabled = False tkelas.SetFocus Else tnama.Text = Rskamar!nama_ruangan tkelas.Text = Rskamar!kelas tkapasitas.Text = Rskamar!kapasitas tharga.Text = Rskamar!harga MsgBox "Kode Kamar Sudah Ada, Masukkan Kode Yang Lain !",_ vbInformation, "RSU Sari Mutiara Medan" CBatal_Click End If End If End Sub

Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tkapasitas.SetFocus End If End Sub

3. INPUT DATA PASIEN Dim Dbrs As Database Dim rspasien As Recordset Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set rspasien = Dbrs.OpenRecordset("Pasien") End Sub Private Sub CBatal_Click() kosong aktif (False) CSimpan.Enabled = False tkode.Enabled = True tkode.SetFocus tkode.SelStart = 0 End Sub Private Sub CKeluar_Click() Unload Me End Sub Sub kosong() tkode.Mask = "" tkode.Text = "" tkode.Mask = "?-###" tnama.Text = "" TUsia.Text = "" OpJen(0).Value = True TAlamat.Text = "" TPenyakit.Text = "" End Sub Sub aktif(x As Boolean) tnama.Enabled = x TUsia.Enabled = x TAlamat.Enabled = x TPenyakit.Enabled = x OpJen(0).Enabled = x OpJen(1).Enabled = x End Sub

Private Sub Csimpan_Click() If tnama.Text = "" Then MsgBox "Jangan Kosongkan Nama Pasien...!", vbCritical, "RSU Sari Mutiara Medan" tnama.SetFocus Exit Sub ElseIf Val(TUsia.Text) = 0 Then MsgBox "Usia Pasien Harus Diisi...!", vbCritical, "RSU Sari Mutiara Medan" TUsia.SetFocus Exit Sub ElseIf TAlamat.Text = "" Then MsgBox "Jangan Kosongkan Alamat Pasien...!", vbCritical, "RSU Sari Mutiara_ Medan" TAlamat.SetFocus Exit Sub ElseIf TPenyakit.Text = "" Then MsgBox "Penyakit Pasien Harus Diisi...!", vbCritical, "RSU Sari Mutiara Medan" TPenyakit.SetFocus Exit Sub Else End If tanya = MsgBox("Simpan Data Ke Database !", vbExclamation + vbYesNo, "RSU_ Sari Mutiara Medan") If tanya = vbYes Then On Error GoTo salah rspasien.AddNew rspasien!kode_pasien = tkode.Text rspasien!nama = tnama.Text rspasien!usia = Val(TUsia.Text) If OpJen(0).Value = True Then rspasien!J_Kelamin = "Pria" Else rspasien!J_Kelamin = "Wanita" End If rspasien!Alamat = TAlamat.Text rspasien!Penyakit = TPenyakit.Text rspasien.Update Data1.Refresh CBatal_Click Exit Sub salah: MsgBox "Terjadi Kesalahan Pengisian Data, Isilah Data Dengan Benar !",_ vbCritical, "Error" tnama.SetFocus End If End Sub

Private Sub Form_Activate() kosong aktif (False) CSimpan.Enabled = False End Sub Private Sub OpJen_KeyDown(Index As Integer, KeyCode As Integer,_ Shift As Integer) If KeyCode = 13 Then TAlamat.SetFocus End If End Sub Private Sub TAlamat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TPenyakit.SetFocus End If End Sub Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(tkode.ClipText) < 4 Then MsgBox "Kode Supplier Harus Diisi 5 Digit !", vbCritical, "Peringatan" Exit Sub End If rspasien.Index = "xkode" rspasien.Seek "=", tkode.Text If rspasien.NoMatch Then aktif (True) CSimpan.Enabled = True tkode.Enabled = False tnama.SetFocus Else tnama.Text = rspasien!nama TUsia.Text = rspasien!usia If rspasien!J_Kelamin = "Pria" Then OpJen(0).Value = True Else OpJen(1).Value = True End If TAlamat.Text = rspasien!Alamat TPenyakit.Text = rspasien!Penyakit MsgBox "Data Sudah Ada..., Masukkan Kode Yang Lain !", vbCritical,_ "RSU Sari Mutiara Medan" kosong aktif (False) CSimpan.Enabled = False End If End If

End Sub Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TUsia.SetFocus End If End Sub Private Sub TPenyakit_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CSimpan.SetFocus End If End Sub Private Sub TUsia_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then OpJen(0).SetFocus End If End Sub Private Sub TUsia_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub

4. INPUT DATA DOKTER Dim Dbrs As Database Dim RsDokter As Recordset Private Sub CBatal_Click() kosong aktif (False) Csimpan.Enabled = False TKode.Enabled = True TKode.SetFocus TKode.SelStart = 0 End Sub Private Sub CKeluar_Click() Unload Me End Sub Private Sub Csimpan_Click() If TNama.Text = "" Then

MsgBox "Isikan Nama Dokter !", vbCritical, "Data Tidak Lengkap" TNama.SetFocus Exit Sub ElseIf TBagian.ListIndex = -1 Then MsgBox "Isikan Spesialisasi Dokter !", vbCritical, "Data Tidak Lengkap" TBagian.SetFocus Exit Sub End If tanya = MsgBox("Simpan Data Dokter Ke Database !", vbExclamation + vbYesNo, "Simpan Data") If tanya = vbYes Then RsDokter.AddNew RsDokter!kode_dokter = TKode.Text RsDokter!nama = TNama.Text RsDokter!bagian = TBagian.Text RsDokter.Update Data1.Refresh CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set RsDokter = Dbrs.OpenRecordset("Dokter") kosong aktif (False) Csimpan.Enabled = False End Sub Sub kosong() TKode.Mask = "" TKode.Text = "" TKode.Mask = "?-##" TNama.Text = "" TBagian.ListIndex = -1 End Sub Sub aktif(a As Boolean) TNama.Enabled = a TBagian.Enabled = a End Sub Private Sub TBagian_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Csimpan.SetFocus End If End Sub

Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then RsDokter.Index = "xkode" RsDokter.Seek "=", TKode.Text If RsDokter.NoMatch Then TKode.Enabled = False Csimpan.Enabled = True aktif (True) TNama.SetFocus Else TNama.Text = RsDokter!nama TBagian.Text = RsDokter!bagian MsgBox "Data Dokter Sudah Ada, Masukkan Kode Dokter Yang Baru !",_ vbInformation, "RSU Sari Mutiara Medan" CBatal_Click End If End If End Sub Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBagian.SetFocus End If End Sub

5. EDIT DATA PASIEN Dim Dbrs As Database Dim rspasien As Recordset Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set rspasien = Dbrs.OpenRecordset("Pasien") End Sub Private Sub CBatal_Click() kosong aktif (False) CSimpan.Enabled = False CHapus.Enabled = False TKode.Enabled = True TKode.SetFocus TKode.SelStart = 0 End Sub

Private Sub Chapus_Click() ask = MsgBox("Hapus Data Pasien !", vbExclamation + vbYesNo, "RSU Sari Mutiara Medan") If ask = vbYes Then rspasien.Delete Data1.Refresh CBatal_Click End If End Sub Private Sub CKeluar_Click() Unload Me End Sub Sub kosong() TKode.Mask = "" TKode.Text = "" TKode.Mask = "?-###" TNama.Text = "" TUsia.Text = "" OpJen(0).Value = True TAlamat.Text = "" TPenyakit.Text = "" End Sub Sub aktif(x As Boolean) TNama.Enabled = x TUsia.Enabled = x TAlamat.Enabled = x TPenyakit.Enabled = x OpJen(0).Enabled = x OpJen(1).Enabled = x End Sub Private Sub Csimpan_Click() If TNama.Text = "" Then MsgBox "Jangan Kosongkan Nama Pasien...!", vbCritical, "RSU Sari Mutiara Medan" TNama.SetFocus Exit Sub ElseIf Val(TUsia.Text) = 0 Then MsgBox "Usia Pasien Harus Diisi...!", vbCritical, "RSU Sari Mutiara Medan" TUsia.SetFocus Exit Sub ElseIf TAlamat.Text = "" Then MsgBox "Jangan Kosongkan Alamat Pasien...!", vbCritical, "RSU Sari Mutiara Medan" TAlamat.SetFocus Exit Sub

ElseIf TPenyakit.Text = "" Then MsgBox "Penyakit Pasien Harus Diisi...!", vbCritical, "RSU Sari Mutiara Medan" TPenyakit.SetFocus Exit Sub Else End If tanya = MsgBox("Simpan Data Yang Telah Diedit Ke Database !", vbExclamation + vbYesNo, "RSU Sari Mutiara Medan") If tanya = vbYes Then On Error GoTo salah rspasien.Edit rspasien!kode_pasien = TKode.Text rspasien!nama = TNama.Text rspasien!usia = Val(TUsia.Text) If OpJen(0).Value = True Then rspasien!J_Kelamin = "Pria" Else rspasien!J_Kelamin = "Wanita" End If rspasien!Alamat = TAlamat.Text rspasien!Penyakit = TPenyakit.Text rspasien.Update Data1.Refresh CBatal_Click Exit Sub salah: MsgBox "Terjadi Kesalahan Pengisian Data, Isilah Data Dengan Benar !", vbCritical, "Error" TNama.SetFocus End If End Sub Private Sub Form_Activate() kosong aktif (False) CSimpan.Enabled = False End Sub

Private Sub OpJen_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TAlamat.SetFocus End If End Sub

Private Sub TAlamat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TPenyakit.SetFocus End If End Sub Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TKode.ClipText) < 4 Then MsgBox "Kode Supplier Harus Diisi 5 Digit !", vbCritical, "Peringatan" Exit Sub End If rspasien.Index = "xkode" rspasien.Seek "=", TKode.Text If rspasien.NoMatch Then MsgBox "Data Pasien Tidak Ada Pada Database..., Masukkan Kode Yang Lain !", vbCritical, "RSU Sari Mutiara Medan" CBatal_Click Else TKode.Enabled = False TNama.Text = rspasien!nama TUsia.Text = rspasien!usia If rspasien!J_Kelamin = "Pria" Then OpJen(0).Value = True Else OpJen(1).Value = True End If TAlamat.Text = rspasien!Alamat TPenyakit.Text = rspasien!Penyakit aktif (True) CSimpan.Enabled = True CHapus.Enabled = True TNama.SetFocus End If End If End Sub Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TUsia.SetFocus End If End Sub Private Sub TPenyakit_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CSimpan.SetFocus End If End Sub

Private Sub TUsia_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then OpJen(0).SetFocus End If End Sub Private Sub TUsia_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub

6. EDIT DATA KAMAR Dim Dbrs As Database Dim Rskamar As Recordset Private Sub CBatal_Click() kosong aktif (False) tkode.Enabled = True tkode.SetFocus CSimpan.Enabled = False Chapus.Enabled = False tkode.SelStart = 0 End Sub Private Sub Chapus_Click() ya = MsgBox("Apakah benar data kamar akan dihapus !", vbExclamation + vbYesNo, "Hapus Data") If ya = vbYes Then Rskamar.Delete Data1.Refresh CBatal_Click End If End Sub Private Sub CKeluar_Click() Unload Me End Sub Private Sub Csimpan_Click() If tkelas.ListIndex = -1 Then MsgBox "Jangan kosongkan kelas kamar !", vbCritical, "Data tidak lengkap" tkelas.SetFocus Exit Sub

ElseIf tnama.Text = "" Then MsgBox "Jangan kosongkan nama kamar !", vbCritical, "Data tidak lengkap" tnama.SetFocus Exit Sub ElseIf Val(tkapasitas) = 0 Then MsgBox "Jangan kosongkan kapasitas kamar !", vbCritical, "Data tidak lengkap" tkapasitas.SetFocus Exit Sub ElseIf Val(tharga) = 0 Then MsgBox "Jangan kosongkan harga kamar !", vbCritical, "Data tidak lengkap" tkelas.SetFocus Exit Sub End If tanya = MsgBox("Simpan data kamar yang telah diedit ke database ?", vbExclamation + vbYesNo, "Simpan Data") If tanya = vbYes Then Rskamar.Edit Rskamar!kode_kamar = tkode.Text Rskamar!nama_ruangan = tnama.Text Rskamar!kelas = tkelas.Text Rskamar!kapasitas = Val(tkapasitas) Rskamar!harga = Val(tharga) Rskamar.Update Data1.Refresh CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\rs.mdb") Set Rskamar = Dbrs.OpenRecordset("Kamar") kosong aktif (False) CSimpan.Enabled = False Chapus.Enabled = False End Sub Sub kosong() tkode.Mask = "" tkode.Text = "" tkode.Mask = "?-###" tkelas.ListIndex = -1 tnama.Text = "" tharga.Text = "" tkapasitas.Text = "" End Sub Sub aktif(a As Boolean) tkelas.Enabled = a

tnama.Enabled = a tharga.Enabled = a tkapasitas.Enabled = a End Sub Private Sub tharga_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CSimpan.SetFocus End If End Sub Private Sub tharga_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub tkapasitas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tharga.SetFocus End If End Sub Private Sub tkapasitas_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub tkelas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tnama.SetFocus End If End Sub Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Rskamar.Index = "xkode" Rskamar.Seek "=", tkode.Text If Rskamar.NoMatch Then MsgBox "Data Kamar Belum Ada, Input Dulu Donk !!!", vbInformation, "RSU Sari Mutiara Medan" CBatal_Click Else tkode.Enabled = False tnama.Text = Rskamar!nama_ruangan tkelas.Text = Rskamar!kelas

tkapasitas.Text = Rskamar!kapasitas tharga.Text = Rskamar!harga CSimpan.Enabled = True Chapus.Enabled = True aktif (True) tkelas.SetFocus End If End If End Sub Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then tkapasitas.SetFocus End If End Sub

7. EDIT DATA DOKTER Dim Dbrs As Database Dim RsDokter As Recordset Private Sub CBatal_Click() kosong aktif (False) Csimpan.Enabled = False CHapus.Enabled = False TKode.Enabled = True TKode.SetFocus TKode.SelStart = 0 End Sub Private Sub Chapus_Click() ok = MsgBox("Hapus Data Dokter !", vbExclamation + vbYesNo, "Hapus") If ok = vbYes Then RsDokter.Delete Data1.Refresh CBatal_Click End If End Sub Private Sub CKeluar_Click() Unload Me End Sub

Private Sub Csimpan_Click() If TNama.Text = "" Then MsgBox "Isikan Nama Dokter !", vbCritical, "Data Tidak Lengkap" TNama.SetFocus Exit Sub ElseIf TBagian.ListIndex = -1 Then MsgBox "Isikan Spesialisasi Dokter !", vbCritical, "Data Tidak Lengkap" TBagian.SetFocus Exit Sub End If tanya = MsgBox("Simpan Data Dokter Yang Sudah Diedit !", vbExclamation + vbYesNo, "Simpan Data") If tanya = vbYes Then RsDokter.Edit RsDokter!kode_dokter = TKode.Text RsDokter!nama = TNama.Text RsDokter!bagian = TBagian.Text RsDokter.Update Data1.Refresh CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set RsDokter = Dbrs.OpenRecordset("Dokter") kosong aktif (False) Csimpan.Enabled = False CHapus.Enabled = False End Sub Sub kosong() TKode.Mask = "" TKode.Text = "" TKode.Mask = "?-##" TNama.Text = "" TBagian.ListIndex = -1 End Sub Sub aktif(a As Boolean) TNama.Enabled = a TBagian.Enabled = a End Sub Private Sub TBagian_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Csimpan.SetFocus End If

End Sub Private Sub TKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then RsDokter.Index = "xkode" RsDokter.Seek "=", TKode.Text If RsDokter.NoMatch Then MsgBox "Data Dokter Tidak Ditemukan !, Input Dulu Donk !", vbInformation, "RSU Sari Mutiara Medan" CBatal_Click Else TNama.Text = RsDokter!nama TBagian.Text = RsDokter!bagian Csimpan.Enabled = True CHapus.Enabled = True TKode.Enabled = False aktif (True) TNama.SetFocus End If End If End Sub Private Sub TNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBagian.SetFocus End If End Sub

8. CHECK OUT Dim Dbrs As Database Dim rstran As Recordset Dim Rskamar As Recordset Dim lama, bkamar, bdokter, bobat, total Sub kospas() TKoPas.Mask = "" TKoPas.Text = "" TKoPas.Mask = "?-###" TNaPas.Text = "" TKokam.Text = "" tharga.Text = "" TTglIn.Text = "" TKodok.Text = "" TNaDok.Text = "" End Sub

Sub kosbiaya() TLama.Text = "" TBKamar.Text = 0 TBDokter.Text = 0 TBObat.Text = 0 TTotal.Text = 0 End Sub Private Sub CBatal_Click() kospas kosbiaya Csimpan.Enabled = False TKoPas.SetFocus TKoPas.SelStart = 0 End Sub Private Sub CKeluar_Click() Unload Me End Sub Private Sub Csimpan_Click() tanya = MsgBox("Simpan Data Transaksi Check Out !", vbExclamation + vbOKCancel, "Check Out") If tanya = vbOK Then rstran.Edit rstran!tgl_CheckOut = Date rstran!total_biaya = total rstran!Status = "Out" rstran.Update Rskamar.Index = "xkode" Rskamar.Seek "=", TKokam.Text If Not Rskamar.NoMatch Then Rskamar.Edit Rskamar!berisi = Rskamar!berisi - 1 Rskamar.Update End If CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set rstran = Dbrs.OpenRecordset("Transaksi") Set Rskamar = Dbrs.OpenRecordset("Kamar") kospas kosbiaya

Csimpan.Enabled = False TTglOut.Text = Format(Date, "dd-mm-yyyy") End Sub Private Sub TBDokter_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then hitung TBObat.SetFocus End If End Sub Private Sub TBDokter_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub TBObat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then hitung Csimpan.SetFocus End If End Sub Private Sub TBObat_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub Private Sub TKoPas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then rstran.Index = "xpasien" rstran.Seek "=", TKoPas.Text, "In" If rstran.NoMatch Then MsgBox "Pasien Tidak Sedang Check In !" kospas TKoPas.SelStart = 0 Else TNaPas.Text = rstran!nama_pasien TKodok.Text = rstran!kode_dokter TNaDok.Text = rstran!Nama_Dokter TKokam.Text = rstran!kode_kamar tharga.Text = rstran!harga TTglIn.Text = Format(rstran!tgl_checkin, "dd-mm-yyyy")

lama = Date - rstran!tgl_checkin If lama > 0 Then TLama.Text = lama Else TLama.Text = 1 End If hitung Csimpan.Enabled = True TBDokter.SetFocus End If End If End Sub Sub hitung() bkamar = Val(TLama) * rstran!harga TBKamar.Text = bkamar total = Val(TBKamar) + Val(TBDokter) + Val(TBObat) TTotal.Text = Format(total, "Rp ##,###,###") End Sub

9. CHECK IN Dim Dbrs As Database Dim rstran As Recordset Dim rspasien As Recordset Dim Rskamar As Recordset Dim RsDokter As Recordset Private Sub CBatal_Click() kospas koskam kosdok Csimpan.Enabled = False TKokam.Enabled = False TKodok.Enabled = False TKoPas.Enabled = True TKoPas.SetFocus TKoPas.SelStart = 0 End Sub Private Sub CKeluar_Click() Unload Me End Sub

Private Sub Csimpan_Click() tanya = MsgBox("Simpan Data Check In !", vbExclamation + vbOKCancel, "Simpan Data") If tanya = vbOK Then rstran.AddNew rstran!kode_pasien = TKoPas.Text rstran!nama_pasien = TNaPas.Text rstran!kode_kamar = TKokam.Text rstran!harga = Val(tharga) rstran!kode_dokter = TKodok.Text rstran!Nama_Dokter = TNaDok.Text rstran!tgl_checkin = Date rstran!total_biaya = 0 rstran!Status = "In" rstran.Update Rskamar.Edit Rskamar!berisi = Rskamar!berisi + 1 Rskamar.Update CBatal_Click End If End Sub Private Sub Form_Load() Set Dbrs = OpenDatabase(App.Path & "\Rs.mdb") Set rstran = Dbrs.OpenRecordset("Transaksi") Set rspasien = Dbrs.OpenRecordset("Pasien") Set Rskamar = Dbrs.OpenRecordset("Kamar") Set RsDokter = Dbrs.OpenRecordset("Dokter") kospas koskam kosdok TTgl.Text = Format(Date, "dd-mm-yyyy") Csimpan.Enabled = False TKokam.Enabled = False TKodok.Enabled = False End Sub Sub kospas() TKoPas.Mask = "" TKoPas.Text = "" TKoPas.Mask = "?-###" TNaPas.Text = "" TPenyakit.Text = "" End Sub Sub koskam()

TKokam.Mask = "" TKokam.Text = "" TKokam.Mask = "?-###" tkelas.ListIndex = -1 TNaRu.Text = "" tkapasitas.Text = "" tharga.Text = "" End Sub Sub kosdok() TKodok.Mask = "" TKodok.Text = "" TKodok.Mask = "?-##" TNaDok.Text = "" TBagian.ListIndex = -1 End Sub Private Sub TKoDok_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then RsDokter.Index = "xkode" RsDokter.Seek "=", TKodok.Text If RsDokter.NoMatch Then MsgBox "Data Dokter Tidak Ditemukan !" kosdok TKodok.SelStart = 0 Else TKodok.Enabled = False TNaDok.Text = RsDokter!nama TBagian.Text = RsDokter!bagian Csimpan.Enabled = True Csimpan.SetFocus End If End If End Sub Private Sub TKoKam_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Rskamar.Index = "xkode" Rskamar.Seek "=", TKokam.Text If Rskamar.NoMatch Then MsgBox "Data Kamar Tidak Ditemukan !" koskam TKokam.SelStart = 0 Else If Rskamar!berisi = Rskamar!kapasitas Then MsgBox "Kamar Sudah Penuh, Input Kamar Yang Lain !" koskam TKokam.SelStart = 0

Exit Sub End If TKokam.Enabled = False tkelas.Text = Rskamar!kelas TNaRu.Text = Rskamar!nama_ruangan tkapasitas.Text = Rskamar!kapasitas tharga.Text = Rskamar!harga TKodok.Enabled = True TKodok.SetFocus TKodok.SelStart = 0 End If End If End Sub Private Sub TKoPas_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then rspasien.Index = "xkode" rspasien.Seek "=", TKoPas.Text If rspasien.NoMatch Then MsgBox "Data Pasien Tidak Ditemukan !" kospas TKoPas.SelStart = 0 Else rstran.Index = "xpasien" rstran.Seek "=", TKoPas.Text, "In" If rstran.NoMatch Then TKoPas.Enabled = False TNaPas.Text = rspasien!nama TPenyakit.Text = rspasien!Penyakit TKokam.Enabled = True TKokam.SetFocus TKokam.SelStart = 0 Else MsgBox "Pasien Masih Sedang Check In !" kospas TKoPas.SelStart = 0 End If End If End If End Sub

10. CARI DATA PASIEN

Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\Rs.mdb" Data1.RecordSource = "Pasien" End Sub Private Sub Opkode_Click() ref TCariNama.Text = "" TCariKode.Mask = "" TCariKode.Text = "" TCariKode.Mask = "?-###" TCariNama.Enabled = False TCariKode.Enabled = True TCariKode.SetFocus TCariKode.SelStart = 0 End Sub Private Sub OpNama_Click() ref TCariNama.Text = "" TCariKode.Mask = "" TCariKode.Text = "" TCariKode.Mask = "?-###" TCariNama.Enabled = True TCariKode.Enabled = False TCariNama.SetFocus End Sub Private Sub TCariKode_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Data1.RecordSource = "select * from pasien where kode_pasien = '" & TCariKode.Text & "'" Data1.Refresh If Data1.Recordset.RecordCount < 1 Then MsgBox "Data Yang Dicari Tidak Ada Pada Database, Masukkan Kode Yang Lain !", vbInformation, "RSU Sari Mutiara Medan" ref Opkode_Click End If End If End Sub

Sub ref() Data1.RecordSource = "select * from pasien" Data1.Refresh End Sub Private Sub TCariNama_Change() Data1.RecordSource = "select * from pasien where Left(nama,len('" & TCariNama.Text & "')) = '" & TCariNama.Text & "'" Data1.Refresh If Data1.Recordset.RecordCount < 1 Then MsgBox "Data Yang Dicari Tidak Ada Pada Database !", vbInformation, "RSU Sari Mutiara Medan" ref OpNama_Click End If End Sub

11. ABOUT PROGRAM Private Sub Command1_Click() Unload Me End Sub Private Sub Text1_Change() End Sub Private Sub Timer1_Timer() Text1.ForeColor = RGB(80, Rnd * 240, Rnd * 100) End Sub

1. LAYOUT MENU UTAMA

2. LAYOUT INPUT DATA PASIEN

3. LAYOUT EDIT DATA PASIEN

4. LAYOUT CARI DATA PASIEN

5. INPUT DATA KAMAR

6. EDIT DATA KAMAR

7. LAYOUT INPUT DATA DOKTER

8. LAYOUT EDIT DATA DOKTER

9. LAYOUT CHECK IN

10. LAYOUT CHECK OUT

11. LAYOUT LAPORAN SELURUH DATA PASIEN

12. LAYOUT LAPORAN SELURUH DATA KAMAR

13. LAYOUT LAPORAN SELURUH DATA TRANSAKSI

14. LAYOUT ABOUT PROGRAM

DEPARTEMEN PENDIDIKAN NASIONAL UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM JL.Bioteknologi No.1 Kampus USU Padang Bulan, Medan – 20155 Telp. (061) 8211050, 8214290 Fax. (061) 8214290

Medan, 10 Maret 2008 Nomor Lampiran Hal

: /H5.2.1.8/SPB/2008 : 1 Eks : Pengumpulan Data Riset Mahasiswa Program Studi D III Ilmu Komputer Departemen Matematika FMIPA USU

Kepada Yth

: Kepala Rumah Sakit Sari Mutiara Medan

Dengan Hormat, Bersama ini kami memohon kesediaan Bapak/Ibu untuk menerima Mahasiswa Program Diploma III FMIPA USU untuk melakukan Riset atau pengumpulan Data, atas nama : NAMA KHOIRIYANI

NIM 052406105

PROGRAM STUDI D3 ILMU KOMPUTER

Data dimaksud khusus dipergunakan untuk menyusun Tugas Akhir Mahasiswa yang berjudul “ SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN BAHASA PEMROGRAMAN VISUAL BASIC 6.0 “ pada Program Diploma III Ilmu Komputer FMIPA USU. Demikianlah kami sampaikan, atas bantuan dan kerjasama Bapak/Ibu, kami ucapkan terimakasih. An. Dekan Pembantu Dekan 1

Dr. Sutarman, M. Sc NIP. 131945359

Tembusan : 1. Ketua Program Studi Program Diploma III Komputer 2. Arsip

SURAT KETERANGAN HASIL UJI PROGRAM TUGAS AKHIR

Yang bertanda tangan dibawah ini, menerangkan bahwa mahasiswa tugas akhir Program Studi D-3 Ilmu Komputer : Nama

: KHOIRIYANI

Nim

: 052406105

Program Studi

: D-3 ILMU KOMPUTER

Judul Tugas Akhir

: SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT

SARI

MUTIARA

MEDAN

MENGGUNAKAN VISUAL BASIC 6.0

DENGAN

Telah melakukan uji program tugas akhir dari mahasiswa tersebut diatas pada tanggal ....................................... Dengan hasil : Sukses / Gagal

Demikianlah diterangkan untuk melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir mahasiswa yang bersangkutan di Jurusan Matematika FMIPA USU MEDAN.

Medan, 28 Mei 2008 Dosen Pembimbing

Dra. Normalina Napitupulu, MSc NIP. 131831527