SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA PANTI SOSIAL TRESNA WERDHA ABDI BINJAI SKRIPSI NOVITA KHAIRUNISA E

SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA PANTI SOSIAL TRESNA WERDHA ABDI BINJAI

SKRIPSI

NOVITA KHAIRUNISA E 031401004

PROGRAM STUDI S-1 ILMU KOMPUTER DEPARTEMEN ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009

Novita Khairunisa E. : Sistem Informasi Rehabilitasi Panti Jompo Pada Panti Sosial Tresna Werdha Abdi Binjai, 2009. USU Repository © 2009

SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA PANTI SOSIAL TRESNA WERDHA ABDI BINJAI

SKRIPSI

Diajukan untuk melengkapi tugas dan memenuhi syarat mencapai gelar Sarjana Komputer

NOVITA KHAIRUNISA E 031401004

PROGRAM STUDI S-1 ILMU KOMPUTER DEPARTEMEN ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009


PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA DINAS SOSIAL TRESNA WERDHA ABDI BINJAI. : SKRIPSI : NOVITA KHAIRUNISA E : 031401004 : SARJANA (S1) ILMU KOMPUTER : ILMU KOMPUTER : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA Diluluskan di Medan, 21 Januari 2009

Komisi Pembanding : Pembimbing 2

Pembimbing 1

Maya Silvi Lydia, BSc,MSc NIP 132 299 349

Prof. Dr. Muhammad Zarlis NIP 131 570 434

Diketahui/Disetujui oleh Program Studi S-1 Ilmu Komputer FMIPA USU Ketua,

Prof. Dr. Muhammad Zarlis NIP 131 570 434


PERNYATAAN

SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA DINAS SOSIAL TRESNA WERDHA ABDI BINJAI

SKRIPSI

Saya mengakui bahwa skripsi ini adalah hasil kerja saya sendiri, kecuali beberapa kutipan dan ringkasan yang masing – masing di sebutkan sumbernya.

Medan,

Januari 2009

Novita Khairunnisa E


PENGHARGAAN

Puji dan syukur penulis panjatkan kepada TuhanYang Maha Pemurah dan Maha Penyayang, dengan limpah kurnia-Nya skripsi ini berhasil diselesaikan dalam waktu yang telah di tetapkan. Ucapan terima ksih saya sampaikan kepada Prof. Dr. Muhammad Zarlis dan Maya Silvi Lydia, BSc,MSc selaku pembimbing pada penyelesaian skripsi ini yang telah memberikan panduan dan penuh kepercayaan kepada saya untuk menyempurnakan kajian ini. Panduan ringkas dan padat dan professional telah diberikan kepada saya agar penulis dapat menyelesaikan tugas ini. Ucapan terima kasih juga di tujukan kepada Ketua dan Sekretaris Program Studi S-1 Ilmu Komputer Prof. Dr. Muhammad Zarlis dan Syahriol Sitorus. S.Si,. Dekan dan Pembantu Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, semua dosen dan pegawai Program Studi S-1 Ilmu Komputer FMIPA USU, dan rekan – rekan kuliah. Akhirnya, tidak terlupakan kepada Ayah, Bunda dan semua ahli keluarga yang selama ini memberikan bantuan dan dorongan yang diperlukan. Semoga Tuhan Yang Maha Esa akan membalasnya.


ABSTRAK

Kebutuhan akan informasi yang cepat, tepat dan akurat merupakan suatu aspek yang sangat penting dalam setiap aktifitas di satu lembaga atau instansi. Pentingnya peranan Teknologi Informasi didalam pengorganisasian sumber daya saat ini semakin terasa, apalagi dengan bertambahnya data, maka pemrosesan data tersebut secara manual akan semakin sulit. Pemrosesan data secara manual yang saat ini masih banyak digunakan oleh instansi-instansi pemerintah maupun swasta memiliki banyak redundansi dan tumpang tindih data, serta kesulitan dalam pengaksesan kembali bila sewaktu-waktu data tersebut di perlukan. Kemudahan, kecepatan dan keakuratan adalah kata kunci sukses sebuah sistem aplikasi. Kata “kemudahan” berkaitan dengan kemudahan penggunaan yang kemudian berkaitan dengan desain Graphical User Interface. Kata kecepatan dan keakuratan data merupakan “efektifitas” dari sistem aplikasi berkaitan dengan bagaimana sebuah hasil pemrosesan data di tampilkan dan diranking (page ranking). Dan hal ini tidak jauh berbeda dengan yang terjadi pada Panti Jompo Tresna Werdha Abdi Binjai. Guna mengantisipasi kecendrungan tata kehidupan masyarakat yang semakin maju dengan menggunakan komputer, wajar jika sebuah perusahaan, instansi, organisasi mulai mempersiapkan diri dengan berusaha mengenal lebih jauh apa dan bagaimana sesungguhnya sistem komputer itu. Pada Panti Jompo Tresna Werdha Abdi Binjai dimana data yang ada masih menggunakan aplikasi yang sederhana seperti Microsoft Word dan Excel dalam melakukan pengolahan data. Sehingga masih banyak ditemukan kesulitan dan membutuhkan waktu yang lama dalam pencarian data. Sistem ini di kembangkan dengan menggunakan perangkat lunak Visual Basic 6.0 dan menggunakan data base yang di rancang dengan menggunakan Microsoft Access.


SYSTEM INFORMATION PANTI JOMPO IN DEPARTEMEN TRESNA WERDHA ABDI BINJAI

ABSTRACT

The requirement on fast, accurate and actual information is an important factor in any activities of an institution or agent. The importance of role of information technology in organizing of resources is very dominant specially by the increasing of data where the data processing by manual is very difficult. The data processing manually that still used by government and private institutions has any redundancy and overlapping of the data and the difficult in retrieve the required data in any time. The easiness, actuality and accuracy are keys for success of an application system. The term ‘easiness’ is related to the easiness in using that related to the Graphical User Interface design. The actuality and accuracy o data are ‘effective’ on the application system related to how the data processing is presented and page ranking. It did not differentthan old folk’s home of Tresna Werdha Abdi Binjai. In order to anticipate the trend of society living in using computer, normally the firm institution and organization must familiar and use the computer system. At the old folk’s home Tresna Werdha Abdi Binjai. Where the data processing using the simplest application i.e Microsoft Word and Excell in data processing. So, there are any difficult and need more time in data retrieving. This system is developed by using the software of Visual Basic 6.0 and using the data base designed by Microsoft Access.


DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Abstract Daftar Isi Daftar Tabel Daftar Gambar Bab 1

Pendahuluan 1.1. Latar Belakang Masalah 1.2. Perumusan Masalah 1.3. Batasan Masalah 1.4. Maksud dan Tujuan Penulisan 1.5. Metode Penelitian 1.6. Sistematika Penulisan

1 1 2 3 3 3 3

Bab 2

Tinjauan Teoritis 2.1. Pengertian Sistem 2.2. Pengertian Sistem Informasi 2.3. Data dan Informasi 2.4. Pangkalan Data 2.4.1. Komponen Pangkalan Data 2.4.2. Kamus Data 2.4.3. Teknik Normalisasi 2.5. Perancangan Sistem

5 5 6 6 8 9 10 11 12

Bab 3

Perancangan Sistem 3.1. Perancangan 3.1.1.Model Analisis Perangkat Lunak 3.1.2 Diagram Konteks 3.1.3 Diagram Aliran Data (DAD) 3.2 Rancangan Pangkalan Data 3.2.1. Relasi Pangkalan Data 3.3. Rancangan Antar Muka 3.3.1 Rancangan Masukan (Input) 3.3.2 Rancangan Keluaran (Output)

15 15 15 15 16 19 23 23 24 31

Bab 4

Implementasi 4.1. Algoritma 4.2.1. Tampilan Program

36 36 37


Bab 5

Penutup 5.1. Kesimpulan 5.2. Saran

Daftar Pustaka Lampiran: A. Listing Program


50 50 51

DAFTAR TABEL

Halaman Tabel 2.1. Simbol DFD…………………………………………………….. Tabel 3.1. Tabel tWarga……………………………………………………. Tabel 3.1. Tabel tPegawai………………………………………………….. Tabel 3.1. Tabel tDokter……………………………………………………. Tabel 3.1. Tabel tBarang……………………………………………………. Tabel 3.1. Tabel tPassword…………………………………………………. Tabel 3.1. Tabel tBerobat…………………………………………………… Tabel 3.1. Tabel tDinas…………………………………………………….. Tabel 3.1. Tabel tMutasi……………………………………………………. Tabel 3.1. Tabel tPenyumbang…….……………………………………….. Tabel 3.1. Tabel tSumbangan………………………………………………..


14 19 19 20 20 20 21 21 22 22 22

DAFTAR GAMBAR

Halaman Gambar 2.1. Gambar 2.2 Gambar 3.1. Gambar 3.2. Gambar 3.3. Gambar 3.4. Gambar 3.5. Gambar 3.6. Gambar 3.7. Gambar 3.8. Gambar 3.9. Gambar 3.10. Gambar 3.11. Gambar 3.12. Gambar 3.13. Gambar 3.14. Gambar 3.15. Gambar 3.16. Gambar 3.17. Gambar 3.18. Gambar 3.19. Gambar 4.1. Gambar 4.2. Gambar 4.3. Gambar 4.4. Gambar 4.5. Gambar 4.6. Gambar 4.7. Gambar 4.8. Gambar 4.9. Gambar 4.10. Gambar 4.11. Gambar 4.12. Gambar 4.13. Gambar 4.14. Gambar 4.15. Gambar 4.16. Gambar 4.17.

Transformasi data menjadi Informasi……………………… Siklus Informasi……………………………………………. Diagram Konteks………………………………………….. Diagram Aliran Data level 1……………........................... Relasi Antar Tabel…………………………………………. Rancangan Form Login……………………………………. Rancangan Menu Utama…………………………………… Rancangan Form Warga……………………………………. Rancangan Form Barang…………………………………… Rancangan Form Dokter…………………………………… Rancangan Form Dinas……………………………………. Rancangan Form Password…………………………………. Rancangan Form Sumbangan…………………………….. Rancangan Form Mutasi………………………………….. Rancangan Form Berobat…………………………………. Rancangan Laporan Warga………………………………… Rancangan Laporan Berobat……………………………….. Rancangan Laporan Mutasi………………………………... Rancangan Laporan Sumbangan…………………………… Rancangan Help……………………………………………. Rancangan About……………………………………………. Tampilan Login……………………………………………. Tampilan Menu Utama…………………………………….. Tampilan Mutasi……………………………………………. Tampilan Berobat……………………………………………. Tampilan Dinas………………………………………………. Tampilan Registrasi Warga………………………………….. Tampilan Sumbangan Barang………………………………. Tampilan Data Barang………………………………………. Tampilan Data Pegawai……………………………………. Tampilan Data Dokter……………………………………… Tampilan Data Password…………………………………... Tampilan Laporan Data Warga……………………………… Tampilan Laporan Berobat…………………………………... Tampilan Laporan Mutasi warga…………………………….. Tampilan Laporan Sumbangan………………………………. Tampilan Content / Isi………………………………………….. Tampilan About……………………………………………….


7 8 16 18 23 24 25 26 27 27 28 28 29 30 30 31 32 33 34 34 35 37 38 39 40 40 41 42 43 44 45 46 46 47 47 48 48 49

BAB 1

PENDAHULUAN

1.1

Latar Belakang Masalah

Kebutuhan akan informasi yang cepat, tepat dan akurat merupakan suatu aspek yang sangat penting dalam setiap aktifitas di satu

lembaga atau instansi. Pentingnya

peranan Teknologi Informasi didalam pengorganisasian sumber daya saat ini semakin terasa, apalagi dengan bertambahnya data, maka pemrosesan data tersebut secara manual akan semakin sulit. Pemrosesan data secara manual yang saat ini masih banyak digunakan oleh instansi-instansi pemerintah maupun swasta memiliki banyak redundansi dan tumpang tindih data, serta kesulitan dalam pengaksesan kembali bila sewaktu-waktu data tersebut di perlukan. Kemudahan, kecepatan dan keakuratan adalah kata kunci sukses sebuah sistem aplikasi. Kata “kemudahan” berkaitan dengan kemudahan penggunaan yang kemudian berkaitan dengan desain Graphical User Interface. Kata kecepatan dan keakuratan data merupakan “efektifitas” dari sistem aplikasi berkaitan dengan bagaimana sebuah hasil pemrosesan data di tampilkan dan diranking (page ranking).

Atas dasar ini, maka sangat diperlukan suatu alat bantu yang dapat melakukan pencatatan dan pemrosesan seluruh data yang dibutuhkan secara cepat, tepat dan dengan mengutamakan informasi keluaran yang dapat dipertanggungjawabkan akurasinya. Skripsi ini akan membahas suatu proses alih teknologi dari sistem informasi manual ke sistem informasi berbasiskan komputer yang diharapkan dapat membantu dan memberikan solusi terhadap permasalahan-permasalahan yang dihadapi khususnya pada Panti Jompo Tresna Werdha Abdi Binjai


Di mana pada Panti Jompo Tresna Werdha Abdi Binjai mempunyai fungsi merawat masyarakat lanjut usia. Dalam menjalankan fungsinya pada panti jompo juga menggunakan pegawai dari dinas sosial sebagai tenaga medis dalam merawat warga panti yang sakit. Panti Jompo Tresna Werdha Abdi Binjai sering mendapat kunjungan orang secara pribadi maupun dari organisasi dan mendapatkan sumbangan berupa barang maupun sembako.

Dimana dalam merawat warga yang sakit, Panti Jompo Tresna Werdha Abdi Binjai juga mendatangkan dokter dari dinas kesehatan setempat. Jika ada warga yang sakitnya parah maka perawatan yang dilakukan adalah segera di rujuk ke rumah sakit.

Untuk membuat laporan dari semua kegiatan di atas bagian mutasi masih mengalami kesulitan, karena dalam membuatanya masih di lakukan secara manual. Untuk mengatasi kesulitan data sebuah system informasi yang handal dalam menjalankan data warga, mutasi warga, pegawai, paramedis, pengunjung, sumbangan dan data kerabat warga. Sistem ini harus bisa dengan cepat menyajikan laporan yang dibutuhkan oleh kepala UPTD

Panti Sosial Tresna Werdha Abdi Binjai ini mempunyai dua panti yaitu panti yang memelihara anak terlantar dan panti yang memelihara para lanjut usia (jompo).

1.2

Rumusan Masalah

Permasalahan yang akan di bahas dalam tugas akhir ini : 1. Bagaimana menghubungkan basis data agar setiap kali data yang di butuhkan dapat dengan cepat di peroleh. 2. Bagaimana mengurangi rangkapnya data (redudansi data) sehingga tidak perlu menghilangkan nilai data seluruhnya.


1.3

Batasan Masalah

Sistem informasi hanya akan mengelola data warga, data pegawai, data dokter, data barang, data dinas, data berobat, data mutasi, data penyumbang, dan data sumbangan.

1.4

Tujuan Penelitian

Tujuan dari tugas akhir ini adalah merancang sistem informasi yang baru berguna untuk mengatasi masalah pengolahan data dan informasi pada Panti Jompo Panti Sosial Tresna Werdha Abdi Binjai Medan.

1.5

Manfaat Penelitian

Manfaat dari sistem informasi untuk Panti Jompo ini dapat memudahkan pihak pengguna, dalam hal ini pegawai di Panti Jompo untuk mencari data informasi yang di perlukan.

1.6

Sistematika Penulisan

Dalam menyusun Tugas Akhir, penulis membuat dengan cara bertahap dari bab demi bab untuk memudahkan pemahaman pembaca. Adapun urutannya adalah sebagai berikut :

BAB 1 : PENDAHULUAN Dalam bab ini diuraikan tentang latar belakang pemilihan judul, rumusan masalah, batasan masalah, tujuan penelitian, manfaat penelitian, serta sistematika penulisan skripsi.


BAB 2 : TINJAUAN TEORITIS Bab ini menjelaskan tentang landasan teori yang meliputi pengertian sistem, data, informasi, database dan perancangan sistem yang digunakan. serta yang menyangkut dengan judul tugas akhir.

BAB 3 : PERANCANGAN SISTEM Pada bab ini akan membahas tentang perancangan diagram aliran data (DFD) database, input data serta output dan tentang rancangan objek–objek yang akan dibuat ataupun diusulkan dalam aplikasi ini.

BAB 4 : IMPLEMENTASI Pada bab ini akan di jelaskan tentang pembuatan laporan sebagai hasil akhir dari program aplikasi yang dirancang.

