PERANCANGAN SISTEM INFORMASI PENGISIAN BUKU TAMU PADA BADAN ARSIP DAN PERPUSTAKAAN PROVINSI ACEH

PERANCANGAN SISTEM INFORMASI PENGISIAN BUKU TAMU PADA BADAN ARSIP DAN PERPUSTAKAAN PROVINSI ACEH

(Karya Tulis Ilmiah) KTI

Di ajukan untuk melengkapi tugas-tugas dan memenuhi syarat-syarat guna memperoleh Gelar Ahli Madya Komputer STMIK U’Budiyah Indonesia

Oleh Subhan 07123010

PROGRAM STUDI DIII MANAJEMEN INFORMATIKA SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER STMIK U’BUDIYAH INDONESIA BANDA ACEH 2011

PERANCANGAN SISTEM INFORMASI PENGISIAN BUKU TAMU PADA BADAN ARSIP DAN PERPUSTAKAAN PROVINSI ACEH

(Karya Tulis Ilmiah) KTI Oleh Subhan 07123010

Disetujui, Dosen Pembimbing,

( Rahmad, ST )

Diketahui,

Ketua Program Studi DIII Manajemen Informatika

( Irvanizam Zamanhuri, M.Sc )

Ketua STMIK U’Budiyah Indonesia

( Drs. Alfian Ibrahim, M.Sc )

LEMBAR PENGESAHAN KTI oleh Subhan ini telah dipertahankan didepan dewan penguji pada 28 Mei 2011.

Dewan Penguji

1.

Ketua

Agustiar, ST., MT

2.

Anggota

M. Bayu Wibawa, S. Kom

3.

Anggota

Fathiah, ST

LEMBAR PERNYATAAN

Dengan ini saya menyatakan bahwa Karya Tulis Ilmiah dengan judul PERANCANGAN SISTEM INFORMASI PENGISIAN BUKU TAMU PADA BADAN ARSIP DAN PERPUSTAKAAN PROVINSI ACEH ini beserta seluruh isinya adalah benar karya saya sendiri, dan saya tidak melakukan penjiplakan atau pengutipan dengan cara-cara yang tidak sesuai denga etika keilmuan yang berlaku dalam masyarakat keilmuan. Atas pernyataan ini, saya siap menanggung resiko/sanksi yang dijatuhkan kepada saya apabila kemudian ditemukan adanya pelanggaran terhadap etika keilmuan dalam karya saya ini, atau ada klaim dari pihak lain terhadap keaslian karya saya ini.

Banda Aceh, 28 Mei 2011 Yang Membuat Pernyataan Ttd

SUBHAN

ABSTRAK Perancangan Sistem Informasi Pengisian Buku Tamu Pada Badan Arsip dan Perpustakaan Provinsi Aceh merupakan suatu yang sangat penting dalam mendukung teknologi dimasa sekarang ini. Pokok permasalahan dalam penulisan ini adalah bagaimana Perancangan Sistem Informasi Pengisian Buku Tamu ini dengan menggunakan visual basic pada Badan Arsip dan Perpustakaan Provinsi Aceh. Tujuan dari pembahasan ini adalah bagaimana cara merancang system yang baru dan juga untuk mengetahui manfaat yang diperoleh dari sistem informasi ini. Dalam pembahasan ini penulis memperoleh data – data melalui penelitian kepustakaan dan Kerja Praktek (KP). Pembahasan kepustakaan dilakukan guna memperoleh arahan yang tepat dalam penulisan KTI ini. Penelitian dilapangan dilakukan melalui dua cara yaitu melalui observasi langsung kelokasi pembahasan serta melakukan wawancara dengan pihak – pihak terkait, dan kerja praktek adalah penggabungan dari kedua metode penelitian tersebut. Manfaat yang diperoleh dari pelaksanaan sistem informasi adalah memberikan kemudahan pada pihak kantor dalam meningkatkan kualitas yang semakin baik.

ABSTRACT Information System Design of Guest Book on Library Board and Archives of Aceh Province is a very important role in supporting today's technological future. The issue in this paper is how to design Information Systems of the Guestbook by using visual basic on the National Library and Archives of Aceh Province. The purpose of this discussion is how to design a new system and also to know the benefits derived from this information system. In this discussion the authors obtained data - data through library research and theJob Training (KP). Discussion of the literature was conducted to obtain accurate guidance in the writing of this EI. Field research conducted in two ways: through direct observation of localized discussions and interviews with the parties - stakeholders, and practical work is the incorporation of these two methods of research. Benefits gained from the implementation of information systems is to provide convenience to the party office in improving the quality the better.

Kata Pengantar

Assalamu’alaikum Wr, Wb Alhamdulillah Puji Syukur Penulis panjatkan kehadirat Allah SWT, Zat yang Maha Indah dengan segala keindahan-Nya, Zat yang Maha Pengasih dengan segala kasih-Nya, yang terlepas dari segala sifat lemah semua makhluk-Nya. Alhamdulillah berkat rahmat dan hidayah-Nya penulis dapat menyelesaikan laporan ini. Selawat dan salam mahabbah semoga senantiasa dilimpahkan kepada Nabi Muhammad SAW, sebagai pembawa risalah Allah terakhir dan penyempurnaan seluruh risalah-Nya. Akhir dengan segala kerendahan hati izinkanlah penulis menyampaikan terima kasih dan penghargaan yang setinggi-tingginya kepada: 1. Dosen Pembimbing Bapak Rahmad, ST yang telah banyak memberi bimbingan dan pengarahan dalam Penyusunan KTI ini. 2. Ketua Program Studi Bapak Tarmizi, ST yang telah membantu penulis selama masa kuliah. 3. Ketua STMIK U’Budiyah Bapak Zulfikar, S. Kom., M. MSI yang telah membantu penulis selama masa kuliah. 4. Kepala Badan Arsip dan Perpustakaan Provinsi Aceh dan seluruh Staf yang telah memberikan masukan dalam penulisan KTI ini.

5. Staf Dosen STMIK U’Budiyah yang telah membantu penulis selama masa kuliah. 6. Orang Tua yang telah membesarkan, mendidik, memberi perhatian dan dorongan serta do’a yang tiada hentinya sehingga penulis mampu menyelesaikan jenjang studi Diploma III. 7. Semua kawan-kawan yang telah membantu penulis dalam menyelesaikan Karya Tulis Ilmiah ini. Semoga kebaikan yang diberikan oleh semua pihak kepada penulis menjadi amal shaleh yang senantiasa mendapat balasan dan kebaikan yang berlipat ganda dari Allah Subhanahu Wa Ta’ala. Akhir kata, penulis menyadari bahwa masih terdapat kekurangan dalam laporan ini, untuk itu saran dan kritik yang sifatnya membangun sangat penulis harapkan.

Aceh Besar, 28 Mei 2011 Penulis

Subhan

DAFTAR ISI Halaman HALAMAN PERSETUJUAN ............................................................. HALAMAN PENGESAHAN ............................................................... HALAMAN PERNYATAAN ............................................................... ABSTRAK ............................................................................................ KATA PENGANTAR ........................................................................... DAFTAR ISI ......................................................................................... DAFTAR GAMBAR ............................................................................. DAFTAR TABEL .................................................................................

ii iii iv v vi viii x xi

BAB I PENDAHULUAN ...................................................................... 1.1. Latar Belakang ........................................................................... 1.2. Perumusan Masalah ................................................................... 1.3. Batasan masalah ......................................................................... 1.4. Tujuan dan Manfaat penelitian .................................................. 1.5. Sistematika Penulisan..................................................................

1 1 2 2 2 2

BAB II TINJAUAN KEPUSTAKAAN ............................................... 2.1. Gambaran Instansi ...................................................................... 2.1.1. Sejarah Singkat Instansi .................................................. 2.1.2. Tugas dan Fungsi ............................................................. 2.1.3. Visi dan Misi ................................................................... 2.1.4. Pengguna Perpustakaan ................................................... 2.1.5. Layanan Perpustakaan ..................................................... 2.1.6 Struktur Organisasi ......................................................... 2.2. Landasan Teori ............................................................................ 2.2.1. Konsep Dasar Sistem ........................................................

4 4 4 5 6 6 6 7 8 8

BAB III METODE PENELITIAN ...................................................... 3.1. Lokasi Penelitian ....................................................................... 3.2. Metode Penelitian...................................................................... 3.3. Alat-alat yang Dipakai Dalam Penelitian ................................... 3.4 Analisis Data ..............................................................................

21 21 21 22 22

BAB IV HASIL DAN PEMBAHASAN ............................................. 4.1. Perancangan Sistem Informasi Pengisian Buku Tamu Pada Badan Arsip dan Perpustakaan Provinsi Aceh ........................... 4.1.1 Pengisian Buku Tamu pada Perpustakaan Provinsi Aceh 4.1.2 Sistem Informasi Usulan ...................................................

23 23 23 23

4.1.2.1 Rancangan Data Flow Diagram (DFD)................. 4.1.2.2 Tahap Rencana Pendahuluan ................................ 4.1.2.3 Rancangan File ..................................................... 4.1.2.4 Rancangan Keluaran ............................................. 4.1.2.5 Rancangan Kontrol ............................................... 4.1.2.6 Tahap Implementasi Sistem .................................. 4.2. Pembahasan ................................................................................ 4.2.1 Pengoperasian Sistem........................................................

23 24 26 27 27 27 28 28

BAB V PENUTUP ................................................................................. 5.1 Kesimpulan ................................................................................. 5.2 Saran ............................................................................................

37 37 37

DAFTAR PUSTAKA STRUKTUR ORGANISASI LISTING PROGRAM BIODATA PENULIS

DAFTAR GAMBAR

Halaman Gambar 2.1 Struktur Visual Basic 6.0 .................................................... 15 Gambar 2.2 ToolBox Visual Basic 6.0 ................................................... 17 Gambar 4.1 Diagram Konteks................................................................. 24 Gambar 4.2 Diagram Nol ........................................................................ 25 Gambar 4.3 Login Admin ....................................................................... 28 Gambar 4.4 Form Menu Utama .............................................................. 29 Gambar 4.5 Form Data Tamu ................................................................. 30 Gambar 4.6 Form Pencarian Data Tamu................................................. 31 Gambar 4.7 Form Data Member ............................................................. 32 Gambar 4.8 Form Pencarian Data Member ............................................ 32 Gambar 4.9 Form Laporan Data Tamu ................................................... 33 Gambar 4.10 Form Laporan Data Member ............................................. 33 Gambar 4.11 Output Laporan Data Tamu............................................... 34 Gambar 4.12 Form Tambah Admin........................................................ 34 Gambar 4.13 Form Ubah Password Admin............................................ 35 Gambar 4.14 Form Backup Database...................................................... 35 Gambar 4.15 Form About Me................................................................. 36

