SISTEM INFORMASI PERPUSTAKA.A,N PADA SEKOLAH MENENGAH PERTAl\1A NEGERI 1 PAKUHAJI TANGERANG BANTEN
Disusun oleh: SULAMATUL HIMMAH
102093026450
JURUSAN SISTEM INFORl\1.ASl FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF IJIDAYATULLAH JAKARTA
2006
SISTEM INFORMASI PERJPUSTAKAAN PADA SEKOLA!l MENENGAH PERTAMLA NEGERI 1 PAKUHAJI TANGERANG BANTEN
SKRIPSI Sebagai Salah Satu Syarat untuk Memperoleh Gelar Sarjana Komputer Fak-ultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta
Oleh
SULAMA TUL HIMMAH 102093026450
JURUSAN SISTEM INFORMASC FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2006 MI 1427 H
SISTEM INFORMASI PERPUSTAKAAN PADA SEKOLAH MENENGAH PERTAMA NEGERi 1 PAKUHAJI TANGERANG BANTEN
Skripsi Sebagai Salah Satu Syarat untuk Memperoleh Gelar Sarjana Komputer Fakultas Sains dan Teknologi Universitas Islam Negeri SyarifHidayatuliah Jakarta
Oleh: SULAMATUL RIMMAH
102093026450
Menyetujui Pembimbing I
Pe1<1bimbing II
~o~~
~~. Viva Arifin, ST, MMSI
Nur Aeni Hidayah, MMSI
Mengetahui Ketua Jurusan?J5J1. . · lnformatika I Sistem Informasi
/ /
~ ~
Ir. Bakri La Kat1ong. MT. M.Kom NIP: 470 035 764
ii
Pengesahan Ujian Skripsi yang berjudul "Sistem Informasi Perpustakaan pada SMPN I Pakuhaji Tangerang Banten". Telah diuji dan dinyatakan lulus dalam sidang mtmao,osah Fakultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta, pada hari kamis, 29 Juni 2006. Skripsi ini telah diterima sebagai salah satu syarat untuk memperoleh gelar saijana strata satu (SI) padajurusan Teknik Informatika I Sistem lnformasi.
Jakarta, 29 Juni 2006
Tim Penguji
Penguji I
Penguji II
M. Qomarul Huda, M.K'lli! NIP. ISO 326 908
Rizal Bahaw•"res, S.Si. M.Kom
Menget hui, Dekan Fakultas S · dan Teknologi
M.Sis
JURUSAN SISTEM INFORMASI FAKULTAS SAINS DAN TEKNOLOGI UIN SYARIF HIDAYA TULLAH JAKARTA
Dengan ini menyatakan bahwa skripsi yang ditulis oleh : Na ma NIM Program Studi Judul Skripsi
Sulamatul Himmah 102093026450 Sistem lnformasi : Sistem Informasi Perpustakaan pada Sekolah Menengah Pertama Negeri I Pakuhaji Tangerang Banten
Dapat diterima sebagai syarat kelulusan untuk memperoleh gelar sarjana komputer pada Jurusan Sistem Informasi, Fakultas Sains dan Teknologi, Universitas Islam Negeri SyarifHidayatullah Jakarta.
Jakarta, Juli 2006 Disahkan oleh: Dosen Pem bimb ing Pembimbing I
Pembimbing II
''L~~ Viva Arifin, ST, M~L
Nur Aeni Hidayah, MMSI
Mengetahui, Dekan
Ketua Juru:;an
Cb_~
Bakri brtcatfong, MT, M.Kom NIP: 470 035 764
PERNYATAAN
DENGA-1\f INT S/".YA MENYATAIZAN BAffiVA SKR!PSI INI
BEN_A._~
BENAR HASIL KARYA SENDIRI YANG BELUM PERNAH DIAJUK.AN SEBAGAI SKRIPSI ATAU KARYA !LMIAH PADA PERGuRUAN TINGGI ATAU LEMBAGA MANAPUN.
Jakarta. Mei 2006
Sulamatul Himmah 102093026450
KATA PENGANTAR
BISSMIILLAHIRRAHMANIRRAHIIM
Segala puji bagi Allah yang selalu kita san_Jung, selalu kita mintai pertolongan-Nya dan selalu kita mintai ampunan-Nya. Kita berlindung kepadaNya dari kejahatan diri kita dan dari kejelekan perbuatan kita. Aku bersaksi bahwa tidak ada Tuhan yang berhak disembah selain Allah clan Nabi Muhammad SAW adalah hamba serta utusan-Nya. Alhamdulillah ... Akhimya penulis dapat menyelesaikan skripsi ini yang merupakan syarat untuk meraih gelar sarjana komputer. Skripsi ini merupakan studi kasus mengenai Sistem Informasi Perpustakaan pada Sekolah Menengah Pereama Neg;eri 1 Pakuhaji Taageraag Banten. Pada kesempatan yang baik ini, izinkan saya selaku penulis untuk mengucapkan terima kasih yang tak terhingga kepada: !. Bapak DR. Syopiansyah Jaya Putra, M.Sis selaku Dekan Fakultas Sains &
Teknologi Universitas Islam Negeri Syari: Hidayatullah Jakarta. 2. Bapak Ir. Bakri La Katjong, M.T, M.Kom selaku Ketua Jurusan TVSI beserta seluruh staff J urusan TI I SI. 3. Ibu Viva Arifin, S.T, M.Kom. Selaku Dosen Pembimbing I dan Ibu Nur Aeni Hidayah, MMSI. Selaku Dosen Pembimbing II. Terima kasih atas bimbingan serta ilmu yang telah diberikan kepada penulis.
4. Bapak Drs. Nana Sujana beserta seluruh staff pada SMPN I Pak:uhaji. 5. Bapak yang se!alu memacu dan memompa semangat penulis serta yang selalu memberikan seluruh dukungannya kepada penulis. Ibu1.'U terkasih dan
tersayang
yang
selalu
memberikan
dorongan,
pengorbanan,
pengertian, serta tak pernah berhenti memberikan do' a serta restunya, dan yang selalu setia menemani penulis dan memberikan nasehat-nasehat untuk kemajuan penulis. Kakakku satu-satunya yang paling aku sayangi yang banyak bersabar dan selalu membantuku dalam ha! moril maupun materil. Semoga Allah SWT selalu memberikan kasihnya dan membalas semua kebaikan kalian. 6. Bayu Popyanto atas bantuan, dukungan, serta
waktun~'a
untuk penu!is.
Semoga Allah membalas segala kebaikamnu dan seialu memberikan hidayahny'.i kepadaIT'•J. 7. Seluruh anggota keluarga Bpk. Saryoko di Cireundeu yang tidak dapat disebut satu persatu. Terima kasih atas bantuannya selama penulisan skripsi ini. 8. Ibu Nida'ul Hasanati, atas buku-bukunya, arahan serta nasehat kepada penulis. 9. Seluruh anggota keluarga Bpk. Mujimin di Kalibarn. Terima kasih atas bantuannya kepada penulis. JO. Mulinah sahabat sejatiku. Farid Mubarok, Le atas inspirasinya tmtuk
penulis. Teman seperjuangauku (Fitri dan Fauzy), K'Figur buat memory cardnya, Mimi Miftahul Jannah atas tumpangannya, Mba Dyan atas kamar
kostnya, Pak Rivo atas informasi dan bantua1mya, Nofiyati, Ajeng, Dahlia, Ismaya, K'Idrus dan Istri, K'Habib buat ide-ide Iucunya. 11. Rekan-rekanku di Sistem Informasi angkatan 2002. Pantang menyerah
kawan dan teruslah berjuang untuk kemajuan kita bersama. 12. Seluruh sahabat yang tak bisa disebut satu persatu terima kasih atas bantuan dan pengertian kepada penulis untuk segala urusan dan janji yang tertunda karena proses penyelesaian penulisan ini. Akhir, penulis mohon maaf atas segala kekurangan din berharap semoga tulisan ini dapat bermanfaat bagi kita semua. Wassalamu'alaikum. Wr. Wb.
C1putat, Juni 2006
Penulis
ABSTRAK Fakultas Saius dan Tekr.'.!logi UIN Syai-if Hidayatullah .Jakarta Juni 2006 Sulamatul Himmah ; 102093026450 Judul : Sistem Informasi Perpustakaan pada Selkolah Menengah
Pertama Negeri 1 Pakuhaji Tangerang Banten Sistem Informasi Perpustakaan mernpakan serangkaian proses yang mencakup berbagai kegiatan. Yaitu: pendataan anggota perpustakaan, pendataan buku perpustakaan, pendataan peminjaman buku, pendataan pengembalian buku, pencarian anggota, pencarian buku, serta pelaporan data-data. perpustakaan untuk pengendalian manajemen perpustakaan. Sistem barn tersebut dirancang untuk mengatasi berhagai kendala dalam pengolahan data yr.ng berjalan selama ini, karena penanganan ym;g dilakukan secara manual. Dengan system barn diharapkan dapat ;neningkatkan kinerja dalam me-manage kegiatan perpustakaan. Analisis dan peran"angan system ini menggunakan metodelogi terstruktur yang mengacu kepada SDLC.
Daftar Pustaka (2000 - 2006)
DAFTARISI Halama.> Halaman Judul.. ..................................................................... . Halaman Persetujuan Pembimbing ................................................ .
!I
Halaman Pengesahan ................................................................ .
lll
Halaman Pemyataan... . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ... . . . . . . . . . . . . ...
1v
Kata Pengantar... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
v
Abstrnksi. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
v1
Dafta.r Isi. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
vm
Dafta.r Gambar ..... .
xiii
BAB
BAB
I
II
: PENDAHULUAN 1.1
Latar Belakang Masalah................. .
I
l.2
Perumusan Masalah ...................................... .
3
l.3
Batasan Masalah .......................................... .
4
1.4
Maksud dan Tujuan Penelitian.......................... .
5
l.5
Metode Penelitian ......................................... .
6
l.6
Sistematika Penulisan .................................... .
7
: LANDASAN TEORI 2. l
Pengenalan Sistem... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
9
2.1. l
Penge.rtian Dasar Sistem .................. . :. ...
9
2.1.2
Karakteristik Sistem... . . . . . . . . . . . . . . . . . . . .. . ..
I0
2.1.3
Konsep Dasar Info.rmasi... . . . . . . . . . . . . . . . . . . ...
I0
2.1.4
Sistem Info.rmasi... ... ... ... ... ... .. . ... ... ... ...
11
2.1.5
Jenis-Jenis Sistem Informasi... ... ... ... ... . . .
2.1.6
Konsep Dasar Sistem Informasi
13
Manajemen ..................................... . 2.2
2.3
2.4
2.5
Pengembangan Si stem Informasi .......... _.......... .
14
2.2.1
Pengembangan Sistem Informasi ...... ___ ....
14
2.2.2
Siklus Hidup Pengembangan Sistem Informasi... ... ... ... ... ... ... ... ... .....
16
2.2.3
Strategi Pengembangan Sistem [nfomlasi...
19
2.2.4
Metode Penerapan Sistem... .. . . . . . .. .. . . . . ....
20
Basis Data................................................
21
2.3.1
Konsep Basis Data... . . . . . . . . . . . . . . . . .. . . . . . . ..
21
2.3.2
TujuanBasisData..............................
22
2.3.3
BabasaBasisData...................... .......
22
Alat Bantu Perancangan Sistem Informasi Perpustakaan... ... ... ... ... ... ... ...
24
2.4.1
Flowchart.......................................
24
2.4.2
Data Flow Diagram...........................
30
2.4.3
Entity Relationship Diagram (ERD)... ... ..
35
2.4.4
Normalisasi... ... ... ... ... ... ... ... ... ... ... ...
41
2.4.5
KamusData....................................
44
Menggunakan Visual Basic 6.0 dan Ms. Access XP... ... ... ... ... ... ... ... ... ... ... ... ... ...
46
2.5.1
46
MicrosoftVisua1Basic6.0....................
BAB
ill
IV
Windows XP... ... ... ... ... ... ... ... ... ... ... ..
51
2.5.3
Ms. AccessXP... ... ... ... ... ... ... ... ... ......
52
: METODE PENELITIAN
3.1
BAB
2.5.2
Objek, Tempat, dan Waktu Penelitian...... . . . . . . . ..
53
3.2 Metode Penelitian... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...
53
3.3
Teknik Pengumpulan Data... . . . . . . . . . . . . . . . . . . . . . . . . .
54
3.4
Metodelogi Pengembangan Sistem... . . . . . . . . . . . . . . .
56
3.5
Parameter Keberhasilan .............................. .
59
: HASIL &PEMBAHASAN
4.1
Pengenalan Organisasi. . . . . . . . . . .. . . . . . . . . . . . . . .. . .. ...
60
4.1.1. Sejarah... ... ... ... ... . . ... ... ... ... ... ... ... ...
60
4.1.2. Visi & Misi... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
61
4.1.3. Struktur Organisasi... ... ... ... ... ... ... ... ... .
61
4.1.4. Sejarah Perpustakaan Sekolah... ... ... ... ...
65
4.2. Perencanaal' s:stem... ... ... ... ... ... ... ... ... ... ......
73
4.2.1
Analisis Masalah... .. . . . . . . . . . . . . . . . . . . . . . . . . .
73
4.2.2 Ruang Lingkup Pengembangan Sistem....
74
4.2.3
Pendekatan Sistem...... .. . . . . . . . . . . . . . . . . . . . .
74
4.2.4 Pengembang Sistem...... . . . . . . . . . . . . . . . .. . ...
75
4.2.5
Metode Penerapan Sistem ................... .
75
4.2.6
Kondisi Teknologi lnformasi SMPN 1 Pakuhaji ............................. .
75
4.3. Analisis Sistem... ... ... ... ... ... ... ... ... ... ... ... ......
76
4.3.1
Analisis Kebutuhan lnformasi dan Data...
76
4.3.2
Sistem Yang Diusulkan... ... ... ... ... ... ... .
77
4.4. Perancangan Sistem...... ... ... . . . ... .. . ... . .. ... . . . ...
87
Perancangan Basis Data......................
87
4.4. 1.1
Normalisasi.... .. ... . .. ... ... ... ... .
87
4.4.1.2
Entity Relationship................
90
4.4.1.3
Struktur Perancangan
4.4.1
4. 5 BAB
V
Basis Data... . . . . . . . . . . . . . .. . . . . . . ..
91
4.4.2
Perancangan Interface.......................
94
4 .4 .3
Perancangan Input... . . . . . . . . . . . . . . . .. . . . . . . .
99
4.4.4
Perancangan Output... . . . . . . . . . . . . . . . . . . . . . .
105
4.4.5
Desain Kontrol I Pengendaliarr...... ... . . .
113
Implementasi Sistem... . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
114
:PENUTUP
5.1. KESIMPULAN ...................................... .
115
5.2. SARAN ............................................... .
i16
DAFTAR PUSTAKA LAMPIRAN
DAFTAR GAMBAR
Garn bar 2. I
: Blok Sistem Informasi.. .......................................................... 12
Gambar 2.2
: SDLC (Waterfall) ................................................................... I 7
Gambar 2.3
: Simbol Entitas ........................................................................ 35
Garnbar 2. 4
: Simbol Relasi ......................................................................... 36
Gambar 2.5
: Contoh Relasi ......................................................................... 36
Gambar 2.6
: Simbol Atribut.. ...................................................................... 36
Gambar 2.7
: Tampilan Layar Visual Basic 6.0 ........................................... 48
Gambar 3.1
: Prosedur Penelitian pada SMPN l Palo1haji .......................... 54
Gambar 3.2
: Tahapan Sikh.:s Pengembangan Sistem yang Dipakai ........... 58
Garnbar 4 .1
: Struktur Organisasi Sekolah ................................................... 61
Gambar 4.2
: Organisasi Perpustakaan ....................................................... 68
Gambar 4.3
: Flowchar Sistem Pemiajaman ................................................ 69
Gambar 4.4
: flowchart Pengembalian ........................................................ 71
Gambar 4.5
: Proses Bisnis Sistem yang Diusulkan .................................... 77
: Flowchart Sistem yang Diusulkan......................................... 79
Gambar 4. 7
: DFD Level 0 .......................................................................... 80
Gambar4.8
:DFDLevel 1 ......................................................................... 81
Gambar 4.9
: DFD Level 2 Proses Mengolah Data Anggota ...................... 82
Gambar 4.10 : DFD Level 2 Proses Mengolah Data Buku ........................... :83 Gambar 4.11 : DFD Level 2 Proses Peminjaman .......................................... 84 Gambar 4.12 : DFD Level 2 Proses Pengembalian........................................ 85 Gambar 4.13 : ERO Sistem Informasi Perpustakaan ..................................... 90
Gambar 4.14 : Relasi Antar Tabel ................................................................ 91 Gambar 4.15 : Tampilan Utarna Pembuka .................................................. 94 Gambar 4.16 : Tampilan Password ............................................................... 95 Gambar 4.17 : Menu Utarna ..................................... :.................................... 96 Gambar 4 .18 : Input Data Anggota ............................................................... 99 Gambar 4.19 : Input Data Buku .................................................................... I 00 Gambar 4 .20 : Input Data Peminjaman Buku ................................................ I 0 I Gambar 4.21 : Input Data Pengembalian Buku ............................................ 102 Gambar 4.22 : Pencarian Data Anggota ........................................................ I 03 Gambar 4 .23 : Pencarian Data Buku .............................................................. 104 Gambar 4 .24 : Output Data Anggota ............................................................ I 05 Gambar4.25 : O::tputDataBuku .................................................................. 106 Gambar 4.26 : Piliha11 UntuJc Cetak .............................................................. 107 Gambar 4.27 : Laporan Semua Data Peminjaman B..il:u .............................. 108 Gambar 4.28 : Laporan Perperiode Ddta Peminjaman Buku ........................ 109 Gambar 4.29 : Laporan Semua Data Pengembalian Buku ............................ 110 Gambar 4.30 : LaporanPerperiode DataPengembalian Buh! ...................... 111 Gambar 4.31 : Laporan Daftar BuJm yang Masih Dipinjam .......................... 112 Gambar 4.32 : Contoh Input Menggunakan Lookup Wizard ......................... 113
DAFTAR TABEL
Tabel
2.1
: Simbol DFD .......................................................................... 32
Tabel
2.2
: Notasi Kam us Data ............................................................... 45
Tabel
4.1
: Tabel Buku ........................................................................... 91
Tabel
4.2
: Tabel Siswa ····································-·····················-··············- 92
Tabel
4.3
: Tabel Peminjaman ................................................................ 92
Tabel
4.4
: Tabel Pengembalian ···············-············--···················-············ 93
Tabel
4.5
: Desain Output DataAnggota ................................................. 105
Tabel
4.6
. Desain Output Data Buku ...................................................... 105
Tabe!
4.7
: Desain Output Data Peminjaman .......................................... I 06
Tabel
4.8
: Desain Output Data Pengembalian ...................................... ! 06
Tabel
4.9
: Desain Output Data Buku yang Masih Dipinjam ................. 107
BABI
PENDAHULUAN
1.1. Latar Belakang Masalah
Di e;a globalisasi seperti sekarang ini, perkembangan teknologi sangatlah pesat. Informasi bukan hanya menjadi suatu kebutuhan melainkan informasi sebagai bahan penggerak dalam berlangsungnya suatu sistem organisasi atau lembaga dalam mengambil suatu keputusan. Penerapan Teknologi Informasi (TI) saat ini telah menyebar hampir di semua bidang tidak terkecuali di perpustakaan. Perpustakaan sebagai institusi pengelola informasi merupakan salah satu bidang penerapan teknologi informasi yang berkembang dengan pesat. Perkembangan dari penerapan teknologi informasi bisa kita lihai dari perkemtangan jenis perpustak.a"n y<1ng selalu berkaitan dengan teknologi informasi, diawali dari perpnstakaan man;.ial, perpustakaan terautomasi, perpustakaan digital atau cyber library. Ukuran perkembangan jenis perpustakaan
banyak diukur dari penerap
informasi yang digunakan dan bukan d"ri skala ukuran lain seperti besar gedung yang digunakan, jumlah koleksi yang tersedia maupun jumlah penggunanya. Kebutuhan akan TI sangat berhubungan dengan peran daii perpustakaan sebagai kekuatan dalam pelestarian dan penyebaran informasi ilmu pengetahuan dan kebudayaan yang berkembang seiring dengan menulis, mencetak, mendidik dan kebutuhan mannsia akan informasi. Perpustakaan membagi rata informasi dengan
2
cara mengidentifikasi, mengumpulkan, mengelola dan menyediakanya untuk um um. Manajemen
perpustakaan
yang
kian
berkembang
dinilai
perlu
memanfaatkan kehadiran teknologi informasi. Pasalnya, teknologi itu tidak hanya memberikan kemudahan layanan tapi menjadikan informasi lebih akurat, cepat, variatif, dan mudah diakses. Lewat dukungan TI, pustakawan pun dapat meningkatka:: fungsi dan perannya untuk proaktifmenjadi pemberijasa informasi atau konsultan informasi untuk memenuhi kebutuhan Informasi.masyarakat pada umumnya ataupun siswa pada khususnya.
J;;m dilihat dari segi pemanfaatan teknologi informasinya pada perpustakaan Sekolah Menengah Pertama Negeri 1 Pakuhaji Tangerang Banten, dalam proses pengolahan datanya masih bersifat konvensiom;l atau belum terkomputerisasi sehingga dalam ha! pengolahan datanya dirasakan masih kurang efisien dan efektif. Dengan
melihat
mengadakan penelitian
kenyataan
tersebut,
mendorong
penulis
untuk
tentang pengolahan data perpustakaan pada Sekolah
Menengah Pertama Negeri 1 Pakuhaji Tangerang Banten yang akan diberi judul "SISTEM INFORMASI PERPUSTAKAAN PADA SEKOLAH MENENGAH PERTAMANEGERI 1 PAKUHAJI TANGERANGBANTEN".
3
I ..l. Perumusan Masalah
Masalah-masalah yang dihadapi oleh perpustakaan sekolah ini berkaitan dengan
sistem
pengolahan
data
perpustakaan. Masalah tersebut
antara lain: 1. Proses dilakukan secara manual, yang berarti tidak efisien dan memakan waktu lama. 2. Adanya
kesalahan
.nanual
dalam
mencatat
data
pemmJaman
dan
pengembalian buku perpustakaan. 3. Sering terjadi kesalahan laporan data perpustakaan. Disebabkan pada permasalahan tersebut diatas, maka penulis akan membuat sebuah sistem pengolah data perpustakaan dengan menggunakan software Visual Basic 6.0 dan database Access XP.
4
1.3. :Satasan Masalah Dari
berbag~i
permasalahan yang ada, penulis hanya akan mengambil
beberapa masalah saja. ha! ini disebabkan oleh keterbatasan dalam ha! waktu, biaya, tenaga serta kemampuan penulis. Adapun permasalahan yang akan ditcliti oleh penulis meliputi: I. Pengolahan data anggota perpustakaan 2. Pengolahan data buku yang dimiJ;;,:i oleh perpustakaan 3. Pengolahan data peminjaman buku perpustakaan 4. Pengolahan data pengembalian buku perpustakaan 5. Pencarian data buku dan data siswa. Dengan pengolahan data perpustakaan
~-::cara ti~rkomputerisasi
mengenai
proses peminjaman dan pengembalian buku perpustakaan, penulis mengharapkan moses peminjaman dan
pengembalian buku pada perpustakaan Sekolah
Menengah Pertama Negeri 1 Pakubaji Tangerang Bante111
m~njadi
lebih efek-tif.
5
1.4. Maksud dan Tujuau Penelitian Maksud dilaksanakannya penelitian ini adalah sebagai tugas akhir untuk menyelesaikan pendidikan program Strata 1 ( S 1 ) pada Universitas Islam Negeri Syarif Hidayatullah Jakarta, sedangkan tujuan dari penditian ini adalah sebagai berikut: L Bagi Mabasiswa a) Belajar menerapkan teori-teori yang telah rlidapat selama penulis berada di bangku kuliah dan penulis dapat membandingkan dengan kenyataan yang ada di lapangan. b) Menemukan masdah dan
memberik~n
penyelesaian, berupa sistem barn
yang dapat digunakan untuk mengolah data pada perpustakaan. 2. Bagi Sekolab Menerrgah Pertama Negeri I Pakuhaji Tangerang Banten. a) Membenkan kemudahan dalam proses pengelolaan data perpustakaan. Agar nantinya staff pengelola pepustakaan sekolah mudcll dalam melakukan pencarian data ataupun dalam proses pembuatan laporan data perpustakaan
~ekolah.
uaia
data tersebut diantarau.ya seperti data buku,
data anggota, data peminjaman buku, dan data pengembalian buku. b) Memberikan sumbangan bagi pengembangan perpustakaan sekolah khususnya dalam penerapan teknologi komputer.
6
1.5. Metode Penelitian Jika dilihat dari segi aplikasinya penelitian yang dilakukan penulis terma::uk kedalam
metode penelitian terapan, namun jika ditinjau dari seg1
infomasi yang dikelola penelitian ini termasuk kedalam penelitian kualitatif. Dalam penulisan ini, penulis menggunakan dua cara pengumpulan informasi, yaitu: a) Metode Dokumentasi Pada metode pertama ini, penulis mengumpulkan berbagai macam sumber bacaan yang berhubungan dengan materi penulisan. b) Metode Survei Dalam metode ini, penulis mengumpulkan data clengan cara: wawancara, observasi, kearsipan, dan kepustakaan. Analisis
dan
peraacmgan
Sistem
Informasi
Perpustakaan
1m
menggunakan pendekatan metodelogi analisis dan perancangan sistem terstruk.'iur dengan waterfall.
7
I.6. Sistematika Penulisan BAB I. PENDAHULUAN Dalam bah I ini berisi tentang latar belakang masalah, perumusan masalah, batasan masalah, maksud dan tujuan pengembangan sistem, metode penelitian dan sistematika penulisan. BAB IL LANDASAN TEORI Dalam bah II ini penulis akan memberikan penjelasan secara s;"gkat mengenai teori-teori yang berkaitan dengan pembuatan sistem informasi perpustakaan sekolah. BAB III. METODE PENELITIAN Dalam bab III ini akan dijeleskan 0\eh penulis bagaimana jalannya proses penelitian
dr.lam
merancang
dan
membangun
sistem
informasi
perpustakaan sekolah sesuai dengan metode pengembangan sistem yang penulis gunakan. BAB IV. HASIL & PEMBAHASAN Pflda bah IV ini penulis mencoba untuk mengurnikan ill:sil dari analis::i, perancangan, sampai kepada penerapan sistem yang penulis buat berdasarkan dari pengamatan terhadap permasalahan yang penulis temukan pada saat penulis melakukan penelitian pada Sekolah Menengah Pertama Negeri 1 Pakuhaji Tangerar.g Banten.
8
BAB V. PENUTUP Bab ini merupakan bab terakhir dalam penulisan sk:ripsi ini. Maka dalam bab terakhir ini akan termuat kesimpulan dari hasil bahasan seluruh bab serta saran-saran yang kiranya dapat memberikan manfaat.
BAB II LANDASAN TEO RI
2.1. PENGENALAN SISTEM
2.1.1. Pengertian Dasar Sistem Sistem memiliki arti yang bermacam-macam tergantung dari sudut mana penulis
memandangnya.
Terdapat
dua
kelompok
pendekatan
didalam
mendefinisikan sistem, yaitu yang menekankan pada prosedur dan yang menekan..lran pada komponen atau elemennya. Pendekatau sistem yang lebih menekankan pada prosedur mendefinisikan sistem sebagai berikut Suatu sistem adalah suatu jaringan kerja dari prosedur-prosedur yang ~aling
berhubungan, berkumpul bersama-sama untuk melakukan suatu kegiatan
atau untuk menyelesmlran suatu sasaran yangte1tentu (Jogiyanto, 2000: 683). Pendekatan
sistem
yang
lebih
mcmekanka:n
pada
elemen
atau
kompouennya mendifinisikan sistem sebagai berikut: Sistem adalah kumpulan elen1en yang saling bezilmbungan satu sama lain yang membentuk satu kesatuan dalam usaha mencapai suatu tujuan (Budi dkk, 2003: 172). Pendekatau sisten1 yang merupakan kumpulan dari elemen-elemen atau komponen-komponen atau subsisten1-subsistem merupakan definisi yang lebih Iuas. Definisi ini lebih banyak diterima, karena kenyataannya _suatu sistem dapat terdiri dari beberapa subsistem atau sisten1-sistem bagian.
10
2.1.2. Karakteristik Sistem Suatu sistem mempunyai :karak"teristik alau sifat-sifat yang tertentu, yaitu mempunyai
komponen-komponen
(components),
batas
sistem(bowuiary),
lingkungan luar sistem (environment). penghubung (interface), masukan (input), keluaran (output), pengolah (process), clan sasaran (objective) atau tujuan (goal) (Jogiyanto, 2000: 684).
2.1.3. Konsep Dasar Jnformasi Dalam suatu organisasi, penulis berfikiran bahwa informasi merupakan salah satu elemen yang sangat penting dikarenakan suatu sistem yang kurang mendapatkan informasi akan menjadi lemah clan akhirr!Ya sistem tersebut akan berakhir. Informasi dapat
didefini:;~kan
sebagai ha:;il dari pengolahan data dalam
suatu bentuk yang lebih berguna clan lebih berarti lbagi penerimanya yang menggambarkan suatu kejadian-kejadian (event} yang nyata (fact) yang digunakan untuk pengambilan keputusan (Jogiyanto, 2000: 692). Menurut jogiyanto (2000 : 696) berdasarkan kualitas dari suatu informasi tergantung dari beberapa hal yaitu: a. Akurat Informasi harus bebas dari kesalahan dan tidak menyesatkan. Akurat juga berarti harus jelas rnencenninkan rnaksudnya.
11
b. TepatWaktu Informasi yang diterima tidak boieh terlambat. Informasi yang telah usang tidak mempwiyai nilai lagi. c. Relevan Informasi tersebut mempunyai manfuat untuk pemakaiannya. Relevan informasi wituk tiap-tiap orang satu dengan yang lain berbeda. d. Lengkap Informasi yang disajikan sesuai dengan apa yang dibutuhkan user. e. Jelas Informasi yang disampaikan tidak membingungkan dapat ditangkap dengan indrawi, serta dapat dipahami oleh penggimanya.
2.1.4. Sistem Informasi Sistem informasi adalah kumpulan elemen yang saling berhubungan satu sama Iain yang membentuk satu kesatuan untuk mengintegrasikan data, memproses dan menyimpan serta mendistribusikan informasi tersebut (Budi dkk, 2003: 83). Sistem informasi juga dapat didefinisikan sebagai suatu sistem didalam suatu organisasi yang merupakan kombinasi dari orang-orang, fasilitas, teknologi, media, prosedur-prosedur dan pengendalian yang dituj;ukan untuk mendapatkan jalur komunikasi penting, memproses tipe transaksi rutin tertentu, memberi sinyal kepada manajemen dan yang lainnya terhadap kejadian-kejadian internal dan
12
eksternal yang penting dan menyedia.kan suatu dasar informasi untuk pengambiian keputusan yang cerdik (Jogiyanto, 2000: 697). Sistem informasi dapat terdiri dari komponen-komponen yang disebut dengan istilah blok bangunan (building block), yaitu blok masukan (input block), blok model (model block), blok keluaran (output block), blok teknologi
(technology block), blok dasar data (database block), dan blok kendali (control block). Sebagai suatu sistem, keenam blok tersebut masing-masing sating berinteraksi satu dengan yang lainnya membentuk satu kesatuan untuk mencapai sasarannya (Jogiyanto, 2000: 697).
pemakai
pemakai
input
output
teknologi
kendali
~
(
pcmakni
Garn bar 2.1 Blok sistem-sistem informasi yang berinteraksi. (Jogiyanto, 2000: 698)
)
13
2.1.5. Jenis-Jenis Sistem Informasi Sistem infonnasi dikembangkan untuk tujuan-tujuan yang berbeda-beda, tergantung pada kebutuhan bisnis. Transaction Processing System (TPS) berfungsi pada level organisasi; Office Automation Systems (OAS) dan pendukung knowledge Work Systems (KWS) yang bekerja pada level knowledge. Sistemsistem pada level yang lebih tinggi meliputi Sistem Informasi Manajemen (SIM) dan Decision Support Systems (DSS). Sistem ahli menerapkan keahlian pembuatan keputusan untuk menyelesaikan permasalahan-permasalahan khusus dan terstruktur.
Pad~
level manajemen strategis penulis menemukan Executive
Support Systems (ESS). Group Decision Support Systems (GDSS) dan yang lebih umum dijelaskan sebagai Computer Supported Collaborative Work Systems (CSCWS) yang membantu para pembuat keputusan u:ntuk beranekaragam organisasi tak-terstruktur atau semi-terstruktur (Kendall & Kendall, 2003 : 2).
2.1.6. Konsep Dasar Sistem Informasi Manajemen Sistem Infonnas1 Manaj;;men (SIM) adalah suatu sistem yang dirancang =tuk menye;;diakan informasi guna mendukung pengambilan keputusan pada kegiatan
manajemen
(perencanaan,
pemrakarsaan,
pengorganisasian,
dan
pengendalian) dalam suatu organisasi (Budi dkk, 2003: 120). Sistem Infonnasi Manajemen (SIM) dapat didefinisikan sebagai kumpulan dari interaksi sistem-sistem informasi yang bertanggung jawab mengumpulkan
dan mengolah data untuk menyediakan informasi yang bergtma untuk semua
14
tingkatan manajemen didalam kegiatan perencanaan dan pertgendalian {Jogiyanto, 2000: 700).
SIM adalah sistem informasi yang sudah terkomputerisasi yang bekerja karena adanya interaksi antara manusia dan komputer. Dengan bantuan manusia, perangkat lunak (program komputer), dan perangkat keras (komputer, printer, dan lain-lain) agar berfungsi dengan baik, sistem informasi manajemen mendukung spectrum tugas-tugas organisasional yang lebih luas dari Transaction Processing Systems, termasuk anlisis keputusan dan pembuat keputusan (kendall & kendall, 2003: 3).
2.2.
Pengembangan Sistem Informasi 2.2.1. Pengembangan Sistem Informasi Pengembangan sistem dapat berarti menyusun suatu sistem ban; untuk
menggantikan sistem yang lama secara keseluruhan atau memperbaiki sistem yang telah ada. Sistem y~ng lama perlu diperbaiki atau diganti disebabkan karena beberapa ha!, yaitu sebagai berikut: 1. A
15
•
Kecurangan-kecurangan yang disengaja yang menyebabkan tidak amannya harta kekayaan perusahaan dan kebenaran dari data menj adi kurang terj amin;
•
Kesalahan-kesalahan yang tidak disengitja yang juga dapat menyebabkan kebenaran dari data kurang terjamin;
•
Tidak efisiensinya operasi;
•
Tidak ditaatinya kebijakan manajemen yang telah ditetapkan.
b. Pertumbuhan organisasi Pertumbuhan organisasi yang menyebabkan harus disusunnya sistem yang baru. 2. Untuk merai'i kesempatan-kesempatan (opportunities), kesempatankesempatan ini dapat berupa peluang-neluang pasar, pelayanan yang meningkat kepada pelanggan, dsb. 3. Adanya instruksi-instruksi \directive) dari atas pimpinan atau dari luar organisasi, seperti peraturan pemerintah. Untuk dapat mengembangkan suatu perangkat lunak yang berkualitas dibutuhkan suatu prosedur atau peencanaan yang baik. Prosedur dan perencanaan saja tidak sepenulmya menjamin pengembangan suatu perangkat lunak akan bebas dari kesalahan-kesalahan dan permasalahan-permasalahan, karena pengalaman, kepandaian, dan ketelitian dari rnasing-masing orang yang terlibat juga mernegang peranan. Dernikian juga sebaliknya, walaupun orang-orang yang terlibat cukup cakap, tetapi tanpa prosedur dan perencanaan yang baik, rnaka pekerjaan tidak ---
J'T_ -~----4--
I'\{'\"{\· C,.i::,:'l\
Hi
2.2.2. Metodelogi Pengembangan Sistem lnformasi I. Analisis dan Perancangan Sistem Terstruktur
Menurut Shelly Cashman ( 200 I: 1.16) Analisis terstruktur merupakan teknik pengembangan system yang tradisional dimana penganalisis mudah untuk memahami kualitas dari system yang ingin dikembangkan. Pada analisis dan perancangan terstruktur menggunakan tahapan dari SDLC untuk perencanaan (plan), analisis (analyze), desain (design), implemerntasi (Implement), dan
operasi & support system (Support an information system). Analisis dan perancangan terstruktur menampilkan suatu pendekatan sistematis untuk merancang dan membangun kualitas system computer. Disepanjang tahap analisis dan perancangan, penganalisis bisa melanjutkan tahap demi tahap, mendapatkan umpan balik dari penggullE dan menganalisis perancangan untuk mendeteksi kelalaian dalam pencan.tuman dan kesalahan. Berpindah te:falu cepat ke tahap berikutnya akan membuat penganalisis mengerjakan ulaug perancangan yang dilakukan sebelumnya (Kendall & Kendall, 2003 : 23).
2. Analisis dan Perancangan Sistem Beorientasi Objek Menurut Shelly Cashman ( 2001: 1.17) teknik a Teknik beorientasi objek yang didasarkan pa.da konse:p pemrograrnan yang berorientasi objek, bisa membantu penganalisis merespons permintaan organisasi akan suatu system barn yang harus menjalani pemeliharaan, adaptasi, dan perancangan ulang secara terns menerus. Dalam pemrograman vlln
tidak hanva mencakun
17
kode tentang data, namun juga instruksi tentang operas1 yang harus ditampilkan atasnya (Kendall & Kendall, 2003 : 22)
2.2.3. Siklus Hidup Pengembangan Sistem Informasi Siklus hidup pengembangan sistem atau yang lebih terkenal dengan
System Development Life Cycle (SDLC) adalah pendekatan melalui beberapa tabap :mtuk menganalisis dan merancang sistem yang dimana sistem tersebut telah dikembangkan dengan sangat baik melalui . penggunaan siklus kegiatan penganalisis dan pemakai secara spesifik (kendall & kendall, 2003: 11 ). Menurut Shelly Cashman (2001 : i.19) ada bebe:rapa tabapan dalam membangun
sys•~m
informasi
dengan
menggunakan
SDLC
Waterfall.
Diantaranya sebagai berikut: •
Perencanaan Sistem (Systems Planning) Membuat systems request, menjelaskan masalah-masalah atau keinginan perubahan dalam sebuah sistem informasi atau proses bisnis. Membuat
pre!iminary investigation atau yang sering disebut dengan study kelayakan. •
Analisis Sistem (Systems Analysis) Untuk memaharni kebutuhan dari sistem/bisnis, dengan menggunakan tekuik-teknik
pengumpulan
data.
Membuat Systems
Requirements
Documents. Membuat physical model dan logical model dari sistem yang diusulkan.
18
•
Perancangan Sistem {Systems Design). Membuat Systems Design Specification, yaitu blue print dari sistem yang baru. Terdiri dari : Input, Output, dan User Interface Design. Disamping itu juga membuat Data Design, Internal dan External Control Design.
•
Implementasi Sistem (Systemlmpementation). Menulis, menguji, mendokumentasikan, menginstall program. Sistem siap digunaka!' Membuat evaluasi sistem untuk menentukan apakah sistem beroperasi secara tepat, biaya dan keuntungan sesuai dengan yang diperkirakan.
•
Operasi dan Support Sistem (Systems and Ope:ation Support). Memelihara dan meningkatkan ke1ja sistem, dengan memperbaiki kesalahan dan mangadaptasikan sistem dengan lingkungan.
19
System Request
l System Planning ;
Ii.
...
Systems Analysis
• System Design '
. System
Implementation
--
. ....,~.........~.....~~.....~~............,...._...______f ---i___s_y_st_e_m~O-pe_r_a_ti_o_n___, and Support '
'"
Information System Gambar 2.2 SDLC (Waterfall)
20
2.2.3. Strategi Pengembangan Sistem Informasi Ada tiga macam strategi pengembangan sistem informasi, yaitu: 1. Secar:: Internal
Pengembangan sistem dilakukan oleh sumber daya yang ada dalam perusahaan atau organisasi. Jika diperlukan bantuan pihak luar biasanya terbatas pada desain, pengawasan pada tahap penyusunan aplikasi (coding) dan untuk membantu pelaksanaan implementasi. Positifnya dai strategi ini adalah tidak tergantungnya perusahaan I organisasi pada pihak lain dalam membuat produk sistem karena sumber daya internal, dokumentasi dan source code tersedia. 2. Customized PengeIPhangan sistem dilakukan oleh pihak hrar (kc:isultanl,
~'!lllg
meliputi
analisis, perancangan, supervise kelayakan, dan integrasi sistem yang dibangun. Positifnya dari strategi ini adalah adanya kejelasan waktu IJ('nyelesaian. Negatifnya adalah adanya ketergantur:gan dengan pihak lain. Jika lebih dari satu perusahaan konsultan rierlu diwaspadai integrasi antar modulnya. 3. Enterprise Solution Calon pengguna hanya perlu membeli paket yang sudah :;iap pakai.
21
2.2.4. Metode Penerapan Sistem Ada 4 Metode penerapan sistem: 1. Pilot
Pergantian sistem lama dengan sistem barn secara bertahap, dimana bagian I divisi dari suatu pernsahaan I organisasi yang menjalankm1 sistem baru setelah berhasil maim bergantian dengan bagian divisi lain. 2. Immadiate Pergantian sistem lama ke sisten barn telah ditetapka!ll dalam satuan hari. Metode ini hanya dimungkinkan imtuk perusahaan kecil / sistem kecil.
3. Phased Pergantian sistem baru hams dibagi dalam bentuk satuan waktu selama waktu berjalan ada 2 buah sistem yangjalan 3ecara bersama~n. 4. Paralel Pergan!ia;1 seperti ini meminta agar sistem lama benar-benar dipelillara sampai akhimya sistem barn benar-benar bias dijalankan. Pergantian ini merupakan pendekatan terbaik karena keamanan benar-benar terjamin, tetl!pi biaya sangat mahal karena untuk biaya pemeliharaan sistem lama dan sistem barn.
22
2.3.
Basis Data Salah satu elemen penting lainnya untuk mendukung terintegrasinya
sistem pengolahan data didalam sistem informasi, adalah tersedianya basis data.
2.3.1. Konsep Basis Data
Basis data (database) merupakan kumpulan dari data yang saling b~~hubungan
satu dengan yang lainnya, tersimpan di perangkat keras komputer
dan digunakan perangkat lunak untuk memanipulasinya (Jogiyanto, 2000: 711). Basis data dapat dikatakan sebagai kumpulan data rekaman, hasil proses pemasukan data. Agar dapat menduk..mg sistem informasi, basis data harus disimpan dal'lm sistem basis data yang terintegrasi. Sistem basis data yang terintegrasi ini bisa terpusat, bisa juga terdistribusi. Kemudian menurut simarnata dan paryudi (2006: 1) mendefinisikan basis data sebagai kumpulan data berisi informasi yang sesuai untuk sebuah organisasi. Sedangkan sistem manajemen basis data adalah kumpulan data yang saling berhubungau dan knmpulan progam untuk mengakses data. Tujuan utama sister.-i manajemen basis data
adalah untuk menyediakan cara menyimpan dan
mengambil informasi basis data secara mudah·dan efisien.
23
2.3.2. 1'ujuan J:Sasis Data Pendeka
2.3.3. Bahasa Basis Data (Database Language) Database Manajement System (DBMS) merupakan perantara bagi
pemakai dengan basis data dalam disk. Cara berinteraksi I berkomunikasi antara pemakai dengan basis data tersebut diatur dalam silatu bahasa khusus yang ditetapkan oleh perusahaan pembuat DBMS. Bahasa itu dapat penulis sebut sebagai bahasa basis data yang terdiri atas sejumlah perintah (statement) yang diformulasikan dan dapat diberikan user dan dikenali I diproses oleh DBMS untuk melakukan suatu aksi I pekerjaan tertentu (Simarnata & Paryudi, 2006 : 15). ·
24
2.3.3.1. Data Definition
Languag~
(DDL)
Struktur atau skema basis data yang menggambarkan I mewakiii desain basis data secara keselurnhan dispesifikasikan dengan bahasa khusus yang disebut
Data Definition Language (DDL). Dengan bahasa inilah penulis dapat membuat tabel barn, membuat indeks, mengubah tabel, menentukan struktur penyimpanan tabel, dan sebagainya. Hasil dari kompilasi perintah DDL adalah kumpulan tabel yang disimpan dalam file khusus yang disebut Kamus Data (data dictionary). Kamus Data merupakan suatu metadata (superdata) yaitu data yang mendeskripsikan data sesungguhnya. Kamus data ini akan selalu diakses dalam suatu operasi basis data sebelum suatu file data yang sesungguhnya diakses.
2.3.3.2. Data Manipulation Language (DML) Merupakan bcat•.tlc bahasa basis data yang berguna untuk melak:ukan manipuiasi dan pengambilan data pada suatu basis data. Jv[anipulasi data dapat berupa: •
Penyimpanan I penambaha11. data !Jar.i ke guatu basis data.
•
Penghapusan data dari suatu basis data.
•
Pengubaban data disuatu basis data. Pada
level
fisik
penulis · harus
mendefinisikan
algoritma
yang
memungkinkan pengaLlesan yang efisien terhadap data. Pada level yang tinggi, yang dipentingkan bukan hanya efisien akses,
tetapi juga efisiensi interaksi
manusia (pemakai) dengan sistem (kemudahan pemuntaan akses).
25
DML merupakan bahasa yang bertujuan memudahkan pemak:ai untuk mengakses data sebagaimana direpresentasikan oleh model data. Ada 2 jenis DML, yaitu: 1. Prosedural, yang mensyaratkan agar pemakai menentukan data apa yang
dinginkan serta bagaimana cara mendapatkannya. 2. Nonprosedural, yang membuat pemakai dapat menentukan data apa yang
diinginkan tanpa menyebutkan bagc'.:nana cara mendapatkannya.
2.4.
Alat Bantu Perancangan Sistem Informasi Perpustakaan Didalarr. merancang progar.1 terstruktur dapat dipergunakan beberapa alat
Bant\!, diantaranya adalah:
2.4.1. Flowchart
l
Menurut cherington (2000: 227), flowchart digunakan untnk sistem informasi
yang
berbentnk
menggambarkan proses
dokumen
sis~emdan
bergrafik.
Isi
dalam
flowchart
arus data I dokumen. Tidak seperti pada
program konseptual kebanyakan, flowchart memfokuskan pada aspek fisik arus data dan proses. Isi dari suplemen ini dapat membantu anda meningkatkan kemampuan yang dibutuhkan untuk menyiapkan dan menginterpretasikan flowchart. Flowchart digunakan untnk menggambarkan masukan sistem inl:ormasi dalam porsi yang sama. Masukan sistem informasi meliputi pemasukan data
26
didistribusikan ke pemakai untuk membuat keputusan a:tau menggambark:m sistem informasi. Sistem flowchart diguna:kan untuk mengilustrasikan masukan sistem infonnasi. Ka:Jang-kadang flowchart memfokuskan diri pada aspek ·sistem tersehut, seperti penggunaan dokumen dalam sistem tersebut dan menampilkan prosedur sistem tersebut.
2.4.1.1. Tipe Flowchart Ada beberapa tipe flowchart, yaitu:
I. Flowchart sistem menunjukan konfigurasi masukan sistem, memasukan dokumen, arus data, dan proses sistem tersebut. 2. Flowchart dokumen atau prosedur menunjukan kreasi, arus dan tujuan dokumen didalam sistem dan menampilkan prosedur. 3. Flowchart
pro;;r~m
menunjukan logika dan langkah proses dari program
k<.lmputer.
2.4.1.2.
Elemen Grafik Flowcbart
Flowchart dokumen memiliki tiga elemen grafik: dasar yang dapat dikombinasikan pada variasi tipe dari arus informasi dan proses:
I. Simbol Variasi simbol '.'ang digunakan untuk menunjukan aspek fisik dari arus data I dokumen dan proses dari sistem informasi.
27
2. Garis Arns Garis arus digunakan untuk menghubungkan simbol-simbol pada dokumen be1bentuk diagram. 3. Cakupan Tanggung Jawab Ditampilkan
untuk
memungkinkan
pembaca
diagram
secara
jelas
mengidentifikasi perubahan-perubahan disertai tanggung jawab dimana dokumen mengalir melalui sistem.
2.4.1.3. Teknik Flowchart Beberapa teknik telah ditemukan untuk membi1"1bing pers1apan dari diagram. Tujpan uta.11'.a dari teknik-teknik ini adalah untuk meningkatkan kemampuan membaca, dan memungkinkan validasi dari diagram. Beberapa teknik tersebut adalalI: 1. Halaman pada buku dibaca dari atas kebawah dan dari kiri kekanan. Dalam cara yang sama, sebuah diagram dapat dimengerti dengan mudah jika cara yang sama diikuti. 2. SebualI diagram harus dengan jelas menunjukan dimana sebualI dol..\llilen diperkenalkan menjadi sebuah sistem dan dimana :itu secara permanen memasuki atau meninggalkan sistem. Setiap copy dari dokumen harus mengalir kepada satu dari
~>)bagai
berikut:
•
SebualI simbol file yang permanen.
•
Sebuah simbol yang menunjukan sebuah jalan keluar dari sistem. e<_1 ____ 1 _
_ J:'J:' ____
______ .,. __
28
Kapanpun tujuan akhir dari dokumen tidak dilcetahui, sebuah simbol annotation digunakan untuk mengindikasi hahwa investigasi tambahan diperlukan. 3. Sebuab diagram adalah sebuah al at anal is is dan design yang penting. Bagaimanapun, detail yang terlalu banyak mengurangi kemampuan diagram untuk berkomunikasi. Untuk alasan ini, amati peraturan-peraturan berikut: •
Tempatkan area tanggung jawab dengan penukaran dekat yang P"ling banyak kepada masing-masing untuk menghindan anak panah yang panJang.
•
MPsukan cerita pada chart hanya dalam bentu!c simbol.
•
Hmdari menggunak11n bentuk cerita untuk menjelas!kan apa yang sudab cukup digamba:-kan oleh diagram itu sendiri.
4. Gambar dokumen sebelum dan sesudah proses dilakukan , ketika memasuki atau meninggaikan file. Juga, bila dokumen diubah (misalnya: di-update atau disetujui), gantilab nama dokumen untuk mengindikasi statusnya yang sekarang. 5. Ketika mendiagramkan setiap proses, pastikan dalam memasukan semua langkah-langkab besar dalam proses ini. Ini sering membantu mengingat babwa sistem secara sederhana adalab kombinasi dari input, pros_es, output dan penyimpanan data.
29
2.4.1.4. Simbol Flowchart Berikut ini adalah simbol-simbol flowchart: •
Simbol Dokumen Simbol dok'UIUen menunjukan dokumen input dan output baik dalam proses manual, mekanik atau komputer.
•
Simbol Kegiatan Manual Simbol kegiatan manual adalah simbol yang digunakan untuk menunjukan pekerjaan yang dilakukan sec".ra manual.
0 •
Simbol Simpar.an Off-line Simbol Simpanan Ofjline adalah file non komputer yang diars1p berdasarkan urut angka (Numerical). Urut huruf (Alphabetical) atau urut tanggal ( Chrono/Ggical). L Urut angka (Numerical) File non komputer yang diarsip urut angka
2. Urut huruf (Alphabetical) File non komputer yang diarsip urut huruf
\ . I
30
3. uruttanggal ( Chronologicnl). File non komputer yang diarsip urut tanggal
•
Simbol Proses Simbol Proses menunjukan kegiatan atau proses yang dilakukan secara komputerisasi.
•
Simbol Hardisk Simbol Hardisl<: menunjukan input atau output menggunakan h:;rdisk.
•
Simbol Garis Alir Simbol Garis Alir menunjukan arus
il •
Simbol Penghubung Simbol Penghubung i.1enunjukan penghubuing kehalaman ·yang masih sama atau hal lain.
nn
31
2.4.2. Data Flow Diagram (DFD) Alat dokumentasi kedua adalah data flow diagram (DFD). Simbol pendiagraman data flow di5unakan unruk banyak tu'Juan sistemanalis tennasuk secara grafik menampilkan logical flows of data melalui sebuah proses. Tidak seperti diagram, yang menampilkan komponen fisik dari sebuah sistem infonnasi, data flow diagram dapat menyediakan lebih konseptual, nonfisikal tampilan dari pergerakan data melalui sebuah sistem (cheerington, 2000: 232) Sedangkan menurut jogiyanto (2000: 655), Data Flow Diagram (DFD) adalah alat pembuatan model yang memungkinkan profossional sistemuntuk menggambarkan sistemsebagai suatu jaringan proses dihubungkan satu sama lain dengan alur
dat~
fungsional yang
baik secara manual maupun secara
terkomputerisasi. Data Flow Diagram digunakan oleh analis sistem unruk dapat merepresentasikan proses-proses data didalam organisasi. Pendekatan DFD menekankan pada logika yang mendasari sistem. Dengan menggunakan kombinasi dari empat simbol, analis sistem dapat mencipt:!kan saata gambaran proses-proses yang bisa menampilkan dokumentasi siste:m yang solid. Atau dengan kata lain DFD adalah alat pembuatan model yang mcmberikan penekanan pada fungsi sistem.
32
2.4.2.1. Kelebihan Data Flow Diagram
Data Flow Diagram memiliki empat kelebihan utama melalui penjelasan naratif mengenai cara data-data berpindah disepanjang sistem (Kendall & Kendall, 2003: 278). Yaitu: L Kebebasan dari menjalankan implementasi teknik sistem yang terlalu dini. 2. Pemahaman lebih jauh mengenai keterkaitan satu sama lain dalam sistem dan subsistem. 3. Mengkomunikasikan pengetahuan sistem yang ada dengan pengguna melalui diagram aliran data. 4. Menganalisis sistem yang diajukan untuk menentukan apakah data-data dan proses yang diperlukan sudah ditetapkan.
33
2.4.2.2. Simbol Data Flow Diagra!ll Terdapat empat simbol dasar yang digunakan untuk memetakan gerakan diagram aliran data adalah: kotak rangkap dua, tanda panah, bujur sangkar dengan sudut terbuka, dan bujur sangkar dengan ujung terbuka (tertutup pada sisi sebelah kiri dan terbuka pada sisi sebelah kanan). Simbol
Arti
Entitas
Contoh
Anggota
lnformasi anggota baru AliranData
Proses
Penyimpanan Data
Membuat record anggota
MastCrdata
anggota
Tabel 2.1 Simbol DFD (Kendall & Kendall, 2003 : 265)
34
2.4.2.3. Ketentuan dalam menggambar Data Fl;;w Diagrnm Di bawah ini merupakan beberapa ketentuan dalam menggambar Data Flow Diagram (Kendall & Kendall, 2003 : 272) : 1.
Aliran data tidak boleh terbelah menjadi dua atau lebih aliran data yang berbeda.
2.
Semua aliran data haras memilih sabh satu u1<>ugawali atau meug!J.er.tikan suatu proses.
35
4. Proses-proses tersebut harus memiliki sedikitnya satu a!iran data masuka.ri dan satu aliran data keiuaran.
2.4.2.4. Levelisasi Data Flow Diagram Di dalam Data Flow Diagram penggambarannya disusun dalam bc'.Jerapa tingkatan, yaitu tingk-'!tan dari yang paling tertinggi yar:g ml"mpengaruhi
sist~m
tersebut, biasanya dikenal dengan nama diagram kon:eks atau diagram level 0, diagram level 1 atau diagram figure 0 yang menggambarkan proses utama sistem,
sampai dengan tingkat paling bawah yang tidak dapat diuraikan lagi (biasanya dikenal dengan nama diagram primitif). Pada fase desain dilakukan perancangan input dan output baik secara umum ataupun detail. Perancangan secara umum, penulis mengidentifisikan data input, dan data output, membuat sketsa form atau tampilan pada kertas atau komputer, merancang input, output, proses, dan databasenya. Untuk secara khusus, merancang input dan output secara mendetail (type, panjang karakternya, dan sebagainya), menentukan apakah inputan dimasukan secara online atau batch,
36
merancang proses untuk mengubah input menjadi output yai1tu membuat diagram aiur ataujlowchart.
2.4.3. Entity Relationship Diagram (ERD) Entify Relationship Diagram adalah alat pemodelan data utama dan a.kan membantu mengorganisasikan data dalam suatu proyek ke dalam entitas-entitas dan menentukan hubungan antar entitas.
Proses memungkinkan analis
menghasilkan struktur basis data yang baik sehingga data dapat disimpan dan diambil secara efisien (Simarnata & Paryudi, 2006: 67).
2.4.3.1.
Entitas (entity) Entitas adalah S1;suatu yang nyata atau abstrak dimana pcnulis kan
menyimpan data. Dengan kata lain entitas adalah suatu kurapuian objek atau · sesuatu yang dapat dibedakan atau diidentifikasikan secara unik.
Tipe entitas adalah sekumpulan entitas ya!lg mengguna.kan sifat dan karakteristik yang sama, sedangkan instance entitas adalah suatu kejadian tunggal dari tipe entitas. Entitas
Gambar 2.3 Simbol Entitas
37
2.4.3.2.
Relasi (Relations/zip)
Relasi menunjukan adanya hubungan diantara sejumlah entitas yang erasal dari himpunan entitas yang berbeda. Kumpulan semua relasi diantara entitasentitas yang terdapat pada himpunan entitas - himpunan entitas tersebut membentuk himpunan relasi.
Relasi
>
Gambar 2.4 Simbol Relasi
Anggota
Bukn
Pinjam
Gambar 2.5 Contoh Relasi
2.4.3.3.
Atribut (Attribute) Setiap entitas pasti memiliki atribut yang mendeskripsikan karakteristik
atau property dari entitas tersebut. Bukan hanya entitas yang memiliki atribut tapi relasi juga dapat memilikinya.
Atribut
(:!.gmhgr ') h
~; ..'"h.n.I
..t.+....:h •• 4-
38
2.4.3.3.
Kardinalitas I Derajat Relasi Kardinalitas relasi menunjukan jumlah maksimum entitas yang dapat
berelasi dengan entitas pada himpunan entitas yang lain. Kardinalitas relasi merujuk kepada hubungan maksimum yang terjadi dari hirnpunan entitas yang satu ke himpunan entitas yang lain dan begitu juga sebaliknya. Kardinalitas relasi yang terjadi diantara dua himpunan entitas (misal Adan B) dapat berupa:
•
Satu ke Satu ( 011e to 011e) Yang berarti setiap entitas pada himpunan entitas A berhubungan dengan paling banyak d.,ngan satu entitas pada himpunan entitas B, dan begitu juga sebaliknya setiap entitas pada himpunan entitas B berhubungan dengan paling banyak dengan satu entitas pada himpunan entitas A
•
Satu ke Banyak ( 011e to Ma11y) Yang berarti setiap entitas pada himpunan entitas A berhubungan dengan banyak entitas pada himpunan entitas B, tetapi tidak sebaliknya, dimana set;ap entitas pada himpunan entitas B berhubungar:. dengan paling banyak dengan satu entitas pada himpunan entitas A.
•
Banyak ke Satu (Ma11y to One) Yang berarti setiap entitaspada himpunan entitas A
h•~rhubungan,
dengan
paling banyak dengan satu entitas pada himpunan entitas B, tetapi tidak sebaliknya, dimana setiap entitas pada himpunan enti1as A berhubungan dengan paling banyak satu entitas pada himpunan entitas B.
39
•
Banyak ke Banyak (Many to Many) Yang berarti setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B, dan demikian juga sebaliknya, dimana setiap entitas pada himpunan entitas B dapat berhubungan dengan banyak entitas pada himpunan entitas A.
2.4.3.4.
Metodelogi ERD
Langkah 1. Menentukan Entitas Entitas adalah sesuatu yang nyata atau abstrak dimana pemtlis akan menyimpan data. Ada lima kelas entitas, yaitu peran, kejadian, lokasi, ha! nyata, dan konsep. Cara terbaik menentukan entitas adalah menanyakan pada pemilik dan pengguna sistem untuk mengetahui info,masi yang inginmereka simpan dan hasilkan. Sumbe~
lain menentukan entitas adalah dengan mempelajari formulir, file, dan
laporan yang dihasilkan oleh sistem yang ada sekarang. Langkah 2. l'Aenentukan Relasi Ada hubungan alamiah antar pasangan entitas. Dengan menulis!can entitas menurun pada sebuah kolom dan mnendatar pad
40
Langkah 4. Mengisi Kardinalitas Pada setiap ujung garis yang berhubungan kotak, penulis hams menggambarkan symbol yang menunjukan jumlah instansi minimum atau maksimum. Symbol pertama dalah 0 atau I. symbol 0 menunjukan bahwa suatu entitas tidak memiliki instansi yang behubungan dengan suatu instansi pada entitas lain yang berhubungan. Lebih lanjut, symbol 1 menunjukan bahwa ada paling tidak satu instans: ;:iada suatu entitas.
Langkah 5. Menentukan Kunci Utama Untuk masing-masing netitas, penulis harus mencari kunci utama yang unik sehingga suatu entitas dapat dibedakan dari entitas lain. Kadang-kadang kunci utama hanya terdiri atas satu atribut, tetapi dapat pula tersusun dari kumpulan atribut.
Langkah 6. Menggambar ERD Berdasarkan Key ERD sementara mungkin me111illki relasi many-to-many. Relasi many-to-many akan menjacli masalah . jika penulis mencoba menerapkan entitas yang berhubungan sebagai penyimpan data atau file. Hal ini dikarenakan m:!Singmasing record akan membutuhkan jumlah field tidak tertentu supaya relasi manyto-many tetap terjaga Masalah dapat diatasi dengan menan1bah entitas baru yang disebut entitas asosiatif. Nama entitas barn adalah gabungan nama du.a entitas yang dihubungkan. Entitas baru akan memiliki kunci utama dari kedua enfitas yang dihubungkan dan kardinalitasnya adalah one-to-many.
41
Toangkah 7. Menentukan Atribut Atribut adalah ciri umum semua atau sebagian besar instansi pada entitas tertentu. Pada langkah 7 penulis mencoba menentukan semua atribut yang diperlukan oleh sistem. Cara terbaik melakukannya adalah dengan memelajari formulir, file, dan laporan yang dihasilkan oleh sistem yang ada saat ini dan melingkari masingmasing item data yang akan dipakai pada sistem baru. Item yang dilingkari harus mewakili atribut yang dibutuhkan. Langkah 8. Memetakan Atribut
Penulis hams memasangkan masing-masing atribut dengan satu entitas. Suatu atribut kadang harus dipasangkan pada lebih dari satu enti"'.as (misalnya nama). Pada kasus ini, penulis harus merubah nama atribut supaya lebih spesifik (misalnya: nama anggota, nama buku, dan sebagainya). Jika penulis r;:;enJapati atribut yang tidak berhubungan dengan · satu entitas, berarti penulis lupa menuliskan entitas dan relasinya. Penulis m;:ncari entitas yang kurang dan menambahkan pada matriks relasi. La'1gkah 9. Menggambarkan ERD dengan Atribut Jika menambah entitas dan atribut baru pada langkah 8, penulis hams menggambar ulang ERD. Langkah 10. Memeriksa Hasil
Melihat diagram dari sudut pandang pemilik atau pengguna sistem. Apakah semuanya jelas? Periksa kardinalitasnya. Lihat pula daftar
atribut yang
berhubungan dengan masing-masing entitas untuk melihat apakah ada yang hilang.
42
2.4.'!. Normalisasi Normalisasi adalah bagian perencanaan basisdata. Tampa normalisasi, sistem basisdata menjadi tidak akurat, lambat, tidak efesien, serta tidak memberikan data yang diharapkan. Normalisasi sendir.i merupakan cara pendekatan lain dalam membangun desain lojik basis data relasional yang tidak secara langsung berkaitan dengan model data, tetapi dengan menerapkan sejumlah aturan atau kreteria standar untuk: menghasilkan struktur tabel yang normal (Simamata & Paryudi, 2006: 77).
2.4.4.1. Konsep Dasar Pada waktu menormalisasi basis data, ada empat tujuan yang harus dicapai, yaitu : I.
mengatur data dalam kelompok -
kelompok sehingga masing - masing
kelompok hanya menangani bagian kecil. 2. Meminimalkanjumlah data berulang dalam basis data. 3. Me!!!buat !Jasis da•a yang datanya diakses dan dimanipufatsi secara tepat dan efesien tanpa melupakan integritas data. 4. Mengatur data sedemikian rupa sehingga ketika memodi:fikasi data, penulis hanya mengubah pada satu tempat. Perancang basis data terkadang menyebut keempat tuJiuan dengan istilah integrates data, integitas referensial, dan pengaksesan data.
43
Ada beberapa ko.1sep yang diperlukan dalarn norrnalisasi field atau atribut kunci dan keterg'lntungan kunci. Setiap field selalu terdapat key file yang berupa satu field atati satu set field yang mewakili record. a. Kandidat Key ( Kunci Kandidat atau kunci Calon ) Satu atribut atau satu set aribut yang rnengidentifikasikan secara unik suatu kejadian specific dari entity. b. Primary Key ( Kunci Primer) Satu atribut atau satu set atribut yang tidak hanya mengidentifikasikan secara unik suatu kejadian spesifik tetapi dapat juga rnewakili setiap kejadian dari suatu entity. c. Alternate Key (Kunci Alternative) Kunci kandidat yang tidak digunakan sebagai primary key. d. Forei1;;n Key (Kunci Tamu) Satu atribut atau satu set atribut yang melengkapi satu h;;bungan atau relationship yang menunjukkan ke induknya.
2.4.4.2. Aturan Normalisasi beriknt adalah aturan - aturan norrnalisasi : 1.
Hilangkan kelompok berulang - buat tabel terpisah untuk menghimpun atribut yang berhubungan dan tentukan kunci utama pada masing - rnasing tabel.
2.
Hilangkan data berulang - jika sebuah atribut hanya tergantung pada
44
3. · Hilangkan kolom
~'ang
tidak tergantung pada kunci - atribut tidak
tergantung pad.a kunci, pindahkan keatribut yang lain. 4.
Pisahkan relasi majemuk - tidak ada tabel yang bias mengandung dua atau lebih relasi 1 : n atau n : m yang tidak berhubungan langsung.
5.
Pisahkan relasi majemuk yang berhubungan secara semm1tic - ada batasan pada informasi yang memperbolehkan pemisahan relasi many-to-many yang berhubungan secara logis.
6.
Bentuk normal optimal - sebuah model hanya dibatasi oleh fakta sederhana.
7.
Bentuk normal domain - key - sebuah model harus te:rbebas dari semua anomaly.
2.4.4.3.
Bentuk- Bentuk Normalisasi
1. Bentuk Tidak Normal
Merupakan kumpulan data yang akan direkam, tidak ada keharusan mengikuti suatu format tertentu, dapat saja data tidak lengkiip >1tau terduplikasi. Data dikumpulkan apa aaanya sesuai dengan kedatangannya. 2. Bentuk Normal Pertama Bentuk normal pertama akan terpenuhi bila dalam suatu tabel tidak terdapat atribut yang bemilai sama. 3. Bentuk Normal Kedua Bentuk normal kedua haruslall memenuhi criteria dari bentuk pertanla, atribut bukan kunci haruslah memiliki ketergantungan fungsional pad.a
45
4. Bentuk Nonna! ketiga Suatu relasi dikatakan dalam !:.entuk normal ketiga jika berada dalam bentuk nonnal kedua dan setiap atribut bukan kunci tidak memiliki hubungan yang transitif terhadap kunci primer. 5. Boyce - Codd Normal Fonn Mempunyai paksaan yang tambah kuat dari bentuk ncinnal ketiga. Untuk menjadi Boyce - Codd Nonna! Fonn relasi hams dalam L.;ntuk normal pertama dan setiap atribut hams bergantung fungsi pada atribut super key (atribut primary key yang menguasai sistem basis data).
2.4.5
KaUius Dat
Kamus data atau data dictionary atau disebut juga system data dictionary adalah catalog fakta tentang data dan kebutuhan-kebutuhan informasi dari suatu system mfonnasi. Dengan menggunakan kamus data analis system dapat mendefinisikan
dat
yang
mengalir
t-::rstruktur.kamus data dibuat pada
tah~.p
di
system
dengan
lengkap
dan
analisis sy&iem dan perancangan suatu
system. Pada tahap analisis, kamus data digunakan sebagai alat komunikasi antara analis system dan pemakai system tentang data yang mengalir di system, yaitu tentang data yang masuk ke system dan tentang infonnasi yang dibutuhkan oieh pemakai system. Pada tahap perancangan, kamus data digunakan untuk merancang input, laporan-laporan dan database.
46
Kamus data mendefinisikan data elemen dengan cara: •
Menguraikan komposisi paket data pada alm data ke d~·lam alur yang lebih kecil. Contc!1: Alamat langganan yang terdiii dari nama jalan, kota, clan kodepos.
•
Menguraikan komposisi paket data dalam data store_
•
Menspesifikasi nilai dan unit informasi dalam alur data dan data store.
Arti
Notasi =
Terdiri dari, terbentuk dari, sama dengan.
+
Dan
()
Optional
{}
Iterasi I Pengulangan. Misal: l {... } 10
[]
Pilih satu dari beberapa alternative (pilihan), missal [AJBIC]
**
Komentar
@
Identifier suatu data store
I
Pemisaban dalam bentuk [ ]
Alias
Nama lain untuk suatu data
Tabel 2.2 Notasi Kamus })ata
47
2.5.
Menggunakan Visual Basic dan Acces XP Penulis meng,,oUDakan Bahasa Pemrograman Visu
merupakan salah satu bahasa p.::mrograman yang pengembangan aplikasinya secara cepat, berbasis visual, sudah familiar dan data ya.ng di olah masih sederhana, dengan Ms. Access XP tidak membutuhkan media penyimpanan yang cukup besar. Ms. Access XP juga menyediakan wizard dan fasilitas yang sangat membantu dalam perancangan suatu aplikasi database. Dalam penyusunan tugas akhir ini penyusun menggunakan software microsoft visual basic 6.0 dan microsoft Access XP sebagai pengolab data sistem yang diusulkan.
2.5.1. Microsoft Visual Ba~lc 6.0 Microsoft visual basic 6.0 adalab salab satu babasa pemrograman yang telah menerapkan konsep RAD Deve (Rapid Application Development) atau pengembangan aplikasi secara cepat, berbasis visual dan familiar bagi pengguna. Tidak seperti versi sebelumnya, kini telah di sertakan sebuah kcmpor..;!n object model yaitu ADO (Active Data Object) yang mampu menjembatani aplikasi yang anda buat dengan berbagai database melalui provider OLE DB. Menurut Kok Yun (2002: 12), microsoft visual basic adalab bahasa pemrograman yang digunakan untuk membuat aplikasi ,;indows yang berbasis grafis. Visual basic juga merupakan event-driven programming (pemrograman yang terkendali oleh kejadian), artinya program menunggu sampai adanya respon
48
dari pemakai berupa event atau kejadian tertentu. Ketika event terdeteksi, kode yang berhubungan dengan event akan dijalankan.
2.5.1.1 Kemampuan Visual Basic 6.0 Beberapa kemampuan atau manfaat dari visual basic, diantaranya adalah : 1. Untuk membuat program aplikasi berbasis windows 2. Untuk membuat object-object pembuatan program seperti: control active x, file help, aplikasi internet dan sebagainya. 3. Menguji program dan rnenghasilkan program akbir berakhiran atau berextensi EXE yang bersifat executahel atau dapat langsung dijalankan.
2..5.1.:l Kelebihan Visual Basic 6.0 Kelebihan visual basic 6.0. adalah sebagai berikut: I. Memi!iki compiler handal yang dapat menghasilkan file executable yang
lebih cepat dan efisien dari sebelumnya. 2. Memiliki beberapa tambaha:: sarana wizard yang baru. Wizard ?.daiah sarana
yang
mempermudah
dalam
pembuatan
aplikasi
dengan
mengotomatisasi tugas-tugas tertentu. 3. Tambahan control-control baru yang lebih canggih serta peningkatan kaidah struktur bahasa visual basic. 4. Kemampuan membuat activeX dan fasilitas internet yang lebih banyak. 5. Sarana akses data yang lebih cepat untuk membuat aplikasi database yang
3. Project Windows ( Jendela Proyek) Proyek berisi daftar form dan modut proyek. Proyek merupakan kumpulan dari modul fonn, modul standar dan berkas sumber yang membentuk aplikasi. 4. Toolbox Toolbox merupakan kumpulan objek yang digunakan untuk membuat antar
muka pengguna bagi suatu kontrol program aplikasi yang dibuat. 5. Properties Wi11dows ( Jendela Properti ) Jendela properti berisi daftar struktur penyusun property yang digunakan pada sebuab objek yang terpilih. 6.
Fonn Layout Wi11dows (Jendela Layout Window)
Menampilkan posisi form relatif terhadap layar monitor. 7. Code mmfows ( Jendela Kode) . Sebagai tempat untuk menuliskan rutin program, biasa ditampilkan den;:;an .
.
menekan new code pada jendela proyek.
49
6. Memiiiki beb::rapa edisi yang disesuaikan dengan kebutuhan pemakainya.
2.5.1.3 Tampilan Layar Visual Basic 6.0 '"•"•
,,
·"
'""
°"'
~ t!r<>.l&t _~ ~ Gui ~-· ~ Im!> ~...- -~ t:i;vi:J-:'m ~-e ci:.:,-;-- - - ---- ~_di_'ltl-W-*_fil-.ll ;L'!.~t::sii: .,~-- ~ Oc
(di::
---
__
u
_o,o
.
e5?9il~4t7(1 ;s;:.·:.·,;;~r·;~--~\t;F;;~:t\~feti:t;
r:rm 1:l
I
e;~
::.i Ill
HE'
- - __ i
1.: ~~-=(p,aj."~t'i)'~l ti °""'111'""'!1)
"'' ILG.;.~Gl..;222122.2.J.
G.tmbar 2.7 Tampilan layar Visual Basic 6.0 Kompon.on pada layar visual basic 6.0 adalah sebagai berikut: 1. Main windows ( Jendela utama )
Terdiri dari tittle bar, menu bar dan tool bar. Tittle bar berisi nama proyek, mode operasi visual basic sekarang dan form yang aktif. Menu bar merupakan menu drop down yang dapat mengontrol oper.asi dari visual basic. Tool bar berisi kumpulan gambar yang mewakili perintah yang ada pada menu.
2. Fonn Window ( Jendela Form) Pusat dari pengembangan aplikasi visual basic dan tempat untuk mendesain aplikasi.
50
2.5.1.4 Bekerja Dengan Form MDI Dalam VB, penulis dapat membuat suatu program berbentuk MDI
(Multiple Document Jnteiface). Program dengan MDI terdiri dari 1 form induklparent dan beberapa form anak/child. Pembuatan program Sistem Informasi Perpustakaan ini memakai satu form MDI dan terdapat beberapa form anak. Ada beberapa karakteristik dari form MDI, yaitu: •
Sebuah program terdiri dari satu form MDI saja.
•
Semua control dalam toolbox, kecuali PictureBox dan Too!Bar, tidak dapat ditempatkan dalam sebuah form MDL
•
Pemrograman grafik tidak berlaku di dalam MDL
•
Apabila sebm~b form MDI di-111inimized, maka semua form anak/child di dalamnya ikut di-minimized.
51
2.5.1.5 Bekerja Dengan Kontrol Dasar Visual Basic 6.0 Visual Basic memiliki konsep modular programming, dimana kode-kode program letaknya tersebar di dalam modul-modul ( obyek-obyek) yang terpisah. Beberapa kontrol yang digunakan dalam pembuatan program Sistem Informasi Perpustakaan yaitu :
I.
Label
2.
Textbox
3.
Frame
4.
Commandbutton
5.
Checkbox dan Optionbox
6.
Listbox dan Combobox
7.
Timer
2.5.2. Windows XP Windows XP sebuah sistem operasi yang memiliki tampilan grafis
(Graphical User Interface). Kemampuan Windows XP dapat digunakan oleh siapa saja, baik yang baru pertama kali menggunakan windows ataupun yang telah menggunakan windows versi sebelumnya. Windows XP diluncurkan di Amerika Serikat pada 1anggal 25 bktober dan di Indonesia pada I Novembe~ 200 I. Windows XP adalah versi windows yang paling stabil. XP juga mewarisi kompalibilitas dengan hardware dan software serta perangkal-perangkat untuk bekerja dtngan citra digital, video, dan audio.
52
Microsoft telah memperbaiki proses instalasi sehingga anda tidak akan menghadapi kesulitan yang besar karena ketidak kompatibelan. Windows XP menggabungkan begitu banyak fasilitas (barn dan lama) kedalam satu keluarga pruduk, yang kemudian dikelompokkan menjadi lima bidang utama: interface pengguna, perangkat media digital, fasilitas keamanan pengguna perawatan dan bantuan serta perangkat internet.
2.5.3. Microsoft Access Database dapat diartikan
sekumpulan informasi atau data yang saling
terhubungan yang mempunyai topik atau tujuan tertentu. Informasi atau data yang diolah tersebut disimpan dalam sebu\J.. {\le dengan ekstensi.MDB (ivficrosoft Acee:; Database).
BAB ill
METODE PENELITIAN
3.1
Objek, Tempat, dan Waktu Penelitian.
Objek penelitian ini adalah analisis dan perancangan Sistem Informasi Perpustakaan pada Sekolah Menengah Pertama Negeri I Pakuhaji Tangerang Banten. Penelitian ini intensif dilakukan dari bulan Maret siimpai Juni 2006, di SMPN I Pakuhaji Tangerang Banten. Adapun lokasi tempat penelitian penulis beralamat di: JI. KH. Saadullah KM.1 Kee. Pakuhaji Kah. Tangerang Provinsi Banten 15570.
3.2
Metode Penelitian
Menurut literatur metode penelitian yang penulis gunakan, menyebutkan bahwa ada bebera;:ia jenis penelitian. Terkadang yang dimaksud dengan jenis penelitian adalah metode penelitian itu sendiri. Bt:rdasarkan tinjauan buku tersebut dan analisis penulis, ditinjau dari segi aplikasi, penelitian yang penulis lakukan ini termasuk dalam penelitian terapan, yaitu penelitian yang hasilnya dapat langsung diterapkan dalam memecahkan permasalahan-permasalahan yang dihadapi. Ditinjau dari segi informasi yang dikelola, penelitian ini termasuk dalam penelitian kualitatif, yaitu penelitian yang data-data atau informasi-informasinya yang ada tidak dikelola dengan· statistik. Ditinjau dari segi maksud suatu penelitian, penelitian ini termasulc penelitian deskriptif, yaitu penelitian yang memiliki ciri-ciri memberikan gambaran atau
54
uraian suatu keadaan sejelas mungkin, berhubungan dengan keadaan yang terjadi saat itu, tidak ada perlakuan atau manipulasi terhadap objek yang diteliti.
Penulis I Peneliti
Staff Pef'pustakaan
Pengembangan Sistem lnformasi , Perpustakaan
I
lldak
SIP Sosuai?
>--1-Y_a_ _ ~ I
Menggunakan SIP
I
l
{Selesai
")
Gambar 3.1 Bagan Alir Penelitian Pada SMPN 1 Pakuhaji
55
3.3
Teknik Pengumpulan Data Tal1ap pengumpu!an data adalah tahapan yang paling penting dalam
penulisan yang dilakukan penulis. Dalam penulisan ini, penulis menggunakan dua cara pengumpulan informasi, yaitu: 1. Metode Dokumentasi
Pada metode pertama ini, penulis mengumpu!kan berbagai macam sumber bacaan yang berhubungan
der~n
materi penulisan. Sumber bacaan yang
berhubungan dengan materi penulisan. Sumber bacaan yang menyediakan data
dan informasi sekunder tersebut, penulis dapatkan dari perpustakaan dan internet. Bentuk-bentuk bacaan yang c!!pakai adalah: a. Buku teks, yaitu tulisan ilmiah yang dijilid
rap1
dan diterbitkan dalam
interval yang tidak tentu; o. Off Print, yaitu artikel lepas dari internet atau buku teks; c. Manual, yaitu buku petunjuk tentang melakukan
~es;;atu
secara terperinci,
yang biasanya berisi petunjuk tentang masalah tertentu, atau fenomena yang
bersifat linJ.Ufil. Disamping lewat membaca, penulis juga berkonsultasi kepada orang yang berkompeten dalam hal materi yang penulis perlukan, seperti para dosen, baik melalui tatap muka atau via email.
56
2. MP-tode Survei Pada i.;;numnya metode survei inilah yang digunakan oleh penelitian deskriptif sebagai teknik pengumpulan data. Jenis survei yang penulis lakukan adalah cross-sectional survei, yaitu pengumpulan data dilakukan hanya pada suatu saat tertentu, artinya bukan hanya pada satu hari saja, namun bisa dilakukan dalam beberapa hari atau beberapa minggu oleh karena situasi seperti masalah transportasi atau kesediaan responden dan ::mkan disengaja untuk mengumpulkan data pada waktu-waktu yang berbeda. Dalam metode ini, penulis mengumpulkan data dengan cara: a. Wawancara (inierview) ?;)nulis sebagai pewawancara (interviewer) me!lakukan tatap muka I interaksi langsmig kepada orang yang diwawancarai (interviewee). Penulis mewawancarai pihak sekolah ataupun anggota I staff perpustakaan sekolah secara langsung, diantaranya: •
Kepala sekolah SMPN
I Pakuhaji Tangerang Banten, untuk
mer.getahui kebijakan mengenai sistem informasi perpustakaan sekolah. •
Koordinator dan Staff Perpustakaan SMPN l Pakuhaji Tangerang Banten, karena pihak ini yang bertanggung jawab dengan kondisi dan situasi perpustakaan sekolah.
•
Guru-guru dan murid-murid SMPN 1 Pakultaji Tangerang Banten, untuk mengetahui keperluan dan kepentingan mereka terhadap
57
b. Observasi Observasi dilakukan dengan cara pengamatan langsung terhadap kegiatan perpustakaan sekolah., diantaranya pencatatan, pengolahan, penyimpanan datadata perpustakaan serta pembuatan laporan. c. Kearsipan (Documentation) Penulis membaca dan mernpelajari arsip-arsip tentang data perpustakaan yangada. d. Kepustakaan (Library) Penulis membaca literatur atau buku-buku yang berkaitan dengan pengolahan data perpustakaan.
3.4 Metodelogi Pengembangan Sistem Analisis
dan
perancangan
Sistem
Infomtasi
Perpustakaan
m1
menggunakan pendekatan metodelogi analisis dan perancangan sistem terstruktur dengan waterfall Analisis
dan
peranc;;ngan sistem
terstruktur menampilkan
suatu
pendekatan sistem:itis untuk merancang dan membangun kualitas sistem komputer. Disepanjang ta!Iap analisis dan perancangan, penganalisis bisa melanjutkannya tahap demi tahap, mendapatkan umpan balik dari
penggun~
dan
menganalisis perancangan untuk mendeteksi kelalaian dalam pencantuman dan kesalahan (Kendall & Kendall 2003: 23).
58
Kebutuhan
Analisis
Desain
fmplemer~
G~ Gambar 3.2 Taha pan Siklus Pengembangan Sistem yang Dipakai
a. Perencanaan Tahap ini dimulai dengan adanya kebijakan untuk mengembangkan sistem yang ada. Kebijakan ini muncul dikarenakan oleh adanya keinginan untuk meraih kesempatan-kesempatan yang tidak dap2t diraih oieh sistem lama yang masih bersifat manual. Dalam tahap ini penulis mencoba untuk merencanakan, menentukan dan mendefinisikan sistem yang akan dibangun.
59
b. Analisis Pada tahap analisa ini penulis mencoba menganaiisa pennasaiahan yang terdapat pada sistem pengelolaan data perpustakaan sekolah yang telah berjalan sebelumnya, kemudian penulis kembali mempelajari dan mencoba mengerti dengan secara detail tentang sistem tersebut, setelah penulis berhasil mengerti sistem yang ada kemudian penulis mencoba untuk memahami apa yang menjadi keinginan pemakai dalam menggunakan sistem yang akan penulis kembangkan, kemudian penulis membuatkan model logika dan model fisik dari penyelesaian usulan secara konstrain logika dan desain dari fungsi-fungsi khusus yang akan diusulkan untuk penye!,.,saian masalah yang ada.
c. Desain Pada tahap ini harus dapat memberikan gambaran yang jelas oagaimana naminy'l
~istem
akan berjalan. Penulis merancang user interface, input, output,
dan kemudian penulis membuat perancangan data (data design) dengan menggunakan Entity Relationship Diagram (ERD), Diagram Relational dan Nonnalisasi data.
60
d. Implementasi Pada tahap ini penuiis membangun sistem dengan cara memindahkan hasil desain ke dalam bentuk bahasa pemrograman yang tentunya harus sesuai dengan desain sistem yang telah dibuat pada tahap sebelumnya. Setelah sistem selesai dibangun maka selanjutnya melakukan tahap testing sistem yaitu tahapan yang bertujuan untuk mengetahui apakah sistem berjalan dengan baik atau tidak
3.5
Parameter Keberhasilan
Parameter keberhasilan yang penulis gunakan terhadap analisis dan rancangan aplikasi Sistem Infonnasi Perpustakaan adalah hasil uji coba dan wawancara kepada para pengguna sistem. Kepuasan penggunalah yang menjadi tolak ukur keberhasilan penelitian ini.
BAB IV HASIL & PEMBAHASAN 4.1
Pengenalan Organisasi 4.1.1
Sejarah
Sekolah menengah pertama negeri 1 pakuhaji ini didirikan pada tahun 1984 dengan SK nomor 143 tahun 1984 sebagai satu-satw1ya SMP yang pernah ada dikecamatan pakuhaji pada waktu itu. Sekolah ini bertujuan untuk meningkatkan kualitas SDM dalam rangka menyiapkan tenaga yang handal dan terampil dengan didukung oleh kemampuan akademik yang baik, penguasaan kompetensi teknologi, serta didasari oleh imtaa vang kuat. Pada awal berdirinya sampai dengan sekarang S11PN 1 Pakuhaji telah dipimpin oleh beberapa kepala sekolah, diantaranya sebagai berikut: 1. KasVJ'ldi
1984-1986
2. EmvPadma
1987-1989
3. H. Ishak Husna
1989-1990
4. E. Tarjan ·
1990-1992
5. Nani Sukarni
1992-1994
6. Drs. Tjetjep Achdiwidjaya
1994-1997
7. H. Djalaludin, S.Pd
1997-2001
8. Drs. Suyono
2001-2003
9. Drs. Nana Sujana
2003-Sekarang
62
4.1.2
Visi & Misi
Visi: Menjadi sekolah yang mantap dalam imtaq dan unggui dalam iptek serta cinta akan prestasi. Misi: ./ Meningkatkan iman dan taqwa ./ Mengikuti kemajuan i;:•ek ./ Meningkatkan disiplin ./ Meningkatkan prestasi akademik
4.1.3
Struktur Organisasi Kepala Sekolah
Komite Sekolah
Wakepsek2
Wakepsek I
Koo rd. Pelaksana TU Staff TU
Bag. Kesiswaan
Bag. Kurikulum
Bim. Konseling
Dewan Guru
Pustakawan
Gambar 4.1 Struktur Organisasi Sekolah
I~'
--L-ab_o_r_a_n_ __,
63
Komite Seko1ah
Komite sekolah bertugas untuk meningkatkan peran serta masyarakat dalam bidang pendidikan, diperlukan wadah yang dapat meneakomodasi pandangan, aspirasi, dan menggali potensi masyarakat untuk menjamin demokratisasi, transparansi, dan akuntabilisasi.
Kepala Sekolah
Kepala sekolah bertugas sebagai mamyer sekolah yang harus mampu mengatur semua potensi sekolah agar dapat berfungsi secara optimal. Artinya kepala sekolah mesti bisa melakukan fungsi-fungsi manajemen dengan baik, yaitu: perencanaan, pengorganisasian, pengaral-ian serta pengawasan.
Wakil Kepala Sekolah
Wakil kepala sekolah I dan 2 mempunyai tugas yang sama, yaitu untuk mendampingi dan membantu tugas kepala sekolah dalam melakukan peranannya sebagai manajer sekolah. Namun waktu tugas mereka berbeda, yaitu wakil kepala sekolah 1 bertugas pada kelas pagi dan wakil kepala sekolah 2 bertugas pada kelas s1ang.
Koordinator Pelaksana TU
Koordinator TU bertugas untuk memimpin staff TU dalam melaksamikan tugas-tugasnya.
64
Staff TU Staff TU sekolah bertugas untuk menangani administrasi sekolah seperti surat-menyura:t, dokumen-dokumen sekolah dan sebagainya.
Bagian Kesiswaan Bagian kesiswaan bertugas untuk membimbing siswa dan menumbuh kembangkan kreatifitas akademik maupun non-akademik bagi siswa sekolah itu sendiri.
Bagian Kurikulum Bagian k-urikulum bertugas untuk membuat m<:tode belajar atau tahaptahap belajar yang akan diterapkan sekolah kepada siswa dalam rangka peningkata11 kaalitas siswa sekolah tersebut.
Bagiau Sarana & Prasarana Bagian Sararra &
P~asarana
bertugas untuk mengurus clan merawat sarana
& prasarana yang dimiliki oleh sekolah.
Bagian Humas Bagi:n Humas tugasnya mengkomunikasikan kebijakan sekolah kepada masyarakat ataupun kepada siswa yang berkaitan dengan keberlangsungan proses belajar mengajar sekolah.
65
Bimbingan Konseling Bimbingan Konseling \'>iertugas untuk membina siswa dalam ha! psikologi bcrkaitan deugan masalah yang dimiliki siswa yang dapat mengakibatkan turunnya prestasi belajar dari siswa tersebut. Karena sekolah merupakan lingkungan yang paling berpengaruh terhadap perkembangan mental siswa setelah lingkungan keluarga.
Dewan Guru Dewan Guru bertugas untuk mengarahkan dan membimbing siswa dalam proses belajar mengajar.
Pustakawan Seorang pustakaw-an bertanggung jawab penuh terhadap kondisi µerpustakaan. Mulai dari buku sampai ke pelayanan yang diberikan oleh perpustakaan. Dalam membuat tugas akhir ini, penulis melakukan penelitian di bagian pustakawan.
Laboran Seorang laboran bertugas untuk mengarahkan dan membimbing siswa dalam melakukan praktiku.n yang diadakan di laboratorium sekolah.
66
4.1.4
Sejarah Perpustaka:m Sekolah
Perpustakaan sekolah menengah nertama negeri 1 pakuhaji
didirikan
bertepatan dengan berdirinya institusi pendidikan sekolah menengah pertama negeri 1 pakuhaji. Perpustakaan memiliki peranan yang sangat penting dalam membantu proses belajar mengajar di sekolah menengah pertama negeri l pakuhaji.
Perpustakaan
ini
mempunyai
arti
yang
sangat besar
untuk
menumbuhkembangkan minat baca para siswa, guru, karyawan., khususnya dalam mengembangkan wawasan terhadap ilmu pengetahuan dau tehnologi masa kini. Sumber pustaka diperoleh dari pengadaan yaitu dari membeli buku dan sumbangan dari DIKNAS, DEPAG, serta heberapa donatur. Dengan koleksi pustaka tersebut diharapkan cfapat menambah wawasan dan ilmu bagi para siswa , guru, Jan karya·.van. Jika dilihat dari sistem pemmJarnan buku yang diterapkan oleh perpustakaan sekolah, penulis dapat menyimpulkan bahwa sistem yang digunakan untuk pelayanan anggota adalah sistem terbuka. Sistern terbuka menerapkan pelayanan kepada setiap pengunjung bebas untuk
memilii~
I melihat-lihat setiap
buku yang ada di perpustakaan SMPN I Pakuhaji Tangerang Banten.
67
Peraturan dan tata tertib pcrpustakaan A Pengunjung
1. Dilarang mei·vkok, makan dan minum
B. PeminJaman l. Peminjam harus mempunyai kartu anggota 2. Mengisi buku pengunjung yang telah disediakan 3. Turut memelihara buku yang telah di pinjam 4. Tidak diperbolehkan menggunakan kartu anggota orang lain 5. Bagi siswa yang meminjam buk:u, diwajibkz:i 1mti.ik ;nemperlihatkan
kartu siswa guna pencocokan data yang tertera chi kartu anggota.
C. Sanksi
Apabila buku yang telah dipinjam rusak
a~:m
hilang maka peminjam wajib
mengganti buku tersebut atau dikenakan denda sesuai dengan harga buku yang berlaku pada saat ini.
68
Fungsi Perpustakaan Fungsi perpustakaan pada wnurnnya adalah: a) Surnber pendidikan yaitu perpustakaan sebagai bahan referensi untuk pendidikan maupun yang dididik. b) Surnber dokurnentasi yaitu dengan banyaknya lbuk.'U yang ada maka perpustakaan dapat menjadi dokurnentator segala kegiatan maupun ilmu kegiatan yang ada.
Peranan Perpustakaan Peran perpustakaan penting bagi siswa, guru, dan para petugas pendidikan lainnya. Perpustakaan
69
Struktur Orgauisasi Perpustakaau Kepala Madrasah ~
Koordinator Perpustakaan
Teknisi
L_a_y_an_~
,_____
Gambar 4.2 Orgauisasi Perpustakaan Berdasarkan struktur organisasi diatas, penulis dalam melakukan penelitian ini bekerja sama dengan koordinator perpustakaan dalam upaya peningkatan byanan perpustakaan sekolah.
70 Flowchart Sistem Yang Berjalan Flowchart Sistem Peminjaman Bulrn dan Prosedurnya
SISWA
Menulis Identitas dibuku pengunjung dan menyerahkan kartu peminjam
Proses pencatatan pinjam
7
J
Penyerahan buku
Proses pernbuatan laporan pemiajaman dan pendataan
J
~-.---
Laporan data peminjam
Gambar 4.3 Flowchart sistem peminjaman yang ada
71
Prosedur Peminjaman Buku :
a. Siswa datang memilih buku b. Ambil kartu buku yang ada didalam buku c. Menulis identitas di kartu buku (No.anggota, peminjam, kelas, tanggal kembali, parat). d. Kartu buku diserabkan ke loket (buku sudah dipinjam). e. Kartu buku ditulis dibuku peminjaman oleh petugas. f.
Kartu buku didata dibuku jurnal ( dibagi berdasarkan kelas dan klasifikasi buku).
72
Flowchart sistem pengembalian buku dan prosedurrrya
Peminjam
Menyerahkan buku yang di pinjam
Petugas perpustakaan
7
J
~~
Penyerahan kartu anggota ~ kepada peminjam _/
Pmses per.:buatan Japoran dar]· pend.:taan
L:::ta I ~ Gambar 4.4 Flowchart Pengembalian
73
Prosedure pengembalian buku :
a. Siswa datang dengan membawa buku dan kartu anggota, kartu anggota di paraf oleh petugas. b. Petugas mencocokan dan mencari nomor pada kartu buku dengan nomor padabuku. c. Petugas mencoret pada buku catatan peminjaman. d. Buku di klasifikasikan berdasrkan jenis, kemudian dimasukan kedalam rak.
74
4.2
Perencanaan Sistem 4.2.1
Analisis Masalah
Setelah penulis merumuskan masalah pada bab 1, kemudian penulis menganalisa masalah yang terdapat pada perpustakaan SMPN 1 Pakuhaji. Analisa masalah ini sangat diperlukan untuk dapat mencari solusi terbaik bagi masalah tersebut. Pada SMPN l Pakuhaji, terdapat beberapa masalah yang berkaitan dengan proses pengolahan data perpustakaan yang masih manual yang berakibat terjadinya kesalahan dalam mengolah data yang diperlukan. Dengan kata lain SMPN l Pakuhaji memerlukan sebuah sistem informasi perpustakaan yang mampu mengolah data-data perpustakaan., temtama yang berkaitan dengan data peminja!'1an dan pengembalian buku perpustakaan seko1ah. Salah satu akibat dari masalah tersebut adalah berkurangnya jumlah bttku yang dimiliki oleh perpustakaan. Ini dikarenakan oleh pencatatan data peminjaman clan pengembalian yang masih dilakukan sec:ara
man~!.
Jika data
dalam bentuk lembaran tersebut hilar,g maim piliak per]pustakaan tidak dapat mengetahui buku mana y!!Ilg sedang dipinjam atau buku mana yang telah dikembalikan oleh siswa. Berikut mempakan keperluan dari perpustakaan se:kolah terhadap sistem informasi yang akan dibangun oleh penulis: L Perpustakaan sekolah memerlukan sistem yang dapat mencatat dan menyimpan data siswa yang menjadi anggota perpustakaan sekolah. Agar
75
nantinya jika
diperlukan laporan mengena1 anggota perpustakaan dapat
dilakukan dengan cepat dan akurat. 2. Perpustakaan
membutuhkan
sistem
yang
mampu
mengelola
proses
pemmJaman dan pengembalian buku perpustakaan. Dan juga sistem yang dapat memberikan laporan secara periodik yang diinginkan.
4.2.2
Ruang Lingkup Pengembangan Sistem
Ruang lingkup pengembangan sistem infonnasi perpustakaan, yaitu: •
Penelitian terbadap prosedur-prosedur dan laporan-laporan yang berhubungan dengan kegiatan pada perpustakaan SMPN I Pakuhaji.
• Menganalisis operasi dan pengendalian
yang berhubungan proses
peminjaman dan pengembalian i.mku perpustakaan. •
Mendesain atau merancang sistem informasi yang dapat mendukung semua semua operasi dan pengendalian kegiatan perpustakaan.
•
Membuat dan menguji sistem yang dibangun kepada user untuk mengetahui apakah sistem sudah sesuai dengan kebutuhan.
4.2.3
Pendekatan Sistem
Analisis
dan
perancangan
Sistem
Informasi
Perpustakaan
tm
menggunakan pendekatan metodelogi analisis dan perancangan sistem terstruktur dengan waterfall.
76
4.2.4
Pengembang Sistem
Pengembang sistem informasi ini adalah penulis. Penulis bekerja sama dengan
user. User yaitu pengguna (user) yang nantinya akan menggunakan
sistem yang sedang dibangun oleh pe;mlis.
4.2.5
Metode Penerapan Sistem
Sistem informasi perpustakaan yang telah dikembangkan oleh penulis akan diterapkan secara paralel (Parallel Changeover lv.fethod), yaitu dengan mengoperasikan sistem manual yang lama dengan sistem komputerisasi yang barn secara bersama-sama, sampai pa& akhirnya sistem yang lama sudah dianggap dapat ditinggalkan. Hal ini dimaksudkan agar penerapan sistem yang baru tidak terlalu mengejutkan karena sistem barn meilggunakan tekno!:>gi yar.g ban•. Oisamping itu sistem yang lama dapat digunakan sebagai pembanding dan penilai sistem.
4.2.6
Kondisi Teknologi Informasi SMPN 1 Pakuhaji
Penulis melihat bahwa pada SMPN 1 Pak~ii telah mempunyai teknologi komputer yang memadai karena sekolah ini telah mendapatkan bantuan 23 unit komputer dari anggaran APBD kota Tangerang sekitar setahun yang lalu. Beriknt merupakan gambaran keadaan teknologi komputer yang dimiliki oleh sekolah: L Komputer untuk operasi kegiatan administrasi sekolah: l (satu) unit komputer untuk kepala sekolah dan 2 (dua) unit komputer untuk staff TU. Semua
77
komputer tersebut memiliki spesifikasi : Pentium IV 2,8 GHz, DDRAM 256 MHz, dan Harddisk 40 GB.
2. 20 unit komputer untuk kegiatan belajar siswa yang berada di laboratorium komputer dengan spesifikasi Pentium IV 2,8 GHz, DDRAM 256 MHz, dan Harddisk 40 GB.
4.3
Analisis Sistem (Systems Analysis) 4.3.1
Analisis Kebutuhan Informasi dan Data
Kebutuhan-kebutuhan informasi yang harus dihasilkan oleh sistem rrn 2.::lalah: •
Informasi yang berkaitan dengan kegiatan perpustakaan sekolah. I. Informasi data peminjaman buku perpustakaan pada suatu periode.
2. Informasi data pengembalian buku perpustakaan pada suatu periode. 3. Informasi mengenai ~tr.<us buku yang ada diperpustakaan. Apakah sedang
dipinjam siswa atau tidak. 4. Informasi mengenai siswa yang telah menjadi anggota perpustakrulll.
Data-data
yang
dibutuhkan
untuk
membangun
sistem
informasi
perpustakaan ini adalah: •
Data anggota, meliputi: Data pribadi anggota.
•
Data buku, meliputi: Data detail buku baik itu buku yang baru dimil iki oleh perpustakaan m~nnnn hnlru l<:1:m<::t
78
Data status buku yang terdapat diperpustakaan. •
Data Peminjaman, meliputi: Data buku yang dipinjam oleh anggota
•
Data pengembalian,meliputi: Data buku yang belum dikembalikan Data buku yang sudah dikembalikan siswa Batas waktu pengembalian
4.3.2
Sistem yang Diusulkan (Sistem Baru)
Menurut pihak rerpustakaan sekolah, mereka akan mengimplementasikan sistem informasi perpustakaan yang dibuat oleh penulis pada koordinator dan staff pengelola perpustakaan. Hal ini dimaksudkan untuk mecingkatkan efekfr.i.tas manajemen dalam upaya memberikan pelayanan yang lebih baik dari sebelumnya. f.d<.pun inti dari perubahan sistem lama ke sistem barn adalah: Pengolahan data menjadi terkomputerisasi, baik input, pmses dan output. Pengolahan data perpustakaan dipimpin oleh koordinator rerpustakaan yang dibantu oleh staff perpust.akaan.
79
4.3.2.1 Proses Bisnis dari Sistem yang Diusulkan
ja
mcndafiar
ditcrirna
J 1
0
Kartu An ..ota
menginput
Da"' Po.pu'1akaan
s..rr
Simo:m Infoon;.si
mempc-rlihatkan
.-! -·
rj
p~
Pcrpustakaan
Anggota
t
memberi
Diterima
Mcnc~ri
Buku
Infonnasi Buku
mclihat
• BuJ..'U
dipinjam
~
j_~.
Anggota
Anggota
Gambar 4.5 Proses Bisnis dari Sisttm yang Dliusulka;;
4.3.2.2 Physical Modd .iari Sistem yang Diusulkan
Physical Model (model fisik) dari sistem yang menunjnkan secara tepat arti fisik,
~it:tPm
80
Anggota
Staff
Peminjaman
L:J L:J Daftar Anggota
~
DataBuku
Data
'--
File Anggota
~
l
Data Pengembalian
•
"
"-
_/
File Peminjaman
File Buk
'--
t
,,.--·
~
~
'--
'--
I •
'
Data Pengembalian
Peminjamar~
... --._
----
J
Data Peminjaman
~
Data Anggota
'--
i
DaftarBuku
.
Pengembalian
Peminjamm]
i
i
Pengembalian
'
Pembuatan Laporan Da~a Anggota
~
Pemou~tar.
Laporan data Anggota
r
_/
'--
i
~ ~
File Pengembalian
--
'--
J
Laporan Data Buku
PemhM•m Laporan Data Peminjaman
Pembuatan Laporan Data Pengembalian
~
i
~
Laporan DataBuku ~
--.._
-
Laporan Data Peminjaman
1]
'
-
Laporan Data Pengembalia
Gambar 4.6 Bagan Alir Sistem yang Diusulkan (Sistem Barn)
~
81
4.3.2.3. Logical Model dari Sistem yang Diusulkan Logical model dari sistem informasi lebih menje:laskan kepada user
bagaimana nantinya fungsi-fungsi secara logika akan hekerja. Logical model dapat digambar dengan menggunakan Data Flow Diagram (DFD) I Diagram Arus Data (DAD). Data yang terdapat di DFD dapat dijelaskan dlengan menggunakan kamus data (Data Dictionary). DFD ini terdiri dari DFD Level 0 (Diagram Zero I Diagram Contex), DFI' Level 1 dan DFD Level 2.
•
DFD Level 0 Sistem Informasi Perpustakaan
Data Anggota Baro I Lama Data Buku
Barn
Staff Perpustakaan
Lap. Data Anggota
D'ta Peminjaman Dota Pengembalinn
Sistem
Infomuisi Perpustakaan
Reg.Data Anggota
t
lnformasi Status
Bulm Informasi Ketcrlambatan
Lap. Data Ruk'U Baro
I-
Lap. Data Peminjaman
-
Lap. Data Pengembalian
Koord. Perpust.:.;..nan
I
Garn bar 4. 7 DFD Level 0 Sistem Informasi Perpustakaan
82
•
DFD Level 1 Pada Sistem Informasi Perpustakaan Data Anggota Baru I Lan1a 1.0
!nfonnasi
Mengolah Reg. Data
data anggota
data anggota
Anggota Ambil Data DI
AmbilData
Lap. Data
Data Buku Baru
Anggota
2.0 Informasi 5.0*
dala buku S•ff
Membunt
Pcrpust.:ikaan
Lnpomn
Data buk-u yang dipinjam
Lap. Data Bula1 Ba;u Lap. Data
PemmJaman La . Data Pengen1baiian
D
AmbilData
3.0
Infom111si data perr';njaman
Mengolah data
peminjamun
!--~~~~~~~--'
bub>
Dala ?engembalian
4.0
Mengolah data IntOrmas:i Keterlambatan
Data bul-u yang dikemhalikan
.
h1fonnasi data pengembalian
pcngembalian buku SimpanData D4 Data Pcngembalian
Gambar 4.8 DFD Level 1 Sistem Informasi Peqmstakaan
Koordinator Pcrpustakann
•
DFD Level 2 Proses Mengolah Data Bulm
2.1
Informasi data buku
MengMinpuf
DataBuh<J
Data Buku
Io~
Data Peminjaman
Ambil Data Bul..ll
Data buku
vann: di in ·am
2.4
Mengccek Data buk'll yang
Status Buku
dikembalikan
04
Data Pengembalian
Infonnasi Status
!=--i
Informasi status buk-u
~---
+I
2.3
Menampilkan
Jnformasi Status Bul-u
Gambar 4.10 DFD Level 2 Sistem Informasi Pc~rpustakaan (Proses Mengolah Data Buku)
83
•
DFD Level 2 Proses Mi!ngo!ah Data Anggota
--,-""--I Perpusl.:lkaan.
Data Anggota Baro I Lama
Infonnasi
1.1
~
Meng-input
Data Anggota
data anggota Barul Lama
Si1npan Data
!.2 Memperbaharni
data
lnformasi data
anggota
....
Atnbil Data
~ii I
j ' 1.3
,_
'""
Pcrpugtakun
Registrasi
,, =ta anggota
Menampilkan Infonnasi data anggota
t-
Gambar 4.9 PFD Level 2 Sistem Informasi Perpustakaan (Proses Mengolah Data Anggota)1
Data Anggota
84
•
DFD Level 2 Proses Mengolah Do;ta Peminjaman Bnku
!I?.1
i
~---<02
Data Anggota AmbilDaL'l
Ambi1Data Bulm
Anggota
Data
~---~1 Peminjaman
Peq>USU!mn:
Infonmsi Data Peminianmn
''
.,
Meng.Minput Data
.
3.2~
Mengesahkan
Tidak vnlid
Item
Peminjaman ...--------~
Pcminjaman
valid
2
•
Data Bul'llY Dipinjam n
I
Simpan Data
1
A.mbil
"
~
5
)
Mcnyimpan Data PeminJaman
Data
3.4 Mcnampilkan
Infortnllsi Data Peminjaman
Infonnasi Data Pcminjaman
Gambar 4.11 DFD Leve! 2 Sistcm Info:-masi P•erpustakaan (Proses Mengolah Data Peminjaman Buku)
Data Bu1.-u
85
•
DFD Level 2 Proses Mengolah Data Pengembalia:n Buku
b3 IData Peminjaman Arnbil Data Peminjaman
Data P~-q;u.~tai'.aan r--w.;en;;;g;;;em="-•""an;--+ Staff
4.1 Mengecek
4.2
fnfonna:,, Data Pengembalian
--.-
Meng-input data peng:embalian
waktu Pcngembalian
Sim pan Data
lnforma:;i Keterlambatan
Data Buku Yang Dikembalikan
D4
Data Pengembalian
Ambil Data
4.3
Mer,...mpilkan
lnforrnasi Data Pcngembalian
Infonnasi Data Pengembalinn
Gambar 4.12 DFD Level 2 Sistem Informasi Perpustakaan (Proses Mengolah Data Pengembalian Buku)
~
0
86
4.3.2.4 Kamus Data Kamus data merupakan hasil referensi data mengenai data, suatu data yang disusun oleh penganalisis sistem untuk membimbing rnereka selama melakukan analisis dan desain sistem yang baru. Adapun kamus data dari sistem yang penulis bangun adalah: 1. Kd_Buku
* Singkatan dari kode buku yang dimiliki oleh perpustakaan*
=
* Judul dari buku yang ada di perpustakaan*
2. Judul_Buku =
3. Penerbit = * Nama penerbit dari buku yang dimiliki oleh perpustakaan* =
[GramediajTiga SerangkailGaneshat ... ]
*
4. Pengarang = 5. Jenis_Buku =
*
=
* Status dari buku yang ada di perpusta!'.:aan*
=
[adalbelum kembali]
7. No_Anggota =
9. Nama
* Narna Siswa yang telah menjadi anggota perpustakaan*
=
nama depan + nama tengah + nama belakang
10. Kelas =
* Nomor anggota pepustakaan*
* Nomor Induk Siswa yang telah menjadi anggota perpustak'lan*
8. NlS =
=
Jenis dari buk'U yang ada di perpustakaan*
[Karya UrnumlFilsafatlAgamalSosiall ... ]
Ii. Status =
Nama Pengarang buku yang dimiliki oleh perpustakaan*
* Tingkatan kelas siswa yang telah menjadi anggota perpustakaan*
=
[11213)
11. Alamat
=
12. No Trans
* Alamat siswa yang telah rnenjadi anggota perpustakaan* =
* Nomor transaksi peminjaman buku*
13. Tgl_Pinjam =
* Tanggal peminjaman yang berisi format dd/mm/vvvv*
87
* Tanggal pengembalian yang berisi format dd/mm/yyyy'·
14. Tgl_Kembaii
=
15. BatasAkhir
* Tanggal dari batas akhir waktu pengembalian buku yang
=
berisi format dd/mm/yyyy*
4.4
Perancangan Sistem (Systems Design).
4.4.1
Perancangan Basis Data Perancangan basis data merupakan salah satu tahapan yang paling penting
dalam melakukan perancangan tabel. Sebelum dilakukan perancangan basis data, terlebih dahulu melakukan normalisasi terhadap basis data itu sendiri.
4.4.1.l Normalisasi Normalisasi adalah merupakan proses pengelompokkan elemen iIJeajadi tabel-tabel yang menunjukkan entity atau relasinya. Pada proses Normalisasi selalu diuji pada beberapa kondisi. Apakah ada kesulitan pada saat menambah I insert, menghapus I delete, membaca I retrieve pada satu basis data. Bila ada kesulitan pada pengujian tersebPt, maka relasi tersebut dipecah menjadi beberapa tabel lagi atau dengan kata lain bahwa perancangan belum mendapatkan basis data yang optimal.
88
:;.. Normalisasi Bentuk Kesatu Nama Field
Keterangan
No_Anggota
Nomor Anggota
NIS
Nomor Induk Siswa
Nama
Nama
Kelas
Kelas
Alamat
Alamat
Kd Buku
KodeBuku
JuduI buku
Judul Buku
Penerbit
Penerbit
Pengarang
Pengarang
Jeui~_Buku
JenisBuku
NoTrans
Nomor Transaksi
Tgl_Pinjam
Tanggal Pinjam
Tgl K"mbali
Tgl_Kembali
BatasAkhir
Tgl Akhir pengembalian
Status
Status
89
P. Norm1tlisasi Bentuk kedua No_Anggota*
Kd_Buku*
NIS
Judul Buku
Nama
Penerbit
Alam at
Pengarang
Ke las
Jenis_Buku Tgl_Pinjam Tgl_Kembali Status BatasAkhir NoTrans
90
>-
Normalisasi Bentl!k Ketiga
Siswa.db
Buku.db
Kelas.db
No_Anggota*
Kd Bulm*
Kelas*
NIS
Judul Buku
Nama
Penerbit
Ke las
Pengarang
Alamat
Jenis Buku Status
Pengembalian.db
Peminjaman.db
No_Anggota**
NoTrans*
Kode Buku**
N0_ Anggota**
Tgl_Kembali
Kode Buku** Tgl_Pinjam 3atasAkhir
4.4.1.2 ERD
.
/'
\.. NoTrans _) i
;---
I
----
( Penerblt )-]--( Kd_Buku ) ·-----
(
NIS
)---
'~~----·
+·----'
I
·.
(~engaran~)-+-{i.11_dul_B~) (Jenis__Buk~)--+-(,~-Status .')
Nama
'·-----·'
'~,,
/
1
\..
Buku _, - - - - - - - - i._;
(Tgl_Kembali)
Mangernbalikan
Kelas
(
Kelas
/
-~:f-H~~-ata_sAk_~~)
(!_u_L_Pi_nia_· '•,_'.
Siswa
Punya
-•
92
Hasil Transformasi dari ERD ke
daiaba~e
relasional dapat dilihat pada
skema database berikut ini: Siswa ( No_Anggota , NIS, Nama, Kelas , Alamat) Kelas (Kelas) Buku ( Kd_Buku, Judul_Buku, Penerbit, Pengarang, Jenis_Buku, Status) Peminjaman (NoTrans, No=~g~~~_!<:d,,.Buku, Tgl_Pinjam, BatasAkhir) Pengembalian (N~~~~ Kd Bulnt, Tgl_Kembali)
Gambar 4.14 Relasi Antair Tabel
93
4.4.1.3 Stuktur Perancangan Data Base 1. Tabel Buku Tabel ini digunakan untuk menyimpan data buku yang ada diperpustakaan dan dibuat dengan menggunakan MS Access dengan nama tabel buku, adapun tabelnya adalah sebagai berikut: Field Kd buku ISBN Judul buku Penerbit Pengarang Jenis buku Status
Tvoedata Text Text Text Text Text Text Tell.i
Kev
Size
*
5 10 50 25 25 10 I
Keterangan Kodebuku Serial Number Buku Judul buku Penerbit buku Pemmrang Jenis buku Status buku
Tabel 4.1 Tabel Buku 2. Tabel Siswa Tabel ini digunakan untuk menyimpan data Anggota clan dibuat dengan MS Access dengan nama tabel adalah Anggota, adapun tabelnya adalah sebagai berikut: Field No anggota eNlS Nam a J Ke! Kelas Alamat
Type data Text Text Text Text Text Text
Key
*
Size 6 7 30 1
3 30
Tabel 4.2 Tabel Siswa
Keteran_gan No anmmta siswa Nomor induk siswa Nama lengkao siswa Jenis Kelamin ·Kelas siswa Alamat lengkaJ.:> siswa
94
3. Tabel Kelas Tabel kelas ini digunakan untuk lookup wizard input data anggota karena table ini hanya beri::.i kelas yang ada di SMPN 1 Pakuhaji. Field Ke las
Type data Text
key
*
Size 2
Keterangan Kelas siswa
Tabel 4.3 Tabel Peminjaman
4. Tabel Peminjaman Tabel peminjaman ini digunakan untuk menyimpan data detail transaksi peminjaman buku. Tabel ini dibuat dengan MS Access adapun tabelnya adalah sebagai berikut: Field NoTrans No anggota Kd_ouku
Type data Text Text Text
Tgl_pinjam
Date/time
8
BatasAk:hir
Date/Time
8
Kev
* ** **
Size 5 6 5
Tabel 4.4 Tabel Peminjaman
Keterangan Nomor Transl\;.;:si No anggota siswa Kode buk:u yang dipiniam Tanggal peminjaman buku Batas waktu pengembalian
I
95
5. Tabel Pengembalian Tabel pengembalian ini digunakan untuk meny1mpan data detail pengembalian buku. Tabel im dibuat dengan MS Access adapaun tabelnya adalah sebagai berikut: Field No anggota Kd buku
Tvoedata Text Text
Tgl_kembali
Date/time
kev
**
**
Size 6 5
8
Tabel 4.~ Tabel Pengembalian
Keterangan No anggota siswa Kode buku yang dioiniam Tanggal pengembalian Buku
~
4.4.2
User Interface Desain
Menu Utama
l
~;:~
-1 ~-'";
Cetak
Connect
Data Anggota
Data Anggota
ri;;~~~ect]
DataBuku
Data Buku
Peminjarnan
Peminjaman
Pengernbalian
Pengembalian
Pencarian Data
Buku yang Masih dipinjam
~~
Gambar 4.15 User Interface Desain
I
Keluar
I
I
Bantu
97
Menu Bar Tool Bar
Status Bar
Gambar 4.16 Desain Layout
Login Name Fassword
Gambar 4.17 Desain Input Password
98
4.4.3
Desain In put
l. Desain Input Data Anggota
Sistem Informasi Perpustakaan SMPN 1 Pakuhaji Alamat: Pakuhaji, Tangerang, Banten 15570
No Anggota
I
XXYXXX
NIS
XXYXXXX
I
Nama
I xxxxxxxxxxx_J
Ke las
I xx
Alamat
I Data Anggota
xxxxxx xxxxxx
Tambah Ubah
6Pl
Hapus
lj
Keluar
Pencarian Data Anggota Data .\nggQta Feroustakaan
Navio:asi Data Ammota
Gambar 4.18 Desain Input Data Anggota
99
2. Desain Input Data Buku
IX Daftar Pustaka Kode Buku
I xxxxx
Judul Buku
I xxxxxxxxxx
Penerbit
!
Pengarang
I I
Jenis Buku
I
Tambah
1.1 1.1 t.~
Ubah
II
Hapus
II
I Pencarian Data Rnlrn I I Cari Berdasarkan
[ Data R11k11
Isi Teks
II
I I
I
Keluar
/
I ~
Data Buku Perpustakaan 1
I
I 114~
I
I
·-·
Navi1rnsi Data Buku
Gambar 4.19 Desain Input Data Buku
I
I
1
.-.i1
100
3. Desain Input Data Peminjaman
Peminjan1an Buku No Transaksi No
Ang~ota
I
--------'fyj'-""-'
,__I
I
Nama Data
~'_xxx _____~I
Tgl Pinjam Batas Akhir
fY1
Data Peminjaman Detail
! Pencarian Data
I
1. . . .
[}'ambah
II
Simpan
[ i__::ta_l___.I I
Hapus
Navi1rnsi Data Pemin_iam_an _ _ _ _ _~~,~~;HJ'-'-'
Gambar 4.23 Desain Inpl!t Data Peminjaman Bnku
I
Kehrnr
iOJ
4. Desain Input Dat« Pengembalian
IX Pengembalian Buku No Transaksi LI_XXX _ _ ___,I
Batas Akhir
!Yi
Tgl Kembali
Nam a Tgl Pinjam
c__xxx _____,I Peminiaman
Pengembalian
Navi1rnsi Data Pen
Kosongkan Teks
Keluar
Gambar 4.21 Desain Input Data Pengembmlian Buku
102
5. Pencarian Data
IX Pencarian Data Nama Tabel
Cari Berdasarkan
Close
Gambar 4.22 Desain Inpnt Pencarian Data
103
4.4.4
Desain Output
I. Desain Output Data Anggota SISTEM INFORMASI PERPUST AKAAN SMPN I PAKUHAJI Pakuhaji, Tangerang, Banten 15570
N0An1u10ta
NIS
Nama
Kelas
Alamat
xxx xxx xxx xxx
xxx xxx xxx
xxx
xxx xxx xxx
xxx xxx xxx xxx
xxx xxx xxx
xxx
I
xxx
I
Jenis Buku
Tabel 4.6 Desain Output Data Angg;ota
2. Desain Output Data Buku SISTEM INFORMASI PERPUST AY.AAN SMPN 1 PAKUHAJI Pakuhaji, Tangerang, Banten 15570
KdBuku
xxx xxx xxx
xxx
JudulB'.!ku
xxx xxx xxx xxx
Penerbit
Pengarang
xxx xxx :xxx
xxx
xxx xxx xxx
-
xxx
Tabel 4. 7 Desain Output Data Buku
I
xxx xxx
xxx
xxx
-
104
3. Desain Output Data Peminjaman SISTEM INFORMASI PERPUSTAKAAN SMPN 1 PAK.UHAJI Pakuhaji, Tangerang, Banten 15570 Tgl Peminiaman
xxx xxx xxx xxx
Nam a An2°!!0ta
xxx xxx xxx xxx
No Anggota
KodeBuku
Judul
Status
xxx
xxx xxx xxx xxx
xxx
xxx
xxx
xxx xxx
xxx xxx
xxx
xxx xxx xxx
Tabel 4.8 Desain Output Data Peminjaman
4. Desaia Output Data Pengembalian SISTEM INFORMASI PERPUSTAKAAN SMPN 1 PAK.UHAJI Pakuhaji, Tangerang, Banten 15570 Tgl Pinjam
xxx xxx xxx xxx
Nama Amrn•ota
xxx xxx
xxx xxx
I NoAnggota xxx xxx xxx xx:x
KdBuku
Judu!Buku
xxx xxx
xxx xxx xxx xxx
xx:x
xxx
Tabel 4.9 Desain Output Data Pengembalian
Tgl Kembali
xxx xxx :x:xx :x:xx
105
5. Desain Output Data Buku yang Masih Dipinjam
SISTEM INFORM.A.SI PERPUSTAKAAN SMPN 1 PAK.tJHA.JI Pakuhaji, Tangern:ig, Banten 15 570 Tgl Pinjam
xxx xxx xxx xxx
Nama Antn.mta
xxx xxx xxx xxx
NoAnggota
KdBuku
Judul Buku
Status
xxx xxx xxx xxx
xxx xxx xxx xxx
xxx xxx xxx xxx
xxx xxx xxx xxx
Tabel 4.10 Desain Output Data Buku yang l\1asih Dipinjam
106
4.4.5
Desain Kontrol / Pengendaiian
Desain kontrol perlu dilakukan untuk melindungi c:stem dari berbagai macam ancamannya, diantaranya: Pengaksesan yang tidak sah. Penyadapan dan penangkapan output oleh orang-orang yang tidak berwenang. Perubahan dan kehilangan database. Perangkat lunak yang bersifat merusak I menipu. Kesalahan manusia akibat kelalaian serta kurangnya pelatihan dan disiplin soli..si; User id dan Password; Back up untuk menghirn.iari kerusakan data secara periodic; Anti virus; Untuk mengatasi kesalahan pemasukan, dilengkapi dengan sistem validasi. Misal: jika ada data yang sudah pasti nilai atau isinya dan berupa pilihan dapat menggunakan lookup wizard (combo box data), agar isinya seragam dan tidak ada kesalahan mengi~i No Anggota
22222 310002
... , •.. '"l
rmmc~ 310009 310012 310013 310015 310016
Garn bar 4.32 Contob Input menggunakan lookup wizard
107
4.5 Implementasi Sistem Pada tahap ini dilakukan pemindahan dari hasil perancangan ke koding bahasa pemrograman Visual Basic 6.0 dengan Ms. Acces sebagai pengolah database.
4.5.1
Testing Testing dari sistem aplikasi yang telah dibangun oleh penulis ini dilakukan
untuk dijadikan tolak ukur keberhasilan analisis dan perancangan sistem informasi perpustakaan yang penulis buat. Penulis telah memberikan system aplikasi ini kepada pihak sekolah untuk diuji apakah system aplikas1 ini cocok untuk menangani pengolahan data yang ada diperpustakaan sekolah. Pihak sekolah telah menyatakan bahwa aplikasi ini telah cocok dengan kebutuhan pengolahan data perpustakaan. Dan nantinya diharapkan dengan menerapkan sistem aplika
4.5.2
Instalasi Aplikasi Pada tahap ini penulis melakukan instalasi aplikasi pada komputer
perpustakaan SMPN 1 Pakuhaji. Proses ini dilakukan agar aplikasi dapat segera digunakan oleh pihak perpustakaan sekolah dalam melakukan tugasnya sebagai pustakawan.
BABV
PENUTUP 5.1
Kesimpulau Penulis telah melakukan analisis clan Perancangan Sistem Infonnasi
Perpustakaan_ Dengan adanya usulan sistem yang rnenggunakan teknologi komputer ini diharapkan mampu mengatasi permasalahan yang dihadapi oleh pihak perpustakaan pada Sekolah Menengah Pertama Negeri 1 Pakuhaji Tangerang Banten. Dan juga dengan aclanya system informasi perpustakaan ini diharapkan dapat meningkatkan efiensi clan efektifitas kerja, yaitu kecepatan, penghematan biaya dan tenaga dalam mengolah data pe1pustakaan, pengurangan kesalahan yang terjadi apabila proses pemgolahan data dilakukan secara manual, serta basil kerja yang tepat dan optimal. Kesemuanya ini secara umum akan mer,;ngkatkan kuaEtas keri" rlan pelayanan kepada anggota perpustakaan sek0lah tersebut
109
5.2
Saran
I. Pada Saat menerapkan sistem informasi perpustakaan ini penulis menyarankan kepada pihak sekolah agar sedapat mungkin menggunakan Operating System yang open source sehingga dapat meningkatkan tingkat efisiensi serta nilai ekonomis pada investasi, dan menghindari ketergantungan mutlak pada salah satu pihak. 2. Pada pengembangan sistem informasi perpustakaan selanjutnya penulis menyarankan kepada pengembang agar mengembangkan sistem informasi yang terhubung dengan internet. 3. Untuk teknis keamanan pemeliharaan buku yang ada pada perpustakaan, penulis menyarankan kepada piha!. sekolah untuk memasang alat detektor nada buku yang ada di !1lllng perpustaka'in. 4. Apabila aplika5; ini akan dikembangkan lebih lanjut, penulis
men~·arankan
kepada pengembang agar menggunakan Bar Cod.:. untuk menghindari kesalahan input kode yang ada di aplikasi.
DAFTAR PUSTAKA •
Cashman, Shelly, System Analysis and Desii!,n, Fourt Edition.Course Technology, Boston, 200 I.
•
Kendall, Kenneth E. & Julie E. Kendall, Anali3is dan Perancangan Sistem, Jilid 1, Jakarta: PT. Prenhallirdo, 2003.
•
McLeod, R., Jr. et al., Sistem Infonnasi Manajemen, Jilid I, Edisi ke 7, Jakarta: PT. Prenhallindo, 200 I.
•
Jogiyanto HM, MBA, Akt., Ph.D., Pengenalan Komputer, Yogyakarta: Andi Yogyakarta, 2000.
• Harpiandi, Pemrograman Database dengan ADO Afenggunakan Visual Basic 6.0, 2003.
Jakarta: PT Elex Media Komputindo Kelompok Gramedia,
•
Halvorson, Michael, Step by Step Microsoft Visual Basic 6.0 Profesional, Jakarta: PT. Elex Media Komputindo, 2000.
•
Hasanati, Nida'ul, Merancang dan Membuat Prototipe Sistem Informasi Mentoring Agama Islam pada Lembaga Non-Profit (Studi Kasus pada LSM IQRO Club), Tesis, Program Pasca Sarjana Universitas Gunadarma, Jakarta, 2005.
•
Madcoms, Microsoft .~ccess XP, Yogyakarta: ANDI, 2003.
•
Oetomo, Budi S. D., S.Kom., Terminologi Sistem Informasi, Edisi Pertama, Yogyakarta: Graha Ilmu, 2003.
•
Pamungkas, Ir., Tip & Trik Microsoft Visual Basic 6.0, Jakarta: Elex Media Komputindo, 2000.
• Simarmata, Janner
& Iman Prayudi, Basis Data, Edition I, Yogyakarta:
ANDI, 2006.
• Witarto, Memahami Sistem Informasi Pendekatan Praktis Rekayasa Sistem Jnformasi Melalui Kasus-Kasus Sistem Jriformasi di Sekitar Kita, Bandung : Informatika, 2004 •
Yuswanto, Panduan Be/ajar Microsoft Visual Basic 5.0 Untuk Program lvfulti-User, Jakarta: Prestasi Pustaka, 2001.
II/
Lampiran
T,ampilan Aplikasi
//le
113
81U>.1.,m,,1!!1!¢1!.!ih!\i!!il! £iioiZ§:!i!i!!iii l~
Tt~
~ PNH--~
'l!Uttl
~ . .•.·;,.;:. ......... ~ ~ ati!:l....,......,
· .\li@ll!!'.J..§l!"PMU!llM!llllilll!ll'IB!fPfiiliEil
No Transaksl No Anggota
Nam a
-·------·~-·---- ~-.0---.-•+.1
1,
•l
r---- ___. --·.... __,i
-~...._
1
~...._..,,.
___
,""'~--__.._..~
.....
~-·~---·~~--·~"'.7
~::!.J
lfJ-
l'l:>·Anooot> . Nam a
I!!}
SISTEM INF OR MASI PERPUST Al
SMPN 1
PA~UHAJI
Alan\at; Pakuhaji, Tanqerang, Banten 15570 lap-oi-an Penqemhalian Buku
T ang9.il : 07 .JaRi 2006
~"'""'"
,T~"'"'" Jfilm
I c:zm 11\Q,tal I
!""""" I I
I"""""' I I
I'""""" I
1A.1mon
I
I
J1lD16
I
c:mi 1tlfllllt:Jj3tl\l:U:I: AtllU jGlililltdb Jtrt:fa Ub<sla
I
"'""' I C3lli Min> IPe«Dii11Tl?tt1:Pe1yt~aggara
I
/'::t:m l!>e¥k~M~9!100i
"'"" I cam ·= 1
1
''"'
ll!J
""'''""'W-""'""'""""'~''"'°·"""~"'~'""""'"'"'-"'"-'""'·"'"""""'""..,,.~"'---x'="'•"'"'""-~""'"'._,.,..._.,...,,_,__,,_~,,,_,.,,~._.,,,,.,_""""'"'"""""'""'"'~';"o<"•'"'''"""'--~'"'""'-"''~'''"~j
l
SISTEM INFORMASI PERPUSTAKAAN SMPN l PAKUHAJI Alam.at; Pak1,1haji, Tan9erang, Banten 15570 lapor.ao Pe11g:ernlo
:~:T•k>•~.-•~r< ~
J11t1¥t~tgp:ar-tipuU::
l·•'.t'!'rm
I n.m:m; I I nm:ms I
l2eJ
SISTEM INFORMAST PERPUSTAKAl\N SMPN 1 PAKUHA.JI
Alamat: Pakuhafi, Tangerang, s.anten 15570 L.lf.)or,m Dolfl,-.r Buku He!um DiKemhalii:cm;OiPinj,1m
'
~
Tanoo31 : 07 Junl 2006
r~17.<JS.0006
I
/:1:::
I
II '""""' II
OCt'I kll lktt!Nh
I
I
I'""""" I I
IChofcxill
I
!
I! I
~
31002
1 J
I~
I C2005
1--~
oorot
61001 tnsutatrmu
I~~ l h)ejl.im~ I
1--1
/7 / '-·
Lan1piran 1 Listing Program " MDIForm Private Sub MDIForm Load() Me.mnuAbout.Enabled =False Me.mnuCetak.Enabled = False Me.mnuHelp.Enabled =True Me.mnuTransaksi.Enabled =False Me.mnuDisc.Er. bled =False Me. Toolbarl.Buttons.Item(l). Visible = False Me.Toolbarl.Buttons.Item(3).Visible =False Me.Toolbarl.Buttons.Item(5).Visible =False Me.Toolbarl.Buttons.Item(7).Visible =False Me. Toolbarl.Buttons.Item(2).Visible =False Me.Toolbar: .Buttons.Item(4 ). Visible = False Me.Toolbarl.Buttons.Item(6).Visible =False Me.Toolbarl.ButtonWidth = 1635.02 0
Me.mnuCon.Enabled = True End Sub Private Sub MDIForm_Unload( Cancel.~ Integer) End End Sub ?riva~e
Sub mnuAbcmt Click() frmAbout.Show End Sub Private Sub mnuBP_Click() Dim StrSql As String StrSql ="Where tgl_Kembali Is Null" IfDE.rscmdPeminjaman_Grouping.State = 1 Then DE. rscmdPeminjaman_Grouping. Close End If
DE.Commands("cmdPeminjaman_Grouping").CommandTei.1: ="SHAPE {SELECT* FROM 'Qstatus'" & StrSql & "} AS cmdPeminjaman COtv!PUTE cmdPeminjaman BY 'No_Anggota','NIS','Nama','Tgl_Pinjam','Kelas"' DE.cmdPeminjaman_Grouping If DE.rscmdPemmjaman_ Grouping.EOF Then MsgBox "Tidak ada Data.... ", vb Information Exit Sub End If WithDrP .Sections("PageHeader").Controls("Label 13").Caption = "Laporan Daftar Buku Belum DiKembalikan/DiPinjam" .Sections("PageHeader").Controls("LabellO").Caption = "Tanggal : " & Format(Date, "dd mmmm yyyy") .WindowState = 2 .Show End With End Sub Private Sub mnuCa_Click() IfDE.rscmdBuku.State = adStateOpen Then DE.rscmdBuku.Close End If DE.cmdBuku With DataReportbuku .WindowState = 2 .Show End With End Sub Private Sub mniiCun_Click() IfDE.rscmdSiswa.State = adStateOpen Then DE.rscmdSiswa.Close End If DE.cmdSiswa With DataReportSiswa .WindowState = 2 .Show E:id With End Sub
Private Sub mnuCari_Click() FormCari.Show End Sub Private Sub mnucdp_Click() Laporan = Me.mnucdp.Name FormPeriode.Labell.Caption = Me.mnucdp.Caption FormPeriode. Show End Sub Private Sub mnuCon_Click() FormAdmin.Show End Sub Private Sub mnuCP_Click() Laporan = Me.mnuCP.Name FormPeriode.Labell.Caption = Me.mnuCP.Caption FormPeriode.Show End Sub Private Sub mnuDisc_Click() MDIForm Load End Sub Pcivat.o Sub mnuHelp_Click() FrmHelp. Show End Sub Private Sub mnuK.eluar_Click() End End Sub Private Sub mnuK.embali Click() FrmPengembalian.Show End Sub Private Sub mnuPinjam_Click() FonnPeminj ru1ian. Show End Sub Private Sub mnuTA Click()
1
FormSiswa.Show End Sub. Private Sub mnuTB_Click() FrmPustaka.Show End Sub Private Sub Timerl_Timer() Me.StatusBarl.Panels(l ).Text= Format(Date, "dddd dd/mm/yyyy") StatusBarl.Panels(2).Text = Format(Time, "hh:mm:ss") End Sub Private Sub Toolbarl_ButtonClick(ByVal Button As Select Case Button.Key Case "Anggota": FormSiswa.Show Case "DaftarBuku": FrmPustaka.Show Case "Peminjaman": FormPeminjaman.Show Case "Pengembalian": FrmPengembalian.Show Case "keluar": End End Select End Sub
MSCorn~t!Lib.Button)
11
Form Admin
Sub akses_ad1nin() On Error Resume Next MDIForml.mnuAbout.Enabled =True MDIForml.mnuCe+~kEnabled =True MDIForml .mnuTransaksi.Enabled =True MDIForml.mnuCon.Enabled =False MDIForml .mnuDisc.Enabled =True MDIForml.mnuTA.Enabled =True MDIForml.mnuTB.Enabled =True MDIForml.Toolbarl.Buttons.Item(l).Visible =True MDIForml.Toolbarl.Buttons.Item(3).Visible =True MDIForml.Toolbarl.Buttons.Item(5).Visible =True MDIForml.Toolbarl.Bultons.Item(7). Visible= True MDIForm 1. Toolbarl.Buttons.Item(2).Visible =True MDIForml.Toolbarl.Buttons.Item(4).Visible =True MDIForml.Toolbarl.Buttons.Item(6).Visible =True MDIForml.Toolbarl.ButtonWidth = 1635.02 End Sub Sub akses_operator() On Error Resume Next · MDIForml.mnuAbout.Enabled =True MDIForml.mnuCetakEnabled =True MDIForml.mnuTransaksi.Enahlcd = frue MDIForm l.mnuCon.Enabled = False MDIForml.mnuDisc.Enabled =True MDIForml.mnuTA.Enabled =False MDIForml .mnuTB.Enabled =False MDIForm 1. Toolbar I.Buttons.Item(!). Visible = False MDIForml. Toolbarl.Buttons.Item(3). Visible= False MDIForml.Toolbarl.Buttons.Item(5).Visible =True MDIForml.Toolbarl.Buttons.Item(7).Visible =True MDIForml.Toolbarl.Buttons.Item(2).Visible =True MDIForml.Toolbarl.Buttons.Item(4).Visible =True MDIF orml. Toolbar I.Buttons.Item(6). Visible = True MDIForml.Toolbarl.ButtonWidth = 1635.02 End Sub Private Sub Command2_Click()
Unload Me End Sub
Private Sub Form_Load() On Error Resume Next uid.Text = "" pass.Text="" End Sub Private Sub login_Click() Call konek If (uid.Text ='"')Or (pass.Text="") Then MsgBox "MAAF, pengisian belum lengkap, silahkan dilengkapi ......... !!", vbExclam~tion + vbOKOnly, "informasi" Else StrSql ="select* from admin where use!_id="' & uid.Text & "' and password="' & pass.Text & ""' Set rs= Conn.Execute(StrSql) If Not rs.EOF Then If rs.Fields("akses") = "administrator" Then MDIForml.Show akses admin unload Me Else MDIForml.Show akses operator Unload Me End If Else MsgBox " MAAF, user dan password anda salah, silahkan perbaiki......... !! l ", vbCritical + vbOKOnly, "informasi" pass.SelStart = 0 pass.SelLength = Len(pass.Text) pass. SetFocus End If End If End Sub Private Sub pass_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) IfKeyAscii = 13 Then login.SetFocus
End If F11d Sub Private Sub uid_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Cbr(KeyAscii))) IfKeyAscii = 13 Then pass. SetF ocus End If EndS11b
n
Form Siswa
Dim rsanggota As ADODB.Recordset Dim mAdd AB Boolean Private Sub Check I_Click() IfMe.Checkl.Value = vbChecked Then Me.Check2.Value = 0 End If End Sub Private Sub Check2 Click() IfMt.Chtck2.Value = vbChecked Then Me.Checkl.Value = 0 End If End Sub Private Sub cmdAdd Click() Kosong Me.txtNo_ Anggota.Locked =False Me.txtNo_Anggota.SetFocus tombolTidakaktif Me.cmdAdd Visible= False Me.CmdCancel.Visible =True Me.cmdEdit.Visible =False Me. cmdSasve. Visible = True Me.lblStatus.Caption = "-:- Tambah data baru -:-" mAdd=True End Sub Private Sub CmdCancel_Click()
Kosong Tombolaktif Me.cmdAdd.Visible =True Me.cmdEdit. Visible= True If rsanggota.RecordCount > 0 Then TampilData End If End Sub Private Sub cmdDelete_Click() IfMe.txtNo Anggota.Text =""Then Exit Sub Dim tanya As Integer tanya = MsgBox("Anda Yakin Data ini akan Di Hapus .. ?", vbYesNo + vbQuestion) If tanya = vbNo Then Exit Sub Conn.Execute "delete* from Siswa Where no_anggota=" & Me.txtNo_Anggota.Text & "" rsanggota.Requery Ko song MsgBox " Data Sukses Di Hapus ... ", vbExclamation If rsanggota.RecordCount > 0 Then TarnpilData End If End Si.;b Private Sub cmdEdit_Click() IfMe.txtNo_Anggota.Text= ""Then MsgBox "Cari Data Anggota Terlebih Dahulu... " Exit Sub End If Me.lblStatus.Caption ="-:-Edit data-:-" tombolTidakaktif Me.txtNo Anggota.Locked =True Me.cmdAdd.Visible =False Me.cmdEdit.Visible =False rnAdd =False End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdFirst_Click()
On Error Resume Next rsanggota.MoveFirst Ko song TampilData End Sub Private Sub cmdLast Click() On Error Resume Next rsanggota.MoveLast Ko song Tampi!Data End Sub Private Sub cmdNext_Click() On Error Resume Next rsanggota.MoveNext If rsanggota.EOF Then rsanggota.MoveLast MsgBox "Anda Berada Di Akhir Record.. ", vbExclamation End If Kosong TampilData End Sub Private Sub cmdPrevious_Click() On Error Resume Next rsanggota.MovePrevious If rsanggota.BOF Then rsanggota.MoveFirst MsgBox "Anda Berada Di Awai Record.. ", vbExclamation End If Kosong TampilData End Sub Private Sub cmdSasve_Click() 'On Error Resume Next IfMe.txtNo_Anggota.Text =""Or Me.txtNIS.Text= ""Or Me.txtKelas.Te>..'t= "" Or Me.txtNama.Text =""Then MsgBox "Isi Data Anda Dengan Lengkap ... " Exit Sub End If If mAdd =True Then
//)
rsanggota.Requery rsanggota.Find "no_anggota=" & Me.txtNo_Anggota.T·ext & "" If Not rsanggota.EOF Then MsgBox "Data Siswa Sudah ada... ", vbExclamation Exit Sub Else rsanggota.AddNew rsanggota!NO_ ANGGOTA = Me.txtNo_ Anggota.Text rsanggota!nis = Me.txtNIS.Text rsanggota!NAMA = Me.txtNama.Text rsanggota!Kelas = Me.txtKelas.Text rsanggota!alamat = Me. txtAlamat. Text rsanggota. Update rsanggota.Requery rsanggota.Find "no_anggota=" & Me.txtNo_Anggota.Text & '"' End If Else rsanggota!NO_ ANGGOTA = Me.txtNo_ Anggota.Text rsanggota!nis = Me.txti'41S.Text rsanggota!NAMA = Me.txtNama.Text rsanggota!Kelas = Me.txtKelas.Text rsanggota!alamat = Me.Th.iAlamat.Text rsanggota.Update rsanggota.Rcquery rsanggota.Find "no_anggota=" & Me.txtNo_Anggota.Tcxt & "" End If TampilData 'Cek Data Anggoota Tombolaktif Me.cmdAdd.Visible =True Me.cmdEdit.Visible =True AturGrid End Sub Private Sub DataGrid2 DblClick() If Me.DataGrid2.Row > -1 Then On Error Resume Next rsanggota.Requery rsanggota.Find "no_anggota=" & Me.DataGrid2.Columns("no_aii.ggota") & "" Ko song TampilData End If End Sub
Private Sub Form_Activate{) Me.Move (MDIForml.Width- Width) I 2, ((MDIForml.Height - Height) I 2)1000 End Sub Private Sub Form_Load() On Error Resume Next konek Set rsanggota =New ADODB.Recordset rsanggota.CursorLocation = adUseClient rsanggota.Open "Select* from Siswa Order By No_Anggota", Conn, adOpenDynamic, adLockOptimisti<:: rsanggotaRequery Set Me.DataGridl.DataSource = rsanggota AturGrid If rsanggota.RecordCount > 0 Then TampilData End If Tombolaktif End Sub ~uo Tampi!Data() On Error Rc:;ume Next Me.lblStatus.Caption ="Record Ke : " & CStr(rsanggota.AbsolutePosition) & " I " & CStr(rsanggota.RecordCount) Me.txtNo_Anggota.Text = rsanggota!NO_ANGGOTA Me.txtNIS.Text = rsanggota!nis Me.txtNama.Text = rsanggota!NAMA Me. txtA!amat. Text= rsanggota!alamat Me.txtKelas.Text = rsanggota!Kelas End Sub Sub Kosong() On Error Resume Next Me.txtNo_Anggota.Text = "" Me.txtNIS.Text = "" Me.txtNama.Text = "" Me.txtAlamat. Text="" Me.txtKelas.Text = "" End Sub Sub Tombolaktif() Me.cmdNext.Visible =True
Me.cmdPrevious. Visible= True Me:cmdLast.Visible =True Me.cmdFirst.Visible =True Me.cmdExit. Visible= True Me.CmdCancel.Visible =False Me.cmdDelete. Visible = True Me.cmdSasve.Visible =False End Sub Sub tombolTidakaktif() Me.cmdNext.Visible =False Me.cmdPrevious. Visible= False Me.cmdLast. Visible= False Me.cmdFirst. Visible= False Me.cmdExit.Visible =False Me. CmdCancel. Visible = True Me.cmdDelete. Visible= False Me.cmdSasve. Visible= True End Sub Sub AturGrid() On Error Resume Next Me.DataGridl.Columns(O).Width = 1200.095 Me.DataGridl.Columns(l).Width = 1000.024 Me.D~taGridl.Columns(2).Width ~ '.1199.906 Me.DataGridl.Colllinns(3).Width = 615.1182 Me.DataGridl.Columns(4 ).V.7idfo = 1739.906 Me.DataGrid2.Columns(O).Width = Me.DataGrid2.Columns(l).Width = Me.DataGrid2.Columns(2).Width = Me.DataGrid2.Columns(3).Width = Me.DataGrid2.Columns(4).Width = End Sub
1200.095 1000.024 2199.906 615.1182 1739.906
Private Sub Textl_Change() Dim cari As ADODB.Recordset If Me.Check I.Value= vbChecked Then On Error Resume Next Set cari =New ADODB.Recordset cari.CursorLocation = adUseCiient cari.Open "select* from Siswa Where No_anggota like'" & Me.Textl.Text & "%' Order By no_anggota", Conn Set Me.DataGrid2.DataSource = cari
ElseifMe.Check2.Value = vbChecked Then On Error Resume Next Set cari =New ADODB.Recordset cari. CursorLocation = adUseC!ient cari.Open "select* from Siswa Where Nama like'" & Me.Tel\."tl.Text & "%' Order By Nama", Conn Set Me.DataGrid2.DataSource = cari End If End Sub Private Sub txtK.elas_ KeyPress(KeyAscii As Integer) IfKeyAscii = 13 Then Me. txtAlamat.SetFocus End If End Sub Private Sub txtNama_KeyPress(KeyAscii As Integer) IfKeyAscii = 13 Then Me. txtK.elas.SetFocus End If End Sub P1iv= Asc("O") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii=O End If End Sub Private Sub txtNo_Anggota_KeyDown(KeyCode As Integer, Shifr As If KeyCode = 13 Then Me.txtNIS.SetFocus End If
Inte&~r)
End Sub Plivate Sub txtNo_Anggota_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("O") And KeyAscii <= Asc("9"} Or KeyAscii = vbKeyBack) Then Beep KeyAscii =O End If If KeyAscii = 13 Then Me.txtNIS.SetF ocus End If End Sub
" Form Pustaka Dim rs As ADODB.Recordset Dim rsPg As ADODB.Recordset Dim rsPn As ADODB.Recordset Dim rsJb As ADODB.Recordset Dim mAdd As Boolean Plivate Sub c1ndAdd_Click() Kosong Me.txtKd Buku.Locked =False Me.txtKd Buku.SetFocus tombo!Tidakaktif Me.cmdAdd. Visible = False Me.CmdCancel.Visible =True Me.cmdEdit. Visible= False Me.c1ndSasve.Visible =True Me.lblStatus.Caption = "-:- Tambah data baru -:-" mAdd=True End Sub Plivate Sub CmdCancel_Click() Kosong Tombolaktif Me.cmdAdd.Visible =True Me.cmdEdit. Visible= True If rs.RecordCount > 0 Then
Tampi!Data End If End Sub Private Sub cmdDelete_Click() IfMe.txtKd_Buku.Text =""Then Exit Sub Dim tanya As Integer tanya = MsgBox("Anda Yakin Data ini akan Di Hapus .. ?'', vbYesNo + vbQuestion) Iftanya = vbNo Then Exit Sub Conn.Execute "delete* from Buku Where kd- bulll="' & Me.txtKd- Buku.Text & ""' rs.R;:!query Ko song MsgBox" Data Sukses Di Hapus ... ", vbExclamation If rs.RecordCount > 0 Then Tampi!Data End If End Sub Private Sub cmdEdit_Click() IfMe.txtKd Bul'U. Text='"' Then MsgBox "Cari Data Buku Terlebih DahulIL .. " Exit Sub End If Me.lb!Status.Cap
On Error Resume Next rs.MoveLast Kosong TampilData End Sub Private Sub cmdNext_Click() On Error Resume Next rs.MoveNext Ifrs.EOF Then rs.MoveLast MsgBox "Anda Berada Di Akhir Record .. ", vbExclamation End If Kosong TampilData End Sub Private Sub cmdPrevious_Click() On Error Resume Next rs.MovePrevious Ifrs.BOF Then rs.MoveFirst MsgBox "Anda Berada Di Awai Record.. ", vbExclamation End If Kosong Tampi!Data End Sub Private Sub cmdSasve_Click() 'On Error Resume Next IfMe.txtKd~Buku.Text =""Or Me.txtJudul_buku.Text =""Or Me.txtPenerbit.Text= "" Or Me.txtPengarang.Tell.1: = "" Then MsgBox "Isi Data Anda Dengan Lengkap... " Exit Sub End If rs.Requery rs.Find "kd- buku="' & Me.txtKd- Buku.Tell.1: & ""' If mAdd = True Then If Not rs.EOF Then MsgBox "Data Buku Sudah ada... '', vbExclamation Exit Sub Else rs.AddNew
If-
rs!KD- BUKU = Me.txtKd- Buh.'11.Text rs!judul_buku= Me.txtludul_buku.Text rs!pengarang = Me.txtPengarang.Text rs!penerbit = Me.txtPenerbit.Teh.'t rs!Jenis buku = Me.txtJenisBuku.Text rs!Status = Me.txtStatus.Teh.1: rs.Update rs.Requery rs.Find "kd- buku="' & Me.th.1:Kd- Buku.Text & ""' End If Else rs!KD- BUKU = Me.th.1:Kd- Buku.Text rs!judul_ buku = Me.txtJudul_buku.Text rs!penpllrang =Me. txtPengarang.Text rs!penerbit = Me.txtPenerbit.Text rs!Jenis_buku = Me.txtJenisBuku.Text rs! Status = Me.txtStatus. Text rs.Update rs.Requery rs.!'ind "kd_buku="' & Me.txtKd_Buku.Text & ""' End If Tampi!Data 'Cek Data Anggoota Tombolaktif Me.cmdAdd.Visible =True Me.cmdEdit.Visible =True AturGrid End Sub Private Sub DataGrid.2_Db!Click() If Me.DataGrid2.Row > -1 Tlien On Error Resume Next rs.Requery rs.Find "kd_buku="' & Me.DataGrid.2.Columns("kd_buh.'11") & ""' Ko song Tampi!Data End If End Sub
Private Sub Form Activate() Me.Move (MDIForml.Width - Width)\ 2, {(MDIForml.Height- Height) \2) - 1000
End Sub Private Sub Form__Load() On Error Resume Next konek Set rs =New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "Select* from Buk:u Order By kd_buku", Conn, adOpenDynamic, adLockOptimistic rs.Requery Set Me.DataGridl.DataSource =rs AturGrid
Set rsPg =New ADODB.Recordset rsPg.CursorLocation = adUseClient rsPg.Open "Select Pengarang from Buk-u Group By Pengarang", Conn, adOpenDynamic, adLockOptimistic rsPg.Requery Set Me.txtPengarang.RowSource = rsPg Me.txtPengarang.ListField = "Pengarang" Set rsPn =New ADODB.Recordset rsPn.CursorLocation = adUseClient rsPn.Open "Select Penerbit from Buk:u Group By Penerbit", Conn, adOpenDynamic, adLockOptimistic rsPn.Requery Set Me.txtPenerbit.RowSource = rsPn Me.txtPenerbit:ListField = "Penerbit" Set rsJb =New ADODB.Recordset rsJb.CursorLocation = adUseClient rs.Tb.Open "SelectJenis_buku from Buku Group By Jenis_buku", Conn, adOpenDynarnic, adLockOptimistic rsJb.Requery Set Me.txtJenisBuku.RowSource = rsJb Me.txtJenisBuku.ListField = "Jenis buk:u" If rs.RecordCount > 0 Then Tampi!Data
End If Tombolaktif Me.Combol.Addltem "Kd Buku" Me.Combol.Addltem "Judul_Buku" Me.Combo 1.Addltem "Penerbit" Me.Combo 1.Addltem "Pengarang" Me. Combo l .Addltem "J enis_buku" End Sub Sub TampilData() On Error Resume Next Me.lblStatus.Caption ="Record Ke : " & CStr(rs.AbsolutePo:;ition) & "I" & CStr(rs.RecordCount) Me.txtKd- Buh.-u.Text = rs!KD- BUKU Me.txtJudul_ buku.Texi: = rs!judul_buku Me.txtPengarang.Text = rs!pengarang Me.txi:JenisBuku.Text = rs!Jenis buku Me.txi:Penerbit.Texi: = rs!penerbit Me.txtStatus.Text = rs!Status End Sub Sub Kosong() On Error Resume Next Me.txtKd Buku.Text = "" Me.txtJudul_buku.Texi: = "" Me.txtPengarang.Text = "" Me.txtJenisBuku.Text = "" Me.txtPeneri.iit.Text = '"' Me.tJ
Me.cmdExit Visible= False Me.CmdCa:icel.Visible =True Me.cmdDelete. Visible= False Me.cmdSasve. Visible= True End Sub Sub AturGrid() On Error Resume Next Me.DataGridl.Columns(O).Width = 900.2835 Me.DataGridl.Columns(l).Width = 4169.764 Me.D"!taGridl.Columns(2).Width = 1904.882 Me.DataGridl.Columns(3).Width = 1904.882 Me.DataGridl.Columns(4).Width = 1904.882 Me.DataGrid2.Columns(O).Width = 900.2835 Me.DataGrid2.Columns(l).Width = 4169.764 Me.DataGrid2.Coh.:mns(2). Width= 1904.882 Me.DataGrid2.Columns(3).Width = 1904.882 Me.DataGrid2.Columns(4). Width= 1904 .882 End Sub Private Sub Textl_Change() Dim cari As ADODB.Recordset On Error Resume Next Set cari =New ADODB.Recordset cari.CursorLocation = adUseClient cari.Open "select* from Buku Where" & Tiim(Combol.Text) & "like"' & Me.Textl.Text& "%"',Conn Set Me.DataGrid2.DataSource = c"ri End Sub Pri"1ate Sub Textl_GotFocus() Me.Text! .Text= "" End Sub Private Sub txtPenerbit_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then Me.txtPengarang.SetFocus End If End Sub
Private Sub txtpengarang_KeyPress(KeyAscii As integer) IfKeyAscii = 13 Then Me.txtJenisBuku.SetFocus End If End Sub Private Sub txtjudul_buku_KeyDown(KeyCode As Integer, Shift As Integer) IfKeyCode = 13 Then Me.txtPenerbit.SetFocus End If End Sub Private Sub D..ikd_buku_KeyDown(KeyCode As Integer, Shifl: As Integer) If KeyCode = 13 Then Me.txtJudul buku.SetFocus End If End Sub
" Form Peminjaman Dim rsP As ADODB.Recordset Dim rsB As A.DODB.Recordset Dim rsA A~ ADODB.Recordset lJim 1sB As ADODB.Recordset Dim rsA_ As ADODB.Recordset Dim rsQ As ADODB.Recordset Dim Rsc As ADODB.Recordset Dim rsx As ADODB.Recordset Dim rsG As ADODB.Recordset SubKosong() Me.Text I. Text="" Me.txtjudul.Text = "" Me.D..1Kode.Text = "" Me.txtNama.Text= "" Me.txtN0Ang11;ota.Text = '"' Me.DTPicker 1. Value = Date End Sub
Private Sub cmdAdd_Click() Kosong Me. Textl.SetFocus rsP.Requery rsP.MoveLast Me.Textl.Texi = CDbl(rsP!noTrnns) + I Me.cmdAdd.Disabled =True End Sub Private Sub CmdCancel Click() IfMe.cmdAdd.Disabled =True Then Conn.Execute "delete* from Peminjaman Where noTrans="' & Me.Text!. Text Me.cmdAdd.Disabled =False End If Ko song
End Sub Private Sub cmdDelete_Click() IfMe.txtNoAnggota.Text =""Then Exit Sub Dim tanya A5 Integer tanya = MsgBox("Yakin Data ini akan Di Hapus '/", vb YesNo + vbQuestion) If tauya= vbNo Then Exit Sub Conn.Execute "Delete* from Peminjaman Where notrans=" & Me.Textl.Text rs? .Requery Kosong End Sub Private Sub cmdExit Click() Unload Me End Sub Private Sub cmdFirst_Click() On Error Resume Next rsG.MoveFirst Kosong Tampil Tampi!Data End Sub Private Sub cmdLast_Click() On Error Resume Next
rsG.MoveLast Kosong Tampil TampilData End Sub Private Sub cmdNext_Click() On Error Resume Next rsG.MoveNext IfrsG.EOF Then rsG.MoveLast MsgBox "Anda Berada Di Akhir Record.. ", vbExclamation End If Kosong Tampil Tampi!Data End Sub Private Sub cmdPrevious_Click() On Error Resume Next rsG.MovePrevious !f rsG.BOF Then rsG.MoveFirst MsgBox "Anaa Berada Di A wal Record.. ", vbExclamation End If Ko song Tampil T:!mpilData End Sub Private Sub cmdSasve Click() IfMe.Textl.Text ='"'Or Me.txtNoAnggota.Text =""Or Me.txtNama Text="" Or Me.txtKode. Text= '"' Or Me.txtjudul. Text="" Then MsgBox "Isi Data Dengan Lengkap ... " Exit Sub End If Set Rsc =New ADODB.Recordset Rsc.CursorLocation = adUseClient Rsc.Open "Select* from Dipinjam Where no_anggota=" & Me.txtNoAnggota.Text & "",Conn, adOpenDynamic, adLockOptimistic
Rsc.Requery IfRsc.RecordCount > 0 Then IfRsc!TGL_PINJAM <> Me.DTPickerl.Value Then MsgBox "Anggota: " & Rsc!NAMA & "Belum Mengembalikan Buku", vb Information Me.txtNoAnggota.Te>.i = '"' Me.txtNama.Te>.i = "" Exit Sub End If End If Set Rsc =New ADODB.Recordset Rsc.CursorLocation = adUseClient Rsc.Open "Select* from Dipinjam Where kd_Buku="' & Me ..txtKode.Text & ""', Conn, adOpenDynamic, adLockOptimistic Rsc.Requery IfRsc.RecordCount > 0 Then MsgBox "kode Buku: " & Me.txtKode.Text & "Sedang Di Pinjam Oleh: " & Rsc!NAMA, vblnformation Me.txtKode.Text = '"' Me.txtjudul.Text = '"' Exit Sub End If Set R3c =New ADODB.Recordset Rsc.CursorLocation = adUseClient Rsc.Open "Select* from Peminjaman Where notrans =" & Me.Textl.Text, Conn, adOpenDynamic, adLockOptimistic Rsc.Requery IfRsc.RecordCount = 3 Then MsgBox "Maximal Peminjaman 3 Buku", vbExclamation Me.txtKode.Text = "" Me.txtjudul.Text = '"' Me.cmdAdd.Disabled =False Exit Sub End If rsP.AddNew rsP!noTrans = CDbl(Me.Textl.Text) rsP!NO _ANGGOTA = Me.txtNoAnggota.Text rsP!KD BUKU = Me.txtKode.Text rsP!TGL PINJAM =Me.DTPick-erl.Value rsP.Update
Conn.Execute "update Peminjaman set no_anggota=" & Me.1xtNoAnggota.Text & " Where noTrans=" & Me.Textl.Text rsP.Requery
rsG.Requery rsx.Requery TampilData tanya = MsgBox("Tambah Data Buku Lagi? ",vb YesNo + vbQuestion) If tanya = vbNo Then Me.txtK.ode.Text= "" Me.txtjudul.Text = '"' Me.cmdAdd.Disabled =False Exit Sub Else Me.txtK.ode.Text = "" Me.txtjudul.Text = "" Me.txtKode.SetFocus Exit Sub End If
End Sub Private Sub Command2_Click() Ifivle.Cominand2.Caption = "Dat~ Peminjamaa Buku Detail>>" Then Set Rsc =New ADODB.Recordset Rsc.CursorLocation = adUseClient Rsc.Open "Select* from qpINJAM Order By TGL_PINJ.AM", Conn, adOpenDynamic, adLockOptimistic Rsc.Requery Set Me.DataGrid2.DataSourcc> = Rsc Me.Frame3.Visible =True Me.Command2.Caption = "Tutup" ElselfMe.Command2.Caption = "Tutup" Then Me.Frame3.Visible =False Me.Command2.Caption ="Data Peminjaman Buku DetaH >>" End If End Sub Private Sub DataGridl_KeyDown(KeyCode As Integer, Shift As Integer) IfKeyCode = vbKeyDelete Then IfMe.DataGridl.Row>-1 Then Dim tanya As Integer
tanya = MsgBox("Anda Yakin Akan Menghapus Buku" & Me.DataGrid 1.Columns("judul_buku"), vbYesNo + vbQuestion) Iftanya = vbNo Then Exit Sub Conn.Execute "delete * from Peminjaman Where Tgl_Pinjam =#" & Me.DTPickerl. Value & "# and no_anggota=" & Me.txtNoAnggota. Text & " and kd_buku="' & Me.DataGridl.Columns("kd_buku") & "'" Tampi!Data End If End If End Sub Private Sub Form_Activate() Me.Move (MDIForml.Width- Width)\ 2, ((MDIForml.Height - Height)\ 2) - 1000 'Me.Frame2.Visible =False 'Me.Frame3.Visible =False Me.DTPickerl.Value =Date End Sub Private Sub Fo11n_Load() konek Me.DataGridl.ColumnHeaders =False Set rsP =New ADODB.Recordset rsP.CursorLocation = adUseClient ;-sP.Open "Select* from Peminja111an Order By notrans", Conn, RdOpenDynamic, adLockOptimistic rsP.Requery Set rsG =New ADODB.Recordset rsG.CursorLocation = adUseClient rsG.Open "Select NoTrans,tgl_pinjam,No_anggota from Peminjaman Group By NoTrans,tgl_pinjam,No_ anggota", Conr., adOpenDynamic, adLockOptimistic rsG.Requery Set rsA =New ADODB.Recordset rsA.CursorLocation = adUseClient rsA.Open "Select* from Siswa Order By No_Anggota", Conn, adOpenDynamic, adLockOptimistic rsA.Requery Set Me.txtNoAnggota.RowSource = rsA Me. txtNoAnggota.ListField = "No_anggota" Me.txtNoAnggota.BoundColumn = "Nama"
Set rsA =New ADODB.Recordset rsA .CursorLocation = adUseClient rsA .Open "Select* from Siswa Order By Nama", Conn, adOpenDynamic, adLockOptimistic rsA_.Requery Set Me.txtNama.RowSource = rsA_ Me.LxtNama.ListField = "Nama" Me.txtNamaBoundColumn = "no_anggota" Set rsB =New ADODB.Recordset rsB.CursorLocation = adUseClient rsB.Open "Select* from Buku Order By kd_buku'', Conn, adOpenDynamic, adLockOptimistic rsB.Requery Set Me.txtKode.RowSource = rsB Me. txtKode.ListField = "kd bula1" Me. txtKode.BoundColurnn = "judul_buku" Set rsB_ = New ADODB.Recordset rsB .CursorLocation = adUseC!ient rsB _.Open "Select* from Buku Order By Judul_buku", Conn, adOpenDynamic, adLockOptimistic rsB_.Requery Set Me.txtjudul.Ro"1Source = rsB_ Me.txtjudul.ListField = "judul_buku" Me.txtjudul.BoundColurnn = "kd_ buku" Set rsx =New ADODB.Recordset rsx. CursorLocation= adUseClient rsx.Open "Select* from qpINJAM Order By NoTrans", Conn, adOpenDynamic, adLockOptimistic rsx.Requery Set Me.DataGrid2.DataSource = rsx End Sub Private Sub Textl_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("O") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep
KeyAscii = 0 End If End Sub Private Sub Text2_Change() Dim cari As ADODB.Recordset On Error Resume Next Set cari =New ADODB.Recordset cari.CursorLocation = adUseC!ient cari.Open "select* from Qpinjam Where" & Trim(Combol.Text) & "like"' & Me.Text2.Text & "%'",Conn Set Me.DataGrid3.DataSource = cari End Sub Private Sub txtjudul_Click(Area As Integer) Me.txt.K.ode.Tei-1: = Me.txtjudul.BoundText End Sub Private Sub txtK.ode_ Click(Area As Integer) Me.txtjudul.Text = Me.txtKode.BoundText End Sub Private Sub txtNama_ Click(Are!l As Integer) Me.txtNoAnggota.Text = Me.txtNama.BoundText End Sub Private Sub txtNoAnggota_Change() Tampi!Dai.a End Sub Private Sub txtNoAnggota_ Click(Area As Integer) Me.txtNama.Text = Me.txtNoAnggota.BoundText end Sub Sub Tampi!Data() On Error Resume Next Set rsQ = New ADODB.Recordset rsQ.CursorLocation = adUseClient rsQ.Open "Select Kd_ buku,Judul_buku from QPittjam Where notrans=" & Me.Textl.Tei-1:, Conn, adOpenDynamic, adLockOptimistic
'rsQ.Open "Select Kd_buku,Judul_buku from QPinjam Where Tgl_Pinjam =#" & Me.DTPickerl.Value & "#and no_anggota=" & Me.txtNoAnggota.Te"i & "and Tgl_kembali is null", Conn, adOpenDynamic, adLockOptimistic rsQ.Requery Me.DTPickerl. Value= rsQ!TGL_PlNJAM Set Me.DataGridl.DataSource = rsQ Me.DataGridl.Columns(O).Width = 1800 Me.DataGridl.Columns(l).Width = 5550.236 End Sub SubTampil() On Error Resume Next Me.Textl.Text = rsG!noTrans Me.txtNoAnggota. Text= rsG!NO_ANGGOT A Me.DTPickerl.Value = rsG!TGL PINJAM Me. txtNama. Text= Me. txtNoAnggota.BoundText Me.lblStatus.Caption ="Record Ke : " & CStr(rsG.AbsolutePosition) & " I " & CStr(rsG.RecordCount) End Sub
m
Form PengembaHan
Dim rsQp As ADODB.Recordset Dim rsQk As ADODB.Recordset Dim rsCl As ADODB.Recordset Dim rsC2 As ADODB.Recordset Private Sub cmdFirst_Click() On Error Resume Next If rsQp.RecordCount <= 0 Then Exit Sub rsQp.MoveFirst TampilData Tampi!D End Sub Private Sub cmdLast_Click() On Error Resume Next IfrsQp.RecordCount <= 0 Then Exit Sub rsQp.MoveLast
Tampi!Data TampilD End Sub Private Sub cmdNext_Click() On Error Resume Next If rsQp.RecordCount <= 0 Then Exit Sub rsQp.MoveNext IfrsQp.EOF Then rsQp.MoveLast MsgBox "Anda Berada Di Akhir Record .. ", vbExclamation End If Tampi!Data TampilD End Sub Private Sub cmdPrevious_Click() On Error Resume Next If rsQp.RecordCount <= 0 Then Exit Sub rsQp.MovePrevious If rsQp.BOF Then rsQp.MoveFirst MsgBox "Anda Berada Di Awai Record .. ", vbExclamation End If Tampi!Data TampilD End Sub Private Sub Command l _Click() If Me.DataGrid2.Row > -1 Then Conn.Execute "Update PEminjaman Set Tgl~kembali=null Where tgl__pinjam =#" & Me.DTPicker2.Vabe & "# anJ no_anggota=" & Me.txtNoAnggota Text & " and kd_buku="' & Me.DataGrid2.Columns("kd_Buku") & ""' rsQp.Requery rsQk.Requery Tampi!D End If End Sub Private Sub Dtgl_KeyDown(KeyCode As Integer, Shift As Integer) IfKeyCode = vbKeyDelete Then Me.Dtgl.Text = ""
End If End Sub
Private Sub DTPickerl __CloseUp() On E!TOr Resume Next Me.Dtgl.Text ~ Format(Me.DTPickerl.Value, "dd/MM/yyyy") End Sub Private Sub Form_Activate() Me.Move (MDIForml.Width - Width)\ 2, ((MDIForml.Height - Height)\ 2) - 1000 End Sub Private Sub Fonn_Load() konek Set rsQp =Ne'-'·' ADODB.Recordset rsQp. CursorL;ication = adUseC!ient rsQp.Open "Select NoTrans,no_anggota,Nama from Qpinjan:1 Group By NoTrans,No_Anggota,Nama", Conn, adOpenDynamic, adLockOptimistic rsQp.Requery Set rsQk =New ADODB.Recordset rsQk.CursorLocation = adUseC!ient rsQk.Open "Select no_angg0ta,Nama,N0Trans from DiPinjam Group By ~..ro_ Anggota,Nama,NoTrans'', Conn, adOpenDynamic, adLockOptimistic rsQk.Requery Set Me.txtNoAnggota.RowSource = rsQk Me.txtNoAnggota.ListField = "No_anggnta" Me.txtNoAnggota.BoundColumn ="NoTrans" Set Me.txtNamaRowSource = rsQk Me.txtNama.ListField = "Nama" Me.txtNama.BoundColumn ="no_anggota" AturGrid End Sub Sub AturGrid() Me.DataGridLColumns(O).Width = 1080 Me.DataGridl.Colunms(l).Width = 3360.189
Me.DataGrid2.Colwnns{O).Width = 1080 Me.DataGrid2.Columns(l).Width = 3360.189 End Sub Private Sub simpankembali_Click() IfMe.DataGridl.Row > -1 Ther; IfMe.Dtgl.Text= ""Then Me.Dtgl.Text = Format(Date, "dd/mm/yyyy") Me.DTPickerl.Value =Date End If IfCDate(Me.DTPicker2.Value) > CDate(Me.Dtgl.TeA-t) Then MsgBox "Tanggal Pengemhalian Harns Lebih Besar Dari Tanggal Peminjaman... ", vbCritical Exit Sub End If Conn.Execute "Update PEminjaman Set T gl_ kembali="' & Me.DTPickerl. Value & "'Where tgl_pinjam =#" & M~.DTPicker2.Value & "Ii- and no_anggota=" & Me.txtNoAnggota.Text & "ar:d kd_buku="' & Me.DataGridl.Columns("kd_Buku") &
11111
rsQp.Requery rsQk.Requery TampilD End!f End Sub Private Sub txtN<:una_ Click(Area As Integer) Me.txtNoAnggota.Text = Me.txtNama.BoundText TampilD End Sub · Private Sub txtNoAnggota_Click( Area As Integer) Me.txtNama.Text = Me.txtNoAnggota.BoundText TampilD End Sub Sub Tampi!D() On Error Resume Next Me.Dtgl. Text="" Set rsCl =New ADODB.Recordset rsCl.CursorLocation = adUseClient
rsCl.Open "select* from Qpinjam Where notrans=" & Me.txtNoA.1ggotaBoundTei.i & "and tgl_kembali is null", Conn, adOpenDynamic, adLockOptimistic rsCl.Requery IfrsCl.RecordCount > 0 Then Me.DTPicker2.Value = rsCl !TGL PINJAM End If Set Me.DataGridl.DataSource = rsCl Set rsC2 =New ADODB.Recordset rsC2.CursorLocation = adUseClient rsC2.0pen "select* from Qpinjam Where notrans=" & Me.txtNoAnggota.BoundText & " and tgl_kembali is not null", Conn, adOpenDynamic, adLockOptimistic rsC2.P c:query Set Me.DataGrid2.DataSource = rsC2 If rsC2.RecordCount > 0 Then Me.Dtgi.Text = Format(rsC2!TGL_KEMBALI, "dd/mm/yyyy") End If End Sub Sub Tampi!Data() Me.txtNoAnggota Text= rsQp!NO_ ANGGOTA Me.txtNama.Text = rsQp!NAMA Me.Dtgl.Text = "" Me.lb!Status.Caption ="Record Ke:" & CStr(rsQp.AbsoluteFosition) & "I" & CStr(rsQp.RecordCoi::it) End Sub Sub Kosong\) Me.txtNoAnggota Text= "" Me.txtNama.Text= "" · Me.Dtgl.Text = "" End Sub Private Sub XPButton 1_Click() Ko song Dim xkos As Double xkos=O Set rsCl =New ADODB.Recordset rsCl.CursorLocation = adUseC!ient rsCI.Open "select* from Qpinjam Where notrans=" & xkos, Conn, adOpenDynamic, adLockOptimistic rsC 1.Requery
Set Me.DataGridl.DataSource = rsC 1 Set rsC2 =New ADODB.Recordset rsC2.CursorLocation = adUseClient rsC2.0pen "select* from Qpinjam Where notrans=" & xkos, Conn, adOpenDynamic, adLockOptimistic rsC2.Requery Set Me.DataGrid2.DataSource = rsC2 End Sub Private Sub XPButton2_Click() TJnloadMe End Sub
11
Form Cari
Dim rsCari As ADODB.Recordset Pri'.'ate Sub Combo! Change() Me.Label3.Caption = "Pencarian" & RTrim(Me.Combol.Text) Combo2.Clear If Me.Combo I.Text="" Then f:ombo2. Text="" ElseifUCase(Me.Combol.Text) = UCa~~("Anggota") Then Combo2.Addltem "No_Anggota" Combo2.Addltem "NIS" Combo2.Addltem "Nama" ElseifUCase(Me.Combol.Text) = UCase("Daftar Buku") Then Combo2.Addltem "kd_ Buku" Combo2.Additem "Judul buku" Comb02.Addltem "Pengarang" Combo2.Addltem "Penerbit" Combo2.Addltem "Jenis_Buku" End If End Sub Private Sub Combo I_Click() Combo I_Change End Sub Private Sub Form_Activate() Me.Move (MDIForml.Width - Width)/ 2, ((MDIForml.Height- Height)/ 2) -1000
End Sub Private Sub Fom1_Load() konek Me.Combcfi.Additem "Anggota" Me.Combol.Additem "Daftar Buku" End Sub Private Sub PBXPButton l _Click() Unload Me End Sub Private Sub Textl_Change() On Error Resume Next Set rsCari =New ADODB.Recordset !'sCari.CursorLocation = adUseClient rsCari.Open "select* from[" & (Combo I.Text) & "]Where" & Trim(Combo2.Text) & "like'" & Me.Text I.Text & "%"',Conn Set Me.DataGrid 1.DataSource = rsC~ri AturGrid End Sub Private Sub Timerl_Timer() On Error Resume Next 'FormCar;.Caption = Right(FormCari.Caption, Len(FormCari.Caption)- 1) + Left(F c.=Cari.Caption, 1) End Sub Sub AturGrid() IfUCase(Me.Combol.Text) = UCase("Anggota") Then Me.DataGridLColumns(O).Width = 1000 Me.DataGridl.Calumr.s(l).Wi
• Form Periode Dim Wa, Wb
Pnvate Sub Checkl Click() If Check 1. Value = vbChecked Then Check2.Enabled =False DTPickerl .Enabled= False Else Check2.Enabled = True DTPickerl.Enabled =True End If End Sub Private Sub Check2 Click() If Check2. Value = vbChecked Then Check I.Enabled= False Else Check I.Enabled= True End If End Sub Private Sub CmdCancel_Click() Laporan= "" Unload Me End Sub Private Sub CmdCancel_MouseMove(Button As Integer, Shift As Integer, X A~ Single, Y As Single) CmdCancel.BackColor = Wb CmdOk.BackColor = Wa End Sub
Private Sub CmdOk Click() Dim StrSql As String Select Case UCase(Laporan) Case UCase("mnucp")
StrSql ="Where month(Tgl_pinjam)="' & Me.DTPickerl.Month & '"and Year(tgl_pinjam)='" & Me.DTPickerl.Year & "'" If DE.rscmdPeminjaman_Grouping.State = I Then DE. rscmdPeminjaman_Grouping. Close End If IfMe.Checkl.Value = vbChecked Then DE.Commands("cmdPeminjaman_Grouping").CommandText ="SHAPE (SELECT* FROM 'Qstatus'} AS cmdPeminjaman COMPUTE cmdPeminjaman BY 'No_Anggota','NIS','Nama','Tgl_Pinjam','Kelas"' DE.cmdPeminjaman_Grouping If DE.rscmdPeminjaman_ Grouping.EOF Then MsgBox "Tidak ada Data.... ", vblnformation Exit Sub End If With DrP .Sections("PageHeader").Controls("LabellO").Caption = "Tanggal: " & Format(Date, "dd mmmm yyyy") .WindowState = 2 .Show End With ElselfMe.Check2.Value = vbChecked Then DE.Commands("cmdPeminjaman_Grouping").CommandTe:>..'t = "SHAPE {SELECT* FROM 'Qstatus"' & StrSql & "} AS cmdPeminjaman COMPUTE cmdPeminja;nan BY ~No_Anggota','NIS','Nama','Tgl_Pinjam','Kelas"' DE.cmdPeminjaman_Grouping If DE.rscmdPeminjaman_ Groupiug.EOF Then MsgBox "Tidak ada Datot.... ", vblnformation Exit S:ib End If WithDrP .Sections("PageHeader").Controls("LabellO").Caption = "Periode: " & Format(Me.DTPickerl.Value, "MMMM yyyy") .WindowState = 2 .Show End With End If Case UCase("mnucdp") If DE.rscmdPeminjaman_Grouping.State = 1 Then DE.rscmdPeminjaman_Grouping.Close End If IfMe.Checkl.Value = vbChecked Then StrSql = " T gl Kembali is Not null"
DE.Commands("cmdPeminjaman_ Grouping").CommandText ="SHAPE {SELECT* FROM 'Qstatus'} AS cmdPeminjaman COMPUTE cmdPeminjaman BY 'No_Anggota','NIS';Nama','Tgl_Pi11jam','Kelas"' DE.cmdPeminjaman_Grouping If DE.rscmdPeminjaman_ Grouping.EOF Then MsgBox "Tidak ada Data.... ", vbinformation Exit Sub End If WithDrK .Sections("PageHeader").Controls("LabellO").Caption = "Tanggal: " & Format(Date, "dd mmmm yyyy") .WindowState = 2 .Show End With ElselfMe.Check2.Value = vbChecked Then StrSql ="Where month(Tgl_Kembali)="' & Me.DTPickerl.Month & '" <:nd Year(tgl_Kembali)='" & Me.DTPickerl. Year & '"" DE.Commands("cmdPeminjaman_ Grouping").CommandText ="SHAPE {SELECT* FROM 'Qstatus'" & StrSql & "} AS cmdPeminjaman COMPUTE cmdP~minjaman BY 'No_Anggota','NIS','Nama','Tgl_Pinjam','Kelas'" DE.cmdPeminjaman_Grouping If DE.rscmdPeminjaman_ Grouping.EOF Then MsgBox "Tidak ada Data.... ", vblnformation Exit Sub End If WithDrK .Sections("PageHeader").Controis("LabellO").Caption = "Periode: " & Format(Me.DTPickerl.Value, "MMMM yyyy") .WindowState = 2 .Show End With Enc!If End Select End Sub Private Sub CmdOk_ MouseMove(Button As Integer, Shift: As Integer, X As Single, Y As Single) · CmdOk.BackColor = Wb CmdCancel.BackColor = Wa End Sub
Private Sub Fom1_Load() Me.Move (MDIForml.\1!idth - Width)\ 2, ((lADIForml.Height- Height)\ 2) - IQOO Wa = &H8000000F Wb=&HFFFF& Me.Checkl.Value = vbChecked End Sub
" Form About Option Explicit ' Reg Key Security Options ... Const READ CONTROL= &H20000 Const KEY_QUERY_VALUE= &Hl Const KEY- SET- VALUE= &H2 Const KEY_CREATE_SUB_KEY = &H4 ConstKEY- ENUMERATE- SUB- KEYS=&H8 Const KEY NOTIFY= &HlO Const KEY_CREATE_LINK= &H20 Const KEY_AI.L_ACCESS = KEY_QUERY_VALUE-r KEY_SET_VALUE+ KEY_CREATE_SUB_KEY + KEY_ENUMERATE SUB_KEYS + KEY- NOTIFY+ KEY- CREATE- LINK -t READ- CONTROL ' Reg Key ROOT Types ... Const HKEY- LOCAL- MACHINE= &H80000002 Const ERROR_SUCCESS = 0 Const REG SZ = 1 ' Unicode nul terminated string Const REG DWORD = 4 ' 32-bit number Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTW ARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal
u!Options As Long, ByVal samDesired As Long, ByRefphkResu!t As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByReflpType As Long, By Val lpData As String, ByReflpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (by Val hKey As Long) As Long
Private Sub cmdSysinfo_Click() Call StartSyslnfo End Sub Private Sub CmdOk_Click() Unload Me End Sub Private Sub Fom1 Load() ' Me.Caption= "About" & App.Title ' lb!Version.Caption ="Version" & App.Major & "." & App.Minor&"." & App.Revision ' lb!Title.Caption =App.Title End Sub Public Sub StartSysinfo() On Error GoTo SysinfoErr Dim re As Long Dim SysinfoPath As String ' Try To Get System Info Program Path\Name From Registry ... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysinfoPath) Then 'Try To Get System Info Program Path Only From Registry ... Elseif GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SyslnfoPath) Then 'Validate Existance Of Known 32 Bit File Version If(Dir(SysinfoPath & "\MSINF032.EXE") <>"")Then SysinfoPath = SysinfoPath & "\MSINF032.EXE" 'Error - File Can Not Be Found... Else
GoTo SysinfoErr End If 'Error - Registry Entry Can Not Be Found... Else GoTo SysinfoErr End If Call Shell(SyslnfoPath, vbNorrnalFocus) Exit Sub SysinfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRefKeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim re As Long ' Return Code uim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String 'Tempory Storage For A Registry Key Value Dim KeyValSize A;; Long 'Size Of Registry Key Variable
'------------~-------------------------------~----------'Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE ... }
'---------------------------------------------~------~-re= RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey)' Open Registry Key If (re <> ERROR_SUCCESS) Then GoTo GetKeyError
tmpVal = String$(1024, 0) KeyValSize = 1024
' Handle Error...
' Allocate Variable Space 'Mark Variable Size
'---------------------------------------------~------------'Retrieve Registry Key Value ...
'-------------~-----------~------------------~---~~-re= RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize)
'Get!Create Key Value
If(rc <> ERROR_SUCCESS) Then GoTo GetKeyError
' Handle Errors
If(Asc(Mid{trr.pVal, KeyValSize, 1)) = 0) Then 'Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - I) 'NuU Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal =Left(tmpVal, KeyValSize) 'Null Not Found, Extract String Only End If '--------------~-------------------------------------------'Determine Key Value Type For Conversion... ·--------------~-------------------------------------------' Search Data Types... Select Case KeyValType ' String Registry Key Data Type CaseREG_SZ KeyVal =tmpVal 'Copy String Value 'Double \Vord Registry Key Case REG_DWORD Data Type Fori=Len(tmvVal)To 1 Step-1 'ConvertEachBit KeyVal = KeyVal + Hex(Asc(Mid(trnpVal, i, 1))) 'Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) 'Convert Double Word To String End Select GetKevValue =True re= RegCloseKey(hKey) Exit Function
' Return Success ' Close Registry Key 'Exit
GetKeyError: ' Cleanup After An Error H«S Occurecl... 'Set Return Val To Empty String KeyVal= "" GetKeyValue =False 'Return Failure re = RegCloseKey(h..T(ey) ' Close Registry Key bnd Function Private Sub Timerl_Timer() On Error Resume Next 'lblDescription.Caption = Right(Me.lblDescription.Caption, Len(Me.lblDescription.Caption) - 1) + Left(Me.lblDescription.Caption, 1) End Sub
• Form Help Private Sub cmdExit_Click() Unload Me End Sub Private Sub Form_Activate() Me.rt.FileNam" = App.Path & "\Gambar I .Rtf'' Me.rt;Rdresh End Sub
,-)
~~'\
-~ f---, ~~ -~~·-<;·;, , ---~ .,__ \/t;, I , -~,~,~·~\ -~. /--T~·-·'lff"~ ~'""'"°'I}:~
I'F\, , ~~ .
~--~ i
I
.
"
'1
' \ii
;.'
"
, .
1 ' ''i'.• ...
,•
I
/
_
·
"''\•
- .-- '-i•·o
'
,
'>. •
'"''""'"'" ' "
, . . ,,
~ ~ ,,__,.,I - ,~ -~-·· ~:.J"~''"""'• ,~---,, r , . , ~ µ : , x~. L _ ---~' \"~' ~~ 1 ~ ~ ' J . t i f t , . ~ ~ 1 3 1 ' F f . e r "~i l 1 '!1· ~i l jjj_/~ "'I.~~-: '-~•It;',~ 'li.~'1i i " '"', ~~~ TEWH"-~Aif$~ -.,;~"" ' ~ ' ; : ; . t ~ · ' . " ~ · . , _ , ~ ~A~\·(; ._:;-~--:.L~~'~ ·-., r~.,nmang a !,·~K_U{HJ'"''(./,-~~:·1::l- ·-)"·-"'1'-''IL·-.~-:;7':--~ ; -0 lf,."'"'j;~a11;-\<;#" 0--'"'-~..~. --~J;~,~,,;~t,-,d~.;it,•l~;-.-"~. j;.-i"~"""-~.,-.~~_,.,~~;.~-,"'-;>'"'·' ·~'"~;"~·<--'.~;7"wi-.':-~., ~,:~ '~~/ - ·loc'~1,J," -'·'~.-'"' :Y "' " 'ij~ -~ ;: ' !-1~.:,~, .,;.,_.,~ -~~~~,A· /' CJIL. ) - . ~""'~- .1-.
, :""'./Tue1'"'"'m
'
"
i( .... !
..11
I
I
•
I
1,
'
·
"""I
\---·-----1 .
'
! ,..
I
""
I
s
,(\
'
;\ I
n
,
I
(
Suiyabahari
\ ' .. ,
:1 •I ,I . .01·' ·-- '..I h "'"' ,.,.-- ,.,' . ii' . I,
),
,
, 1i '"'"'" '
,, . .
,
I
:
'
'
.' · ;.,
o
{!,
.-
.:...,, -
11
r . r+ ".t
" . /!; : , •
,
. \' , -' . ' • ' · j ·' "f+I;., ' ': "-'
"l':'...../
f
""-- ,.
'•le. ,;j! I ,1.,l:'.'1;i,;
I
I
-
i , ''!1,,F;J • ; ,-. .
.'
'<
1,
- -•" •
·L
I.,
',
•
. I ..
'I, '"""'
• •• . •. . _ . • • • •. ,
_.,,.
""'
-, , ---,, .-·:-,_ ""e!r
,
.
''"""
V '·::-
•
-
.',, _, ""' "" '
l'IJ',,
'
J~tl'. ~ ', --, ...
-. \
'''"'"(-\" ;', ''1 ' \'"1,:;(:f.' ',
..
"\
"'.
f
.
•,
;
\ ,' :of\\'
'
,
/
\
(
•
'
)
Sukasnri
•
-- ---\' -----! .. ___ i
.,
..,
1I
"
•
' ·
·-,
•
·,
, ' ·<
.-
. /
N
,
,_ .• l<Ec
I,
/
" ;. _,;
f Komp""'c ',, ,_; ...
\
"
' ...
----,
..-,;
It::·.-
'
...
<.."
/I
\ \
;, '-.. -- -- '
'
'
Nog!•""
/;1,, • .
~I;,I
·. .,,
I
JAK'A, URlr:,
"' . " ' C'../ "
ji •"-•~nga
'
•
\
f-
1
1,_., __ ,;:,,o ' , '"· '· - ' " &: • ""''"'' ' ,- t
,_ .1.
'
1
,
. .... ,,., .. '""'
" "
•
«• ."
. ... :»R•:\f:,;·,
-,
-
,--.._, ' "
- - - - - - - -
I ''
i
SKALA 1 : 60.000
_ LEGENDA
I
r;J
1buk0L?. Ktibl.!POLL'I"\
- · - · finta:
_Iil··· .. __ ,
@
Jbukota Kecemat<;in
- •
•
Kc!urahan/K,~ntor
II r,
:
I
,:,;:::0)__ "
.
'
-- '""L"'·
,.. ,,,_
'
~/"""' . °'"''''''"''11~ """---~· - . , .... ·"~'·'• '_.#:?~-;,,.. °' "'-' ' '".a~,~,:;,: ""' : -I .•~_ - ..--- _- ·"-.',·. I;:~··'">''"'ii! .;~ """' ::::~\~'i'i,~ ~h, " '"""~i~·~'t '' d.t"".'.' ' , ' t~:, :.l:;,,-.---l ·,,,:·'.:~'::;,~~ij/ -~--1~~~~·~"'-
">lnd~n;;i~ari -
i
./
""·"W• ..·, .-
.' .,' ., . . ,,_, .-'•v ____"''"1 .., " " ' ·" h
. .,,.,.
,.'
•
- "' .
· ,,
''
..
,(.' - " •
6.--~--L;::~r-~ r.TJ~::-.~b" Kfi"~M ...,',·-~ [ 't1"· .- ' "-•
-,,--
.
"
,d
."
, , ,
. """'"'--'"""'
h
·
\ '
_,
1/
i
" . ::Jc.V
--z? I
'•
/Jf'I
"'-•
II
]..·jrl·"""<• ·''"""'''' ,-_>'•-::;: _,, ..
.
"1!'-
•
" _q>
'
·,"·-:·:;;?J .'l '
· --\: -------~1- ~'."":i ~ . '.~: ,~---- ? - , ·, l_.,. <~lw•"'1', - " ,_. " .
.
'w'"" J•"
: """"'
1 ,,,.,
i/, ;•,: _)) ,
' " •
'
Pl
,
'
I
' __, ,
, _____ ,. '', / '"""."%;""
'
'·
'
!
'•: ' ,
• , '-;'.,! '"· !\ O.mf'>f•"" • "·,
'
.
, ,..'°1".;.f:/I ·' ' '
.\
-, '
,
I
,'f"<' •11,,;· '-'
": / '
!,____
-·
'
... - .,,, . " . . .,, .. ' ' TAN®\,(,, .. ·. --'··- ----,f,---J
'
•
'
I'
- ,: i
.
e
- --.le~nisar1 ..
o
--
\
''
I ,
'
·~.-
_
'<
1
'
•
;.--
t
"
\llekllrs.~ri
:
""/
I
- . ,,_• ""' '.:,,,"'fs1.
''" ,5_. ".
'-
~- 1\.. -----" ~ ~--"' . . :-. ~ ,. 1a~tnmeh ,..,-,~mtuns:; Ko~ mo1 . .. ~- ~ 1r~~--' ~_:,07~...~-.--m.iNTER~H"%-\: . , _ , ~ ~ r d 3 -- ---::w /, 0'~"C 'FsuKAR'%'1i0H~ \ u . u m u ~ . ;.r .. ~\'. • , '., '/\~I y " :jK'",'.".' ~"\,_~,.".',""'\',...//i. ,'~ .. ' ~ " ' " ' " ~ ' ' ' " : ' " ~ ; : . ,~~ ~I ~\ ', ' ,,_ ~ .. " . ~~~.. ~ ~ ' "'"'~ ~·SEP~ .:·~:;_1,,~~N~~--~- y~~-~ r , •r ~~-~ /-".'.., - , "" _.,. SE;';-~, ' ' "'I~--- -.· I ~ ~J ' " ' " , J/ ~ ._ ....?~#~ l} · ··1 ~--- .....
•, • . , .f;,;•'W/,1,,,,,,.,,,, Ij ';4-' ""-. ';:,. 0 '-..-..--,, 1
-'•\- " ".;,,,;,,';•
- ". '
:m,
-"
• " " -.,." '-. -•... ... "" - I .j,
'
--'
,
" k--- • " •": J
1
---;ff
f_.,,!, I ,'. ,-/-:" ' , '10 ''. "'
'
•••
1
u ?.sa
-=-= Jalan Kcretaapi
'
I
'·'
..- ""'"""'(\\
o::r~::o"'!"..:.
Ja1an Toi
~
JalanRa1Ja
--· 8atu£
(f/jj;
~
Bo~.i·-
02r.a1
-;.~ s"''" ~0<:!$<1