BAB 5 : KESIMPULAN DAN SARAN Pada bab ini membahas mengenai kesimpulan dan saran dari keseluruhan rancangan yang penulis lakukan.


BAB 2

TINJAUAN TEORITIS

2.1

Pengertian Sistem dan Informasi

Sistem mempunyai definisi yang sangat banyak menurut beberapa ahli diantaranya :

a. Sistem dapat diindentifikasi sebagai suatu kesatuan yang terdiri dari dua atau lebih komponen atau subsistem yang berinteraksi untuk mencapai suatu tujuan (Jogianto, 1999). b. Suatu sistem yang dapat di buat oleh manusia yang terdiri dari komponen – komponen dalam organisasi untuk mencapai suatu tujuan yaitu menyajikan informasi (Ladjamudin,2005). c. Sistem merupakan sekumpulan yang terdiri dari orang, sumber daya, konsep dan prosedur yang dilaksanakan fungsi yang dapat dikenal dan melaksanakan suatu perintah ( Amsyah,1997).

Informasi mempunyai definisi yang sangat banyak menurut beberapa ahli,diantaranya:

a. Informasi adalah data yang diolah menjadi bentuk yang lebih berguna dan lebih berarti bagi yang menerimanya. b. Informasi adalah data yang telah di proses, atau data yang telah memiliki arti.

Berdasarkan pengertian diatas dapat disimpulkan bahwa sumber dari informasi adalah data. Data adalah kumpulan dari angka dan fakta yang relatif tidak berarti bagi pemakai.


2.2

Pengertian Sistem Informasi

Sistem informasi juga mempunyai definisi yang sangat banyak menurut beberapa ahli. Diantaranya :

a. Sistem informasi adalah suatu sistem yang bekerja untuk membantu manusia secara umum terdiri atas kumpulan komponen berbasis computer manual yang di buat untuk menghimpun, menyimpan dan mengolah serta menyediakan informasi keluaran kepada para pemakai atau pengguna yang lebih bermanfaat lagi (Jogianto, 1991) b. Sistem informasi sebagai suatu kerangka kerja dengan sumber daya (manusia dan komputer) di koordinasikan untuk mengubah masukan (data) menjadi keluaran (informasi) guna mencapai sasaran perusahaan (Amsyah,1997).

2.3

Data dan Informasi

Sering terjadi salah pengertian antara istilah data dan informasi. Tetapi sebenarnya terdapat perbedaan pada kedua istilah tersebut, bila ditinjau dari sisi fungsi dan kegunaannya.

Data merupakan bahan baku yang diolah untuk memberikan informasi. Sedangkan informasi di dalam proses penggunaannya dihadapkan kepada masalah pengambilan keputusan. Karena itu informasi dapat dianggap memiliki tingkat yang lebih tinggi dan aktif dibandingkan dengan data (Fathansyah,2007).

Perbedaan antara data dan informasi sering menjadi titik awal untuk memahami sistem informasi. Kebanyakan orang mengartikan data dan informasi dengan pengertian yang sama. Namun bagi kajian ilmiah atau bagi kaum profesional dua pengertian ini mengandung perbedaan mendasar.

Data adalah kenyataan yang menggambarkan suatu kejadian-kejadian dan kesatuan nyata. Kejadian-kejadian (event) adalah sesuatu yang terjadi pada saat


tertentu. Manfaat data adalah sebagai satuan representasi yang dapat diingat, direkam dan dapat diolah menjadi informasi. Karakteristiknya, data bukanlah fakta, namun representasi dari data (Ladjamudin,2005).

Informasi adalah data yang diolah menjadi bentuk yang lebih berguna dan lebih berarti bagi yang menerimanya. Manfaat informasi adalah mengurangi ketidakpastian. Hal ini sangat berguna untuk proses pengambilan keputusan. Karakteristik dari informasi adalah penerima informasi mengalami perubahan dari kondisi (state) sebelum diketahui. Perubahan ini mengandung unsur tidak terduga. Informasi dapat juga dikatakan sebagai data yang telah diproses, yang telah mempunyai nilai tentang tindakan atau keputusan. Hubungan antar data dengan informasi adalah seperti bahan baku sampai dengan barang jadi (Jogianto,1991).

Penyimpanan data

Data

Pengelola

informasi

Gambar 2.1 Transformasi data menjadi informasi

Data yang diolah melalui suatu model menjadi informasi, penerima kemudian menerima informasi tersebut, membuat suatu keputusan dan melakukan tindakan, yang berarti menghasilkan tindakan yang lain yang akan membuat sejumlah data kembali. Data tersebut akan ditangkap sebagai input, diproses kembali lewat suatu model dan seterusnya membentuk suatu siklus. Siklus ini oleh John Burch disebut siklus informasi (infrormation cycle). Siklus ini disebut juga dengan siklus pengolahan data (data processing cycles).


Gambar 2.2. Siklus Informasi

2.4

Pangkalan Data

Database terdiri dari dua kata, yaitu Data dan Base. Base yaitu sebagai markas atau gudang, tempat berkumpul (Fathansyah,2007). Sedangkan Data yaitu representasi fakta dunia nyata yang mewakili suatu objek seperti manusia (pegawai, siswa, pembeli, dan lain-lain), barang, hewan, peristiwa, keadaan, yang direkam dalam bentuk angka, huruf, simbol, teks, suara, gambar, bunyi atau kombinasinya (Fathansyah,2007).

Oleh karena itu Database yaitu kumpulan dari data yang saling berhubungan satu dengan yang lainnya, tersimpan di perangkat keras komputer dan digunakan perangkat lunak untuk memanipulasinya (Mahyuddin,1994).

Sistem pengolahan basis data (Data Base Management System, DBMS) adalah kumpulan file yang saling berkaitan dengan program untuk mengolah suatu basis data sehingga dapat menerima dan menyediakan bagi berbagai pemakai dengan berbagai keperluan (Kristianto,1994).


DBMS berisi suatu data yang saling berelasi dan satu set program pengolahan untuk mengakses data tersebut. DBMS terdiri dari database dan set program untuk menambah

data,

menghapus

data

dan

melaporkan

data

dalam

database

(Fathansyah,2007).

Berikut dijelaskan defenisi istilah yang berkaitan dengan database :

1. Entiti (kesatuan) Elemen atau bagian dalam enterprise (badan) yang keterangannya direkam. 2. Atribut Sesuatu yang menjelaskan ciri/sifat suatu watak atau entiti yang dipilih untuk direkam. Atribut ini juga dapat disebut sebagai elemen data, medan (field) data. Atribut ini merupakan satuan terkecil dari data yang mempunyai arti bagi pemakai data. 3. Record Data Sekumpulan “harga data” yang berhubungan dalam satu entiti. 4. Elemen Data Kunci Elemen data yang berdasarkan harganya dapat diketahui dengan harga elemen data lainnya dalam satu entiti. Dengan kata lain medan kunci adalah pengenal suatu record.

2.4.1. Komponen Pangkalan Data

Dalam sebuah sistem database, terdapat komponen utama dari database, yaitu:

1. Perangkat Keras (Hardware) seperti : a. Komputer (satu untuk sistem yang stand–alone atau lebih dari satu untuk sistem jaringan). b. Memory sekunder yang on-line (hardisk). c. Memory sekunder yang off-line (tape atau removeable disk) untuk keperluan backup data. d. Media/perangkat komunikasi (untuk sistem jaringan).


2. Sistem Operasi Merupakan program yang mengaktifkan/memfungsikan sistem komputer, mengendalikan seluruh sumber daya dalam komputer dan melakukan operasi– operasi dasar dalam komputer (operasi I/O, pengelolaan file dan lain–lain). 3. Database Disamping berisi / menyimpan data, setiap database juga mengandung / menyimpan definisi struktur (baik untuk database maupun objek–objeknya secara detail). 4. Sistem Pengelola Basis Data (Database Management System/DBMS) 5. Pemakai/user 6. Aplikasi (perangkat lunak) Bersifat opsional, artinya ada/tidaknya tergantung pada kebutuhan kita.

2.5

Perancangan Sistem

Kebutuhan informasi yang berkaitan dengan penggunaan fasilitas sistem komputer memerlukan banyak aktifitas, sejak dari perencanan, pembangunan dan penerapan. Hal ini tidak terlepas dari langkah–langkah aktifitas yang harus diperhatikan dalam pembangunan suatu sistem informasi, disamping unsur perangkat keras dan perangkat lunaknya.

Perancangan sistem informasi merupakan salah satu unsur atau penahapan dari keseluruhan pembangunan komputerisasi. Tanpa adanya rancangan sistem ini maka akan sangat sulit sekali untuk membangun sebuah sistem sesuai dengan yang diinginkan. Rancangan sistem ini adalah bagian yang paling utama dalam pembangunan sistem komputerisasi.

Tahapan–tahapan seperti di atas dikerjakan oleh seorang analis sistem yaitu yang bertanggung jawab menerjemahkan kebutuhan–kebutuhan pemakai ke dalam spesifikasi teknis rancangan sistem yang diperlukan oleh programmer.


Seorang analis sistem harus mempunyai pengetahuan yang luas dan keahlian yang khusus untuk menggambarkan keadaan sistem dan masalah-masalah yang ada pada sistem berjalan, menyatakan sasaran yang harus dicapai untuk memenuhi kebutuhan pemakai, memilih alternatif metode pemecahan masalah yang paling tepat dan merencanakan serta menerapkan rancangan sistemnya (Ladjamudin,2005).

Merancang sistem adalah membuat usulan pemecahan masalah secara logika dan usulan biaya. Sasaran utamanya adalah menentukan langkah-langkah operasi dalam proses pengolahan data, menentukan prosedur–prosedur untuk mendukung operasi sistem.

Untuk merancang sistem maka diperlukan alat bantu seperti :

a.

Flowchart (diagram alir) Untuk menggambarkan logika dari program yang akan dibuat.

b. Data Flow Diagram (DFD) Data Flow Diagram (DFD) adalah representasi grafik dari sebuah sistem, yang menggambarkan komponen sebuah sistem, aliran data diantara komponen tersebut, asal, tujuan dan penyimpanan dari data tersebut. DFD mempunyai beberapa keuntungan, antara lain : a. Membagi,menyusun sistem ke dalam bagian yang lebih kecil atau yang sederhana. b. Mendukung pendekatan moduler yang menggunakan kontrol data yang lebih untuk penyusunan sistem dan desain sistem.


Simbol-simbol yang digunakan pada DFD:

Tabel 2.1. Simbol DFD No 1

Simbol

Keterangan Kesatuan luar (external entity). Kesatuan luar (external entity) merupakan kesatuan di lingkungan luar sistem yang dapat berupa orang, organisasi atau sistem lainnya yang berada di lingkungan luarnya yang akan memberikan input atau menerima output dari sistem.

2

Arus data (data flow) Arus data di DFD berupa simbol panah. Arus data mengalir diantara proses (process), simpanan data (data store) dan kesatuan luar (external entity). Arus data ini menunjukkan arus dari data yang berupa masukan untuk sistem atau hasil dari proses sistem.

3

Proses (process) Suatu proses adalah kegiatan yang dilakukan oleh orang, mesin atau komputer dari hasil suatu arus data yang masuk ke dalam proses untuk dihasilkan arus data yang akan keluar dari proses.

4

Simpanan data (data store)Simpanan data merupakan simpanan dari data yang dapat berupa file atau database,arsip, tabel acuan manual dan agenda buku


BAB 3

PERANCANGAN SISTEM

3.1 Perancangan

Perancangan sistem adalah penggambaran, perencanaan pembuatan sketsa atau pengaturan beberapa elemen yang terpisah kedalam satu kesatuan yang utuh dan berfungsi (Tavri D,1994).

3.1.1 Model Analisis Perangkat Lunak

Model sistem yang akan dirancang akan disajikan dalam Diagram konteks dan Diagram Aliran Data (DAD). Dengan DAD secara logika dapat diketahui kebutuhan sistem serta kesatuan yang terlibat dalam Perangkat Lunak yang dirancang.

DAD merupakan alat yang biasa dipakai untuk mendokumentasikan proses dalam sistem. DAD menekankan pada fungsi-fungsi dalam sistem, cara menggunakan informasi yang tersimpan dan pemindahan informasi antarfungsi di dalam sistem. DAD konteks adalah DAD yang memperlihatkan sistem sebagai sebuah proses yang bertujuan untuk memberika pandangan secara umum terhadap sistem. DAD konteks memperlihatkan sebuah proses yang berinteraksi dengan lingkungannya. Ada pihak luar atau lingkungan yang memberikan masukan dan ada pihak yang menerima keluaran sistem. Dalam hal ini pihak luar (sering disebut terminator) dapat berupa sistem lain, suatu perangkat keras, orang atau organisasi.


3.1.2 Diagram Konteks

Pada diagram konteks di bawah ini terlihat ada 4 (empat) entity yang terdapat pada Perangkat Lunak yang akan dibangun yaitu Pengguna, Sistem Informasi Panti Abdi Dharma Asih Binjai, Administrator dan Kepala UPTD seperti disajikan dalam gambar 3.1 berikut ini:

PENGGUNA

Data Mutasi Warga, Data Dinas, Data Sumbangan, Data Berobat, Data Penyumbang,

Sistem Informasi Panti Abdi Dharma Asih BINJAI

Laporan

KEPALA UPTD

Data Warga, Data Pegawai, Data Dokter, Data Barang, Data Password

ADMINISTRATOR

Gambar 3.1 Diagram Konteks Diagram konteks dapat dipisahkan ke dalam level yang merepresentasikan Aliran data yang lebih mendetail lagi yang dibagi dalam beberapa proses.

Dari perancangan perangkat lunak pada diagram konteks di atas dapat diturunkan lagi untuk mendapatkan hasilnya, yang dimulai dari pemasukan data-data antara lain: Data Warga, Data Mutasi Warga, Data Barang, Data Pegawai, Data Dinas, Data Dokter, Data Berobat Warga, Data Sumbangan, Data Penyumbang serta pembuatan laporan.

3.1.3 Diagram Aliran Data (DAD)

Diagram konteks diatas bisa diturunkan menjadi Diagram Aliran Data Level 1 untuk mengetahui proses yang lebih detail yang terjadi pada sistem yang sedang dirancang. Proses-proses yang dimaksud adalah untuk mengetahui kebutuhan sistem agar menghasilkan keluaran yang sesuai dengan rencana perancangan.


DAD Level-1

DAD Level-1 ini menceritakan proses mulai dari awal sampai akhir yaitu pelaporan. DAD ini terdiri dari proses Registrasi Warga, proses Mutasi Warga, proses Berobat Warga, proses Master Barang, proses Master Pegawai yang bertugas, Master Dokter yang bertugas, Dinas Pegawai, proses Penerimaan Sumbangan dan Penyumbang. DAD Level 1 dapat dilihat gambar 3.2


ADMINISTRATOR

Proses Master Pegawai

Bio Data Pegawai

Simpan

Data Master Pegawai

Bio Data Dokter

Proses Master Dokter

Bio Data Password

Simpan

Data Master Dokter Simpan

Proses Master Password

Data Master Password

Bio Data Warga

Proses Registrasi Warga

PENGGUNA

Simpan

Data Mutasi Warga

Proses Mutasi Warga

Data Berobat

Data Sumbangan Penyumbang

Proses Data Berobat Proses Sumbangan Penyumbang

Bio Data Barang

Simpan

Simpan

Simpan

Simpan

Data Registerasi Warga Data Mutasi Warga

Data Berobat

Data Sumbangan

Data Penyumbang

Simpan

Proses Master Barang

Data Master Barang

Data

KEPALA UPTD

Proses Pelaporan

Laporan Gambar 3.2 Diagram Aliran Data Level 1


3.2 Rancangan Pangkalan data

Sistem manajemen pangkalan data adalah satu perangkat software yang terintegrasi untuk mengontrol dan mengatur data dalam pangkalan data. Pangkalan data menangani permintaan dari pogram aplikasi yang dihasilkan dari bahasa khusus yang di Data Manipulation Language (DML).

3.2.1. Relasi Pangkalan Data

Relasi antar tabel yang terjadi pada tabel di atas, dapat dilihat pada Gambar 3.6. Relasi ini menggambarkan hubungan antara satu tabel dengan tabel yang lain apakah hubungan satu dengan satu, satu dengan banyak dan banyak dengan banyak. Adapun relasi antar tabel adalah sebagai berikut : 1

1 1 1 

1

  1

 1

1