DAFTAR TABEL

Halaman Tabel 4.1 Struktur Tabel Admin................................................................

26

Tabel 4.2 Struktur Tabel Buku Tamu........................................................

26

Tabel 4.3 Struktur Tabel Member..............................................................

27

BAB I PENDAHULUAN

1.1

Latar Belakang Seiring perkembangan zaman, perkembangan teknologi saat ini semakin

pesat. Komputer merupakan salah satu bentuk teknologi yang berperan untuk membantu pekerjaan manusia agar dapat lebih mudah, efektif dan efisien. Berbagai kegiatan yang pada awalnya dilakukan secara manual, sekarang dengan adanya alat bantu komputer maka proses pengolahan data dan penyimpanan data dapat terselesaikan dengan waktu yang relatif lebih cepat dari pada menggunakan tenaga manusia secara manual. Keberadaan teknologi komputer sangat dibutuhkan, hampir seluruh perusahaan / instansi baik pemerintahan maupun swasta di Indonesia telah memiliki teknologi yang canggih dalam pengolahan data. Berdasarkan observasi yang penulis lakukan, Staf dibidang pelayanan dan teknologi, bagian kepegawaian dan tatalaksana masih mengalami kesulitan untuk memproses data pengunjung perpustakaan. Walaupun telah menggunakan komputer sebagai sarana penunjangnya, tetapi dalam pengolahan data pada buku tamu masih disimpan secara manual ke dalam arsip perpustakaan. Berdasarkan uraian tersebut maka laporan yang dihasilkan terkadang masih mengalami kekeliruan, tidak akurat, tidak up to date, kurang efisien dan sering mengalami keterlambatan pembuatan dan penyampaian laporan.

1

Berdasarkan penjelasan di atas, maka penulis tertarik untuk melakukan penelitian tentang “Perancangan Sistem Informasi Pengisian Buku Tamu Pada Badan Arsip dan Perpustakaan Provinsi Aceh”. 1.2

Perumusan Masalah Adapun Perumusan Masalah dari Tugas Akhir ini adalah: 1. Bagaimana cara Merancang Sistem Informasi Pengisian Buku Tamu pada Perpustakan. 2. Bagaimana prosedur penggunaan Database tersebut dalam sistem informasi Perpustakaan.

1.3

Batasan Masalah Batasan masalah dalam penelitian ini hanya pada pada perancangan sistem

informasi pengisian buku tamu pada Badan Arsip dan Perpustakaan Provinsi Aceh. 1.4 Tujuan dan Mamfaat Penelitian Tujuan penelitian ini adalah untuk mengetahui dan memahami bagaimana cara merancang buku tamu dan mengelola Database tersebut dalam menginput data. Adapun manfaat penelitian ini diharapkan dapat dijadikan referensi dan bahan kajian dalam pengelolaan data tamu yang mengunjungi perpustakaan. 1.5 Sistematika Penulisan Tugas Akhir ini terdiri dari 5 (lima) bab, antara lain membahas tentang : BAB I. PENDAHULUAN Pada bab ini membahas tentang latar belakang, perumusan masalah, tujuan dan manfaat penelitian, batasan masalah serta sistematika penulisan.

BAB II. TINJAUAN KEPUSTAKAAN Bab ini membahas tentang gambaran umum instansi meliputi sejarah dan stuktur organisasi dan landasan teori. BAB III. METODE PENELITIAN Pada bab ini membahas tentang lokasi penelitian, metode penelitian, alatalat yang dipakai dalam penelitian dan analisis data. BAB IV. HASIL DAN PEMBAHASAN Pada bab ini membahas tentang kinerja dan hasil dari penelitian. BAB V. PENUTUP Pada bab ini meliputi kesimpulan serta saran untuk pengembangan lembaga maupun instansi.

BAB II TINJAUAN KEPUSTAKAAN

2.1

Gambaran Umum Instansi

2.1.1 Sejarah Singkat Instansi Badan Arsip dan Perpustakan Provinsi Aceh pertama didirikan tahun 1969 bernama Perpustakaan Negara yang berlokasi pada salah satu ruangan seluas 12 m2 di Kantor Perwakilan Departemen Pendidikan dan Kebudayaan Daerah Istimewa Aceh dengan jumlah koleksi 80 eksemplar dan pegawai 2 orang. Berdasarkan

surat

keputusan

Menteri

Pendidikan

dan

Kebudayaan

No.8429/c/b.3/1979 tanggal 29 Oktober 1979 berubah menjadi Pepustakaan wilayah. Pada tahun 1989 terbit Kepres No. 11/1989 yang mengatur bahwa perpustakaan wilayah berubah nama menjadi perpustakaan daerah. Terbitnya Kepres No. 50 tahun 1997 tentang perubahan struktur organisasi Perpustakaan Nasional RI yang berdampak pula pada perubahan nama dari perpustakaan daerah menjadi Perpustakaan Nasional Provinsi D.I Aceh. Terbitnya Perda no. 39 tahun 2001 perpustakaan Nasional Provinsi D.I. Aceh telah menjadi salah satu lembaga daerah dengan nama Badan Perpustakaan Provinsi Aceh. Terakhir UUD 11 tahun 2006 tentang Pemerintahan Aceh dan Qanun nomor 5 tahun 2007 tentang perubahan stuktur organisasi pemerintahan daerah maka Badan Perpustakaan Provinsi Aceh di gabung dengan Badan Arsip Provinsi Aceh dengan nama Badan Arsip dan Perpustakaan Provinsi Aceh.

4

Gempa dan Tsunami yang melanda Aceh pada tahun 2004 silam mengakibatkan aktivitas Badan Arsip dan Perpustakaan terhenti beberapa bulan, karena seluruh koleksi, rak buku, meja dan kursi baca, serta jaringan LAN hancur total, namun pada bulan Mei 2005 Badan Arsip dan Perpustakaan Provinsi mulai dibuka kembali untuk umum. Badan Arsip dan Perpustakaan banyak menerima bantuan dari berbagai pihak baik dari Lembaga pemerintah maupun NGO seperti Perpustakaan Nasional RI, PT. HM. Sampoerna Tbk, Perpustakaan Nasional Australia, Persatuan Pustakawan Malaysia, World Vision, Goethe Institut, UNESCO, Kota Augsburg Jerman, dan lain-lain. 2.1.2

Tugas dan Fungsi a.

Tugas Membantu pemerintah Provinsi Aceh di bidang pembinaan dan

pengelolaan perpustakaan, dokumentasi dan informasi berdasarkan peraturan perundang-undangan yang berlaku dan kebijakan yang ditetapkan oleh gubernur. b. Fungsi 1. Perumusan kebijakan teknis di bidang perpustakaan 2. Pelayanan penunjang penyelenggaraan pemerintah provinsi di bidang perpustakaan. 3. Pelaksanaan penyusunan bibliografi daerah, katalog induk daerah, bahan rujukan berupa indeks, bibliografi subjek, abstrak dan literatur sekunder lainnya.

4. Pelaksanaan,

pengadaan,

pengumpulan,

pengolahan

dan

penyimpanan, pelestarian dan pemberdayaan bahan pustaka baik karya cetak serta karya rekam; dan 5. Pelaksanaan urusan umum, kepegawaian dan keuangan.

2.1.3

Visi dan Misi a.

Visi Pemberdayaan sumber daya perpustakaan untuk menciptakan

masyarakat cerdas dan berkualitas. b. Misi 1.

Pembinaan dan pengembangan sumber daya semua jenis perpustakaan

2.

Meningkatkan pengelolaan dan pelestarian bahan perpustakaan

3.

Meningkatkan layanan perpustakaan dan informasi

4.

Mengembangkan minat baca dan sosialisasi akses informasi bagi masyarakat.

2.1.4

Pengguna Perpustakaan Sesuai dengan pengertian Perpustakaan umum yaitu perpustakaan yang

diselenggarakan oleh dana umum dengan tujuan melayani masyarakat umum, maka pengguna perpustakaan provinsi aceh adalah seluruh masyarakat umum mulai dari anak-anak, siswa, mahasiswa, PNS (Pegawai Negeri Sipil), Polri, TNI dan umum. 2.1.5

Layanan Perpustakaan Jenis layanan perpustakaan terdiri dari : 1. Layanan Stasioner yaitu layanan yang dilakukan di gedung perpustakaan meliputi:

 Sirkulasi atau peminjaman buku yang boleh dibawa pulang.  Referensi atau buku/koleksi untuk dibaca ditempat 2. Layanan Ekstensi yaitu layanan jarak jauh untuk masyarakat yang tidak bisa mendatangi Badan Perpustakaan Aceh, meliputi:  Layanan unit mobil keliling pada tempat-tempat tertentu.  Layanan paket bagi organisasi seperti sekolah, rumah sakit, panti asuhan dan perpustakaan mesjid. 2.1.6

Struktur Organisasi Badan Arsip dan Perpustakaan Dalam sebuah organisasi atau instansi sangat memerlukan sebuah struktur

organisasi guna untuk menjalankan tugas masing-masing bagian dalam sebuah organisasi atau instansi. Adapun bagian-bagian yang ada dalam struktur organisasi tersebut adalah : 1.

Kepala Badan

2.

Sekretaris Sub Bagian Umum Sub Bagian Kepegawaian dan Tata laksana Sub Bagian Keuangan

3.

Kelompok Jabatan Fungsional

4.

Bidang Program dan Evaluasi Sub Bidang Penyusunan Program Sub Bidang Evaluasi dan Pelaporan

5.

Bidang Deposit dan Pengkajian Sub Bidang Deposit dan Bibliografi Sub Bidang Budaya Baca

6.

Bidang Pelayanan dan Teknologi Sub Bidang Pelayanan Publik Sub Bidang Teknologi Informasi

7.

Bidang Pengelolaan Khasanah Sub Bidang Akuisisi dan Pengolahan Sub Bidang Penilaian dan Penyusutan

8.

Bidang Pembinaan dan Pengembangan Sub Bidang Pembinaan SDA Sub Bidang Pengembangan Kelembagaan

