repository.usu.ac.id › bitstream › handle › 123456789 › 7793 › 09E... · SISTEM INFORMASI...
Transcript of repository.usu.ac.id › bitstream › handle › 123456789 › 7793 › 09E... · SISTEM INFORMASI...
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 : SISTEM INFORMASI DATA PASIEN PADA RUMAH SAKIT SARI MUTIARA MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0
Kategori : TUGAS AKHIR Nama : KHOIRIYANI Nomor Induk Mahasiswa : 052406105 Program Studi : DIPLOMA (D3) ILMU KOMPUTER Departemen : MATEMATIKA Fakultas : 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. Dra. Normalina Napitupulu, M.Sc. NIP 131796149 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 ii Pernyataan iii Penghargaan iv Abstrak v Daftar Isi vi Daftar Tabel viii Daftar Gambar ix Daftar Istilah x Bab 1 Pendahuluan 1
1.1 Latar Belakang 1 1.2 Identifikasi Masalah 3 1.3 Batasan Masalah 3 1.4 Maksud dan Tujuan 4 1.5 Metode Penelitian 5 1.6 Sistematika Penulisan 6
Bab 2 Landasan Teori 8
2.1 Pengertian Komputer 8 2.2 Pengertian Data, Database, Sistem dan Informasi 9 2.2.1 Data 9 2.2.2 Database 10 2.2.3 Sistem Informasi 11
2.2.3.1 Sistem 11 2.2.3.2 Informasi 11
2.3 Visual Basic 6.0 12 2.3.1 Mengenal Visual Basic 6.0 12 2.3.2 Komponen Utama Visual Basic 6.0 13 2.3.3 Kemampuan dan Manfaat Visual Basic 6.0 18 2.3.4 Keunggulan Visual Basic 6.0 18
Bab 3 Ruang Lingkup Instansi 19
3.1 Sejarah Singkat Tentang RSU Sari Mutiara Medan 19
Bab 4 Perancangan Sistem 23 4.1 Perancangan Struktur Database 23
4.1.1 Struktur Tabel Dokter 24 4.1.2 Struktur Tabel Kamar 24 4.1.3 Struktur Tabel Pasien 25 4.1.4 Struktur Tabel Transaksi 25
4.2 Algoritma Program 26 4.2.1 Algoritma Input Data Pasien 26 4.2.2 Algoritma Edit Data Pasien 27 4.2.3 Algoritma Cari dan Hapus Data Pasien 28
Bab 5 Implementasi Sistem 29
5.1 Defenisi Implementasi Sistem 29 5.2 Komponen Utama dalam Implementasi Sistem 29 5.3 Tujuan Implementasi 30 5.4 Pengujian Sistem 31 5.5 Pemeliharaan Sistem 32
Bab 6 Kesimpulan dan Saran 34 6.1 Kesimpulan 34 6.2 Saran 34
Daftar Pustaka Lampiran
DAFTAR TABEL
Halaman
Tabel 2.1 Kontrol-kontrol pada Toolbox 15 Tabel 4.1 Struktur Tabel Dokter 24 Tabel 4.2 Struktur Tabel Kamar 24 Tabel 4.3 Struktur Tabel Pasien 25 Tabel 4.4 Struktur Tabel Transaksi 25
DAFTAR GAMBAR
Halaman
Gambar 2.1 Barisan Menu 13 Gambar 2.2 Menu Toolbar 13 Gambar 2.3 Jendela Form 14 Gambar 2.4 Menu Toolbox 14 Gambar 2.5 Jendela Code 16 Gambar 2.6 Jendela Project 16 Gambar 2.7 Jendela Properties 17 Gambar 2.8 Form Layout Windows 17
DAFTAR ISTILAH Analisa : mempelajari masalah dan lingkungan masalah yang
diperbaiki serta mengajukan alternatif dari penyelesaian masalah.
Brainware : perangkat operator. Data : kenyataan yang digambarkan oleh nilai – nilai, bilangan-
bilangan dan simbol-simbol yang mempunyai arti tertentu. Data store : data tersimpan. Database : kumpulan file yang saling berhubungan satu dengan yang
lainnya. File : kumpulan dari record yang saling terkait dan memiliki format
field yang sama dan sejenis. Hardware : perangkat keras. Implementasi : menulis, menguji dan mendebug program-program komputer
serta mengonversi ke sistem baru atau sistem yang dipakai. Informasi : data yang sudah diolah untuk tujuan tertentu dalam
pengambilan keputusan. Input : komponen penggerak atau pemberi tenaga di mana sistem itu
dioperasikan. Komputer : suatu rangkaian peralatan elektronik yang menerima data dan
menggolongkannya secara otomatis untuk mengatasi berbagai masalah serta menghasilkan informasi.
Output : hasil operasi dari suatu sistem atau informasi yang dihasilkan oleh program aplikasi yang akan digunakan oleh para pemakai sebagai bahan pengambilan keputusan.
Sistem : satu kesatuan yang terdiri dari sub-sub sistem yang saling berhubungan untuk mencapai suatu tujuan.
Software : 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, bacaan-
bacaan, bahan-bahan perkuliahan serta materi-materi lainnya yang
berhubungan masalah yang ditinjau dalam penyusunan tugas akhir ini.
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 Kegunaan
Label 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]
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 prosedur-
prosedur 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 spesifikasi-
spesifikasinya.
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 : /H5.2.1.8/SPB/2008 Lampiran : 1 Eks Hal : 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 NIM PROGRAM STUDI KHOIRIYANI 052406105 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 DENGAN
MENGGUNAKAN VISUAL BASIC 6.0
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