1 Hubungan Satu



 Hubungan Banyak Gambar 3.3. Relasi Antar Tabel.


3.2.2 Struktur Database

Dalam perancangan ini diperlukan database yang berfungsi sebagai penampung data masukan yang akan diolah menjadi data keluaran. Sistem database yang digunakan adalah Ms Access 2000, dengan nama dbPanti. Adapun tabel-tabel dalam Aplikasi ini adalah sebagai berikut :

1. Tabel tWarga Tabel ini berfungsi untuk menampung input biodata warga. Tabel 3.1 tWarga Nama Field

Tipe Field

Size

Keterangan

IDWarga

Number

5

Nomor ID Warga Panti

TglLahir

Date

8

Tanggal Lahir Warga Panti

NmWarga

Text

30

Nama Warga Panti

TglMasuk

Date

8

Tanggal Masuk Panti

KdAgama

Text

1

Kode Agama

JK

Text

1

Jenis Kelamin

ST

Text

1

Status Perkawinan

STMutasi

Text

1

Status Mutasi

KdKamar

Text

3

Kode Kamar

NmPJawab

Text

30

Nama Penanggung Jawab

AlmtPJawab

Text

30

Alamat Penaggung Jawab

KotaPJawab

Text

30

Kota Penaggung Jawab

NoTelpPJawab

Text

13

NoTelp Penaggung Jawab

Keterangan : Primary Key = ID


2. Tabel tPegawai Tabel ini berfungsi untuk menampung inputan yang bersangkutan dengan data pegawai yang bertugas pada panti. Tabel 3.2 tPegawai Nama Field

Tipe Field

Size

Keterangan

NIP

Number

9

Nomor Induk Pegawai

NmPegawai

Text

30

Nama Pegawai

TglLahir

Date

8

Tanggal Lahir

JK

Text

1

Jenis Kelamin

ST

Text

1

Status Perkawinan

Keterangan : Primary Key = NIP

3. Tabel tKamar Table ini berfungsi untuk menampung inputan yang bersangkutan dengan data kamar. Tabel 3.3 tKamar Nama Field

Tipe Field

Size

Keterangan

KdKamar

Text

3

Kode Kamar

NmKamar

Text

30

Nama Kamar

STKamar1

Text

1

Status Kamar 1

STKamar2

Text

1

Status Kamar 2

Keterangan : Primary Key = Kd Kamar

4.

Tabel tDokter Tabel ini berfungsi untuk menampung masukan data dokter yang bertugas pada panti. Tabel 3.4 tDokter Nama Field

Tipe Field

Size

Keterangan

KdDokter

Text

3

Kode Dokter

NmDokter

Text

30

Nama Dokter

NIP

Text

9

Nomor Induk Pegawai

Keterangan : Primary Key = Kd Dokter


5. Tabel tBarang Tabel ini berfungsi untuk menampung inputan data barang sumbangan. Tabel 3.5 tBarang Nama Field

Tipe Field

Size

Keterangan

KdBarang

Text

4

Kode Barang

NmBarang

Text

50

Nama Barang

Satuan

Text

50

Satuan Barang

Kemasan

Text

50

Kemasan Barang

Keterangan : Primary Key = Kd Barang

6. Tabel tPassword Tabel ini berfungsi untuk menampung master data passwordpengguna aplikasi. Tabel 3.6 tPassword Nama Field

Tipe Field

Size

Keterangan

UserID

Text

10

Nama Pengguna

Passwd

Text

10

Kata Kunci Pengguna

Keterangan : Primary Key = Kd Password

7. Tabel tBerobat Tabel ini berfungsi untuk menampung data berobat warga panti. Tabel 3.7 tBerobat Nama Field

Tipe Field

Size

Keterangan

IDBerobat

Number

5

Nomor ID Berobat warga

IDWarga

Number

5


TglBerobat

Date

8

Tanggal Berobat

KDDokter

Text

3

Kode Dokter

Diagnosa

Text

50

Hasil Diagnosa penyakit Warga

Keterangan : Primary Key = Kd Berobat

8. Tabel tDinas


Tabel ini berfungsi untuk menampung data dinas pegawai UPTD pada panti. Tabel 3.8 tDinas Nama Field

Tipe Field

Size

Keterangan

IDDinas

Number

5

Nomor ID Dinas

TglDinas

Date

8

Tanggal Dinas

NIP

Text

9

Nomor Induk Pegawai

Keterangan : Primary Key = Kd Dinas

9. Tabel tMutasi Tabel ini berfungsi untuk menampung data mutasi warga panti. Tabel 3.9 tMutasi Nama Field

Tipe Field

Size

Keterangan

IDMutasi

Number

5

Nomor ID Mutasi

IDWarga

Number

5


TglMutasi

Date

8

Tanggal Mutasi warga panti

StatusMutasi

Text

1

Status mutasi

Alasan

Text

50

Alasan mutasi

Keterangan : Primary Key = Kd Mutasi

10. Tabel tPenyumbang Tabel ini berfungsi untuk menampung data penyumbang panti. Tabel 3.10 tPenyumbang Nama Field

Tipe Field

Size

Keterangan

IDPenyumbang

Number

5

Nomor ID Penyumbang

NmPenyumbang

Text

30

Nama Penyumbang

Alamat

Text

50

Alamat Penyumbang

Kota

Text

50

Kota Asal Penyumbang

Keterangan : Primary Key = Kd Penyumbang

11. Tabel tSumbangan


Tabel ini berfungsi untuk menampung data sumbangan untuk panti. Tabel 3.11 tSumbangan Nama Field

Tipe Field

Size

Keterangan

IDPenyumbang

Number

5

Nomor ID Penyumbang

IDSumbangan

Number

5

Nomor ID Sumbangan

KdBarang

Text

4

Kode Barang

NIP

Text

9

Nomor Induk Pegawai

TglSumbangan

Date

8

TglSumbangan

Banyak

Number

5

Banyak Sumbangan

Ket

Text

50

Keterangan Sumbangan

Keterangan : Primary Key = Kd Sumbangan

3.3. Rancangan Antar Muka

Rancangan antar muka (User Interface) berfungsi sebagai penghubung antara pemakai dengan sistem. Dalam rancangan antar muka terdapat menu-menu untuk memasukkan (input) data dan keluaran (output) data sebagai laporan atau daftar.

3.3.1 Rancangan Masukan (Input) Rancangan Masukan adalah rancangan tempat pemasukan data ke sistem yang terdiri dari Menu Utama, Warga, Barang, Dokter, Password, Mutasi, Berobat, Dinas dan Sumbangan.

3.3.1.1 Rancangan Form Login

Rancangan Login berfungsi sebagai media pemasukan data Nama Pengguna dan password untuk pemakai. Rancangan Login dapat dilihat seperti pada gambar 3.4.

User Name

XXXXXXXXX

Password

XXXXXXXXX


Gambar 3.4 Rancangan Form Login

3.3.1.2 Rancangan Menu Utama

Rancangan Menu Utama merupakan tampilan yang pertama kali muncul saat program dijalankan. Pada rancangan

ini terdapat

menu Penngguna, menu Administrator,

Pelaporan, Help dan Keluar.. Rancangan Menu Utama terlihat seperti pada gambar 3.5.

Pengguna

Administrator

Pelaporan

Help

Keluar

Animasi Judul Tugas Akhir

Gambar Pembukaan

Nama Penulis NIM

Gambar 3.5 Rancangan Menu Utama

3.3.1.3 Rancangan Form Warga


Rancangan Form Warga berfungsi sebagai media pemasukan data warga panti. Rancangan form Warga dapat dilihat seperti pada gambar 3.6. ID Warga

xxxxxx

Data Warga Nama

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Tgl Lahir

dd-mm-yyyy

Agama

xxxxxxxxxxxxxxx

Umur

99

TglMasuk

dd-mm-yyyy

Jen.kelamin

xxxxxxxxxxxx

StatusKawin xxxxxxxxxxxxxxx Data Penanggung Jawab Nama

xxxxxxxxxxxxxxxxxxxxxxxxx

Kota

xxxxxxxxxxxxxxxx

Alamat

xxxxxxxxxxxxxxxxxxxxxxxx

No Telp

xxxxxxxxxxxxxxxx

Tambah

Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA WARGA

Gambar 3.6 Rancangan Form Warga

3.3.1.4 Rancangan Form Barang

Rancangan Form Barang berfungsi sebagai media pemasukan data-data master Barang sumbangan. Rancangan Form Barang dapat dilihat seperti pada gambar 3.7.

Kode Barang

XXXX

Nama Barang

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Satuan


Novita Khairunisa E. : Sistem Informasi Rehabilitasi Panti Jompo Pada Panti Sosial Tresna Werdha Abdi Binjai, 2009. USU Repository © 2009 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Kemasan

3.3.1.5 Rancangan Form Dokter

Rancangan Form Dokter berfungsi sebagai media pemasukan data-data Dokter yang bekerja pada panti. Rancangan Form Dokter dapat dilihat seperti pada gambar 3.8.

Tambah

Kode

XXXX

NIP

XXXXXXXXX

Nama Dokter


Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA DOKTER

Gambar 3.8 Rancangan Form Dokter

3.3.1.6 Rancangan Form Dinas

Rancangan Form Dinas berfungsi sebagai media pemasukan data-data pegawai yang berdinas pada panti. Rancangan Form Dinas dapat dilihat seperti pada gambar 3.9.


ID Dinas

XXX

NIP

XXXXXXXX

Tanggal

dd-mm-yyyy

Tambah

Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA DINAS

Gambar 3.9 Rancangan Form Dinas

3.3.1.7 Rancangan Form Password

Rancangan Password berfungsi sebagai media pemasukan master data password untuk pemakai. Rancangan Password dapat dilihat seperti pada gambar 3.11. User Name

XXXXXXXXX

Password

XXXXXXXXX

Tambah

Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA PASSWORD

Gambar 3.11 Rancangan Form Password

3.3.1.8 Rancangan Sumbangan

Rancangan Sumbangan berfungsi sebagai media pemasukan data sumbangan buat panti. Rancangan Sumbangan dapat dilihat seperti pada gambar 3.12. No. Sumbangan

xxxxxx

Nama Penyumbang

XXXXXXXXXXXXXXXXXXXXXXX

Alamat Penyumbang


Kota Penyumbang


No ID

xxxxxx

Tanggal

dd-mm-yyyy


3.3.1.9 Rancangan Form Mutasi

Rancangan Form Mutasi berfungsi sebagai media pemasukan data mutasi warga panti. Rancangan form Mutasi dapat dilihat seperti pada gambar 3.13. No ID Mutasi

xxxxxx

ID Warga

xxxxxx

Tgl Mutasi

dd-mm-yyyy

Data Warga Nama

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Jen.kelamin Agama Agama

xxxxxxxxxxxxxxx

Status Kawin

xxxxxxxxxxxx

xxxxxxxxxxxxxxx

Alasan

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Tambah

Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA MUTASI WARGA

Gambar 3.13 Rancangan Form Mutasi 3.3.1.10 Rancangan Form Berobat


Rancangan Form Berobat berfungsi sebagai media pemasukan data berobat warga panti. Rancangan form Berobat dapat dilihat seperti pada gambar 3.14. ID Berobat

xxxxxx

xxxxxx

ID Warga

Tgl Berobat

dd-mm-yyyy

Data Warga Nama

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Jen.kelamin Agama Agama

xxxxxxxxxxxxxxx

Dokter

xxxxxxxxxxxxxxx

Diagnosa

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Tambah

Status Kawin

xxxxxxxxxxxx

xxxxxxxxxxxxxxx

Cari

Ubah

Hapus

Batal

Keluar

GRID DATA-DATA BEROBAT

Gambar 3.14 Rancangan Form Berobat

3.3.2 Rancangan Output (Keluaran) 3.3.2.1 Rancangan Daftar Warga

Rancangan Daftar Warga adalah rancangan keluaran yang berisi data-data warga yang ada pada panti. Rancangan Daftar Warga dapat dilihat seperti pada gambar 3.15.

LOGO Panti

LAPORAN WARGA

Novita Khairunisa E. : Sistem Informasi Rehabilitasi Panti Jompo Pada Panti Sosial Tresna Werdha Abdi Binjai, 2009. TglMasuk JnsKel No© 2009 TglLahir StKwn Agama No Id NmWarga USU Repository

mn

3.3.2.2 Rancangan Laporan Berobat

Rancangan Laporan Berobat adalah rancangan keluaran yang berisi data-data berobat warga. Rancangan Laporan Berobat dapat dilihat seperti pada gambar 3.16. LOGO Panti

LAPORAN BEROBAT

JnsKel mn

Diagnosa

No

No Id

NmWarga

Tanggal

NmDokter

x

xxx xx xxx xx xxx xx xxx xx

xxxxxxx x

dd-mm-yyyy

xxxxxxxxxx

xxxxx xyyy

xxxxxxxxx x

xxxxxxx x

dd-mm-yyyy

xxxxxxxxxx

xxxxx xyyy

xxxxxxxxx x

xxxxxxx x

dd-mm-yyyy

xxxxxxxxxx

xxxxx xyyy

xxxxxxxxx x

xxxxxxx x

dd-mm-yyyy

xxxxxxxxxx

xxxxx xyyy

xxxxxxxxxx

x x x

Binjai, dd-mm-yyyy AN Ka UPTD Nama/NIP

Gambar 3.16 Rancangan Laporan Berobat 3.3.2.3 Rancangan Laporan Mutasi


Rancangan Laporan Mutasi adalah rancangan keluaran yang berisi data-data mutasi warga. Rancangan Laporan Mutasi dapat dilihat seperti pada gambar 3.17. LOGO Panti No x x x x

IdMutasi

xxx xx xxx xx xxx xx xxx xx

LAPORAN MUTASI

NmWarga

TglMasuk

StMutasi

Alasan

xxxxx xyyy

xxxxxxxxx x

xxxxxxxxx x

xxxxxxxxx x

xxxxx xyyy

xxxxxxxxx x

xxxxxxxxx x

dd-mm-yyyy

xxxxxxxxx x

xxxxx xyyy

xxxxxxxxx x

xxxxxxxxx x

dd-mm-yyyy

xxxxxxxxx x

xxxxx xyyy

xxxxxxxxxx

xxxxxxxxxx

TglMutasi

IDWarga

xxxxxxx x

dd-mm-yyyy

xxxxxxxxx x

xxxxxxx x

dd-mm-yyyy

xxxxxxx x xxxxxxx x

Binjai, dd-mm-yyyy AN Ka UPTD Nama/NIP

Gambar 3.17 Rancangan Laporan Mutasi

3.3.2.4 Rancangan Laporan Sumbangan

Rancangan Laporan Sumbangan adalah rancangan keluaran yang berisi data-data sumbangan penderma bago panti. Rancangan Laporan Sumbangan dapat dilihat seperti pada gambar 3.18.

LOGO Panti

LAPORAN SUMBANGAN

Novita Khairunisa E. : Sistem Informasi Rehabilitasi Panti Jompo Pada Panti Sosial Tresna Werdha Abdi Binjai, 2009. Nm USU Repository © 2009 NmBrg Kemsn Banyak Ket Penerima No Id IdPenyumbang Penyumbang

3.3.2.5 Rancangan Help

Rancangan Help adalah tampilan sederhana yang hanya memiliki satu tombol yaitu tombol Keluar. Rancangan hanya menampilkan informasi tentang tata cara pengoperasian aplikasi yang dijelaskan tahap demi tahap. Untuk lebih jelasnya dapat dilihat pada gambar 3.19.

Judul Tugas Akhir Tata Cara Pengoperasian Sistem

Keluar

Gambar 3.19 Rancangan Help

3.2.3.7 Rancangan form About


Rancangan About adalah tampilan sederhana yang hanya memiliki satu tombol yaitu tombol Keluar. Rancangan ini berguna untuk menampilkan informasi tentang profil penulis. Profil penulis meliputi biodata penulis serta data-data akademik. Untuk lebih jelasnya dapat dilihat pada gambar 3.20.

Judul Tugas Akhir

Profil Penulis Tugas Akhir Keluar

Gambar 3.20 Rancangan Form About


BAB 4

IMPLEMENTASI

4.1 Implementasi

Database yang telah selesai dibuat melalui Microsoft Access Database diolah dan dimanipulasi melalui bahasa program Microsoft Visual Basic 6.0 sehingga menghasilkan informasi sesuai dengan yang diinginkan oleh pemakai.

Visual basic dijadikan sebagai bahasa pemrograman karena disamping kemudahan dalam pembuatan program juga kemampuan memanipulasi data yang cukup canggih. Maka Implementasi perangkat lunak ini menggambarkan hasil program yang sudah dirancang pada BAB 3 di atas.