9.

Bidang Pelestarian dan Konservasi Sub Bidang Pemeliharaan dan Perawatan Sub Bidang Naskah Sumber dan Reproduksi

Bagian- bagian yang tersebut diatas tersusun dalam sebuah struktur berdasarkan tingkatannya masing-masing. 2.2

Landasan Teori

2.2.1

Konsep Dasar Sistem

1. Pengertian Sistem Informasi Sistem Informasi adalah aplikasi komputer untuk mendukung operasi dari suatu organisasi. berupa operasi, instalasi, dan perawatan komputer, perangkat lunak, dan data. Menurut Jerry Fithgerald, “Sistem adalah suatu jaringan kerja dari prosedur-prosedur yang saling berhubungan, berkumpul bersama-sama untuk melakukan suatu kegiatan atau menyelesaikan suatu sasaran tertentu”.

Bornar Dan Hopwood (1993). ”Sistem informasi adalah kumpulan perangkat keras dan perangkat lunak yang di rancang untuk menrtansformasikan data ke dalam bentuk informasi yang berguna”. Beberapa hal yang harus ada dalam sebuah sistem informasi yaitu : 

Perencanaan Sistem Informasi



Pengelolaan Sistem Informasi



Pengendalian Sistem Informasi



Penilaian Sistem Informasi Dalam merancang sebuah sistem informasi perlu adanya analisa sistem

yaitu dengan mempelajari sistem yang berjalan pada sebuah perusahaan atau instansi dimana user bekerja beserta dengan segala permasalahannya. Tujuannya adalah untuk mendapatkan gambaran secara jelas tentang bagaimana membangun dan menyusun rancangan sistem yang akan di usulkan. Pada tahap analisis sistem, rencana implementasi sistem akan menaikkan kemungkinan transisi yang mulus dari sistem informasi saat ini ke sistem informasi yang baru. Kegiatan ini merupakan prosedur untuk mengkonversi spesifikasi logis ke dalam sebuah rancangan logis sebagai suatu bentuk dari model sistem yang akan dirancang. Selain itu sistem analis juga membutuhkan jadwal perancangan sistem. Sistem analis dapat mendesain model dari sistem informasi yang diusulkan dalam bentuk logical model. Model (tool) sistem merupakan alat yang tepat digunakan untuk membentuk suatu sistem.

2.

Pengertian Database Database adalah serangkaian arsip atau kumpulan file-file data yang saling

berelasi atau berhubungan, relasi tersebut biasa ditunjukkan dengan kunci dari tiap file yang ada, yang disimpan sedapat mungkin dengan redudansi data yang sedikit mungkin dan dapat dimasukkan oleh satu atau lebih program aplikasi. Pemakai sistem database dapat memperoleh kemudahan untuk melakukan operasi terhadap file-file, seperti: a. Penambahan file baru ke dalam database b. Penyisipan data baru ke file yang sudah ada c. Pengambilan data dari file yang sudah ada d. Peembaharuan data di dalam file yang sudah ada e. Penghapusan data dari file yang ada. 3.

Fungsi Database Fungsi dari database adalah untuk mengatasi dan mengurangi atau

meminimalkan masalah misalnya yang sering muncul dalam pengolahan data (File Processing Sistem). Dan masalah tersebut adalah sebagai berikut. a. Redudancy dan Inconsistency Data Jika file-file dan program aplikasi diciptakan oleh programmer yang berbeda maka ada kemungkinan terjadi penggandaan beberapa bagian data pada file-file yang berbeda. Penyimpanan data yang sama pada beberapa tempat file yang berbeda disebut redudancy dan mengakibatkan pemborosan ruang penyimpanan dan biaya untuk akses menjadi lebih tinggi. Inconsistency data adalah perubahan data yang tidak dilakukan terhadap seluruh data yang mengalami redudansi.

b. Isolasi data untuk standarisasi Jika data yang tersimpan dalam beberapa file memiliki format yang berbeda, maka akan menyulitkan dalam menulis program untuk mengakses data. Untuk mengatasi masalah tersebut, maka data yang diletakkan dalam satu database haruslah memiliki format yang sama sehingga program aplikasinya mudah dibuat. c. Keamanan data Tidak semua orang atau pemakai sistem database diberikan hak untuk mengakses data. Keamanan data ini dapat diatur lewat program aplikasinya dengan memberikan password. d. Integritas (keutuhan) data Database berisi file-file yang saling berkaitan, masalahnya adalah cara untuk menghubungkan file-file tersebut. File tersebut dihubungkan dengan menggunakan field kunci. Field kunci merupakan field yang nilainya unik dan mewakili record, setiap orang atau objek yang mewakili satu field kunci. e. Multiple User Untuk meningkatkan daya guna sistem mempercepat waktu akses dan penghematan memori, beberapa sistem mengijinkan banyak pemakai untuk mengakses data secara bersamaan. Data dapat digunakan untuk banyak orang, diakses oleh program yang sama dalam waktu yang berbeda. f. Kesulitan mengakses data Kesulitan untuk mengakses data tertentu akan mucul jika belum tersedia program yang digunakan untuk akses. Kesalahan ini akan teratasi dengan adanya

DBMS yang mampu mengambil data secara langsung dengan menggunakan bahasa yang sederhana. g. Kebebasan data Jika suatu ketika terjadi perubahan data maka program aplikasi tersebut juga harus diubah. Hal ini disebut bahasa program yang telah dibuat tidak bebas terhadap database yang ada. Berbeda dengan aplikasi yang dibuat DBMS, perubahan apapun yang terjadi pada struktur database tidak menyebabkan program harus diubah pada saat itu. 4.

Database Management Sistem Database Management Sistem merupakan software khusus menangani data

yaitu yang menyimpan, mengorganisir, mengolah dan menemukan kembali sekian banyak data yang diperlukan, serta mengumpulkan semua data menjadi data yang terpadu (integrated) yang mempunyai hubungan antara data, sehingga bisa digunakan bersama oleh aplikasi lain. Database Management Sistem adalah sekumpulan data yang saling berelasi dan satu set program yang digunakan untuk mengakses data tersebut. Tujuan utama sistem database adalah untuk mempermudah penciptaan struktur data dan membebaskan pemrogram dari masalah penyusunan file yang kacau. Sebuah sistem database pada dasarnya merupakan suatu sistem penyimpanan atau pemeliharaan record yang berbasis komputer. Database itu sendiri dianalogikan sebagai almari file elektronik seperti penyimpanan file-file data yang terkomputerisasi.

5.

Microsoft Visual Basic 6.0 a. Microsoft Visual Basic Microsoft Visual Basic merupakan bahasa pemrograman yang berbasis

microsoft windows, sebagai bahasa pemrograman yang mutakhir, Microsoft Visual Basic 6.0 didesain untuk dapat memanfaatkan fasilitas yang tersedia dalam Microsoft windows. Microsoft Visual Basic 6.0 juga merupakan bahasa pemrograman Object Oriented Programing (OOP), yaitu pemrograman yang berorientasi objek. Visual Basic merupakan salah satu software untuk membuat program yang cukup sederhana tetapi banyak cakupan yang dapat dikerjakan, karena visual basic dapat mengakses banyak software seperti Excel, Access dan sebagaiya. Visual basic lebih sederhana dari pemrograman yang lain. Kesederhanaan visual basic terletak pada kemudahan membuat bahasa pemrograman dan bentuk tampilan yang dikehendaki. Visual Basic ini merupakan pengembangan bahasa basic yang diterapkan pada program yang berbasis Windows. Visual Basic 6.0 adalah salah satu development tools untuk membangun aplikasi dalam lingkungan windows. Dalam pengembangan aplikasi, visual basic menggunakan pendekatan visual untuk merancang user interface atau tampilan dalam bentuk form, sedangkan untuk kodingnya menggunakan bahasa basic yang cenderung mudah dipelajari. Visual basic telah menjadi tools yang terkenal bagi para pemula maupun developer. Dalam lingkungan windows user interface memegang peranan penting, karena dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan user interface tanpa menyadari bahwa di

belakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan. Pembuatan program pada visual basic seperti pembuatan program pada bahasa-bahasa lain, hanya saja pada visual basic banyak kemudahan yang dimiliki dibanding dengan program lain. Secara garis besar pembuatan program pada visual basic ada tiga bagian yaitu pengaturan form, pengaturan properties dan pembuatan program pada jendela code. Setelah selesai dibuat, program dapat dikompilasi sehingga menghasilkan executable program atau langsung dijalankan pada lingkungan visual basic. b. Pemrograman Visual Di lingkungan windows perangkat lunak pengembangan aplikasi cenderung

mengarah

ke

pemrograman

visual.

Dengan

menggunakan

pemrograman visual, antarmuka pengguna dapat dibuat dengan mudah dan dilakukan secara visual. Kemudahan secra visual ini diterapkan pada pembuatan laporan dan berbagai aktivitas lainnya sehingga diharapkan pengembangan suatu aplikasi dapat dilakukandengan cepat. Pemrograman visual menggunakan konsep yang disebut pemrograman berorientasi objek (PBO) dan pemrograman yang dikendalikan oleh kejadian (event driven). Oleh karena pemrograman visual menggunakan pemrograman berorientasi objek, komponen-komponen yang menyusun antarmuka berupa sejumlah objek, misalnya form. Mengingat PBO juga Menyediakan kemampuan pewarisan (inheritance) sehingga dapat membuat suatu objek baru yang mewarisi sifat-sifat objek yang telah ada, dengan beberapa perubahaan sifat.

c. Struktur Aplikasi Microsoft Visual Basic 6.0 Title Bar

Menu Bar

Tool Box

Form Windows

Tool Bar

Project Explorer

Jendela Kode

Properties

Form Layout Winndows Gambar 2.1 Struktur Microsoft Visual Basic 6.0.



Title Bar

Title bar merupakan batang jendela dari program visual basic 6.0 yang terletak pada bagian paling atas dari jendela program yang berfungsi untuk menampilkan judul atau nama jendela. Selain itu juga berfungsi untuk memindahkan posisi jendela dengan menggunakan drag and drop pada posisi title bar tersebut dan untuk mengatur ukuran Title Bar, Menu Bar, Toolbars, Project Explorer, Toolbox, Form Window, Jendela Code, Properties, dan Form Layout Window.



Menu Bar

