i
SISTEM INFORMASI KOPERASI SIMPAN PINJAM
MENGGUNAKAN VISUAL BASIC 6.0
DAN SQL SERVER 2000
( Studi Kasus: Koperasi Purnawirawan dan Warakawuri
TNI – POLRI Wilayah Kabupaten Kupang )
TUGAS AKHIR
Diajukan Untuk Memenuhi Salah Satu Syarat
Memperoleh Gelar Sarjana Teknik Program Studi Teknik Informatika
Disusun oleh:
JOHANES BERCHMANS SILAONANG
NIM : 015314091
PROGRAM STUDI TEKNIK INFORMATIKA
JURUSAN TEKNIK INFORMATIKA
FAKULTAS SAINS DAN TEKNOLOGI
UNIVERSITAS SANATA DHARMA
YOGYAKARTA
2007
ii
INFORMATION SYSTEM OF CREDIT UNION
USING VISUAL BASIC 6.0
AND SQL SERVER 2000
( Case Study: Koperasi Purnawirawan dan Warakawuri
TNI – POLRI Wilayah Kabupaten Kupang )
FINAL PROJECT
Presented as Partial Fulfillment of the Requirements
To Obtain the Sarjana Teknik Degree
In Informatical Engineering Study Program
Presented by:JOHANES BERCHMANS SILAONANG
015314091
INFORMATICAL ENGINEERING STUDY PROGRAM
DEPARTMENT OF INFORMATICAL ENGINEERING
FACULTY OF SCIENCE AND TECHNOLOGY
SANATA DHARMA UNIVERSITY
YOGYAKARTA
2007
v
PERNYATAAN KEASLIAN KARYA
Dengan ini saya menyatakan bahwa tugas akhir ini tidak terdapat karya yang
pernah diajukan untuk memperoleh gelar sarjana disuatu perguruan tinggi, dan
sepanjang pengetahuan saya, juga tidak terdapat karya atau pendapat yang pernah
ditulis atau diterbitkan oleh orang lain, kecuali yang secara tertulis digunakan dalam
naskah ini dan disebutkan dalam daftar pustaka.
Yogyakarta, 03 Oktober 2007
Penulis
Johanes Berchmans Silaonang
vi
HALAMAN PERSEMBAHAN
Kupersembahkan semua ini kepada:
• Tuhan Yang Maha Esa yang telah memberkati dan
membimbingku di dunia ini.
• Ibu, Bapak, Fani dan Maya serta semua keluarga yang telah
memberikan dorongan dan kekuatan.
• Veronika Lilis Srimurni yang telah memberi warna dalam
hidupku.
• Semua teman - temanku yang telah menjadi sahabat dan
keluarga baik dalam suka maupun dalam duka.
vii
HALAMAN MOTTO
Perjuangan melakukan segala sesuatu dibutuhkan kesabaran, kekuatan
serta keteguhan hati dan pikiran di dalam doa.
Jalan Kerumah teman tak pernh Jauh
Jadilah kehendakmu, Tuhanku. Karena kau mengetahui
kelemahan di dalam hati anak-anak mu, dan kau hanya memberikan beban
yang mereka sanggup terima.
Dalam kemaha-bijaksanaanya, Tuhan telah menyembunyikan
neraka di tengah-tengah surga agar manusia selalu waspada, agar tak
melupakan kepedihan saat mengalami riangnya kasih sayang.
viii
ABSTRAKSI
Pencatatan transaksi permohonan pinjaman, transaksi simpanan sertapembayaran angsuran pada Koperasi Purnawirawan dan Warakawuri TNI-POLRImasih dilakukan secara manual yaitu dengan menggunakan media kertas, kemudianbaru dipindahkan ke komputer, proses pemindahan ini membutuhkan ketelitian yangtinggi karena rentan terjadi kesalahan. Oleh karena itu dibutuhkan sistem informasiyang memadai untuk memproses pencatatan transaksi, memberikan informasipermohonan pinjaman, informasi pinjaman, informasi simpanan, informasi angsurandengan cepat dan akurat.
Pembuatan sistem informasi Koperasi Simpan Pinjam ini dimulai dari analisisdan pengamatan terhadap proses simpan pinjam di Koperasi yang terjadi selama iniserta data yang berpengaruh pada proses simpanan, permohonan pinjaman, pinjamanserta proses angsuran, kemudian dari data yang ada, dilakukan perancangan sisteminformasi Koperasi Simpan Pinjam yang disesuaikan dengan kebutuhan. Software inidibuat dengan menggunakan SQL server 2000 untuk database-nya dan menggunakanVisual Basic 6.0 sebagai compiler-nya.
ix
ABSTRACT
Record-keeping of transaction of loan application, deposit transaction and alsodeferred payment at Koperasi Purnawirawan and Warakawuri TNI-POLRI still bedone in manual that is by using paper media, and then it is will be carried over to acomputer, this evacuation process require the high correctness because too easyhappened the mistake. Therefore it is required a adequate information system toprocess the transaction record-keeping, giving information of loan application, loaninformation, deposit information, instalment information swiftly and accurate.
The making of information system this Co-Operation Saving And Loan isstarted from analysis and perception to process of saving and loan in this Co-Operation that happened during the time and also data what having in with depositprocess, loan application, loan and also process the instalment, then from existingdata, done by scheme of information system of Co-Operation of Saving And Loanwhich is adapted for requirement. This Software was built using SQL server 2000 forthe database and using Visual Basic 6.0 as the compiler.
x
KATA PENGANTAR
Puji syukur penulis panjatkan kepada Tuhan Yang Maha Esa atas berkat dan
petunjuk-Nya sehingga tugas akhir ini dapat terselesaikan.
Tugas akhir ini dibuat untuk memenuhi salah satu syarat akademis yang harus
dilaksanakan untuk mendapat gelar sarjana strata-1 di jurusan Teknik Informatika
fakultas Sains dan Teknologi Universitas Sanata Dharma.
Pada kesempatan ini, penulis ingin menyampaikan terima kasih yang sebesar-
besarnya kepada:
1. Bapak Drs. Haris Sriwindono, M.Kom, yang telah membimbing penulis
dalam menyusun tugas akhir ini.
2. Ibu Agnes Maria Polina, S.Kom., M.Sc., selaku ketua Jurusan Teknik
Informatika Universitas Sanata Dharma.
3. Seluruh dosen Teknik Informatika Sanata Dharma yang telah memberi
banyak ilmu dan bimbingan.
4. Kedua orang tua penulis yang sangat penulis kasihi, yang telah memberikan
semua yang mereka miliki kepada penulis, tanpa mengarapkan imbalan
apapun. Terima kasih Tuhan karena telah memberikan orang tua seperti
mereka kepada penulis.
xi
5. Damianus S dan Adrianus Mado atas persahabatan yang telah penulis alami.
Akhirnya lulus juga ni. ”ADA BAND” dah bubar ya? Hix.....hix... Tanks
prend atas semuanya.
6. Sigit Kuncuro, Ony Purba “gogom bull”, C Sunarko yang telah banyak
memberikan masukan, motivasi bagi penulis dalam menyelesaikan tugas akir
ini. Tanks prend dah ikut membantu dan begadang ampe pagi bersama di hari
ujian. Kapan ”bersama” lagi ni?.
7. Tanks juga bagi bapak firdaus “ucok” yang telah bersusah payah bersama
mencari printer di pagi hari menjelang ujian, buat persahabatan dan setiap
ceritanya. Terus berjuang prend.
8. Nitha, Cristin, Vindy, Desni ”empat gadis pulau” dan Mr Oti . Terima kasih
atas persahabatan yang kalian berikan selama ini.
9. Willy, Danu, Indra, Tiwi, Henny, Tria, Ida, Vivi, Andi, Robin, Manu, Enji
serta seluruh sahabat - sahabatku yang ada di Teknik Informatika khususnya
TI 01 kelas B. Terima kasih atas persahabatan yang kalian berikan selama ini.
10. John Pengki, Tedy, Aan, Pice, Anto, Yoris, Gatho, Heri, Robert, Yanto
Sogen, Ronald, Likhen, Sony, David, Marten, Dika serta semua keluarga
besar kos Wirata 16, terima kasih atas setiap pengertian, persahabatan dan
kebersamaan yang telah kalian berikan selama ini.
xii
11. Kory, Maya, Mayoes, Heri, Siska, Iwan, Lory, Ocy, Ening “Pening”, Ima
serta semua teman-teman KSE Yogyakarta, setiap kebersamaan yang pernah
kualami bersama kalian semua memberikan arti yang besar dalam hidupku.
Penulis menyadari bahwa laporan Tugas Akhir ini masih jauh dari sempurna,
karenanya maka kritik dan saran yang membangun akan sangat berguna bagi
kebaikan Penulis di masa yang akan datang. Pada akhirnya penulis juga berharap
semoga skripsi ini dapat bermanfaat bagi kita semua.
Yogyakarta, 3 Oktober 2007
Penulis
xiii
DAFTAR ISI
Halaman Judul i
Halaman Judul Inggris ii
Halaman Persetujuan iii
Halaman Pengesahan iv
Halaman Pernyataan v
Halaman Persembahan vi
Halaman Motto vii
Abstraksi viii
Abstract ix
Kata Pengantar x
Daftar isi xiii
Daftar Gambar xx
DaftarTabel xxii
BAB I PENDAHULUAN 1
1.1 Latar Belakang Masalah 1
1.2 Rumusan Masalah 2
1.3 Tujuan penelitian 3
xiv
1.4 Batasan masalah 3
1.5 Metode penelitian 4
1.6 Sistematika penulisan 5
BAB II LANDASAN TEORI 7
2.1 SQL Server 7
2.1.1 Sejarah SQL Server 7
2.1.2 Arsitekur SQL Server 7
2.1.3 Konsep Pemrograman SQL Server 10
2.1.4 Data Defination Language (DDL) 11
2.1.5 Data Manipulation Language (DML) 11
2.1.6 Tipe-Tipe Data. 11
2.1.6.1 Ekspresi dan Operator 13
2.1.6.2 Fungsi 14
2.1.6.3 Prosedur 15
2.1.6.4 Indeks 16
2.1.6.5 View 17
2.1.7 SQL Server Client Network Utulity 17
2.2 Metodologi Pengembangan Sistem 18
2.2.1 Sejarah Langkah- Langkah Pengembangan Sistem 18
2.2.2 Alat dan Teknik Dalam Perancangan Sistem 19
xv
2.3 Database 22
2.2.1 Arsitektur Database 23
2.3.2 Bahasa 24
2.3.3 Perancangan Database 25
2.3.3.1 Teknik Normalisasi 25
2.3.3.2 Teknik Entity Relationship 27
2.4 Visual Basic 28
2.5 Koperasi Simpan Pinjam. 29
2.6 Transaksi 30
BAB III ANALISIS DAN PERANCANGAN SISTEM 32
3.1 ANALISIS SISTEM 32
3.1.1 Gambaran Umum Sistem Yang Lama 32
3.1.2 Gambaran Umum Sistem Yang Dikembangkan 32
3.2 PERANCANGAN SISTEM 34
3.2.1 Perancangan Proses 34
3.2.1.1 Use Case Diagram 34
3.2.1.2 Context Diagram 35
3.2.1.3 Bagan Berjenjang 36
3.2.1.4 Overview Diagram 38
3.2.2 Perancangan Database 45
3.2.2.1 Deskripsi Kebutuhan Data 45
xvi
3.2.2.2 Entitas (attribute) dan Relasi 46
3.2.2.3 Logical Dsign 50
3.2.2.3.1 ERD Entity Relations Diagram 50
3.2.2.3.2 Relational Model 51
3.2.2.4 Mapping Tabel 52
BAB IV IMPLEMENTASI SISTEM 56
4.1 Karakteristik Sistem 56
4.2 Kebutuhan Sistem 56
4.3 Koneksi SQL Server 57
4.4 User Interface 58
4.4.1 Usser Interface Login 58
4.4.2 User Interface Admin 60
4.4.2.1 User Interface Data Petugas 61
4.4.2.1.1 User Interface Ubah Data Petugas 63
4.4.2.1.1 User Interface Tamba Data Petugas. 65
4.4.2.2 User Interface Data Perkiraan 66
4.4.2.2.1 User Interface Ubah Data Perkiraan 67
4.4.3 User Interface Bendahara 68
4.4.3.1 User Interface Tambah Transaksi 69
xvii
4.4.3.1.1 User Interface
Tambah Transaksi Simpanan Anggota 70
4.4.3.1.2 User Interface
Tambah Permohonan Pinjaman Anggota 74
4.4.3.1.3 User Interface
Tambah Pinjaman Anggota 76
4.4.3.1.4 User Interface
Tambah Angsuran Anggota 78
4.4.3.2 User Interface Lihat Transaksi 80
4.4.3.2.1 User Interface
Lihat Transaksi Permohonan Pinjaman 81
4.4.3.2.2 User Interface
Lihat Transaksi Pinjaman Anggota 83
4.4.3.2.3 User Interface
Lihat Transaksi Angsuran Anggota 84
4.4.3.2.4 User Interface
Lihat Transaksi Simpanan Anggota 85
4.4.3.3 User interface Ubah transaksi 85
4.4.3.3.1 User interface
Ubah transaksi Pinjaman Anggota 86
4.4.3.3.2 User interface
xviii
Ubah transaksi Simpanan Anggota 87
4.4.4 User Interface Bagian Anggota 89
4.4.4.1 User Interface Data Anggota 89
4.4.4.1.1 User Interface Tambah Data Anggota 92
4.4.4.1.2 User Interface
Tambah Setoran Awal Anggota 93
4.4.4.2 User Interface Ubah Data 93
4.4.4.2.1 User Interface Ubah Data Anggota 93
4.4.4.2.2 User Interface Anggota Keluar 94
4.4.5 User Interface Manager 95
4.4.5.1 User Interface Data Anggota 96
4.4.5.2 User Interface Data Petugas 96
4.4.5.3 User Interface Lihat Permohonan Peminjaman 97
4.4.5.4 User Interface Buat Status Permohonan Pinjaman 98
4.4.6 User Interface Anggota 99
BAB V ANALISIS HASIL IMPLEMENTASI 103
5.1 Kelebihan sistem yang dibuat 103
5.2 Kurangan sistem yang dibuat 104
5.3 Analisa manfaat 104
xx
DAFTAR GAMBAR
2.1 Arsitekur Database SQL Server 82.2 Arsitektur SQL Client/Server 92.3 Diagram HIPO 223.1 Use Case 343.2 Context Diagram 353.3 Bagan Berjenjang 363.4 Overview Diagram 383.5 Diagram Arus Data Level 1 Proses 1 393.6 Diagram Arus Data Level 1 Proses 2 403.7 Diagram Arus Data Level 1 Proses 3 413.8 Diagram Arus Data Level 1 Proses 4 423.9 Diagram Arus Data Level 1 Proses 6 433.10 Diagram Arus Data Level 1 Proses 7 443.11 ERD Entity Relations Diagram 503.12 Relational Model 514.1 Gambar User interface proses login 584.2 Gambar User Interface Halaman Admin 601.3 Gambar User Interface Data Petugas 614.4 Gambar User Interface ubah data petugas 634.5 User interface Tambah data petugas 654.6 Gambar User Interface Halaman Data Perkiraan 664.7 User Interface Ubah Data Perkiraan 674.8 Gambar User Interface Bendahara 694.9 User Interface Tambah Transaksi 694.10 User Interface Tambah Simpanan Anggota 704.11 User Interface Cetak Bukti Penyetoran Simpanan 704.12 User Interface Tambah Permohonan Pinjaman Anggota 744.13 User Interface Tambah Pinjaman Anggota 774.14 User Interface Tambah Angsuran Anggota 794.15 User Interface Lihat Transaksi 804.16 User Interface Lihat Transaksi Permohonan Pinjaman 814.17 User Interface Lihat Transaksi Pinjaman Anggota 834.18 User Interface Lihat Transaksi Angsuran Anggota 844.19 User Interface Lihat Transaksi Simpanan Anggota 854.20 User Interface Ubah Pinjaman Anggota 864.21 User Interface Ubah Simpanan Anggota 874.22 User Interface Bagian Anggota 894.23 User Interface Lihat Data Anggota 90
xxi
4.24 User Interface Tambah Data Anggota 924.25 User Interface Ubah Data Anggota 934.26 User Interface Anggota Keluar 944.27 User Interface Manager 954.28 User Interface Data Anggota login Manager 964.39 User Interface Lihat Perohonan Pinjaman Login Manager 974.30 User Interface Buat Status Permohonan 984.31 User interface Data Anggota Login Anggota 994.32 User Interface Lihat Transaksi Simpan Login Anggota 100
xxii
DAFTAR TABEL
2.1 Tipe-tipe data integer 112.2 Tipe-tipe data lain-lain 122.3 Tipe-tipe data string 122.4 Tipe-tipe data uncode string 122.5 Tipe-tipe data binary string 122.6 Tipe-tipe operator aritmetika 132.7 Tipe-tipe operator perbandingan 132.8 Tipe-tipe operator logika 142.9 Tipe-tipe operator unary 142.10 Konfigurasi di SQL Server Client Network Utility 182.11 Simbol-simbol Diagram Arus Data 202.12 Simbol-simbol Diagram Entitas 213.1 Tabel anggota 523.2 Tabel Petugas 523.3 Tabel Pinjaman_Anggota 533.4 Tabel_Transaksi_Simp 533.5 Tabel Simpanan 533.6 Tabel Perkiraan 543.7 Tabel Angsuran 543.8 Tabel_Permohonan_Pinjaman 543.9 TabelSaldoKoperasi 553.10 Tabel GroupPetugas 55
1
BAB I
PENDAHULUAN
1.1 Latar Belakang Masalah
Perkembangan industri teknologi informasi dewasa ini tidak
terlepas dari perkembangan komputer. Walaupun industri komputer relatif
lebih muda dibandingkan industri lainnya, namun dalam waktu yang
singkat komputer telah mengalami kemajuan yang pesat. Sampai saat ini
perkembangan teknologi komunikasi berkembang sangat cepat, sehingga
hambatan - hambatan dalam berkomunikasi sudah dapat teratasi.
Komunikasi dan Informasi telah menjadi bagian penting dalam dunia
industri pada umumnya dan masyarakat pada khususnya.
Selama ini proses pencatatan transaksi permohonan pinjaman,
transaksi simpanan serta pembayaran angsuran pada Koperasi
Purnawirawan dan Warakawuri TNI-POLRI masih dilakukan secara
manual yaitu dengan menggunakan media kertas, kemudian baru
dipindahkan ke komputer. Akan tetapi informasi transaksi simpanan,
pinjaman dan angsuran yang terjadi masih disimpan di kertas.
Pengaksesan data yang begitu banyak membutuhkan ketelitian dan
ketepatan yang baik untuk memperoleh hasil yang maksimal, namun
pekerjaan menjadi kurang efisien dan rentan terjadi kesalahan.
Pengarsipan yang masih menggunakan sistem tradisional juga berdampak
2
pada efisiensi waktu. Akses untuk memperoleh informasi mengenai
riwayat transaksi akan membutuhkan waktu yang tidak sedikit.
1.2 Rumusan Masalah
Berdasarkan latar belakang masalah yang penulis kemukakan di
atas dapat di buat rumusan masalah dalam pengembangan sistem
informasi ini, yakni sebagai berikut :
• Bagaimana membangun sistem informasi pada Koperasi Simpan
Pinjam yang dapat mengatasi kendala dalam pencatatan transaksi
pinjaman, transaksi simpanan, permohonan pinjaman, evaluasi
pinjaman, informasi simpanan anggota, informasi pinjaman
anggota serta informasi angsuran anggota. Sistem ini diharapkan
dapat memberikan informasi pendukung dalam proses
permohonan pinjaman, seperti informasi batas maksimum
pinjaman dari tiap anggota, jumlah hutang anggota (jika anggota
masih memiliki pinjaman yang belum terlunaskan) serta jumlah
permohonan pinjaman yang pernah diajukan anggota. Laporan
yang dihasilkan adalah laporan transaksi keuangan anggota pada
periode tertentu.
• Bagaimana mengimplementasikan sistem informasi pada koperasi
ini dengan menggunakan SQL Server 2000?
3
1.3 Tujuan Penelitian
Penelitian ini mempunyai tujuan, yaitu :
1. Membangun sistem informasi yang dapat menunjang proses
simpanan, pinjaman, permohonan pinjaman, angsuran
pinjaman,serta pembuatan laporan pada koperasi simpan pinjam
dengan menggunakan Visual Basic 6.0 dan SQL Server 2000
sebagai basis datanya.
2. Mengetahui prinsip kerja SQL Server 2000.
3. Melibatkan peran komputer dalam dunia koperasi sehingga proses
pencatatan Transaksi menjadi lebih mudah dengan hasil yang
akurat.
1.4 Batasan Masalah
Pada penulisan ini dibatasi pembuatan sistem informasi pada
koperasi Simpan pinjam, berupa pengolahan data permohonan pinjaman,
data simpanan anggota, data pinjaman anggota, data angsuran anggota,
informasi transaksi anggota. Hasil atau output yang utama yaitu laporan
transaksi keuangan anggota. Selain itu agar perancangan sistem ini dapat
dilakukan secara tepat, maka dilakukan pembatasan cakupan sistem antara
lain sebagai berikut :
1. Kasus yang dipilih adalah kasus yang berada dalam lingkungan
Primer Koperasi Purnawirawan dan Warakawuri TNI-POLRI.
yang berada di Kupang NTT.
4
2. Tidak membahas masalah keamanan.
3. Tidak membahas masalah human error.
4. Sistem ini tidak menangani transaksi-transaksi koperasi yang
lainnya seperti transaksi pemasukan kas dan pengeluaran kas yang
tidak berhubungan dengan anggota.
5. Sistem ini hanya menangani proses permohonan peminjaman
anggota yang tidak memiliki utang.
6. Sistem ini tidak membahas masalah akuntansi
1.5 Metode Penelitian
Sistem ini dikembangkan dengan mengunakan metodelogi
pengembangan sistem SDLC (System Development Life Cycle).
Metodelogi ini terbagi menjadi beberapa fase, yaitu :
1. Fase Analisis Sistem (Analisis Phase)
Analisis sistem dimaksudkan untuk mengidentifikasikan dan
mengevaluasi permasalahan – permasalahan yang dihadapi dan
kebutuhan yang diharapkan sehingga dapat menyelesaikan
hambatan - hambatan yang terjadi kearah perbaikan sistem.
2. Fase Rancangan (Design Phase)
Tahap ini merupakan langkah multi proses yang memusatkan kerja
pada perancangan sistem secara umum, misalnya perancangan
menu, perancangan tampilan dan User interface.
3. Fase Implementasi (Implementation Phase)
5
Setelah melakukan proses perancangan sistem yang diinginkan,
maka hasil rancangan tersebut diimplementasikan.
4. Fase Pengujian (Testing Phase)
Pengujian dimaksudkan agar dapat menguji apakah sistem yang
dibuat telah sesuai dengan yang dibutuhkan serta mencari segala
kesalahan yang mungkin terjadi.
5. Fase Pemeliharaan (Maintenance Phase)
Melakukan pemeliharaan terhadap sistem, berupa perawatan
terhadap perangkat lunak. Perawatan ini meliputi perubahan,
penambahan fungsi atau peningkatan informasi.
1.6 Sistematika Penulisan
Sistematika penulisan yang dipergunakan dalam penyusunan
laporan Tugas Akhir ini tersusun dari beberapa bab agar mempermudah
dan memperjelas penulisan dan pembahasan masalah.
Sistematika penulisannya adalah sebagai berikut :
BAB I PENDAHULUAN
Pada bab ini dijelaskan tentang latar belakang penulisan, perumusan
masalah, tujuan penelitian, pembatasan masalah, metode penulisan dan
sistematika penulisan.
BAB II LANDASAN TEORI
Membahas tentang landasan teori yang dipergunakan dalam penulisan
tugas akhir ini.
6
BAB III PERANCANGAN SISTEM
Menguraikan dan membahas tentang gambaran dan perancangan tentang
sistem yang akan dibuat.
BAB IV IMPLEMENTASI SISTEM
Pada bab ini berisi hasil tampilan input dan output dan laporan-laporan
yang dihasilkan.
BAB V ANALISA HASIL IMPLEMENTASI
Bab ini berisi analisa mengenai kelebihan dan kekurangan dari sistem
yang dibuat.
BAB VI PENUTUP
Pada bab ini berisi kesimpulan dan saran.
7
BAB II
LANDASAN TEORI
2.1 SQL Server
2.1.1 Sejarah SQL Server
SQL (Structured Query Language) pertama kali dikembangkan pada
akhir tahun 1970-an di laboratorium IBM San Jose, California. SQL yang
biasanya disebut “sequel”, pada mulanya dikembangkan untuk produk
DB2 (Database) yang dimiliki oleh IBM (Sakti, 2002). Sedangkan SQL
Server adalah salah satu investasi dan komponen strategis utama dari
Microsoft, bersama dengan Windows NT. SQL Server yang baru adalah
versi yang mendobrak hubungan antara kode sumber produk asli yang
berdasarkan kepada SQL Server Sybase. Antarmuka SQL Server ini
membawa banyak inovasi dan kemudahan penggunaan dan juga
menggabungkan pula sarana-sarana yang canggih untuk User tingkat
lanjut. SQL Server menggabungkan OLAP Server dan modul Data
Transformation Services (DTS), serta manajemen terintegrasi dari banyak
server.
2.1.2 Arsitekur SQL Server
Database SQL Server dibagi ke dalam beberapa komponen logikal,
seperti tabel, view, dan elemen-elemen lain yang terlihat oleh User
(Ramalho, 2001). Elemen-elemen ini secara fisik disimpan di dalam dua
8
atau lebih file di dalam disk. Server SQL Server terdiri dari beberapa
database yang digunakan oleh beberapa User. Gambar berikut
menampilkan pandangan User dalam tiga tabel dan implementasi fisik dari
tabel-tabel tersebut menggunakan file data, file indeks, dan file log.
Gambar 2.1 Arsitekur Database SQL Server
Bila database telah dibuat maka user dapat memiliki izin akses yang
telah diberikan. Hal ini membuat SQL Server dapat menyimpan beberapa
database dan membatasi akses ke masing-masing database ke user tertentu
saja.
Berikut ini komponen-komponen penting dari SQL Server :
1. Database : mengandung obyek-obyek yang digunakan untuk
mewakili, meyimpan dan mengakses data.
2. Tabel : menyimpan record-record data dan hubungannya dengan
tabel lain.
9
3. Database Diagram : secara grafis menampilkan objek database,
sehingga dapat dimanipulasi tanpa menggunakan bahasa Transact-
SQL.
4. Indeks : file-file tambahan yang meningkatkan kecepatan akses dari
record-record tabel.
5. View : menyediakan cara melihat data yang berbeda di dalam satu
atau lebih tabel.
6. Stored Procedure : program-program Transact-SQL yang disimpan
di dalam server yang menjalankan tugas-tugas yang telah ditentukan.
7. Trigger : Sebuah jenis prosedur tersimpan khusus yang secara
otomatis dijalankan apabila operasi tertentu dilakukan di dalam tabel.
8. Full-Text Indexes : Indeks khusus yang membuat pencarian menjadi
lebih mudah di dalam kolom-kolom dengan tipe data Varchar dan
Text.
Gambar 2.2 Arsitektur SQL Client/Server
10
2.1.3 Konsep Pemrograman SQL Server
SQL Server adalah sebuah database relasional yang dirancang
untuk mendukung aplikasi dengan arsitektur client/server, dimana
database terdapat pada komputer pusat yang disebut server, dan informasi
digunakan bersama–sama oleh beberapa user yang menjalankan aplikasi
didalam komputer lokalnya yang disebut client. Arsitektur semacam ini
memberikan intergritas data yang tinggi, karena semua user bekerja
dengan informasi yang sama. Melalui aturan-aturan bisnis, kendali
diterapkan kepada semua user mengenai informasi yang ditambahkan ke
dalam database. Arsitektur client/server sangat mengurangi lalu lintas
jaringan, karena hanya memberikan data yang diminta oleh user saja
(Ramalho, 2001).
SQL Server menggunakan bahasa standar yang meliputi perintah-
perintah untuk menyimpan, menerima, memelihara dan mengatur akses-
akses ke basis data serta digunakan untuk memanipulasi dan menampilkan
data RDBMS. SQL Server membuat programmer atau database
administrator dapat melakukan hal-hal berikut :
1. Memodifikasi struktur database.
2. Menggantikan setting sistem keamanan.
3. Menambah wewenang user pada database atau tabel.
4. Menampilkan informasi dari database.
5. Mengubah isi dari database.
6. Membuat keamanan data.
11
7. Menangani proses transaksi diantara aplikasi.
8. Mentransfer data antara database yang berbeda.
2.1.4 Data Defination Language (DDL)
DDL adalah bagian dari SQL yang dipakai untuk mendefinisikan
data dan objek database (Ramalho, 2001). Bila perintah digunakan maka
akan dibuat ke dalam kamus data dari SQL Server.
2.1.5 Data Manipulation Language (DML)
DML adalah bagian SQL yang digunakan untuk memanipulasi data
(Ramalho, 2001).
2.1.6 Tipe-Tipe Data
Pada SQL Server data yang disimpan di dalam tabel bisa memiliki
beberapa tipe yaitu :
Integer Keterangan
Bit
Int
Smallint
Tinyint
Decimal atau
Numeric
Money
Smallmoney
Float
Real
Datetime
Smalldatetime
Integer dengan nilai 0 dan 1.
Integer dengan nilai antara –23 sampai 231.
215 sampai 215-1.
Integer antara 0 sampai 255.
Angka dengan akurasi tetap antara –1038-1
sampai 1038-1.
Nilai data moneter dari –263 sampai 263-1.
-214.748,3648 sampai 214.748,3647.
-1.79E+308 sampai 1.79E+308.
-3.40E+38 sampai 3.4E+38.
1 Januari 1753 sampai 31 Desember 9999.
1 Januari 1900 sampai 6 Juni 2079.
Tabel 2.1 Tipe-tipe data integer
12
Lain-lain Keterangan
Cursor
Timestamp
Uniqueidentifier
Referensi ke kursor
Angka eksklusif yang dikenali oleh database
Pengenal global yang eksklusif
Tabel 2.2 Tipe-tipe data lain-lain
String Keterangan
Char
Varchar
Text
Field tetap dengan ukuran maksimal sebesar 8000
byte.
Field tetap dengan ukuran maksimal sebesar 8000
byte.
Variabel dengan ukuran hingga 231-1 byte.
Tabel 2.3 Tipe-tipe data string
Unicode
String
Keterangan
Nchar
Nvarchar
Ntext
Karakter unicode dengan ukuran tetap hingga 4000
byte.
Karakter unicode dengan ukuran bervariasi hingga
4000 byte.
Variabel dengan ukuran sampai 230-1 byte.
Tabel 2.4 Tipe-tipe data uncode string
Binary
String
Keterangan
Binary
Varbinary
Image
Ukuran tetap hingga 8000 byte.
Ukuran bervariasi hingga 8000 byte.
Ukuran bervariasi hingga 231-1 byte.
Tabel 2.5 Tipe-tipe data binary string
13
2.1.6.1 Ekspresi dan Operator
SQL Server mendukung semua operator. Operator bertindak
berdasarkan operand, yaitu elemen yang dianalisa oleh operator (Ramalho,
2001). Ada dua jenis operator, operator unary yang bertindak berdasarkan
satu operand saja, dan operator binary yang bertindak berdasarkan dua
atau lebih operand. Berikut ini adalah tipe-tipe operator yang didukung
oleh SQL Server :
Aritmetika Keterangan
Perkalian
Pembagian
Pengurangan
Penjumlahan
Modulus
*
/
-
+
%
Tabel 2.6 Tipe-tipe operator aritmetika
Perbandingan Keterangan
Sama dengan
Tidak sama dengan
Lebih besar dari
Lebih kecil dari
Lebih besar atau sama dengan
Lebih kecil atau sama dengan
Tidak kurang dari
Tidak lebih dari
Tidak sama dengan
=
<>
>
<
>=
<=
!<
!>
!=
Tabel 2.7 Tipe-tipe operator perbandingan
14
Logik Keterangan
NOT
AND
OR
BETWEEN
LIKE
IN
SOME
ANY
ALL
Membalikan nilai boolean.
Bernilai benar apabila kedua ekspresi benar.
Bernilai benar apabila salah satu ekspresi benar.
Bernilai benar apabila operand berada di dalam
jangkauan.
Bernilai benar apabila operand menemukan
standar.
Bernilai benar apabila beberapa item bernilai
benar.
Bernilai benar apabila item apapun bernilai
benar.
Bernilai benar apabila beberapa item bernilai
benar.
Bernilai benar apabila semua bernilai benar.
Tabel 2.8 Tipe-tipe operator logika
Unary Keterangan
+ (positif)
- (negatif)
~ (bitwise NOT)
Nilai numerik postif.
Nilai numerik negatif.
Mengembalikan nilai komplemen dari
angka.
Tabel 2.9 Tipe-tipe operator unary
2.1.6.2 Fungsi
Fungsi SQL adalah sebuah rutin yang melakukan operasi tertentu
dan mengembalikan satu hasil (Ramalho, 2001). Fungsi sama seperti
prosedur, kecuali bahwa prosedur tidak mengembalikan suatu hasil.
Fungsi bisa menerima argumen yang akan digunakan di dalam proses.
15
Sintaks dasar dari sebuah fungsi adalah :
Funcname {arg1,arg2,... argn)
Funcname adalah nama dari fungsi misalnya ABS, LOWER, UPPER.
arg1,arg2 dan argn adalah parameter opsional untuk fungsi.
Fungsi-fungsi SQL dibagi ke dalam fungsi satu baris atau skalar
dan fungsi grup atau aggregate. Fungsi satu baris mengembalikan hasil
dari setiap baris ke dalam bentuk tabel atau view. Fungsi grup
mengembalikan hanya satu hasil ke dalam grup baris. Misalnya fungsi
LOWER() menggubah argumennya menjadi huruf kecil semua.
2.1.6.3 Prosedur
Prosedur sangat bermanfaat pada lingkungan client-server, yaitu
untuk meningkatkan kinerja maupun untuk pemeliharaan (Ramalho,
2001). Karena satu prosedur bisa digunakan oleh beberapa program,
pengelolaan sistem bisa menjadi lebih mudah karena satu perubahan akan
segera direfleksikan kepada semua server
Dalam pembuatan prosedur perlu menentukan nama prosedur,
parameternya, serta badan yang mengandung perintah-perintah yang akan
dijalankan. Dengan parameter bisa dilakukan komunikasi antara prosedur
dengan dunia luar. Apabila program menjalankan prosedur, ia bisa
mengirimkan nilai-nilainya didalam bentuk parameter. Nilai-nilai ini bisa
digunakan oleh prosedur untuk melakukan tugasnya. Parameter harus
16
memilki nama yang eksklusif dan diawali dengan simbol @ dan juga
menyertakan definisi tipe data.
Contohnya :
CREATE PROCEDURE test1
@code varchar (8)
Artinya sebuah parameter bernama code akan dibuat dengan tipe Varchar
dengan ukuran delapan.
Semua parameter yang dibuat dianggap sebagi parameter input,
artinya menerima data dari program yang menjalankan prosedur. Dengan
menambahkan kata OUTPUT ke dalam definisi parameter, prosedur bisa
mengembalikan nilai dari parameter ke dalam program yang
memanggilnya. Contohnya sebagai berikut :
CREATE PROCEDURE test1
@code varchar(8)
@totalcode int OUTPUT
2.1.6.4 Indeks
Indeks adalah sebuah file pelengkap yang berhubungan dengan
tabel, yang fungsinya mempercepat waktu akses ke dalam baris-baris tabel
(Ramalho, 2001). Indeks dibentuk oleh kunci-kunci berdasarkan kepada isi
dari satu atau lebih kolom pada tabel. Jenis-jenis indeks dalam SQL Server
adalah :
17
1. Indeks Clustered : mengorganisir baris-baris pada tabel ke dalam
urutan tertentu misalnya secara alfabetis atau angka.
2. Indeks Non Clustered : memilki struktur yang terpisah dari tabel.
Urutan fisik dari baris tabel tidak mengikuti urutan dari file indeks.
Data (baris tabel) diletakan pada satu tempat dan indeks diletakan
pada tempat yang lain.
2.1.6.5 View
View adalah tabel virtual yang isinya didefinisikan oleh query
database. View bukanlah sebuah tabel fisik, tetapi sekumpulan instruksi
yang menghasilkan sekumpulan data (Ramalho, 2001). Penggunaan view
sangat bermanfaat bila ingin memfokuskan pada informasi tertentu pada
database. View mengizinkan banyak User yang berbeda melihat informasi
yang sama dengan fokus berbeda. View mengizinkan kombinasi
informasi untuk memenuhi kebutuhan User tertentu, dan bahkan bisa
diekspor ke dalam aplikasi lain.
2.1.7 SQL Server Client Network Utulity
Program yang dirancang untuk mengelola konfigurasi client untuk
koneksi network yang didefinisikan oleh User dan untuk DB-Library dan
Net-Libaries. Konfigurasi yang ada pada tab General adalah :
Pilihan Fungsi
Default Network
Library
Menentukan kepustakaan default untuk
berkomuikasi dengan SQL Server
18
Server Alias
Configurations
Network Library
Connection
Parameters
Add
Remove
Edit
Menunjukkan alias dari komputer client
Menunjukkan kepustakaan network yang
digunakan
Menunjukkan parameter-parameter yang
mungkin yang berhubungan dengan alamat
koneksi
Mengizinkan penambahan koneksi
network baru
Mengizinkan penghapusan koneksi
Mengizinkan penyuntingan koneksi
Tabel 2.10 Konfigurasi di SQL Server Client Network Utility
2.2 Metodologi Pengembangan Sistem
Terdapat beberapa metodologi untuk mengembangkan sistem yaitu
(Jogiyanto, 1990) :
a. Metodologi klasik.
b. Metodologi terstuktur.
Alat-alat yang digunakan dalam metodologi terstruktur ini adalah :
1. Diagram Arus Data.
2. Diagram Prosedur.
3. Diagram Relasi Entitas.
4. Diagram HIPO.
2.2.1 Langkah- Langkah Pengembangan Sistem
Terdiri dari beberapa langkah utama dalam pengembangan sistem
(Jogiyanto, 1990) yaitu :
19
1. Perencanaan sistem
a. Studi suatu sistem.
b. Studi kelayakan.
2. Desain sistem :
A. Desain sistem secara umum :
1. Desain model secara umum.
2. Desain proses secara umum.
3. Desain output secara umum.
4. Desain input secara umum.
5. Desain database secara umum.
6. Desain teknologi secara umum.
7. Desain kontrol secara umum.
B. Desain sistem secara terinci :
1. Desain output secara terinci.
2. Desain input secara terinci.
3. Desain database secara terinci.
4. Desain teknologi secara terinci.
3. Seleksi Sistem.
4. Implementasi Sistem.
2.2.2 Alat dan Teknik Dalam Perancangan Sistem
A. Diagram Arus Data (DAD)
DAD menggambarkan suatu sistem yang telah ada atau sistem baru
yang akan dikembangkan secara logika tanpa mempertimbangkan
20
lingkungan fisik dimana data tersebut mengalir atau dimana data tersebut
akan disimpan (Jogiyanto, 1990). DAD dapat menggambarkan arus data di
dalam sistem dengan struktur yang jelas .
Beberapa simbol DAD yang digunakan :
Simbol Keterangan
Kesatuan Luar adalah
kesatuan yang berada di luar
sistem yang dapat berupa
organisasi, orang atau sistem
lain yang berada di luar.
Arus Data mengalir diantara
proses simpanan luar dan
kesatuan luar.
Proses adalah kegiatan yang
dilakukan oleh orang,
organisasi, mesin (komputer).
Suatu arus data yang masuk
ke dalam proses akan
menghasilkan arus data yang
keluar dari porses.
Simpanan Data dapat berupa :
suatu file, arsip, tabel.
Tabel 2.11 Simbol-simbol Diagram Arus Data
21
B. Diagram Relasi Entitas
Diagram relasi entitas didasarkan dengan adanya persepsi bahwa
obyek yang benar-benar ada dan hubungan antar obyek, serta
menggambarkan entitas dan hubungannya secara logika (Kenneth E.
Kendall & Julie E. Kendall, 1998).
Beberapa simbol yang digunakan pada diagram relasi entitas adalah :
Simbol Keterangan
Entity adalah obyek yang benar-benar
ada. Entity dapat berupa elemen
lingkungan, sumber daya, atau
transaksi.
Hubungan adalah relasi antara setiap
entity atau obyek.
Attribute adalah suatu karateristik
suatu entity. Menunjukkan suatu field
dari entity atau elemen-elemen data.
Keterkaitan untuk menghubungkan
setiap relasi antara entity. Ada tiga
jenis keterkaitan yaitu : satu ke satu,
satu ke banyak, dan banyak ke banyak.
Tabel 2.12 Simbol-simbol Diagram Entitas
22
C. HIPO
HIPO Biasanya disebut diagram berjenjang. HIPO digunakan
untuk menunjukkan tingkat kedudukan sistem berserta subsistem-
subsistem dibawahnya.
0
1 2
1.31.21.1 2.32.22.1
Gambar 2.3 Diagram HIPO
2.3 Database
Database adalah kumpulan data yang terintegrasi satu sama lain.
Setiap pemakai yang diberi wewenang dapat melakukan akses terhadap
data tersebut. Database biasanya teroganisasi dalam beberapa komponen
yaitu :
1. Entity adalah orang, tempat kejadian atau konsep yang
informasinya direkam.
23
2. Atribut / Field adalah setiap entity mempunyai atribut atau sebutan
untuk mewakili suatu entity.
3. Record / Tuple adalah kumpulan elemen-elemen yang saling
berkaitan dengan informasi tentang suatu entity secara lengkap.
4. File adalah kumpulan record-record sejenis yang mempunyai
panjang elemen yang sama, atribut yang sama namun berbeda-
beda data valuenya.
5. Data Value adalah data aktual atau informasi yang disimpan pada
tiap data elemen atau atribut.
6. Database Management Sistem (DBMS) adalah kumpulan file yang
saling berkaitan bersama dengan program untuk pengelolaannya
disebut DBMS.
2.3.1 Arsitektur Database
Pemakai dapat dikelompokkan menjadi tiga tingkatan arsitektur
dalam memandang suatu database yaitu :
1. Level fisik menggambarkan bagaimana data disimpan dalam
kondisi sebenarnya. Level ini tentu paling kompleks, struktur data
level terendah digambarkan pada level ini (Kristanto, 1994).
2. Level konseptual menggambarkan data apa yang disimpan dalam
database, dan hubungan relasi yang terjadi antara data. Level
menggambarkan keseluruhan database (Kristanto, 1994).
Penggambaran hanya menggunakan lambang-lambang kotak, garis
24
dan keterangan lain. Level ini digunakan oleh database
administrator yang akan memutuskan informasi apa yang
dipelihara dalam database.
3. View Level menggambarkan hanya satu bagian dari keseluruhan
database. Level ini sangat dekat dengan pemakai, setiap User
hanya butuh sebagian dari database (Kristanto, 1994).
2.3.2 Bahasa
Bahasa dalam DBMS terbagi menjadi :
1. Data Defination Language (DDL)
DDL bertujuan menspesifikasikan pola database. Hasil Kompilasi
dari perintah DDL adalah satu set dari tabel yang disimpan pada
file khusus yang disebut Data Dictionary.
2. Data Manipulation Language (DML)
DML bahasa yang mengijinkan pemakai untuk akses data sebagai
yang telah diorganisasikan sebelumnya dalam model data yang
tepat. DML berarti :
a. Mengambil informasi yang ada di database.
b. Menyisipkan informasi baru ke database.
c. Menghapus informasi dari database.
Secara dasar ada dua tipe DML :
a. Prosedural
25
Pemakai harus menspesifikasikan data apa yang dibutuhkan
dan bagaimana untuk mendapatkannya.
b. Non prosedural
Pemakai harus menspesifikasikan data apa yang dibutuhkan
tanpa menspesifikasikan bagaimana mendapatkannya.
3. Quey Language
Quey Language adalah peryataan statement yang diajukan untuk
mendapatkan informasi. Merupakan bagian DML untuk
pengambilan informasi.
2.3.3 Perancangan Database
Perancangan model konseptual database merupakan kombinasi
beberapa cara untuk memproses data untuk beberapa aplikasi. Model
konseptual tidak tergantung pada aplikasi individu, tidak tergantung pada
DBMS yang digunakan, tidak tergantung pada perangkat keras yang
digunakan serta juga tidak tergantung pada fisikal model (Kristanto,
1994).
Pada model rancangan konseptual ditekankan pada struktur data
dan relasi antara file. Pendekatan model konseptual menggunakan model
data relational. Terdapat dua buah teknik yaitu :
2.3.3.1 Teknik Normalisasi
Teknik normaliasi adalah pengelompokan data elamen menjadi
tabel-tabel yang menunjukkan entity dan relasinya (Kristanto, 1994). Pada
proses nomalisasi apakah ada kesulitan pada saat menambah, menghapus
26
membaca, dan mengubah database. Bila ada kesulitan maka relasi tersebut
dipecahkan pada beberapa tabel lagi.
Langkah-langkah normalisasi :
1. Bentuk tidak Normal.
Merupakan kumpulan data yang akan direkam, data dikumpulkan
apa adanya sesuai dengan kondisi pada saat kedatangannya.
2. Bentuk Normal Pertama.
Mentransformasikan semua item-item data ke dalam tabel dua
dimensi pada langkah ini data yang berulang-ulang dihilangkan,
sehingga didapat flat file. Data dibentuk dalam satu record demi
satu record. Tidak ada set atribut yang berulang-ulang.
3. Bentuk Normal Kedua.
Bentuk data telah memenuhi kriteria bentuk normal kesatu. Atribut
bukan kunci haruslah tergantung secara fungsi pada kunci utama.
Sehingga pada normal kedua haruslah sudah ditentukan kunci-
kunci field. Kunci field haruslah unik dan dapat mewakili atribut
lain yang menjadi anggotanya.
4. Bentuk Normal Ketiga.
Pada bentuk normal ketiga maka relasi haruslah dalam bentuk
normal kedua dan semua atribut bukan primer tidak punya
hubungan yang transitif atau atribut bukan kunci haruslah
bergantung hanya pada kunci utama dan pada kunci utama secara
menyeluruh.
27
2.3.3.2 Teknik Entity Relationship
Pada teknik ini hubungan antar file direlasikan dengan kunci relasi,
yang merupakan kunci utama dari masing-masing file (Kristanto, 1994).
Gambaran relasi atribut dalam satu file dan antara dua file secara lengkap
terdapat enam macam yaitu:
1. One to one antar dua file : hubungan antar file pertama dengan file
kedua adalah satu berbanding satu.
2. One to many antar dua file : hubungan antara file pertama dengan
file kedua adalah satu berbanding banyak..
3. Many to many antar dua file : hubungan antar file pertama dengan
file kedua adalah banyak berbanding banyak.
4. One to one dua atribut dalam satu file : hubungan antara satu
atribut dengan atribut dalam satu file yang sama mempunyai
hubungan satu lawan satu.
5. One to many dua atribut dalam satu file : hubungan antara satu
atribut dengan atribut dalam satu file yang sama mempunyai
hubungan satu lawan banyak.
6. Many to many dua atribut dalam satu file : hubungan antara satu
atribut dengan atribut dalam satu file yang sama mempunyai
hubungan banyak lawan banyak.
28
2.4 Visual Basic
Visual Basic merupakan salah satu pengembang perangkat lunak
untuk sistem operasi windows dan memberikan fasilitas-fasilitas
pembuatan aplikasi visual. Secara umum dalam lingkungan kerja Visual
Basic terdapat lima buah komponen yang dirancang sebagai aplikasi multi
window yang disebut dengan Single Document Interface (SDI). Kelima
komponen tersebut adalah :
1. Toolbar
2. Toolbox
Toolbox adalah kotak alat yang berisi icon-icon untuk
memasukkan objek tertentu ke dalam jendela form.
3. Project
Project adalah sekumpulan modul. Jadi project (proyek) adalah
program aplikasi itu sendiri. Project disimpan dalam file
berakhiran .VBP, file ini menyimpan seluruh komponen program,
termasuk pilihan proyek dan segala sesuatu yang berhubungan
dengan proyek.
Pada jendela proyek terdapat tiga icon, yaitu icon View Code
(dipakai untuk menampilkan jendela editor kode program), icon
View Object (dipakai untuk menampilkan bentuk formulir/form,
dan icon Toggle Folders (berguna untuk menampilkan
folder/tempat penyimpanan file.
29
4. Form Layout
Form adalah suatu objek yang dipakai sebagai tempat bekerja
program aplikasi. Form berbentuk jendela. Pada saat mendesain
Form, terdapat garis titik-titik yang disebut grid. Grid sangat
berguna untuk membantu pengaturan tata letak objek yang
dimasukkan dalam form, karena gerakan penunjuk mouse akan
sesuai/ tepat pada titik-titik grid.
5. Properties
Properti digunakan untuk menentukan settingsuatu objek. Suatu
objek biasanya mempunyai beberapa properti yang dapat diatur
langsung dari jendela Properties atau lewat kode program. Setting
properti akan menentukan cara kerja dari objek yang bersangkutan
saat program aplikasi dijalankan, misalnya menentukan warna
objek, bingkai objek, pengambilan data dan lain-lain.
2.5 Koperasi Simpan Pinjam
Koperasi Simpan Pinjam adalah koperasi yang bergerak dalam
bidang pemupukan simpanan dari anggota, untuk kemudian dipinjamkan
kembali kepada anggota-anggotanya yang memerlukan bantuan modal.
Disamping bertujuan untuk mendidik anggotanya agar bersikap hemat
serta gemar menabung, koperasi Simpan Pinjam biasanya bertujuan untuk
membebaskan para anggotanya dari jeratan para rentenir.
30
Dengan menabung serta memperoleh modal dari perusahaan yang
mereka miliki sendiri, maka para anggota koperasi Simpan Pinjam tidak
hanya akan menikmati hasil simpanan serta hasil usaha tetapi mereka
memiliki peluang untuk memperolah modal dengan biaya yang murah.
Selain koperasi Simpan Pinjam juga ada koperasi-koperasi jenis lain yang
membedakan dengan koperasi kredit yaitu (Revrisoud, 1997) :
1. Koperasi Konsumsi yang berusaha dalam penyedian barang-barang
konsumsi yang dibutuhkan para anggotanya. Jenis Konsumsi yang
dilayani oleh suatu koperasi konsumsi sangat tergantung pada
ragam anggota dan daerah kerja tempat koperasi tersebut didirikan.
2. Koperasi Produksi yang kegiatan utamanya melakukan pemrosesan
bahan baku menjadi bahan setengah jadi atau bahan jadi. Biasanya
juga bergerak secara langsung dalam kegiatan pemasaran barang-
barang yang diproduksi. Tujuannya adalah menyatukan
kemampuan dan modal para anggotanya, guna menghasilkan
barang tertentu melalui suatu perusahaan yang mereka kelola dan
miliki sendiri.
2.6 Transaksi
Setiap kejadian yang mengubah posisi keuangan atau hasil usaha
entity yang dilaporkan oleh organisasi. Kejadian yang terjadi tidak
mempengaruhi posisi harta/utang/modal, dan hasil usaha organisasi bukan
merupakan transaksi yang dicatat dalam akuntansi. Kejadian yang dicatat
dan dibukukan hanya kejadian yang dapat dikategorikan sebagai transaksi.
31
Setiap transaksi mempunyai bukti (evidence), baik dari luar misalnya
faktur pembelian, rekening listrik maupun bukti dari dalam misalnya
daftar gaji, alokasi penyusutan (Harahap, 1994).
32
BAB III
ANALISIS DAN PERANCANGAN SISTEM
3.1 ANALISIS SISTEM
3.1.1 Gambaran Umum Sistem Yang Lama
Koperasi Purnawirawan dan Warakawuri TNI – POLRI
merupakan sebuah koperasi kredit, atau yang lebih dikenal sebagai
koperasi simpan pinjam. Sebagai koperasi simpan pinjam, koperasi ini
memupuk simpanan dari anggota untuk kemudian dipinjamkan kembali
kepada anggota - anggotanya yang memerlukan bantuan modal.
Dalam proses transaksi simpan pinjam ini, Koperasi
Purnawirawan dan Warakawuri TNI – POLRI masih menggunakan sistem
kerja manual pada berbagai proses yang terjadi. Proses pencatatan
transaksi masih mengandalkan media kertas, begitu pula dengan proses
penyimpanan dokumen maupun proses pembuatan laporan. Walaupun
koperasi ini memiliki aset berupa beberapa perangkat komputer, namun
selama ini proses pencatatan transaksi masih harus dicatat terlebih dahulu
di kertas, kemudian baru dipindahkan ke komputer untuk selanjutnya
digunakan untuk pembuatan laporan dengan menggunakan program bantu
excel.
3.1.2 Gambaran Umum Sistem Yang Dikembangkan
Sistem yang akan dibangun diharapkan mampu memberikan
layanan akses bagi semua kalangan yang terkait dalam koperasi ini, juga
33
diharapkan mampu menjadi media promosi untuk koperasi ini. Dalam
sistem, User dapat mengakses data dan melakukan proses-proses data
sesuai dengan hak aksesnya masing-masing. Untuk menjaga keamanan
data maka tiap User harus melakukan login terlebih dahulu. Dalam proses
login, sistem akan mengatur pendelegasian hak untuk tiap User. Seorang
User yang login sebagai anggota hanya dapat melihat hasil evaluasi
pinjamannya, melihat daftar angsuran pinjamannya, melihat data pinjaman
serta angsurannya, melihat data simpanannya, serta melihat data dirinya
tetapi tidak dapat mengubahnya. Anggota hanya dapat mengganti
password dan Usernamenya. Sebagaimana anggota, maka petugas juga
akan memperoleh hak akses sesuai dengan data login yang diinputkan.
Bendahara bertugas untuk memasukan data transaksi keuangan yang
terjadi serta membuat bukti transaksi keuangan. Seorang manajer atau
ketua dapat melihat hampir semua informasi, antara lain data-data
transaksi, data anggota, data petugas, data pinjaman serta laporan-laporan.
Bagian anggota merupakan petugas yang diberi hak untuk mengisi data
anggota serta menginputkan data setoran awal dan memanipulasinya.
Seorang manajer juga bertanggung jawab untuk mengkonfirmasi status
permohonan pinjaman. Dalam sistem yang akan dikembangkan, juga
terdapat seorang petugas yang berperan sebagai administrator.
Administrator bertugas untuk mengupdate data petugas serta data
perkiraan.
34
3.2 PERANCANGAN SISTEM
3.2.1 Perancangan Proses
3.2.1.1 Use Case Diagramlogin
Manajer
Mengisi data permohonanpinjaman
Menambahdata anggota Mengubah
data anggota
Melihat dataanggota
Melihat dataangsuran anggota
Melihat evaluasipermohonan
pinjaman anggota
Melihat permohonanpinjaman anggota
Melihat daftar transaksisimpanan Anggota
Mengisi evaluasi permohonanpinjaman anggota
Mengisi dataSimpanan Anggota
Bendahara
Bagian anggota
Anggota
Laporan transaksiPinjaman Anggota
Laporan transaksiSimpanan Anggota
<< depend on >>
Menambahdata petugas
Melihat datapetugas
Mengubahdata petugas
Menghapus datapetugas
Laporan AngsuranAnggota
Mengisi dataPinjaman Anggota
Mengisi dataAngsuran Anggota
Melihat datapinjaman anggota
Ubah dataSimpanan Anggota Ubah data
Angsuran Anggota
Ubahi data PinjamanAnggota
Mengubahdata Perkiraan
Menambahdata perkiraan
Menghapusdata perkiraan
Melihat dataPerkiraan
Admin
Membuat Buktitransaksi keuangan
Tambah setoranawal
Ubah setoranawal
Lihat setoranawal
Gambar 3.1 Gambar Use Case Diagram
35
Username danpassword anggota
IInformasi transaksi simpanananggota, informasi transaksipinjaman anggota, informasitransaksi angsuran anggotaInformasi evaluasipermohonan pinjaman
informasidatapetugas,Informasidataanggota,Informasisetoranawal
Username dan passwordbendahara,
Data simpanan anggota,dataPinjaman anggota, DataAngsuran anggota,Datapermohonan pinjaman
anggota,membuat cetakbukti trnsaksi
Informasi transaksi simpanananggota, informasi transaksipinjaman anggota, informasitransaksi angsuran anggota,Informasi dataanggota,informasi datapetugas,informasi evaluasipinjaman
Username danpassword manajer
Informasi transaksisimpanan anggota, informasitransaksi pinjaman anggota,informasi transaksi angsurananggota, ,informasi datapetugas, Informasipermohonan pinjamananggota, informasi evaluasipermohonan pinjamanLaporan Simpanan Anggota,Laporan pinjaman Amggota,Laporan Angsuran Anggota
Username danpassword bagiananggota , dataanggota,Datasetoran AwalAnggota
Username danpassword admin,Data petugas,dataperkiraan
informasi datapetugas, informasi
data perkiraan
3.2.1.2 Context Diagram
Context diagram adalah diagram yang digunakan untuk
menggambarkan sistem secara umum atau secara garis besar . Context
diagram merupakan level teratas dari diagram arus data yang akan dibuat.
Context diagram kemudian akan dipecah menjadi bagian yang lebih
terinci dan dinamakan diagram leval 0 (overview diagram). Tiap-tiap
proses dalam overview diagram akan digambarkan secara lebih rinci lagi,
serta akan disebut dengan level 1. Tiap proses level 1 akan digambarkan
lebih rinci dan dinamakan dengan level 2. Hal ini berlaku seterusnya
sampai proses tidak dapat digambarkan lebih rinci lagi.
Gambar 3.2 Gambar Context Diagram
Bendahara
Anggota
Manajer
0
SistemInformasiKoperasi
Simpan Pinjam
BagianAnggota
Admin
36
3.2.1.3 Bagan Berjenjang0
Sistem InformasiKoperasi
Simpan pinjam
2.3P
MengubahData
Anggota
2.2P
MenambahData
Anggota
Loginbagian
Anggota
1.3P
Loginbendahara
1.2P
LoginAnggota
1.5P
1.1P
LoginAdmin
1.4P
LoginManajer
2
Proses DataAnggota
1
ProsesLogin
3.4P
MenghapusData
Perkiraan
3.3P
MengubahData
Perkiraan
3.1P
MelihatData
Perkiraan
3.2P
MenambahData
Perkiraan
3
Proses DataPerkiraan
4.4P
MenghapusData
Petugas
4.3P
MengubahData
Petugas
4.2P
MenambahData
Petugas
4.1P
MelihatData
Petugas
4
Proses DataPetugas
2.1P
MelihatData
Anggota
Gambar 3.3.1 Gambar Bagan Berjenjang
37
.5
Prosespermohonan
pinjaman
0
Sistem InformasiSimpan Pinjam
6
ProsesTransaksi
7
ProsesCetak
Laporan
8
ProsesLogout
7.1P
PinjamanAnggota
7.2P
Pembayaranangsuran
7.3P
SimpananAnggota
6.1P
TransaksiSimpananAnggota
6.2P
TransaksiPinjamanAnggota
6.3P
TransaksiAngsuranAnggota
6.1.1P
Melihatdata
TransaksiSimpanan
6.1.2P
Menambahdata
TransaksiSimpanan
6.1.3P
Mengubahdata
TransaksiSimpanan
6.2.1P
Melihatdata
TransaksiPinjaman
6.2.2P
Menambahdata
TransaksiPinjaman
6.2.3P
Mengubahdata
TransaksiPinjaman
6.3.1P
Melihatdata
TransaksiAngsuran
6.3.2P
Menambahdata
TransaksiAngsuran
6.3.3P
Mengubahdata
TransaksiAngsuran
5.1P
Melihatpermohonan
pinjaman
5.2P
Menambahpermohonanpinjaman
5.3P
Mengubahpermohonanpinjaman
Gambar 3.3.2 Gambar Bagan Berjenjang
38
1
ProsesLogin
2
Prosesdataanggota
6
ProsesTransaksi
.5
Prosespermohonan
pinjaman
7
ProsesCetak
Laporan
4
Proses DataPetugas
3
Proses DataPerkiraan
8
ProsesLogout
Bendahara
Username danpassword anggota
Anggota
BagianAnggota
Manajer
Username danpassword bendahara
Username dan passwordbagian anggota
Username dan passwordbagian manajer
A
B
C
D
AdministratorE
Username dan passwordAdministrator
Tabel_PetugasD2
Detail Group, Usernamedan password Petugas
Username dan password manajer,bendahara,bagian anggota dan
administrator yang valid
Username dan password anggota,bagian anggota,bendahara,
manajer yang valid
Tabel_AnggotaD11gUsername dan password
anggota
Username dan passwordAdmn yang valid
Username dan passwordmanjer,angota dan bandaharayang valid
Username dan passwordmanjer,angota dan bandaharayang valid
Username danpasswordmanjer,angota danbandahara yangvalid
Username dan password manajer,bendahara,bagian anggota,anggota
dan administrator yang valid
Detail data anggotaTabel_AnggotaD1
ggData anggota
D
Informasi data anggota
CA
Detail data perkiraan
PerkiraanD9 Data perkiraan
E
Tabel_PetugasD2
Detail data petugas
E
Data petugas
D
Informasi Data simpanan anggota
CB
Informasi permohonan pinjaman anggota
DA
Detail data permohonan pinjaman
Data permohonan pinjaman
Tabel_Permohonan_PinjamanD8
B
Tabel_AnggotaD1gg
Tabe_pinjaman_anggotaD6gg
Informasi Data Pinjaman Anggota
PerkiraanD3
Tabe_SimpananD5gg
Tabe_pinjaman_anggotaD6gg
Data pinjaman anggota
Detail data pinjaman anggota
Tabel_Angsuran_anggotaD7gg
Detail Data Angsuran Anggota
Data AngsuranAnggota
Detail data Perkiraan
Detail Data Anggota
Tabe_Transaksi_SimpD4gg
Detail Data simpanan Anggota
Data simpanan Anggotsa
Data simpanan Anggota
Detail Data simpanan Anggota
Tabe_pinjaman_anggotaD6gg
Tabe_SimpananD5gg
Tabe_Transaksi_SimpD4gg
Tabel_AnggotaD1gg
Detail DataPinjamanAnggota
Detail Data simpananAnggota
A
B
D
Informasi Data transaksi Anggota
A
D
Laporan transaksi keuangan anggota
Bukti transaksi keuangan
B
B
Tabel_Angsuran_anggotaD7gg
Detail DataUtang Anggota
C
Setoran awal
B Transaksi periodeikTabel_PetugasD2
Detail Petugas
3.2.1.4 Overview Diagram
Gambar 3.4 Gambar Overviw Diagram
39
Diagram Arus Data Level 1 Proses 1
Gambar 3.5 Gambar Diagram Arus Data Level 1 Proses login
1
1.1P
loginAnggota
1.2P
loginBendahara
1.3P
login bagiananggota
1.4 P
loginManajer
Bendahara
Anggota
Bagiananggota
Manajer
Username dan password anggota
Tabel_AnggotaD1gg
Username dan password anggota
Username dan passwordbendahara
Tabel_PetugasD2
Username dan passwordbendahara
Username dan password anggota yang valid
Username dan passwordbendahara yang valid
Username dan password manajer
Username dan password bagiananggota
Username dan password bagiananggota yang valid
Username dan password bagianmanajer
Username dan password manajeryang valid
Username dan password bagiananggota
Administrator
1.5P
LoginadministratorUsername dan password admin
Username dan password admin
Username dan password adminyang valid
AdminD10
40
Diagram Arus Data Level 1 Proses 2
2.1P
Tambahdata
anggota
2.3P
Ubahdata
anggota
2
2.2P
Lihatdata
anggota
Bendahara
BagiananggotaManajer
Username dan passwordanggota, bagian
anggota,bendahara,manajer yang valid
Username danpassword bagian
anggota yang valid
Username danpassword bagian
anggota yang valid
Username danpassword bagian
anggota,bendahara,manajer yang valid
Anggota
Data anggota
Tabel_AnggotaD1gg
Data anggota
Informasi data anggota
Detail data anggota
Data anggota yangtelah diubah
Data anggota yangakan diubah
Informasi data anggota
Informasi data anggota
Gambar 3.6 Gambar Diagram Arus Data Level 1 Proses Data Anggota
41
Diagram Arus Data Level 1 Proses 3
Gambar 3.7 Gambar Diagram Arus Data Level 1 Proses Data Perkiraan
3.4P
Menghapusdata
perkiraan
3.1P
Menambahdata
perkiraan
3.3P
Mengubahdata
perkiraan
3
3.2P
Melihatdata
perkiraan
Administrator
Manajer
Username dan passwordmanajer,bendahara,,bagian
anggota, administrator yang valid Table_PerkiraanD3
Informasi dataperkiraan
Informasi dataperkiraan
Username dan passwordadministrator yang valid
Username dan passwordadministrator yang valid
Username dan passwordadministrator yang valid
data perkiraan
Detail data perkiraan
Data perkiraan yang akandiubah
Data perkiraan yang telahdiubah
Data perkiraan yang akandihapus
Data perkiraan yang telahdihapus
Bendahara
Bagiananggotar
Username dan passwordmanajer,bendahara, bagian
anggota, administrator yang valid
Informasi dataperkiraan
Informasi dataperkiraan
42
4.4P
Menghapusdata
petugas
4.1P
Menambahdata
petugas
4.3P
Mengubahdata
petugas
4
4.2P
Melihatdata
petugas
Administrator
Manajer
Username dan passwordmanajer,bendahara, bagian
anggota, administrator yang valid Table_PetugasD2
Informasi data petugas
Informasi data petugas
Username dan passwordadministrator yang valid
Username dan passwordadministrator yang valid
Username dan passwordadministrator yang valid
data petugas
Detail data petugas
Data petugas yang akandiubah
Data petugas yang telahdiubah
Data petugas yang akandihapus
Data petugas yang telahdihapus
Bendahara
Bagiananggotar
Username dan passwordmanajer,bendahara,bagiananggota, administrator yang
valid
Informasi data petugas
Informasi datapetugas
Diagram Arus Data Level 1 Proses 4
Gambar 3.8 Gambar Diagram Arus Data Level 1 Proses Data Petugas
43
Diagram Arus Data Level 1 Proses 6
6
6.3P
TransaksiAngsuranAnggota
Username dan password,,bendahara, manajer, yang valid
Bendahara
Manajer
Username dan password,bendahara yang valid
Username dan password,bendahara yang valid
Informasi data simpananInformasi data Angsuran
Data transaksi keuangan
Data transaksi keuangan Data transaksi simpananAnggota
Data transaksi pinjamananggota
Username dan password,,bendahara, yang valid
Data pembayaran angsurananggota
Informasi data pinjaman
Informasi data angsuran
Gambar 3.9 Gambar Diagram Arus Data Level 1 Proses Transaksi
6..2P
Transaksipinjamananggota
Tabel Pinjaman_anggotaD6gg
6..1P
TransaksiSimpananAnggota
Tabe_SimpananD5gg
Tabel_Angsuran_anggotaD7gg
Tabe_Transaksi_SimpD4gg
44
Diagram Arus Data Level 1 Proses 7
Gambar 3.10 Gambar Diagram Arus Data Level 1 Proses Cetak Laporan
Anggota
Manajer
Jadwal angsuran
Laporan transaksi masuk
Laporan transaksi keluar
Daftar angsuran
Username dan passwordmanajer yang valid
Username dan passwordanggota yang valid
Username dan passwordmanajer yang valid
Detail data simpanan anggota
Detail data pinjaman anggota
Detail data pinjaman anggota
7.2P
CetakPinjamanAnggota
7.3 P
CetakSimpananAnggota
7.1P
Cetakdaftar
angsuran
7.p
Tabe_SimpananD5gg
Tabe_pinjaman_anggotaD6gg
Tabel_Angsuran_anggotaD7gg
Tabe_Transaksi_SimpD4gg
45
3.2.2 Perancangan Database
3.2.2.1 Deskripsi Kebutuhan Data
Berdasarkan fakta, proses-proses yang ditemukan dalam
pembuatan sistem informasi ini adalah:
1. Pendaftaran anggota baru.
Proses pendaftaran merupakan hal yang penting, karena dengannya
maka seseorang baru dapat mendapatkan hak sebagai seorang
anggota koperasi. Dalam tahap ini seorang bagian anggota akan
mengisi data diri anggota, seperti nama, pekerjaan,nomor KTP,
alamat serta nilai nominal dari simpanan pokok, simpanan wajib,
simpanan Khusus, tabal dan uang pangkal serta tanggal masuk.
2. Permohonan pinjaman
Untuk mendapatkan pinjaman dari Koperasi maka anggota harus
mengisi formulir permohonan pinjaman. Formulir ini
menerangkan hal-hal seperti, besar pendapatan, tujuan
peminjaman, penjamin, besar pinjaman tunai Tanggal cicilan
pertama, lama angsuran, tanggal permohonan pinjaman, serta total
pinjaman. Informasi tersebut digunakan sebagai acuan oleh
manajer dalam konfirmasi permohonan pinjaman.
3. Mencatat simpanan anggota.
Untuk mengetahui data simpanan anggota maka perlu untuk
melakukan pencatatan setiap transaksi yang mempengaruhi kas
anggota di koperasi.
46
4. Mencatat transaksi angsuran anggota
Setiap pinjaman harus dikembalikan sesuai dengan jangka waktu
yang telah disepakati, karenanya data-data pengembalian atau
angsuran pinjaman ini perlu untuk dicatat. Data yang dicatat pada
transaksi angsuran: No transaksi pinjaman, no petugas, besar
angsuran, denda, saldo pinjaman serta tanggal terjadinya transaksi
angsuran.
5. Evaluasi permohonan peminjaman
Setiap permohonan peminjaman yang dibuat akan dievaluasi, dan
manajer berkuasa untuk memutuskan. Hasil evaluasi ini merupakan
informasi yang penting bagi anggota dan bendahara. Anggota
dapat mengetahui respons manajer atas permohonan pinjamannya.
Sebaliknya bagi bendahara, informasi ini bemanfaat sebagai
pedoman dalam memberikan pinjaman pada anggota.
6. Pembuatan laporan transaksi keuangan anggota
Seorang manajer harus mengetahui jumlah transaksi simpanan,
pinjaman dan angsuran anggota pada periode tertentu.
3.2.2.2 Entitas (attribute) dan Relasi
Berdasarkan fakta yang telah diuraikan sebelumnya, maka entitas -
entitas yang dibutuhkan dalam pengembangan sistem informasi ini
adalah :
47
1. Anggota : Entitas yang berisi data-data orang yang terdaftar
menjadi anggota. Atribut yang terdapat dalam entitas ini antara
lain:
No anggota, nama, Username, password alamat,tanggal lahir,
tanggal masuk, tanggal keluar. Pekerjaan, Simp_Pokok,
Uang_Pangkal, TotalSS, TotalSKusus, TotalSW, TotalTabal,
TotalTabah, Status.
2. Pinjaman_anggota : Entitas ini berisi data-data permohonan
peminjaman yang selanjutnya jika disetujui maka secara
langsung data tersebut menjadi data pinjaman anggota. Atribut
yang terdapat dalam entitas ini antara lain :
No_trans_pinjam,Besar_Pinjaman,No_Surat_PM,No_Anggota,tan
ggal transaksi , Tgl_Angs_Ptma.
3. Simpanan : Entitas ini berisi data simpanan anggota. Atribut yang
terdapat dalam entitas ini antara lain :
No_trans_Simp ,Jumlah_Total_Trans.Tanggal Transaksi,
No_Anggota, No_Petugas.
4. Perkiraan : Entitas ini berisi data-data mengenai jenis simpanan.
Atribut dalam entitas ini adalah :
No_Perkiraan, Nama_Perkiraan
48
5. Simpanan : Entitas ini berisi data-data detail transaksi simpanan
anggota. Atribut-atribut yang terdapat dalam entitas ini antara lain:
no_simpan, No_trans_pinjam, No_Perkiraan, Jumlah.
6. Angsuran_Anggota
Entitas yang berisi data-data angsuran pinjaman yang dilakukan
anggota. Atribut-atribut yang terdapat pada entitas ini antara lain :
No_Bukti_angsur,No_Trans_Pinj,
Besar_angsur,Denda,Saldo_pinjaman, tanggal No_Petugas
7. Permohonan Pinjaman
Entitas ini berisi data - data permohonan pinjaman anggota.
Atribut yang terdapat pada entitas ini adalah : No_Surat_PM,No
Anggota,NoPetugas, Besar pendapatan, tujuan peminjaman,
penjamin, tanggal, peminjaman, keterangan, status, KP_kew_pin,
KP_lain_lain.,Pinjaman Tunai, Total Pinjaman, waktu angsuran,
tanggal permohonan, tanggal cicilan pertama, komentar, status dan
nama penjamin.
8. Petugas
Entitas ini berisi data petugas antara lain : No_Petugas, Nama,
Alamat, No Telepon, Username, password, goup.
49
9. TabelSaldoKoperasi
Entitas ini berisi data kas yang ada di koperasi. Atribut pada entitas
ini antara lain : IdSaldo, Keterangan, Jumlah.
10 Tabel GroupPetugas
Entitas ini berisi data detail group petugas. Atribut pada entitas ini
adalah [Group] dan Keterangan.
50
pekerjaan
alamat
Nama
No_KTP No_Surat_PM
KP_kew_pinJum_total_pinj
Pinj_tunai
Wktu_angsur
No_AnggotaTgl _masuk
Tgl _Keluar
KP_Lain_lain
No_Petugas
group
username
No_pekiraanNama_PerkiraanJumlah
Tanggal_Trans
Tanggal_permohonan
password
username
1
1
No_Petugas
n
n
1 n
1
1
1
n
n
1
n
1
1
alamat
Tgl _lahir
No_Anggota
No_Trans_Simp
n
No_Petugas
Status
Komentar
Tanggal_cicil1
Tujuan PinjamanBesar_pendapatan
No_Anggota
No_simpan
Jumlah_Total_Trans
No_pekiraan
No_Trans_Simp
Tgl_Angs_Pertama
No_Surat_PM No_Anggota
No_Petugas
Tanggal_Transaksi_Pinjam
Besar_Pinjamanan
No_Trans_Pinj
No_Trans_Pinj
No_Bukti_angsur
Saldo_Pinjaman
Besar_Angsuran
No_Petugas
Bunga
Denda
Tanggal
password
No Telepon
1
n
n
1
n
1Alamat
1
IdSaldo
Keterangan
Jumlah
1
1
n
3.2.2.3 Logical Dsign3.2.2.3.1 ERD Entity Relations Diagram
AnggotaMenyetujuiPermohonan
PinjamanBuat
Buat
Pinjaman_Anggota
Petugas
Tabel PerkiraanSimpanan
Transaksi_Simpp Angsuran
Update
Punya
Update
UpdateUpdate
1
Punya
TabelSaldoKoperasi
Gambar 3.11 Gambar Entity Relations Diagram
51
3.2.2.3.2 Relational Model
Tabel_Transaksi_Simp
No_Anggota *No_KTPNamaUsernamePasswordPekerjaanSimp_PokokUang_PangkalTotalSSTotalSKususTotalSWTotalTabalTotalTabahAlamatTgl_lahirTgl_masukTgl_keluar
Anggota
No_Perkiraan *Nama_kir
Perkiraan
No_Petugas *NamaAlamatNo_teleponUsernamePassword[Group] **
Petugas
No_Trans_Pinjam *No_Surat_PM **No_Petugas **No_Anggota **Tgl_Trans_PTgl_Angs_PtmaBesar_Pinjaman
Pinjaman_anggotaNo_bukti_angsuran *No_trans_pinjam **No_Petugas **Besar _angsurDendaSaldo_pinjamantanggal
Angsuran_Anggota
No_Surat_PM *No_Anggota **No_Petugas **Besar_PendapatanTujuan_PinjamanPinjaman_tunaiPinj_Kom_PelSimp_pPinj_Kom_PellainPinj_Kom_PkewPinjJum_total_pinjWktu_angsurTanggal_mohonTanggal_cicil1StatusKomentar
no_simpan *No_Trans_Simp **No_Perkiraan **Jumlah
No_Trans_Simp *No_AnggotaNo_Petugas **Jumlah_Total_TransTanggal_Trans
Tabel_Permohonan_Pinjaman
Tabel_Simpanan
[Group] *Keterangan
GroupPetugas
IdSaldo *KeteranganJumlah
TabelSaldoKoperasi
Gambar 3.12 Relation Model
52
3.2.2.4 Mapping Tabel
Dalam desain database ini terdapat 10 tabel, yakni terdiri dari
Tabel anggota, Tabel petugas, Tabel Transaksi_Simp,
Tabel_Pinjaman_Anggota, Tabel Perkiraan, Tabel Angsuran,
Tabel_Permohonan_Pinjaman, Tabel_Simpanan, TabelSaldoKoperasi,
Tabel GroupPetugas. Secara lebih jelas dapat dilihat pada tabel - tabel
berikut ini :
Tabel anggota
Nama Field Tipe Data PanjangNo_Anggota * varchar 10No_KTP char 22Nama varchar 35Username varchar 6Password varchar 6Pekerjaan varchar 20Simp_Pokok numeric 9Uang_Pangkal numeric 9TotalSS numeric 9TotalSKusus numeric 9TotalSW numeric 9TotalTabal numeric 9TotalTabah numeric 9Alamat varchar 25Tgl_lahir datetime 8Tgl_masuk datetime 8status varchar 11Tgl_keluar datetime 8
Tabel 3.1 Tabel Anggota
Tabel Petugas
Nama Field Tipe Data PanjangNo_Petugas * varchar 10Nama varchar 35
53
Alamat varchar 25No_telepon varchar 13Username varchar 6Password varchar 6[Group] ** Int 4Keterangan varchar 15
Tabel 3.2 Tabel Petugas
Tabel Pinjaman_Anggota
Nama Field Tipe Data PanjangNo_Trans_Pinjam* varchar 10No_Surat_PM** varchar 10No_Petugas** varchar 10No_Anggota** varchar 10Tgl_Trans_P datetime 8Tgl_Angs_Ptma datetime 8Besar_Pinjaman numeric 9
Tabel 3.3 Tabel Pinjaman_Anggota
Tabel_Transaksi_Simp
Nama Field Tipe Data PanjangNo_Trans_Simp* varchar 10No_Anggota** varchar 10No_Petugas** varchar 10Jumlah_Total_Trans numeric 9Tanggal_Trans datetime 8
Tabel 3.4 Tabel Transaksi_Simp
Tabel Simpanan
Nama Field Tipe Data Panjangno_simpan* varchar 10No_Trans_Simp** varchar 10No_Perkiraan ** Varchar 3Jumlah numeric 9
Tabel 3.5 Tabel Simpanan
54
Tabel Perkiraan
Nama Field Tipe Data PanjangNo_Perkiraan* Varchar 3Nama_Perkiraan Varchar 20
Tabel 3.6 Tabel Perkiraan
Tabel Angsuran
Nama Field Tipe Data PanjangNo_Bukti_angsur* varchar 10No_Trans_Pinjam** varchar 10No_Petugas ** varchar 10Besar_angsur numeric 9Denda numeric 9Saldo_pinjaman numeric 9Tanggal datetime 8
Tabel 3.7 Tabel Angsuran
Tabel_Permohonan_Pinjaman
Nama Field Tipe Data Panjang
No_Surat_PM * varchar 10No_Anggota ** varchar 10No_Petugas ** varchar 10Besar_Pendapatan varchar 8Tujuan_Pinjaman varchar 30Pinjaman_tunai numeric 9Pinj_Kom_Pellain numeric 9Pinj_Kom_PkewPinj
numeric 9
Jum_total_pinj numeric 9Wktu_angsur varchar 7Tanggal_mohon datetime 8Tanggal_cicil1 datetime 8Status varchar 15Komentar varchar 50
Tabel 3.8 Tabel Permohonan Pinjaman Anggota
55
TabelSaldoKoperasi
Nama Field Tipe Data PanjangIdSaldo* varchar 4Keterangan varchar 30Jumlah numeric 9
Tabel 3.9 Tabel Saldo Koperasi
Tabel GroupPetugas
Nama Field Tipe Data Panjang[Group] * varchar 2Keterangan varchar 15
Tabel 3.10 Tabel Group Petugas
Keterangan : * = Primary Key
** = Foreign Key
56
BAB IV
IMPLEMENTASI SISTEM
IV.1 Karakteristik Sistem
Sistem ini dibangun sebagai Sistem Informasi Koperasi Simpan
Pinjam untuk Koperasi Purnawirawan dan Warakawuri TNI – POLRI
yang berada di Kupang NTT.
Pada sistem ini terdapat 5 User, yaitu Manager, Admin, Bagian
Anggota, Anggota Koperasi, dan Bendahara. Admin menggunakan sistem
ini untuk input data yaitu data petugas dan data perkiraan. Manager
menggunakan sistem ini untuk memberi evaluasi permohonan pinjaman
anggota, melihat data transaksi keuangan yang terjadi. Bendahara
menggunakan sistem ini untuk input data transaksi, baik transaksi
pinjaman, transaksi simpanan maupun angsuran anggota. Anggota
koperasi menggunakan sistem ini untuk melihat data transaksi yang telah
dilakukan, data total simpanan, total pinjaman dan angsuran.Anggota.
IV.2 Kebutuhan Sistem
Untuk dapat melakukan pengujian sistem, dibutuhkan beberapa
sistem penunjang. Antara lain
Spesifikasi software
1. Sistem Operasi Windows 2000
2. Visual Basic 6.0
3. Microsoft SQL Server 2000
57
Spesifikasi Hardware
1. Prosesor AMD Duron 893 Mhz
2. Memory 128 MB
3. Hardisk 20 GB
IV.3 Koneksi SQL Server
Tabel – tabel yang telah dibuat belum dapat terhubung dengan
sistem. Untuk menghubungkan Visual Basic dengan SQL Server, maka
digunakan sintak sebagai berikut
Dalam melakukan koneksi, digunakan dua variable, yaitu
1. Set cnn = New ADODB.Connection digunakan untuk membuat objek
koneksi bernama cnn.
2. Strconect merupakan variabel string yang menampung parameter
conection.
Public Sub konek()
Set cnn = New ADODB.Connection
strconect = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=Koperasi2;" & _
"Data Source=SANATA-0HZSR6BA"
cnn.ConnectionString = strconect
cnn.Open
cnn.CursorLocation = adUseClient
End Sub
58
Untuk memudahkan koneksi sistem dengan database, maka script koneksi
dibuat dalam suatu procedure yang diletakan di sebuah modul. Jika sistem
akan melakukan koneksi dengan database maka procedure ini yang akan
dipanggil.
IV.4 User Interface
User interface merupakan implementasi dari proses modeling yang
ada.
IV.4.1 User Interface Login
Gambar IV.1 gambar User interface proses login.
Gambar IV.1 Gambar User interface proses login
Proses login harus dilakukan oleh semua User sebelum
mengunakan sistem sesuai dengan hak aksesnya. User terlebih dahulu
akan memilih option sesuai dengan statusnya, yakni sebagai anggota atau
59
sebagai petugas. Data yang diinputkan pada login anggota adalah No
anggota, Username dan password, sedangkan data yang diinputkan pada
login petugas adalah No petugas, Username dan password. Pada login
petugas, sistem akan memberikan hak akses sesuai dengan group dari tiap
petugas. Kode yang digunakan dalam proses login adalah sebagai berikut :
ElseIf groupPtgs = "03" Then 'admin Call refresmenuVisible Call refresmenu MDIFormUtama.mdata.Enabled = True MDIFormUtama.sdk.Enabled = True MDIFormUtama.sdp.Enabled = True
MDIFormUtama.mTransaksi.Visible = False MDIFormUtama.Mview.Visible = False MDIFormUtama.mRept.Visible = False MDIFormUtama.mLogout.Enabled = True MDIFormUtama.mLogin.Enabled = False MDIFormUtama.sda.Visible = False MDIFormUtama.Toolbar1.Enabled = True MDIFormUtama.Toolbar1.Buttons(1).Visible = False AgtOrPtgs = True Unload Me MDIFormUtama.Show ElseIf groupPtgs = "04" Then 'manager Call refresmenuVisible Call refresmenu MDIFormUtama.mdata.Enabled = True MDIFormUtama.sda.Enabled = True MDIFormUtama.sdk.Enabled = True MDIFormUtama.sdp.Visible = False MDIFormUtama.mTransaksi.Visible = False
MDIFormUtama.Mview.Enabled = True MDIFormUtama.mPPagt.Enabled = True MDIFormUtama.mVPinjAgt.Enabled = True MDIFormUtama.mAgsAgt.Enabled = True MDIFormUtama.mSimAgt.Enabled = True 'MDIFormUtama.mTransSimp.Enabled = True 'MDIFormUtama.mDftrAngAgt.Enabled = True MDIFormUtama.mRept.Enabled = True MDIFormUtama.mLogout.Enabled = True MDIFormUtama.mLogin.Enabled = False MDIFormUtama.Toolbar1.Enabled = True MDIFormUtama.Toolbar1.Buttons(1).Visible = False AgtOrPtgs = True Unload Me MDIFormUtama.Show Else MsgBox "Diluar Group User.", vbOKOnly +vbExclamation, "Library System: Login" End If Else MsgBox "Invalid Login. Access Denied.", vbOKOnly+ vbExclamation, "Library System: Login" Tusername.SetFocus Exit Sub
End If End If End With 'End IfElse With rsUserLoginAgt
varUserPwAgt = Tpass.Text Then If varStatusAgt = "Aktif" Then MDIFormUtama.mdata.Enabled = True MDIFormUtama.sda.Enabled = True MDIFormUtama.sdk.Visible = False MDIFormUtama.sdp.Visible = False MDIFormUtama.mTransaksi.Visible = False
MDIFormUtama.Mview.Enabled = True MDIFormUtama.mRept.Enabled = True MDIFormUtama.mLogout.Enabled = True MDIFormUtama.Toolbar1.Enabled = True
MDIFormUtama.mLogin.Enabled = False MDIFormUtama.Toolbar1.Buttons(1).Visible = False
AgtOrPtgs = False Unload Me
MDIFormUtama.Show Else MsgBox "Maaf....Anda Bukan Anggota Lagi",vbOKOnly, "Information" Exit Sub End If Exit Sub Else MsgBox "Invalid Password. Access Denied.", vbOKOnly
+ vbExclamation, "Library System: Login" Tusername.SetFocus Exit Sub End If End If End With End If
End Sub
60
If .BOF And .EOF Then MsgBox "Invalid Login. Access Denied.",vbOKOnly + vbExclamation, "Library System: Login" Tusername.SetFocus Exit Sub Else .MoveFirst varUserPwAgt = rsUserLoginAgt.Fields!Password varUserNameAgt =rsUserLoginAgt.Fields!UserName NoAgt = rsUserLoginAgt.Fields!No_Anggota namaAgt = rsUserLoginAgt.Fields!Nama varStatusAgt = rsUserLoginAgt.Fields!Status If varUserNameAgt = Tusername.Text And
IV.4.2 User Interface Admin
Pada User interface halaman admin, ada beberapa menu yang di
akses seperti menu Data Master yang memiliki sub menu Data Petugas
dan Data Perkiraan. Selain itu, juga terdapat 2 buton pada toolbar yang
berfungsi untuk akses ke form Data Petugas dan form ubah password
admin.
Gambar IV.2 Gambar User Interface Halaman Admin
61
IV.4.2.1 User Interface Data Petugas
Gambar IV.3 merupakan gambar User interface untuk data
petugas. ini beberapa tombol command seperti Hapus, Ubah, Tambah dan
Keluar.
Gambar IV.3 Gambar User Interface Data Petugas
Data petugas akan langsung tertampil jika data petugas telah
tersimpan dalam Database. Kode program yang digunakan agar data
petugas langsung tampil ketika form ini di panggil adalah sebagai berikut :
Private Sub Form_Load()Dim sqlp As String If groupPtgs = "03" Then ComTmbh.Enabled = False ComHapus.Enabled = False sqlp = "select * from Tabel_Petugas" ElseIf groupPtgs = "04" Then ComTmbh.Enabled = False ComHapus.Enabled = False sqlp = "select * from Tabel_Petugas" ElseIf groupPtgs = "02" Or groupPtgs = "01"Then ComTmbh.Enabled = False ComHapus.Enabled = False sqlp = "select * from Tabel_Petugas whereNo_Petugas='" & noPtgs & "'" End If
Call AmbilDataAnggota(rsPetugas, sqlp) With rsPetugas If .BOF And .EOF = True Then Call NonaktifNavigator(Me) Exit Sub Else Set DataGrid1.DataSource = rsPetugas Call TampilNoRec(rsPetugas, Label7) Call AktifNavigator(Me) Call isiTextBox End If End With
End Sub
62
Syntax ini berfungsi untuk pendelegasian hak akses pada form
petugas. Selain petugas yang memiliki group sebagai admin akses pada
form ini terbatas pada melihat data pribadi petugas itu sendiri, dan hanya
dapat mengubah data Username, password dan nomor telepon. Pada form
ini juga terdapat empat tombol command yang digunakan sebagai control
navigasi untuk berpindah dari satu record ke record lainya.
Tombol hapus digunakan untuk mengeksekusi prosedur hapus data
petugas yang akan menghapus data petugas dari database. Code program
yang digunakan adalah sebagai berikut :
Private Sub ComHapus_Click()
Dim sql As String
Dim rep As Integer
sql = "cspHapusPetugas '" & TexNoPtgs.Text & "'"
rep = MsgBox("Anda ingin menghapus record ini ?", vbOKCancel + vbQuestion, "Informasi")
If rep = vbOK Then
cnn.Execute sql
rsPetugas.Requery
DataGrid1.Refresh
Call Comsebelumnya_Click
Else
Exit Sub
End If
End Sub
63
IV.4.2.1.1 User Interface Ubah Data Petugas
Gambar IV.4 merupakan gambar User interface ubah data petugas.
Tombol ubah digunakan untuk mengakses form Ubah data petugas.
Gambar IV.4 Gambar User Interface ubah data petugas
Kode program yang digunakan untuk menampilkan tampilan seperti pada
Gambar IV.4 adalah :
Private Sub ComUbah_Click()With rsPetugasIf rsPetugas.RecordCount > 0 ThenIf Not rsPetugas.BOF ThenIf groupPtgs <> "03" ThenFormUpdatePtgs.Tnama.Enabled = FalseFormUpdatePtgs.TNo_petugas.Enabled = FalseFormUpdatePtgs.Cgroup.Enabled = FalseFormUpdatePtgs.Talamat.Enabled = FalseEnd IfFormUpdatePtgs.Tnama.Text = rsPetugas.Fields!NamaFormUpdatePtgs.TNo_petugas.Text = rsPetugas.Fields!No_PetugasFormUpdatePtgs.Ttlpon.Text = rsPetugas.Fields!No_TeleponFormUpdatePtgs.Tusername.Text = rsPetugas.Fields!UserNameFormUpdatePtgs.Tpassword.Text = rsPetugas.Fields!PasswordFormUpdatePtgs.Cgroup.Text = rsPetugas.Fields!GroupFormUpdatePtgs.Talamat.Text = rsPetugas.Fields!AlamatElsersPetugas.MoveFirstEnd IfEnd IfEnd WithFormUpdatePtgs.Comtambah.Enabled = FalseFormUpdatePtgs.Show vbModalEnd Sub
64
Kode program yang digunakan untuk mengubah data petugas
adalah sebagai berikut :
Kode program ini terdiri dari satu Store Procedure, satu variabel
strirng dan satu objek recordset. Variabel string “sqlDataAgt” digunakan
untuk menampung pernyataan SQL disertai dengan parameter yang
dibutuhkan dalam Store Procedure “cspUbahPetugas”, yang digunakan.
Selanjutnya program akan memanggil procedure AmbilDataAnggota
dengan syntax
Call AmbilDataAnggota(rsPetugas, sqlDataAgt)
Prosedur ini diletakan di modul dan bersifat public. Prosedur ini
memiliki 2 parameter. Kode programnya adalah sebagai berikut :
Set rs_bantu = New ADODB.Recordset merupakan perintah untuk
membentuk objek bernama rs_bantu, hal ini penting karena pendeklarasian
dengan perintah “Dim rs_bantu As ADODB.Recordset ”, hanya
mendeklarasikan variabelnya tetapi tipe objeknya belum benar – benar
dibentuk. Dalam prosedure ini, juga akan di panggil procedure Konek.
sqlDataAgt = "cspUbahPetugas '" & Tnama.Text & "','" & TNo_petugas.Text & "','" & Ttlpon.Text & "','"& Tusername.Text & "','" & Tpassword.Text & "','" & Text1.Text & "','" & Talamat.Text & "'" Call AmbilDataAnggota(rsPetugas, sqlDataAgt)
Public Sub AmbilDataAnggota(rs_bantu As ADODB.Recordset, sqlbantu As String)
Call konekSet rs_bantu = New ADODB.Recordset
rs_bantu.Open sqlbantu, cnn, adOpenDynamic, adLockOptimistic, adCmdText'Set rs_bantu = Nothing
End Sub
65
Pada proses update data petugas, tidak semua field dapat di ubah
oleh admin. Dalam proses update ini akan ada proses pengecekan apakah
data yang dimasukkan benar atau tidak misalnya pengisian nomer telepon
haruslah diisi hanya dengan angka. Kode program dalam pengecekan
adalah sebagai berikut :
Kode program diatas digunakan untuk memanggil fungsi yang
bernama NumInputOnTxtBox.Pemanggilan fungsi ini juga di srtai dengan
parameter KeyAscii.
IV.4.2.1.2 User Interface Tambah Data Petugas
Gambar IV.5 merupakan gambar User interface Tambah data
petugas
Gambar IV.5 User interface Tambah data petugas
Private Sub Ttlpon_KeyPress(KeyAscii As Integer)NumInputOnTxtBox (KeyAscii)
End Sub
66
Sama seperti pada proses ubah data petugas, proses ini juga akan
mengecek data inputan. no telepon dengan memanggil fungsi yang sama.
Kode program yang digunakan untuk menambah data petugas adalah :
Proses yang tejadi setelah program mengeksekusi kode program ini
adalah sama seperti yang di jelaskan pada proses ubah data petugas.
IV.4.2.2 User Interface Data Perkiraan
Gambar IV.6 merupakan gambar User interface untuk mengakses
halaman data perkiraan.
Gambar IV.6 Gambar User Interface Halaman Data Perkiraan
sqlDataAgt = "cspTambahPetugas'" & Tnama.Text & "','" & TNo_petugas.Text & "','" & Ttlpon.Text & "','"& Tusername.Text & "','" & Tpassword.Text & "','" & Text1.Text & "','" & Talamat.Text & "'"Call AmbilDataAnggota(rsPetugas, sqlDataAgt)
67
Kode program yang digunakan untuk menampilkan user interface
data perkiraan adalah sebagai berikut :
IV.4.2.2 .1 User Interface Ubah Data Perkiraan
Gambar IV.7 merupakan gambar User interface untuk mengakses
ubah data perkiraan.
Gambar IV.7 User Interface Ubah Data Perkiraan
Private Sub ComHps_Click()Dim rsHapusKir As New ADODB.RecordsetDim sqlkir As StringDim bantu As StringDim sqlbantu As Stringbantu = rsperkiraan.Fields!No_Perkiraan
sqlbantu = "select * from TablePerkiraan"sqlkir = "cspHapusKir '" & bantu & "'"Call AmbilDataAnggota(rsHapusKir, sqlkir)MsgBox "Data Telah Dihapus", vbOKOnly, "Informasi"Call AmbilDataAnggota(rsperkiraan, sqlbantu)Set DataGrid1.DataSource = rsperkiraanCall set_DataGrid(rsperkiraan)Set rsHapusKir = NothingEnd Sub
68
Kode program yang digunakan untuk proses ubah data perkiraan
adalah sebagai berikut :
IV.4.3 User Interface Bendahara
User Interface bendahara memiliki menu seperti Data Master
dengan sub menunya berupa menu data anggota dan menu data petugas.
Menu transaksi dengan sub menunya seperti menu simpanan anggota,
menu permohonan pinjaman anggota, menu angsuran anggota. Menu view
data dengan sub menunya seperti simpanan anggota, menu permohonan
pinjaman anggota, menu angsuran anggota. User interface bendahara
dapat dilihat pada gambar IV.8 dibawah ini.
Dim sqlkir As String
Dim sqlbantu As String
Dim cekNokir As String
Dim rscariidPinjam As New ADODB.Recordset
Dim rsSimpKir As New ADODB.Recordset
Dim bolbantu As Boolean
sqlkir = "cspTbhKir '" & TexNoKir.Text & "','" & TexNamaKir.Text & "'"
cekNokir = "select No_Perkiraan from TablePerkiraan where No_Perkiraan='" & TexNoKir.Text & "' "
bolbantu = Caridata(rscariidPinjam, cekNokir)
If bolbantu = True Then
MsgBox "Id Telah Ada", vbOKOnly, "information"
TexNoKir.SetFocus
Exit Sub
Else
Call AmbilDataAnggota(rsSimpKir, sqlkir)
MsgBox "Data Telah Tersimpan ", vbOKOnly, "Information"
sqlbantu = "select * from TablePerkiraan "
Call AmbilDataAnggota(rsperkiraan, sqlbantu)
Set FormPerkiraan.DataGrid1.DataSource = rsperkiraan
FormPerkiraan.Refresh
Call FormPerkiraan.set_DataGrid(rsperkiraan)
Exit Sub
End If
69
Gambar IV.8 Gambar User Interface Bendahara
IV.4.3.1 User Interface Tambah Transaksi
Gambar IV.9 adalah tampilan dari User interface tambah transaksi.
Gambar IV.9 User Interface Tambah Transaksi
70
IV.4.3.1.1 User Interface Tambah Transaksi Simpanan Anggota
User interface tambah transaksi simpanan anggota dapat di lihat
pada gambar IV.10 berikut.
Hasil cetak dari proses gambar IV.10 adalah sebagai berikut
Gambar IV .11 User Interface Cetak Bukti Penyetoran Simpanan
Gambar IV.10 User Interface Tambah Simpanan Anggota
71
Listing program yang digunakan untuk menampilkan gambar IV.11 adalah
sebagai berikut :
Kode program gambar IV.11 sama dengan kode program yang
digunakan untuk mencetak bukti transaksi yang lainya.
Data – data yang di tambahkan pada User interface ini adalah No
anggota,No transaksi simpan, no perkiraan, jumlah simpanan, tanggal
simpanan, no petugas,no simpanan, total jumlah simpanan. Kode program
yang digunakan pada proses tambah simpanan anggota pada dasarnya
sama dengan kode program yang digunakan untuk tambah setoran awal
anggota. Kode program yamg digunakan untuk tambah data sipanan
anggota adalah sebagai berikut :
Private Sub simpanTrans()'Private Function simpanTrans() As BooleanDim varcacah As IntegerDim sqlbantu As StringDim passingJum As StringDim passingkir As StringDim sqlSimRincianTrans As Stringsqlbantu = " select no_simpan from Tabel_Simpanan"Call AmbilDataAnggota(rsbantu, sqlbantu)'Call cekInputTrans If rsbantu.RecordCount <= 0 Then varcacah = 1 Else varcacah = rsbantu.RecordCount End IfWith Tno_trsimp Call simpan_Tsimp_utama(Me) bantu = Text1.Count x = 0 varcacah = rsbantu.RecordCount + 1 For x = 0 To bantu - 1 With Textkir(x) sql = "insert into Tabel_Simpanan " _ & "(no_simpan,No_Trans_Simp,No_Perkiraan,Jumlah)" _ & "values ('" & varcacah & "','" & form_tsimpan.Tno_trsimp & "','" & Textkir(x).Text & "','" &Val(Textjum(x).Text) & "')" varcacah = varcacah + 1
sql = " CspcetakSimp "DataEnvironment1.rsCommand4.Open sql, DataEnvironment1.Connection3, adOpenStatic,adLockOptimisticDataEnvironment1.rsCommand4.Filter = ""DataEnvironment1.rsCommand4.Filter = "No_Trans_Simp='" & Tno_trsimp.Text & "'"'Call centerLabel(DataReport1)catakTransSimp.Show vbModalDataEnvironment1.rsCommand4.Close
72
cnn.Execute sql End With Next xEnd WithEnd Sub
Pada User interface tambah simpanan juga terjadi proses
pembuatan no Transaksi simpanan secara otomatis. Kode
program yang digunakan dalam pembuatan No transaksi secara
otomatis adalah sebagai berikut
Public Function IdOtomatis(sqlId As String, Awal As String) As StringDim nomorAngsurDim smtra As StringDim copytgl As StringDim TempbandingTgl As StringDim rsId As New ADODB.RecordsetDim bantu As IntegerDim kiri As StringDim kanan As StringDim tamp As StringDim nomorbaru As StringDim adaId As Booleancopytgl = DateCall AmbilDataAnggota(rsId, sqlId)On Error GoTo akirkiri = Idkiri(copytgl) 'buat nilai string untuk No Id baru dari tanggal sekarangWith rsId If .EOF And .BOF Then adaId = False nomorAngsur = " 00 " Else adaId = True .MoveLast ''ke record akir nomorbaru = .Fields(0) ''simpan nilainya TempbandingTgl = Mid(nomorbaru, 3, 6) ''simpan nilai dari id yang talah ada,tapi hanya yang berasal dari datatanggal If TempbandingTgl <> kiri Then ''bandingkan dengan konversi tanggal untuk dijadikan id baru adaId = False ''agar setiap berganti tanggal, nilai variabel akir dari id baru kembali menjadi 00 nomorAngsur = " 00 " End If End If End With If adaId = False Then bantu = Val(Trim(nomorAngsur)) + 1 ' kanan = Right(nomorbaru, 2) Select Case Len(Trim(Str(bantu))) ' Case 1 smtra = "0" & Trim(Str(bantu)) ' Case 2 smtra = Trim(Str(bantu)) ' End Select IdOtomatis = CStr(Awal & kiri & "0" & bantu) ElseIf adaId = True Then kanan = Right(nomorbaru, 2) bantu = Val(Trim(kanan)) + 1 ' Select Case Len(Trim(Str(bantu))) ' Case 1
Public Sub simpan_Tsimp_utama(Myform As Form)
Dim sqlsimutama As Stringsqlsimutama = "insert into Tabel_Transaksi_Simp" _& "(No_Trans_Simp,No_Anggota,Tanggal_Trans,Jumlah_Total_Trans,No_Petugas )" _& "Values ('" & Myform.Tno_trsimp & "','" & Myform.Tno_anggota & "','" & Myform.DTPickertrans &"','" & Val(Myform.Textjumsim) & "','" & Myform.TexnoPet & "')"cnn.Execute sqlsimutama
End Sub
73
smtra = "0" & Trim(Str(bantu)) ' Case 2 smtra = Trim(Str(bantu)) ' End Select IdOtomatis = CStr(Awal & kiri & Trim(smtra)) ' End Ifakir:
End Function
Kode program ini merupakan sebuah prosedur yang tersimpan
dalam modul dan juga digunakan dalam pembuatan No Anggota,No
transaksi pinjam, no permohonan pinjaman dan angsuran anggota. Yang
membuat perbedaan adalah parameter yang di kirim dari tiap proses yang
menginginkan No transaksi secara otomatis. Pada uses interface ini, juga
akan di panggil fungsi untuk mengontrol data yang di inputkan agar selalu
berupa bilangan numeric.Kode program yang digunakan adalah sebagai
berikut :
Setiap ada perubahan pada textbox Textjum, akan langsung
dihitung total simpanannya. Program yang digunakan adalah sebagai
Berikut :
Private Sub Textjum_Change(Index As Integer)Dim jumTotal, jumTotal1 As DoubleDim i As IntegerDim b As Integeri = 0jumTotal1 = 0For i = 0 To ComboBox1.Count - 1 If Textjum(i).DataChanged Then jumTotal = Val(Textjum(i).Text) jumTotal1 = jumTotal + jumTotal1 End IfNext iTextjumsim.Text = jumTotal1End Sub
Private Sub Textjum_KeyPress(Index As Integer, KeyAscii As Integer)Call NumInputOnTxtBox(KeyAscii)End Sub
74
IV.4.3.1.2 User Interface Tambah Permohonan Pinjaman Anggota
Gambar IV.12 adalah tampilan dari User interface tambah
permohonan pinjaman anggota. Pada User interface tambah permohonan
pinjaman anggota, data yang diinputkan adalah : no transaksi
permohonan,no anggota, lama peminjaman,besar pendapatan, tujuan
peminjaman, nama penjamin, tanggal transaksi, no petugas.User interface
ini hanya dapat di akses oleh bendahara.
Gambar IV.12 User Interface Tambah Permohonan Pinjaman Anggota
Pada User interface ini juga ada pemanggilan prosedur id otomatis, tapi
dengan parameter yang berbeda., namun kode program yang digunakan
adalah sama seperti pada User interface tambah simpanan anggota.
Kode program yang digunakan untuk tambah data permohonan
peminjaman adalah sebagai berikut :
75
Setiap penambahan permohonan peminjaman baru, status
permohonan peminjamannya menjadi “Baru”. Sebelum disimpan juga
akan di cek kelengkapan data inputan, dan jika tidak melengkapinya
penambahan data tidak dapat dilakukan.Inputan yang menuntut tipe
numeric tidak dapat di isi dengan karakter lain selain angka. Kode
program yang digunakan sama dengan yang digunakan pada User
interface admin khususnya untuk memasukan no telepon. Seperti pada
User interface tambah simpanan, pada User interface ini juga terdapat
penghitungan jumlah total secara otomatis.Pada User interface ini, ketika
no anggota di inputkan, akan ada proses cek utang dan cek valid tidaknya
no anggota yang di inputkan. Jika no anggota yang di inputkan masih
memiliki utang, maka permohonan peminjaman tidak dapat diproses.
Kode program yang di gunakan adalah sebagai berikut :
Private Sub Tno_anggota_LostFocus()Dim rep As IntegerDim sqlCekUtangAgt As StringDim rsUtang As New ADODB.RecordsetsqlCekUtangAgt = " CspUtangAgtBaru '" & Tno_anggota & "'"Call AmbilDataAnggota(rsUtang, sqlCekUtangAgt) With rsUtang If .BOF And .EOF = True Then Else rep = MsgBox("Belum bisa mengajukan permohonan pinjaman...Anda masih memiliki utang", vbOKOnly +vbExclamation, "Information") If rep = vbOK Then ComSimp.Enabled = False 'ComTambah.Enabled = True Exit Sub End If End If End WithCall Tno_anggotaIsiEnd Sub
Dim temp As String temp = "Baru" sqls = " cspSimPermohonanPinj '" & Tno_trsimp.Text & "','" & Tno_anggota.Text & "' ,'" & TextBP.Text& "','" & TextTuPinj.Text & "','" & TextPenjamin.Text & "','" & bantu(0) & "','" & bantu(1) & "','" &bantu(2) & "','" & bantu5 & "','" & ComboBoxLP.Text & "','" & DTPickertrans.Value & "','" &DTPickertap.Value & "','" & temp & "'" cnn.Execute sqls
76
Private Sub Tno_anggotaIsi()
Dim sqlTotalSimpAgt As String, SqlJumTotalSim As String
Dim rssqlTotalSimpAgt As New ADODB.Recordset
Dim rsSqlJumTotalSim As New ADODB.Recordset
sqlTotalSimpAgt = "csp_TotalSimpananAnggota '" & Tno_anggota.Text & "'"
Call AmbilDataAnggota(rssqlTotalSimpAgt, sqlTotalSimpAgt)
SqlJumTotalSim = "cspViewPinjamanDanUtangAgt'" & Tno_anggota.Text & "'"
Call AmbilDataAnggota(rsSqlJumTotalSim, SqlJumTotalSim)
If CekIsiRecord(rssqlTotalSimpAgt) = True Then
LSimpPokok.Caption = rssqlTotalSimpAgt.Fields![Simpanan Pokok]
LSimpWajib.Caption = rssqlTotalSimpAgt.Fields![Simpanan Wajib]
LSimpKhusus.Caption = rssqlTotalSimpAgt.Fields![Simpanan Khusus]
LSimpSrela.Caption = rssqlTotalSimpAgt.Fields![Simpanan Sukarela]
LTabal.Caption = rssqlTotalSimpAgt.Fields![Tabal]
LTabah.Caption = rssqlTotalSimpAgt.Fields![Tabah]
LTotalSimpanan.Caption = rssqlTotalSimpAgt.Fields![Total Simpanan]
'LTotalSimpanan.Caption = rsTotSimp.Fields(0)
Else
Dim x As Integer
x = Len(Trim(Tno_anggota.Text))
If x <> 0 Then
MsgBox "Nomor '" & Tno_anggota.Text & "' Tidak terdaftas sebagai anggota", vbOKOnly,
"Information"
Exit Sub
Else
Exit Sub
End If
End If
'LTtlSimp.Caption = Str(rssqlTotalSimpAgt.Fields![Simpanan Wajip] +
rssqlTotalSimpAgt.Fields!.[Simpanan Khusus]) '+'+ DataGrid1.Columns(1).CellValue +
DataGrid1.Columns(2).CellValue + DataGrid1.Columns(3).CellValue + DataGrid1.Columns(4).CellValue
Set rssqlTotalSimpAgt = Nothing
End Sub
IV.4.3.1.3 User Interface Tambah Pinjaman Anggota
Data yang diinputkan pada proses ini adalah sebagai berikut : No
permohonan, no anggota, jumlah pinjaman, tanggal transaksi, tanggal
angsuran pertama. Gambar IV.13 User Interface Tambah Pinjaman
Anggota adalah User interface untuk tambah data pinjaman anggota
77
Gambar IV.13 User Interface Tambah Pinjaman Anggota
Pada User interface ini, akan ditampilkan tansaksi permohonan
yang berstatus diterima. Ini berarti bahwa no permohonan yang
bersangkutan telah di setujui oleh manager. Kode program untuk
menampilkan hanya no permohonan yang telah di setujui oleh manager
adalah sebagai berikut :
sql = " cspInformasiProsesPinjaman "Call AmbilDataAnggota(rsAmbilDataPm, sql)With rsAmbilDataPmIf .BOF And .EOF = True Then Call NonaktifNavigator(Me)Else Set DataGrid1.DataSource = rsAmbilDataPm
Call TampilNoRec(rsAmbilDataPm, Label2) TexnoPet.Text = noPtgs Call kunciTextbox Comtam.Enabled = False
End IfEnd With
78
Kode program pada User interface ini tidak jauh berbeda dengan
yang ada pada User interface tambah simpanan. Inputan no permohonan
pinjaman akan di cek terlebih dahulu. Apabila proses tambah berlangsung,
maka status permohonan akan di ubah secara otomatis menjadi “Jadi
Pinjaman”. Kode program yang di gunakan :
IV.4.3.1.4 User Interface Tambah Angsuran Anggota
Pada User interface tambah angsuran anggota, input yang menjadi
pemicunya adalah no transaksi pinjam.Data yang diinputka pada User
interface ini adalah no peminjaman, jumlah angsuran, denda, no petugas,
tanggal transaksi. Gambar IV.14 adalah User interface tambah angsuran
anggota
CREATE TRIGGER [InsertPinjaman] ON [dbo].[Tabel_Pinjaman_Anggota]
FOR insert
AS
declare
@No_Surat_PM varchar(10),
@Pinjaman_tunai numeric(10)
select @No_Surat_PM = No_Surat_PM from inserted
select @Pinjaman_tunai = Pinjaman_tunai from Tabel_Permohonan_Pinjaman where
No_Surat_PM=@No_Surat_PM
begin
update TabelSaldoKoperasi set TabelSaldoKoperasi.Jumlah =(TabelSaldoKoperasi.Jumlah-
@Pinjaman_tunai)
end
begin
update Tabel_Permohonan_Pinjaman set Tabel_Permohonan_Pinjaman.Status ='Jadi
Pinjaman' where Tabel_Permohonan_Pinjaman.No_Surat_PM=@No_Surat_PM
end
79
Gambar IV.14 User Interface Tambah Angsuran Anggota
Pada saat no peminjaman di inputkan, akan ada proses cek untuk
mengetahui data pinjaman yang telah Kode program yang digunakan
adalah sebagai berikut :
Private Sub Tno_TransP_Change()Dim sql As StringDim cari As StringDim cekSaldo As Stringcari = "select No_Trans_Pinjam from Tabel_Pinjaman_Anggota where No_Trans_Pinjam = '" &Tno_TransP.Text & "'"sql = " cspViewDataPinjam '" & Tno_TransP.Text & "'"cekSaldo = " select No_Trans_Pinjam,No_Petugas,Besar_angsur,Denda,Saldo_pinjaman,Tanggal fromTabel_Angsuran where No_Trans_Pinjam = '" & Tno_TransP.Text & "'"Call AmbilDataAnggota(rssqlEvPin, cekSaldo) bolbantu = Caridata(rscariidPinjam, cari) Call AmbilDataAnggota(rsAmbilDataPm, sql) If bolbantu = True And rsAmbilDataPm.RecordCount > 0 Then Set DgDataAgt.DataSource = rsAmbilDataPm On Error Resume Next End If sqlDg2 = " select No_Trans_Pinjam,No_Petugas,Besar_angsur,Denda,Saldo_pinjaman,Tanggal fromTabel_Angsuran where No_Trans_Pinjam = '" & Tno_TransP.Text & "'" Call AmbilDataAnggota(rsDg2, sqlDg2) Set DataGrid2.DataSource = rsDg2End Sub
80
Kode program yang digunakan untuk tambah angsuran anggota adalah
sebagai berikut
IV.4.3.2. User Interface Lihat Transaksi
Pada User interface ini ada 4 sub menu, yaitu sub menu
permohonan pinjaman anggota, sub menu pinjaman anggota, sub menu
angsuran anggota dan sub menu simpanan anggota. Gambar IV.15 adalah
User interface lihat transaksi.
Gambar IV.15 User Interface Lihat Transaksi
sqlAngsur = " cspSimAngsuran '" & nomorAngsur & "','" & Tno_TransP.Text & "','" & TexnoPet.Text & "','" &
Val(TextAgs.Text) & "','" & Val(TextDenda.Text) & "','" & Val(copySaldo) & "','" & DTPicker1.Value & "'"
cnn.Execute sqlAngsur
81
IV.4.3.2.1 User Interface Lihat Transaksi Permohonan Pinjaman
User interface ini dapat mensortir permohonan pinjaman
berdasarkan 5 pilihan, yaitu lihat permohonan pinjaman dengan status
“Diterima”, “Ditolak” ,”Baru dimasukan”, yang telah “Jadi Pinjaman”
serta pilihan untuk melihat semua permohonan pinjaman yang telah
dibuat. Gambar IV.16 meupakan User Interface Lihat Transaksi
Permohonan Pinjaman. User interface ini juga merupakan akses manager
untuk memberikan status permohonan pinjaman dari tiap permohonan
pinjaman yang di buat.
Gambar IV.16 User Interface Lihat Transaksi Permohonan Pinjaman
Pada User interface ini, manager dapat mengakses tombol buat
status dan ubah, sedangkan User lainnya hanya dapat melihat saja. Khusus
untuk anggota, hanya dapat melihat data permohonannya sendiri. Kode
program yang digunakan adalah sebagai berikut :
82
Private Sub Form_Load()
If AgtOrPtgs = True Then
If groupPtgs = "02" Then
ComUbahPP.Enabled = False
ComStatus.Enabled = False
End If
sqlEvPin = " CspDataEvaluasiPPSemuaKategori "
LSaldoKop.Caption = SaldoKop
Call setDgEvaluasiPP(sqlEvPin)
'Call AmbilDataAnggota(rssqlEvPin, sqlEvPin)
'Call setDgEvaluasiPP(sqlEvPin)
With rssqlEvPin
If .BOF And .EOF = True Then
Call NonaktifNavigator(Me)
ComUbahPP.Enabled = False
ComStatus.Enabled = False
Exit Sub
Else
Set DataGrid1.DataSource = rssqlEvPin
Call TampilNoRec(rssqlEvPin, Label2)
Call AktifNavigator(Me)
Call isiTextBox(rssqlEvPin)
'Call AmbilDataAnggota(rssqlSaldoKop, sqlSaldoKop)
End If
End With
Else
sqlEvPin = " CspDataEvaluasiPPloGAgt '" & NoAgt & "'"
LSaldoKop.Caption = SaldoKop
'Call AmbilDataAnggota(rssqlEvPin, sqlEvPin)
Call setDgEvaluasiPP(sqlEvPin)
With rssqlEvPin
If .BOF And .EOF = True Then
Call NonaktifNavigator(Me)
Exit Sub
Else
Set DataGrid1.DataSource = rssqlEvPin
Call TampilNoRec(rssqlEvPin, Label2)
Call AktifNavigator(Me)
Call isiTextBox(rssqlEvPin)
End If
End With
ComUbahPP.Enabled = False
ComStatus.Enabled = False
End If
End Sub
83
IV.4.3.2.2 User Interface Lihat Transaksi Pinjaman Anggota
Gambar IV.17 User interface lihat transaksi Pinjaman anggota
Gambar IV.17 User Interface Lihat Transaksi Pinjaman Anggota
Sama seperti pada User interface lihat permohonan pinjaman
anggota, pada User interface ini juga terdapat prosedur untuk mengatur
tampilan untuk tiap – tiap User. Kode program yang digunakan tidak
berbeda,. Yang membedakan hanyalah perintah sqlnya saja. Tombol Ubah
akan di set menjadi enable jika data loginnya bukan merupakan data login
bendahara. Prosedur ini juga digunakan pada User interface lihat
Transaksi lainnya, kecuali pada User interface lihat permohonan pinjaman,
karena pada User interface lihat permohonan pinjaman hanya manager
yang dapat mengubah data.
84
IV.4.3.2.3 User Interface Lihat Transaksi Angsuran Anggota
User Interface angsuran anggota tidak jauh berbeda dengan User
interface lihat data yang lainya. Data pemicu untuk User interface ini
adalah no peminjaman, sehingga untuk mengaksesnya adalah lebih baik
jika menggunakan User interface lihat data peminjaman. Tombol
navigator digunakan untuk berpindah dari satu no peminjaman ke yang
lainnya. Untuk melihat Ttransaksi angsurannya hanya dengan meng klik
tombol view angsuran. Gambar IV.18 adalah User interface lihat transaksi
angsuran anggota
Gambar IV.18 User Interface Lihat Transaksi Angsuran Anggota
Pada User interface ini, angsuran yang di tampilkan sesuai dengan record
aktif pada User interface pinjaman anggota. Kode program yang
digunakan tidak jauh berbeda dengan User interface lainnya.
85
IV.4.3.2.4 User Interface Lihat Transaksi Simpanan Anggota
Gambar IV.19 adalah User interface lihat transaksi simpanan
anggota. User interface ini memiliki akses untuk mengubah data transaksi
simpanan anggota. Failitas ubah hanya aktif apabila data loginnya adalah
data login bendahara. Tampilan User interface simpanan anggota adalah
sebagai berikut :
Gambar IV.19 User Interface Lihat Transaksi Simpanan Anggota
Kode program yang digunakan untuk menampilkan User interface
lihat simpanan anggota tidak berbeda dengan kode program yang
digunakan untuk menampilkan data pada User interface lainya.
IV.4.3.3. User interface Ubah transaksi
Untuk melihat User interface ubah transaksi user harus terlebih
dahulu mengakses user interface lihat transaksi.
86
IV.4.3.3.1 User interface Ubah transaksi Pinjaman Anggota
Gambar IV.20 adalah User interface yang digunakan untuk
mengubah transakssi pinjaman anggota. Tampilan dari User interface ubah
transaksi pinjaman anggota adalah sebagai berikut :
Gambar IV.20 User Interface Ubah Pinjaman Anggota
Pada User interface ini, hanya data tanggal yang dapat di ubah.
Kode program yang digunakan sama seperti kode program ubah data yang
lain. Yang berbeda adalah pernyataan SQL nya.
IV.4.3.3.2 User interface Ubah Transaksi Simpanan Anggota
Gambar IV.21 adalah User interface yang digunakan untuk
mengubah transaksi simpanan anggota. Tampilannya adalah sebagai
berikut :
87
Gambar IV.21 User Interface Ubah Simpanan Anggota
Kode program yang digunakan untuk menampilkan User interface
simpanan anggota pada dasarnya sama dengan kode program yang
digunakan pada User interface tambah data simpanan anggota.Kode
program yang digunakan untuk mengubah data transaksi simpanan adalah
sebagai berikut :
Private Sub ComUbah_Click()
Dim sql As String
Dim SaldoKopBaru As Double
Dim rep As Integer
Dim sqlUpdateTotSimAgt As String
Dim sqlbantu As String
Dim NoSimp() As Integer
sqlbantu = " select no_simpan from Tabel_Simpanan where No_Trans_Simp ='" & Tno_trsimp.Text & "'"
Call AmbilDataAnggota(rsbantu, sqlbantu)
With Tno_trsimp
sqlUtama = " UpdateTabelTransSimpan '" & Tno_trsimp.Text & "','" & Tno_anggota.Text & "','" &
88
TexnoPet.Text & "','" & Val(Textjumsim.Text) & "','" & DTPicker1.Value & "'"
cnn.Execute sqlUtama
bantu = Text1.Count
x = 0
'varcacah = rsbantu.RecordCount
'
'If .EOF And .BOF Then
For x = 0 To bantu - 1
With rsbantu
Text1(x).Text = rsbantu.Fields!no_simpan
sql = "UpdateTabelSimpanan '" & Val(Text1(x).Text) & "','" & Tno_trsimp.Text & "','" &
Textkir(x).Text & "','" & Val(Textjum(x).Text) & "'"
sqlUpdateTotSimAgt = "cspUpdateSimpananAgtT '" & Tno_anggota.Text & "','" &
Textkir(x).Text & "','" & Val(Textjum(x).Text) & "','" & Text2(x).Text & "'"
cnn.Execute sql
cnn.Execute sqlUpdateTotSimAgt
.MoveNext
Text1(x).Text = x + 1
End With
'rsbantu.MoveNext
Next x
'End If
'End With
End With
SaldoKopBaru = (SaldoKop - JumUpdAwal) + Val(Textjumsim.Text) '''validasi saldo setelah data simpan di
ubah
Call UpdateSaldo(SaldoKopBaru)
If groupPtgs = "02" Then
sql = "viewTransSetoranAwalAgtLogBendahara"
Else
sql = "viewTransSetoranAwalAgt"
End If
Call AmbilDataAnggota(rsSimp, sql)
Set Form_viewSimpAgt.DataGrid1.DataSource = rsSimp
Form_viewSimpAgt.DataGrid1.Refresh
rsSimp.Find ("No_Trans_Simp = '" & Trim(Tno_trsimp.Text) & "'")
rep = MsgBox("Data Simpanan Telah di Ubah ", vbOKOnly, "Information")
If rep = vbOK Then
ComUbah.Enabled = False
End If
End Sub
89
IV.4.4 User Interface Bagian Anggota
User interface bagian anggota memiliki menu seperti data master,
terdiri dari sub menu data petugas dan sub menu data anggota, serta menu
transaksi dengan sub menunya transaksi simpanan anggota. Sub menu
simpanan anggota pada User interface ini merupakan menu yang
digunakan untuk melihat transaksi setoran awal anggota.
Gambar IV.22 User Interface Bagian Anggota
IV.4.4.1 User Interface Data Anggota
User interface data anggota digunakan petugas yang berwewenang
untuk melihat data anggota, menambah data anggota, mengubah data
anggota dan untuk menon aktifkan anggota ketika anggota keluar dari
keanggotaannya. Petugas yang login sebagai bendahara atau sebagai
90
manager hanya dapat melihat data anggota, tanpa dapat mengubah dan
menambah data. Gambar IV.23 adalah User interface lihat data anggota.
Gambar IV.23 User Interface Lihat Data Anggota
Kode program yang digunakan untuk menampilkan User interface
lihat anggota sesuai dengan hak akses tiap User adalah sebagai berikut :
Private Sub ISiDataDiDataGrid(SqlDG As String)
Call AmbilDataAnggota(rsanggota, SqlDG)
With rsanggota
If .BOF And .EOF = True Then
Call NonaktifNavigator(Me)
ComUbah.Enabled = False
ComNonAktifAgt.Enabled = False
Exit Sub
Else
rsanggota.Requery
Set DataGrid1.DataSource = rsanggota 'rs
Private Sub Form_Load()sqlp = " csp_show_anggota "Call ISiDataDiDataGrid(sqlp)End Sub
91
Call TampilNoRec(rsanggota, Label4)
DataGrid1.Refresh
Call AktifNavigator(Me)
Call isiTextBox(rsanggota)
If groupPtgs = "02" Or groupPtgs = "04" Then
ComUbah.Enabled = False
Comtambah.Enabled = False
ComNonAktifAgt.Enabled = False
Else
ComUbah.Enabled = True
End If
End If
End With
End Sub
Kode program Call isiTextBox(rsanggota) akan memnggil
prosedur yang digunakan untuk mengisi data yang ada pada objek
recordset yang aktif pada textbox yang ada pada User interface ini.Kode
program untuk mengisi data pada textbox adalah sebagai berikut
Public Sub isiTextBox(rsisitb As ADODB.Recordset)
If rsisitb.RecordCount > 0 Then
If Not rsisitb.BOF Then
On Error Resume Next
Tnama.Text = rsisitb.Fields!Nama
Tno_anggota.Text = rsisitb.Fields!No_Anggota
Tno_ktp.Text = rsisitb.Fields!No_KTP
Tusername.Text = rsisitb.Fields!UserName
Tpassword.Text = rsisitb.Fields!Password
Tttl.Text = rsisitb.Fields!Tgl_lahir
Tpekerjaan.Text = rsisitb.Fields!pekerjaan
TexUangPkl.Text = rsisitb.Fields!Uang_Pangkal
TexSimPokok.Text = rsisitb.Fields!Simp_Pokok
Ttmasuk_agt.Text = rsisitb.Fields!Tgl_masuk
Ttkeluar_agt.Text = rsisitb.Fields!Tgl_keluar
Talamat.Text = rsisitb.Fields!Alamat
TextStatus.Text = rsisitb.Fields!Status Else
rsisitb.MoveFirst
End If
End If
End Sub
92
IV.4.4.1.1 User Interface Tambah Data Anggota
Gambar beikut merupakan gambar User interface yang digunakan
untuk menambah data anggota yang baru.
Gambar IV.24 User Interface Tambah Data Anggota
User interface ini digunakan untuk mengisi data anggota baru. Jika
data diri anggota telah di inputkan, proses selanjutnya adalah pembayaran
setoran awal anggota. Aggota mesti langsung membayar setoran awal agar
dapat menjadi anggota koperasi, jika tidak maka calon anggota belum
dapat menjadi anggota. Bagian anggota merupakan petugas yang
bertanggungjawab mengurus setoran awal. Di User interface ini juga
terdapat prosedur untuk membuat no anggota secara otomatis. Kode
program yang digunakan adalah seperti yang digunakan pada User
interface tambah transaksi. Kode program untuk menambah data anggota
pada dasarnya sama seperti yang ada pada User interface tambah data
lainya. Yang membedakan adalah perintah sql nya.
93
IV.4.4.1.2 User Interface Tambah Setoran Awal Anggota
User interface yang digunakan untuk menambah setoran awal
anggota memiliki tampilan yang sama dengan User interface tambah data
transaksi simpanan.
Kode program yang digunakan untuk menambah setoran awal
anggota tidak jauh berbeda dengan kode program yang pada User interface
tambah transaksi simpan.
IV.4.4.2 User Interface Ubah Data
User interface ubah data pada login bagian anggota adalah sebagai
berikut
IV.4.4.2.1 User Interface Ubah Data Anggota
Gambar IV.25 adalah User interface yang digunakan untuk
mengubah data anggota.
Gambar IV.25 User Interface Ubah Data Anggota
94
Kode program yang digunakan pada User interface ini Tidak jauh
berbeda dengan kode program pada User interface ubah data yang lain.
User interface ini juga digunakan untuk proses penerimaan anggota lama
yang telah keluar dan ingin masuk lagi menjadi anggota koperasi.
Tampilan User interface untuk pengaktifan kembali anggota lama dan
ubah data anggota yang aktif tidak berbeda jauh. Kode program yang
digunakan adalah sebagai berikut :
IV.4.4.2.2 User Interface Anggota Keluar
Gambar IV.26 adalah User interface anggota keluar. User
interface anggota keluar di gunakan petugas bagian anggota untuk proses
keluar anggota.
Gambar IV.26 User Interface Anggota Keluar
If rsanggota.Fields!Status <> "Aktif" Then 'ComKeuanganAgt.Enabled = False Comubah.Enabled = False Comubah1.Enabled = TrueElse 'ComKeuanganAgt.Enabled = False Comubah.Enabled = True Comubah1.Enabled = FalseEnd If
95
Proses anggota keluar akan mengubah status anggota menjadi
“Tidak aktif”. Kode program yang di gunakan adalah sebagai berikut :.
IV.4.5. User Interface Manager
Pada User interface manager terdapat beberapa menu yang di akses
seperti menu Data Master yang memiliki sub menu Data Petugas dan sub
menu Data Petugas. Selain itu, juga terdapat 2 buton pada toolbar yang
berfungsi untuk akses ke form Data Petugas, form ubah password. Gambar
IV.27 adalah User interface manager .
Gambar IV.27 User Interface Manager
Private Sub ComSimpan_Click()Dim sqlSimp As StringDim stat As StringDim rep As Integerstat = "Tidak Aktif"sqlSimp = "CspAgtKeluar '" & Tno_anggota.Text & "','" & DTPicker1.Value & "','" & stat & "','" &Val(TexSimKeluar.Text) & "'"cnn.Execute sqlSimp On Error GoTo akirrep = MsgBox("Data Telah Tersimpan ", vbOKOnly, "Information") If rep = vbOK Then ComSimpan.Enabled = False End If
Exit Subakir: MsgBox "Data Belum Tersimpan", vbOKOnly, "information"End Sub
96
IV.4.5.1 User Interface Data Anggota
Gambar IV.28 adalah User interface data anggota untuk manager.
Gambar IV.28 User Interface Data Anggota login Manager
User interface data anggota untuk manager tidak berbeda dengan
User interface data anggota pada login bagian anggota. Yang membedakan
adalah pada Userinterface ini User yang login dengan data login sebagai
manager dapat mengakses tombol lihat riwayat anggota. Kode program
yang digunakan untuk membuat tampilan User interface dan batasan akses
tombol command pada User interface ini tidak berbeda dengan kode
program User interface lihat data anggota dengan login bagian bendahara.
IV.4.5.2 User Interface Data Petugas
User interface data petugas untuk login manager sama seperti pada
Gambar IV.4. Yang berbeda adalah bahwa pada login manager, fasilitas
97
tambah data petugas dan hapus data petugas tidak dapat diakses. Pada
User interface ini manager hanya dapat mengubah data Username,
password dan no telepon.
IV.4.5.3 User Interface Lihat Permohonan Peminjaman
Gambar IV.29 adalah gambar User interface lihat permohonan
pada login manager. Gambar ini sama dengan gambar IV.16, yang berbeda
adalah bahwa pada User interface ini manager dapat menggunakan
fasilitas untuk membuat status dan ubah permohonan pinjaman. Gambar
berikut ini adalah gambar User interface lihat permohonan pinjaman pada
login manager.
Gambar IV.29 Gambar User Interface Lihat Perohonan Pinjaman Login Manager
98
Kode program yang digunakan untuk menampilkan User interface
ini sama dengan yang digunakan untuk menampilkan User interface
lainnya.
IV.4.5.4 User Interface Buat Status Permohonan Pinjaman
Gambar IV.30 adalah User interface buat status permohonan
pinjaman anggota.
Gambar IV.30 User Interface Buat Status Permohonan
Kode program yang digunakan untuk menginputkan status yang
baru pada tabel permohonan pinjaman adalah sebagai berikut :
Dim sqlUpdate As String
sqlUpdate = " BeriStatusPP '" & TexNoSp.Text & "','" & noPtgs & "','" &
ComboStatus.Value & "','" & TexPesan.Text & "'"
cnn.Execute sqlUpdate
99
IV.4.6 User Interface Anggota
Gambar IV. 31 merupakan User interface anggota. Data yang
ditampilkan disesuaikan dengan data login, sehingga yang ditampilkan
dalam User interface ini adalah anggota yang memiliki no anggota yang
sama dengan data login.
Gambar IV. 31 User interface Data Anggota Login Anggota
Kode program yang digunakan untuk mengakses halaman ini adalah
Private Sub Form_Load()
Dim sqlpAgt As StringCall lockTxBox(Me)sqlpAgt = " select * from Tabel_Anggota where No_Anggota = '" & NoAgt & "' "
Call AmbilDataAnggota(rsanggota, sqlpAgt)Call isiTextBox(rsanggota)End Sub
100
Prosedur diatas digunakan untuk men - set property locked pada
tiap control (dalam hal ini adalah objek Textbox) menjadi True. Parameter
yang dipakai ber-type form. Hal ini menyebabkan setiap textbox dalam
form yang memanggil procedure ini, maka Property Locked – nya akan
bernilai True,sehingga textboxnya tidak dapat di update.
User interface ini memiliki akses ke semua menu yang dapat di
akses oleh User dengan data login sebagai anggota.
Gambar berikut ini merupakan gambaran User interface lihat data
transaksi pada login anggota.
Gambar IV.32 User Interface Lihat Transaksi Simpan Login Anggota
Public Sub lockTxBox(Form1 As Form)
Dim control1 As ControlFor Each control1 In Form1 If (TypeOf control1 Is TextBox) Then control1.Locked = True End IfNext control1End Sub
101
Data transaksi yang ditampilkan hanya data transaksi simpanan
yang dibuat oleh anggota yang melakukan login. Sistem akan
menampilkan data transaksi yang memilki no anggota sesuai dengan data
no anggota pada proses login. Kode program yang digunakan adalah
sebagai berikut :
Private Sub Form_Load()Dim sqlSimp As StringIf AgtOrPtgs = True Then If groupPtgs = "01" Then sqlSimp = "viewTransSetoranAwalAgt" 'Call AmbilDataAnggota(rsSimp, sqlSimp) ComUbah.Enabled = True 'Set DataGrid1.DataSource = rsSimp 'Call TampilNoRec(rsSimp, Label4) ElseIf groupPtgs = "04" Then ComUbah.Enabled = False 'Dim sqlSimp As String sqlSimp = "viewTransSimpAgt" 'Call AmbilDataAnggota(rsSimp, sqlSimp) 'Set DataGrid1.DataSource = rsSimp 'Call TampilNoRec(rsSimp, Label4) ElseIf groupPtgs = "02" Then Comview.Enabled = True 'TextNoAgt.Text = "" TextNoAgt.Locked = True 'Dim sqlSimp As String sqlSimp = "viewTransSetoranAwalAgtLogBendahara" Else Exit Sub End If Call AmbilDataAnggota(rsSimp, sqlSimp) With rsSimp If rsSimp.BOF And .EOF = True Then NonaktifNavigator (Me) Else Set DataGrid1.DataSource = rsSimp Call isiSPdanup(rsSimp) Call TampilNoRec(rsSimp, Label4) End If End WithElse TextNoAgt.Text = NoAgt TextNoAgt.Locked = True TextNoAgt.BackColor = &H8000000A Comview.Visible = False ComUbah.Enabled = False Call Comview_ClickEnd IfEnd Sub
103
BAB V
ANALISIS HASIL IMPLEMENTASI
Secara umum, sistem informasi perangkat lunak ini sudah dapat
berjalan dengan baik, sehingga tidak menutup kemungkinan dapat
digunakan di Koperasi Purnawirawan dan Warakawuri TNI – POLRI.
Adapun kelebihan, kekurangan, dan manfaatnya adalah sebagai berikut.
V.1 Kelebihan sistem yang dibuat
1. Sistem ini memiliki fasilitas untuk manager dalam memberikan
persetujuan permohonan pinjaman anggota yang didukung oleh
kemampuan sistem dalam memberikan data-data yang dibutuhkan seperti
jumlah simpanan anggota, batas pinjaman anggota, jumlah hutang anggota
(jika anggota masih memiliki pinjaman yang belum terlunaskan),
maksimal pinjaman dari tiap anggota selain itu manager juga dapat
mengetahui jumlah permohonan pinjaman yang telah diajukan anggota
dan dari jumlah tersebut berapa jumlah permohonan pinjaman yang
diterima.
2. Sistem ini memberi fasilitas bagi bendahara untuk mellihat secara cepat
informasi permohonan pinjaman anggota yang telah disetujui oleh
manager.
104
V.2 Kekurangan sisten yang dibuat
1. Sistem informasi ini tidak memiliki fasilitas laporan dalam bentuk grafis.
2. Sistem ini tidak memiliki fasilitas dalam proses perhitungan angsuran
dengan bunga pinjaman yang dinamis.
V.3 Analisa manfaat
Manfaat yang bisa diperoleh dengan adanya sistem ini adalah sebagai
berikut :
1. Informasi tentang data pinjaman, data angsuran, data batas maksimum
pinjaman, data total simpanan, data status anggota, data berapa kali
anggota pernah mengajukan pinjaman baik yang disetujui maupun yang
tidak disetujui, data pemasukan koprasi per bulan, data jumlah anggota
peminjam baru tiap bulan, dan data jumlah anggota yeng mengajukan
pinjaman baik yang statusnya disetujui ataupun tidak disetujui. akan
menjadi lebih cepat dan akurat disampaikan ke masing-masing pihak yang
bersangkutan.
2. Manager dapat melihat data pinjaman, data angsuran, data batas
maksimum pinjaman, data waktu angsuran, data total simpanan, data
status anggota, data berapa kali anggota pernah mengajukan pinjaman baik
yang disetujui maupun yang tidak disetujui, data pemasukan koperasi per
bulan, data pinjaman anggota setiap bulan dengan cepat dan akurat.
3. Adanya fasilitas bagi anggota untuk melihat dengan cepat data
simpanannya, data pinjamannya, dan data angsuran.
105
BAB VI
PENUTUP
VI.1 Kesimpulan
1. Sistem Informsi Koperasi Purnawirawan dan Warakawuri TNI – POLRI
ini secara umum dapat berjalan dengan baik sehingga tidak menutup
kemungkinan dapat digunakan dalam kondisi sesungguhnya.
2. Sistem informasi ini memiliki fasilitas untuk mencatat data simpanan
anggota, data pinjaman anggota, data angsuran anggota, data batas
maksimum pinjaman dari tiap anggota, serta dapat menampilkan informasi
daftar angsuran, data total simpanan, data status anggota, jumlah hutang
anggota (jika anggota masih memiliki pinjaman yang belum terlunaskan)
manager juga dapat mengetahui jumlah permohonan pinjaman yang telah
diajukan anggota dan dari jumlah tersebut berapa jumlah permohonan
pinjaman yang diterima, data pemasukan koperasi per bulan, data
pengeluaran koperasi setiap bulannya. Manager juga dapat mengetahui
riwayat transaksi simpanan, permohonan pinjaman, transaksi pinjaman
anggota dan transaksi angsuran untuk setiap anggota.
3. Sistem informasi ini memiliki kelebihan mampu melakukan pengecekan
terhadap data peminjam, sehingga dapat membantu Manager dalam
memberikan persetujuan. Akan tetapi sistem informasi ini masih memiliki
kekurangan yaitu tidak memiliki fasilitas laporan dalam bentuk grafis dan
proses perhitungan bunga secara dinamis.
106
VI.2 Saran
1. Sebaiknya sistem ini di integrasikan dengan sistem yang dapat menangani
transaksi - transaksi koperasi yang lainnya seperti transaksi pembelian
fasilitas koperasi.
2. Sebaiknya sistem ini juga bisa menangani proses permohonan peminjaman
anggota yang masih memiliki utang.
107
DAFTAR PUSTAKA
Hartono, Jogiyanto, H.M., Akt., MBA, Ph.D., Analisis & Disain Sistem
Informasi: pendekatan teori dan praktek aplikasi bisnis, Andi Offset,
Yogyakarta, 1999.
Atzeni, Palolo. Ceri, Stefano. Paraboschi, Stefano. Tarlone, Ricardo, Database
System : Concepts, Languages, & Architectures. The McGraw – Hill
Companies, 2000.
Jogiyanto, Analisis & Disain Sistem Informasi : Pendekatan Terstruktur Teori
dan Praktek Aplikasi Bisnis, Andi Offset, Yogyakarta, 1990.
Mulyadi, Sistem Akuntansi Edisi 3, Jakarta Salemba Empat, 2001.
Kendall, Kenneth E., & Kendall, Julie E. System Analysis and Desaign (Third
Edition). Camden New Jersey, USA : Rutgers Universsity, School of
Business Comden, Inc, Prentice Hall International, 1998.
Top Related