4.2. Tampilan Program

Adapun tampilan program ini adalah sebagai berikut :

1. Tampilan Login Pada aplikasi ini tampilan yang pertama sekali tampil pada layar komputer adalah tampilan login seperti pada gambar 4.1.


Gambar 4.1 Tampilan Login 2. Tampilan Menu Utama Tampilan menu utama adalah tampilan tempat menu-menu program aplikasi yang telah dirancang. Tampilan ini terdiri dari Judul Aplikasi, Gambar latar belakang serta nama penulis. Tampilan menu utama dapat dilihat pada gambar 4.2.

Gambar 4.2 Tampilan Menu Utama 3. Tampilan Registrasi Warga


Tampilan ini berfungsi tempat pengisian data-data warga pada panti. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta

tombol Keluar berfungsi untuk menutup

tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan Registrasi Warga dapat dilihat pada gambar 4.6.

Gambar 4.6 Tampilan Registrasi Warga 4. Tampilan Mutasi Tampilan ini berfungsi tempat pengisian data-data mutasi warga panti. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta



tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data mutasi yang telah dimasukkan sebelumnya. Tampilan Mutasi dapat dilihat pada gambar 4.3.

Gambar 4.3 Tampilan Mutasi

5. Tampilan Berobat Tampilan ini berfungsi tempat pengisian data-data berobat warga panti. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta tombol Keluar berfungsi untuk menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data berobat yang telah dimasukkan sebelumnya. Tampilan Berobat dapat dilihat pada gambar 4.4.


Gambar 4.4 Tampilan Berobat

6. Tampilan Dinas Tampilan ini berfungsi tempat pengisian data harian pegawai yang berdinas pada panti. Pada form ini enam buah tombol yang memiliki fungsi masingmasing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta

tombol Keluar berfungsi untuk

menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data dinas yang telah dimasukkan sebelumnya. Tampilan Dinas dapat dilihat pada gambar 4.5.

Gambar 4.5 Tampilan Dinas 7. Tampilan Data Kamar


Tampilan ini berfungsi tempat pengisian data kamar untuk warga panti. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta


tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan berobat dapat dilihat pada gambar 4.6.

Gambar 4.6 Tampilan Registrasi Warga 8. Tampilan Data Sumbangan Tampilan ini berfungsi tempat pengisian data-data penyumbang dan sumbangan yang diterima panti. Pada form

ini enam buah tombol yang

memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya,


tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta tombol Keluar berfungsi untuk menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan data sumbangan dapat dilihat pada gambar 4.7.

Gambar 4.7 Tampilan Data Sumbangan

9. Tampilan Data Barang Tampilan ini berfungsi tempat pengisian data-data barang yang diterima panti dari penyumbang. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta tombol Keluar berfungsi untuk menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan data barang dapat dilihat pada gambar 4.8.


Gambar 4.8 Tampilan Data Barang

10. Tampilan Data Pegawai Tampilan ini berfungsi tempat pengisian data-data pegawai yang bertugas pada panti. Pada form ini enam buah tombol yang memiliki fungsi masingmasing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta


menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan data pegawai dapat dilihat pada gambar 4.9.


Gambar 4.9 Tampilan Data Pegawai

11. Tampilan Data Dokter Tampilan ini berfungsi tempat pengisian data-data dokter yang bertugas pada panti. Pada form ini enam buah tombol yang memiliki fungsi masing-masing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta


menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan data dokter dapat dilihat pada gambar 4.10.


Gambar 4.10 Tampilan Data Dokter

12. Tampilan Data Password Tampilan ini berfungsi tempat pengisian data-data password yang bertugas pada panti. Pada form ini enam buah tombol yang memiliki fungsi masingmasing. Tombol Tambah berfungi untuk memasukkan data baru, tombol Cari untuk mencari data yang sudah disimpan sebelumnya, tombol Ubah untuk melakukan perubahan data, tombol Hapus untuk menghapus data, tombol Batal untuk melakukan pembatalan serta


menutup tampilan dan kembali ke menu utama. Pada bagian bawah tampilan ini terdapat grid data-data yang telah dimasukkan sebelumnya. Tampilan data password dapat dilihat pada gambar 4.11.


Gambar 4.11 Tampilan Data Password 13. Tampilan Laporan Data Warga Tampilan Laporan Data Warga ini berisi data-data warga panti yang masih aktif. Tampilan Daftar Warga dapat dilihat pada gambar 4.12.

Gambar 4.12 Tampilan Laporan Data Warga 14. Tampilan Laporan Berobat Tampilan Laporan Berobat berisi data-data warga panti yang berobat. Tampilan Laporan Berobat dapat dilihat pada gambar 4.13.


Gambar 4.13 Tampilan Laporan Berobat Warga

15. Tampilan Laporan Mutasi Warga Tampilan Laporan Mutasi berisi data-data perpindahan warga warga panti yang berobat. Tampilan Laporan Mutasi Warga dapat dilihat pada gambar 4.14.

Gambar 4.14 Tampilan Laporan Mutasi Warga

16. Tampilan Laporan Sumbangan Tampilan Laporan Sumbangan berisi data-data sumbangan yang diterima. Tampilan Laporan Sumbangan dapat dilihat pada gambar 4.15.


Gambar 4.15 Tampilan Laporan Sumbangan

17. Tampilan Content Tampilan Content berisi keterangan atas tugas akhir ini. Tampilan Content dapat dilihat pada gambar 4.16.

Gambar 4.16 Tampilan Content

18. Tampilan About Tampilan About berisi keterangan atas tugas akhir ini. Tampilan about dapat dilihat pada gambar 4.17.


Gambar 4.17 Tampilan About


BAB 5

KESIMPULAN DAN SARAN

1.1

Kesimpulan

Adapun kesimpulan penulis dari penelitian ini adalah sebagai berikut :

1. Sistem yang berjalan selama nini pada dasarnya sudah memiliki sistem pengolaan data yang baik,namun masih terdapat kekurangan yaitu masih belum terpadu antar file database (belum terintegrasi). 2. Dengan menggunakan aplikasi pengolahan data pada data di Panti Sosial maka akan mempermudahdalam melakukan pengolahan data. 3. Sistem informasi yang penulis buat menggunakan bahasa pemrograman visual basic 6.0

1.2

Saran

Adapun saran yang akan penulis usulkan untuk meningkatkan sistem pengolahan data pada Dinas Sosial Provinsi Sumatera Utara:

1. Dengan adanya program yang telah dihasilkan dapat dipergunakan dengan sebaik-baiknya. Dimana dapat membantu para pegawai dalam melakukan pengolahan data dan pencarian informasi di Panti Sosial Tresna Werdha Abdi Binjai. 2. Melakukan training pelatihan para pegawai khususnya kepada pegawai yang nantinya menjadi operator sistem yang telah dirancang. 3. Program yang telah dirancang dapat

dikembangkan kembali untuk

mendapatkan hasil yang lebih baik dan yang lebih sempurna lagi yang sesuai dengan kemajuan teknologi.



DAFTAR PUSTAKA

Amsyah, Zulkifli, 1997, Manajamen Sistem Informasi , Jakarta: Gramedia Pustaka Umum. Fathansyah, 2007, Basis Data, Bandung, Penerbit Informatika. Jogianto, Hartono, 1991, Ananlisis dan Desain Sistem Informasi, Andi Yogyakarta. Kristianto, Harianto, 1994, Konsep dan Perancangan Database, Yogyakarta. Kurniadi, Adi, 2004, Pemograman Microsoft Visual Basic 6, Jakarta ; PT. Elex Media Komputido. Ladjamudin, bin Al-Bahra, 2005, Analisis dan Desain Sistem Informasi, Yogyakarta, Penerbit Graha Ilmu. M. Agus, J. Alam, 1999. Managemen Data Base dengan Microsoft VB versi 6, Jakarta, PT. Elex Media Kompotindo. Robert A. Leitch, 1991, Analisis dan Desain Sistem Informasi, andi Yogyakarta. Setiawan, Agung, 2003, Pengantar Sistem Komputer, cetakan ketiga, Penerbit Informatika, Bandung 2003. Sidarta, Lani, 1996, Analisis dan desain Informasi Bisnis, Jakarta, PT. Elex Media Kompotindo. Sanyoto Gondodiyoto, Pengenalan Komputer dan Komputerisasi. PT. Elex Media Kompotindo, Jakarta. Tavri D. Mahyuzir, 1994, Analisa dan Perancangan Sistem Pengolahan Data, Jakarta : PT. Elex Media Kompotindo..


LAMPIRAN A: LISTING PROGRAM Option Explicit Dim rsUser As Recordset Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() On Error Resume Next If Not UCase(txtUid.Text) = "NOVI" Then Set rsUser = New ADODB.Recordset rsUser.Open "Select * from tPassword where userId='" txtUid.Text & "' and Passwd='" & txtPass.Text & "'", CN, 1, 2 If Not rsUser.EOF Then Me.Hide frmMenu.mnuOpt.Enabled = False frmMenu.Show Else MsgBox "Password salah" txtPass.Text = "" txtPass.SetFocus End If Else If txtPass.Text = "123" Then Me.Hide frmMenu.mnuOpt.Enabled = True frmMenu.Show Else MsgBox "Password salah" txtPass.Text = "" txtPass.SetFocus End If End If End Sub Private Sub Form_Load() Koneksi End Sub Private Sub txtPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdOk.Enabled = True cmdOk.SetFocus End If End Sub Private Sub txtUid_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPass.Locked = False txtPass.SetFocus End If End Sub


&

Dim et As Byte Private Sub abt_Click() frmAbout.Show End Sub Private Sub COnts_Click() frmContents.Show End Sub Private Sub dafberobat_Click() frmDafBerobat.Show End Sub Private Sub dafMutasi_Click() frmDafMutasi.Show End Sub Private Sub dafSumbang_Click() frmDafSumbang.Show End Sub Private Sub DfWarga_Click() frmDafWarga.Show End Sub Private Sub dtBarang_Click() frmBarang.Show End Sub Private Sub DtBerobat_Click() frmBerobat.Show End Sub Private Sub dtDinas_Click() frmDinas.Show End Sub Private Sub dtDr_Click() frmDokter.Show End Sub Private Sub dtKmr_Click() frmKamar.Show End Sub Private Sub dtMutasi_Click() frmMutasi.Show End Sub Private Sub dtWarga_Click() frmWarga.Show End Sub Private Sub Form_Activate() Timer1.Enabled = True End Sub Private Sub Form_Load() Label1.Caption = "SISTEM INFORMASI PANTI ABDI DHARMA ASIH BINJAI"


End Sub Private Sub Label1_Click() End Sub Private Sub mnuKeluar_Click() Me.Hide frmLogIn.txtPass = "" frmLogIn.txtUid = "" frmLogIn.Show frmLogIn.txtUid.SetFocus End Sub Private Sub mstPeg_Click() frmDataPegawai.Show End Sub Private Sub pwd_Click() frmPasswd.Show End Sub Private Sub sumbang_Click() frmSumbangan.Show End Sub Private Sub Timer1_Timer() If et = 0 Then Label1.Visible = True Label1.ForeColor = vbWhite et = et + 1 ElseIf et = 1 Then Label1.Visible = False et = et + 1 Else Label1.Visible = True Label1.ForeColor = vbCyan et = et - 2 End If End Sub


Option Explicit Dim CekTanggal As Date Dim JK, ST As String * 1 Dim KdAgama As String * 1 Dim rsNo As Recordset Dim rsSTKamar As Recordset Dim rsUpKamar As Recordset Dim noID As Integer Dim TglMasuk As Date Dim umur As Integer Dim tgllahir As Date Dim rsKamar As Recordset Dim KdKamar As String * 3 Dim stKamar1 As String * 1, stKamar2 As String * 1 Private Sub cboAgama_Click() If cboAgama.Text = "ISLAM" Then KdAgama = "1" cboST.Locked = False cboST.SetFocus ElseIf cboAgama.Text = "PROTESTAN" Then KdAgama = "2" cboST.Locked = False cboST.SetFocus ElseIf cboAgama.Text = "KATOLIK" Then KdAgama = "3" cboST.Locked = False cboST.SetFocus ElseIf cboAgama.Text = "BUDHA" Then KdAgama = "4" cboST.Locked = False cboST.SetFocus ElseIf cboAgama.Text = "HINDU" Then KdAgama = "5" cboST.Locked = False cboST.SetFocus ElseIf cboAgama.Text = "KONGUCU" Then KdAgama = "6" cboST.Locked = False cboST.SetFocus End If End Sub Private Sub cboJK_Click() If cboJK.Text = "Laki-Laki" Then JK = "L" cboAgama.Locked = False cboAgama.SetFocus Else JK = "P" cboAgama.Locked = False cboAgama.SetFocus End If End Sub Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tWarga order by IDWarga asc", CN, 1, 2


End Sub Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "tWarga", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!IdWarga = txtID.Text rsSimpan!nmWarga = txtNama.Text rsSimpan!JK = JK rsSimpan!ST = ST rsSimpan!STMutasi = "1" rsSimpan!tgllahir = Format(txtTglLahir.Text, "dd-mm-yyyy") rsSimpan!KdAgama = KdAgama rsSimpan!TglMasuk = Format(txtTglMasuk.Text, "dd-mm-yyyy") rsSimpan!NmPJawab = txtNmPJawab.Text rsSimpan!AlmPJawab = txtAlmPJawab.Text rsSimpan!KotaPJawab = txtKotaPJawab.Text rsSimpan!NoTelpPJawab = txtNoTelpPJawab.Text rsSimpan!KdKamar = KdKamar rsSimpan.Update Set rsSTKamar = New ADODB.Recordset rsSTKamar.Open "Select * from tKamar where kdKamar ='" & KdKamar & "'", CN, 1, 2 If Not rsSTKamar.EOF Then stKamar1 = rsSTKamar!stKamar1 stKamar2 = rsSTKamar!stKamar2 Else End If Set rsUpKamar = New ADODB.Recordset If stKamar1 = "1" Then rsUpKamar.Open "Update tKamar set StKamar1='*' where kdKamar='" & KdKamar & "'", CN, 1, 2 ElseIf stKamar2 = "1" Then rsUpKamar.Open "Update tKamar set StKamar2='*' where kdKamar='" & KdKamar & "'", CN, 1, 2 End If tambah = False cari = False ubah = False mati Segar bersih Adodc1.Refresh grid.Refresh MsgBox "Data Sudah disimpan ..." End Sub

Private Sub cboKamar_Click() Set rsKamar = New ADODB.Recordset rsKamar.Open "Select * from tKamar where nmKamar ='" & cboKamar.Text & "' and (stKamar1='1' or stKamar2='1')", CN, adOpenDynamic, adLockOptimistic If Not rsKamar.EOF = True Then KdKamar = rsKamar!KdKamar txtNmPJawab.Locked = False txtNmPJawab.SetFocus


Else cboKamar = "" cboKamar.SetFocus End If End Sub Private Sub cboST_Click() ST = Left(cboST.Text, 1) cboKamar.Locked = False cboKamar.SetFocus End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdTambah.Enabled = True cmdCari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() cari = True tambah = False ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtID.Locked = False txtID.SetFocus End Sub Private Sub cmdHapus_Click() X = MsgBox("Yakin ingin dihapus?", vbYesNo) If X = vbYes Then Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tWarga where IDWarga=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic mati bersih Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Hapus ..." cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else mati bersih cmdTambah.Enabled = True cmdCari.Enabled = True


cmdTambah.SetFocus End If End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True tambah = False cari = False Hidup cmdRubah.Visible = False cmdHapus.Enabled = False cmdUpdate.Visible = True cmdUpdate.Enabled = True txtNama.Locked = False txtNama.SetFocus End Sub Private Sub cmdSimpan_Click() cmdSimpan.Visible = False cmdTambah.Visible = True Simpan cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Visible = False cmdSimpan.Visible = True cmdCari.Enabled = False txtTglMasuk = Format(Now, "dd-mm-yyyy") Set rsNo = New ADODB.Recordset rsNo.Open "Select * from tWarga order by IDWarga Desc", CN, 1, 2 If rsNo.EOF = True Then noID = 1 Else noID = rsNo!IdWarga + 1 End If txtID.Text = noID txtTglMasuk.Enabled = True txtTglMasuk.SetFocus End Sub Sub mati() cboKamar.Locked = True txtID.Locked = True txtNama.Locked = True txtTglLahir.Enabled = False txtTglMasuk.Enabled = False cboAgama.Locked = True cboJK.Locked = True cboST.Locked = True txtNoTelpPJawab.Locked = True txtKotaPJawab.Locked = True txtAlmPJawab.Locked = True