Menu bar merupakan batang menu yang terletak di bawah title bar yang berfungsi untuk menampilkan pilihan menu atau perintah untuk mengoperasikan program visual basic. Saat pertama kali jendela program visual basic terbuka dapat dilihat tiga belas menu utama yaitu file, edit, view, project, format, debug, run, quey, diagram, tools, addins, window, dan help. Menu bar mempunyai sederetan pilihan menu yang masing-masing mempunyai arti dan fungsi yang berbeda. 

Toolbars

Toolbars merupakan sebuah batang yang berisi kumpulan tombol yang terletak dibagian bawah menu bar yang dapat digunakan untuk menjalankan sebuah perintah. Pada kondisi default program visual basic hanya menampilkan toolbars standar. 

Project Explorer

Project Explorer merupakan suatu kumpulan module atau merupakan program aplikasi itu sendiri. Dalam visual basic, file project disimpan dengan nama file berakhiran vbp, dimana file ini berfungsi untuk menyimpan seluruh komponen program. Apabila membuat suatu program aplikasi baru maka secara otomatis project tersebut akan diisi dengan form baru. Dalam jendela project explorer ditampilkan suatu struktur hirarki dari sebuah project itu sendiri yang berisi semua item yang terkandung di dalamnya. 

Form

Form merupakan windows atau jendela di mana akan dibuat user interface.



Toolbox atau kontrol

Merupakan tampilan berbasis grafis yang dimasukkan pada form untuk membuat interaksi dengan pemakai. Bentuk toolbox visual basic adalah sebagai berikut.

Pointer Label Frame CheckBox ComboBox HScrollBar Timer DirListBox Shape Image OLE DB Combo DataList SSTab

PictureBox TextBox Command Button Option Button ListBox VScrollBar Drive List Box File List Box Line Data DB List Data Grid Data Combo

Gambar 2.2 ToolBox Visual Basic 6.0.

Adapun secara garis besar fungsi dari masing-masing control tersebut adalah sebagai berikut. a) Pointer bukan merupakan suatu kontrol tapi icon ini digunakan ketika memilih kontrol yang sudah berada pada form. b) Picturebox adalah kontrol yang digunakan untuk menampilkan image dengan format BMP, DIB, (Bitmap), ICO (Icon), CUR (Cursor), WMF (Metafile), CMF (Enhanced Metafile), GIF, JPEG.

c) Label adalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki. d) Textbox adalah kontrol yang mengandung string yang dapat dipakai oleh pemakai, dapat berupa satu baris tunggal atau banyak baris. e) Frame adalah kontrol yang digunakan sebagai kontainer bagi kontrol lainnya. f) CommandButton merupakan kontrol hampir ditemukan pada setiap form dan digunakan untuk membangkitkan event proses tertentu ketika pemakai melakukan klik padanya. g) CheckBox digunakan untuk pilihan yang isinya bernilai yes atau no, true atau false. h) OptionButton sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat dipilih satu. i) ListBox mengandung sejumlah item dan pemakai dapat memilih lebih dari satu. j) ComboBox merupakan kombinasi dari TextBox dan suatu ListBox di mana pemasukan data dapat dilakukan dengan pengetikan maupun pemilihan. k) HScrollbar/VScrollbar digunakan untuk membentuk scrollbar berdiri sendiri. l) Timer digunakan untuk proses background yang diaktifkan berdasarkan interval waktu tertentu. Ini merupakan kontrol non-visual. m) DriveListBox, DirListBox, dan FileListBox sering digunakan untuk membentuk dialog box yang berkaitan dengan file.

n) Shape dan Line digunakan untuk menampilkan bentuk seperti garis, persegi, bulatan, oval. o) Image berfungsi menyerupai image box, tetapi tidak dapat digunakan sebagai kontainer bagi kontrol lainnya. Sesuatu yang perlu diketahui bahwa

kontrol

image

menggunakan

resource

yang

lebih

kecil

dibandingkan dengan Picture Box. p) Data dan Adodc digunakan untuk menampilkan database pada suatu form. q) OLE dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft Excel, Microsoft Word, dan lain-lain. r) SSTab adalah objek berbentuk lembaran-lembaran. Setiap lembaran dapat berisi kelompok informasi. s) DataGrid digunakan untuk menampilkan data dalam bentuk grid seperti di worksheet excel. t) DalaList dan DataCombo digunakan untuk menampilkan data dalam sebuah drop-down list box. 

Properties

Properties merupakan nilai yang dimiliki oleh sebuah objek visual basic, merupakan sebuah jendela yang digunakan untuk menampung nama properti dari kontrol yang dipilih. 

Jendela Code

Jendela Code adalah salah satu jendela yang paling penting dalam visual basic, yang berisi kode-kode program yang merupakan instruksi-instruksi untuk aplikasi visual basic. Setiap objek pada visual basic dapat ditambahai kode-kode

program untuk melaksanakan tugastugas tertentu, misalnya membatalkan perintah, menutup aplikasi dan sebagainya. 

Form Layout Window

Form Layout Window merupakan sebuah jendela yang digunakan untuk mengatur posisi dari form pada form saat program dijalankan. Pada saat mengarahkan pointer mouse ke bagian form, maka pointer mouse akan berubah menjadi anak panah empat arah (pointer mengatur posisi) untuk memindah posisi form pada layar monitor dapat dilakukan dengan proses drag and drop. 6.

Crystal Report 8.0 Crystal Report merupakan salah satu produk dari Seagate Software yang

menangani perkembangan teknologi penyajian laporan. Crystal report merupakan program khusus untuk membuat laporan yang terpisah dengan program Microsoft Visual Basic 6.0tetapi keduanya dapat dihubungkan (Linkage). Mencetak dengan Crystal Report hasilnya lebih baik dan lebih mudah karena pada Crystal Report banyak tersedia objek-objek maupun komponen yang mudah digunakan.

BAB III METODE PENELITIAN

3.1

Lokasi Penelitian Tempat pelaksanaan penelitian ini dilakukan di Badan Arsip dan

Perpustakaan Provinsi Aceh yang terletak di Jl. T. Nyak Arief (Lamgugop) Banda Aceh. 3.2

Metode Penelitian Metode penelitian adalah salah satu cara yang bersifat otomatis dan objektif

dengan tujuan untuk memperoleh dan mengumpulkan keterangan atau informasi yang diteliti secara lebih efisien dan dapat digunakan sebagai pedoman dalam melaksanakan penelitian. Metode penelitian yang penulis gunakan untuk mendapatkan data yang diperlukan adalah : 1.

Penelitian Lapangan (Field Research)

Metode penelitian ini dilakukan langsung pada objek penelitian dengan cara: a)

Pengamatan (Observation)

Dalam hal ini penulis melakukan penelitian untuk mendapatkan data secara umum dengan melihat langsung, mengamati dan mencatat sistem informasi yang sedang berjalan, serta melihat format-format yang dilakukan selama ini. b) Wawancara (Interview) Dalam hal ini penulis melakukan wawancara untuk melengkapi bahan yang sudah ada selama observasi. Penulis melakukan tanya jawab kepada Staf dibidang

21

pelayanan dan teknologi, Bagian kepegawaian dan tatalaksana, dan pengunjung yang berkaitan dengan sistem yang sedang diteliti. 2.

Penelitian Kepustakaan (Library Research) Penelitian

Kepustakaan

adalah

penelitian

dengan

sumber-sumber

kepustakaan. Penelitian ini dimaksudkan untuk mendapatkan landasan teori yang memadai dalam penyusunan tugas akhir ini. 3.3

Alat-alat yang dipakai Dalam Penelitian Alat yang dipakai pada penelitian ini meliputi buku, pulpen, Komputer,

Aplikasi Visual Basic 6.0, Microsoft Acces, dan Crystal Report 8.0. 3.4

Analisis Data Dalam penulisan Tugas Akhir ini, penulis menggunakan metode analisis

diskriptif, yaitu data yang diperoleh dipilih dan disusun secara sistematis kemudian dianalisa berdasarkan kajian teori untuk mendapatkan deskripsi tentang Perancangan Sistem Informasi Pengisian Buku Tamu Pada Perpustakaan Provinsi Aceh.

BAB IV HASIL DAN PEMBAHASAN

4.1

Perancangan Sistem Informasi Pengisian Buku Tamu Pada Badan Arsip dan Perpustakaan Provinsi Aceh

4.1.1 Pengisian Buku Tamu pada perpustakaan Provinsi Aceh Setiap pengunjung yang mengunjungi pustaka, terlebih dahulu harus mengikuti prosedur yang telah ditetapkan oleh perpustakaan. Yaitu dengan mengisi buku tamu sebelum memasuki ruang baca perpustakaan. Pengisian buku tamu pada perpustakan menggunakan cara manual dengan mengisi di lembaran kertas yang disediakan. Kemudian setelah buku tamu yang telah diisi disimpan sebagai data pada arsip perpustakaan untuk mengetahui berapa banyak pengunjung perpustakaan dalam sehari. 4.1.2

Sistem Informasi Usulan

4.1.2.1 Rancangan Data Flow Diagram (DFD) Sistem Informasi usulan pada dasarnya tidak berbeda jauh dengan sistem yang sedang berjalan, namun ruang lingkupnya hanya untuk proses pengisian buku tamu. Rancangan ini dianggap perlu karena pada umumnya kebanyakan pembuat sistem tidak membuat analisa dan desain perancangan terlebih dahulu terhadap sistem yang akan dibuat, dengan kata lain hanya desain Prototype

langsung. Sementara perancangan sistem diharuskan memiliki kemampuan untuk bisa mendesain dan merancang sistem yang diharapkan.

4.1.2.2 Tahap Rencana Pendahuluan. Tahap rencana pendahuluan dilakukan untuk menentukan lingkup proyek 23

atau sistem yang ditangani, dan selanjutnya dijabarkan ke dalam bentuk DFD (Data Flow Diagram) konteks atau DAD (Diagram Alir Data). Diagram alir data merupakan suatu proses yang membentuk siklus yang dapat mempermudah dalam merancang program, karena di dalamnya menyangkut juga alur data yang diterangkan melalui gambar dimana semua bagian yang terkait dengan proses akan jelas hubungannya. Pada pembuatan sistem informasi pengisian buku tamu pada perpustakaan, tahap rencana pendahuluan dilakukan dengan membuat diagram alir data konteks sebagai berikut: a. Diagram Konteks b. Diagram Nol Adapun contoh Diagram Konteks dan Diagram Nol dalam perancangan sistem iformasi pengisian buku tamu pada Badan Perpustakaan Provinsi Aceh adalah sebagai berikut :

