PENGEMBANGAN SISTEM PERPARKIRAN DI GEDUNG PATRA JASA
MOHAMMAD LUTHFI SYAMSIR
PROGRAM STUDI SISTEM INFORMASI FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2010 M / 1431 H
PENGEMBANGAN SISTEM PERPARKIRAN DI GEDUNG PATRA JASA
Skripsi Diajukan untuk Memenuhi Persyaratan Memperoleh Gelar Sarjana Komputer (S.Kom.)
Oleh : Mohammad Luthfi Syamsir 204093002654
PROGRAM STUDI SISTEM INFORMASI FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2010 M / 1431 H
ii
PENGEMBANGAN SISTEM PERPARKIRAN DI GEDUNG PATRA JASA
Skripsi Diajukan kepada Fakultas Sains dan Teknologi untuk Memenuhi Persyaratan Memperoleh Gelar Sarjana Komputer (S.Kom.)
Oleh : Mohammad Luthfi Syamsir 204093002654
Pembimbing I
Pembimbing II
Zainuddin Bey Fananie, M.Sc
Zulfiandri, S.Kom, MMSI NIP. 19700130 200501 1 003
Mengetahui, Ketua Program Studi Sistem Informasi
A’ang Subiyakto, M.Kom NIP. 150411252
iii
PENGESAHAN UJIAN
Skripsi berjudul “Pengembangan Sistem Perparkiran di Gedung Patra Jasa” yang ditulis oleh Mohammad Luthfi Syamsir, NIM 204093002654 telah diuji dan dinyatakan lulus dalam sidang Munaqosyah Fakultas Sains dan Teknologi, Universitas
Islam
Negeri
Syarif
Hidayatullah
Jakarta
pada
tanggal
19 Agustus 2010. Skripsi ini telah diterima sebagai salah satu syarat untuk memperoleh gelar Sarjana Strata Satu (S1) Program Studi Sistem Informasi.
Menyetujui : Penguji I,
Penguji II,
Zainul Arham, M.Si NIP. 19740730 200710 1002
Qurrotul Aini, MT NIP. 197303252009012001
Pembimbing I
Pembimbing II
Zainuddin Bey Fananie, M.Sc
Zulfiandri, S.Kom, MMSI NIP. 19700130 200501 1 003 Mengetahui :
Dekan Fakultas Sains dan Teknologi
Ketua Program Studi Sistem
Informasi
Dr. Syopiansyah Jaya Putra, M.Sis NIP.19680117 200112 1 001
A’ang Subiyakto, M.Kom NIP. 150 411 252
iv
PERNYATAAN DENGAN INI SAYA MENYATAKAN BAHWA SKRIPSI INI BENARBENAR HASIL KARYA SENDIRI YANG BELUM PERNAH DIAJUKAN SEBAGAI SKRIPSI ATAU KARYA ILMIAH PADA PERGURUAN TINGGI ATAU LEMBAGA MANAPUN. Jakarta, 19 Agustus 2010
Mohammad Luthfi Syamsir 204093002654
v
ABSTRAK MOHAMMAD LUTHFI SYAMSIR, Pengembangan Sistem Perparkiran di Gedung Patra Jasa (dibawah bimbingan ZAINUDDDIN BEY FANANIE, dan ZULFIANDRI). Lahan perparkiran yang terdapat di Gedung Patra Jasa sebelumnya sudah menggunakan sistem yang terkomputerisasi, dalam menjalankan sistem perparkiran masih terdapat kekurangan yang menyebabkan pelanggan masih merasa kesulitan dalam mendapatkan lahan parkir sehingga mereka hanya berputar-putar saja di area lahan pakir tanpa adanya kepastian mendapatkan lahan parkir yang masih kosong. Dalam hal ini peneliti membuat aplikasi yang mudah untuk digunakan bagi Staf Parkir di Gedung Patra Jasa. Untuk menunjang aplikasi tersebut peneliti menggunakan Microsoft Visual Basic 6.0 sebagai bahasa pemrograman dan SQL Server 2005 sebagai database. Dalam mengembangkan system perparkiran ini, peneliti menggunakan metode System Development Life Cycle (SDLC). Sistem perparkiran yang dikembangkan oleh peneliti lebih mempermudah baik pelanggan maupun pekerja pada area lahan parkir tersebut, karena telah menggunakan pengurutan dalam penempatan parkir kendaraan. Dengan adanya suatu pengembangan sistem perparkiran tersebut, maka proses dalam mendapatkan lahan parkir menjadi lebih cepat. Kata kunci : Sistem Perparkiran, Visual Basic, SDLC. Referensi : 14 Buku (1999 – 2008) V Bab + 176 halaman + 37 gambar + 2 tabel + 4 lampiran
vi
KATA PENGANTAR
Assalamu’alaikum Wr.Wb Segala puji syukur kami panjatkan kehadirat Allah SWT atas segala rahmat dan karunia-Nya sehingga skripsi ini dapat selesai sebagaimana mestinya. Shalawat dan salam kepada Rasulullah Muhammad SAW, keluarga, sahabat dan para pengikutnya hingga akhir zaman nanti. Rasul yang melalui perjuangan dan keikhlasannya membuat kita bisa memiliki agama yang sempurna ini. Semoga kita bisa menjadi pengikutnya yang setia sampai akhir hayat. Dengan selesainya penulisan laporan skripsi ini peneliti ingin mengucapkan terima kasih kepada pihak-pihak yang telah membantu, karena tanpa bantuan, petunjuk, bimbingan dan saran-saran mungkin peneliti tidak akan dapat menyusun laporan ini. Pada kesempatan ini, peneliti ingin mengucapkan terima kasih yang sebesar-besarnya kepada ; 1.
Bapak DR. Syopiansyah Jaya Putra, M.Sis selaku Dekan Fakultas Sains dan Teknologi UIN Syarif Hidayatullah Jakarta.
2.
Bapak A’ang Subiyakto, M.Kom selaku Ketua Program Studi Sistem Informasi.
3.
Ibu Nur Aeni Hidayah, MMSi selaku Sekretaris Program Studi Sistem Informasi.
4.
Bapak Zainuddin Bey Fananie, M.Sc selaku dosen pembimbing I dan Bapak Zulfiandri, S.Kom, MMSI selaku pembimbing II yang telah banyak memberikan bimbingan dan arahan guna terwujudnya laporan skripsi ini.
vii
5.
Saudara Kosmara dan Teo yang telah banyak memberikan masukanmasukan yang bermanfaat dalam pembuatan Aplikasi Perparkiran di Gedung Patra Jasa Dengan Menggunakan Microsoft Visual Basic 6.0.
6.
Bapak Drs.Karsimin, selaku General Manager Koperasi di Gedung Patra Jasa.
7.
Bapak Melki, selaku Staff Perparkiran di Gedung Patra Jasa.
8.
Orangtua, saudara dan Riana Sari yang begitu banyak memberikan do’a, motivasi dan dukungan, baik material maupun spiritual.
9.
Semua pihak-pihak yang telah membantu dalam penyelesaian laporan skripsi ini. Dalam penulisan laporan skripsi ini peneliti menyadari bahwa penulisan
laporan ini masih belum mencapai kesempurnaan baik dari segi materi maupun dari segi penyajian, untuk itu peneliti mengharapkan kritik dan saran untuk membangun. Semoga dengan adanya laporan skripsi ini dapat berguna bagi pembaca dan memberikan manfaat bagi pihak yang membutuhkannya. Semoga segala bantuan yang telah diberikan kepada peneliti akan mendapatkan balasan yang setimpal dari Allah SWT, Amin. Wassalamu’alaikum Wr. Wb
Jakarta, 19 Agustus 2010
Mohammad Luthfi Syamsir 204093002654
viii
DAFTAR ISI
Halaman Judul...............................................................................................
ii
Lembar Persetujuan Pembimbing..................................................................
iii
Lembar Pengesahan Ujian.............................................................................
iv
Lembar Pernyataan........................................................................................
v
Abstrak...........................................................................................................
vi
Kata Pengantar...........................................................................................
vii
Daftar Isi....................................................................................................
ix
Daftar Tabel...............................................................................................
xiii
Daftar Gambar ...........................................................................................
xiv
Simbol Bagan Alir Sistem .........................................................................
xvi
Daftar Lampiran ............................................................................................
xix
BAB I
PENDAHULUAN ......................................................................
1
1.1. Latar Belakang Masalah..............................................................
1
1.2. Perumusan Masalah ....................................................................
2
1.3. Batasan Masalah .........................................................................
3
1.4. Tujuan Penelitian ........................................................................
3
1.5. Manfaat Penelitian ......................................................................
4
1.6. Metode Penelitian .......................................................................
5
1.7. Sistematika Penulisan .................................................................
6
ix
BAB II LANDASAN TEORI .................................................................
8
2.1. Sistem Informasi ........................................................................
8
2.2. Metode Penelitian .......................................................................
14
2.3. Pengembagan Sistem .................................................................
16
2.4. Metode Pengembangan Sistem ...................................................
20
2.5. Sistem Informasi Perparkiran .....................................................
22
2.6. Permasalahan Sistem .................................................................
22
2.7. Diagram Arus Data (Data Flow Diagram) .................................
27
2.7.1. Diagram Konteks ...........................................................
28
2.7.2. Diagram Nol ..................................................................
28
2.7.3. Diagram Rinci ................................................................
29
2.8. Elemen Dasar dari Diagram Aliran Data ....................................
29
2.8.1. Kesatuan Luar (External Entity) .....................................
29
2.8.2. Arus Data (Data Flow) ..................................................
30
2.8.3. Proses (Process) .............................................................
30
2.8.4. Simpanan Data (Data Store) ..........................................
31
2.8.5. Kamus Data ...................................................................
31
2.9. Diagram Hubungan Antara Entitas (Entity Relationship Diagram/ ERD) ..........................................
33
2.10. Basis Data (Database) ...............................................................
34
2.11. Normalisasi ................................................................................
35
2.12. Pengujian Black Box ..................................................................
39
2.13. Visual Basic 6.0 .........................................................................
40
x
2.14. SQL (Structured Query Language) .............................................
42
2.15. Literatur Sejenis .........................................................................
43
BAB III METODE PENELITIAN .........................................................
45
3.1. Metode Penelitian ......................................................................
45
3.1.1.
Metode Pengumpulan Data ..........................................
45
3.1.2.
Metode Pengembangan Sistem ....................................
47
BAB IV ANALISIS DAN PERANCANGAN SISTEM ..........................
50
4.1. Gambaran Umum Koperasi Patra Jasa ........................................
50
4.1.1. Organisasi Kelembagaan Koperasi .................................
50
4.1.2. Keanggotaan ...................................................................
51
4.1.3. Struktur Organisasi ........................................................
51
4.2. Pengembangan Sistem ................................................................
54
4.2.1. Analisis (Analysis) ..........................................................
54
4.2.2.1. Flowchart ........................................................
56
4.2.2.2. Diagram Konteks Sistem Perparkiran Berjalan ..........................................................
59
4.2.2.4. Pemecahan Masalah pada Sistem Berjalan ......
60
4.2.2. Desain (Design) .............................................................
61
4.2.2.1. Data Flow Diagram .........................................
62
4.2.2.2. Entity Relationship Diagram (ERD) .................
76
4.2.2.3. Normalisasi......................................................
78
xi
4.2.2.4. Kamus Data .....................................................
81
4.2.3.5. Rancangan Antarmuka Pemakai.......................
82
4.2.3. Penerapan (Implementasi)...............................................
100
4.2.3.1. Perangkat Keras (Hardware)............................
100
4.2.4.2. Perangkat Lunak (Software) .............................
100
4.2.3.3. Pengujian Sistem .............................................
101
BAB V KESIMPULAN DAN SARAN ..................................................
104
5.1. Kesimpulan.................................................................................
104
5.2. Saran ..........................................................................................
104
DAFTAR PUSTAKA ...............................................................................
105
LAMPIRAN
xii
DAFTAR TABEL
Tabel 4.1 Atribut .......................................................................................
77
Tabel 4.2 Testing Account..........................................................................
101
xiii
DAFTAR GAMBAR
Gambar 2.1 Lima Komponen Sistem Informasi .........................................
10
Gambar 2.2 Metode SDLC Sebagai Air Terjun .........................................
21
Gambar 2.3 External Entity .........................................................................
29
Gambar 2.4 Arus Data ..............................................................................
30
Gambar 2.5 Proses ....................................................................................
30
Gambar 2.6 Data Store ................................... ...........................................
31
Gambar 4.1 Struktur Organisasi Parkir Gedung Patra Jasa ........................
52
Gambar 4.2 Flowchart Transaksi ..............................................................
56
Gambar 4.3 Flowchart Pendaftaran & Pencabutan Pelanggan ...................
57
Gambar 4.4 Flowchart Laporan ................................................. .................
58
Gambar 4.5 Diagram Konteks Sistem Berjalan ..........................................
59
Gambar 4.6 Diagram Konteks Sistem Usulan ............................................
62
Gambar 4.7 DFD Level Nol Usulan ..........................................................
67
Gambar 4.8 DFD Level 1 Daftar Baru ........................................................
72
Gambar 4.9 DFD Level 1 Cabut Daftar .....................................................
74
Gambar 4.10 ERD Sistem Usulan .............................................................
76
Gambar 4.11 Unnormalized Form ( Bentuk Tidak Normal) .......................
78
Gambar 4.12 First Normal Form (1NF) ................................................ ......
79
Gambar 4.13 Second Normal Form (2NF) .................................................
80
Gambar 4.14 Rancangan Form Menu Utama ............................................
82
Gambar 4.15 Rancangan Form Input Data Pelanggan ...............................
83
xiv
Gambar 4.16 Rancangan Form Input Data Kendaraan ...............................
84
Gambar 4.17 Rancangan Form Input Data Lahan ......................................
85
Gambar 4.18 Rancangan Form Update User Account ...............................
86
Gambar 4.19 Rancangan Form Transaksi Kendaraan Masuk .....................
87
Gambar 4.20 Rancangan Form Transaksi Kendaraan Keluar .....................
88
Gambar 4.21 Rancangan Printout Karcis Masuk ........................................
89
Gambar 4.22 Rancangan Printout Karcis Keluar .......................................
90
Gambar 4.23 Rancangan Form View Lahan ..............................................
91
Gambar 4.24 Rancangan Form Cetak Laporan Kendaraan ........................
92
Gambar 4.25 Rancangan Form Cetak Laporan Lahan ...............................
93
Gambar 4.26 Rancangan Form Cetak Laporan Pelanggan .........................
94
Gambar 4.27 Rancangan Form Cetak Laporan Transaksi ...........................
95
Gambar 4.28 Rancangan Form Laporan Data Kendaraan ..........................
96
Gambar 4.29 Rancangan Form Laporan Data Lahan Parkir .......................
97
Gambar 4.30 Rancangan Form Laporan Data Pelanggan ...........................
98
Gambar 4.31 Rancangan Form Laporan Transaksi Kendaraan ....................
99
xv
SIMBOL BAGAN ALIR SISTEM Simbol
Keterangan Arus/flow Menyatakan jalannya arus suatu proses Communication link Menyatakan bahwa adanya transisi suatu data/informasi dari suatu lokasi ke lokasi lainnya Connector Menyatakan sambungan dari satu proses ke proses lainnya dalam halaman/ lembar yang sama Offline Connector, Menyatakan sambungan dari satu proses ke proses lainnya dalam halaman/ lembar yang berbeda Offline Connector, Menyatakan sambungan dari satu proses ke proses lainnya dalam halaman/ lembar yang berbeda Manual Menyatakan suatu tindakan (proses) yang tidak dilakukan oleh komputer Decision/Logika Untuk menunjukkan suatu kondisi tertentu yang akan menghasilkan dua kemungkinan jawaban, ya/tidak Predifined Proses Untuk menyatakan penyediaan tempat penyimpanan sauatu pengolahan untuk memberi harga awal
xvi
Terminal Untuk menyatakan permulaan atau akhir program Keying Operation Untuk menyatakan segala jenis operasi yang diproses dengan menggunakan suatu mesin yang mempunyai keyboard Off-Line Storage Untuk menujukkan bahwa data dalam simbol ini akan disimpan ke suatu media tertentu. Manual input Untuk memasukkan data secara manual dengan menggunakan online keyboard. Input-Output Untuk menyatakan proses input dan outputnya tanpa tergantung dengan jenis peralatannya. Punched Card Untuk menyatakan input berasal dari kartu atau output ditulis ke kartu. Magnetic-tape unit Untuk menyatakan input berasal dari pita magnetic atau output disimpan ke pita magnetic Disk Storage Untuk menyatakan input berasal dari disk atau output disimpan ke disk Document Untuk mencetak laporan ke printer
xvii
Display Untuk menyatakan peralatan output yang digunakan berupa layar ( video, komputer)
Simbol
Penjelasan resmi Simbol hard disk
Arti Sebenarnya Menunjukkan input/output menggunakan hard disk..
Simbol diskette
Menunjukkan input/ output menggunakan diskette
Simbol drum magnetic
Menunjukkan input/ output menggunakan drum magnetik
Simbol pita kertas berlubang
Menunjukkan input/ output menggunakan pita kertas berlubang
Simbol keyboard
Menunjukkan input yang menggunakan on-line keyboard
Menunjukkan arus dari proses Simbol garis alir
Simbol penghubung
xviii
Menunjukkan penghubung ke halaman yang masih sama atau halaman lain.
DAFTAR LAMPIRAN
Lampiran 1 Hasil Wawancara ................................................................... L1 Lampiran 2 Tampilan Aplikasi .................................................................. L4 Lampiran 3 Kode Program ........................................................................ L15 Lampiran 4 Kuestioner .............................................................................. L47
xix
BAB I PENDAHULUAN
1.1
Latar Belakang Sistem perparkiran yang ada pada saat ini sudah banyak yang dilakukan
secara terkomputerisasi, namun sistem perparkiran yang ada sekarang masih kurang efektif dan efisien, dengan menggunakan sistem perparkiran yang ada pada saat ini para pengguna lahan parkir masih belum bisa mendapatkan pelayanan yang memadai. Banyak pengguna lahan parkir yang merasa tertipu misalnya pada saat pengguna lahan parkir memasuki area gedung untuk mencari lahan parkir, sedangkan lahan parkir yang tersedia sudah penuh. Mereka tidak dapat mengetahuinya dan hanya berputar-putar di area gedung dengan tarif tagihan yang terus berjalan. Dengan menggunakan sistem perparkiran yang terkomputerisasi, dimana sistem yang ada akan memberitahukan bahwa masih ada atau tidaknya lahan parkir yang tersedia maka petugas atau pengelola parkir bisa menghemat waktu sehingga menjadi lebih efisien dan efektif. Salah satu contoh kasus yang sering terjadi di tempat parkir perkantoran adalah apabila parkir penuh, petugas yang memberi tiket parkir tidak mengetahui apakah parkir yang ada sudah terisi semua atau belum, sehingga membuat pengguna lahan parkir hanya berputar-putar saja tanpa mendapatkan tempat yang kosong dengan durasi biaya parkir yang terus berjalan, ini sangat merugikan para pengguna lahan parkir seperti yang telah dibahas pada sebelumnya.
1
2
Berkaitan dengan hal di atas, peneliti mengambil studi kasus pada sistem perparkiran yang ada di gedung Patra Jasa yang sudah terkomputerisasi dan mengembangkannya, dengan melakukan keterlibatan secara langsung dalam kegiatan yang berhubungan dengan studi kasus yang peneliti hadapi dan juga melakukan pengumpulan data dan informasi dengan cara membaca buku-buku atau artikel, referensi yang dapat dijadikan sebagai acuan pembahasan masalah ini. Sehubungan dengan itu maka peneliti memilih judul: “Pengembangan Sistem Perparkiran di Gedung Patra Jasa “.
1.2
Perumusan masalah Dalam penyusunan penelitian tugas akhir ini ada beberapa masalah pokok
yang akan dibahas peneliti, di antaranya: 1.
Bagaimana
mempermudah
pengguna
lahan
parkir
dalam
menentukan tempat parkir yang telah disediakan oleh petugas atau pengelola
parkir
dengan
menggunakan
sistem
yang
terkomputerisasi. 2.
Menentukan jalannya sistem perparkiran yang terkomputerisasi dengan menggunakan pengurutan dalam penempatan parkir kendaraan, dimana pengguna lahan parkir mempunyai kepastian dalam mendapatkan lahan parkir yang masih kosong.
3
1.3
Batasan masalah Sesuai dengan inti dari penulisan tugas akhir ini, maka peneliti akan
membatasi ruang lingkup pada proses Pengembangan Sistem Perparkiran, yaitu: 1.
Pengembangan Sistem Perparkiran ini hanya dilakukan di gedung Patra Jasa saja, dimana hanya pada pengembangan sistem perparkiran mobil saja.
2.
Bahasa pemrograman yang digunakan dalam Pengembangan Sistem Perparkiran ini dengan menggunakan bahasa pemrograman VB6 .
3.
Metode yang digunakan dalam Pengembangan Sistem Perparkiran ini Metode SDLC (System Development Life Cycle).
4.
Pengembangan sistem perparkiran ini dimulai dari entry data kendaraan masuk, kendaraan keluar, pembuatan laporan seberapa banyaknya
kendaraan
yang
keluar
masuk
dan
seberapa
maksimalnya tempat parkir yang digunakan dalam setahun serta pendaftaran
data
karyawan
untuk
berlangganan
dalam
menggunakan lahan parkir yang dilakukan oleh perusahaan dan juga pengurutan penempatan kendaraan sesuai dengan nomor lahan parkir yang telah disediakan pengelola lahan parkir.
1.4
Tujuan Penelitian Dalam penulisan ini, peneliti menguraikan tujuan penelitian, yaitu:
4
Tujuan Penelitian 1. Mengembangkan sistem perparkiran yang ada pada gedung Patra Jasa agar dalam penempatan kendaraan di area lahan parkir menggunakan system pengurutan penempatan kendaraan sehingga pengguna lahan parkir tidak merasa tertipu oleh lahan yang telah disediakan oleh pengelola parkir. 2. Pengguna lahan parkir menjadi lebih mudah dalam menemukan tempat parkir yang telah disediakan dan petugas atau pengelola lahan parkir menjadi lebih mudah dalam mengatur keluar masuknya kendaraan sehingga pengguna lahan parkir tidak perlu mencari lama-lama dimana dia akan menempatkan kendaraannya.
1.5
Manfaat Penelitian Peneliti mengharapkan penelitian ini dapat berguna bagi seluruh pihak
yang terkait, di antaranya: 1. Bagi peneliti kegunaan dari penulisan ini adalah untuk memenuhi salah satu persyaratan untuk mencapai gelar Pendidiksan S1 (Sarjana) Fakultas Sains dan Teknologi Jurusan Sistem Informasi Universitas Islam Negeri Syarif Hidayatullah Jakarta. Menambah pengetahuan peneliti tentang sistem informasi, khususnya yang berkaitan dengan Analisis Sistem Perparkiran.
5
2. Bagi pembaca kegunaan dari penulisan ini adalah semoga penulisan ini berguna bagi pihak lain atau pembaca sebagai informasi, khususnya bagi pembaca yang mempunyai minat di bidang Analisis Sistem Perparkiran.
1.6
Metode Penelitian Metode yang digunakan peneliti dalam pengumpulan data untuk
menyelesaikan laporan tugas akhir ini, di antaranya: 1. Studi Lapangan: melakukan pengamatan langsung, dengan cara mengamati secara langsung di gedung Patra Jasa, bagaimana sistem yang sudah ada sebelumnya pada gedung tersebut dalam mengelola perparkiran. 2. Studi Literatur Sejenis: mencari suatu masalah untuk diteliti. Dalam arti bukti-bukti atau pernyataan bahwa masalah yang akan diteliti itu belum terjawab atau belum terpecahkan secara memuaskan atau belum pernah diteliti orang mengenai tujuan, data dan metode, analisa dan hasil untuk waktu dan tempat yang sama. 3. Studi Pustaka: mencari data-data dan informasi dengan mempelajari buku, makalah, browsing di internet ataupun hasil penelitian yang berkaitan dengan Pengembangan Sistem Perparkiran.
6
1.7
Sistematika penulisan Penulisan dan penyusunan laporan kerja praktek ini disusun berdasarkan
penulisan sistematika sebagai berikut: BAB I
:
PENDAHULUAN Bab ini berisi tentang latar belakang, perumusan masalah, pembatasan masalah, tujuan dan manfaat penelitian,
metode penelitian dan sistematika
penulisan. BAB II
:
LANDASAN TEORI Bab ini berisikan tentang konsep dasar dari sistem, dimulai dari teori konsep sistem dan program serta peralatan pendukung (tools system) yang digunakan dalam pembuatan skripsi ini.
BAB III
:
METODE PELITIAN Bab ini menguraikan secara rinci metode penelitian yang digunakan dalam pengembangan sistem ini.
BAB IV
:
ANALISIS DAN PERANCANGAN Pada bab ini berisikan rancangan proses yang meliputi DFD usulan dan spesifikasi proses. Rancangan basis data
yang berisikan
ERD,
normalisasi dan spesifikasi file. Dalam bab ini juga membahas rancangan keluaran,
masukan dan
rancangan tampilan serta arsitektur sistem.
7
BAB V
:
KESIMPULAN DAN SARAN Bab ini berisi tentang kesimpulan dari uraian pada bab-bab
yang
dibahas
pengembangan lebih lanjut.
serta
saran
untuk
BAB II LANDASAN TEORI
2.1
Sistem Informasi Sistem adalah kumpulan dari komponen atau elemen yang saling
berhubungan satu dengan lainnya membentuk satu kesatuan untuk mencapai tujuan tertentu (Jogiyanto, 2005:2). Informasi adalah data yang telah diolah menjadi sebuah bentuk yang berarti bagi penerimanya dan bermanfaat dalam pengambilan keputusan saat ini atau mendatang (Al Fatta, 2007:10). Informasi dapat didefinisikan sebagai hasil dari pengelolaan data dalam bentuk lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian yang nyata yang digunakan untuk pengambilan keputusan. Informasi sebagai hasil dari pengolahan data dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian-kejadian (event) yang nyata (fact) yang digunakan untuk mengambil keputusan (Jogiyanto, 2005:8).
2.1.1
Pengertian Sistem Informasi Sistem Informasi dapat didefinisikan sebagai berikut (Ladjamudin, 2005:13): 1.
Suatu sistem yang dibuat oleh manusia yang terdiri dari komponenkomponen dalam organisasi untuk mencapai suatu tujuan yaitu menyajikan informasi.
8
9
2.
Sekumpulan prosedur organisasi yang pada saat dilaksanakan akan memberikan informasi bagi pengambil keputusan dan/ atau untuk mengendalikan organisasi.
3.
Suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi, mendukung operasi, bersifat manajerial dan
kegiatan
strategi dari suatu
organisasi dan
menyediakan pihak luar tertentu dengan laporan-laporan yang diperlukan. Selain itu, sistem informasi adalah suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian, mendukung operasi, bersifat manajerial dan kegiatan strategi dari suatu dan menyediakan pihak luar tertentu dengan laporanlaporan yang diperlukan (Jogiyanto, 1999:11).
2.1.2
Manfaat Sistem Informasi Organisasi menggunakan sistem informasi untuk mengolah transaksi-
transaksi, mengurangi biaya dan menghasilkan pendapatan sebagai salah satu produk atau pelayanan mereka. Perusahaan menggunakan sistem informasi untuk mempertahankan persediaan pada tingkat paling rendah agar konsisten dengan jenis barang yang tersedia (Ladjamudin, 2005:14).
10
2.1.3
Komponen Sistem Informasi Ada 5 komponen sistem informasi, kelima komponen tersebut dapat
diklasifikasikan sebagai berikut: 1.
Hardware dan Software yang berfungsi sebagai mesin.
2.
People dan Procedures yang merupakan manusia dan tata cara menggunakan mesin.
3.
Data merupakan jembatan penghubung antara manusia dan mesin agar terjadi suatu proses pengolahan data.
Hardware (Perangkat keras)
Software (Perangkat lunak)
DATA
Procedures (Prosedur)
Mesin
People (Manusia)
Manusia
Gambar 2.1 Lima komponen Sistem Informasi (Ladjamudin, 2005:14)
2.1.3.1 Hardware Peralatan penyimpanan data Disk merupakan salah satu perangkat penyimpanan data yang paling sering digunakan. Disk diorganisasikan berupa silinder-silinder dengan tiap permukaan terdapat head yang ditumpuk secara vertikal. Head terdiri dari beberapa Track. Track terbagi menjadi sektor-sektor. Tiga faktor yang mempengaruhi waktu read/write block disk, yaitu (Ladjamudin, 2005:15):
11
1.
Seek time (waktu menggerakkan lengan silinder),
2.
Rotational delay (waktu sektor berputar ke head),
3.
Transfer time.
2.1.3.2 Software Software merupakan kumpulan dari perintah/ fungsi yang ditulis dengan aturan
tertentu
untuk
memerintahkan
komputer
melaksanakan
tertentu
(Ladjamudin, 2005:20).
2.1.3.3 Data Data merupakan komponen dasar dari informasi yang akan diproses lebih lanjut untuk menghasilkan informasi. Himpunan data akan memiliki sifat yang unik, antara lain sebagai berikut (Ladjamudin, 2005:20): 1. Saling berkaitan (Interrelated); data-data tersebut akan saling berkaitan/ terintegrasi dan tersimpan secara teroganisir didalam suatu media penyimpanan. 2. Kebersamaan (Shared); data yang terintegrasi tersebut dapat diakses oleh berbagai macam pengguna/ orang tetapi hanya satu yang dapat merubahnya yaitu Database Administrator. Sifat kebersamaan (Shared) dalam himpunan data tersebut akan membutuhkan perubahan berupa cara berfikir pengguna yang terbiasa dengan pola pemilikan data sendiri, dan cara penanganan dan manajemen data dalam organisasi.
12
Data bersama (Sharing Data) merupakan data yang dapat digunakan secara bersama oleh beberapa pemakai pada lokasi yang sama ataupun berbeda. Data bersama memiliki tiga tipe, yaitu: 1) Data bersama di antara unit fungsional. 2) Data bersama pada berbagai tingkatan pengguna. 3) Data bersama yang tersebar secara geografis. 3. Terkendali (Controlled); data yang terintegrasi tersebut hanya dapat diubah oleh seorang Database Administrator.
2.1.3.4 Prosedur Dokumentasi prosedur/ proses sistem, buku penuntun operasional dan teknis. Prosedur menghubungkan berbagai perintah, dan aturan yang akan menentukan rancangan dan penggunaan sistem informasi. User (pengguna/ pemakai) dari sistem yang akan mengatur dan merancang sistem informasi berdasarkan prosedur-prosedur yang didokumentasikan. Dokumen tersebut berisi tentang
bagaimana
cara
menggunakan
dan
menjalankan suatu
sistem
(Ladjamudin, 2005:21).
2.1.3.5 Manusia Manusia adalah mereka yang terlibat dalam kegiatan sistem informasi seperti operator, pemimpin sistem informasi dan sebagainya. Database merupakan kumpulan file yang saling terintegrasi, namun database tidak akan dapat diakses oleh siapapun tanpa adanya software aplikasi.
13
Gabungan Database dan software aplikasi tersebut yang dinamakan DBMS. DBMS yang sudah ada dengan software aplikasi yang sangat canggih tidak akan berfungsi dan bermanfaat bila tidak ada orang yang dapat mengakses dan mendisainnya dengan baik. Orang yang dimaksud adalah People/ Pengguna. People/ Pengguna akan berinteraksi dengan mesin (software dan hardware) melalui berbagai prosedur dan aturan-aturan formal yang berlaku. Kumpulan dari DBMS dengan manusia yang akan mengaksesnya dinamakan Sistem Informasi, sehingga kalau kita berbicara manusia dan data, maka tidak akan terlepas dari Database dan DBMS (Ladjamudin, 2005:21).
2.1.4
Kegiatan Sistem Informasi Kegiatan Sistem Informasi terdiri sebagai berikut (Ladjamudin, 2005: 22) 1. Input Menggambarkan suatu kegiatan induk menyediakan data untuk diproses. 2. Process Menggambarkan bagaimana suatu data diproses untuk menghasilkan suatu informasi yang bernilai tambah. 3. Output Suatu kegiatan untuk menghasilkan laporan dari proses diatas tersebut. 4. Storage Suatu kegiatan untuk memelihara dan menyimpan data.
14
5. Control Suatu aktivitas untuk menjamin bahwa sistem informasi tersebut berjalan sesuai dengan yang diharapkan.
2.2
Metode Penelitian Pada hakikatnya penelitian adalah suatu cara dari sekian cara yang pernah
ditempuh dilakukan dalam mencari kebenaran. Cara mendapat kebenaran itu ditempuh melalui metode ilmiah. Jadi tidak berlebihan apabila metode disebut sebagai strategi dalam penelitian ilmiah (Subana dan Sudrajat, 2005:17). Metodologi adalah kesatuan metode-metode, prosedur-prosedur, konsepkonsep pekerjaan, aturan-aturan yang digunakan oleh suatu ilmu pengetahuan, seni atau disiplin lainnya. Penelitian pada hakikatnya adalah suatu cara dari sekian cara yang pernah ditempuh dilakukan dalam mencari kebenaran, cara mencari kebenaran itu ditempuh melalui metode ilmiah (Jogiyanto, 1999:59).
2.2.1
Pengumpulan Data Dalam penyusunan skripsi ini, diperlukan data-data serta informasi yang
relatif lengkap sebagai bahan yang dapat mendukung kebenaran materi uraian dan pembahasan. Oleh karena itu, sebelum penyusunan skripsi ini dilakukan, maka dilakukan riset atau penelitian terlebih dahulu untuk menjaring data serta informasi yang terkait. Teknik pengumpulan data yang dilakukan adalah sebagai berikut:
15
2.2.1.1 Studi Lapangan Dalam melakukan pengumpulan data, peneliti haruslah melihat langsung apa-apa saja yang terjadi dilapangan atau tempat yang akan diteliti. Dalam melakukan studi lapangan terdapat beberapa cara, yaitu:
1. Observasi Pengumpulan data dengan observasi langsung adalah cara pengambilan data dengan menggunakan mata tanpa ada pertolongan alat standar lain untuk keperluan tersebut (Nazir, 2005:25).
2. Wawancara Wawancara merupakan proses memperoleh keterangan untuk tujuan penelitian dengan cara tanya jawab sambil bertatap muka. Walaupun wawancara adalah proses percakapan yang berbentuk tanya jawab dengan tatap muka, wawancara adalah suatu proses pengumpulan data untuk suatu penelitian (Nazir, 2005:25).
3. Kuesioner Kuesioner adalah sejumlah pertanyaan tertulis yang digunakan untuk memperoleh informasi dari responden dalam arti laporan tentang pribadinya, atau hal-hal yang diketahui. Kuesioner dipakai untuk menyebutkan metode maupun instrumen, jadi dalam menggunakan metode angket atau kuesioner instrumen yang dipakai adalah angket atau kuesioner.
16
2.2.1.2 Studi Pustaka Studi kepustakaan adalah segala usaha yang dilakukan oleh peneliti untuk menghimpun informasi yang relevan dengan topik atau masalah yang akan atau sedang diteliti. Informasi itu dapat diperoleh dari buku-buku ilmiah, laporan penelitian, karangan-karangan ilmiah, tesis dan disertasi, peraturan-peraturan, ketetapan-ketetapan, buku tahunan, ensiklopedia dan sumber-sumber tertulis baik tercetak maupun elektronik lain (Subana dan Sudrajat, 2005:20).
2.2.1.3 Studi Literatur Studi literatur adalah, mencari suatu masalah untuk diteliti. Dalam arti bukti-bukti atau pernyataan bahwa masalah yang akan diteliti itu belum terjawab atau belum terpecahkan secara memuaskan atau belum pernah diteliti orang mengenai tujuan, data dan metode, analisa dan hasil untuk waktu dan tempat yang sama (Subana dan Sudrajat, 2005:24). Dalam mencari studi literatur, peneliti mencari permasalahan yang sama yang dalam pengembangan sistem perparkiran.
2.3
Pengembangan Sistem1 Pengembangan sistem dapat berarti menyusun suatu sistem yang baru
untuk menggantikan sistem yang lama secara keseluruhan atau memperbaiki sistem yang telah ada (Sutabri, 2004:35). Daur hidup pengembangan sistem/ SDLC berfungsi untuk menggambarkan tahapan-tahapan utama dan langkah-
1
http://hukum.uns.ac.id “Metode dan Instrumen Pengumpulan Data, 2007”
17
langkah dari setiap tahapan yang secara garis besar terbagi dalam tiga kegiatan utama, yaitu: 1. Analisis. 2. Desain. 3. Implementasi. Setiap kegiatan dalam SDLC dapat dijelaskan melalui tujuan dan hasil kegiatannya (Ladjamudin, 2005:38).
2.3.1 Analisis Tahapan analisis digunakan oleh analis sistem untuk membuat keputusan. Apabila sistem saat ini mempunyai masalah atau sudah tidak berfungsi dengan baik, dan hasil analisisnya digunakan sebagai dasar untuk memperbaiki sistem. Seorang analis perlu mengetahui ruang lingkup pekerjaan yang akan ditanganinya, perlu memahami sistem yang sedang berjalan saat ini, dan dapat melakukan identifikasi terhadap masalah yang muncul dan mencari solusinya dengan profesional. Kegiatan yang dilakukan dalam tahap analisis ini adalah sebagai berikut (Ladjamudin, 2005:38): 1. Deteksi masalah (Problem Detection). 2. Penelitian/ investigasi awal (Initial Investigation). 3. Analisa kebutuhan sistem (Requirement Analysis). 4. Mensortir kebutuhan sistem (Generation of System Alternatives). 5. Memilih sistem yang baik (Selection of Proper System).
18
2.3.2 Perancangan (Design) Tahapan perancangan (Design) memiliki tujuan untuk mendesain sistem baru yang dapat menyelesaikan masalah-masalah yang dihadapi perusahaan yang diperoleh dari pemilihan alternatif sistem yang terbaik. Kegiatan yang dilakukan dalam tahap perancangan ini meliputi perancangan output, input dan file (Ladjamudin, 2005:39). Dalam tahapan desain terdapat juga perancangan keluaran yang bertujuan menentukan keluaran-keluaran yang akan digunakan oleh sistem. Keluaran tersebut berupa tampilan-tampilan layar, dan juga format dan frekuensi laporan yang diperlukan (Ladjamudin, 2005:39). Perancangan masukan yang termasuk didalam tahapan desain bertujuan menentukan data-data masukan, yang akan digunakan untuk mengoperasikan sistem. Data-data masukan tersebut dapat berupa formulir-formulir faktur dan lain-lain yang berfungsi memberikan data masukan bagi pemrosesan sistem. Pada tahapan ini perlu juga ditentukan format data masukan agar sesuai dengan kebutuhan sistem (Ladjamudin, 2005:39). Dan perancangan file masuk dalam bagian perancangan basis data, yang diawali dengan merancang diagram hubungan antara entitas. Seluruh file yang telah lulus uji normalisasi yang harus dibuatkan spesifikasi datanya (Ladjamudin, 2005:40).
19
2.3.3 Implementasi Tahap implementasi memiliki beberapa tujuan, yaitu untuk melakukan kegiatan spesifikasi rancangan logikal ke dalam kegiatan yang sebenarnya dari sistem
informasi
yang
akan
dibangun
atau
dikembangkan,
lalu
mengimplementasikan sistem yang baru tersebut ke dalam salah satu bahasa pemrograman yang paling sesuai. Pada tahap ini juga harus dijamin bahwa sistem yang baru dapat berjalan secara optimal. Kegiatan yang dilakukan dalam tahap implementasi ini adalah pembuatan program dan tes data, pelatihan dan pergantian sistem (Ladjamudin, 2005:40). Pada tahap implementasi terdapat tahapan programming & testing. Pada tahap ini dilakukan perancangan algoritma dengan menggunakan pseudocode/ terstruktur. Perancangan algoritma sebaiknya dilakukan dengan menggunakan pendekatan top-down (pemrograman modular). Setelah selesai pembuatan algoritma, maka dibuatkanlah program aplikasi dengan menggunakan salah satu bahasa pemrograman terpilih. Program yang telah selesai dibuat secara modular tersebut perlu dilakukan tes data, dengan memasukan sejumlah data kedalam program tersebut dan dilihat hasilnya, serta cara pemrosesan yang dilakukan oleh program yang baru dibuat tersebut (Ladjamudin, 2005:40). Setelah dilakukan programming & testing, maka dilakukanlah tahap selanjutnya yaitu tahapan training. End user akan mengoperasikan sistem yang baru tersebut perlu dilatih secara keseluruhan. Materi pelatihan bisa saja berupa keuntungan dan kerugian sistem yang baru, tip dan trik menggunakan sistem
20
aplikasi yang baru, pengenalan syntax dasar dari bahasa pemrograman yang digunakan dalam aplikasi tersebut, dan dokumen-dokumen yang akan digunakan dalam sistem yang baru tersebut (Ladjamudin, 2005:41). Setelah seluruh sistem siap dioperasikan dan seluruh end user selesai dilatih, maka pada tahap ini dilakukan pergantian sistem yang lama dengan sistem yang baru. Teknik pergantiannya bisa secara perlahan/ bertahap atau secara keseluruhan (Ladjamudin, 2005:41).
2.4 Metode Pengembangan Sistem Metode pengembangan sistem informasi ini biasanya digunakan oleh tim teknis internal dimana pelaksanaan pekerjaan ditinjau juga dari sisi internal organisasi atau perusahaan pemilik sistem. Metode SDLC Waterfall ini terdiri dari lima tahap pengembangan, meliputi: (Putra, 2006:198) 1. Perencanaan 2. Analisis 3. Desain 4. Penerapan 5. Perawatan
21
Perencanaan
Analisis Sistem
Desain
Penerapan
Perawatan
Gambar 2.2 Metode SDLC Sebagai Air Terjun ( Putra, 2006, h. 198)
1. Perencanaan (Planning) Tahap perencanaan adalah tahap awal pengembangan sistem yang mendefinisikan perkiraan kebutuhan-kebutuhan sumber daya seperti perangkat fisik, manusia, metode dan anggaran yang sifatnya masih umum. 2. Analisis Sistem (Analysis) Tahap analisis adalah tahap penelitian atas yang telah ada dengan tujuan untuk merancang sistem yang baru atau diperbaharui. 3. Desain (Design) Tahap desain sistem adalah setelah analisis sistem yang menentukan proses dan data yang diperlukan oleh sistem baru.
22
4. Penerapan (Implementation) Tahap implementasi adalah tahap dimana sistem dibentuk menjadi kode yang siap untuk dioperasikan dan diuji atau di tes. 5. Perawatan (Maintenance) Kegiatan ini merupakan fase terakhir dari metode pengembangan sistem. Pada fase ini dilakukan perawatan terhadap sistem yang sudah dibangun. Perawatan ini berupa backup data, pembuatan jadwal pengoperasian, pengecekan keamanan sistem, dll.
2.5
Sistem Informasi Perparkiran Sistem informasi perparkiran dapat dikatakan sebagai sebuah sistem
dengan komputerisasi yang memberikan dasar operasional interaktif dan berbasis cerdas. Dengan adanya sistem perparkiran, maka dapat membantu mengelola informasi, mendata dan mengatur penempatan lokasi parkir. Sistem yang membantu dalam menyediakan informasi dengan lebih akurat, cepat dan mudah diakses.2
2.6
Permasalahan Sistem Semua sistem informasi akan mempunyai masalah, tanpa memperdulikan
seberapa baiknya sistem tersebut di desain. Beberapa hal yang menyebabkan sistem informasi mempunyai masalah, antara lain sebagai berikut:
2
http://jazi.staff.ugm.ac.id “Program Informasi Pengaturan dan Pendadwalan Parkir Berbasis Cerdas, 2005”
23
1. Waktu (Overtime). 2. Lingkungan sistem yang berubah. 3. Perubahan prosedur operasional. Perbaikan masalah sistem informasi disebut maintenance programming, yang meliputi tanggapan terhadap masalah sistem dan penambahan fungsi baru ke sistem. Maintenance programming mencakup 60 (enam puluh) sampai 90 (sembilan puluh) persen dari programming budged dan menunjukkan apakah sistem informasi yang memburuk perlu diganti atau dipertahankan dengan melakukan perbaikan kecil (Ladjamudin, 2005:41). Masalah sistem informasi berhubungan dengan karakteristik informasi, yakni sebagai berikut: 1. Relevansi (Relevancy). 2. Keakuratan (Accuracy), yang meliputi faktor kelengkapan, kebenaran dan keamanan. 3. Ketepatan waktu (Timeliness). 4. Ekonomi (Economy), yang meliputi faktor sumber daya dan biaya. 5. Efisiensi (Eficiency). 6. Dapat dipercaya (Reability). 7. Kegunaan (Usability).
24
2.6.1 Relevansi (Relevancy) Hasil dari sistem informasi harus dapat digunakan untuk kegiatan manajemen di tingkat profesional, taktis dan strategik. Jika tidak dapat digunakan, informasi tersebut layak untuk tidak diperhatikan lagi (Ladjamudin, 2005:42). Beberapa gejala dari informasi yang tidak lagi relevan, antara lain sebagai berikut: 1. Laporan tidak digunakan oleh pihak yang menerimanya. 2. Permintaan informasi tidak tersedia dalam sistem informasi. 3. Banyak laporan yang isinya terlalu panjang.
2.6.2 Kelengkapan Data tidak hanya dimasukkan secara benar, tetapi juga harus lengkap. Apabila sebuah sistem informasi memiliki 95 (sembilan puluh lima) persen keakuratan data, tetapi hanya 80 (delapan puluh) persen dari kebutuhan informasi, maka sistem akan tidak efektif. Berikut beberapa gejala ketidaklengkapan (Ladjamudin, 2005:42): 1. Sebagian data dikembalikan ke pemakai karena sumber dokumennya atau isian formulirnya tidak lengkap. 2. Bagian
pemasukan
data
menghubungi
ke
pemakai
mengklarifikasi data dari sumber-sumber dokumennya.
untuk
25
2.6.3 Kebenaran Kebenaran biasanya dipikir sebagai keakuratan. Semua data dari field harus dimasukkan secara benar. Berikut gejala dari ketidakbenaran (Ladjamudin, 2005:43): 1. Total
kesalahan
transaksi
mengalami
kenaikan
dibandingkan
kualitasnya. 2. Masalah yang terjadi setelah akhir hari kerja normal mengalami kenaikan.
2.6.4 Keamanan Sering kali informasi dikirimkan ke setiap orang yang membutuhkannya. Pengawasan keamanan adalah struktur pengecekan untuk memutuskan jika informasi yang sensitif ditujukan kepada pemakai yang tidak sah (Ladjamudin, 2005:43).
2.6.5 Ketepatan Waktu (Timeliness) Beberapa gejala yang menunjukan masalah ketepatan waktu diantaranya sebagai berikut (Ladjamudin, 2005:43): 1. Tumpukan pemasukan data mengalami kenaikan. 2. Banyaknya keluhan dari pemakai tentang kesulitan dalam menghubungi staf pemeliharaan program dan staf operasinya. 3. Waktu yang dibutuhkan untuk memperbaiki kesalahan program mengalami kenaikan.
26
2.6.6 Ekonomi (Economy) Biaya sistem informasi akan mengalami kenaikan sesuai dengan berjalannya waktu. Meskipun ada beberapa biaya yang mengalami penurunan dan sebagian akan naik. Banyak hal yang menunjukan kenaikan biaya, seperti konsultan pemeliharaan perangkat keras dan program atau perangkat lunak dan lain sebagainya (Ladjamudin, 2005:43).
2.6.7 Efisiensi (Eficiency) Efisiensi beberapa banyak produksi meningkat karena tambahan unit sumber daya dalam proses produksinya. Berikut beberapa rasio yang dapat dihitung dan dianalisis (Ladjamudin, 2005:44): 1. Keluaran atau nilai uang. 2. Transaksi tanpa kesalahan atau waktu. 3. Biaya kertas atau transaksi.
2.6.8 Dapat dipercaya (Reability) Sebuah
indikator penting
dari
sistem
informasi adalah dengan
memperhatikan reabilitasnya. Beberapa gejala tentang masalah reabilitasnya, antara lain sebagai berikut (Ladjamudin, 2005:44): 1. Biaya, yaitu tingginya varian rata-rata biaya setiap bulannya. 2. Tumpukan transaksi, yaitu jumlah transaksi yang tertunda atau ditolak. 3. Rata-rata kesalahan yang tidak dapat diprediksi, sehingga perlu menguranginya.
27
2.6.9 Kegunaan (Usability) Tidak ada hal yang lebih baik dari sebuah sistem yang dirancang sesuai dengan kriteria. Jika sistem sulit digunakan, berarti adalah masalah dalam sistem. Beberapa gejala yang menunjukan sedikit kegunaan sistem, antara lain sebagai berikut (Ladjamudin, 2005:44): 1. Lamanya waktu pelatihan bagi pemakai pemula. 2. Tingginya rata – rata kesalahan yang terjadi. 3. Naiknya kemangkiran dari sebagian pemakai komputer.
2.7
Diagram Arus Data (Data Flow Diagram) Ada berbagai alat yang dapat dipakai oleh peneliti untuk melakukan
kegiatan analisis dan perancangan suatu sistem. Di antara alat-alat tersebut ada yang berupa bagan arus yang selama ini sering digunakan, yaitu bagan arus dokumen (Document Flowchart) dan bagan arus olah (System Flowchart). Kebutuhan organisasi, baik dipandang dari sudut pemakaian sistem maupun dari sudut perancangan sistem, telah menuntut adanya alat lain yang dapat memperjelas, mempermudah dan dengan tingkat keterincian sesuai dengan perhatian
maupun
kepentingan
masing-masing
user
dan
perancang.
Perkembangan dari kedua alat yang telah disebutkan di atas, yaitu munculnya dua alat lain yakni yang dikenal dengan sebutan ICAM Definition Methode (Integrated Computer Aided Manufacturing Definition Methode) dan Diagram Arus Data (Data Flow Diagram).
28
Model analisis harus dapat mencapai tiga sasaran utama, yaitu menggambarkan apa yang dibutuhkan oleh pelanggan, membangun dasar bagi pembuatan desain perangkat lunak, membatasi serangkaian persyaratan yang dapat divalidasi begitu perangkat lunak dibangun. Diagram aliran data merupakan model dari sistem untuk menggambarkan pembagian sistem ke modul yang lebih kecil. Salah satu keuntungan menggunakan diagram aliran data adalah memudahkan pemakai atau user yang kurang menguasai bidang komputer untuk mengerti sistem yang akan dikerjakan (Ladjamudin, 2005:60).
2.7.1 Diagram Konteks Diagram konteks adalah diagram yang terdiri dari suatu proses dan menggambarkan ruang lingkup suatu sistem. Diagram konteks merupakan level tertinggi dari DFD yang menggambarkan seluruh input ke sistem atau output dari sistem. Ia akan memberi gambaran tentang keseluruhan sistem. Sistem dibatasi oleh boundary (dapat digambarkan dengan garis putus). Dalam diagram konteks hanya ada satu proses. Tidak boleh ada store dalam diagram konteks (Ladjamudin, 2005:64).
2.7.2 Diagram Nol (Overview Diagram) Diagram nol adalah diagram yang menggambarkan proses dari data flow diagram. Diagram nol memberikan pandangan secara menyeluruh mengenai sistem yang ditangani, menunjukan tentang fungsi-fungsi utama atau proses yang
29
ada, aliran data, dan external entity. Pada level ini sudah dimungkinkan adanya atau di gambarkannya data store yang digunakan. Untuk proses yang tidak rinci lagi pada level selanjutnya, simbol ‘*’ atau ‘P’ (functional primitive) dapat ditambahkan pada akhir nomor proses. Keseimbangan input dan output (balancing) antara diagram nol dengan diagram konteks yang terpelihara (Ladjamudin, 2005:64).
2.7.3 Diagram Rinci (Level Diagram) Diagram rinci adalah diagram yang menguraikan proses apa yang ada dalam diagram nol atau diagram level di atasnya. Di dalam satu level, biasanya tidak terdapat lebih dari 7 (tujuh) buah proses dan maksimal 9 (sembilan), bila lebih maka harus dilakukan dekomposisi (Ladjamudin, 2005:60).
2.8
Elemen Dasar Dari Diagram Aliran Data
2.8.1 Kesatuan Luar (External Entity) Sesuatu yang berada di luar sistem, tetapi ia memberikan data kedalam sistem atau memberikan data dari sistem, disimbolkan dengan suatu kotak notasi. External entity tidak termasuk bagian dari sistem. Bila sistem informasi dirancang untuk satu bagian maka bagian lain yang masih terkait menjadi external entity.
Gambar 2.3 External entity (Ladjamudin 2005:67)
30
2.8.2 Arus Data (Data Flow) Arus data merupakan tempat mengalirnya informasi dan digambarkan dengan garis yang menghubungkan komponen dari sistem. Arus data ditunjukan dengan arah panah dan garis diberi nama atas arus data yang mengalir. Arus data ini mengalir di antara proses, data store dan menunjukkan arus data dari data yang berupa yang berupa masukan untuk sistem atau hasil proses sistem
Gambar 2.4 Arus Data (Ladjamudin 2005:67) 2.8.3 Proses (Process) Proses merupakan apa yang dikerjakan oleh sistem. Proses dapat mengolah data aliran data masuk menjadi aliran data keluar. Proses berfungsi mentransformasikan satu atau beberapa data masukan menjadi satu beberapa data keluaran sesuai dengan spesifikasi yang diinginkan. Setiap proses memiliki satu atau beberapa satu atau beberapa masukan serta menghasilkan satu atau beberapa data keluarkan. Proses sering pula disebut bubble (Ladjamudin, 2005:60).
Gambar 2.5 Proses (Ladjamudin 2005:69)
31
2.8.4 Simpanan Data (Data Store) Simpanan data merupakan tempat penyimpanan data pengikat data yang ada dalam sistem. Data store dapat disimbolkan dengan sepasang dua garis sejajar atau dua garis dengan salah satu sisi samping terbuka. Proses dapat mengambil data dari atau memberikan data ke database.
Data Store Gambar 2.5 Data Store (Ladjamudin 2005:70)
2.8.5 Kamus Data Kamus data berfungsi membantu pelaku sistem untuk mengartikan aplikasi secara detail dan mengorganisasikan semua elemen data yang digunakan dalam sistem secara persis sehingga pemakai dan penganalisis sistem mempunyai dasar pengertian yang sama tentang masukan, keluaran dan proses. Kamus data sering disebut juga dengan sistem data dictionary adalah katalog fakta tentang data dan kebutuhan-kebutuhan informasi dari suatu sistem informasi.
Dengan
menggunakan
kamus
data,
analisis
sistem
dapat
mendefinisikan data yang mengalir di sistem dengan lengkap. Pada tahap analisis, kamus data digunakan sebagai alat komunikasi antara analisis sistem dengan pemakai sistem tentang data yang mengalir di sistem, yaitu tentang data yang masuk ke sistem informasi yang dibutuhkan oleh pemakai sistem. Pada tahap perancangan sistem, kamus data digunakan untuk merancang input, merancang laporan-laporan dan database. Kamus data dibuat berdasarkan arus data yang ada di DAD (Diagram Aliran Data). Arus data di DAD sifatnya
32
global, hanya ditujukan nama arus datanya saja. Keterangan lebih lanjut tentang struktur dari suatu arus data di DAD secara lebih terperinci dapat dilihat di Kamus Data. Kamus data memuat hal-hal sebagai berikut (Ladjamudin, 2005:70): 1. Nama Arus Data Nama arus data harus dicatat pada kamus data, sehingga mereka yang membaca DAD memerlukan penjelasan lebih lanjut tentang suatu arus data tertentu dan dapat langsung mencarinya dengan mudah di kamus data. 2. Alias. Alias atau nama lain dari data dapat ditulis bila. Untuk menyatakan nama lain dari suatu data elemen atau data store yang sebenarnya sama dengan data elemen atau data store yang telah ada. Alias terjadi karena kurang koordinasi antara beberapa analis sistem, misalkan analis sistem yang satu menggunakan EMPLOYEE, dan analis sistem yang lain menggunakan KARYAWAN. Namun keduanya memiliki pengertian yang sama. 3. Bentuk Data Bentuk data perlu dicatat di Kamus Data, karena dapat dipergunakan untuk mengelompokan kamus data ke dalam kegunaannya sewaktu perancangan sistem. 4. Arus Data Arus data menunjukan dari mana data mengalir dan kemana data menuju. Keterangan arus data ini perlu dicatat dikamus data untuk memudahkan mencari arus data di DAD.
33
5. Penjelasan Untuk memperjelas tentang makna dari arus data yang dicatat di kamus data, maka sebagian penjelasan dapat diisi dengan keterangan-keterangan tentang arus data tersebut.
2.9
Diagram Hubungan Antara Entitas (Entity Relationship Diagram/ ERD) ERD adalah suatu model jaringan yang menggunakan susunan data yang disimpan dalam sistem secara abstrak. ERD berbeda dengan DFD yang merupakan suatu model jaringan fungsi yang akan dilaksanakan oleh sistem, sedangkan ERD merupakan model jaringan data yang menekankan pada struktur-strukturnya dan relationship nya. Diagram hubungan entitas atau yang lebih dikenal dengan sebutan E-R Diagram, adalah notasi grafik dari sebuah model data atau sebuah model jaringan yang menjelaskan tentang data yang tersimpan (storage data) dalam sistem secara abstrak. Diagram hubungan entitas tidak menyatakan bagaimana memanfaatkan data, membuat data, mengubah data dan menghapus data (Ladjamudin, 2005:142).
2.9.1 Elemen-elemen Diagram Hubungan Entitas Entity Pada E-R Diagram, entity digambarkan dengan sebuah bentuk persegi panjang. Entity adalah sesuatu apa saja yang ada di dalam sistem, nyata maupun
34
abstrak dimana data tersimpan atau dimana terdapat data. Entitas diberi nama dengan kata benda dan dapat dikelompokkan dalam empat (4) jenis nama, yaitu orang, benda, lokasi, kejadian (terdapat waktu unsur di dalamnya).
2.10
Basis Data (Database) Ada beberapa definisi basis data dari beberapa orang ahli basis data adalah
sebagai berikut (Ladjamudin, 2005:129): 1.
Database adalah sekumpulan data store (bisa dalam jumlah yang sangat besar) yang tersimpan dalam magnetik disk, optical disk, magnetic drum atau media penyimpanan sekunder lainnya.
2.
Database adalah sekumpulan program-program aplikasi umum yang bersifat “batch” yang mengeksekusi dan memproses data secara umum (seperti pencarian, peremajaan, penambahan dan penghapusan terhadap data).
3.
Database terdiri dari data yang akan digunakan atau diperuntukkan terhadap banyak ‘user’, dimana masing-masing ‘user’ (baik menggunakan teknik pemrosesan yang bersifat batch atau online) akan menggunakan data tersebut sesuai dengan tugas dan fungsinya, dan ‘user’ lain dapat juga menggunakan data tersebut dalam waktu yang bersamaan.
4.
Database adalah koleksi terpadu dari data-data yang saling berkaitan dari suatu enterprise (perusahaan, instansi pemerintah atau swasta).
35
2.11
Normalisasi Ketika kita merancang suatu basis data untuk suatu sistem relasional,
prioritas utama dalam mengembangkan model data logical adalah dengan merancang suatu representasi data yang tepat bagi relationship dan constrain (batasannya). Kita harus mengidentifikasi suatu set relasi yang cocok, demi mencapai tujuan di atas. Teknik yang dapat kita gunakan untuk membantu mengidentifikasi relasi-relasi tersebut dinamakan Normalisasi. Normalisasi sering dilakukan sebagai suatu uji coba pada suatu relasi secara berkelanjutan untuk menentukan apakah relasi tersebut sudah baik atau masih melanggar aturan-aturan standar yang diberlakukan pada suatu relasi yang normal (sudah dapat dilakukan proses insert, update, delete dan modify pada satu atau beberapa atribut tanpa mempengaruhi integritas data dalam relasi tersebut). Proses normalisasi merupakan metode yang formal/standar dalam mengidentifikasi dasar relasi bagi primary key-nya dan dependensi fungsional diantara atribut-atribut dari relasi tersebut. Normalisasi akan membantu perancang basis data dengan menyediakan suatu ujicoba yang berurut yang dapat diimplementasikan pada hubungan individual, sehingga skema relasi dapat di normalisasi kedalam bentuk yang lebih spesifik untuk menghindari terjadinya error atau inkonsistensi data, bila dilakukan update terhadap relasi tersebut dengan Anomaly (Ladjamudin, 2005:168).
36
2.11.1 Beberapa Definisi Normalisasi Normalisasi terdiri dari beberapa definisi sebagai berikut (Ladjamudin, 2005:169): 1. Normalisasi adalah suatu proses memperbaiki/membangun dengan model data relasional, dan secara umum lebih tepat di koneksikan dengan model data logika. 2. Normalisasi adalah proses pengelompokan data kedalam bentuk tabel atau relasi atau file untuk menyatakan entitas dan hubungan mereka sehingga terwujud satu bentuk database yang mudah untuk dimodifikasi. 3. Normalisasi adalah suatu bentuk proses untuk mengidentifikasi “tabel” kelompok atribut yang memiliki ketergantungan yang sangat tinggi antara satu atribut yang dengan atribut lainnya. 4. Normalisasi bisa disebut juga sebagai proses pengelompokan atributatribut dari suatu relasi sehingga membentuk Well Structured Relation. Well Structured Relation
adalah sebuah relasi
yang jumlah
kerangkapan datanya sedikit (Minimum Amount of Redundancy), serta memberikan kemungkinan bagi user untuk melakukan Insert, Delete, Modify terhadap baris-baris data pada relasi tersebut, yang tidak berakibat terjadinya Error atau Inkonsistensi Data, yang disebabkan oleh operasi tersebut.
37
2.11.2 Bentuk Normal Kesatu (First Normal Form/ 1NF) Pada tahap ini dilakukan penghilangan beberapa grup elemen yang berulang agar menjadi satu harga tunggal yang berinteraksi diantara setiap baris pada suatu tabel dan setiap atribut harus mempunyai nilai data yang atomic (bersifat atomic value). Atom adalah zat terkecil yang masih memiliki sifat induknya, bila dipecah lagi maka ia tidak memiliki sifat induknya. Syarat normal kesatu (1-NF) (Ladjamudin, 2005:178). 1. Setiap data dibentuk dalam flat file, data dibentuk dalam satu record nilai dari field berupa “atomic value”. 2. Tidak ada set atribute yang berulang atau bernilai ganda. 3. Telah ditentukannya primery key untuk tabel/ relasi tersebut. 4. Tiap atribut hanya memiliki satu pengertian.
2.11.3 Bentuk Normal Kedua (Second Normal Form/ 2NF) Bentuk normal kedua didasari atas konsep full function dependency (keterangan tergantung fungsional sepenuhnya) yang dapat didefinisikan sebagai berikut (Ladjamudin, 2005:179): Jika A dan B atribut-atribut dari suatu relasi, B dikatakan full functional dependency (memiliki ketergantungan fungsional sepenuhnya) terhadap A, jika B adalah tergantung fungsional terhadap A, tetapi tidak secara tepat memiliki ketergantungan fungsional dari subset (himpunan bagian) dari A. Full
Functional
Sepenuhnya)
Dependency
(Ketergantungan
Fungsional
38
Suatu ketergantungan fungsional A
B adalah ketergantungan fungsional
sepenuhnya, jika perpindahan beberapa atribut dari A menghasilkan tepat satu pasangan pada atribut dari B. Suatu ketergantungan fungsional A
B adalah
ketergantungan fungsional sebagian, jika ada beberapa atribut yang dapat dihilangkan dari A sementara ketergantungan tersebut tetap berlaku/ berfungsi. Bentuk normal kedua memungkinkan suatu relasi memiliki composite key, yaitu relasi dengan primary key yang terdiri dari dua atribut atau lebih atribut. Suatu relasi yang memiliki single atribut untuk primary key-nya secara otomatis pada akhirnya menjadi 2-NF. Syarat normal kedua (2-NF): 1.
Bentuk data telah memenuhi kriteria bentuk normal kesatu.
2.
Atribute
bukan
(non-key)
haruslah
memiliki
ketergantungan
fungsional sepenuhnya (fully functional dependency) pada kunci utama/ primary key. Sehingga untuk membentuk normal kedua haruslah sudah ditentukan primary key-nya. Primary key tersebut haruslah lebih sederhana, lebih unik, dapat mewakili atribut lain yang menjadi anggotanya, dan lebih sering digunakan pada tabel/ relasi tersebut.
2.11.4 Bentuk Normal Ketiga (Third Normal Form/ 3NF) Walaupun relasi 2-NF memiliki redudansi yang lebih sedikit dari pada relasi 1-NF, namun relasi tersebut masih mungkin mengalami kendala bila terjadi anomali peremajaan (update) terhadap relasi tersebut.
39
Syarat normal ketiga (3-NF) (Ladjamudin, 2005:183): 1.
Bentuk data telah memenuhi kriteria bentuk normal kedua.
2.
Aribut buka kunci (non-key) haruslah tidak memiliki ketergantungan transistif, dengan kata lain suatu atribut bukan kunci
(non-key)
tidak boleh
memiliki
ketergantungan
fungsional terhadap atribut bukan kunci lainnya, seluruh atribut bukan kunci pada suatu relasi hanya memiliki ketergantungan fungsional terhadap primary key di relasi itu saja.
2.12
Pengujian Black-Box Pengujian black-box berfokus pada persyaratan fungsional perangkat
lunak. Pengujian black-box memungkinkan perekayasa perangkat lunak mendapatkan serangkaian kondisi input yang sepenuhnya menggunakan semua persyaratan fungsional untuk satu program. Pengujian black-box berusaha menemukan kesalahan dalam kategori sebagai berikut, (Ladjamudin, 2006:379): 1. Fungsi-fungsi yang tidak benar atau hilang, 2. Kesalahan interface, 3. Kesalahan dalam struktur data atau akses database external, 4. Kesalahan kinerja, 5. Inisialisasi dan kesalahan terminasi,
40
2.13
Visual Basic 6.0 Visual Basic adalah bahasa pemrograman untuk membuat program
aplikasi berbasis Windows. Visual basic sangat mudah dipelajari dan dipergunakan. Program aplikasi dibuat dalam sebuah Integrated Development Environtment (IDE). IDE memungkinkan programmer untuk membuat, menjalankan dan men-debug program Visual Basic dengan mudah. Visual Basic diturunkan dari bahasa pemrograman BASIC (Beginners AllPurposes Symbolic Instruction Code) yang berbasis DOS dan tidak mempunyai kemampuan membuat aplikasi GUI berbasis Windows. Bahasa Visual Basic cukup sederhana dan menggunakan kata-kata bahasa inggris yang umum digunakan dan tidak perlu lagi menghafalkan sintaks-sintaks maupun format-format bahasa yang bermacam-macam. Di dalam Visual Basic semuanya sudah disediakan dalam pilihan-pilihan yang tinggal diambil sesuai kebutuhan. Beberapa keistimewaan utama dari Visual Basic 6 ini diantaranya seperti, menggunakan platform pembuatan program yang diberi nama Developer Studio, yang memiliki tampilan dan sarana yang sama dengan Visual C++ dan Visual J++. Dengan begitu anda dapat bermigrasi atau belajar bahasa pemrograman lainya dengan mudah dan cepat, tanpa harus belajar dari nol lagi. Visual Basic 6.0 merupakan salah satu bahasa pemrograman visual basic. Dengan Visual Basic 6.0, anda dapat dengan mudah membuat suatu program aplikasi. Walaupun kemudahan diberikan dalam pembuatan program aplikasi, tetapi program aplikasi yang dihasilkan juga baik. Ini karena dalam pengembangan program aplikasi Visual Basic 6.0 didukung oleh banyak fasilitas.
41
Dalam membangun sebuah aplikasi database dengan Visual Basic 6.0, anda dapat melakukannya dengan mudah sesuai dengan keinginan anda. Dengan adanya kontrol-kontrol ActiveX yang mudah untuk digunakan, membuat lebih mudah lagi dalam membuat program aplikasi database (Mangkulo, 2003:1). Selain itu Visual Basic bisa diartikan seperti (Mangkulo 2003:3): 1. BASIC (Beginners All Purpose Symbolic Intruction Code) adalah bahasa pemrograman yang awalnya banyak digunakan pada aplikasi yang bersifat hobi di lingkungan Komputer Micro. Basic memberikan kemudahan kepada Programmer untuk membuat aplikasi dalam waktu yang relatif singkat dengan struktur program yang sederhana. 2. Berbasis GUI (Graphical User Interface), interaksi antara pengguna aplikasi dengan aplikasi dilakukan melalui antarmuka graphic. 3. Berbasis OOP (Object Oriented Programming), merupakan metode pemrograman modern yang sering disebut pemrograman generasi keempat (GL4) yang lebih banyak menguntungkan para programmer dalam membuat aplikasi. Salah satu keuntungan OOP adalah Reusability (kemampuan untuk digunakan kembali), yaitu komponenkomponen yang sudah pernah dibuat, baik dibuat sendiri maupun dibuat oleh pihak lain dapat diintergrasikan kembali dalam aplikasi yang baru.
42
2.14
SQL (Structured Query Language) SQL (Structured Query Language) adalah bahasa standar yang meliputi
perintah-perintah untuk menyimpan, menerima, memelihara dan mengatur aksesakses ke basis data serta digunakan untuk memanipulasi dan menampilkan data dari RDBMS (Relational Database Management System). SQL membuat programmer atau database administrator dapat melakukan hal-hal berikut ini (Sakti, 2000:6): 1. Memodifikasi struktur database. 2. Mengganti setting system security. 3. Menambah wewenang user pada database atau table. 4. Menampilkan informasi dari database. 5. Mengubah isi dari database. 6. Membuat keamanan data. 7. Menangani proses transaksi diantara aplikasi. 8. Mentransfer data antara database yang berbeda. Selain itu, SQL adalah bahasa standar komputer untuk mengakses dan memanipulasi database. Statement SQL digunakan untuk menerima, mengubah dan menghapus data. SQL bekerja dengan berbagai sistem database antara lain MS Access, DB2, Informix, MS SQL Server, Oracle, Sysbase dan lain-lain3.
3
http://rahmat.polonpdg.ac.id
43
2.15
Literatur Sejenis Dalam mengembangkan sistem informasi perparkiran ini peneliti
mendapatkan literatur sejenis dari kasus yang sama yaitu sistem informasi perparkiran yang terdapat pada suatu Mall. Pada contoh kasus tersebut maka peneliti mencoba membandingkan sistem yang akan dikembangkan dengan sistem yang telah dikembangkan pada Mall tersebut. Pada pengembangan sistem perparkiran Mall tersebut terdapat latar belakang yang menjadi penyebab kenapa sistem perparkiran pada Mall tersebut harus dikembangkan lagi menjadi terkomputerisasi. Latar belakang yang terjadi adalah kemudahan dalam pelayanan keamanan parkir kendaraan pemilik Mall dan pelanggan sangat diharapkan. Cara yang biasa dilakukan pemilik Mall adalah dengan memberikan karcis biasa kepada pelanggan tanpa menyimpan data nomor plat pelanggan, sedangkan bagi pemilik Mall harus mengarahkan lahan yang kosong untuk memarkirkan kendaraan milik pelanggan. Hal ini bukanlah cara yang efektif dan efisien, mengingat pada saat ini perangkat lunak sangat pesat perkembangannya. Pada rumusan masalah yang ada pada pengembangan sistem perparkiran Mall tersebut adalah bagaimana merancang dan mengimplementasikannya sistem informasi perparkiran motor dan mobil pada suatu Mall berbasis Client Server. Metode penelitian yang terdapat pada sistem informasi perparkiran Mall tersebut adalah metode pengembangan perangkat lunak sebagai berikut, analisis kebutuhan perangkat lunak, analisis dilakukan untuk mengolah data yang sudah didapat dan dikelompokkan sesuai dengan kebutuhan perancangan. Perancangan,
44
tahap ini dilakukan untuk menterjemahkan masalah yang telah dirancang ke dalam bahasa pemrograman yang telah ditentukan. Pengujian, setelah program dibuat, maka tahap ini merupakan uji coba terhadap program tersebut4. Dari permasalahan tersebut masih ada kekurangan yang terdapat dari sistem tersebut, yaitu pelanggan yang masuk dan ingin menggunakan lahan perparkiran yang ada di Mall tersebut masih harus berputar-putar dalam mendapatkan tempat parkir yang masih kosong.
4
http://one.indoskripsi.com/node/5716
BAB III METODE PENELITIAN
3.1
Metode Penelitian Dalam metode penelitian, peneliti melakukan dua tahap, yaitu dengan
menggunakan metode pengumpulan data dan metode pengembangan sistem dalam mengembangkan sistem perparkiran di Gedung Patra Jasa.
3.1.1
Metode Pengumpulan Data Pada metode pengumpulan data, peneliti melakukan beberapa hal seperti
studi pustaka, studi lapangan dan studi literatur. 1. Studi Pustaka Pada metode studi pustaka, peneliti mengumpulkan dan mempelajari buku-buku yang berhubungan dengan masalah yang dibahas dalam Pengembangan Sistem Perparkiran di Gedung Patra Jasa ini yang merupakan bagian data-data, yaitu: a.
Analisis & Desain Sistem Informasi karya Jogiyanto Hartono, MBA, Ph.D.
b.
Analisis dan Desain Sistem Informasi, karya Al-Bahra Bin Ladjamudin.
c.
SQL Server dengan Visual Basic 6.0 karya Firdaus.
d.
Pengantar Sistem Informasi, pengarang Syopiansyah Jaya Putra & A’ang Subiyakto.
45
46
e.
Metode Penelitian, Karya Nazir, Moh. Ph.D.
f.
Dasar-dasar Penelitian Ilmiah, karya Subana, H.M dan Sudrajat.
g.
Perangkaan Penelitian, karya Bintarto, HR.
Tulisan dan artikel dari internet dan buku-buku lain untuk selengkapnya dapat dilihat pada Daftar Pustaka.
2. Studi Lapangan Dalam melakukan studi lapangan terdapat beberapa hal sebagai berikut: 1. Observasi Dalam melakukan observasi, peneliti melihat langsung bagaimana data perparkiran yang sudah ada sebelumnya dijalankan menggunakan sistem yang sedang berjalan. Pada sistem yang sudah ada peneliti melihat masih terdapat kekurangan sehingga sistem perparkiran masih kurang efisien dan efektif, karena pelanggan masih harus berputar-putar dalam mencari lahan parkir yang kosong. Observasi dilakukan oleh peneliti pada tanggal 1 Juni 2009 sampai 30 Juni 2009 yang bertempat di Gedung Patra Jasa Jl.Gatot Subroto Kav 32-34 12850 Jakarta Selatan.
2. Wawancara, dalam hal ini peneliti melakukan wawancara atau tanya jawab baik kepada pengelola parkir maupun kepada pengguna lahan parkir, seperti menanyakan bagaimana proses dari awal kendaraan masuk? bagaimana penghitungan biaya parkir setelah pengguna lahan parkir memasuki area perparkiran dan
47
mengambil tiket parkir? bagaimana sistem membuat laporan kepada kepala parkir dan bagaimana para pengguna lahan parkir dalam mencari lahan parkir yang telah ada pada gedung Patra Jasa tersebut? 3. Kuesioner, dalam hal ini peneliti membagikan kuesioner kepada pengguna lahan parkir, pada kuesioner ini peneliti menanyakan apakah sistem perparkiran yang sudah ada sudah sangat baik atau belum? apakah kesulitan dalam mencari lahan parkir yang kosong dan lain sebagainya?
3. Studi Literatur Dalam hal ini peneliti membandingkan, antara sistem yang lama dengan sistem yang akan dikembangkan lebih memudahkan pengguna lahan parkir atau tidak dalam memanfaatkan lahan parkir yang tersedia. Selain itu peneliti juga membandingkan apakah sistem yang akan dikembangkan memiliki kelebihan dari sistem yang dibuat pada tempat lain yang telah menggunakan sistem informasi perparkiran yang telah terkomputerisasi.
3.1.2 Metode Pengembangan Sistem Dalam pengembangan Sistem Informasi Perparkiran ini, peneliti menggunakan metode terstruktur dengan model pendekatan SDLC (System Development Life Cycle) yakni pendekatan melalui beberapa tahap untuk menganalisis dan merancang sistem dimana sistem tersebut dikembangkan melalui penggunaan siklus kegiatan penganalisis dan pemakai secara spesifik.
48
Siklus hidup pengembangan sistem dapat diuraikan tahapan-tahapannya sebagai berikut: 1. Analisis (Analysis) 2. Desain/Perancangan (Design) 3. Implementasi (Implementation) 1. Analisis Sistem (Analysis) Untuk tahap
ini
peneliti
menganalisa prosedur dan melakukan
pengumpulan data-data untuk kebutuhan sistem usulan yakni berupa: data input, proses dan output sistem lama. Dari hasil analisa yang peneliti lakukan dari sistem yang sedang berjalan ditemukan bahwa sistem perparkiran di gedung Patra Jasa sudah sesuai dengan prosedur yang berlaku, namun pada sistem yang sedang berjalan masih terdapat kekurangan-kekurangan yang akan mempersulit pengguna lahan parkir dalam mencari lahan parkir.
2. Desain (Design) Pada tahap ini peneliti menggambarkan bagaimana suatu sistem dibentuk yang dapat berupa penggambaran, perancangan dan pembuatan layout sistem. Perancangan pada penelitian ini yaitu desain pemrograman yang terdiri dari design database, dan desain tampilan. Sedangkan untuk desain pertukaran data dan proses dipakai Data Flow Diagram atau DFD. Untuk lebih jelas peneliti menjabarkan sebagai berikut :
49
a. Perancangan Sistem: Dengan menggambarkan aliran data yang ada pada sistem perparkiran dengan menggunakan Data Flow Diagram atau DFD. b. Perancangan File: Merancang database sistem perparkiran pada gedung Patra Jasa, dimulai dengan merancang digram hubungan antar entitas ERD, normalisasi basis data dari 1 NF sampai 3 NF. c. Perancangan Masukan: Merancang form masukan berdasarkan dokumen masukan yang berjalan pada sistem perparkiran. d. Perancangan Keluaran Merancang form keluaran berdasarkan dokumen keluaran yang berjalan pada sistem perparkiran.
3. Implementasi (Implementation) Pada tahap ini dilakukan penulisan program aplikasi menggunakan bahasa pemrograman Visual Basic 6.0, kemudian dilakukan pengujian terhadap program tersebut. Setelah program diuji dan dinyatakan sudah dapat berjalan sesuai yang diharapkan, langkah selanjutnya adalah penginstalan program, pelatihan kepada petugas dan pengelola lahan parkir sebagai user serta membuat evaluasi untuk menentukan apakah sistem beroperasi secara tepat.
BAB IV ANALISIS & PERANCANGAN SISTEM
4.1
Gambaran Umum Koperasi Patra Jasa Koperasi Patra Jasa didirikan berdasarkan kuasa rapat pembentukan untuk
mendirikan koperasi oleh karyawan PT. Patra Jasa pada tanggal 2 Juni 1978. Tujuan utamanya adalah agar terbentuk suatu badan yang berperan untuk membina dan mengembangkan kesejahteraan pegawai di lingkungan Patra Jasa. Disamping itu pendirian Koperasi Patra juga bertujuan untuk menyelenggarakan bantuan dari pimpinan PT. Patra Jasa dan instansi lain untuk meningkatkan kesejahteraan pegawai yang dilaksanakan oleh koperasi, salah satu bagian yang dikelola oleh Koperasi Patra Jasa adalah bagian perparkiran. Dimana semua pelaporan yang terdapat pada kegiatan perparkiran diserahkan atau dilaporkan kepada GM Koperasi (Koperasi Patra Jasa 2008:7).
4.1.1 Organisasi Kelembagaan Koperasi Aspek hukum Koperasi Patra Jasa antara lain: 1. Badan Hukum No.1288/BH/I tanggal 17 April 1979. 2. Surat keterangan domisili No.302/I.824/2005 tanggal 26 Agustus 2005. 3. Surat pegukuhan kena pajak PKP 003262-0114 tanggal 17 April 1979. 4. Nomor Pokok Wajib Pajak 01.375.309.0-011.000
50
51
5. Surat Ijin Usaha Perdagangan (SIUP) 1386/0785-P/09-04/PB/IV/97 tanggal 4 Januari 1997. 6. Tanda Daftar Perusahaan No.090.325.200002 tanggal 15 Februari 2002. 7. Surat Ijin Usaha Jasa Konstruksi (SIUJK) No.09.04.2.79.95.21211 tanggal 4 Januari 1995.
4.1.2 Keanggotaan Keanggotaan Koperasi Patra Jasa terdiri dari sebagian besar pegawai PT. Patra Jasa, pensiunan, tenaga honorer, tenaga kontrak bahkan sebagian karyawan Koperasi masuk menjadi anggota dan khusus karyawan masih dalam lingkup terbatas. Dilihat dari prosentase keanggotaan ternyata lebih dari 95% pegawai PT. Patra Jasa masuk menjadi anggota Koperasi Patra Jasa.
4.1.3 Struktur Organisasi Organisasi adalah sistem yang saling mempengaruhi antara orang-orang dalam kelompok kerjasama dalam mencapai tujuan tertentu. Struktur organisasi merupakan bidang permasalahan dalam manajemen. Sebagai pedoman dalam melaksanakan tugas harus terdapat garis-garis dasar yang menetapkan pedoman pelaksanaan organisasi. Struktur organisasi dapat diartikan sebagai pembagian tugas dan wewenang yang sesuai dengan fungsi atau unit-unit yang ada mulai dari tingkat yang paling tinggi sampai ketingkat yang paling rendah dalam suatu organisasi.
52
Struktur organisasi Koperasi Patra Jasa yang mengelola sistem perparkiran dapat dilihat pada Gambar 4.1
GM Koperasi
Konsultan
Manajer Parkir
Staf Administrasi
Pengawas Lapangan
Petugas Pos
Gambar 4.1. Struktur Organisasi Parkir Gedung Patra Jasa. (Koperasi Patra Jasa 2008:20)
Petugas Lapangan
53
4.1.4 Uraian Tugas Tugas dari masing-masing bagian pada struktur organisasi Koperasi Gedung Patra Jasa adalah: 1. GM Koperasi a. Mengontrol semua aktivitas yang ada mencakup keseluruhan aktivitas teknis di Gedung Patra Jasa, salah satunya adalah perparkiran. 2. Konsultan a. Memberi masukan kepada manajer parkir tentang sistem parkir yang sedang berjalan. b. Melakukan perawatan/ maintenance terhadap sistem perparkiran. 3. Manajer Parkir a. Memberikan laporan kepada GM Koperasi tentang sistem perparkiran yang ada. b. Mengawasi tugas semua staf-stafnya. 4. Staf Administrasi a. Membuat laporan bulanan tentang segala aktivitas perparkiran. 5. Pengawas Lapangan a. Memberikan perintah dan tugas-tugas yang harus dikerjakan kepada petugas lapangan dan petugas pos. b. Melayani dan menerima pendaftaran pelanggan baru dan memprosesnya ke dalam sistem yang ada hingga menjadi pelanggan, serta mencabut data pelanggan yang telah ditetapkan.
54
6. Petugas Lapangan & Petugas Pos a. Melakukan segala kegiatan teknis yang terdapat di lapangan.
4.2
Pengembangan Sistem Pada perancangan sistem akan dibahas penggunaan metode SDLC untuk
membangun Sistem Perparkiran di Gedung Patra Jasa. Pembahasan akan dilakukan sesuai dengan fase-fase pada SDLC mulai dari Analysis, Design dan Implementation.
4.2.1 Analysis (Analisis) Sistem perparkiran di Gedung Patra Jasa sudah terkomputerisasi, sistem parkir yang sudah terkomputerisasi memang sangat membantu dalam melakukan kegiatan transaksi baik itu oleh petugas parkir maupun orang yang akan menggunakan fasilitas parkir tersebut. Dengan sistem parkir yang ada di Gedung Patra Jasa, pengguna lahan parkir masih mendapatkan kesulitan. Contohnya, pada saat pengguna lahan parkir mendapatkan tiket atau karcis parkir, pengguna lahan parkir masih harus berputarputar di area parkir tanpa mendapat kepastian apakah masih ada tempat parkir yang kosong atau tidak. Dengan dikembangkannya sistem perparkiran pada Gedung Patra Jasa, diharapkan pengguna lahan parkir bisa mengetahui dimana harus memarkirkan kendaraannya atau mengetahui apakah tempat parkir yang sudah disediakan sudah terisi penuh atau tidak. Pada tahap ini peneliti membuat perencanaan dimana sistem yang ada akan lebih mempermudah pengguna lahan parkir dalam menggunakan fasilitas lahan parkir, yaitu:
55
1. Kendaraan yang memasuki area gedung Patra Jasa akan mendapatkan karcis parkir yang akan diberikan oleh petugas pos parkir. Pada sistem yang lama atau sistem yang sedang berjalan, sistem hanya memberikan output berupa karcis parkir yang mencetak nomor plat kendaraan dan waktu kendaraan itu masuk ke area gedung. Dalam hal ini pengguna lahan parkir masih harus berputar-putar dalam mencari tempat parkir yang kosong tanpa adanya kepastian, sistem yang akan diajukan berupa sistem yang mendata nomor plat kendaraan, waktu masuk kendaraan dan nomor urut dimana kendaraan itu harus diparkirkan tanpa membuat pengguna lahan parkir berputar-putar untuk mencari lahan parkir yang kosong. 2. Pada sistem yang sedang berjalan, interface atau tampilan yang ada pada aplikasi perparkiran dirasakan masih kurang user friendly atau
masih
kurang mudah dalam penggunaannya. Sedangkan pada sistem yang diajukan interface atau tampilan pada aplikasi perparkiran di disain agar user friendly atau mudah digunakan.
56
4.2.1.1 Flowchart 1. Flowchart Sistem Berjalan
Gambar 4.2 Flowchart Transaksi
57
2. Flowchart Sistem Berjalan Pendaftaran dan Pencabutan Pelanggan
Gambar 4.3 Flowchart Pendaftaran dan Pencabutan Pelanggan
58
3. Flowchart Sistem Berjalan Laporan
Gambar 4.4 Flowchart Laporan
59
4.2.1.1
Konteks Diagram Sistem Perparkiran di Gedung Patra Jasa yang berjalan
Gambar 4.5 Diagram Konteks Sistem Berjalan
60
Dari sistem yang berjalan ditemukan masalah-masalah yang ada, yaitu: 1. Sistem yang ada masih belum bisa memastikan pengguna lahan parkir dalam mendapatkan tempat parkir yang pasti, sehingga pengguna lahan parkir masih harus berputar-putar di lingkungan gedung. 2. Kesalahan human error sering terjadi seperti, petugas pos dan lapangan tidak bisa mengetahui pasti apakah lahan parkir masih ada yang kosong atau tidak karena antara petugas pos dan petugas lapangan tidak bisa berkomunikasi untuk memastikan apakah tempat parkir masih tersedia atau tidak.
4.2.1.2 Pemecahan Masalah pada Sistem Berjalan Dari identifikasi masalah diatas maka dicari solusi yang dapat mengatasi masalah pada bagian penginputan data pada sistem perparkiran, maka diusulkan alternatif penyelesaian dengan menggunakan suatu program aplikasi perparkiran pada Gedung Patra Jasa dengan menggunakan Microsoft Visual Basic 6.0 sehingga mempermudah pengguna lahan parkir dan petugas parkir dalam mencari atau mendapatkan lahan parkir.
61
4.2.2 Desain (Design) Sebelum membuat sistem diperlukan rancangan untuk mempermudah dalam pengerjaannya, peneliti menggunakan alat bantu pembuatan sistem seperti DFD dan ERD. Berikut ini adalah beberapa rancangan untuk pengembangan sistem ini perparkiran pada Gedung Patra Jasa.
62
4.2.2.1
Data Flow Diagram 1. Konteks Diagram pada Sistem Perparkiran Gedung Patra Jasa
Gambar 4.6 DFD Diagram Konteks Sistem Usulan
63
4.2.2.1.1 Penjelasan Kamus Data Sistem Perparkiran a. Proses Nama Proses
:
Sistem Parkir.
Keterangan
:
Proses pendaftaran pelanggan baru, pencabutan daftar parkir, masuk dan keluarnya kendaraan serta pembuatan laporan.
b. Arus Data Masukan
:
- Daftar pelanggan baru (NIP, Plat.No). - Input daftar NIP, Plat.No. - Cabut daftar pelanggan. - Input cabut daftar. - Data Plat.No. - Karcis keluar. - Input karcis keluar. - Buat laporan kendaraan, lahan parkir, pelanggan. - Input data lahan.
64
Keluaran
:
- Printout daftar NIP, Plat.No. - Printout cabut daftar. - Karcis masuk. - Data laporan kendaraan, lahan parkir, karyawan.
c.
Entitas luar Nama Entitas
:
Manager Parkir.
Keterangan
:
Merupakan orang yang bertanggung jawab atas semua kegiatan yang terjadi di parkir gedung Patra Jasa.
Masukan
:
Data laporan kendaraan, lahan parkir, pelanggan.
Keluaran
:
-
Nama Entitas
:
Kendaraan.
Keterangan
:
Kendaraan yang didaftarkan atas nama pelanggan yang terdaftar.
Masukan
:
- Data Plat.No. - Karcis keluar.
Keluaran
:
Karcis Masuk.
Nama Entitas
:
Perusahaan.
Keterangan
:
Sebuah institusi yang ada di gedung Patra Jasa, institusi tersebut yang akan mendaftarkan atau mencabut pendaftaran pegawainya sebagai pelanggan pada parkir gedung Patra Jasa.
65
Masukan
:
- Daftar NIP, Plat.No. - Cabut Daftar Pelanggan.
Keluaran
:
- Printout daftar NIP, Plat.No. - Printout cabut daftar.
Nama Entitas
:
Staff administrasi.
Keterangan
:
Orang yang bertugas memvalidasi pendaftaran baru, pencabutan daftar, menginput data lahan parkir serta membuat laporan kepada manager parkir.
Masukan
:
- Input daftar NIP, Plat.No - Buat printout daftar NIP, Plat.No. - Input cabut daftar. - Buat printout cabut daftar. - Input data lahan.
Keluaran
:
-
Nama Entitas
:
Loket Masuk
Keterangan
:
Pos kendaraan masuk, dimana kendaraan akan diberikan karcis masuk kedalam gedung Patra Jasa
Masukan
:
Input Plat.No masuk.
Keluaran
:
-
Nama Entitas
:
Loket Keluar
66
Keterangan
:
Pos kendaraan keluar, dimana data kendaraan yang akan keluar di update.
Masukan
:
Input karcis keluar.
Keluaran
:
-
67
2. DFD Level Nol Sistem Perparkiran
Gambar 4.7 DFD Level Nol Usulan
68
4.2.2.1.2 Penjelasan Proses Diagram Overview Sistem Perparkiran a. Proses 1.0* Nama Proses
:
Masuk.
Masukan
:
- Data Plat.No. - Data Lahan. - Input Plat.No Masuk.
Keluaran
:
- Karcis Masuk. - Data Lahan Parkir. - Entry data Plat.No.
Ringkasan Proses
:
Mengisi
data
Plat.No
kendaraan
yang
masuk,
memvalidasi data Plat.No kendaraan masuk, mengupdate data Plat.No kendaraan masuk, dan mengupdate data lahan parkir yang dilakukan oleh petugas di loket masuk. b.
Proses 2.0* Nama Proses
:
Keluar.
Masukan
:
- Karcis Keluar. - Input karcis keluar.
Keluaran
:
- Update data lahan. - Update transaksi keluar. - Update data Plat.No.
69
Ringkasan Proses
:
Memvalidasi karcis keluar, mengupdate data lahan, mengupdate data Plat.No, mengupdate transaksi keluar yang dilakukan oleh petugas loket keluar.
c.
Proses 3.0* Nama Proses
:
Input Data Masuk.
Masukan
:
Input data lahan.
Keluaran
:
Entry data lahan.
Ringkasan Proses
:
Staff administrasi menginput data lahan, apabila ada penambahan atau pengurangan lahan parkir.
d.
Proses 4.0 Nama Proses
:
Daftar Baru.
Masukan
:
- Daftar NIP. - Daftar Plat.No. - Input Daftar NIP. - Input Daftar Plat.No - Buat Printout Daftar NIP. - Buat Printout Daftar Plat.No.
Keluaran
:
- Entry Data Plat.No. - Entry Data NIP. - Printout Daftar NIP OK. - Printout Daftar Plat.No OK.
70
Ringkasan Proses
:
Data kendaraan masuk yang diambil berupa data Plat.No yang akan masuk kedalam database, dari data Plat.No bisa diketahui apakah pemilik kendaraan tersebut pelanggan atau bukan.
e.
Proses 5.0 Nama Proses
:
Cabut Daftar.
Masukan
:
- Minta Cabut Daftar. - Buat Printout Cabut Daftar. - Input Cabut Daftar. - Informasi Data NIP. - Informasi Data Plat.No.
Keluaran
:
- Printout Cabut Daftar OK. - Update Data NIP. - Update Data Plat.No.
Ringkasan Proses
:
Pada saat kendaraan ingin keluar dari gedung, maka akan diketahui apakah kendaraan tersebut milik pelanggan atau bukan, yang dilihat dari Plat.No.
f.
Proses 6.0* Nama Proses
:
Laporan.
Masukan
:
- Informasi Data NIP.
71
- Input Laporan Kendaraan. - Input Laporan Lahan Parkir. - Input Laporan Karyawan. - Informasi Data Lahan Parkir. - Informasi Transaksi. Keluaran
:
- Data Laporan Kendaraan. - Data Laporan Lahan Parkir. - Data Laporan Pelanggan.
Ringkasan Proses
:
Manager menerima semua laporan yang terkait dengan kegiatan perparkiran dari sistem yang ada.
72
3. DFD Level Satu Sistem Pendaftaran Baru
Gambar 4.8 DFD Level Satu Sistem Pendaftaran Baru
73
4.2.2.1.3 Spesifikasi Proses Sistem yang Dirancang DFD Level 1 Daftar Baru a. Proses 4.1 * Nama Proses
:
Daftar Pelanggan Baru.
Masukan
:
- Daftar NIP. - Input NIP.
b.
Keluaran
:
Entry data NIP.
Uraian Proses
:
Mencatat data NIP dari pelanggan baru.
Nama Proses
:
Daftar Kendaraan.
Masukan
:
- Data Plat.No.
Proses 4.2*
- Input Plat.No. Keluaran
:
Entry Data Plat.No.
Uraian Proses
:
Kendaraan pelanggan baru yang didaftarkan berupa Plat.No.
c.
Proses 4.3* Nama Proses
:
Buat Printout.
Masukan
:
- Informasi Data Plat.No. - Informasi Data NIP. - Buat Printout.
Keluaran
:
- Printout Daftar NIP. - Printout Daftar Plat.No.
74
Ringkasan Proses
:
Data NIP dan Plat.No yang telah di daftarkan dibuat printoutnya sebagai bukti bahwa kendaraan telah didaftarkan sebagai kendaraan pelanggan parkir.
4. DFD Level Satu Sistem Pencabutan Pendaftaran
Gambar 4.9 DFD Level Satu Sistem Pencabutan Pendaftaran
75
4.2.2.1.4 Spesifikasi Proses Sistem yang Dirancang DFD Level 1 Cabut Daftar a. Proses 5.1 * Nama Proses
:
Cabut Daftar.
Masukan
:
- Cabut Daftar Pelanggan. - Input Cabut Daftar. - Informasi Data Plat.No.
Keluaran
:
- Data Terbaru. - Update Data Plat.No.
Uraian Proses
:
Perusahaan
mencabut
pendaftaran
karyawannya
sebagai pelanggan parkir karena sudah tidak bekerja
b.
:
lagi disana atau karena lain hal.
Nama Proses
:
Buat Printout.
Masukan
:
- Data Terbaru.
:
- Buat Printout Cabut Daftar.
Proses 5.2*
- Informasi Data NIP. Keluaran
:
- Update Data NIP. - Printout Cabut Daftar OK.
Uraian Proses
:
Kendaraan dicabut pendaftarannya oleh perusahaan mendapatkan bukti printout.
76
4.2.2.2
Entity Relationship Diagram (ERD)
Gambar 4.10 ERD Sistem Usulan
77
4.2.2.2.1 Menentukan Atribut.
Tabel 4.1 Attribut No. 1.
ENTITY Pelanggan
ATRIBUTE NIP.
No. 3.
ENTITY Transaksi
ATRIBUTE Tanggal_Masuk.
Alamat_Pelanggan. Kode_Lahan. Jabatan_Pelanggan.
Kode_Transaksi.
Nama_Pelanggan.
Jam_Masuk. Jam_Keluar. Tarif. Tanggal_Keluar.
2.
Kendaraan
Kelas_Kendaraan.
4.
Lahan
Kode_Lahan. Alamat_Gedung.
Plat_No. Nomor_Pass.
78
4.2.2.3 Normalisasi Pada proses normalisasi terbagi dalam beberapa tahapan yaitu sebagai berikut: 1. Unnormalized Form (tidak normal) Bentuk tidak normal terdiri dari:
Gambar 4.11 Unnormalized Form (Bentuk Tidak Normal) Bentuk ini merupakan bentuk awal yang dipakai dalam proses perancangan database.
79
2. First Normal Form (1NF) Dari bentuk unnormalized akan menjadi bentuk 1NF yaitu dengan memisahkan data pada field-field yang tepat.
Gambar 4.12 First Normal Form (1NF) Namun dalam bentuk normal kesatu masih banyak kekuranganya yaitu : a. Tabel Kendaraan, Tabel Lahan Parkir dan Tabel Karyawan belum terpisah. b. Masih saling ketergantungan fungsi.
80
3. Second Normal Form (2NF) Perbaikan normal kedua dengan mencari kunci-kunci field yang dapat dipakai sebagai patokan dalam pencarian dan sifatnya unik.
Gambar 4.13 Second Normal Form (2NF)
81
4.2.2.4 Kamus Data Kamus Data atau Data Dictionary yang ada pada Sistem Parkir Gedung Patra Jasa terdiri dari: 1. Tabel Pelanggan = *NIP + Nama_Pelanggan + Alamat_Pelanggan + Jabatan_Pelanggan. 2. Tabel Kendaraan = *Plat_No + Kelas_Kendaraan + Nomor_Pass + NIP. 3. Tabel Transaksi = *Kode_Transaksi + Jam_Masuk + Jam_Keluar + Tanggal_Masuk + Tanggal_Keluar + Tarif + Plat_No + Kode_Lahan. 4. Tabel Lahan = *Kode_Lahan + Alamat Gedung.
82
4.2.2.5 Rancangan Antarmuka Pemakai Rancangan antarmuka dipergunakan untuk mengimplementasikan aturan-aturan dan analisis yang telah dibentuk sedemikian rupa.
4.2.3.5.1 Rancangan Input Untuk Staf 1. Rancangan Form Menu Utama
Menu Utama Sistem Informasi Parkir Master Data
Transaksi
Laporan
Keluar
Background
Gambar 4.14 Menu Utama Sistem Informasi Parkir
Pada Form Utama hanya ditampilkan menu-menu yang dapat diakses oleh user.
83
2. Rancangan Form Input Data Pelanggan INPUT DATA PELANGGAN
NIP Nama Pelanggan Jabatan Alamat No.Telepon
Tambah NIP
Simpan
Nama Pelanggan
Hapus Jabatan
Keluar Alamat Pelanggan
Gambar 4.15 Form Input Data Pelanggan
Pada Form Input Data Lahan, user dapat menambahkan data pelanggan baru, user juga dapat memperbaharui maupun menghapus data-data pelanggan yang telah ada.
84
3. Rancangan Form Input Data Kendaraan
INPUT DATA KENDARAAN NIP Nama Pelanggan Plat Nomor No.Pass Kelas Kendaraan
Tambah NIP
Simpan
Nama Pelanggan
Hapus Plat Nomor
Keluar No Pass
Kelas Kendaraan
Gambar 4.16 Form Input Data Kendaraan
Pada Form Input Data Kendaraan, user dapat menambahkan data kendaraan sesuai dengan data pelanggan dimana 1 (satu) kendaraan dimiliki oleh 1 (satu) pelanggan.
85
4. Rancangan Form Input Data Lahan INPUT DATA LAHAN Kode Lahan Nama Lahan Lokasi
Tambah Kode Lahan
Simpan Nama Lahan
Hapus
Batal
Keluar
Lokasi
Gambar 4.17 Form Input Data Lahan
Pada Form Input Data Lahan, user dapat menambahkan data lahan apabila dibutuhkan lahan tambahan atau ada pengurangan data lahan parkir.
86
5. Rancangan Form Update User Account UPDATE USER ACCOUNT User Password Lama Password Baru Konfirmasi Password Login
Simpan
Ubah
Hapus
Batal
Keluar
Gambar 4.18 Form Update User Account
Pada Form Update User Account, user dapat menambahkan account administrator ataupun operator yang akan bertugas.
87
6. Rancangan Form Transaksi Kendaraan Masuk INPUT TRANSAKSI KENDARAAN MASUK
Tanggal
Jam Masuk
Plat.No
NIP & No.Pass
View
Kelas Kendaraan Kode Lahan Simpan
Exit
Refresh
Gambar 4.19 Form Transaksi Kendaraan Masuk
Pada Form Transaksi Kendaraan Masuk, bisa dilihat bagaimana jalannya transaksi kendaraan masuk.
88
7. Rancangan Form Transaksi Kendaraan Keluar INPUT TRANSAKSI KENDARAAN KELUAR
Tanggal Jam Keluar Plat.No
Cek Tarif
Simpan
Exit
Gambar 4.20 Form Transaksi Kendaraan Keluar
Pada Form Transaksi Kendaraan Keluar, bisa dilihat bagaimana jalannya transaksi kendaraan keluar. Jika kendaraan pelanggan maka tarif yang tertera adalah 0.Rp (Nol Rupiah), jika kendaraan bukan pelanggan yang tertera maka tarif yang dikenakan sesuai dengan ketentuan administrasi yang ada.
89
8. Rancangan Printout Karcis Masuk Karcis Parkir
Nomor Plat Kendaraan
No.Pass Kode Lahan Nama Lahan :
: 01 A-1
Tanggal Masuk
:
17-Nop-2009
Jam Masuk
:
16:37.05
Tarif : - 1 Jam Pertama : Rp.1000.- 1 Jam Berikutnya : Rp.500.Kendaraan Yang Parkir Bukan Pada Tempatnya Akan Diderek ke Area Karantina Dan Dikenakan Denda Sebesar Rp.500.000
Gambar 4.21 Printout Karcis Masuk
Pada Printout Karcis Masuk, merupakan salah satu bukti bahwa kendaraan pelanggan atau umum sudah memasuki area Gedung Patra Jasa.
90
9. Rancangan Printout Karcis Keluar Karcis Parkir
Nomor Plat Kendaraan Rupiah
Kode Lahan
: 01
Tanggal Masuk
:
17/10/2009
Nama Lahan
: A-1
Jam Masuk
:
16:37.05
Nama Pelanggan :
Jam Keluar
:
16:55.52
Alamat Pelanggan :
Gambar 4.22 Printout Karcis Keluar
Pada Printout Karcis Keluar, bisa dilihat berapa tarif yang dikenakan untuk setiap kendaraan yang keluar dari Gedung Patra Jasa.
91
10. Rancangan Form View Lahan
View Lahan Kode Lahan
Nama Lahan
Lokasi
Status
Keterangan
NoPlat
Refresh
Gambar 4.23 Form View Lahan
Pada form view Lahan ini operator bisa sudah berapa banyak kendaraan yang berada di lahan parkir, dan juga bisa mengetahui kendaraan dengan No.Plat berapa sajakah yang sedang terparkir.
92
11. Rancangan Form Cetak Laporan Kendaraan
Cetak Laporan Kendaraan
Jenis Print No.Plat
Cetak
Exit
Gambar 4.24 Form Cetak Laporan Kendaraan.
Pada Form Cetak Laporan Kendaraan, administrator bisa mencetak No.Plat kendaraan berapa saja yang pernah menggunakan fasilitas parkir yang ada, baik pelanggan maupun bukan pelanggan.
93
12. Rancangan Form Cetak Laporan Lahan
Cetak Laporan Lahan
Jenis Print Nama Lahan
Cetak
Exit
Gambar 4.25 Form Cetak Laporan Lahan
Pada Form Cetak Laporan Lahan, administrator bisa mencetak data lahan parkir yang tersedia di Gedung Patra.
94
13. Rancangan Form Cetak Laporan Pelanggan
Cetak Laporan Pelanggan
Jenis Print Nama Pelanggan
Cetak
Exit
Gambar 4.26 Form Cetak Laporan Pelanggan
Pada Form Cetak Laporan Pelanggan, administrator bisa mencetak nama yang telah terdaftar sebagai pelanggan parkir di Gedung Patra Jasa, baik cetak secara keseluruhan maupun perorangan.
95
14. Rancangan Form Cetak Laporan Transaksi
Cetak Laporan Transaksi
Dari Tanggal
Nama Pelanggan
Cetak
Exit
Gambar 4.27 Form Cetak Laporan Transaksi
Pada Form Cetak Laporan Transaksi, administrator dapat mencetak hasil laporan transaksi sesuai dengan tanggal yang diinginkan.
96
15. Rancangan Form Laporan Data Kendaraan Pelanggan Laporan Data Kendaraan Pelanggan No.
Nama Pelanggan
No.Pass
Kelas Kendaraan
Gambar 4.28 From Laporan Data Kendaraan Pelanggan
Pada Form Laporan Data Kendaraan Pelanggan, administrator bisa mendapatkan data kendaraan pelanggan yang sudah terdaftar di Parkir Gedung Patra Jasa.
97
16. Rancangan Form Laporan Data Lahan Parkir Laporan Data Lahan Parkir No.
Kode Lahan
Nama Lahan
Lokasi
Gambar 4.29 Form Laporan Data Lahan Parkir
Pada Form Laporan Data Lahan Parkir, administrator bisa melihat dan melaporkan kepada Manager berapa banyak lahan parkir yang tersedia saat ini.
98
17. Rancangan Form Laporan Data Pelanggan Laporan Data Pelanggan No
NIP
Nama Pelanggan
Jabatan
Alamat Pelanggan
No.Telp
Gambar 4.30 Form Laporan Data Pelanggan
Pada Form Laporan Data Pelanggan, administrator bisa melihat dan melaporkan kepada manager siapa sajakah dan berapa jumlah orang yang telah terdaftar sebagai pelanggan parkir di Gedung Patra Jasa.
99
18. Rancangan Form Laporan Transaksi Kendaraan Laporan Transaksi Kendaraan Tanggal
Kode Lahan
Nama Lahan
Lokasi
Jam Masuk
Tarif
Jam Keluar
Total
Gambar 4.31 Form Laporan Transaksi Kendaraan
Pada Form Laporan Transaksi Kendaraan, administrator bisa melihat dan melaporkan kepada manager transaksi yang ada sesuai dengan waktu yang diinginkan.
100
4.2.3 Penerapan (Implementasi) 4.2.3.1
Perangkat Keras (Hardware) Dalam implementasi rancangan Sistem Perparkiran, perangkat keras
yang peneliti gunakan adalah Laptop Acer 5050ANWXMi dengan spesifikasi antara lain : 1. Processor
: AMD Turion(tm) 64 Mobile Technology 2.2 Ghz
2. Memory
: 512 MB DDR2
3. Hardisk
: 80 GB
4. VGA Card
: ATI Radeon Xpress 1100 – 1280 x 800 (32 bit) (60Hz)
5. Monitor
: 14 inc LCD Laptop
6. DVD ROM
: Acer DVR-RW
7. Printer
: Canon MP160
4.2.3.2 Perangkat Lunak (Software) Pada pembuatan Sistem Informasi Parkir yang diajukan ini, peneliti menggunakan Microsoft Visual Basic 6.0 untuk bahasa pemrogramanya, SQL Server untuk database-nya, peneliti menggunakan Adobe Photoshop 7.0 dan CorelDraw 12 untuk mengolah gambar. Untuk penerapannya, sistem ini digunakan hanya untuk pengelola lahan parkir saja dan tidak untuk umum.
101
4.2.3.3
Pengujian Sistem Pada pengujian sistem, peneliti melakukan testing terhadap sistem
informasi parkir ini dengan menggunakan metode blackbox testing. Pada blackbox testing, cara pengujian hanya dilakukan dengan menjalankan atau mengeksekusi unit atau modul, kemudian diamati apakah hasil dari unit itu sesuai dengan proses bisnis yang diinginkan. Pada blackbox testing ini, peneliti hanya melakukan input data dan melihat output-nya apakah sesuai dengan proses bisnis yang diharapkan (Fatta 2007:172).
Tabel 4.2 Testing Account Hasil Yang Diharapkan
Hasil
Keterangan Level = Admin
No.
Rancangan Proses
1.
Masuk Menu Utama Account admin
Sesuai
Menampilkan submenu Master Data Menampilkan Form Input Data Pelanggan Mengisi Data Pelanggan
Sesuai Sesuai
4.
Isi Pengguna, Sandi dan klik tombol “Ok” Klik Menu “Master Data” Klik Submenu “Data Pelanggan” Klik tombol “Tambah”
5.
Klik tombol “Simpan”
Sesuai
6. 7. 8. 9.
Klik tombol “Ubah” Klik tombol “Batal” Klik tombol “Hapus” Klik tombol “Exit”
10. 11. 12.
Klik Submenu “Data Lahan” Klik tombol “Tambah” Klik tombol “Simpan”
13.
Klik tombol “Ubah”
Data Pelanggan tersimpan dalam database Data Pelanggan diubah Data Pelanggan batal diinput/refresh Data Pelanggan dihapus Keluar dari Form Input Data Pelanggan Menampilkan Form Input Data Lahan Mengisi Data Lahan Data Lahan tersimpan dalam database Data Lahan diubah
2. 3.
Sesuai
Form diisi
Sesuai Sesuai Sesuai Sesuai Sesuai Sesuai Sesuai Sesuai
Form diisi
102
14.
Klik tombol “Batal”
Data Lahan batal diinput/ refresh
Sesuai
15.
Klik tombol “Hapus”
Data Lahan dihapus
Sesuai
16.
Klik tombol “Exit”
Keluar dari Form Input Data Lahan
Sesuai
17.
Menampilkan Form Input Data Kendaraan Pelanggan Mengisi Data Kendaraan Pelanggan
Sesuai
18.
Klik Submenu “Data Kendaraan” Klik tombol “Tambah”
19.
Klik tombol “Simpan”
Sesuai
20.
Klik tombol “Ubah”
Data Kendaraan Pelanggan tersimpan dalam database Data Kendaraan Pelanggan diubah
21.
Klik tombol “Batal”
Sesuai
22.
Klik tombol “Hapus”
Data Kendaraan Pelanggan batal diinput/refresh Data Kendaraan dihapus
23.
Klik tombol “Exit”
Sesuai
24. 25.
Klik Submenu “User Account” Klik tombol “Simpan”
26.
Klik tombol “Ubah”
Keluar dari Form Input Data Kendaraan Pelanggan Menampilkan Form Update User Account Data User Account Tersimpan dalam database Data User Account diubah
27.
Klik tombol “Batal”
Sesuai
28.
Klik tombol “Hapus”
Data User Account batal diinput/refresh Data User Account dihapus
29.
Klik tombol “Exit”
Sesuai
30.
Klik Menu “Transaksi”
31. 32.
Klik Submenu “Kendaraan Masuk” Klik tombol “View”
33.
Klik tombol “Simpan”
34.
Klik tombol “Exit”
35.
Klik Submenu “Kendaraan Keluar” Klik tombol “Cek”
Keluar dari Form Update User Account Menampilkan submenu Transaksi Kendaraan Masuk/Keluar Menampilkan Form Transaksi Kendaraan Masuk Menampilkan Peta Lahan Parkir yang tersedia Data Transaksi Kendaraan Masuk Tersimpan dalam database Keluar dari Form Transaksi Kendaraan Masuk Menampilkan Form Transaksi Kendaraan Keluar Menampilkan Tagihan dari Transaksi Kendaraan
36.
Sesuai
Form diisi
Sesuai
Sesuai
Sesuai Sesuai
Form diisi
Sesuai
Sesuai
Sesuai Sesuai Sesuai Sesuai
Form diisi
Sesuai Sesuai Sesuai
Form diisi
103
37.
Klik tombol “Simpan”
38.
Klik tombol “Exit”
39.
Klik Submenu “View Lahan” Klik Menu “Laporan”
Data Transaksi Kendaraan Keluar Tersimpan dalam database Keluar dari Form Transaksi Kendaraan Keluar Menampilkan Form Lahan Parkir yang sudah terisi Kendaraan Menampilkan submenu Laporan
Sesuai
Menampilkan Form Cetak Laporan Pelanggan Memilih Data yang akan dicetak
Sesuai
43.
Klik Submenu “Laporan Pelanggan” Pilih Combobox “Jenis Print” Klik tombol “Cetak”
Mencetak Data Laporan Pelanggan
Sesuai
44.
Klik tombol “Exit”
Sesuai
45.
47.
Klik Submenu “Laporan Kendaraan” Pilih Combobox “Jenis Print” Klik tombol “Cetak”
Keluar dari Form Cetak Data Pelanggan Menampilkan Form Cetak Laporan Kendaraan Memilih Data yang akan dicetak Mencetak Data Laporan Kendaraan
Sesuai
48.
Klik tombol “Exit”
Sesuai
49.
51.
Klik Submenu “Laporan Lahan” Pilih Combobox “Jenis Print” Klik tombol “Cetak”
Keluar dari Form Cetak Data Kendaraan Menampilkan Form Cetak Laporan Lahan Memilih Data yang akan dicetak Mencetak Data Laporan Lahan
Sesuai
52.
Klik tombol “Exit”
Keluar dari Form Cetak Data Lahan
Sesuai
53.
Menampilkan Form Cetak Laporan Transaksi Memilih Data yang akan dicetak
Sesuai
55.
Klik Submenu “Laporan Transaksi” Pilih Combobox “dari tanggal/sampai tanggal” Klik tombol “Cetak”
Mencetak Data Laporan Transaksi
Sesuai
56.
Klik Menu “Keluar”
Keluar dari Menu Aplikasi Parkir
Sesuai
40. 41. 42.
46.
50.
54.
Sesuai Sesuai Sesuai
Sesuai
Form diisi
Sesuai Sesuai
Form diisi
Sesuai Sesuai
Sesuai
Form diisi
BAB V KESIMPULAN & SARAN
Berdasarkan pada hal-hal yang peneliti telah bahas pada bab-bab sebelumnya, peneliti menarik beberapa kesimpulan dan saran, sebagai berikut:
5.1
Kesimpulan 1. Pengembangan sistem perparkiran di gedung Patra Jasa menjadi alat bantu petugas parkir, sehingga mempermudah pencarian data-data yang berkaitan dengan perparkiran, baik untuk pelanggan yang terdaftar maupun yang bukan pelanggan. 2. Menentukan jalannya sistem perparkiran yang terkomputerisasi dengan menggunakan pengurutan dalam penempatan parkir kendaraan, dimana pengguna lahan parkir mempunyai kepastian dalam mendapatkan lahan parkir yang masih kosong.
5.2
Saran Untuk pengembangan sistem ini lebih lanjut bisa ditambahkan dengan pemetaan lahan parkir secara digital, agar lebih mempermudah pengguna lahan parkir dalam mencari lahan parkir yang kosong.
104
DAFTAR PUSTAKA
Al Fatta, Hanif. 2007. Analisis dan Perancangan Sistem Informasi, Andi, Yogyakarta,
Gulo, W. 2002. Metodologi Penelitian. Jakarta: Grasindo (Gramedia Widiasarana Indonesia).
Jogiyanto, HM. MBA., Akt., Ph.D. 1999. Sistem Informasi Pendekatan Terstruktur Teori dan Praktek Aplikasi Bisnis. Yogyakarta.
Jogiyanto, HM. MBA., Akt., Ph.D. 2005. Analisis dan Desain Sistem Informasi Andi, Yogyakarta.
Koperasi Patra Jasa. 2008. Gambaran Umum & Tugas Pokok Koperasi Patra Jasa. Jakarta.
Ladjamudin, Al-Bahra. 2005. Analisis dan Desain Sistem Informasi. Graha Ilmu Yogyakarta.
Ladjamudin, Al-Bahra. 2006. Rekayasa Perangkat Lunak. Graha Ilmu Yogyakarta.
Mangkulo, Hengky Alexander. 2003. Membangun Sistem Database dengan Visual Basic 6.0. PT. Elex Media Komputindo.
Nazir, Moh. Ph.D. 2005. Metode penelitian. Ciawi: Ghalia Indonesia.
Putra, S.J & A’ang Subiyakto. 2006. Pengantar Sistem Informasi. UIN Jakarta Press. Jakarta.
Sakti, Nufransa Wira. 2000. Membuat Database dengan Menggunakan SQL. PT. Elex Media Komputindo.
105
106
Subana, H.M dan Sudrajat. 2005. Dasar-dasar penelitian ilmiah. Bandung: CV. Pustaka Setia.
Sutabri, Tata. 2004. Analisa Sistem Informasi. Andi. Yogyakarta.
Sutarto, Rachmad Hakim. IlmuKomputer.com.
2003.
http://rahmat.polinpdg.ac.id 8 Juni 2009, pkl. 22.14 WIB
http://one.indoskripsi.com/node/5716 6 Agustus 2009, pkl. 09.53 WIB.
Tutorial
Adobe
Photoshop
7.
Lampiran 1 HASIL WAWANCARA 1. Bagaimana proses pendaftaran sebagai pelanggan pada parkir gedung Patra Jasa? Jawab : Semua pegawai yang ingin mendaftarkan dirinya sebagai pelanggan di parkir Patra Jasa ini harus melakukan proses pendaftaran. Data yang diberikan kepada kami pengelola lahan parkir yaitu: a. Nama Pelanggan b. Alamat Pelanggan c. Nama Perusahaan d. Plat Nomor Kendaraan Setelah mereka mengisi formulir pendaftaran, maka mereka telah terdaftar sebagai pelanggan parkir di gedung Patra Jasa dan mendapatkan nomor induk pelanggan dari kami.
2. Bagaimana alur dari awal kendaraan masuk hingga kendaraan keluar? Jawab : Awal dari kendaraan masuk yaitu, petugas yang berada di pos parkir masuk akan mengisi data di komputer berupa plat nomor kendaraan dan jenis kendaraan. Setelah plat nomor di input kedalam komputer dan diproses oleh sistem, maka petugas pos akan memberikan karcis masuk sebagai bukti bahwa kendaraan tersebut sudah masuk kedalam area gedung Patra Jasa. Lalu pengguna kendaraan akan memarkirkan
L1
kendaraan mereka ditempat yang telah ada. Apabila kendaraan ingin keluar dari gedung Patra Jasa maka pada saat kendaraan melewati pos parkir keluar plat nomor kendaraan akan diproses kembali kedalam sistem yang ada untuk menyesuaikan jam masuk kendaraan tersebut.
3. Bagaimana proses pencabutan sebagai pelanggan di parkir gedung Patra Jasa? Jawab : Jika melakukan pencabutan sebagai pelanggan maka pegawai akan memberikan data-data berupa: a. Nama Pelanggan b. Alamat Pelanggan c. Nama Perusahaan d. Plat Nomor Kendaraan Jika mereka sudah melakukan pencabutan sebagai pelanggan, maka kami akan menghapus data-data mereka yang ada di daftar pelanggan.
4. Apa saja laporan yang dibuat oleh bagian administrasi parkir gedung Patra Jasa? Jawab : Laporan yang dibuat oleh kami yaitu berupa Laporan data kendaraan yang terdaftar, laporan transaksi parkir, laporan jumlah lahan parkir, dan berapa banyaknya pelanggan yang mendaftar atau mencabut datanya dari parkir gedung Patra Jasa.
L2
5. Berapa banyak jumlah pegawai di parkir gedung Patra Jasa? Jawab : Pegawai parkir di gedung Patra Jasa berjumlah 17 orang yaitu, 1 orang Manager Parkir, 2 orang staf administrasi, 2 orang pengawas lapangan, 2 orang petugas pos parkir dan 10 orang petugas parkir lapangan
L3
Lampiran 2 TAMPILAN APLIKASI 1. Menu Utama
L4
2. Fom Input Data Pelanggan
L5
3. Form Input Data Lahan
L6
4. Form Input Data Kendaraan
L7
5. Form Update User Account
L8
6. Form Transaksi Kendaraan Masuk
L9
7. Form Transaksi Kendaraan Keluar
L10
8. Form View Lahan
L11
9. Form Peta Lahan Parkir
L12
10. Form Cetak Laporan Pelanggan
11. Form Cetak Laporan Lahan
L13
12. Form Cetak Laporan Kendaraan Pelanggan
13. Form Cetak Laporan Transaksi
L14
Lampiran III
Private Sub Form_Load() Call BukaDatabase
Form Menu Login Set rs = New ADODB.Recordset rs.Open "SELECT * From Pasword ORDER BY UserName", _ conn, adOpenDynamic, adLockBatchOptimistic
Private Sub cmbPassword_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
txtUser.Text = "" txtPass.Text = "" 'txtUser.SetFocus End Sub
Private Sub cmbPilih_KeyPress (Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
Private Sub Image2_Click() frmInputPass.Show End Sub Private Sub msedata_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub
Private Sub cmdcancel_Click() End End Sub
Sub Kosong() txtUser.Text = "" txtPass.Text = "" cmbPassword.Text = "" End Sub Private Sub cmdOk_Click()
Private Sub Pilih_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii)))
Dim sql As String
End Sub
sql = "SELECT * FROM Pasword " & _ "Where UserName='" & txtUser.Text & "'" & _ "And Pass ='" & txtPass.Text & "'" & _ "And LogIn ='" & cmbPassword.Text & "'"
Private Sub txtDatap_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii)))
Set rs = conn.Execute(sql) If rs.EOF Then MsgBox "UserName atau password anda salah, ulangi lagi", vbOKOnly + vbInformation, "Kesalahan pengentrian" txtUser.SetFocus txtPass.Text = "" Else If cmbPassword.Text = "Administrator" Then
End Sub Private Sub txtdata_KeyPress (Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub
ElseIf cmbPassword.Text = "In" Then FrmMenuUtama.mnuData.Enabled = False FrmMenuUtama.mnuLaporan.Enabled = False FrmMenuUtama.mnuLine4.Enabled = False ElseIf cmbPassword.Text = "Out" Then FrmMenuUtama.mnuData.Enabled = False FrmMenuUtama.mnuLaporan.Enabled = False FrmMenuUtama.mnuIn.Enabled = False End If
Private Sub txtPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If KeyAscii = Asc(UCase(Chr(KeyAscii)))
FrmMenuUtama.Show 'FrmMenuUtama.StatusBar1.Panels(2) = txtUser.Text 'frmMnuUtama.Enabled = True Unload Me End If
End Sub
End Sub
L15
Private Sub mnuLpKar_Click() frmLapPelg.Show End Sub Private Sub mnuLpKendaraan_Click() frmLapKndr.Show End Sub
Form Menu Utama Private Sub MDIForm_Activate() If StatusBar1.Panels(1) = "Administrator" Then ' mnuProgram.Enabled = True ' mnuKelas.Enabled = True 'mnuSertifikat.Enabled = True ElseIf StatusBar1.Panels(1) = "In" Then mnuData.Enabled = False mnuLaporan.Enabled = False
Private Sub mnuUserAccount_Click() frmUpdatePass.Show End Sub Private Sub mnuviewlahan_Click() frmViewLahan.Show End Sub
ElseIf StatusBar1.Panels(1) = "Out" Then mnuData.Enabled = False mnuLaporan.Enabled = False
Form Input Data Pelanggan End If 'frmDatang.Show
Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i End With End Sub
'StatusBar1.Panels(2) = Format(Date, "dd-mmmmyyyy") End Sub 'Private Sub MDIForm_Load() 'frmDatang.Show 'StatusBar1.Panels(1) = frmPassword.cmbPassword 'StatusBar1.Panels(4) = frmPassword.txtUser 'End Sub Private Sub mnuIn_Click() frmTransaksiIn.Show End Sub
Private Sub Command1_Click() Unload Me End Sub
Private Sub mnuKaryawan_Click() frmKaryawan.Show End Sub
Private Sub Form_Activate() TbTambah.SetFocus 'TbSimpan.Picture = LoadPicture (App.Path & "\" & "\gambar\simpan.JPG") End Sub
Private Sub mnuKeluar_Click() End End Sub
Private Sub Form_Load() Me.Left = 4000 Me.Top = 200 Me.Width = 7300 Me.Height = 6300
Private Sub mnuKendaraan_Click() frmKendaraan.Show End Sub
' Move (Screen.Width - Width) / 2, (Screen.Height Height) / 3
Private Sub mnuLahan_Click() frmLahan.Show End Sub
Call AturListView(ListKaryawan, "NIP", 10, "Nama Pelanggan", 30, _ "Jabatan", 20, "Alamat Pelanggan", 50, "No Telepon", 15)
Private Sub mnuLapLahan_Click() frmLapLahan.Show 'crLahan.ReportFileName = App.Path + "\" + "rptLahan.rpt" ' crLahan.SelectionFormula = cari ' crLahan.WindowState = crptMaximized ' crLahan.RetrieveDataFiles 'crLahan.Action = 1 End Sub
Call BukaDatabase Call TdkAktif TbSimpan.Enabled = False TbKeluar.Enabled = False TbHapus.Enabled = False Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Karyawan ORDER BY NIK", _ conn, adOpenDynamic, adLockBatchOptimistic ListKaryawan.ListItems.Clear While Not rs.EOF Set View = ListKaryawan.ListItems.Add View.Text = rs!NIK
Private Sub mnuLapTrans_Click() frmCetakTransaksi.Show End Sub Private Sub mnuLine4_Click() frmTransaksiOut.Show End Sub
L16
Kars = "" End If txtData(0).Refresh End Sub
View.SubItems(1) = rs!Nama View.SubItems(2) = rs!Jabatan View.SubItems(3) = rs!AlmtKar View.SubItems(4) = rs!NoTlp rs.MoveNext Wend End Sub Sub TdkAktif() Dim i As Integer For i = 0 To 4 txtData(i).Enabled = False Next i End Sub Sub Aktif() Dim i As Integer For i = 0 To 4 txtData(i).Enabled = True Next i End Sub Sub FormKosong() Dim i As Integer For i = 0 To 4 txtData(i).Text = "" Next i End Sub
Private Sub ListKaryawan_DblClick() On Error Resume Next Tampil_Karyawan (True), (ListKaryawan.SelectedItem.Text) 'TbSimpan.Caption = "Ubah" TbSimpan.Picture = LoadPicture (App.Path & "\" & "\gambar\ubah.JPG") TbSimpan.Enabled = True TbHapus.Enabled = True TbTambah.Enabled = False TbSimpan.Caption = "Ubah" 'Call FormKondisi(True) txtData(0).Enabled = False 'TbKeluar.Caption = "Batal" Call normal txtData(1).SetFocus End Sub Private Sub TbHapus_Click() konfirmasi = MsgBox("Anda yakin akan menghapus data ini!", _ vbYesNo + vbQuestion, "Information") If konfirmasi = vbYes Then SqlDelete = "DELETE FROM Karyawan " _ & " WHERE NIK='" & txtData(0).Text & "'" conn.Execute SqlDelete, , adCmdText ListKaryawan.Refresh Form_Load FormNormal Else FormNormal End If End Sub Private Sub TbKeluar_Click()
Sub FormNormal() FormKosong 'FormKondisi (False) TbSimpan.Enabled = False 'TbSimpan.Picture = LoadPicture (App.Path & "\" & "\gambar\Simpan.JPG") 'TbKeluar.Enabled = False TbHapus.Enabled = False 'TbKeluar.Picture = LoadPicture (App.Path & "\" & "Keluar.JPG") TbTambah.Enabled = True TbSimpan.Caption = "Simpan" End Sub
FormNormal Sub BuatKode() Dim Kd_Kons As String
End Sub Sub normal() Dim i As Integer For i = 0 To 4 txtData(i).Enabled = True Next i End Sub
If rs.BOF Then txtData(0).Text = "K001" Exit Sub Else rs.Requery If Not (rs.EOF Or rs.BOF) Then rs.MoveLast End If Kd_Kar = rs!NIK Kd_Kar = Val(Right(Kd_Kar, 3)) Kd_Kar = Kd_Kar + 1 End If
Private Sub TbSimpan_Click() If txtData(1).Text = "" Then MsgBox "Nama Karyawan masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(1).SetFocus ElseIf txtData(2).Text = "" Then MsgBox "Jabatan Karyawan masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(2).SetFocus ElseIf txtData(3).Text = "" Then MsgBox "Alamat masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(3).SetFocus ElseIf txtData(4).Text = "" Then MsgBox "No Telephone masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(4).SetFocus Else If TbSimpan.Caption = "Simpan" Then
If Val(Kd_Kar) < 10 Then Kd_Kar = "K00" & Kd_Kar txtData(0).Text = Kd_Kar ElseIf Val(Kd_Kar) < 100 Then Kd_Kar = "K0" & Kd_Kar txtData(0).Text = Kd_Kar ElseIf Val(Kd_Kar) < 1000 Then Kd_Kons = "K" & Kd_Kar txtData(0).Text = Kd_Kar Else MsgBox "Kapasitas Karyawan tidak memadai!", _ vbInformation + vbOKOnly, "Perhatian"
L17
TbSimpan.Picture = LoadPicture (App.Path & "\" & "\gambar\Simpan.JPG") SqlInsert = "" SqlInsert = "INSERT INTO Karyawan" _ & " (NIK,Nama,Jabatan,AlmtKar, NoTlp) " _ & " VALUES ('" & txtData(0).Text & "','" _ & txtData(1).Text & "','" _ & txtData(2).Text & "','" _ & txtData(3).Text & "','" _ & txtData(4).Text & "')" conn.Execute SqlInsert, , adCmdText Form_Load FormNormal ElseIf TbSimpan.Caption = "Ubah" Then TbSimpan.Picture = LoadPicture (App.Path & "\" & "\gambar\Ubah.JPG") SqlUpdate = "" SqlUpdate = "UPDATE Karyawan" _ & " SET Nama='" & txtData(1).Text & "', " _ & " Jabatan='" & txtData(2).Text & "', " _ & " AlmtKar='" & txtData(3).Text & "', " _ & " NoTlp='" & txtData(4).Text & "' " _ & " WHERE NIK='" & txtData(0).Text & "'" conn.Execute SqlUpdate, , adCmdText Form_Load FormNormal End If End If TbKeluar.Enabled = False End Sub Private Sub TbTambah_Click() Call Aktif 'Call FormKondisi(True) Call BuatKode txtData(0).Enabled = False TbTambah.Enabled = False TbSimpan.Enabled = True TbKeluar.Enabled = True 'TbKeluar.Picture = LoadPicture (App.Path & "\" & "Batal.JPG") txtData(1).SetFocus End Sub
Private Sub txtdata_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If
Private Sub Tampil_Karyawan (X As Boolean, MKODE As String) On Error Resume Next Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Karyawan ", _ conn, adOpenDynamic, adLockBatchOptimistic With rs If .RecordCount > 0 Then .MoveFirst If X = True Then .Find ("NIK='" & Trim(MKODE) & "'") Else .Find ("Nama='" & Trim(MKODE) & "'") End If If Not .EOF Then txtData(0).Text = .Fields("NIK") txtData(1).Text = .Fields("Nama") txtData(2).Text = .Fields("Jabatan") txtData(3).Text = .Fields("AlmtKar") txtData(4).Text = .Fields("NoTlp") Else MsgBox "Record tidak ada", vbInformation, "Cek Data" FormNormal End If End With End Sub
End Select End Sub
Select Case Index Case 4 Dim StrAngka As String StrAngka = "0123456789 " If KeyAscii > 26 Then If InStr(StrAngka, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End If Case 0
If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If 'Case 1 'If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then ' Beep ' KeyAscii = 0 ' End If 'Case 2 ' If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then ' Beep ' KeyAscii = 0 ' End If
Form Input Data Lahan Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i End With End Sub
Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load()
L18
vbInformation + vbOKOnly, "Information" txtData(1).SetFocus ElseIf cmbNmLhn.Text = "" Then MsgBox "Nama Lahan masih kosong!", _ vbInformation + vbOKOnly, "Information" cmbNmLhn.SetFocus
Me.Left = 3000 Me.Top = 200 Me.Width = 7800 Me.Height = 5600 ' Move (Screen.Width - Width) / 2, (Screen.Height Height) / 3
Else If TbSimpan.Caption = "Simpan" Then SqlInsert = "" SqlInsert = "INSERT INTO Lahan" _ & " (NoLhn,NamaLhn,Lokasi) " _ & " VALUES ('" & txtData(0).Text & "','" _ & cmbNmLhn.Text & "','" _ & txtData(1).Text & "')" conn.Execute SqlInsert, , adCmdText Form_Load FormNormal ElseIf TbSimpan.Caption = "Ubah" Then SqlUpdate = "" SqlUpdate = "UPDATE Lahan" _ & " SET NamaLhn='" & cmbNmLhn.Text & "', " _ & " Lokasi='" & txtData(1).Text & "' " _ & " WHERE NoLhn='" & txtData(0).Text & "'" conn.Execute SqlUpdate, , adCmdText
Call AturListView(ListLahan, "Kode Lahan", 30, "Nama Lahan", 30, _ "Lokasi", 40) Call BukaDatabase TbSimpan.Enabled = False TbHapus.Enabled = False Set rs = New ADODB.Recordset rs.Open "SELECT * From Lahan ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic ListLahan.ListItems.Clear While Not rs.EOF Set View = ListLahan.ListItems.Add View.Text = rs!NoLhn View.SubItems(1) = rs!NamaLhn View.SubItems(2) = rs!Lokasi rs.MoveNext Wend End Sub
Form_Load FormNormal End If End If End Sub
Sub FormNormal() FormKosong 'FormKondisi (False) TbSimpan.Enabled = False TbHapus.Enabled = False 'TbKeluar.Caption = "Keluar" TbTambah.Enabled = True TbSimpan.Caption = "Simpan" End Sub Private Sub TbHapus_Click() konfirmasi = MsgBox("Anda yakin akan menghapus data ini!", _ vbYesNo + vbQuestion, "Information") If konfirmasi = vbYes Then SqlDelete = "DELETE FROM Lahan" _ & " WHERE NoLhn='" & txtData(0).Text & "'" conn.Execute SqlDelete, , adCmdText ListLahan.Refresh Form_Load FormNormal Else FormNormal End If End Sub Private Sub TbKeluar_Click()
Private Sub TbTambah_Click() Call BuatKode txtData(0).Enabled = False TbTambah.Enabled = False TbSimpan.Enabled = True ' TbKeluar.Caption = "Batal" End Sub Private Sub txtdata_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub Sub FormKosong() Dim i As Integer For i = 0 To 1 txtData(i).Text = "" Next i End Sub Private Sub ListLahan_DblClick() On Error Resume Next Tampil_Lahan (True), (ListLahan.SelectedItem.Text) TbSimpan.Caption = "Ubah" TbSimpan.Enabled = True TbHapus.Enabled = True TbTambah.Enabled = False
FormNormal End Sub Private Sub TbSimpan_Click() If txtData(0).Text = "" Then MsgBox "No Lahan Karyawan masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(0).SetFocus ElseIf txtData(1).Text = "" Then MsgBox "Nama Lahan Nomor Karyawan masih kosong!", _
'Call FormKondisi(True) txtData(0).Enabled = False 'TbKeluar.Caption = "Batal"
L19
txtData(1).SetFocus End Sub
End With End Sub
Private Sub Tampil_Lahan(X As Boolean, MKODE As String) On Error Resume Next Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Lahan", _ conn, adOpenDynamic, adLockBatchOptimistic With rs If .RecordCount > 0 Then .MoveFirst If X = True Then .Find ("NoLhn='" & Trim(MKODE) & "'") Else .Find ("NamaLhn='" & Trim(MKODE) & "'") End If If Not .EOF Then txtData(0).Text = .Fields("NoLhn") cmbNmLhn.Text = .Fields("NamaLhn") txtData(1).Text = .Fields("Lokasi") Else MsgBox "Record tidak ada", vbInformation, "Cek Data" FormNormal End If End With End Sub
Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Me.Left = 3000 Me.Top = 200 Me.Width = 7800 Me.Height = 5600 ' Move (Screen.Width - Width) / 2, (Screen.Height Height) / 3 Call AturListView(ListLahan, "Kode Lahan", 30, "Nama Lahan", 30, _ "Lokasi", 40) Call BukaDatabase TbSimpan.Enabled = False TbHapus.Enabled = False Set rs = New ADODB.Recordset rs.Open "SELECT * From Lahan ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic ListLahan.ListItems.Clear While Not rs.EOF Set View = ListLahan.ListItems.Add View.Text = rs!NoLhn View.SubItems(1) = rs!NamaLhn View.SubItems(2) = rs!Lokasi rs.MoveNext Wend End Sub
Sub BuatKode() Dim No_Lhn As String If rs.BOF Then txtData(0).Text = "01" Exit Sub Else rs.Requery If Not (rs.EOF Or rs.BOF) Then rs.MoveLast End If No_Lhn = rs!NoLhn No_Lhn = Val(No_Lhn) No_Lhn = No_Lhn + 1 End If
Sub FormNormal() FormKosong 'FormKondisi (False) TbSimpan.Enabled = False TbHapus.Enabled = False 'TbKeluar.Caption = "Keluar" TbTambah.Enabled = True TbSimpan.Caption = "Simpan" End Sub Private Sub TbHapus_Click() konfirmasi = MsgBox("Anda yakin akan menghapus data ini!", _ vbYesNo + vbQuestion, "Information") If konfirmasi = vbYes Then SqlDelete = "DELETE FROM Lahan" _ & " WHERE NoLhn='" & txtData(0).Text & "'" conn.Execute SqlDelete, , adCmdText ListLahan.Refresh Form_Load FormNormal Else FormNormal End If End Sub Private Sub TbKeluar_Click()
If Val(No_Lhn) < 10 Then No_Lhn = "0" & No_Lhn txtData(0).Text = No_Lhn ElseIf Val(No_Lhn) < 90 Then No_Lhn = "" & No_Lhn txtData(0).Text = No_Lhn Else MsgBox "Kapasitas Lahan tidak memadai!", _ vbInformation + vbOKOnly, "Perhatian" Kars = "" End If End Sub Form Input Data Kendaraan Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i
FormNormal End Sub
L20
TbSimpan.Caption = "Ubah" TbSimpan.Enabled = True TbHapus.Enabled = True TbTambah.Enabled = False
Private Sub TbSimpan_Click() If txtData(0).Text = "" Then MsgBox "No Lahan Karyawan masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(0).SetFocus ElseIf txtData(1).Text = "" Then MsgBox "Nama Lahan Nomor Karyawan masih kosong!", _ vbInformation + vbOKOnly, "Information" txtData(1).SetFocus ElseIf cmbNmLhn.Text = "" Then MsgBox "Nama Lahan masih kosong!", _ vbInformation + vbOKOnly, "Information" cmbNmLhn.SetFocus
'Call FormKondisi(True) txtData(0).Enabled = False 'TbKeluar.Caption = "Batal" txtData(1).SetFocus End Sub Private Sub Tampil_Lahan(X As Boolean, MKODE As String) On Error Resume Next Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Lahan", _ conn, adOpenDynamic, adLockBatchOptimistic With rs If .RecordCount > 0 Then .MoveFirst If X = True Then .Find ("NoLhn='" & Trim(MKODE) & "'") Else .Find ("NamaLhn='" & Trim(MKODE) & "'") End If If Not .EOF Then txtData(0).Text = .Fields("NoLhn") cmbNmLhn.Text = .Fields("NamaLhn") txtData(1).Text = .Fields("Lokasi") Else MsgBox "Record tidak ada", vbInformation, "Cek Data" FormNormal End If End With End Sub
Else If TbSimpan.Caption = "Simpan" Then SqlInsert = "" SqlInsert = "INSERT INTO Lahan" _ & " (NoLhn,NamaLhn,Lokasi) " _ & " VALUES ('" & txtData(0).Text & "','" _ & cmbNmLhn.Text & "','" _ & txtData(1).Text & "')" conn.Execute SqlInsert, , adCmdText Form_Load FormNormal ElseIf TbSimpan.Caption = "Ubah" Then SqlUpdate = "" SqlUpdate = "UPDATE Lahan" _ & " SET NamaLhn='" & cmbNmLhn.Text & "', " _ & " Lokasi='" & txtData(1).Text & "' " _ & " WHERE NoLhn='" & txtData(0).Text & "'" conn.Execute SqlUpdate, , adCmdText
Sub BuatKode() Dim No_Lhn As String
Form_Load FormNormal End If End If End Sub
If rs.BOF Then txtData(0).Text = "01" Exit Sub Else rs.Requery If Not (rs.EOF Or rs.BOF) Then rs.MoveLast End If No_Lhn = rs!NoLhn No_Lhn = Val(No_Lhn) No_Lhn = No_Lhn + 1 End If
Private Sub TbTambah_Click() Call BuatKode txtData(0).Enabled = False TbTambah.Enabled = False TbSimpan.Enabled = True ' TbKeluar.Caption = "Batal" End Sub
If Val(No_Lhn) < 10 Then No_Lhn = "0" & No_Lhn txtData(0).Text = No_Lhn ElseIf Val(No_Lhn) < 90 Then No_Lhn = "" & No_Lhn txtData(0).Text = No_Lhn Else MsgBox "Kapasitas Lahan tidak memadai!", _ vbInformation + vbOKOnly, "Perhatian" Kars = "" End If End Sub
Private Sub txtdata_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub Sub FormKosong() Dim i As Integer For i = 0 To 1 txtData(i).Text = "" Next i End Sub
Form User Account
Private Sub ListLahan_DblClick() On Error Resume Next Tampil_Lahan (True), (ListLahan.SelectedItem.Text)
L21
vbInformation + vbOKOnly, "Information" txtUser.SetFocus
Private Sub cmbPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
ElseIf txtPass(1).Text = "" Then MsgBox "Password masih kosong!", _ vbInformation + vbOKOnly, "Information" txtPass(1).SetFocus ElseIf cmbPassword.Text = "" Then MsgBox "Log In masih kosong!", _ vbInformation + vbOKOnly, "Information" cmbPassword.SetFocus Else
Private Sub cmdcancel_Click() Unload Me End Sub Private Sub cmdOk_Click() If txtUser.Text = "" Then MsgBox "User Name masih kosong!", _ vbInformation + vbOKOnly, "Information" txtUser.SetFocus ElseIf txtPass(0).Text = "" Then MsgBox "Password masih kosong!", _ vbInformation + vbOKOnly, "Information" txtPass(0).SetFocus ElseIf txtPass(1).Text = "" Then MsgBox "Password masih kosong!", _ vbInformation + vbOKOnly, "Information" txtPass(1).SetFocus ElseIf cmbPassword.Text = "" Then MsgBox "Log In masih kosong!", _ vbInformation + vbOKOnly, "Information" cmbPassword.SetFocus Else
SqlInsert = "" SqlInsert = "INSERT INTO Pasword" _ & " (UserName,Pass,LogIn) " _ & " VALUES ('" & txtUser.Text & "','" _ & txtPass(2).Text & "','" _ & cmbPassword.Text & "')" conn.Execute SqlInsert, , adCmdText Call Kosong End If End Sub Private Sub Form_Load() Me.Top = 100 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 4570 Me.Width = 7800 Call BukaDatabase
SqlUpdate = "" SqlUpdate = "UPDATE Pasword" _ & " SET Pass='" & txtPass(2).Text & "', " _ & " LogIn='" & cmbPassword.Text & "' " _ & " WHERE UserName='" & txtUser.Text &
Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Pasword ORDER BY UserName", _ conn, adOpenDynamic, adLockBatchOptimistic End Sub Sub hapus() konfirmasi = MsgBox("Anda yakin akan menghapus data ini!", _ vbYesNo + vbQuestion, "Information") If konfirmasi = vbYes Then SqlDelete = "DELETE FROM Pasword " _ & " WHERE UserName='" & txtUser.Text & "'" conn.Execute SqlDelete, , adCmdText Call Kosong Else Call Kosong End If End Sub Private Sub txtPass_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab Select Case Index Case 2 If txtPass(2).Text <> txtPass(1).Text Then MsgBox "Password yang anda masukan tidak sama", vbOKOnly, "WARNING" txtPass(1).Text = "" txtPass(2).Text = "" txtPass(1).SetFocus Else cmbPassword.SetFocus End If End Select End If
"'" conn.Execute SqlUpdate, , adCmdText End If Call Kosong End Sub Private Sub Command1_Click() Call Kosong Call tidak_Aktif End Sub Sub tidak_Aktif() Command1.Enabled = False Command2.Enabled = False cmdOk.Enabled = False Command3.Enabled = False End Sub Sub Kosong() txtUser.Text = "" txtPass(0).Text = "" txtPass(1).Text = "" txtPass(2).Text = "" cmbPassword.Text = "" txtUser.SetFocus End Sub Private Sub Command2_Click() Call hapus End Sub Private Sub Command3_Click() If txtUser.Text = "" Then MsgBox "User Name masih kosong!", _
L22
Next i txtData(12).Text = "B" End Sub
End Sub Private Sub txtUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If
Private Sub cmdRefresh_Click() Call BukaDatabase
If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If
Set rs = New ADODB.Recordset Set Rst = New ADODB.Recordset rs.Open "SELECT * From Lahan ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic Rst.Open "SELECT * From Transaksi ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic
Command1.Enabled = True End Sub
txtData(0).Text = Format(Date, "dd-mm-yyyy") 'txtData(1).Text = Format(Time, "dd-mmm-yyyy") txtData(12).Text = "B" txtData(4).Text = "Mobil" txtData(9).Text = 0 txtData(7).Text = 0 End Sub
Private Sub txtUser_LostFocus()
If txtUser.Text <> "" Then sql = " Select * From Pasword " & _ " WHERE UserName = '" & txtUser.Text & "'" Set rs = conn.Execute(sql)
Private Sub cmdSimpan_Click() Call lahan Adodc2.Refresh DataGrid1.Refresh
If rs.EOF Then konf = MsgBox("User Name tidak ada, apakah anda akan input data baru????", vbYesNo + vbInformation) If konf = vbYes Then txtPass(0).Enabled = False txtPass(1).SetFocus Command3.Enabled = True cmdOk.Enabled = False Command2.Enabled = False End If Else cmdOk.Enabled = True Command1.Enabled = True Command3.Enabled = False Command2.Enabled = True txtPass(0).Text = rs.Fields("Pass")
If txtData(2).Text = "" Then MsgBox "No Plat masih kosong!", _ vbInformation + vbOKOnly, "Information" 'txtData(4).SetFocus Else sql = " Select PlatNo From inTransaki " & _ " WHERE PlatNo = '" & Text7.Text & "'" Text11.Text = "" Set rs = conn.Execute(sql) 'MsgBox (sql) If rs.EOF Then 'MsgBox (sql) Else Text11.Text = rs.Fields(0) '.Fields("JamMasuk") 'txtLahan.Text = rs.Fields("NoLhn") End If rs.Close If Text11 <> "" Then 'MsgBox ("Plat Nomor Ini sedang Parkir") Else With Adodc1.Recordset .AddNew !NoLhn = txtData(5).Text !JamMasuk = Format(txtData(1).Text, "hh:mm:ss") '!JamKeluar = Format(txtData(1).Text, "hh:mm:ss") !Almt = txtData(8).Text !Tarif = Val(txtData(9).Text) !tgl = Format(txtData(0).Text, "dd-mm-yyyy") !PlatNo = Text7.Text !NoPass = txtData(13).Text Adodc1.Recordset.Update
End If rs.Close End If End Sub
Form Transaksi Masuk Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i End With End Sub Sub Kosong() Dim i As Integer For i = 2 To 11 txtData(i).Text = ""
End With Dim msk, kel, jam As Date msk = Format(txtData(1).Text, "hh:mm:ss") kelu = Format(txtData(1).Text, "hh:mm:ss")
L23
txtData(6).Text = DataGrid2.Columns(1).Value End If
jam = Format(txtData(0).Text, "dd-mm-yyyy") jj = "0" SqlInsert = "" SqlInsert = "INSERT INTO TransakSi" _ &" (NoLhn,JamMasuk,JamKeluar,Almt,Tarif,Tgl,PlatNo,N oPass) " _ & " VALUES ('" & txtData(5).Text & "','" & msk & "','" _ & kelu & "','" & txtData(8).Text & "',convert(money,'" & Val(txtData(9).Text) & "'),'" & jam & "','" & Text7.Text & "','" & txtData(13).Text & "')" conn.Execute SqlInsert, , adCmdText 'conn.Execute (SqlInsert)
Do While DataGrid2.Columns(3).Value = 1 .MoveNext 'Text2.Text = DataGrid2.Columns(3).Value txtData(5).Text = DataGrid2.Columns(0).Value txtData(6).Text = DataGrid2.Columns(1).Value Loop End With txtData(4).Text = "Mobil" txtData(12).SetFocus End Sub Private Sub Form_Load() Me.Top = 200 Me.Left = (Screen.Width - Me.Width) / 2
SqlUpdate = "" SqlUpdate = "UPDATE Lahan" _ & " Set Status=" & Val(Text1.Text) & " " _ & " WHERE NoLhn='" & txtData(5).Text &
Me.Width = 9200 Me.Height = 5320
"'" conn.Execute SqlUpdate, , adCmdText Adodc2.Refresh DataGrid1.Refresh
Call BukaDatabase Set rs = New ADODB.Recordset Set Rst = New ADODB.Recordset rs.Open "SELECT * From Lahan ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic Rst.Open "SELECT * From Transaksi ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic
'Call lahan Call cetak End If Call Kosong 'Call cetak Call lahan
txtData(0).Text = Format(Date, "dd-mm-yyyy") 'txtData(1).Text = Format(Time, "dd-mmm-yyyy") txtData(12).Text = "B" txtData(4).Text = "Mobil" txtData(9).Text = 0 txtData(7).Text = 0 End Sub
End If Call lahan End Sub Sub lahan() txtData(4).Text = "Mobil" With Adodc2.Recordset If DataGrid2.Columns(3).Value = 0 Then Text2.Text = DataGrid2.Columns(3).Value txtData(5).Text = DataGrid2.Columns(0).Value txtData(6).Text = DataGrid2.Columns(1).Value End If Do While DataGrid2.Columns(3).Value = 1 .MoveNext Text2.Text = DataGrid2.Columns(3).Value txtData(5).Text = DataGrid2.Columns(0).Value txtData(6).Text = DataGrid2.Columns(1).Value Loop End With End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub Private Sub Text7_LostFocus() If txtData(2).Text <> "" Then sql = " Select Karyawan.Nama, Kendaraan.* From Kendaraan, Karyawan " & _ " WHERE Kendaraan.NIK = Karyawan.NIK " &_ " AND Kendaraan.PlatNo = '" & txtData(7).Text & "'"
Private Sub Command1_Click() Unload Me End Sub
Set rs = conn.Execute(sql) Private Sub Command2_Click() frmPeta.Show End Sub
If rs.EOF Then txtData(3).Text = "-" 'txtData(4).Enabled = True 'txtData(4).SetFocus
Private Sub Form_Activate()
Else txtData(3).Text = rs.Fields("Nama") txtData(4).Text = rs.Fields("KelasKndr")
With Adodc2.Recordset Text2.Text = DataGrid2.Columns(3).Value If DataGrid2.Columns(3).Value = 0 Then Text2.Text = DataGrid2.Columns(3).Value txtData(5).Text = DataGrid2.Columns(0).Value
txtData(5).SetFocus
L24
Case 2 t = Left(txtData(2).Text, 4) KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If rs.Close End If
If Left(txtData(2).Text, 4) <> (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
End Sub
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0
Private Sub Timer1_Timer() txtData(1).Text = Format(Time, "hh:mm:ss") End Sub Sub huruf() If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub
ElseIf Val(Text5.Text) = 4 Then 'Text4.SetFocus End If End If Case 11 KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Select End Sub
Private Sub txtData_Change(Index As Integer) Select Case Index Case 12 Text8.Text = Trim(Left(txtData(12).Text, 2)) Text9.Text = Len(Text8.Text) If Val(Text9.Text) = 2 Then txtData(2).SetFocus End If Text10.Text = txtData(12).Text
Private Sub txtData_LostFocus(Index As Integer) Select Case Index Case 11 If Text7.Text <> "" Then sql = " Select * From Kendaraan " & _ " WHERE PlatNo = '" & Text7.Text & "'"
Case 2 Text3.Text = Trim(Left(txtData(2).Text, 4)) Text5.Text = Len(Text3.Text) If Val(Text5.Text) = 4 Then txtData(11).SetFocus
Set rs = conn.Execute(sql) End If Text6.Text = txtData(2).Text
If rs.EOF Then txtData(13).Text = "-" Else txtData(13).Text = rs.Fields("NoPass") txtData(3).Text = rs.Fields("NIK") 'txtData(2).Enabled = True 'txtData(2).SetFocus End If rs.Close End If
Case 11 If Val(Len(txtData(11).Text)) = 3 Then cmdSimpan.SetFocus End If Text7.Text = txtData(12).Text & Text6.Text & txtData(11).Text End Select End Sub
Case 5
Private Sub txtdata_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If
If txtData(5).Text <> "" Then sql = " Select * From Lahan " & _ " WHERE NoLhn = '" & txtData(5).Text & "'"
Select Case Index Case 12 KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If
Set rs = conn.Execute(sql) If rs.EOF Then MsgBox "NIK tidak ada, ulangi lagi Gitu Loh!", vbOKOnly + vbInformation txtData(2).SetFocus 'txtData(2).Text = "" Else txtData(6).Text = rs.Fields("NamaLhn")
L25
!Almt = Status.Text !Tarif = Val(txtData(5).Text) !tgl = Format(txtData(0).Text, "dd-mm-yyyy") !PlatNo = Text4.Text Adodc1.Recordset.Update End With Dim msk, kel, jam As Date msk = Format(txtData(1).Text, "hh:mm:ss") kelu = Format(txtData(1).Text, "hh:mm:ss") jam = Format(txtData(0).Text, "dd-mm-yyyy") SqlInsert = "" SqlInsert = "INSERT INTO TransakSi" _ &" (NoLhn,JamMasuk,JamKeluar,Almt,Tarif,Tgl,PlatNo) " _ & " VALUES ('" & txtLahan.Text & "','" & msk & "','" _ & kelu & "','" & Status.Text & "',convert(money,'" & Val(txtData(5).Text) & "'),'" & jam & "','" & Text4.Text & "')" conn.Execute SqlInsert, , adCmdText 'conn.Execute (SqlInsert) SqlUpdate = "" SqlUpdate = "UPDATE inTransaki" _ & " set Tarif=" & Val(txtData(5).Text) & ", " _ & " JamKeluar='" & txtData(1).Text & "' " _ & " WHERE NoLhn='" & txtLahan.Text & "'" conn.Execute SqlUpdate, , adCmdText
txtData(10).Text = rs.Fields("Status") If txtData(10).Text = 1 Then MsgBox "Lahan sudah terisi, gunakan no lahan yang lain", vbOKOnly, "Warning" 'txtData(5).Text = "" 'txtData(6).Text = "" txtData(5).SetFocus Else cmdSimpan.SetFocus End If End If rs.Close
End If End Select End Sub Private Sub Tampil_Karyawan(X As Boolean, MKODE As String) On Error Resume Next Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Karyawan ", _ conn, adOpenDynamic, adLockBatchOptimistic With rs If .RecordCount > 0 Then .MoveFirst If X = True Then .Find ("NIK='" & Trim(MKODE) & "'") Else .Find ("Nama='" & Trim(MKODE) & "'") End If If Not .EOF Then txtData(0).Text = .Fields("NIK") txtData(1).Text = .Fields("Nama") txtData(2).Text = .Fields("Jabatan") txtData(3).Text = .Fields("AlmtKar") txtData(4).Text = .Fields("NoTlp") Else MsgBox "Record tidak ada", vbInformation, "Cek Data"
SqlUpdat = "" SqlUpdat = "UPDATE Lahan" _ & " set Status='0' " _ & " WHERE NoLhn='" & txtLahan.Text & "'" conn.Execute SqlUpdat, , adCmdText '& " Set JamKeluar='" & txtData(1).Text & "', " If Text1.Text <> "" Then Call cetak Else Call cetak2 End If Call Del txtData(2).Text = "" txtData(5).Text = "" txtData(9).Text = "" Text1.Text = "" txtData(8).Text = ""
End If End With End Sub Sub cetak() Dim cari As String cari = "{inTransaki.PlatNo}='" & Text7.Text & "'" rptIn.ReportFileName = App.Path + "\" + "rptTransaksiIn2.rpt" rptIn.SelectionFormula = cari rptIn.WindowState = crptMaximized rptIn.RetrieveDataFiles rptIn.Action = 1
End Sub Sub Del() SqlDelete = "DELETE FROM inTransaki" _ & " WHERE NoLhn='" & txtLahan.Text & "'" conn.Execute SqlDelete, , adCmdText End Sub Private Sub Command1_Click() Unload Me End Sub
End Sub Form Transaksi Out
Private Sub Command2_Click() If Text4.Text <> "" Then sql = " Select * From inTransaki " & _ " WHERE PlatNo = '" & Text4.Text & "'"
Private Sub cmdSimpan_Click() With Adodc1.Recordset .AddNew !NoLhn = txtLahan.Text !JamMasuk = Format(txtData(1).Text, "hh:mm:ss") !JamKeluar = Format(txtData(1).Text, "hh:mm:ss")
Set rs = conn.Execute(sql) 'MsgBox (sql) If rs.EOF Then
L26
MsgBox ("no Plat msh kosong") Text4.SetFocus Text4.Text = "" Else txtData(3).Text = rs.Fields(1) '.Fields("JamMasuk") txtLahan.Text = rs.Fields("NoLhn") End If rs.Close 'MsgBox (txtData(3).Text) End If If Text4.Text <> "" Then sql = " Select Karyawan.Nama, Kendaraan.* From Kendaraan, Karyawan " & _ " WHERE Kendaraan.NIK = Karyawan.NIK " &_ " AND Kendaraan.PlatNo = '" & Text4.Text & "'" Set rs = conn.Execute(sql) If rs.EOF Then Else Text1.Text = rs.Fields("Nama") End If rs.Close End If If Text1.Text <> "" Then txtData(5).Text = 0 Else If txtData(3).Text <> txtData(1).Text Then jam = Hour(txtData(1).Text) - Hour(txtData(3).Text)
'If Left(txtData(3).Text, 2) = Left(txtData(6).Text, 2) Then ' Scond = Val(Mid(txtData(6).Text, 4, 2)) Val(Mid(txtData(3).Text, 4, 2)) ' txtData(7).Text = Scond ' ElseIf Left(txtData(3).Text, 2) <> Left(txtData(6).Text, 2) Then ' Scond = Hour(txtData(6).Text) Hour(txtData(3).Text) ' detik = 60 - Val(Mid(txtData(3).Text, 4, 2)) ' txtData(7).Text = Val(Mid(txtData(6).Text, 4, 2)) ' End If
'jam = Fix(DateDiHour(txtData(1).Text), Hour(txtData(3).Text)) / 60) sql = " Select Tgl, PlatNo From inTransaki " & _ " WHERE PlatNo = '" & Text4.Text & "'" Set rs = conn.Execute(sql) If rs.EOF Then Else DTPicker1.Value = rs.Fields("Tgl") End If rs.Close If Day(Format(Date, "yyyy/mm/dd")) > Day(Format(DTPicker1.Value, "yyyy/mm/dd")) Then jam = jam + ((Day(Format(Date, "yyyy/mm/dd")) - Day(Format(DTPicker1.Value, "yyyy/mm/dd"))) * 24) 'MsgBox (jam) End If
Call BukaDatabase Set rs = New ADODB.Recordset rs.Open "SELECT * From inTransaki ORDER BY NoLhn", _ conn, adOpenDynamic, adLockBatchOptimistic Me.Left = 3000 txtData(0).Text = Format(Date, "dd-mm-yyyy") txtData(9).Text = "B" End Sub
Else 'MsgBox ("test") End If End If End Sub Private Sub Form_Activate() txtData(9).SetFocus End Sub Private Sub Form_Load() Me.Top = 0 Me.Left = 500 Me.Width = 8500 Me.Height = 6000
Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'SendKeys vbTab cmdSimpan.SetFocus End If End Sub Private Sub Text4_LostFocus() If Text4.Text <> "" Then sql = " Select * From inTransaki " & _ " WHERE PlatNo = '" & txtData(4) & "'"
txtData(10).Text = jam menit = Mid(txtData(6).Text, 4, 2) txtData(7).Text = menit If jam < 1 Or jam = 0 Then If Text1.Text = "" Then Tarif = 1000 Else Tarif = 0 End If
Set rs = conn.Execute(sql) MsgBox (sql) If rs.EOF Then Else txtData(3).Text = rs.Fields("JamMasuk") txtLahan.Text = rs.Fields("NoLhn") End If rs.Close End If If Text4.Text <> "" Then sql = " Select Karyawan.Nama, Kendaraan.* From Kendaraan, Karyawan " & _ " WHERE Kendaraan.NIK = Karyawan.NIK " &_ " AND Kendaraan.PlatNo = '" & Text4.Text & "'"
ElseIf jam >= 1 Then If Text1.Text = "" Then t = Val(txtData(10).Text) - 1 Total = Val(t) * 500 Tarif = 1000 + Total Else Tarif = 0 End If End If txtData(5).Text = Tarif
L27
End If
Set rs = conn.Execute(sql) If rs.EOF Then Else Text1.Text = rs.Fields("Nama") End If rs.Close End If If Text1.Text <> "" Then txtData(5).Text = 1000 End If End Sub
Case 8 Text4.Text = txtData(9).Text & Text2.Text & txtData(8).Text End Select End Sub Private Sub txtdata_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If Select Case Index Case 9 KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If
Private Sub Timer1_Timer() txtData(1).Text = Format(Time, "hh:mm:ss") End Sub Private Sub txtData_Change(Index As Integer) Select Case Index Case 9 Text8.Text = Trim(Left(txtData(9).Text, 2)) Text9.Text = Len(Text8.Text) If Val(Text9.Text) = 2 Then txtData(2).SetFocus End If Text10.Text = txtData(9).Text Case 2 Text3.Text = Len(txtData(2).Text) Text2.Text = txtData(2).Text If Val(Text3.Text) = 4 Then txtData(8).SetFocus End If Case 3 txtData(6).Text = txtData(1).Text If txtData(6).Text <> txtData(1).Text Then jam = Hour(txtData(6).Text) - Hour(txtData(3).Text) txtData(10).Text = jam menit = Mid(txtData(6).Text, 4, 2) txtData(7).Text = menit If jam < 1 Or jam = 0 Then If Text1.Text = "" Then Tarif = 1000 Else Tarif = 0 End If
Case 2 KeyAscii = Asc(UCase(Chr(KeyAscii))) If Left(txtData(2).Text, 4) <> (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If ElseIf Val(Text3.Text) = 4 Then txtData(8).SetFocus End If Case 8 KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= Asc("a") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("z") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 'cmdSimpan.SetFocus
ElseIf jam >= 1 Then If Text1.Text = "" Then t = Val(txtData(4).Text) - 1 Total = Val(t) * 500 Tarif = 1000 + Total Else Tarif = 0 End If End If txtData(5).Text = Tarif If Left(txtData(3).Text, 2) = Left(txtData(6).Text, 2) Then Scond = Val(Mid(txtData(6).Text, 4, 2)) Val(Mid(txtData(3).Text, 4, 2)) txtData(7).Text = Scond ElseIf Left(txtData(3).Text, 2) <> Left(txtData(6).Text, 2) Then Scond = Hour(txtData(6).Text) Hour(txtData(3).Text) detik = 60 - Val(Mid(txtData(3).Text, 4, 2)) txtData(7).Text = Val(Mid(txtData(6).Text, 4, 2)) End If
End If txtData(5).Text = Tarif If Left(txtData(3).Text, 2) = Left(txtData(6).Text, 2) Then Scond = Val(Mid(txtData(6).Text, 4, 2)) Val(Mid(txtData(3).Text, 4, 2)) txtData(7).Text = Scond ElseIf Left(txtData(3).Text, 2) <> Left(txtData(6).Text, 2) Then Scond = Hour(txtData(6).Text) Hour(txtData(3).Text) detik = 60 - Val(Mid(txtData(3).Text, 4, 2)) txtData(7).Text = Val(Mid(txtData(6).Text, 4, 2)) End If End Select
L28
'ListLahan.ForeColor = vbGreen Ket = "Kosong" ElseIf rs!Status = 1 Then Ket = "Isi" 'ListLahan.ForeColor = vbRed End If View.SubItems(4) = Ket View.SubItems(5) = rs!PlatNo 'If rs!Status = 0 Then 'ListLahan.ForeColor = vbGreen ' Plat = "kosang" 'ElseIf rs!Status = 1 Then ' Plat = rs!PlatNo 'ListLahan.ForeColor = vbRed 'End If rs.MoveNext Wend End Sub
End Sub Private Sub txtData_LostFocus(Index As Integer) Select Case Index Case 2 End Select End Sub Sub cetak() Dim cari As String cari = "{inTransaki.PlatNo}='" & Text4.Text & "'" 'MsgBox (Text4.Text) rptOut.ReportFileName = App.Path + "\" + "rptTransaksiOut.rpt" rptOut.SelectionFormula = cari rptOut.WindowState = crptMaximized rptOut.RetrieveDataFiles rptOut.Action = 1 End Sub Sub cetak2() 'On Error Resume Next Dim cari As String 'cari = "{TransakSi.PlatNo}='" & Text4.Text & "' " cari = "{inTransaki.PlatNo}='" & Text4.Text & "'" 'MsgBox (Text4.Text) rptOut.ReportFileName = App.Path + "\" + "rptTransaksiOut4.rpt" rptOut2.SelectionFormula = cari rptOut2.WindowState = crptMaximized rptOut2.RetrieveDataFiles rptOut2.Action = 1 End Sub
Private Sub Form_Load() Me.Left = 4000 Me.Top = 200 Me.Width = 6450 Me.Height = 5805 Call AturListView(ListLahan, "Kode lahan", 17, "Nama Lahan", 19, _ "Lokasi", 18, "Status", 13, "Keterangan", 17, "NoPlat", 18) Call BukaDatabase
Form View Lahan 'TbSimpan.Enabled = False 'TbHapus.Enabled = False
Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i End With End Sub
Set rs = New ADODB.Recordset rs.Open "SELECT inTransaki.NoLhn, inTransaki.PlatNo, Lahan.NamaLhn, Lahan.Lokasi, Lahan.Status From inTransaki, Lahan where Lahan.NoLhn = inTransaki.NoLhn ", _ conn, adOpenDynamic, adLockBatchOptimistic ListLahan.ListItems.Clear While Not rs.EOF Set View = ListLahan.ListItems.Add
Private Sub cmdRefresh_Click() Call BukaDatabase
View.Text = rs!NoLhn View.SubItems(1) = rs!NamaLhn View.SubItems(2) = rs!Lokasi View.SubItems(3) = rs!Status If rs!Status = 0 Then 'ListLahan.ForeColor = vbGreen Ket = "Kosong" ElseIf rs!Status = 1 Then Ket = "Isi" 'ListLahan.ForeColor = vbRed End If View.SubItems(4) = Ket View.SubItems(5) = rs!PlatNo 'If rs!Status = 0 Then 'ListLahan.ForeColor = vbGreen ' Plat = "kosang" 'ElseIf rs!Status = 1 Then ' Plat = rs!PlatNo 'ListLahan.ForeColor = vbRed 'End If rs.MoveNext Wend
'TbSimpan.Enabled = False 'TbHapus.Enabled = False Set rs = New ADODB.Recordset rs.Open "SELECT inTransaki.NoLhn, inTransaki.PlatNo, Lahan.NamaLhn, Lahan.Lokasi, Lahan.Status From inTransaki, Lahan where Lahan.NoLhn = inTransaki.NoLhn ", _ conn, adOpenDynamic, adLockBatchOptimistic ListLahan.ListItems.Clear While Not rs.EOF Set View = ListLahan.ListItems.Add View.Text = rs!NoLhn View.SubItems(1) = rs!NamaLhn View.SubItems(2) = rs!Lokasi View.SubItems(3) = rs!Status If rs!Status = 0 Then
L29
End Sub Private Sub cmdCetak_Click() Dim cari As String If cmbJenis.Text = "No Plat" Then If txtNm.Text = "" Then MsgBox "No Plat Masih Kosong", vbOKOnly, "WARNING" txtNm.SetFocus Else cari = "{Kendaraan.PlatNo}='" & txtNm.Text & "'" crKendaraan.ReportFileName = App.Path + "\" + "rptKendaraan.rpt" crKendaraan.SelectionFormula = cari crKendaraan.WindowState = crptMaximized crKendaraan.RetrieveDataFiles crKendaraan.Action = 1 End If ElseIf cmbJenis.Text = "Seluruhnya" Then crKendaraan.ReportFileName = App.Path + "\" + "rptKendaraan.rpt" crKendaraan.SelectionFormula = cari crKendaraan.WindowState = crptMaximized crKendaraan.RetrieveDataFiles crKendaraan.Action = 1 End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Combo1_Change()
Form Laporan Pelanggan Private Sub cmbJenis_Click() If cmbJenis.Text = "Nama Pelanggan" Then txtNm.Enabled = True Else txtNm.Enabled = False txtNm.Text = "" End If End Sub Private Sub cmdCetak_Click() Dim cari As String If cmbJenis.Text = "Nama Pelanggan" Then If txtNm.Text = "" Then MsgBox "Nama Pelanggan Masih Kosong", vbOKOnly, "WARNING" txtNm.SetFocus Else cari = "{Karyawan.Nama}='" & txtNm.Text & "'" crKaryawan.ReportFileName = App.Path + "\" + "rptDataKaryawan.rpt" crKaryawan.SelectionFormula = cari crKaryawan.WindowState = crptMaximized crKaryawan.RetrieveDataFiles crKaryawan.Action = 1 End If ElseIf cmbJenis.Text = "Seluruhnya" Then crKaryawan.ReportFileName = App.Path + "\" + "rptDataKaryawan.rpt"
End Sub Private Sub Form_Load() Me.Top = 200 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 3355 Me.Width = 5540 End Sub Private Sub txtNm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
crKaryawan.SelectionFormula = cari crKaryawan.WindowState = crptMaximized crKaryawan.RetrieveDataFiles crKaryawan.Action = 1 End If End Sub Private Sub cmdExit_Click() Unload Me End Sub
Form Laporan Data Lahan Private Sub cmbJenis_Click() If cmbJenis.Text = "Nama Lahan" Then txtNm.Enabled = True Else txtNm.Enabled = False txtNm.Text = "" End If End Sub
Private Sub Form_Load() Me.Top = 200 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 3500 Me.Width = 5500 End Sub Private Sub txtNm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
Private Sub cmdCetak_Click() Dim cari As String If cmbJenis.Text = "Nama Lahan" Then If txtNm.Text = "" Then MsgBox "Nama lahan Masih Kosong", vbOKOnly, "WARNING" txtNm.SetFocus Else cari = "{Lahan.NamaLhn}='" & txtNm.Text & "'"
Form Laporan Kendaraan Private Sub cmbJenis_Click() If cmbJenis.Text = "No Plat" Then txtNm.Enabled = True Else txtNm.Enabled = False txtNm.Text = "" End If End Sub
crLahan.SelectionFormula = cari crLahan.WindowState = crptMaximized crLahan.RetrieveDataFiles crLahan.Action = 1
L30
End If Public Sub AturListView(LSV As ListView, ParamArray lstview()) Dim i, lebar LSV.View = lvwReport lebar = LSV.Width - 80 With LSV.ColumnHeaders .Clear For i = 0 To UBound(lstview) - 1 Step 2 .Add , , lstview(i), (lstview(i + 1) * lebar) / 100 Next i End With End Sub
ElseIf cmbJenis.Text = "Seluruhnya" Then CrLhn.ReportFileName = App.Path + "\" + "rptLahan.rpt" CrLhn.SelectionFormula = cari CrLhn.WindowState = crptMaximized CrLhn.RetrieveDataFiles CrLhn.Action = 1 End If End Sub Private Sub cmdExit_Click() Unload Me End Sub
Private Sub Form_Load() Me.Top = 500 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 9870 Me.Width = 11145
Private Sub Form_Load() Me.Top = 200 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 3425 Me.Width = 5680 End Sub
Call AturListView(ListLahan, "Kode lahan", 20, "Nama Lahan", 15, _ "Lokasi", 20, "Status", 15, "Keterangan", 20)
Private Sub txtNm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab End If End Sub
Call BukaDatabase 'TbSimpan.Enabled = False 'TbHapus.Enabled = False
Form Laporan Transaksi
Set rs = New ADODB.Recordset
Private Sub cmdCetak_Click() 'crKaryawan.ReportFileName = App.Path + "\" + "rptDataKaryawan.rpt" Dim cari, cr As String cari = "{Transaksi.Tgl}in date (" & _ Format(DT1.Value, "yyyy,m,d") & ") to date (" &_ Format(DT2.Value, "yyyy,m,d") & ")"
rs.Open "SELECT * From Lahan ", _ conn, adOpenDynamic, adLockBatchOptimistic ListLahan.ListItems.Clear While Not rs.EOF Set View = ListLahan.ListItems.Add View.Text = rs!NoLhn View.SubItems(1) = rs!NamaLhn View.SubItems(2) = rs!Lokasi View.SubItems(3) = rs!Status If rs!Status = 0 Then 'ListLahan.ForeColor = vbGreen Ket = "Kosong" ElseIf rs!Status = 1 Then Ket = "Isi" 'ListLahan.ForeColor = vbRed End If
rptTransaksi.SelectionFormula = cari rptTransaksi.WindowState = crptMaximized rptTransaksi.RetrieveDataFiles rptTransaksi.Action = 1 End Sub Private Sub cmdExit_Click() Unload Me FrmMenuUtama.Show FrmMenuUtama.Enabled = True
View.SubItems(4) = Ket View.SubItems(5) = rs!PlatNo rs.MoveNext Wend End Sub '
End Sub Private Sub Form_Load() DT1.Value = Format(Date, "yyyy,m,d") DT2.Value = Format(Date, "yyyy,m,d") Me.Top = 1000 Me.Left = (Screen.Width - Me.Width) / 2 Me.Height = 3000 Me.Width = 5000 End Sub Form Peta Private Sub Command1_Click() Unload Me End Sub
L31
Questioner Penelitian Pengembangan Sistem Perparkiran di Gedung Patra Jasa
Nama
:
Nama Perusahaan
:
Petunjuk Pengisian Beri tanda silang (X) pada alternative jawaban yang disediakan ! Daftar Pertanyaan
No. 1.
Apakah
diperlukan
suatu
Alternative Jawaban
sistem
parkir
yang
a. Ya
b. Tidak
a. Ya
b. Tidak
a. Ya
b. Tidak
parkir
a. Ya
b. Tidak
Apakah sering terjadi kendala dalam mengetahui
a. Ya
b. Tidak
terkomputerisasi lebih baik di Gedung Patra Jasa ini ? 2.
Apakah sering terjadi kendala dalam mencari lahan parkir kosong di Gedung Patra Jasa ini ?
3.
Apakah anda merasa dirugikan dengan sistem parkir yang tidak memberitahu bahwa parkir telah penuh ?
4.
Apakah
pengurutan
penempatan
lahan
diperlukan di Gedung Patra Jasa ini ? 5.
sudah terdaftar sebagai pelanggan/ bukan ?
L47
1. Pertanyaan 1 :
Dari 5 responden, yang menjawab Ya sebanyak 5, yang menjawab Tidak sebanyak 0. Maka dapat disimpulkan bahwa 100 % responden menjawab Ya dan 0 % menjawab Tidak untuk
penilaian
Apakah
diperlukan
suatu
sistem
komputerisasi di Perparkiran Patra Jasa ini. 2. Pertanyaan 2 :
Dari 5 responden, yang menjawab Ya sebanyak 4, yang menjawab Tidak sebanyak 1. Maka dapat disimpulkan bahwa 80 % responden menjawab Ya dan 20 % menjawab Tidak untuk penilaian Apakah sering terjadi kendala dalam mencari lahan parkir kosong di Gedung Patra Jasa ini.
3. Pertanyaan 3 :
Dari 5 responden, yang menjawab Ya sebanyak 4, yang menjawab Tidak sebanyak 1. Maka dapat disimpulkan bahwa 80 % responden menjawab Ya dan 20 % menjawab Tidak untuk penilaian Apakah merasa dirugikan dengan sistem parkir yang tidak memberitahu bahwa lahan sudah penuh.
4. Pertanyaan 4 :
Dari 5 responden, yang menjawab Ya sebanyak 4, yang menjawab Tidak sebanyak 1. Maka dapat disimpulkan bahwa 80 % responden menjawab Ya dan 20 % menjawab Tidak untuk penilaian Apakah pengurutan dalam penempatan lahan parkir di Gedung Patra Jasa ini.
5. Pertanyaan 5 :
Dari 5 responden, yang menjawab Ya sebanyak 3, yang menjawab Tidak sebanyak 2. Maka dapat disimpulkan bahwa 60 % responden menjawab Ya dan 40 % menjawab Tidak untuk penilaian Apakah sering terjadi kendala dalam mengetahui sudah terdaftar menjadi pelanggan atau belum di lahan parkir Gedung Patra Jasa ini.
L48
Questioner Pengguna Aplikasi Parkir di Gedung Patra Jasa
Nama
:
Staff Bagian
:
Petunjuk Pengisian Beri tanda silang (X) pada alternative jawaban yang disediakan !
No.
Daftar Pertanyaan
1.
Bagaimana tampilan aplikasi Parkir di Gedung
a. Sangat baik
c. Kurang baik
Patra Jasa ?
b. Baik
d. Buruk
Bagaimana tampilan peta dalam aplikasi ini ?
a. Sangat baik
c. Kurang baik
b. Baik
d. Buruk
Bagaimana sinkronisasi warna antara warna text
a. Sangat baik
c. Kurang baik
dan background aplikasi ?
b. Baik
d. Buruk
Bagaimana prosedur pengoperasian aplikasi ini ?
a. Sangat baik
c. Kurang baik
b. Baik
d. Buruk
Bagaimana menurut anda aplikasi ini dalam
a. Sangat baik
c. Kurang baik
membantu staff untuk memperoleh data - data
b. Baik
d. Buruk
Dibandingkan dengan sistem yang ada saat ini,
a. Sangat baik
c. Kurang baik
apakah aplikasi ini sangat membatu dalam kinerja
b. Baik
d. Buruk
Apa pendapat anda setelah melihat program ini
a. Sangat baik
c. Kurang baik
secara keseluruhan ?
b. Baik
d. Buruk
Bagaimana menurut anda, apabila aplikasi ini
a. Sangat baik
c. Kurang baik
digunakan di Perparkiran Gedung Patra Jasa ?
b. Baik
d. Buruk
2.
3.
4.
5.
Alternative Jawaban
yang dibutuhkan lebih cepat ? 6.
yang ada di Perparkiran Gedung Patra Jasa ? 7.
8.
L49
1. Pertanyaan 1 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 3, yang menjawab kurang baik sebanyak 0 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan bahwa 100 % responden menjawab baik untuk penilaian tampilan aplikasi parkir di Gedung Patra Jasa ini.
2. Pertanyaan 2 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 3, yang menjawab kurang baik sebanyak 0 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan bahwa 100 % responden menjawab baik untuk penilaian tampilan peta dalam aplikasi parkir di Gedung Patra Jasa.
3. Pertanyaan 3 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 3, yang menjawab kurang baik sebanyak 0 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan bahwa 100 % responden menjawab baik untuk penilaian sinkronisasi warna antara warna text dan background aplikasi.
4. Pertanyaan 4 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 2, yang menjawab kurang baik sebanyak 1 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan sekitar 66 % responden menjawab baik dan sekitar 33 % menjawab kurang baik untuk penilaian prosedur pengoperasian aplikasi.
5. Pertanyaan 5 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 2, yang menjawab kurang baik sebanyak 1 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan sekitar 66 % responden menjawab baik dan sekitar 33 % menjawab kurang baik untuk penilaian dalam membantu staff untuk memperoleh data - data yang dibutuhkan lebih cepat.
L50
6. Pertanyaan 6 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 1, yang menjawab kurang baik sebanyak 2 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan sekitar 33 % responden menjawab baik dan sekitar 66 % menjawab kurang baik untuk penilaian dalam membandingkan dengan sistem yang ada saat ini, apakah aplikasi ini sangat membatu dalam kinerja yang ada di perparkiran Gedung Patra Jasa.
7. Pertanyaan 7 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 3, yang menjawab kurang baik sebanyak 0 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan sekitar 100 % responden menjawab baik dan sekitar 0 % menjawab kurang baik untuk penilaian anda setelah melihat program ini secara keseluruhan.
8. Pertanyaan 8 :
Dari 3 responden, yang menjawab sangat baik sebanyak 0, yang menjawab baik sebanyak 3, yang menjawab kurang baik sebanyak 0 dan yang menjawab buruk sebanyak 0. Maka dapat disimpulkan sekitar 100 % responden menjawab baik dan sekitar 0 % menjawab kurang baik untuk penilaian menurut anda, apabila aplikasi ini digunakan di Perparkiran Gedung Patra Jasa.
L51