txtNmPJawab.Locked = True End Sub Sub Hidup() txtID.Locked = False txtNama.Locked = False txtTglLahir.Enabled = True txtTglMasuk.Enabled = True cboAgama.Locked = False cboJK.Locked = False cboST.Locked = False txtNoTelpPJawab.Locked = False txtKotaPJawab.Locked = False txtAlmPJawab.Locked = False txtNmPJawab.Locked = False cboKamar.Locked = False End Sub Sub bersih() KdKamar = "" txtID = "" txtNama = "" txtTglLahir = "__-__-____" txtTglMasuk = "__-__-____" cboAgama = "" cboJK = "" cboKamar = "" cboST = "" ST = "" JK = "" txtNoTelpPJawab = "" txtKotaPJawab = "" txtAlmPJawab = "" txtNmPJawab = "" umur = 0 lblUmur.Caption = "" End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah ubah = False bersih mati Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Update" cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub Form_Activate() mati bersih grid.ColWidth(0) = 0


grid.ColWidth(1) grid.ColWidth(2) grid.ColWidth(3) grid.ColWidth(4) grid.ColWidth(5) grid.ColWidth(6) grid.ColWidth(7)

= = = = = = =

grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0,

1000 3000 1200 1200 1200 1000 1200 0) 1) 2) 3) 4) 5) 6) 7)

= = = = = = = =

"" "No ID" "Nama Warga" "Tgl Lahir" "Tgl Masuk" "Jen Kelamin" "St Kawin" "KdAgama"

cmdUpdate.Visible = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.Enabled = True cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi cboJK.List(0) = "Laki-Laki" cboJK.List(1) = "Perempuan" cboST.List(0) = "Kawin" cboST.List(1) = "Belum" cboAgama.List(0) cboAgama.List(1) cboAgama.List(2) cboAgama.List(3) cboAgama.List(4) cboAgama.List(5)

= = = = = =

"ISLAM" "PROTESTAN" "KATOLIK" "BUDHA" "HINDU" "KONGUCU"

Set rsKamar = New ADODB.Recordset rsKamar.Open "Select * from tKamar where (stKamar1='1' or stKamar2='1') order by nmKamar asc", CN, adOpenDynamic, adLockOptimistic Do Until rsKamar.EOF = True cboKamar.AddItem rsKamar.Fields("nmKamar") rsKamar.MoveNext Loop

End Sub Private Sub txtAlmPJawab_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtKotaPJawab.Locked = False txtKotaPJawab.SetFocus End If End Sub


Private Sub txtID_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then If txtID.Text = "" Then txtID.SetFocus Else Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tWarga where IDWarga=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If rsCari.EOF = True Then txtNama.Locked = False txtNama.SetFocus Else MsgBox "Kode Karyawan Sudah Ada .." txtID.Text = "" txtID.SetFocus End If ElseIf cari = True Then If Not rsCari.EOF = True Then txtNama = rsCari!nmWarga txtTglMasuk.Text = Format(rsCari!TglMasuk, "ddmm-yyyy") txtTglLahir.Text = Format(rsCari!tgllahir, "ddmm-yyyy") txtNmPJawab.Text = rsCari!NmPJawab txtAlmPJawab.Text = rsCari!AlmPJawab txtKotaPJawab.Text = rsCari!KotaPJawab txtNoTelpPJawab.Text = rsCari!NoTelpPJawab KdKamar = rsCari!KdKamar Set rsKamar = New ADODB.Recordset rsKamar.Open "Select * from tKamar where kdKamar ='" & KdKamar & "'", CN, adOpenDynamic, adLockOptimistic If Not rsKamar.EOF = True Then cboKamar.Text = rsKamar!NmKamar End If KdAgama = rsCari!KdAgama If KdAgama = "1" Then cboAgama.Text = "ISLAM" ElseIf KdAgama = "2" Then cboAgama.Text = "PROTESTAN" ElseIf KdAgama = "3" Then cboAgama.Text = "KATOLIK" ElseIf KdAgama = "4" Then cboAgama.Text = "BUDHA" ElseIf KdAgama = "5" Then cboAgama.Text = "HINDU" ElseIf KdAgama = "6" Then cboAgama.Text = "KONGUCU" End If JK = rsCari!JK If rsCari!JK = "L" Then


cboJK = "Laki-Laki" Else cboJK = "Perempuan" End If ST = rsCari!ST If rsCari!ST = "K" Then cboST = "KAWIN" Else cboST = "BELUM" End If cari = False cmdHapus.Enabled = True cmdRubah.Enabled = True cmdRubah.SetFocus Else MsgBox "IDWarga tidak Ada .." txtID.Text = "" txtID.SetFocus End If End If End If End If End Sub Private Sub txtKotaPJawab_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtNoTelpPJawab.Locked = False txtNoTelpPJawab.SetFocus End If End Sub Private Sub txtNmPJawab_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtAlmPJawab.Locked = False txtAlmPJawab.SetFocus End If End Sub Private Sub txtNoTelpPJawab_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then cmdSimpan.Enabled = True cmdSimpan.SetFocus End If End If End Sub Private Sub txtTglLahir_LostFocus() On Error GoTo SalahTanggal CekTanggal = Format(CDate(txtTglLahir.Text), "dd-mm-yyyy") On Error GoTo 0 Exit Sub SalahTanggal: If Len(txtTglLahir.Text) = 0 Then Exit Sub End If MsgBox "Salah format"


txtTglLahir.Text = "__-__-____" txtTglLahir.SetFocus End Sub Private Sub txtTglLahir_Change() If cari = True Then If txtTglLahir.Text = "" Then txtTglLahir.Text = Format(Now, "dd-mm-yyyy") End If TglMasuk = Format(txtTglMasuk.Text, "dd-mm-yyyy") tgllahir = Format(txtTglLahir.Text, "dd-mm-yyyy") umur = DateDiff("yyyy", tgllahir, TglMasuk) lblUmur.Caption = umur End If End Sub Private Sub txtTglLahir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtTglLahir.Text = "" Then txtTglLahir.Text = Format(Now, "dd-mm-yyyy") End If TglMasuk = Format(txtTglMasuk.Text, "dd-mm-yyyy") tgllahir = Format(txtTglLahir.Text, "dd-mm-yyyy") umur = DateDiff("yyyy", tgllahir, TglMasuk) lblUmur.Caption = umur cboJK.Locked = False cboJK.SetFocus End If End Sub Private Sub txtTglMasuk_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtNama.Locked = False txtNama.SetFocus End If End Sub Private Sub txtTglMasuk_LostFocus() On Error GoTo SalahTanggal CekTanggal = Format(CDate(txtTglMasuk.Text), "dd-mm-yyyy") On Error GoTo 0 Exit Sub SalahTanggal: If Len(txtTglMasuk.Text) = 0 Then Exit Sub End If MsgBox "Salah format" txtTglMasuk.Text = "__-__-____" txtTglMasuk.SetFocus End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtNama.Text = "" Then txtNama.Text = "-" End If txtNama.Text = UCase(txtNama) txtTglLahir.Enabled = True txtTglLahir.SetFocus End If KeyAscii = Asc(UCase(Chr(KeyAscii)))


End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open " Update tWarga " & _ " set nmWarga ='" & txtNama.Text & "' " & _ ", tglLahir ='" & Format(txtTglLahir.Text, "YYYY-MM-DD") & "' " & _ ", tglMasuk ='" & Format(txtTglMasuk.Text, "YYYY-MM-DD") & "' " & _ ", JK ='" & JK & "', KdAgama ='" & KdAgama & "' " & _ ", NmPJawab ='" & txtNmPJawab.Text & "', AlmPJawab ='" & txtAlmPJawab.Text & "' " & _ ", KotaPJawab ='" & txtKotaPJawab.Text & "', NoTelpPJawab ='" & txtNoTelpPJawab.Text & "' " & _ ", KdKamar ='" & KdKamar & "',ST ='" & ST & "' " & _ " where IDWarga=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic Set rsSTKamar = New ADODB.Recordset rsSTKamar.Open "Select * from tKamar where kdKamar ='" & KdKamar & "'", CN, 1, 2 If Not rsSTKamar.EOF Then stKamar1 = rsSTKamar!stKamar1 stKamar2 = rsSTKamar!stKamar2 Else End If Set rsUpKamar = New ADODB.Recordset If stKamar1 = "1" Then rsUpKamar.Open "Update tKamar kdKamar='" & KdKamar & "'", CN, 1, 2 ElseIf stKamar2 = "1" Then rsUpKamar.Open "Update tKamar kdKamar='" & KdKamar & "'", CN, 1, 2 End If

set

StKamar1='*'

where

set

StKamar2='*'

where

End Sub


Option Explicit Dim CekTanggal As Date Dim JK, ST As String * 1 Private Sub cboJK_Click() If cboJK.Text = "Laki-Laki" Then JK = "L" cboST.Locked = False cboST.SetFocus Else JK = "P" cboST.Locked = False cboST.SetFocus End If End Sub Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tPegawai order by nip asc", CN, 1, 2 End Sub Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "tPegawai", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!NIP = txtNip.Text rsSimpan!NmPegawai = txtNama.Text rsSimpan!JK = JK rsSimpan!ST = ST rsSimpan!tgllahir = Format(txtTglLahir.Text, "dd-mm-yyyy") rsSimpan.Update tambah = False cari = False ubah = False mati Segar bersih Adodc1.Refresh grid.Refresh MsgBox "Data Sudah disimpan ..." End Sub Private Sub cboST_Click() ST = Left(cboST.Text, 1) cmdSimpan.Enabled = True cmdSimpan.SetFocus End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdTambah.Enabled = True cmdCari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False


cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() cari = True tambah = False ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtNip.Locked = False txtNip.SetFocus End Sub Private Sub cmdHapus_Click() X = MsgBox("Yakin ingin dihapus?", vbYesNo) If X = vbYes Then Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tPegawai where nip='" & txtNip.Text & "'", CN, adOpenDynamic, adLockOptimistic mati bersih Segar Adodc1.Refresh grid.Refresh Segar cmdHapus.Enabled = False cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus MsgBox "Data Sudah di Hapus ..." Else mati bersih cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True tambah = False cari = False Hidup cmdRubah.Visible = False cmdHapus.Enabled = False cmdUpdate.Visible = True cmdUpdate.Enabled = True txtNama.Locked = False txtNama.SetFocus End Sub Private Sub cmdSimpan_Click() cmdSimpan.Visible = False cmdTambah.Visible = True


Simpan cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Visible = False cmdSimpan.Visible = True cmdCari.Enabled = False txtNip.Locked = False txtNip.SetFocus End Sub Sub mati() txtNip.Locked = True txtNama.Locked = True txtTglLahir.Enabled = False cboJK.Locked = True cboST.Locked = True End Sub Sub Hidup() txtNip.Locked = False txtNama.Locked = False txtTglLahir.Enabled = True cboJK.Locked = False cboST.Locked = False End Sub Sub bersih() txtNip = "" txtNama = "" txtTglLahir = "__-__-____" cboJK = "" cboST = "" ST = "" JK = "" End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah ubah = False bersih mati Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Update" cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub


Private Sub Form_Activate() mati bersih cmdUpdate.Visible = False grid.ColWidth(0) = 0 grid.ColWidth(1) = 1000 grid.ColWidth(2) = 3000 grid.ColWidth(3) = 1200 grid.ColWidth(4) = 1200 grid.ColWidth(5) = 1200 grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0,

0) 1) 2) 3) 4) 5)

= = = = = =

"" "N I P" "Nama Pegawai" "Tgl Lahir" "Jen Kelamin" "St Kawin"

cmdTambah.Visible = True cmdSimpan.Visible = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi cboJK.List(0) = "Laki-Laki" cboJK.List(1) = "Perempuan" cboST.List(0) = "Kawin" cboST.List(1) = "Belum" End Sub Private Sub Label1_Click(Index As Integer) End Sub Private Sub txtTglLahir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtTglLahir.Text = "" Then txtTglLahir.Text = Format(Now, "dd-mm-yyyy") End If txtTglLahir.Text = Format(txtTglLahir.Text, "dd-mm-yyyy") cboJK.Locked = False cboJK.SetFocus End If End Sub Private Sub txtTglLahir_LostFocus() On Error GoTo SalahTanggal CekTanggal = Format(CDate(txtTglLahir.Text), "dd-mm-yyyy") On Error GoTo 0 Exit Sub SalahTanggal: If Len(txtTglLahir.Text) = 0 Then Exit Sub End If MsgBox "Salah format" txtTglLahir.Text = "__-__-____"


txtTglLahir.SetFocus End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtNama.Text = "" Then txtNama.Text = "-" End If txtNama.Text = UCase(txtNama) txtTglLahir.Enabled = True txtTglLahir.SetFocus End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open " Update tPegawai " & _ " set NmPegawai ='" & txtNama.Text & "' " & _ ", tglLahir ='" & Format(txtTglLahir.Text, "YYYY-MMDD") & "' " & _ ", JK ='" & JK & "' " & _ ", ST ='" & ST & "' " & _ " where nip='" & txtNip.Text & "'", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub txtNip_Change() On Error Resume Next If Len(txtNip) < 9 Then Exit Sub Else If txtNip.Text = "" Then txtNip.SetFocus Else Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPegawai where nip='" & txtNip.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If rsCari.EOF = True Then txtNama.Locked = False txtNama.SetFocus Else MsgBox "Kode Karyawan Sudah Ada .." txtNip.Text = "" txtNip.SetFocus End If ElseIf cari = True Then If Not rsCari.EOF = True Then txtNama = rsCari!NmPegawai txtTglLahir.Text = Format(rsCari!tgllahir, "ddmm-yyyy") JK = rsCari!JK If rsCari!JK = "L" Then cboJK = "Laki-Laki" Else cboJK = "Perempuan" End If


ST = rsCari!ST If rsCari!ST = "K" Then cboST = "Kawin" Else cboST = "Belum" End If cari = False cmdHapus.Enabled = True cmdRubah.Enabled = True cmdRubah.SetFocus Else MsgBox "NIP tidak Ada .." txtNip.Text = "" txtNip.SetFocus End If End If End If End If End Sub


Option Explicit Dim rsPegawai As Recordset Dim rsDokter As Recordset Dim no As Integer Dim rsBerobat As Recordset Private Sub cmdSimpan_Click() If tambah = True Then If (txtKode.Text <> "" And txtNip <> "") Then Simpan Segar bersih mati tambah = False Adodc1.Refresh grid.Refresh MsgBox "Data sudah disimpan .." cmdtambah.Visible = True cmdSimpan.Visible = False cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus Else txtKode.SetFocus End If End If End Sub Private Sub cmdUpdate_Click() If ubah = True Then Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tDokter SET nmdokter ='" & txtNama.Text & "',nip='" & txtNip.Text & "' where kdDokter='" & txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic MsgBox "Nama Dokter sudah di Edit ..!" bersih mati ubah = False Segar Adodc1.Refresh grid.Refresh cmdRubah.Visible = True cmdRubah.Enabled = False cmdUpdate.Visible = False cmdHapus.Enabled = False cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End If End Sub Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tDokter order by KdDokter asc", CN, 1, 2 End Sub Private Sub txtNip_Change() If Len(txtNip.Text) < 9 Then Exit Sub Else Set rsCari = New ADODB.Recordset


rsCari.Open "Select * from tDokter where nip='" & txtNip.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If rsCari.EOF Then txtNama.Locked = False txtNama.SetFocus Else txtNama.Text = rsCari!nmDokter MsgBox "Dokter sudah ada" txtNip.Text = "" txtNip.SetFocus End If End If End If End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.Visible = True cmdSimpan.Visible = False cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End Sub Private Sub cmdCari_Click() tambah = False ubah = False cari = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.Enabled = False cmdcari.Enabled = False txtKode.Locked = False txtKode.SetFocus End Sub Private Sub cmdHapus_Click() tambah = False ubah = False cari = False Set rsBerobat = New ADODB.Recordset rsBerobat.Open "Select * from tBerobat where kdDokter='" txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic If rsBerobat.EOF = True Then Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tDokter where kdDokter ='" txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic MsgBox "Data Sudah DiHapus .." Segar Adodc1.Refresh


&

&