Input data tamu Admin

Sistem Informasi Buku Tamu

Laporan Harian Kepala Dinas

Gambar 4.1 Diagram Konteks

Dari Gambar 4.1 di atas dapat dijelaskan bahwa admin menginput data tamu ke dalam sistem informasi pengisian buku tamu. Kemudian data tersebut diserahkan kepada kepala dinas berupa laporan harian.

Input data tamu Admin

1,0 Input data

Cetak Laporan

Data Tamu

Proses 2,0 Cetak Laporan

Laporan

Laporan Harian Kepala Dinas

Gambar 4.2 Diagram Nol

Dari Gambar 4.2 di atas dapat dijelaskan bagaimana proses penginputan data tamu, admin menginput data tamu kemudian disimpan ke dalam file databasenya masing-masing. Rekap data tamu yang disimpan ke dalam file database dicetak sebagai laporan. Kemudian laporan tersebut diserahkan kepada kepala dinas. Data flow diagram menggambarkan suatu sistem automat/ komputerisasi, manualisasi atau gabungan dari keduanya, yang penggambarannya disusun dalam

bentuk kumpulan komponen-komponen sistem yang saling berhubungan sesuai dengan aturan mainnya. Keuntungannya adalah memungkinkan untuk menggambarkan sistem dari level yang paling tinggi kemudian menguraikannya menjadi level yang paling rendah (dekomposisi), sedangkan kekurangannya yaitu tidak menunjukkan proses pengulangan (looping), proses keputusan dan proses perhitungan. 4.1.2.3 Rancangan File Perancangan file bertujuan untuk merancang struktur tabel sebagai pengolahan data. Adapun perancangan file pada Sistem informasi pengisian buku tamu pada perpustakan ini adalah sebagai berikut : a.

Tabel Admin

Tabel 4.1 Srtuktur Tabel Admin Nama Field Tipe Data Size Username Text 20 Password Text 20

Keterangan Primary Key Password

Pada tabel 4.1 merupakan susunan tabel dalam database buku tamu yang terdiri dari nama field, tipe data, size, dan keterangan. b.

Tabel Buku Tamu

Tabel 4.2 Srtuktur Tabel Buku Tamu Nama Field Tipe Data Size No_Identitas Text 20 Nama Text 50 Alamat Text 50 Pekerjaan Text 25 Keperluan Text 50 Agama Text 10 No_Telpon Text 20 Tanggal Date/Time 20 Jenis_Kelamin Text 20

Keterangan Primary Key Foreign Key Alamat Pekerjaan Keperluan Agama No telpon Tanggal Jenis Kelamin

Struktur tabel 4.2 menjelaskan tentang susunan atau tempat penyimpanan data tamu yang telah di input kedalam database.

c.

Tabel Member

Tabel 4.3 Struktur Tabel Member Nama Field Tipe Data Size ID_Member Text 20 Nama Text 50 Alamat Text 50 Pekerjaan Text 25 Keperluan Text 50 Agama Text 10 N_Tlp Text 20 Tanggal Date/Time 20 Jenis_Kelamin Text 20

Keterangan Primary Key Foreign Key Alamat Pekerjaan Keperluan Agama No telpon Tanggal Jenis Kelamin

Tabel 4.3 menjelaskan tentang susunan atau tempat penyimpanan data member yang telah di input kedalam database member tersebut. 4.1.2.4 Rancangan Keluaran Rancangan keluaran yang penulis buat dalam tugas akhir ini berupa rancangan di layar monitor (screen) dan cetakan ke printer. Untuk media keluaran dapat ditentukan melalui suatu menu pilihan. Ada dua menu pilihan, yaitu menampilkan data ke display dan mencetak ke media kertas melalui printer. 4.1.2.5 Rancangan Kontrol Pengontrolan sangat diperlukan terhadap suatu rancangan. Rancangan Kontrol Perancangan Sistem Informasi Pengisian Buku Tamu pada Perpustakaan Provinsi Aceh dikendalikan dengan sistem password. 4.1.2.6 Tahap Implementasi Sistem. Diagram alir data dibuat untuk menjelaskan dan mempermudah dalam merancang suatu program. Diagram alir data merupakan implementasi dari

program yang akan dibuat. Dengan diagram alir data, maka logika berfikir dalam membuat program dapat disusun secara baik berdasarkan ukuran yang sesuai dengan yang direncanakan. Dari diagram alir data yang sudah dibuat pada tahap rancangan sistem, pada tahap implementasi sistem ini akan dilakukan penerjemahan menjadi kata-kata dalam bahasa pemrograman visual basic 6.0 agar computer dapat melakukan apa yang akan diinginkan. 4.2

Pembahasan

4.2.1

Pengoperasian Sistem Perancangan sistem informasi pengisian buku tamu pada Perpustakaan

Provinsi Aceh merupakan program aplikasi yang dibuat dengan menggunakan Microsoft Visual basic 6.0. Untuk menjalankan sistem informasi ini dapat dilakukan melalui Login Admin yang mengantarkan Administrator ke menu utama beserta sub-sub menu utama pada program rancangan. Jika melalui menu maka diklik pada menu yang ingin dijalankan sehingga akan muncul sub-sub menu, lalu dipilih sub menu mana yang akan dijalankan sehingga didapatkan informasi yang dibutuhkan. Yang tampil pertama kali setelah program dijalankan adalah sebuah tampilan awal seperti pada gambar 4.3 yang merupakan form login admin.

Gambar 4.3 Form Login Admin Pada Gambar 4.3 di atas diharuskan untuk mengisi username dan kode password yang sesuai untuk bisa masuk ke form selanjutnya yaitu form menu utama. Jika benar akan keluar pesan sebagai berikut.

Namun jika salah memasukkan username dan password maka pesan peringatan akan muncul seperti gambar di bawah ini.

Apabila dalam memasukkan username dan password benar maka akan menuju menu utama yang terdiri dari 4 menu yaitu menu File, Laporan, Admin, Backup dan Keluar seperti pada gambar 4.4 Selain itu juga terdapat sub menu seperti Data Tamu, Data Member, Laporan Data Tamu, Laporan data Member, Tambah Admin, Ubah Password Admin, dan Exit.

Gambar 4.4 Form Menu Utama Untuk penjelasan lebih lanjut dari gambar 4.4 di atas akan dijabarkan sebagai berikut : 1.

Menu Utama Form menu utama merupakan form yang di dalamnya terdapat menu yang

akan kita pergunakan untuk memasuki ke form selanjutnya. Form menu utama memiliki menu seperti file, laporan, admin, backup dan keluar. a.

Menu File

Apabila menu file pada menu utama dipilih maka akan muncul sub menu data tamu, kemudian dengan memilih sub data tamu maka form data tamu yang merupakan menu pokok dalam pengisian data tamu yang mengunjungi perpustakan. Form Data Tamu didesaign dengan 2 (dua) tabs.

Gambar 4.5 Form Data Tamu Saat form data tamu tampil maka kita akan melihat File yang berupa biodata tamu. Selain itu juga terdapat 4 command button yang mana masingmasing command button tersebut mempunyai fungsinya masing-masing, command button tersebut yaitu isi tambah, simpan, batal dan keluar. Dengan menekan tombol tambah maka semua textbox yang menampilkan biodata pengunjung seperti No Identitas, nama, alamat, pekerjaan, agama, keperluan, no telpon, jenis kelamin, tanggal dan juga command button simpan akan aktif. Setelah semua data diinput maka data tersebut akan tersimpan dengan menekan tombol simpan yang ada dibawah, dan data tersebut akan tersimpan dalam sebuah database yang telah terhubung ke sistem tersebut. Kemudian didalam form ini juga terdapat tab pencarian data tamu seperti pada gambar 4.6 dibawah ini.

Gambar 4.6 Form Pencarian Data Tamu

Dengan memilih tab tersebut maka akan muncul frame yang menampilkan data yang telah tersimpan di database dan data tamu bisa dicari dengan menggunakan TextBox. Data yang telah tersimpan bisa dicari berdasarkan ID pengunjung, nama dan Jenis Kelamin. Maka data yang dibutuhkan akan muncul. Didalam Menu File juga terdapat sub menu data member yang gunanya untuk menginput tamu yang telah terdaftar sebagai member saat mengunjungi perpustakaan.

Gambar 4.7 Form Data Member

Dalam form data member juga terdapat 2 (Dua) tab yaitu input data member dan pencarian data member seperti yang terlihat pada gambar 4.7 dan 4.8.

Gambar 4.8 Form Pencarian Data Member b. Menu Laporan Menu laporan mempunyai sub menu laporan data tamu dan laporan member yang didalamnya masing-masing memiliki 4 (Empat) tab yang berfungsi

untuk menampilkan laporan dari pada data tamu dan data member yang telah tersimpan di database.

Gambar 4.9 Form Laporan Data Tamu

Gambar 4.10 Form Laporan Data Member

Form laporan ini berfungsi untuk menampilkan data tamu dan data member yang telah mengunjungi perpustakaan

. Gambar 4.11 Output Laporan Data Tamu Gambar 4.11 menunjukkan keluaran akhir sebagai laporan buku tamu yang mengunjungi perpustakaan. Output ini-lah yang bisa disimpan sebagai arsip perpustakaan. c. Menu Admin Menu admin juga memiliki sub menu yaitu tambah admin dan ubah password admin. Jika memilih sub menu tambah admin maka akan muncul form tambah admin dimana form tambah admin berfungsi untuk menyimpan username dan password admin guna untuk keamanan database buku tamu perpustakaan.

Gambar 4.12 Form Tambah Admin

Administrator yang username dan passwordnya telah disimpan di database maka administrator tersebut bisa menggunakan sistem informasi buku tamu ini. Kemudian pada form ubah password admin, Administrator bisa mengganti username dan passwordnya untuk keamanan sistem dan database seperti yang diinginkan agar rahasia sistem tetap terjaga.

Gambar 4.13 Form Ubah Password Admin

d. Menu Backup Pada menu ini terdapat form backup database yang berfungsi untuk menyimpan cadangan dari database untuk menghindari hilangnya data akibat kerusakan atau kesalahan sistem.

Gambar 4.14 Form Backup Database