grid.Refresh bersih mati cmdcari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.Enabled = True cmdtambah.SetFocus Else MsgBox "Tidak bisa di hapus, dokter ini ada di data berobat warga" mati bersih cmdcari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.Enabled = True cmdtambah.SetFocus End If End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() cari = False ubah = True cmdUpdate.Visible = True cmdRubah.Visible = False tambah = False txtNama.Enabled = True txtNama.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdtambah.Visible = False cmdSimpan.Visible = True cmdcari.Enabled = False txtKode.Locked = False txtKode.SetFocus End Sub Private Sub Form_Activate() mati bersih grid.ColWidth(0) = 0 grid.ColWidth(1) = 1000 grid.ColWidth(2) = 2500 grid.ColWidth(3) = 2500 grid.ColWidth(4) = 1000 grid.TextMatrix(0, 0) = "" grid.TextMatrix(0, 1) = "Kode" grid.TextMatrix(0, 2) = "Nm Dokter" grid.TextMatrix(0, 3) = "NIP" cmdSimpan.Visible = False


cmdtambah.Visible = True cmdUpdate.Visible = False cmdcari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.Enabled = True cmdtambah.SetFocus End Sub Private Sub Form_Load() Koneksi End Sub Private Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "Select * from adLockOptimistic rsSimpan.AddNew rsSimpan!kdDokter = txtKode.Text rsSimpan!nmDokter = txtNama.Text rsSimpan!NIP = txtNip.Text rsSimpan.Update End Sub Private Sub bersih() txtNama.Text = "" txtNip.Text = "" txtKode.Text = ""

tDokter",

CN,

adOpenDynamic,

End Sub Private Sub mati() txtNama.Locked = True txtNip.Locked = True txtKode.Locked = True End Sub Private Sub txtKode_Change() If Len(txtKode.Text) < 3 Then Exit Sub Else Set rsDokter = New ADODB.Recordset rsDokter.Open "Select * from tDokter where kdDokter='" txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If Not rsDokter.EOF Then MsgBox "Kode dokter Sudah ada" txtKode = "" txtKode.SetFocus Else txtNip.Locked = False txtNip.SetFocus End If ElseIf cari = True Then If rsDokter.EOF = True Then MsgBox "Nama Dokter tidak Ada ..!" txtKode.Text = "" txtKode.SetFocus Else txtNama.Text = rsDokter.Fields("nmdokter") txtNip.Text = rsDokter.Fields("Nip") cari = False


&

cmdRubah.Enabled = True cmdHapus.Enabled = True cmdtambah.Enabled = False cmdcari.Enabled = False cmdRubah.SetFocus End If ElseIf ubah = True Then txtNip.Locked = False txtNip.SetFocus End If End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then cmdSimpan.SetFocus ElseIf ubah = True Then cmdRubah.Enabled = True cmdRubah.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub


Option Explicit Dim rsNo As Recordset Dim noID As Integer Dim NIP As String * 9 Dim rsPegawai As Recordset Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tDinas order by IdDinas asc", CN, 1, 2 End Sub Private Sub cboNIP_Click() Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPegawai where nip='" & cboNIP.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Or cari = True Then If Not rsCari.EOF Then lblNama.Caption = rsCari!NmPegawai txtTgl.Enabled = True txtTgl.SetFocus Else MsgBox "Pegawai Tidak ada" cboNIP.Text = "" cboNIP.SetFocus End If End If End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdtambah.Visible = True cmdSimpan.Visible = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdtambah.Enabled = True cmdcari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.SetFocus End Sub Private Sub cmdCari_Click() cari = True cmdtambah.Enabled = False cmdcari.Enabled = False txtID.Locked = False txtID.SetFocus End Sub Private Sub cmdHapus_Click() Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tDinas where IdDinas=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic


mati bersih Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Hapus ..." cmdHapus.Enabled = False cmdRubah.Enabled = False cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True cmdRubah.Visible = False cmdUpdate.Visible = True cmdHapus.Enabled = False cboNIP.Locked = False cboNIP.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cmdtambah.Enabled = False cmdcari.Enabled = False Set rsNo = New ADODB.Recordset rsNo.Open "Select * from tDinas order by IDDinas Desc", CN, 1, 2 If rsNo.EOF = True Then noID = 1 Else noID = rsNo!IdDinas + 1 End If txtID.Text = noID cboNIP.Locked = False cboNIP.SetFocus End Sub Sub mati() txtID.Locked = True cboNIP.Locked = True txtTgl.Enabled = False End Sub Sub bersih() txtID = "" cboNIP = "" lblNama = "" txtTgl.Text = "__-__-____" End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah


ubah = False bersih mati Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Update" cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End If End Sub Private Sub Form_Activate() grid.TextMatrix(0, 0) = "" grid.TextMatrix(0, 1) = "No ID" grid.TextMatrix(0, 2) = "N I P" grid.TextMatrix(0, 3) = "Tanggal Dinas" grid.ColWidth(0) = 0 grid.ColWidth(1) = 1000 grid.ColWidth(2) = 1500 grid.ColWidth(3) = 2000 mati bersih cmdUpdate.Visible = False cmdtambah.Visible = True cmdSimpan.Visible = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdtambah.SetFocus End Sub Private Sub Form_Load() Koneksi Set rsPegawai = New ADODB.Recordset rsPegawai.Open "select * from tPegawai order by NIP asc", CN, adOpenDynamic, adLockOptimistic Do Until rsPegawai.EOF = True cboNIP.AddItem rsPegawai.Fields("NIP") rsPegawai.MoveNext Loop End Sub

Private Sub txtTgl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then X = MsgBox("Apa Data Mau disimpan ...?", vbYesNo) If X = vbYes Then Set rsSimpan = New ADODB.Recordset rsSimpan.Open "Insert into tDinas " & " (IDDinas,NIP,TglDinas) " & " values ('" & txtID.Text & "','" & cboNIP.Text & "','" & txtTgl.Text & "')", CN, adOpenDynamic, adLockOptimistic tambah = False Segar Adodc1.Refresh grid.Refresh mati bersih cmdtambah.Enabled = True


cmdcari.Enabled = True cmdtambah.SetFocus Else mati bersih cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End If End If End If End Sub Sub Rubah() If ubah = True Then X = MsgBox("Apa Data Mau diUbah ...?", vbYesNo) If X = vbYes Then Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tDinas set NIP='" & cboNIP.Text & "', TglDinas='" & Format(txtTgl.Text, "YYYY-MM-DD") & "' where idDinas=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic ubah = False mati bersih Segar Adodc1.Refresh grid.Refresh mati bersih cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus Else mati bersih cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End If End If End Sub

Private Sub txtID_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtID.Text = "" Then txtID.SetFocus Else Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tDinas where txtID.Text & "", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If rsCari.EOF = True Then cboNIP.Locked = False cboNIP.SetFocus Else MsgBox "Kode Karyawan Sudah Ada .." txtID.Text = "" txtID.SetFocus End If ElseIf cari = True Then

IDDinas="


&

If Not rsCari.EOF = True Then NIP = rsCari!NIP cboNIP.Text = NIP txtTgl.Text

=

Format(rsCari!tglDinas,

"dd-mm-

yyyy") Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPegawai where nip='" & NIP & "'", CN, adOpenDynamic, adLockOptimistic If Not rsCari.EOF Then lblNama.Caption = rsCari!NmPegawai End If cmdHapus.Enabled = True cmdRubah.Visible = True cmdRubah.Enabled = True cmdRubah.SetFocus Else MsgBox "IDWarga tidak Ada .." txtID.Text = "" txtID.SetFocus End If End If End If End If End Sub


Option Explicit Dim rsKamar As Recordset Private Sub cmdBatal_Click() bersih mati cmdTambah.Enabled = True cmdCari.Enabled = True cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() tambah = False cari = True ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtKode.Locked = False txtKode.SetFocus End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdHapus_Click() cmdHapus.Enabled = False cmdRubah.Enabled = False X = MsgBox("Apakah Data Mau di Hapus ? ..", vbYesNo, "SIMPAN") If X = vbYes Then Hapus mati bersih Segar adodc1.Refresh grid.Refresh cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Sub Simpan() On Error Resume Next Set rsSimpan = New ADODB.Recordset


rsSimpan.Open "tKamar", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!KdKamar = txtKode.Text rsSimpan!NmKamar = txtNama.Text rsSimpan!stKamar1 = "1" rsSimpan!stKamar2 = "1" rsSimpan.Update mati bersih Segar adodc1.Refresh grid.Refresh cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdRubah_Click() cmdRubah.Visible = False cmdUpdate.Visible = True cmdHapus.Enabled = False ubah = True Hidup txtNama.SetFocus txtNama.SelLength = Len(txtNama.Text) End Sub Private Sub cmdSimpan_Click() cmdSimpan.Visible = False cmdTambah.Visible = True Simpan cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Visible = False cmdSimpan.Visible = True cmdCari.Enabled = False txtKode.Locked = False txtKode.SetFocus End Sub Private Sub cmdUpdate_Click() Rubah Segar mati bersih adodc1.Refresh grid.Refresh MsgBox "Data sudah di ubah"


cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub Form_Activate() mati bersih With grid .TextMatrix(0, .TextMatrix(0, .TextMatrix(0, .TextMatrix(0, .TextMatrix(0,

0) 1) 2) 3) 4)

.ColWidth(0) .ColWidth(1) .ColWidth(2) .ColWidth(3) .ColWidth(4)

0 1000 2500 2500 2500

= = = = =

= = = = =

"" "Kode" "Nama Kamar" "St Kmr 1" "St Kmr 2"

End With cmdSimpan.Visible = False cmdTambah.Visible = True cmdUpdate.Visible = False cmdCari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.Enabled = True cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi End Sub Private Sub txtKode_Change() If Len(txtKode.Text) < 3 Then Exit Sub Else txtKode = UCase(txtKode) Set rsKamar = New ADODB.Recordset rsKamar.Open "Select * from tKamar where KdKamar txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If Not rsKamar.EOF Then MsgBox ("Kode Kamar sudah ada ...") txtKode.Text = "" txtKode.SetFocus Else txtKode = UCase(txtKode) txtNama.Locked = False txtNama.SetFocus End If ElseIf cari = True Then txtKode = UCase(txtKode)

=


'"

&

If Not rsKamar.EOF Then txtNama.Text = rsKamar.Fields("NmKamar") lblSt1.Caption = rsKamar.Fields("StKamar1") lblSt1.Caption = rsKamar.Fields("StKamar2") cari = False cmdRubah.Enabled = True cmdHapus.Enabled = True Else MsgBox ("Data tidak ada ...") txtKode.Text = "" txtKode.SetFocus End If End If End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then cmdSimpan.Enabled = True cmdSimpan.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub mati() txtKode.Locked = txtNama.Locked = End Sub Private Sub Hidup() txtKode.Locked = txtNama.Locked = End Sub

True True

False False

Private Sub bersih() txtKode.Text = "" txtNama.Text = "" lblSt1.Caption = "" lblSt2.Caption = "" End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tKamar set NmKamar ='" & txtNama.Text & "' where KdKamar='" & txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub Hapus() On Error Resume Next Set rsHapus = New ADODB.Recordset rsHapus.Open "delete from tKamar where KdKamar = '" & txtKode.Text & "'", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub Segar() Set rsHapus = New ADODB.Recordset rsHapus.Open "Select * from tKamar order by KdKamar asc", CN, adOpenDynamic, adLockOptimistic End Sub


Option Explicit Dim rsWarga As Recordset Dim CekTanggal As Date Dim JK, ST As String * 1 Dim KdAgama As String * 1 Dim STMutasi As String * 1 Dim rsNo As Recordset Dim noID As Integer Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "tMutasiWarga", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!IdMutasi = txtID.Text rsSimpan!IdWarga = cboIdWarga.Text rsSimpan!TglMutasi = txtTgl.Text rsSimpan!StatusMutasi = STMutasi rsSimpan!Alasan = txtAlasan.Text rsSimpan.Update Set rsUpdate = New ADODB.Recordset rsUpdate.Open "Update tWarga set STMutasi='*' where IDWarga=" & cboIdWarga.Text & "", CN, 1, 2 tambah = False cari = False ubah = False mati Segar bersih Adodc1.Refresh grid.Refresh MsgBox "Data Sudah disimpan ..." End Sub Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tMutasiWarga order by IDMutasi asc", CN, 1, 2 End Sub Private Sub cboIdWarga_Click() Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tWarga where IDWarga=" cboIdWarga.Text & "", CN, adOpenDynamic, adLockOptimistic If Not rsCari.EOF = True Then lblNama.Caption = rsCari!nmWarga JK = rsCari!JK If rsCari!JK = "L" Then lblnmJK.Caption = "Laki-Laki" Else lblnmJK = "Perempuan" End If ST = rsCari!ST If rsCari!ST = "K" Then lblnmST.Caption = "KAWIN" Else lblnmST.Caption = "BELUM" End If


&

KdAgama = rsCari!KdAgama If KdAgama = "1" Then lblnmAgama.Caption = "ISLAM" ElseIf KdAgama = "2" Then lblnmAgama.Caption = "PROTESTAN" ElseIf KdAgama = "3" Then lblnmAgama.Caption = "KATOLIK" ElseIf KdAgama = "4" Then lblnmAgama.Caption = "BUDHA" ElseIf KdAgama = "5" Then lblnmAgama.Caption = "HINDU" ElseIf KdAgama = "6" Then lblnmAgama.Caption = "KONGUCU" End If txtTgl.Enabled = True txtTgl.SetFocus End If End Sub Private Sub cboStMutasi_Click() If cboStMutasi.Text = "Keluar Dengan Izin" Then STMutasi = "1" txtAlasan.Locked = False txtAlasan.SetFocus ElseIf cboStMutasi.Text = "Keluar Tanpa Izin" Then STMutasi = "2" txtAlasan.Locked = False txtAlasan.SetFocus ElseIf cboStMutasi.Text = "Dirujuk" Then STMutasi = "3" txtAlasan.Locked = False txtAlasan.SetFocus Else STMutasi = "4" txtAlasan.Locked = False txtAlasan.SetFocus End If End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdTambah.Enabled = True cmdCari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False


cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() cari = True tambah = False ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtID.Locked = False txtID.SetFocus End Sub Private Sub cmdHapus_Click() X = MsgBox("Yakin ingin dihapus?", vbYesNo) If X = vbYes Then Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tMutasiWarga where IDMutasi=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic Set rsUpdate = New ADODB.Recordset rsUpdate.Open "Update tWarga set STMutasi='1' where IDWarga=" & cboIdWarga.Text & "", CN, 1, 2 mati bersih Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Hapus ..." cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else mati bersih cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True tambah = False cari = False Hidup cmdRubah.Visible = False cmdHapus.Enabled = False cmdUpdate.Visible = True cmdUpdate.Enabled = True cboStMutasi.Locked = False cboStMutasi.SetFocus End Sub Private Sub cmdSimpan_Click() cmdSimpan.Visible = False cmdTambah.Visible = True


Simpan cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Visible = False cmdSimpan.Visible = True cmdCari.Enabled = False Set rsNo = New ADODB.Recordset rsNo.Open "Select * from tMutasiWarga order by IDMutasi Desc", CN, 1, 2 If rsNo.EOF = True Then noID = 1 Else noID = rsNo!IdMutasi + 1 End If txtID.Text = noID cboIdWarga.Locked = False cboIdWarga.SetFocus End Sub Sub mati() txtID.Locked = True cboIdWarga.Locked = True txtTgl.Enabled = False txtAlasan.Locked = True cboStMutasi.Locked = True End Sub Sub Hidup() txtID.Locked = False cboIdWarga.Locked = False txtTgl.Enabled = True txtAlasan.Locked = False cboStMutasi.Locked = False End Sub Sub bersih() txtID = "" cboIdWarga = "" txtTgl = "__-__-____" txtAlasan = "" cboStMutasi = "" lblnmJK = "" lblnmST = "" STMutasi = "" JK = "" ST = "" End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah


ubah = False bersih mati Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Update" cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub Form_Activate() mati bersih grid.ColWidth(0) = 0 grid.ColWidth(1) = 1000 grid.ColWidth(2) = 3000 grid.ColWidth(3) = 1200 grid.ColWidth(4) = 1200 grid.ColWidth(5) = 1200

grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0,

0) 1) 2) 3) 4) 5)

= = = = = =

"" "ID Mutasi" "Id Warga" "Tgl Mutasi" "Status Mutasi" "Alasan"

cmdUpdate.Visible = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi cboStMutasi.List(0) = "Keluar Dengan Izin" cboStMutasi.List(1) = "Keluar Tanpa Izin" cboStMutasi.List(2) = "Dirujuk" cboStMutasi.List(3) = "Meninggal" Set rsWarga = New ADODB.Recordset rsWarga.Open "select * from tWarga order by IDWarga asc", CN, adOpenDynamic, adLockOptimistic Do Until rsWarga.EOF = True cboIdWarga.AddItem rsWarga.Fields("IDWarga") rsWarga.MoveNext Loop End Sub

Private Sub txtID_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then


If cari = True Then Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tMutasiWarga where IDMutasi=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic If Not rsCari.EOF = True Then STMutasi = rsCari!StatusMutasi If STMutasi = "1" Then cboStMutasi.Text = "Keluar Dengan Izin" ElseIf STMutasi = "2" Then cboStMutasi.Text = "Keluar Tanpa Izin" ElseIf STMutasi = "3" Then cboStMutasi.Text = "Dirujuk" ElseIf STMutasi = "4" Then cboStMutasi.Text = "Meninggal" End If txtAlasan.Text = rsCari!Alasan txtTgl = Format(rsCari!TglMutasi, "dd-mm-yyyy") noID = rsCari!IdWarga cboIdWarga.Text = noID Set rsWarga = New ADODB.Recordset rsWarga.Open "Select * from tWarga where IDWarga=" & cboIdWarga.Text & "", CN, 1, 2 If Not rsWarga.EOF = True Then lblNama.Caption = rsWarga!nmWarga JK = rsWarga!JK If rsWarga!JK = "L" Then lblnmJK.Caption = "Laki-Laki" Else lblnmJK = "Perempuan" End If ST = rsWarga!ST If rsWarga!ST = "K" Then lblnmST.Caption = "KAWIN" Else lblnmST.Caption = "BELUM" End If KdAgama = rsWarga!KdAgama If KdAgama = "1" Then lblnmAgama.Caption = "ISLAM" ElseIf KdAgama = "2" Then lblnmAgama.Caption = "PROTESTAN" ElseIf KdAgama = "3" Then lblnmAgama.Caption = "KATOLIK" ElseIf KdAgama = "4" Then lblnmAgama.Caption = "BUDHA" ElseIf KdAgama = "5" Then lblnmAgama.Caption = "HINDU" ElseIf KdAgama = "6" Then lblnmAgama.Caption = "KONGUCU" End If cmdRubah.Enabled = True cmdHapus.Enabled = True


cmdRubah.SetFocus End If End If End If End If End Sub Private Sub txtTgl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtTgl.Text = "" Then txtTgl.Text = Format(Now, "dd-mm-yyyy") End If txtTgl.Text = Format(txtTgl.Text, "dd-mm-yyyy") cboStMutasi.Locked = False cboStMutasi.SetFocus End If End Sub Private Sub txtTgl_LostFocus() On Error GoTo SalahTanggal CekTanggal = Format(CDate(txtTgl.Text), "dd-mm-yyyy") On Error GoTo 0 Exit Sub SalahTanggal: If Len(txtTgl.Text) = 0 Then Exit Sub End If MsgBox "Salah format" txtTgl.Text = "__-__-____" txtTgl.SetFocus End Sub Private Sub txtAlasan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then cmdSimpan.SetFocus ElseIf ubah = True Then cmdRubah.Enabled = True cmdRubah.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open " Update tMutasiWarga " & _ " set StatusMutasi ='" & STMutasi & "' " & _ ", Alasan ='" & txtAlasan.Text & "' " & _ " where IDMutasi=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic End Sub


Option Explicit Dim rsBarang As Recordset Dim rsPegawai As Recordset Dim rsSumbangan As Recordset Dim rsPenyumbang As Recordset Dim rsNo As Recordset Dim rsNo1 As Recordset Dim Banyak As Single Dim CekTanggal As Date Dim X As String Dim noID As Integer, NoID1 As Integer Dim KdBrg As String * 4 Dim NIP As String * 9 Dim ada As Boolean Private Sub cboBrg_Click() Set rsBarang = New ADODB.Recordset rsBarang.Open "Select * from tBarang where NmBarang = '" & cboBrg.Text & "' order by nmBarang asc", CN, adOpenDynamic, adLockOptimistic If Not rsBarang.EOF = True Then KdBrg = rsBarang.Fields("KdBarang") Set rsSumbangan = New ADODB.Recordset rsSumbangan.Open "Select * from tSumbangan where IdSumbangan=" & txtID.Text & " and KdBarang='" & KdBrg & "'", CN, 1, 2 If Not rsSumbangan.EOF = True Then MsgBox "Barang sudah ada" KdBrg = "" cboBrg = "" cboBrg.SetFocus Else txtBanyak.Locked = False txtBanyak.SetFocus End If Else MsgBox "Barang tidak ada" KdBrg = "" cboBrg = "" cboBrg.SetFocus End If End Sub Private Sub cboNmPenerima_Click() Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPegawai where NmPegawai='" cboNmPenerima.Text & "'", CN, adOpenDynamic, adLockOptimistic If (tambah = True Or cari = True) Then If Not rsCari.EOF Then NIP = rsCari!NIP cboBrg.Locked = False cboBrg.SetFocus Else MsgBox "Pegawai Tidak ada" cboNmPenerima.Text = "" cboNmPenerima.SetFocus End If End If End Sub


&

Private Sub cmdBatal_Click() Adodc1.Refresh grid1.Refresh bersih mati cmdTambah.Enabled = True cmdCari.Enabled = True cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() tambah = False cari = True ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtID.Locked = False txtID.SetFocus End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdHapus_Click() Call Hapus Segar mati bersih Adodc1.Refresh grid1.Refresh ubah = False cari = False tambah = False cmdHapus.Enabled = False cmdUpdate.Visible = False cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Sub Hapus() Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tSumbangan where IdSumbangan=" txtID.Text & "", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub cmdRubah_Click() ubah = True cari = False cmdRubah.Visible = False cmdUpdate.Visible = True


&

cmdUpdate.Enabled = True Hidup cmdRubah.Enabled = False cmdHapus.Enabled = False txtBanyak.Locked = False txtBanyak.SetFocus End Sub Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "Select * from tSumbangan", CN, 1, 2 rsSimpan.AddNew rsSimpan!IDSumbangan = txtID.Text rsSimpan!IDPenyumbang = txtID1.Text rsSimpan!KDBarang = KdBrg rsSimpan!NIP = NIP rsSimpan!TglSumbangan = txtTgl.Text rsSimpan!Banyak = txtBanyak.Text rsSimpan!Ket = txtKet.Text rsSimpan.Update End Sub Sub Simpan1() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "Select * from tPenyumbang", CN, 1, 2 rsSimpan.AddNew rsSimpan!IDPenyumbang = txtID1.Text rsSimpan!nmPenyumbang = txtNmPenyumbang.Text rsSimpan!Alamat = txtAlamat.Text rsSimpan!Kota = txtKota.Text rsSimpan.Update End Sub Private Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tSumbangan order by IDSumbangan asc", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False Set rsNo = New ADODB.Recordset rsNo.Open "Select * from tSumbangan order by IDSumbangan desc", CN, adOpenDynamic, adLockOptimistic If rsNo.EOF = True Then noID = 1 Else noID = rsNo.Fields("IDSumbangan") + 1 End If txtID.Text = noID Set rsNo1 = New ADODB.Recordset rsNo1.Open "Select * from tPenyumbang order by IDPenyumbang desc", CN, adOpenDynamic, adLockOptimistic If rsNo1.EOF = True Then NoID1 = 1 Else NoID1 = rsNo1.Fields("IDPenyumbang") + 1


End If txtID1.Text = NoID1 cmdTambah.Enabled = False cmdCari.Enabled = False txtTgl.Text = Format(Now, "dd-mm-yyyy") txtTgl.Enabled = True txtTgl.SetFocus End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah ubah = False bersih mati Segar Adodc1.Refresh grid1.Refresh MsgBox "Data Sudah di Update" cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub Form_Activate() mati bersih With grid1 .TextMatrix(0, 0) = "" .TextMatrix(0, 1) = "ID Sumbangan" .TextMatrix(0, 2) = "ID Penyumbang" .TextMatrix(0, 3) = "Kode Barang" .TextMatrix(0, 4) = "NIP" .TextMatrix(0, 5) = "Tanggal" .TextMatrix(0, 6) = "Banyak" .TextMatrix(0, 7) = "Keterangan"

.ColWidth(0) .ColWidth(1) .ColWidth(2) .ColWidth(3) .ColWidth(4) .ColWidth(5) .ColWidth(6) .ColWidth(7)

= = = = = = = =

0 2000 2000 1500 1200 1200 1000 3500

End With cmdTambah.Visible = True cmdTambah.Enabled = True cmdCari.Enabled = True cmdUpdate.Visible = False cmdRubah.Visible = True


cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi Set rsBarang = New ADODB.Recordset rsBarang.Open "Select * from tBarang order by nmBarang asc", CN, adOpenDynamic, adLockOptimistic Do Until rsBarang.EOF = True cboBrg.AddItem rsBarang.Fields("nmBarang") rsBarang.MoveNext Loop Set rsPegawai = New ADODB.Recordset rsPegawai.Open "select * from tPegawai order by NIP asc", CN, adOpenDynamic, adLockOptimistic Do Until rsPegawai.EOF = True cboNmPenerima.AddItem rsPegawai.Fields("nmPegawai") rsPegawai.MoveNext Loop Adodc1.Refresh grid1.Refresh End Sub Sub bersih() ada = False cboNmPenerima.Text = "" cboBrg.Text = "" txtID.Text = "" txtID1.Text = "" txtTgl.Text = "__-__-____" txtNmPenyumbang = "" txtAlamat = "" txtKota = "" txtKet = "" txtBanyak.Text = "" End Sub Sub mati() cboNmPenerima.Locked = True cboBrg.Locked = True txtID.Locked = True txtID1.Locked = True txtTgl.Enabled = False txtNmPenyumbang.Locked = True txtAlamat.Locked = True txtKota.Locked = True txtKet.Locked = True txtBanyak.Locked = True End Sub Sub Hidup() cboNmPenerima.Locked = False cboBrg.Locked = False 'txtID.Locked = False 'txtID1.Locked = False


txtTgl.Enabled = False txtNmPenyumbang.Locked = False txtAlamat.Locked = False txtKota.Locked = False txtKet.Locked = False txtBanyak.Locked = False End Sub Private Sub txtAlamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtKota.Locked = False txtKota.SetFocus End If End Sub Private Sub txtBanyak_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtBanyak.Text <> "" Then txtKet.Locked = False txtKet.SetFocus End If End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Sub Rubah() Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tSumbangan set banyak=" & txtBanyak.Text & ",ket='" & txtKet.Text & "' where IDSumbangan = " & txtID.Text & " and KdBarang='" & KdBrg & "'", CN, adOpenDynamic, adLockOptimistic Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tPenyumbang set NmPenyumbang='" & txtNmPenyumbang.Text & "',Alamat='" & txtAlamat.Text & "',Kota='" & txtKota.Text & "' where IDPenyumbang = " & txtID1.Text & "", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub If KeyAscii If cari Set

txtID_KeyPress(KeyAscii As Integer) = 13 Then = True Then rsCari = New ADODB.Recordset rsCari.Open "Select * from tSumbangan where IDSumbangan=" & txtID & "", CN, 1, 2 If rsCari.EOF = True Then MsgBox "Data tidak ada" txtID = "" txtID.SetFocus ' Else NoID1 = rsCari!IDPenyumbang txtID1 = rsCari!IDPenyumbang Set rsPenyumbang = New ADODB.Recordset rsPenyumbang.Open "Select * from tPenyumbang where IDPenyumbang=" & NoID1 & "", CN, 1, 2 If Not rsPenyumbang.EOF = True Then


txtNmPenyumbang = rsPenyumbang!nmPenyumbang txtAlamat = rsPenyumbang!Alamat txtKota = rsPenyumbang!Kota End If KdBrg = rsCari!KDBarang Set rsBarang = New ADODB.Recordset rsBarang.Open "Select * from tBarang where KdBarang = '" & KdBrg & "'", CN, adOpenDynamic, adLockOptimistic If Not rsBarang.EOF = True Then cboBrg = rsBarang.Fields("NmBarang") End If NIP = rsCari!NIP txtTgl = Format(rsCari!TglSumbangan, "DD-mm-yyyy") Set rsPegawai = New ADODB.Recordset rsPegawai.Open "Select * from tPegawai where nip='" & NIP & "'", CN, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF = True Then cboNmPenerima = rsPegawai!NmPegawai End If txtBanyak = rsCari!Banyak txtKet = rsCari!Ket cmdRubah.Enabled = True cmdHapus.Enabled = True cmdRubah.SetFocus End If End If End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub txtKet_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtKet.Text <> "" Then X = MsgBox("Apakah Data Sudah Benar ?", vbYesNo) If X = vbYes Then If tambah = True Then Simpan If ada = False Then Simpan1 End If Segar Adodc1.Refresh grid1.Refresh X = MsgBox("Masih ada barang lain ?", vbYesNo) If X = vbYes Then ada = True KdBrg = "" txtBanyak = "" cboBrg = "" txtKet = "" cboBrg.SetFocus Else mati bersih


tambah = False cmdTambah.Enabled = True cmdCari.Enabled = True tambah = False cmdTambah.SetFocus End If End If Else mati bersih ubah = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End If End If End Sub Private Sub txtKota_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cboNmPenerima.Locked = False cboNmPenerima.SetFocus End If End Sub Private Sub txtNmPenyumbang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtAlamat.Locked = False txtAlamat.SetFocus End If End Sub Private Sub txtTgl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtNmPenyumbang.Locked = False txtNmPenyumbang.SetFocus End If End Sub


Option Explicit Dim rsBarang As Recordset Private Sub cmdBatal_Click() bersih mati cmdTambah.Enabled = True cmdCari.Enabled = True cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() tambah = False cari = True ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtKdBrg.Locked = False txtKdBrg.SetFocus End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdHapus_Click() cmdHapus.Enabled = False cmdRubah.Enabled = False X = MsgBox("Apakah Data Mau di Hapus ? ..", vbYesNo, "SIMPAN") If X = vbYes Then Hapus mati bersih Segar adodc1.Refresh grid.Refresh cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub Simpan() On Error Resume Next Set rsSimpan = New ADODB.Recordset


rsSimpan.Open "tBarang", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!KDBarang = txtKdBrg.Text rsSimpan!NmBarang = txtNama.Text rsSimpan!satuan = txtSatuan.Text rsSimpan!kemasan = txtKemasan.Text rsSimpan.Update End Sub Private Sub cmdRubah_Click() cmdRubah.Visible = False cmdUpdate.Visible = True cmdHapus.Enabled = False ubah = True Hidup txtNama.SetFocus txtNama.SelLength = Len(txtNama.Text) End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtKdBrg.Locked = False txtKdBrg.SetFocus End Sub Private Sub cmdUpdate_Click() Rubah Segar mati bersih adodc1.Refresh grid.Refresh MsgBox "Data sudah di ubah" cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub Form_Activate() mati bersih With grid .TextMatrix(0, .TextMatrix(0, .TextMatrix(0, .TextMatrix(0, .TextMatrix(0,

0) 1) 2) 3) 4)

= = = = =

"" "Kode" "Nama Barang" "Satuan" "Kemasan"

.ColWidth(0) = 0 .ColWidth(1) = 1000


.ColWidth(2) = 2500 .ColWidth(3) = 2500 .ColWidth(4) = 2500 End With cmdTambah.Enabled = True cmdCari.Enabled = True cmdUpdate.Visible = False cmdRubah.Visible = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi End Sub Private Sub txtKemasan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not txtKemasan.Text = "" Then If tambah = True Then X = MsgBox("Apakah Mau Simpan ..", vbYesNo, "SIMPAN") If X = vbYes Then Simpan mati bersih Segar adodc1.Refresh grid.Refresh tambah = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else txtKdBrg.SetFocus End If ElseIf ubah = True Then X = MsgBox("Apakah Data Mau di Rubah ? ..", vbYesNo, "SIMPAN") If X = vbYes Then Rubah Segar mati bersih adodc1.Refresh grid.Refresh cmdCari.Enabled = True cmdTambah.Enabled = True cmdTambah.SetFocus Else txtNama.SetFocus End If End If Else MsgBox ("Kemasan barang harus ada ....!!") txtKemasan.SetFocus End If End If End Sub