e. Menu About Me Yaitu Sebuah Menu yang digunakan Untuk Menampilkan Form Biodata atau Profil dari perancang sistem tersebut.

Gambar 4.15 Form About Me

f. Menu Keluar Didalam menu keluar juga terdapat sub menu yaitu exit yang berfungsi untuk mengakhiri atau menutup sistem yang telah selesai digunakan.

BAB V PENUTUP

5.1 Kesimpulan Berdasarkan pembahasan di bab sebelumnya, maka dapat disimpulkan bahwa: 1. Program sistem informasi pengisian buku tamu pada Badan Arsip dan Perpustakaan dibuat dengan menggunakan software Visual Basic 6.0, pembuatan program ini dimulai dengan mendesain tampilan dan membuat form-form. Kemudian membuat program dengan kode visual basic atau menulis view code-nya. 2. Bentuk dari program ini adalah bentuk form-form yang digunakan untuk menyimpan data dan penyediaan informasi yang berkaitan dengan buku tamu pada perpustakaan. 3. Sistem informasi yang di usulkan dapat membuat laporan secara cepat dan efisien sesuai dengan data yang ada. 4. Dengan menggunakan sistem informasi yang di usulkan, maka dapat meningkatkan efisiensi kerja pada pegawai. Misalnya, dapat melakukan perubahan (update) data secara cepat pada saat yang dibutuhkan. 5.2 Saran 1. Dalam penggunaan program, karyawan atau pegawai harus menguasai windows sehingga dapat dengan mudah mengoperasikan program sistem informasi tersebut.

37

2. Dengan adanya sistem informasi yang diusulkan, maka disarankan adanya pengembangan lebih lanjut untuk merancang sistem yang lebih kompleks dan dapat melakukan pengolahan data yang lebih besar. 3. Dengan adanya sistem informasi yang diusulkan, diharapkan agar instansi melakukan pelatihan kepada operator-operator yang ditunjuk agar dapat menggunakan sistem sesuai kebutuhan. 4. Diharapkan kepada pimpinan instansi untuk mengintruksi kepada setiap operator agar melakukan back-up (penyimpanan cadangan) data untuk menghindari kehilangan data karena gangguan yang diluar dugaan.

DAFTAR PUSTAKA

I, Bernaridho Hutabarat, M.sc, OCP. 2004. Pengelolaan Basisdata. Andi. Yogyakarta. Novian Agung, (2004), Panduan Microsoft Visual Basic, CV. Andi Offset, Yogyakarta Ramadhan, Arief, (2004), Microsoft Visual Basic. Diterbitkan oleh PT.Elex Media Komputindo, Gramedia, Jakarta Scott, (1995:102), Prinsip-prinsip Sistem Informasi Manajemen. Erlangga. Jakarta. Utami, Ema dan Sukrisno. 2004. Konsep Dasar Pengolahan dan Pemograman Database Dengan Menggunakan SQL Server, Ms.Acces, dan Ms. Visual Basic. 2005. Andi. Yogyakarta. Winarno, Wing Wahyu, (2006), Sisitem Informasi Manajemen. Penerbit : UPP STIM YKPN, Yogjakarta

LINSTING PROGRAM