Private Sub txtKdBrg_Change() If Len(txtKdBrg.Text) < 4 Then Exit Sub Else Set rsBarang = New ADODB.Recordset rsBarang.Open "Select * from tBarang where KdBarang = '" & txtKdBrg.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If Not rsBarang.EOF Then MsgBox ("Kode Barang sudah ada ...") txtKdBrg.Text = "" txtKdBrg.SetFocus Else txtKdBrg = UCase(txtKdBrg) txtNama.Locked = False txtNama.SetFocus End If ElseIf cari = True Then txtKdBrg = UCase(txtKdBrg) If Not rsBarang.EOF Then txtNama.Text = rsBarang.Fields("NmBarang") txtSatuan.Text = rsBarang.Fields("satuan") txtKemasan.Text = rsBarang.Fields("kemasan") cari = False cmdRubah.Enabled = True cmdHapus.Enabled = True Else MsgBox ("Data tidak ada ...") txtKdBrg.Text = "" txtKdBrg.SetFocus End If End If End If End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not txtNama.Text = "" Then txtSatuan.Locked = False txtSatuan.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub mati() txtKdBrg.Locked = True txtNama.Locked = True txtSatuan.Locked = True txtKemasan.Locked = True End Sub Private Sub Hidup() txtKdBrg.Locked = False txtNama.Locked = False txtSatuan.Locked = False txtKemasan.Locked = False End Sub


Private Sub bersih() txtKdBrg.Text = "" txtNama.Text = "" txtSatuan.Text = "" txtKemasan.Text = "" End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tBarang set NmBarang ='" & txtNama.Text & "',satuan='" & txtSatuan.Text & "',kemasan='" & txtKemasan.Text & "' where KdBarang='" & txtKdBrg.Text & "'", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub Hapus() On Error Resume Next Set rsHapus = New ADODB.Recordset rsHapus.Open "delete from tBarang where KdBarang = '" & txtKdBrg.Text & "'", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub Segar() Set rsHapus = New ADODB.Recordset rsHapus.Open "Select * from tBarang order by KdBarang asc", CN, adOpenDynamic, adLockOptimistic End Sub Private Sub txtSatuan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not txtSatuan.Text = "" Then txtKemasan.Locked = False txtKemasan.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub


Option Explicit Dim rsWarga As Recordset Dim rsDR As Recordset Dim CekTanggal As Date Dim JK, ST As String * 1 Dim KdAgama As String * 1 Dim rsNo As Recordset Dim noID As Integer Dim KdDr As String * 3 Sub Simpan() Set rsSimpan = New ADODB.Recordset rsSimpan.Open "tBerobat", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan!IdBerobat = txtID.Text rsSimpan!IdWarga = cboIdWarga.Text rsSimpan!Tglberobat = txtTgl.Text rsSimpan!kdDokter = KdDr rsSimpan!Diagnosa = txtDiagnosa.Text rsSimpan.Update tambah = False cari = False ubah = False mati Segar bersih Adodc1.Refresh grid.Refresh MsgBox "Data Sudah disimpan ..." End Sub Sub Segar() Set rsSegar = New ADODB.Recordset rsSegar.Open "Select * from tBerobat order by IdBerobat asc", CN, 1, 2 End Sub

Private Sub cboDokter_Click() Set rsDR = New ADODB.Recordset rsDR.Open "Select * from tDokter where NmDokter='" cboDokter.Text & "'", CN, adOpenDynamic, adLockOptimistic If Not rsDR.EOF = True Then KdDr = rsDR!kdDokter txtDiagnosa.Locked = False txtDiagnosa.SetFocus End If End Sub Private Sub cboIdWarga_Click() Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tWarga where IDWarga=" cboIdWarga.Text & "", CN, adOpenDynamic, adLockOptimistic If Not rsCari.EOF = True Then lblNama.Caption = rsCari!nmWarga JK = rsCari!JK If rsCari!JK = "L" Then lblnmJK.Caption = "Laki-Laki" Else lblnmJK = "Perempuan"


&

&

End If ST = rsCari!ST If rsCari!ST = "K" Then lblnmST.Caption = "KAWIN" Else lblnmST.Caption = "BELUM" End If KdAgama = rsCari!KdAgama If KdAgama = "1" Then lblnmAgama.Caption = "ISLAM" ElseIf KdAgama = "2" Then lblnmAgama.Caption = "PROTESTAN" ElseIf KdAgama = "3" Then lblnmAgama.Caption = "KATOLIK" ElseIf KdAgama = "4" Then lblnmAgama.Caption = "BUDHA" ElseIf KdAgama = "5" Then lblnmAgama.Caption = "HINDU" ElseIf KdAgama = "6" Then lblnmAgama.Caption = "KONGUCU" End If txtTgl.Enabled = True txtTgl.SetFocus End If End Sub Private Sub cmdBatal_Click() mati bersih tambah = False cari = False ubah = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdUpdate.Visible = False cmdRubah.Visible = True cmdTambah.Enabled = True cmdCari.Enabled = True cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub cmdCari_Click() cari = True tambah = False ubah = False cmdTambah.Enabled = False cmdCari.Enabled = False txtID.Locked = False txtID.SetFocus End Sub


Private Sub cmdHapus_Click() X = MsgBox("Yakin ingin dihapus?", vbYesNo) If X = vbYes Then Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tBerobat where txtID.Text & "", CN, adOpenDynamic, adLockOptimistic mati bersih Segar Adodc1.Refresh grid.Refresh Segar cmdHapus.Enabled = False cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus Else mati bersih cmdHapus.Enabled = False cmdRubah.Enabled = False cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub

IDBerobat="

Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True tambah = False cari = False Hidup txtTgl.Enabled = True txtTgl.SetFocus cmdRubah.Visible = False cmdHapus.Enabled = False cmdUpdate.Visible = True cmdUpdate.Enabled = True End Sub Private Sub cmdSimpan_Click() cmdSimpan.Visible = False cmdTambah.Visible = True Simpan cmdCari.Enabled = True cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True cari = False ubah = False cmdTambah.Visible = False cmdSimpan.Visible = True cmdCari.Enabled = False


&

Set rsNo = New ADODB.Recordset rsNo.Open "Select * from tBerobat order by IDBerobat Desc", CN, 1, 2 If rsNo.EOF = True Then noID = 1 Else noID = rsNo!IdBerobat + 1 End If txtID.Text = noID cboIdWarga.Locked = False cboIdWarga.SetFocus End Sub Sub mati() txtID.Locked = True cboIdWarga.Locked = True txtTgl.Enabled = False txtDiagnosa.Locked = True cboDokter.Locked = True End Sub Sub Hidup() txtID.Locked = False cboIdWarga.Locked = False txtTgl.Enabled = True txtDiagnosa.Locked = False cboDokter.Locked = False End Sub Sub bersih() txtID = "" cboIdWarga = "" txtTgl = "__-__-____" txtDiagnosa = "" cboDokter = "" lblnmJK = "" lblnmST = "" KdDr = "" JK = "" ST = "" End Sub Private Sub cmdUpdate_Click() cmdUpdate.Visible = False cmdUpdate.Enabled = False cmdRubah.Visible = True cmdRubah.Enabled = False If ubah = True Then Rubah ubah = False bersih mati Segar Adodc1.Refresh grid.Refresh MsgBox "Data Sudah di Update" cmdTambah.Enabled = True cmdCari.Enabled = True cmdTambah.SetFocus End If End Sub


Private Sub Form_Activate() mati bersih grid.ColWidth(0) = 0 grid.ColWidth(1) = 1000 grid.ColWidth(2) = 3000 grid.ColWidth(3) = 1200 grid.ColWidth(4) = 1200 grid.ColWidth(5) = 1200

grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0, grid.TextMatrix(0,

0) 1) 2) 3) 4) 5)

= = = = = =

"" "ID Berobat" "Id Warga" "Tgl Berobat" "Kd Dokter" "Diagnosa"

cmdUpdate.Visible = False cmdTambah.Visible = True cmdSimpan.Visible = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdTambah.SetFocus End Sub Private Sub Form_Load() Koneksi Set rsWarga = New ADODB.Recordset rsWarga.Open "select * from tWarga where STMutasi = '1' order by IDWarga asc", CN, adOpenDynamic, adLockOptimistic Do Until rsWarga.EOF = True cboIdWarga.AddItem rsWarga.Fields("IDWarga") rsWarga.MoveNext Loop Set rsDR = New ADODB.Recordset rsDR.Open "select * from tDokter order by NmDokter asc", CN, adOpenDynamic, adLockOptimistic Do Until rsDR.EOF = True cboDokter.AddItem rsDR.Fields("NmDokter") rsDR.MoveNext Loop End Sub

Private Sub txtID_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If cari = True Then Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tBerobat where idberobat=" txtID.Text & "", CN, adOpenDynamic, adLockOptimistic If Not rsCari.EOF = True Then txtTgl = Format(rsCari!Tglberobat, "dd-mm-yyyy") noID = rsCari!IdWarga KdDr = rsCari!kdDokter txtDiagnosa = rsCari!Diagnosa


&

Set rsDR = New ADODB.Recordset rsDR.Open "Select * from tDokter where KdDokter='" & KdDr & "'", CN, adOpenDynamic, adLockOptimistic If Not rsDR.EOF = True Then cboDokter.Text = rsDR!nmDokter End If cboIdWarga.Text = noID Set rsWarga = New ADODB.Recordset rsWarga.Open "Select * from IDWarga=" & cboIdWarga.Text & "", CN, 1, 2 If Not rsWarga.EOF = True Then

tWarga

lblNama.Caption = rsWarga!nmWarga JK = rsWarga!JK If rsWarga!JK = "L" Then lblnmJK.Caption = "Laki-Laki" Else lblnmJK = "Perempuan" End If ST = rsWarga!ST If rsWarga!ST = "K" Then lblnmST.Caption = "KAWIN" Else lblnmST.Caption = "BELUM" End If KdAgama = rsWarga!KdAgama If KdAgama = "1" Then lblnmAgama.Caption = "ISLAM" ElseIf KdAgama = "2" Then lblnmAgama.Caption = "PROTESTAN" ElseIf KdAgama = "3" Then lblnmAgama.Caption = "KATOLIK" ElseIf KdAgama = "4" Then lblnmAgama.Caption = "BUDHA" ElseIf KdAgama = "5" Then lblnmAgama.Caption = "HINDU" ElseIf KdAgama = "6" Then lblnmAgama.Caption = "KONGUCU" End If cmdRubah.Enabled = True cmdHapus.Enabled = True cmdRubah.SetFocus End If End If End If End If End Sub Private Sub txtTgl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtTgl.Text = "" Then


where

txtTgl.Text = Format(Now, "dd-mm-yyyy") End If txtTgl.Text = Format(txtTgl.Text, "dd-mm-yyyy") cboDokter.Locked = False cboDokter.SetFocus End If End Sub Private Sub txtTgl_LostFocus() On Error GoTo SalahTanggal CekTanggal = Format(CDate(txtTgl.Text), "dd-mm-yyyy") On Error GoTo 0 Exit Sub SalahTanggal: If Len(txtTgl.Text) = 0 Then Exit Sub End If MsgBox "Salah format" txtTgl.Text = "__-__-____" txtTgl.SetFocus End Sub Private Sub txtAlasan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then cmdSimpan.SetFocus ElseIf ubah = True Then cmdRubah.Enabled = True cmdRubah.SetFocus End If End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Sub Rubah() On Error Resume Next Set rsUbah = New ADODB.Recordset rsUbah.Open " Update tBerobat " & _ " set KdDokter ='" & KdDr & "' " & _ ", diagnosa ='" & txtDiagnosa.Text & "' " & _ " where IDBerobat=" & txtID.Text & "", CN, adOpenDynamic, adLockOptimistic End Sub


Dim rsPasswd As Recordset Dim rsSimpan As Recordset Dim rsCari As Recordset Dim rsUbah As Recordset Dim rsHapus As Recordset Dim tambah As Boolean Dim cari As Boolean Dim ubah As Boolean Private Sub cmdBatal_Click() txtUid.Text = "" txtPass.Text = "" ubah = False tambah = False cari = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdcari.Enabled = True cmdtambah.Enabled = True cmdtambah.SetFocus End Sub

Private Sub cmdCari_Click() cari = True cmdtambah.Enabled = False cmdcari.Enabled = False txtUid.Locked = False txtUid.SetFocus End Sub Private Sub cmdHapus_Click() Set rsHapus = New ADODB.Recordset rsHapus.Open "Delete from tPassword where userId='" & txtUid.Text & "' and passwd='" & txtPass.Text & "'", CN, adOpenDynamic, adLockOptimistic txtUid.Text = "" txtPass.Text = "" MsgBox "User sudah di hapus ..." cmdRubah.Enabled = False cmdHapus.Enabled = False cmdcari.Enabled = True cmdtambah.Enabled = True cmdtambah.SetFocus End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub cmdRubah_Click() ubah = True cmdRubah.Enabled = False cmdHapus.Enabled = False txtPass.Locked = False txtPass.SetFocus End Sub Private Sub cmdTambah_Click() tambah = True


cmdtambah.Enabled = False cmdcari.Enabled = False txtUid.Locked = False txtUid.SetFocus End Sub Private Sub Form_Activate() txtPass.Locked = True txtUid.Locked = True txtUid.Text = "" txtPass.Text = "" ubah = False tambah = False cari = False cmdRubah.Enabled = False cmdHapus.Enabled = False cmdcari.Enabled = True cmdtambah.Enabled = True cmdtambah.SetFocus End Sub Sub mati() txtPass.Locked = True txtUid.Locked = True cmdRubah.Enabled = False cmdHapus.Enabled = False End Sub Sub bersih() txtUid.Text = "" txtPass.Text = "" End Sub Private Sub Form_Load() Koneksi End Sub Private Sub txtPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Set rsPasswd = New ADODB.Recordset rsPasswd.Open "Select * from tPassword where userId='" & txtUid.Text & "' and passwd='" & txtPass.Text & "'", CN, adOpenDynamic, adLockOptimistic If tambah = True Then If rsPasswd.EOF = True Then Set rsSimpan = New ADODB.Recordset rsSimpan.Open "select * from tPassword", CN, adOpenDynamic, adLockOptimistic rsSimpan.AddNew rsSimpan.Fields("userId") = txtUid.Text rsSimpan.Fields("Passwd") = txtPass.Text rsSimpan.Update txtUid.Text = "" txtPass.Text = "" bersih MsgBox "Data sudah tersimpan" tambah = False mati cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus Else MsgBox "User sudah ada ..."


txtPass.Text = "" txtUid.Text = "" txtUid.SetFocus End If ElseIf ubah = True Then Set rsUbah = New ADODB.Recordset rsUbah.Open "Update tPassword Set passwd ='" & txtPass.Text & "' where userId ='" & txtUid.Text & "'", CN, adOpenDynamic, adLockOptimistic txtUid.Text = "" txtPass.Text = "" MsgBox "Data sudah Ubah" ubah = False mati bersih cmdtambah.Enabled = True cmdcari.Enabled = True cmdtambah.SetFocus End If End If End Sub Private Sub txtUid_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tambah = True Then Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPassword where userId='" & txtUid.Text & "'", CN, adOpenDynamic, adLockOptimistic If rsCari.EOF = True Then txtPass.Locked = False txtPass.SetFocus Else MsgBox "User sudah ada ..." txtUid.Text = "" txtPass.Text = "" txtUid.SetFocus End If ElseIf cari = True Then Set rsCari = New ADODB.Recordset rsCari.Open "Select * from tPassword where userId='" & txtUid.Text & "'", CN, adOpenDynamic, adLockOptimistic If rsCari.EOF = True Then MsgBox "User belum ada ..." txtUid.Text = "" txtUid.SetFocus Else txtPass.Text = rsCari.Fields("passwd") cmdRubah.Enabled = True cmdHapus.Enabled = True cmdRubah.SetFocus End If End If End If End Sub


Dim Report As New crDafBerobat Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean) End Sub Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub


Dim Report As New crDafMutasi Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean) End Sub Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub


Dim Report As New crDafSumbangan Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean) End Sub Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub


Dim Report As New crdafWarga Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub


Private Sub Command1_Click() Unload frmAbout End Sub Private Sub Form_Activate() Command1.SetFocus End Sub Private Sub Label4_Click() End Sub


Private Sub cmdExit_Click() Unload Me End Sub Private Sub Label12_Click() End Sub


SISTEM INFORMASI REHABILITASI PANTI JOMPO PADA PANTI SOSIAL TRESNA WERDHA ABDI BINJAI SKRIPSI NOVITA KHAIRUNISA E

Recommend Documents