Form data tamu Dim Status As Boolean Dim Cari As String Public Kriteria As String Option Explicit Dim pesan As String Private Sub Cmd_hapus_Click() pesan = MsgBox("Yakin Ingin Menghapus Data Ini ??", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then AdoTamu.Recordset.Delete AdoTamu.Refresh AdoTamu.Refresh Else End If End Sub Private Sub CmdCancel_Click() Command2.Enabled = True Command1.Enabled = False CmdCancel.Enabled = False Command3.Enabled = True Call Txt_Kosong Call Txt_Off 'Text1.Enabled = False 'Text1.SetFocus End Sub Private Sub Combo4_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo3.SetFocus End Sub Private Sub Combo2_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo1.SetFocus End Sub Private Sub Combo3_KeyPress(Keyascii As Integer)

If Keyascii = 13 Then Command1.SetFocus End Sub Private Sub Command2_Click() Status = True TxtOn Text1.Enabled = False Text2.SetFocus Command1.Enabled = True Command2.Enabled = True CmdCancel.Enabled = True Command3.Enabled = False If AdoTamu.Recordset.BOF Then MsgBox "Database Masih Kosong", vbInformation, "Message" Txt_Off Txt_Kosong CmdOn Else TampilData End If End Sub Private Sub Command3_Click() Text1.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Combo4.Enabled = True Text4.Enabled = True DTPicker1.Enabled = True Text1.SetFocus Command3.Enabled = False Command1.Enabled = True Command2.Enabled = True CmdCancel.Enabled = True End Sub

Private Sub Command4_Click() pesan = MsgBox("Apakah Anda Ingin Keluar??", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then Unload Me Else End If End Sub Private Sub Command1_Click() On Error GoTo Salah If Status = False Then If AdoTamu.Recordset.BOF Then AdoTamu.Recordset.AddNew AdoTamu.Recordset!No_Identitas = Text1.Text AdoTamu.Recordset!Nama = Text2.Text AdoTamu.Recordset!Alamat = Text3.Text AdoTamu.Recordset!Pekerjaan = Combo1.Text AdoTamu.Recordset!Agama = Combo2.Text AdoTamu.Recordset!Keperluan = Combo3.Text AdoTamu.Recordset!Jenis_Kelamin = Combo4.Text AdoTamu.Recordset!No_Telpon = Text4.Text AdoTamu.Recordset!Tanggal = DTPicker1.Value AdoTamu.Recordset.Update AdoTamu.Refresh AdoTamu.Refresh Call Txt_Kosong Else AdoTamu.Recordset.MoveFirst Cari = Text1.Text Kriteria = "No_Identitas='" & Cari & "'" AdoTamu.Recordset.Find Kriteria If AdoTamu.Recordset.EOF Then AdoTamu.Recordset.AddNew AdoTamu.Recordset!No_Identitas = Text1.Text AdoTamu.Recordset!Nama = Text2.Text AdoTamu.Recordset!Alamat = Text3.Text AdoTamu.Recordset!Pekerjaan = Combo1.Text AdoTamu.Recordset!Agama = Combo2.Text

AdoTamu.Recordset!Keperluan = Combo3.Text AdoTamu.Recordset!Jenis_Kelamin = Combo4.Text AdoTamu.Recordset!No_Telpon = Text4.Text AdoTamu.Recordset!Tanggal = DTPicker1.Value AdoTamu.Recordset.Update AdoTamu.Refresh AdoTamu.Refresh Command2.Enabled = True Command1.Enabled = True Txt_Off Txt_Kosong Else MsgBox "ID Sudah Double!", vbInformation + vbOKOnly, "Pesan" Text1.SetFocus Exit Sub End If End If Else AdoTamu.Recordset!No_Identitas = Text1.Text AdoTamu.Recordset!Nama = Text2.Text AdoTamu.Recordset!Alamat = Text3.Text AdoTamu.Recordset!Pekerjaan = Combo1.Text AdoTamu.Recordset!Agama = Combo2.Text AdoTamu.Recordset!Keperluan = Combo3.Text AdoTamu.Recordset!Jenis_Kelamin = Combo4.Text AdoTamu.Recordset!No_Telpon = Text4.Text AdoTamu.Recordset!Tanggal = DTPicker1.Value AdoTamu.Recordset.Update AdoTamu.Refresh AdoTamu.Refresh Command2.Enabled = True Txt_Kosong Txt_Off End If Command1.Enabled = False Command2.Enabled = True CmdCancel.Enabled = False Command3.Enabled = True Txt_Off

Txt_Kosong On Error Resume Next Exit Sub Salah: pesan = MsgBox("ID Sudah Double", vbInformation + vbOKOnly, "Informasi") Text1.SetFocus On Error Resume Next End Sub Private Sub Combo4_Change() On Error Resume Next With Form2.AdoTamu .RecordSource = "select*from Buku where Jenis_Kelamin like '%" & Form2.TextJenkel.Text & "%'" .Refresh End With End Sub Private Sub DTPicker1_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo4.SetFocus End Sub Private Sub Form_Activate() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Text4.Enabled = False DTPicker1.Enabled = False Command1.Enabled = False CmdCancel.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub Private Sub Form_Load() AdoTamu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Buku.mdb" AdoTamu.CommandType = adCmdText

AdoTamu.RecordSource = "select * from Buku order by No_Identitas" AdoTamu.Refresh Set DtTamu.DataSource = AdoTamu End Sub Sub Txt_Kosong() Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Text4.Text = "" 'DTPicker1.Value End Sub Private Sub TextJenkel_Change() On Error Resume Next With Form2.AdoTamu .RecordSource = "select*from Buku where Jenis_Kelamin like '%" & Form2.TextJenkel.Text & "%'" .Refresh End With End Sub Private Sub TextMember_Change() On Error Resume Next With Form2.AdoTamu .RecordSource = "select*from Buku where Form2.TextPengunjung.Text & "%'" .Refresh End With End Sub Private Sub TextNama_Change() On Error Resume Next With Form2.AdoTamu .RecordSource = "select*from Form2.TextNama.Text & "%'" .Refresh End With

Buku

No_Identitas like '%"

where

Nama

like

'%"

&

&

End Sub Sub TxtOn() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Combo4.Enabled = True Text4.Enabled = True DTPicker1.Enabled = True End Sub Sub Txt_Off() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Text4.Enabled = False DTPicker1.Enabled = False End Sub Sub CmdOn() Command2.Enabled = True Command4.Enabled = True Command3.Enabled = True Command1.Enabled = False End Sub Sub TampilData() Text1.Text = AdoTamu.Recordset!No_Identitas Text2.Text = AdoTamu.Recordset!Nama Text3.Text = AdoTamu.Recordset!Alamat Combo1.Text = AdoTamu.Recordset!Pekerjaan Combo2.Text = AdoTamu.Recordset!Agama Combo3.Text = AdoTamu.Recordset!Keperluan Combo4.Text = AdoTamu.Recordset!Jenis_Kelamin Text4.Text = AdoTamu.Recordset!No_Telpon DTPicker1.Value = AdoTamu.Recordset!Tanggal

End Sub Private Sub Text2_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End Sub Private Sub Text1_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus Text1.MaxLength = 10 Keyascii = Asc(UCase(Chr(Keyascii))) If Not (Keyascii >= Asc("0") & Chr(13) _ And Keyascii <= Asc("9") & Chr(13) _ Or Keyascii = vbKeyBack _ Or Keyascii = vbKeyDelete _ Or Keyascii = vbKeySpace) Then Beep Keyascii = 0 End If End Sub Private Sub Text3_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo1.SetFocus End Sub Private Sub Text4_KeyPress(Keyascii As Integer) If Keyascii = 13 Then DTPicker1.SetFocus If Not (Keyascii >= Asc("0") & Chr(13) _ And Keyascii <= Asc("9") & Chr(13) _ Or Keyascii = vbKeyBack _ Or Keyascii = vbKeyDelete _ Or Keyascii = vbKeySpace) Then Beep Keyascii = 0 End If End Sub Form Data Member Dim Status As Boolean

Dim Cari As String Public Kriteria As String Option Explicit Dim pesan As String Private Sub Cmd_hapus_Click() pesan = MsgBox("Yakin Ingin Menghapus Data Ini ??", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then Adodc1.Recordset.Delete Adodc1.Refresh Adodc1.Refresh Else End If End Sub Private Sub CmdCancel_Click() Command2.Enabled = True Command1.Enabled = False CmdCancel.Enabled = False Command3.Enabled = True Call Txt_Kosong Call Txt_Off 'Text1.Enabled = False 'Text1.SetFocus End Sub Private Sub Combo4_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo3.SetFocus End Sub Private Sub Combo2_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo1.SetFocus End Sub Private Sub Combo3_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Command1.SetFocus End Sub Private Sub Command2_Click() Status = True

TxtOn 'Text1.Enabled = False Text2.SetFocus Command1.Enabled = True Command2.Enabled = True CmdCancel.Enabled = True Command3.Enabled = False If Adodc1.Recordset.BOF Then MsgBox "Database Masih Kosong", vbInformation, "Message" Txt_Off Txt_Kosong CmdOn Else TampilData End If End Sub Private Sub Command3_Click() Text1.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Combo4.Enabled = True Text4.Enabled = True DTPicker1.Enabled = True Text1.SetFocus Command3.Enabled = False Command1.Enabled = True Command2.Enabled = True CmdCancel.Enabled = True End Sub Private Sub Command4_Click() pesan = MsgBox("Apakah Anda Ingin Keluar??", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then

Unload Me Else End If End Sub Private Sub Command1_Click() On Error GoTo Salah If Status = False Then If Adodc1.Recordset.BOF Then Adodc1.Recordset.AddNew Adodc1.Recordset.MoveNext Adodc1.Recordset!ID_Member = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Alamat = Text3.Text Adodc1.Recordset!Pekerjaan = Combo1.Text Adodc1.Recordset!Agama = Combo2.Text Adodc1.Recordset!Keperluan = Combo3.Text Adodc1.Recordset!Jenis_Kelamin = Combo4.Text Adodc1.Recordset!No_Tlp = Text4.Text Adodc1.Recordset!Tanggal = DTPicker1.Value Adodc1.Recordset.Update Adodc1.Refresh Adodc1.Refresh Call Txt_Kosong Else Adodc1.Recordset.MoveFirst Cari = Text1.Text Kriteria = "ID_Member='" & Cari & "'" Adodc1.Recordset.Find Kriteria If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew Adodc1.Recordset!ID_Member = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Alamat = Text3.Text Adodc1.Recordset!Pekerjaan = Combo1.Text Adodc1.Recordset!Agama = Combo2.Text Adodc1.Recordset!Keperluan = Combo3.Text Adodc1.Recordset!Jenis_Kelamin = Combo4.Text Adodc1.Recordset!No_Tlp = Text4.Text Adodc1.Recordset!Tanggal = DTPicker1.Value

Adodc1.Recordset.Update Adodc1.Refresh Adodc1.Refresh Command2.Enabled = True Command1.Enabled = True Txt_Off Txt_Kosong Else MsgBox "ID Sudah Double!", vbInformation + vbOKOnly, "Pesan" Text1.SetFocus Exit Sub End If End If Else Adodc1.Recordset!ID_Member = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Alamat = Text3.Text Adodc1.Recordset!Pekerjaan = Combo1.Text Adodc1.Recordset!Agama = Combo2.Text Adodc1.Recordset!Keperluan = Combo3.Text Adodc1.Recordset!Jenis_Kelamin = Combo4.Text Adodc1.Recordset!No_Tlp = Text4.Text Adodc1.Recordset!Tanggal = DTPicker1.Value Adodc1.Recordset.Update Adodc1.Refresh Command2.Enabled = True Txt_Kosong Txt_Off End If Command1.Enabled = False Command2.Enabled = True CmdCancel.Enabled = False Command3.Enabled = True Txt_Off Txt_Kosong On Error Resume Next Exit Sub Salah: pesan = MsgBox("ID Sudah Double", vbInformation + vbOKOnly, "Informasi")

Text1.SetFocus On Error Resume Next End Sub Private Sub Combo4_Change() On Error Resume Next With Form7.Adodc1 .RecordSource = "select*from Member where Jenis_Kelamin like '%" & Form7.TextJenkel.Text & "%'" .Refresh End With End Sub Private Sub Dtmember_Click() Status = True TampilData End Sub Private Sub DTPicker1_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo4.SetFocus End Sub Private Sub Form_Activate() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Text4.Enabled = False DTPicker1.Enabled = False Command1.Enabled = False CmdCancel.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub

Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Buku.mdb"

Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from Member order by ID_Member" Adodc1.Refresh Set Dtmember.DataSource = Adodc1 End Sub Sub Txt_Kosong() Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Text4.Text = "" 'DTPicker1.Value End Sub Private Sub TextJenkel_Change() On Error Resume Next With Form7.Adodc1 .RecordSource = "select*from Member where Jenis_Kelamin like '%" & Form7.TextJenkel.Text & "%'" .Refresh End With End Sub Private Sub TextMember_Change() On Error Resume Next With Form7.Adodc1 .RecordSource = "select*from Member where ID_Member like '%" & Form7.TextMember.Text & "%'" .Refresh End With End Sub Private Sub TextNama_Change() On Error Resume Next With Form7.Adodc1 .RecordSource = "select*from Form7.TextNama.Text & "%'" .Refresh

Member

where

Nama

like

'%"

&

End With End Sub Sub TxtOn() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Combo4.Enabled = True Text4.Enabled = True DTPicker1.Enabled = True End Sub Sub Txt_Off() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Combo4.Enabled = False Text4.Enabled = False DTPicker1.Enabled = False End Sub Sub CmdOn() Command2.Enabled = True Command4.Enabled = True Command3.Enabled = True Command1.Enabled = False End Sub Sub TampilData() Text1.Text = Adodc1.Recordset!ID_Member Text2.Text = Adodc1.Recordset!Nama Text3.Text = Adodc1.Recordset!Alamat Combo1.Text = Adodc1.Recordset!Pekerjaan Combo2.Text = Adodc1.Recordset!Agama Combo3.Text = Adodc1.Recordset!Keperluan Combo4.Text = Adodc1.Recordset!Jenis_Kelamin Text4.Text = Adodc1.Recordset!No_Tlp

DTPicker1.Value = Adodc1.Recordset!Tanggal End Sub Private Sub Text2_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End Sub Private Sub Text1_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus Text1.MaxLength = 10 Keyascii = Asc(UCase(Chr(Keyascii))) If Not (Keyascii >= Asc("0") & Chr(13) _ And Keyascii <= Asc("9") & Chr(13) _ Or Keyascii = vbKeyBack _ Or Keyascii = vbKeyDelete _ Or Keyascii = vbKeySpace) Then Beep Keyascii = 0 End If End Sub Private Sub Text3_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Combo1.SetFocus End Sub Private Sub Text4_KeyPress(Keyascii As Integer) If Keyascii = 13 Then DTPicker1.SetFocus If Not (Keyascii >= Asc("0") & Chr(13) _ And Keyascii <= Asc("9") & Chr(13) _ Or Keyascii = vbKeyBack _ Or Keyascii = vbKeyDelete _ Or Keyascii = vbKeySpace) Then Beep Keyascii = 0 End If End Sub

Form Laporan Data Tamu Private Sub Command2_Click() Unload Me End Sub Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Tanggal belum dimasukkan, vbInformation, "Information Message" Text1 = "" Text1.SetFocus

masukkan

terlebih

dahulu.",

Else CR.SelectionFormula = "({Buku.Tanggal}='" & Me.Text1.Text & "')" 'CR.ReportFileName = App.Path & "\Lap1.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End If End Sub

Private Sub Command3_Click() 'CR.SelectionFormula = "({Buku.Tanggal}='" & Me.Text1.Text & "')" CR1.ReportFileName = App.Path & "\Laporan2.rpt" CR1.WindowState = crptMaximized CR1.RetrieveDataFiles CR1.Action = 1 End Sub Private Sub Command5_Click() If Text3.Text = "" Then MsgBox "Jenis Kelamin belum dimasukkan, masukkan terlebih dahulu.", vbInformation, "Information Message" Text1 = "" Text1.SetFocus Else CR2.SelectionFormula = "({Buku.Jenis_Kelamin}='" & Me.Text3.Text & "')" 'CR.ReportFileName = App.Path & "\Lap1.rpt" CR2.WindowState = crptMaximized CR2.RetrieveDataFiles

CR2.Action = 1 End If End Sub Private Sub Command7_Click() If Text4.Text = "" Then MsgBox "Keperluan belum dimasukkan, vbInformation, "Information Message" Text1 = "" Text1.SetFocus

masukkan

terlebih

dahulu.",

Else CR3.SelectionFormula = "({Buku.Keperluan}='" & Me.Text4.Text & "')" 'CR.ReportFileName = App.Path & "\LapKeperluan.rpt" CR3.WindowState = crptMaximized CR3.RetrieveDataFiles CR3.Action = 1 End If End Sub

Form Laporan Data Member Private Sub Command2_Click() Unload Me End Sub Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Tanggal belum dimasukkan, vbInformation, "Information Message" Text1 = "" Text1.SetFocus

masukkan

terlebih

Else CR.SelectionFormula = "({Member.Tanggal}='" & Me.Text1.Text & "')" 'CR.ReportFileName = App.Path & "\Lap1.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End If

dahulu.",

End Sub

Private Sub Command3_Click() 'CR.SelectionFormula = "({Buku.Tanggal}='" & Me.Text1.Text & "')" CR1.ReportFileName = App.Path & "\Laporan2.rpt" CR1.WindowState = crptMaximized CR1.RetrieveDataFiles CR1.Action = 1 End Sub Private Sub Command5_Click() If Text3.Text = "" Then MsgBox "Jenis Kelamin belum dimasukkan, masukkan terlebih dahulu.", vbInformation, "Information Message" Text1 = "" Text1.SetFocus Else CR2.SelectionFormula = "({Member.Jenis_Kelamin}='" & Me.Text3.Text & "')" 'CR.ReportFileName = App.Path & "\Lap1.rpt" CR2.WindowState = crptMaximized CR2.RetrieveDataFiles CR2.Action = 1 End If End Sub Private Sub Command7_Click() If Text4.Text = "" Then MsgBox "Keperluan belum dimasukkan, vbInformation, "Information Message" Text1 = "" Text1.SetFocus

masukkan

terlebih

dahulu.",

Else CR3.SelectionFormula = "({Member.Keperluan}='" & Me.Text4.Text & "')" 'CR.ReportFileName = App.Path & "\LapKeperluan.rpt" CR3.WindowState = crptMaximized CR3.RetrieveDataFiles CR3.Action = 1 End If End Sub

Form Admin Public Conn As New ADODB.Connection Public RS As New ADODB.Recordset Private Sub CmdExit_Click() End End Sub Private Sub cmdLogin_Click() If Conn.State = 1 Then Conn.Close Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\Buku.mdb" If RS.State = 1 Then RS.Close RS.Open "select * from admin where username= '" & TxtUser.Text & "' And password = '" & TxtPass.Text & "'", Conn, 3, 3 If Not RS.EOF Then MsgBox "Login Berhasil" Else MsgBox "Data Salah", vbCritical, "L O G I N" TxtUser.Text = "" TxtPass.Text = "" TxtUser.SetFocus End If FRMENU.Show Unload Me End Sub

Form Tambah Admin Dim Status As Boolean Private Sub CmdAdd_Click() Call TxtKosong Call TxtHidup CmdAdd.Enabled = False CmdSave.Enabled = True CmdCancel.Enabled = True

End Sub Private Sub CmdCancel_Click() Call TxtMati Call TxtKosong CmdSave.Enabled = False CmdAdd.Enabled = True CmdCancel.Enabled = False End Sub Private Sub CmdClose_Click() Unload Me End Sub Private Sub CmdDelete_Click() If AdoAdmin.Recordset.BOF Then MsgBox "Nama User tidak terdaftar", vbInformation, "Informasi" Else pesan = MsgBox("Apakah Anda Ingin Menghapus Nama User Ini ??", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then AdoAdmin.Recordset.Delete MsgBox "Nama user berhasil dihapus", vbInformation, "Informasi" Text1.Text = "" AdoAdmin.Refresh AdoAdmin.Refresh Else End If End If End Sub Private Sub CmdSave_Click() If Status = False Then AdoAdmin.Recordset.AddNew AdoAdmin.Recordset!UserName = TxtUser.Text AdoAdmin.Recordset!Password = TxtPass.Text AdoAdmin.Recordset.Update AdoAdmin.Refresh AdoAdmin.Refresh MsgBox "Data admin berhasil ditambahkan", vbInformation, "Pesan"

Call TxtKosong Call TxtMati CmdSave.Enabled = False CmdAdd.Enabled = True CmdCancel.Enabled = False End If On Error Resume Next End Sub Private Sub Form_Load() AdoAdmin.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Buku.mdb" AdoAdmin.CommandType = adCmdText AdoAdmin.RecordSource = "select * from Admin" Set DataGrid1.DataSource = AdoAdmin Call TxtMati CmdSave.Enabled = False CmdCancel.Enabled = False End Sub Sub TxtMati() TxtUser.Enabled = False TxtPass.Enabled = False TxtUser.BackColor = &H80000016 TxtPass.BackColor = &H80000016 End Sub Sub TxtHidup() TxtUser.Enabled = True TxtPass.Enabled = True TxtUser.BackColor = &H80000005 TxtPass.BackColor = &H80000005 TxtUser.SetFocus End Sub Sub TxtKosong() TxtUser.Text = "" TxtPass.Text = "" End Sub

Private Sub Text1_Change() On Error Resume Next With FrmAdmin.AdoAdmin .RecordSource = "select * from Admin where Username like '%" & FrmAdmin.Text1.Text & "%'" .Refresh .Refresh End With End Sub Private Sub TxtUser_KeyPress(Keyascii As Integer) If Keyascii = 13 Then TxtPass.SetFocus End Sub Private Sub TampilData() TxtUser.Text = AdoAdmin.Recordset!UserName TxtPass.Text = AdoAdmin.Recordset!Password End Sub Form Ganti Admin Private Sub Form_Activate() TxtUser.SetFocus End Sub Private Sub TxtKonfir_KeyPress(Keyascii As Integer) Set Conn = New ADODB.Connection Set RsAdmin = New ADODB.Recordset On Error GoTo salahproses If Keyascii = 13 Then If TxtPassBaru <> TxtKonfir Then MsgBox "Password konfirmasi tidak sama", vbCritical, "Warning" TxtKonfir.SetFocus TxtKonfir = "" Else pesan = MsgBox("Anda yakin password akan diganti", vbQuestion + vbYesNo, "Confirmation Message") If pesan = vbYes Then Dim Message As String Dim editsql As String

editsql = "update admin set password='" & TxtKonfir.Text & "' where password='" & TxtPassLama.Text & "'" Conn.Execute editsql RsAdmin.Requery On Error GoTo 0 Unload Me Else Unload Me 'FRMENU.Show 'FRMENU.Enabled = True End If End If End If Exit Sub On Error GoTo 0 salahproses: Message = MsgBox("Ada "Warning") End Sub

kesalahan

proses

program",

vbExclamation,

Private Sub TxtPassBaru_KeyPress(Keyascii As Integer) If Keyascii = 13 Then If TxtPassBaru = "" Then MsgBox "Password baru belum dibuat", vbCritical, "Warning" TxtPassBaru.SetFocus Else TxtKonfir.SetFocus End If End If End Sub Private Sub TxtPassLama_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Call Koneksi RsAdmin.Open "select * from Admin where Username='" & TxtUser & "' and Password='" & TxtPassLama & "'", Conn If Not RsAdmin.EOF Then TxtPassBaru.SetFocus Else

MsgBox "Password salah ", vbCritical, "Warning" TxtPassLama.SetFocus TxtPassLama = "" End If End If End Sub Private Sub TxtUser_KeyPress(Keyascii As Integer) If Keyascii = 13 Then Call Koneksi RsAdmin.Open "select * from Admin where Username='" & TxtUser & "'", Conn If Not RsAdmin.EOF Then TxtPassLama.SetFocus Else MsgBox "Nama user tidak terdaftar", vbCritical, "Warning" TxtUser.SetFocus TxtUser = "" End If End If End Sub Form Backup Database Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long '---fungsi dibawah inilah yg digunakan untuk membackup database access Function BackupFile(ByVal fileAsli As String, ByVal fileCopy As String, ByVal fileTimpah As Boolean) As Boolean Dim lTemp As Long lTemp = CopyFile(fileAsli, fileCopy, fileTimpah) '--panggil fungsi API If lTemp = 0 Then BackupFile = False Call MsgBox("Tidak Dapat Backup File." & vbCrLf & _ "The file already exist", vbInformation, "Backup Database") Else 'FrmLoad2.Show Unload Me 'FrmBackup.Show Call MsgBox("Backup Berhasil", vbInformation, "Backup Database") BackupFile = True Unload Me End If

End Function Private Sub Command4_Click() Unload Me 'FrmMenuUtama.Show 'FrmMenuUtama.Enabled = True End Sub '--ini utk mengambil file database yg mau di backup Private Sub Command1_Click() CD1.InitDir = App.Path '--judul pada dialog open CD1.DialogTitle = "Database to Backup" '--filter utk menyaring hanya database access aja yg ditampilkan CD1.Filter = "Database Access (*.mdb)|*.mdb|" CD1.ShowOpen Text1.Text = CD1.FileName End Sub '--ini utk meletakkan file database yg dibackup ke folder lain/tertentu Private Sub Command2_Click() CD2.InitDir = App.Path CD2.DialogTitle = "Database Backup" CD2.ShowSave Text2.Text = CD2.FileName End Sub Private Sub Command3_Click() '--koding dibawah ini fungsinya utk membackup file database dari folder default ke '--folder bakcupdatabase dg menggunakan fungsi API If Text2.Text = "" Then Call MsgBox("Tempat tujuan belum ditentukan", vbInformation, "Tujuan File") Exit Sub End If

Call BackupFile(Text1.Text, Text2.Text & CStr(Format(Date, "ddmmyy") & ".mdb"), True) End Sub Form Menu Utama Private Sub mnbackupdata_Click() Form1.Show End Sub Private Sub mndatamember_Click() Form7.Show End Sub Private Sub mnDataTamu_Click() Form2.Show End Sub Private Sub mnExit_Click() End End Sub Private Sub mnLaporanDataMember_Click() Form6.Show End Sub Private Sub mnLaporanDataTamu_Click() Form3.Show End Sub Private Sub mnTambahadmin_Click() FrmAdmin.Show End Sub Private Sub mnUbahAdmin_Click() Form5.Show End Sub

BIODATA PENULIS

1. Nama

: Subhan

2. Tempat/Tanggal Lahir

: Lam Ilie / 18 Februari 1988

3. Jenis Kelamin

: Laki-Laki

4. Pekerjaan

: Mahasiswa

5. Agama

: Islam

6. Kebangsaan/Suku

: Indonesia/Aceh

7. Status

: Belum Kawin

8. Alamat

: Desa Lam Ilie Teungoh Kec. Indrapuri Kab. Aceh Besar Provinsi Aceh

9. No Telpon / HP 10. Nama Orang Tua

: 085260243330 :

Ayah Ibu

: Hasan Husin : Nurmala Usman

Pekerjaan Orang Tua : Ayah Ibu 11. Pendidikan

: Pensiunan Guru : Ibu Rumah Tangga :

SD/ MI

: SD Negeri Lam Ilie

SLTP/ MTS

: MTS Oemar Diyan

SMA/ MA

: MAS Darussyari’ah Mesjid Raya Baiturrahman Banda Aceh

Perguruan Tinggi

: STMIK U’Budiyah Indonesia Banda Aceh