BAB III PEMBAHASAN · 5.Direktur memilih laporan keuangan Sistem akan menampilkan Infomasi laporan...
Transcript of BAB III PEMBAHASAN · 5.Direktur memilih laporan keuangan Sistem akan menampilkan Infomasi laporan...
16
BAB III
PEMBAHASAN
3.1 Tinjauan Perusahaan
Badan Usaha Milik Desa Bersama Cahaya Mandiri yang berkedudukan
didesa Jungkat kawasan Jungkat Beach, Kecamatan Siantan, Kabupaten
Mempawah, Kalimantan Barat ini merupakan usaha desa yang berupa Badan Usaha
Milik Desa. Dengan perhatian khusus untuk meningkatkan pelayanan sosial
ekonomi desa, kemampuan keuangan pemerintah desa dan pendapatan masyarakat.
3.1.1. Sejarah Perusahaan
Bahwa dalam rangka memberikan pelayanan yang optimal kepada
masyarakat dalam upaya meningkatkan kemampuan keuangan pemerintah desa.
Dalam penyelenggaraan pemerintah serta meningkatkan pendapatan masyarakat
melalui berbagai kegiatan usaha ekonomi masyarakat pedesaan. Perlu didirikannya
Badan Usaha Milik Desa (BUMDES) Bersama, sesuai dengan kebutuhan dan
potensi desa yang ada.
Badan Usaha Milik Desa Bersama yang selanjutnya disebut (BUMDES)
Bersama, didirikan berdasarkan Peraturan Menteri Desa, Pembangunan Daerah
Tertinggal dan Transmigrasi Nomor 4 Tahun 2015 tentang pendirian, pengurusan,
pengelolaan dan pembubaran Badan Usaha Milik Desa. Peraturan Bersama Kepala
Desa Wajok Hulu, Wajok Hilir, Jungkat, Sungai Nipah dan Kepala Desa Peniti
Luar. BUMDES Bersama Cahaya Mandiri dibentuk melalui musyawarah antar desa
pada hari, Senin tanggal 24 Juli tahun 2017 dan didirikan untuk waktu yang tidak
ditentukan.
17
BUMDES Bersama adalah usaha ekonomi antar desa yang dibentuk
berdasarkan peraturan bersama kepala desa. Dimana kepemilikan modal dan
pengolahannya dilakukan oleh pemerintah desa yang bekerja sama dengan
masyarakat.
3.1.2. Visi dan Misi
Adapun visi dan misi BUMDES Bersama Cahaya Mandiri adalah sebagai
berikut:
1. Visi
Terwujudnya kemandirian ekonomi masyarakat diwilayah Kecamatan
Siantan, Kabupaten Mempawah yang berdasarkan ekonomi kerakyatan.
2. Misi
a. Menyediakan pelayanan sosial ekonomi desa dalam rangka
menggerakkan ekonomi desa dan masyarakat.
b. Melestarikan kelembagaan dan kegiatan yang telah dilakukan PNPM
MPD khususnya pelestarian dana bergulir sesuai dengan prisnsip
transparansi, akuntabel dan partisipatif.
c. Meningkatkan kemampuan masyarakat dan aparat pemerintah desa
dalam mengelolah sumber daya alam dan sumber daya lainnya
dikawasan pedesaan.
d. Meningkatkan kerjasama antar desa dalam aspek sosial budaya dan
ekonomi guna meningkatkan pendapatan asli desa.
e. Melakukan dan meningkatkan kegiatan peningkatan kapasitas
masyarakat.
18
3.1.3. Struktur Organisasi dan Fungsi
Suatu organisasi belum bisa berjalan dengan lancar apabila tidak
mempunyai struktur organisasi yang baik dalam melakukan tugas dan fungsinya
masing-masing. BUMDES Bersama Cahaya Mandiri memiliki struktur organisasi
sebagai berikut:
Sumber: BUMDES Bersama Cahaya Mandiri
Gambar III.1 Struktur Organisasi BUMDES Bersama Cahaya Mandiri
Tugas dan fungsi struktur organisasi dari setiap jabatan yang diduduki
antara lain:
1. Direktur
a. Memimpin organisasi BUMDES Bersama Cahaya Mandiri
b. Melakukan pengendalian kegiatan BUMDES Bersama Cahaya Mandiri.
c. Bertindak atas nama lembaga untuk mengadakan perjanjian kerjasama
dengan pihak ketiga dalam pengembangan usaha atau kegiatan lain-lain
yang perlu dilaksanakan.
d. Melaporkan perkembangan usaha dan keuangan BUMDES Bersama
Cahaya Mandiri setiap bulan kepada BKAD yang diteruskan kepada Dewan
Komisaris.
19
e. Melaporkan perkembangan usaha dan keuangan BUMDES Bersama
Cahaya Mandiri setiap triwulan melalui musyawarah antar desa.
f. Melaporkan perkembangan usaha dan keuangan BUMDES Bersama
Cahaya Mandiri setiap akhir tahun melalui musyawarah antar desa dan
pertanggung jawaban.
2. Sekretaris
a. Melaksanakan tugas kesekretariatan untuk mendukung kegiatan direktur.
b. Melaksanakan administrasi umum kegiatan operasional BUMDES Bersama
Cahaya Mandiri.
c. Melaksanakan administrasi pembukaan keuangan BUMDES.
d. Bersama direktur meneliti kebenaran dari berkas-berkas pengajuan
permohonan pinjaman pengecekan dilapangan (dalam kegiatan perguliran
jasa dan kredit).
e. Bersama direktur dan bendahara membahas, memutuskan permohonan
pinjaman yang layak direalisasi (dalam kegiatan perguliran dan jasa kredit).
f. Bersama direktur melakukan pengecekan kebenaran saldo tabungan dan
deposito (Kegiatan ini dapat dilakukan setiap saat sesuai dengan
kebutuhan).
3. Bendahara
a. Menerima dan membayar uang berdasarkan bukti-bukti yang sah.
b. Membantu direktur dalam membahas dan memutuskan permohonan
pinjaman yang layak direalisasikan (dalam kegiatan perguliran jasa kredit).
20
c. Melaporkan posisi keuangan kepada direktur secara sistematis, dapat
dipertanggungjawabkan dan menunjukkan kondisi keuangan dan kelayakan
BUMDES Bersama Cahaya Mandiri yang sesungguhnya.
d. Mengeluarkan uang berdasarkan bukti-bukti yang sah.
e. Mengatur likuiditas sesuai dengan keperluan.
f. Menyetorkan uang ke bank setelah mendapat persetujuan dari direktur.
3.2. Tinjauan Kasus
3.2.1. Proses Bisnis Sistem Berjalan
Pada tahapan ini, masyarakat datang ke kantor BUMDES Bersama Cahaya
Mandiri Kec.Siantan untuk mengajukan pinjaman. Setelah itu, sekretaris pun
menjelaskan persyaratan serta apa saja yang harus dijadikan jaminan untuk
melakukan peminjaman yang sesuai dengan prosedur yang telah ditetapkan oleh
pihak BUMDES Bersama Cahaya Mandiri.
Ketika anggota ingin melakukan pinjaman sekretaris akan segera membuat
surat pengajuan pinjaman yang kemudian diserahkan kepada bendahara.
Selanjutnya, bendahara akan mengelolah data permohonan peminjaman yang
berupa data anggota, total peminjaman, bunga, denda, jaminan, hingga angsuran
bulanan. Bendahara kemudian menyerahkan data permohonan pinjaman kepada
ketua untuk divalidasi.
Setelah itu, ketua akan memvalidasi data permohonan permohonan
pinjaman yang telah memenuhi persyaratan dan diserahkan kembali kepada
bendahara. Selanjutnya bendahara akan menerima data pengajuan pinjaman yang
sudah diacc oleh ketua. Kemudian, bendahara mencairkan dana pinjaman sesuai
21
nominal pengajuan pinjaman. Bendahara kemudian menyerahkan dana pinjaman
kepada anggota dan menjelaskan kembali batas tempo yang telah ditetapkan oleh
pihak BUMDES Bersama Cahaya Mandiri.
Kemudian bendahara memberikan kartu angsuran dan menjelaskan kepada
anggota tentang prosedur pembayaran. Anggota dapat membayar angsuran setiap
bulannya sesuai tanggal jatuh tempo kepada bendahara. Kemudian data
pembayaran angsuran tersebut diarsipkan oleh bendahara dan membuat slip bukti
pembayaran angsuran yang diserahkan kepada anggota. Setiap akhir bulannya
bendahara akan membuat laporan yang nantinya akan direkap dan kemudian
diserahkan kepada direktur BUMDES Bersama Cahaya Mandiri Kec.Siantan.
22
3.2.2. Activity Diagram
Berikut ini adalah proses bisnis sistem berjalan pada Badan Usaha
Milik Desa (BUMDES) Bersama Cahaya Mandiri Kecamatan Siantan.
Sumber : Hasil Penelitian (2018)
Gambar III.2. Activity Diagram Sistem Berjalan
23
3.2.3. Dokumen Masukkan
Dokumen masukkan adalah segala bentuk data yang berasal dari dalam
maupun dari luar, yang mana dokumen itu akan diubah dalam satu proses. Agar
dapat menghasilkan keluaran yang diinginkan. Adapun dokumen masukkan yang
terdapat dalam BUMDES Bersama Cahaya Mandiri Kec.Siantan ialah sebagai
berikut:
a. Nama Dokumen : Bukti Jaminan
Fungsi : Sebagai bukti jaminan
Sumber : Anggota
Tujuan : User
Media : Kertas
Jumlah : 1 Lembar
Frekuensi : Setiap terjadi transaksi
Format : Lampiran A.1
b. Nama Dokumen : Surat Pengajuan Pinjaman
Fungsi : Untuk melakukan pinjaman
Sumber : Anggota
Tujuan : User
Media : Kertas
Jumlah : 1 Lembar
Frekuensi : Setiap Proses Pengajuan Pinjaman
Format : Lampiran A.2
24
3.2.4. Dokumen Keluaran
Dokumen keluaran adalah segala bentuk dokumen yang mendukung
kegiatan manajemen serta merupakan dokumen hasil pencatatan atau laporan.
Adapun dokumen keluaran yang terdapat dalam BUMDES Bersama Cahaya
Mandiri ialah sebagai berikut:
a. Nama Dokumen : Laporan Neraca
Fungsi : Mengetahui keuangan BUMDES
Sumber : BUMDES Bersama Cahaya Mandiri
Tujuan : Ketua
Media : Kertas
Jumlah : 1 Lembar
Frekuensi : Setiap Akhir Periode
Format : Lampiran B.1
b. Nama Dokumen : Surat Perjanjian Pinjaman
Fungsi : Sebagai bukti peminjaman
Sumber : User
Tujuan : Anggota
Media : Kertas
Jumlah : 1 Lembar
Frekuensi : Setiap transakasi peminjaman.
Format : Lampiran B.2
c. Nama Dokumen : Kartu Angsuran
Fungsi : Sebagai bukti pembayaran
Sumber : User
25
Tujuan : Anggota
Media : Kertas
Jumlah : 1 Lembar
Frekuensi : Setiap transakasi peminjaman.
Format : Lampiran B.3
3.2.5. Permasalahan Pokok
Dari hasil pengamatan sistem berjalan pada BUMDES Bersama Cahaya
Mandiri penulis menguraikan permasalahan yang ada pada sistem di BUMDES
Bersama Cahaya Mandiri, yaitu:
1. Dalam pengolahan data yang masih menggunakan sistem manual yaitu
dengan microsoft excel, sehingga untuk proses penyajian data laporan
transaksi dan laporan keuangan membutuhkan waktu yang cukup lama.
2. Dalam proses perhitungan data yang masih menggunakan cara sederhana
yaitu dengan penjumlahan secara manual, menyebabkan nilai nominal pada
data tersebut tidak akurat dan sering terjadinya kesalahan.
3. Untuk penyimpanan data masih dalam bentuk arsip-arsip yang disimpan
pada box files sehingga sulit dalam mencari data-data. Akibatnya arsip-arsip
tersebut mudah hilang dan rusak.
3.2.6. Pemecahan Masalah
Dengan adanya permasalahan yang ada pada proses sistem berjalan, maka
untuk mengatasi permaslahan tersebut penulis memberikan alternartif pemecahan
masalah, diantaranya sebagai berikut:
1. Dengan mengubah sistem yang awalnya menggunakan microsoft.excel
menjadi terkomputerisasi, maka akan dapat mempermudah dan
26
mempercepat dalam proses pengolahan data transakasi sampai pelaporan
sehingga mengurangi terjadinya kesalahan.
2. Dengan menggunakan sistem yang terkomputerisasi, maka dapat
meminimalisir terjadinya kesalahan didalam proses pengolahan data,
laporan transaksi, laporan keuangan dan perhitungan nilai nominal pada
data tersebut.
3. Dengan menggunakan sistem yang terkomputerisasi, maka akan
mempermudah pengguna dalam melakukan pencarian data-data yang
dibutuhkan sehingga dapat menghemat waktu.
3.3. Analisis Kebutuhan Software
3.3.1. Anaslisa Kebutuhan
Kebutuhan pengguna user dalam mengolah data pada aplikasi pengolahan
Piutang Usaha pada Badan Usaha Milik Desa (BUMDES) Bersama Cahaya
Mandiri Kecamatan Siantan, Kabupaten Mempawah adalah direktur dan
bendahara, berikut ini diuraikan analisa kebutuhan dari masing-masing pengguna
sistem.
1. Tahap Analisa Bagian Direktur
A1. Bagian Direktur dapat melakukan Login
A2. Bagian Direktur dapat melihat laporan Transakasi
- Laporan Peminjaman
- Laporan Pembayaran
- Laporan Pengeluaran
A3. Bagian Direktur dapat melihat laporan Keuangan
27
- Laporan Jurnal Umum
- Laporan Buku Besar
- Laporan Neraca
2. Tahap Analisa Bagian Bendahara
B1. Bagian bendahara dapat Login
B2. Bagian bendahara dapat menglolah data Pengguna
B3. Bagian bendahara dapat mengelolah data Anggota
B4. Bagian bendahara dapat mengelolah data Kelompok
B5. Bagian bendahara dapat mengelolah data Usaha Berjalan
B6. Bagian bendahara dapat mengelolah data Akun
B7. Bagian bendahara dapat mengelolah data Peminjaman
B8. Bagian bendahara dapat mengelolah data Pembayaran
B9. Bagian bendahara dapat mengelolah data Pengeluaran
B10. Bagian bendahara dapat Melihat laporan Transaksi
- Laporan Peminjaman
- L aporan Pembayaran
- Laporan Pengeluaran
B11. Bagian bendahara dapat Melihat laporan Keuangan
- Laporan Jurnal Umum
- Laporan Neraca
-Laporan Buku Besar
28
3.3.2. Use Case Diagram
A. Use Case Diagram Direktur
Sumber : Hasil Penelitian (2018)
Gambar III.3. Use Case Diagram Direktur
Tabel III.1
Deskripsi Use Case Diagram Direktur Use Case Narative Halaman Direktur
Tujuan Aktor dapat melihat data yang ada di dalam sistem
halaman direktur
Deskripsi Sistem ini memungkinkan aktor untuk masuk ke halaman
direktur yang di dalamnya ada Laporan Transaksi dan laporan
keuangan.
Skenario Utama
Aktor Direktur
Kondisi Awal Aktor membuka aplikasi halaman direktur
Aksi Aktor Reaksi sistem
1.Direktur memiliih Masuk Sistem akan menampilkan menu utama
2.Direktur memilih laporan
Transaksi
Sistem akan menampilkan Infomasi laporan transaksi yaitu
laporan peminjaman dan laporan pembayaran
29
3.Direktur memilih cari data
laporan transaksi
Sistem akan menampilkan data laporan yang dicari
4.Direktur memilih cetak
laporan transaksi
Sistem akan menampilkan data laporan yang dicetak
5.Direktur memilih laporan
keuangan
Sistem akan menampilkan Infomasi laporan keuangan yaitu
laporan Jurnal Umum, Neraca Saldo dan Buku Besar
6.Direktur memilih cari data
laporan keuangan
Sistem akan menampilkan data laporan yang dicari
7. Direktur memilih cetak
laporan keuangan
Sistem akan menampilkan data laporan yang dicetak
Kondisi Akhir Jika perintah sesuai maka sistem akan menampilkan apa yang
diinginkan
Sumber : Hasil Penelitian (2018)
B. Use Case Diagram Bendahara
Sumber : Hasil Penelitian (2018)
Gambar III.4. Use Case Diagram Bendahara
30
Tabel III.2
Deskripsi Use Case Diagram Bendahara
Use Case Narative Halaman Ketua
Tujuan Bendahara dapat melihat data yang ada di
dalam sistem halaman bendahara
Deskripsi Sistem ini memungkinkan aktor untuk masuk
ke halaman bendahara yang didalamnya ada,
Data pengguna, Data Anggota, Data
Kelompok, Data Usaha, Data Akun, Data
Pengeluaran, Data pinjam, Data bayar,
Laporan Transaksi dan Laporan Keuangan.
Skenario Utama
Aktor Bendahara
Kondisi Awal Aktor membuka aplikasi halaman Bendahara
Aksi Aktor Reaksi Sistem
1. Aktor Memilih data pengguna Sistem akan menampilkan informasi data
pengguna
2. Aktor memilih memasukkan data pengguna Sistem akan menampilkan informasi data
pengguna telah di masukkan
3. Aktor memilih mengubah data pengguna Sistem akan menampilkan informasi
data pengguna telah diubah
4. Aktor memilih menghapus data pengguna Sistem akan menampilkan informasi
data pengguna telah dihapus
5. Aktor memilih mencari data pengguna Sistem akan menampilkan informasi data
pengguna yang dicari
6. Aktor memilih data anggota Sistem akan menampilkan informasi data
anggota
7. Aktor memilih memasukkan data anggota Sistem akan menampilkan informasi data
anggota telah di masukkan
8. Aktor memilih mengubah data anggota Sistem akan menampilkan informasi
data anggota telah diubah
9. Aktor memilih menghapus data anggota Sistem akan menampilkan informasi
data anggota telah dihapus
10. Aktor memilih mencari data anggota Sistem akan menampilkan informasi data
anggota yang dicari
11. Aktor memilih cetak data anggota Sistem akan menampilkan informasi data
anggota yang dicetak
31
12. Aktor memilih data kelompok Sistem akan menampilkan informasi data
kelompok
13. Aktor memilih memasukkan data
kelompok
Sistem akan menampilkan informasi data
kelompok telah di masukkan
14. Aktor memilih mengubah data kelompok Sistem akan menampilkan informasi
data kelompok telah diubah
15. Aktor memilih menghapus data kelompok Sistem akan menampilkan informasi
data kelompok telah dihapus
16. Aktor memilih mencari data kelompok Sistem akan menampilkan informasi data
kelompok yang dicari
17. Aktor memilih cetak data kelompok Sistem akan menampilkan informasi data
kelompok yang dicetak
18. Aktor memilih data usaha Sistem akan menampilkan informasi data
usaha
19. Aktor memilih memasukkan data usaha Sistem akan menampilkan informasi data
usaha telah di masukkan
20. Aktor memilih mengubah data usaha Sistem akan menampilkan informasi
data usaha telah diubah
21. Aktor memilih menghapus data usaha Sistem akan menampilkan informasi
data usaha telah dihapus
22. Aktor memilih mencari data usaha Sistem akan menampilkan informasi data
usaha yang dicari
23. Aktor memilih cetak data usaha Sistem akan menampilkan informasi data
usaha yang dicetak
24. Aktor memilih data akun Sistem akan menampilkan informasi data
akun
25. Aktor memilih memasukkan data akun Sistem akan menampilkan informasi data
akun telah di masukkan
26. Aktor memilih mengubah data akun Sistem akan menampilkan informasi
data akun telah diubah
27. Aktor memilih menghapus data akun Sistem akan menampilkan informasi
data akun telah dihapus
28. Aktor memilih mencari data akun Sistem akan menampilkan informasi data
akun yang dicari
29. Aktor memilih cetak data akun Sistem akan menampilkan informasi data
akun yang dicetak
30. Aktor memilih data pengeluaran Sistem akan menampilkan informasi data
pengeluaran
32
31. Aktor memilih memasukkan data
pengeluaran
Sistem akan menampilkan informasi data
pengeluaran telah di masukkan
32. Aktor memilih mengubah data
pengeluaran
Sistem akan menampilkan informasi
data pengeluaran telah diubah
33. Aktor memilih menghapus data
pengeluaran
Sistem akan menampilkan informasi
data pengeluaran telah dihapus
34. Aktor memilih mencari data pengeluaran Sistem akan menampilkan informasi data
pengeluaran yang dicari
35. Aktor memilih cetak data pengeluaran Sistem akan menampilkan informasi data
pengeluaran yang dicetak
36. Aktor memilih data Pinjaman Sistem akan menampilkan informasi data
peminjaman
37. Aktor memilih memasukkan data
peminjaman
Sistem akan menampilkan informasi data
peminjaman telah di masukkan
38. Aktor memilih mengubah data
peminjaman
Sistem akan menampilkan informasi
data peminjaman telah diubah
39. Aktor memilih menghapus data
peminjaman
Sistem akan menampilkan informasi
data peminjaman telah dihapus
40. Aktor memilih mencari data peminjaman Sistem akan menampilkan informasi data
peminjaman yang dicari
41. Aktor memilih cetak data peminjaman Sistem akan menampilkan informasi data
peminjaman yang dicetak
42. Aktor memilih data pembayaran Sistem akan menampilkan informasi data
pembayaran
43. Aktor memilih memasukkan data
pembayaran
Sistem akan menampilkan informasi data
pembayaran telah di masukkan
44. Aktor memilih mengubah data
pembayaran
Sistem akan menampilkan informasi
data pembayaran telah diubah
45. Aktor memilih menghapus data
pembayaran
Sistem akan menampilkan informasi
data pembayaran telah dihapus
46. Aktor memilih mencari data pembayaran Sistem akan menampilkan informasi data
pembayaran yang dicari
47. Aktor memilih cetak data pembayaran Sistem akan menampilkan informasi data
pembayaran yang dicetak
48. Aktor memilih melihat Laporan Transaksi Sistem akan menampilkan informasi data
laporan transaksi
49. Aktor memilih cetak Laporan Transaksi Sistem akan menampilkan informasi data
Laporan Transaksi yang dicetak
33
50. Aktor memilih melihat Laporan
Keuangan
Sistem akan menampilkan informasi data
laporan Keuangan
51. Aktor memilih cetak Laporan Keuangan Sistem akan menampilkan informasi data
Keuangan yang dicetak
Kondisi Akhir Jika perintah sesuai maka sistem akan
menampilkan apa yang diinginkan
Sumber : Hasil Penelitian (2018)
C. Use Case Diagram Sekretaris
Sumber : Hasil Penelitian (2018)
Gambar III.5. Use Case Diagram Sekretaris
Tabel III.3.
Deskripsi Use Case Diagram Sekretaris
Use Case Narative Halaman Sekretaris
Tujuan Sekretaris dapat melihat data yang ada di
dalam sistem halaman sekretaris
34
Deskripsi Sistem ini memungkinkan aktor untuk masuk
ke halaman sekretaris yang didalamnya ada
Data Anggota.
Skenario Utama
Aktor Sekretaris
Kondisi Awal Aktor membuka aplikasi halaman Sekretaris
Aksi Aktor Reaksi Sistem
1. Aktor Memilih data pengguna Sistem akan menampilkan informasi data
anggota
2. Aktor memilih memasukkan data pengguna Sistem akan menampilkan informasi data
anggota telah di masukkan
3. Aktor memilih mengubah data pengguna Sistem akan menampilkan informasi
data anggota telah diubah
4. Aktor memilih menghapus data pengguna Sistem akan menampilkan informasi
data anggota telah dihapus
5. Aktor memilih mencari data pengguna Sistem akan menampilkan informasi data
anggota yang dicari
6. Aktor memilih cetak data anggota Sistem akan menampilkan informasi data
anggota telah dicetak
35
3.3.3. Activity Diagram
1. Activity Diagram Form Login
Dalam activity diagram form login ini. Aktor melakukan login setelah itu
mengisi username dan password. Jika benar sistem akan menampilkan menu utama
dan jika salah maka sistem akan menampilkan form login kembali.
Sumber : Hasil Penelitian (2018)
Gambar III.6. Activity Diagram Form Login
36
2. Activity Diagram Form Pengguna
Dalam activity diagram form pengguna ini. Aktor dapat menginput data
pengguna, mengubah, menghapus, dan mencari data pengguna.
Sumber : Hasil Penelitian (2018)
Gambar III.7. Activity Diagram Form Pengguna
37
3. Activity Diagram Form Anggota
Dalam activity diagram form anggota ini. Aktor dapat menginput data
anggota, mengubah, menghapus, mencari dan mencetak data anggota.
Sumber : Hasil Penelitian (2018)
Gambar III.8. Activity Diagram Form Anggota
38
4. Activity Diagram Form Kelompok
Dalam activity diagram form kelompok ini. Aktor dapat menginput data
kelompok, mengubah, menghapus, mencari dan mencetak data kelompok.
Sumber : Hasil Penelitian (2018)
Gambar III.9. Activity Diagram Form Kelompok
39
5. Activity Diagram Form Usaha Berjalan
Dalam activity diagram form usaha berjalan ini. Aktor dapat menginput data
usaha berjalan, mengubah, menghapus, mencari dan mencetak data usaha berjalan.
Sumber : Hasil Penelitian (2018)
Gambar III.10. Activity Diagram Form Usaha Berjalan
40
6. Activity Diagram Form Akun
Dalam activity diagram form akun ini. Aktor dapat menginput data akun,
mengubah, menghapus, mencari dan mencetak data akun.
Sumber : Hasil Penelitian (2018)
Gambar III.11. Activity Diagram Form Akun
41
7. Activity Diagram Form Peminjaman
Dalam activity diiagram form peminjaman ini. Aktor dapat melakukan input
data peminjaman, menambahkan, mengubah, menghapus, mencari dan mencetak
data peminjaman.
Sumber : Hasil Penelitian (2018)
Gambar III.12. Activity Diagram Form Peminjaman
42
8. Activity Diagram Form Pembayaran
Dalam activity Diagram form pembayaran ini. Aktor dapat menginput data
pembayaran, mengubah, menghapus, mencari dan mencetak data pembayaran.
Sumber : Hasil Penelitian (2018)
Gambar III.13. Activity Diagram Form Pembayaran
43
9. Activity Diagram Form Pengeluaran
Dalam activity diagram form pengeluaran ini. Aktor dapat menginput data
pengeluaran, mengubah, menghapus, mencari dan mencetak data pengeluaran.
Sumber : Hasil Penelitian (2018)
Gambar III.14. Activity Diagram Form Pengeluaran
44
10. Activity Diagram Form Laporan Transaksi
Didalam Activity Diagram form laporan transaksi ini. Aktor dapat mencari
dan mencetak laporan transaksi.
Sumber : Hasil Penelitian (2018)
Gambar III.15. Activity Diagram Form Laporan Transaksi
11. Activity Diagram Form Laporan Keuangan
Didalam Activity Diagram form laporan keuangan ini. Aktor dapat mencari
dan mencetak laporan keuangan.
Sumber : Hasil Penelitian (2018)
Gambar III.16. Activity Diagram Form Laporan Transaksi Keuangan
45
3.4. Desain
3.4.1. Entity Relationship Diagram (ERD)
Berikut ini merupakan Entity Relationship Diagram (ERD) yang digunakan
pada aplikasi piutang usaha.
Sumber : Hasil Penelitian (2018)
Gambar III.17. Entity Relationship Diagram (ERD) Aplikasi Piutang Usaha.
46
3.4.2. Logical Record Structure (LRS)
Berikut ini merupakan Logical Record Structure (LRS) yang digunakan
pada aplikasi piutang usaha.
Sumber : Hasil Penelitian (2018)
Gambar III.18. Logical Record Structure (LRS) Aplikasi Piutang Usaha.
47
3.4.3. Spesifikasi File
File adalah komponen utama dari sebuah sistem komputerisasi. File
memiliki fungsi sebagai data masukan dan keluaran untuk menunjang jalannya
sistem dan program yang sedang di bangun. Adapun spesifikasi file tersebut adalah:
1) Spesifikasi File Tabel Pengguna
Nama Database : piutang_usaha
Nama Tabel : tbl_pengguna
Nama File : Pengguna
Tipe File : File Master Data
Akses File : Random
Field Key : id_pengguna
Panjang Record : 126 Karakter
Tabel III.4.
Spesifikasi File tabel pengguna
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Pengguna id_pengguna Char 8 Primary Key
2 Nama Pengguna nama_pengguna Varchar 20
3 Jenis Kelamin jenis_kelamin Enum Laki-laki, Perempuan
4 Tempat Lahir tempat_lahir Varchar 20
5 Tanggal Lahir tanggal_lahir Char 10
6 Alamat alamat Varchar 50
7 Kata Sandi kata_sandi Varchar 8
8 Hak Akses hak_akses Varchar 10
Sumber : Hasil Penelitian (2018)
2) Spesifikasi File Tabel Anggota
Nama Database : piutang_usaha
Nama Tabel : tbl_anggota
Nama File : Anggota
Tipe File : File Master Data
48
Akses File : Random
Field Key : no_anggota
Panjang Record : 127 Karakter
Tabel III.5.
Spesifikasi File tabel anggota
No Elemen Data Nama Field Tipe Size Keterangan
1 Nomor anggota no_anggota Char 8 Primary Key
2 NIK nik Char 16
2 Nama anggota nama_anggota Varchar 25
3 Jenis Kelamin jenis_kelamin Enum Laki-laki, Perempuan
4 Alamat alamat Varchar 50
5 Pekerjaan pekerjaan Varchar 15
6 No Hp no_hp Char 13
Sumber : Hasil Penelitian (2018)
3) Spesifikasi File tabel kelompok
Nama Database : piutang_usaha
Nama Tabel : tbl_kelompok
Nama File : Kelompok
Tipe File : File Master Data
Akses File : Random
Field Key : kode_kelompok
Panjang Record : 32 Karakter
Tabel III.6.
Spesifikasi File tabel kelompok
No Elemen Data Nama Field Tipe Size Keterangan
1 Kode Kelompok kode_kelompok Char 8 Primary Key
2 Nama Kelompok nama_kelompok Varchar 24
Sumber : Hasil Penelitian (2018)
49
4) Spesifikasi File tabel detail kelompok
Nama Database : piutang_usaha
Nama Tabel : tbl_detail_kelompok
Nama File : Detail Kelompok
Tipe File : File Master Data
Akses File : Random
Field Key : id_detail
Panjang Record : 47 Karakter
Tabel III.7.
Spesifikasi File tabel detail kelompok
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Detail id_detail Int 6 Primary Key
2 Kode Kelompok kode_kelompok Char 8
3 Nomor Anggota no_anggota Char 8
4 Nama Anggota nama_anggota Varchar 15
5 Jabatan jabatan Enum Ketua,
Sekretaris,
Bendahara,
Anggota
Sumber : Hasil Penelitian (2018)
5) Spesifikasi File tabel Akun
Nama Database : piutang_usaha
Nama Tabel : tbl_akun
Nama File : Akun
Tipe File : File Master Data
Akses File : Random
Field Key : id_akun
Panjang Record : 76 Karakter
50
Tabel III.8.
Spesifikasi File tabel Akun
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Akun id_akun Int 6 Primary Key
2 Nama Akun nama_akun Varchar 35
3 Jenis akun jenis_akun Varchar 35
4 Alir alir Enum Debet, Kredit
Sumber : Hasil Penelitian (2018)
6) Spesifikasi File tabel usaha berjalan
Nama Database : piutang_usaha
Nama Tabel : tbl_usaha_berjalan
Nama File : Usaha Berjalan
Tipe File : File Master Data
Akses File : Random
Field Key : no_usaha
Panjang Record : 106 Karakter
Tabel III.9.
Spesifikasi File tabel Usaha Berjalan
No Elemen Data Nama Field Tipe Size Keterangan
1 Nomor Usaha no_usaha Char 8 Primary Key
Nomor Anggota no_anggota Char 8
3 Nama Anggota nama_anggota Varchar 20
4 Jenis Usaha jenis_usaha Varchar 20
5 Alamat alamat Varchar 50
Sumber : Hasil Penelitian (2018)
7) Spesifikasi File tabel pinjaman
Nama Database : piutang_usaha
Nama Tabel : tbl_pinjaman
Nama File : Pinjaman
Tipe File : Transaksi
51
Akses File : Random
Field Key : no_pinjam
Panjang Record : 128 Karakter
Tabel III.10.
Spesifikasi File tabel Pinjaman
No Elemen Data Nama Field Tipe Size Keterangan
1 Nomor Pinjam no_pinjam Char 8 Primary Key
2 Tanggal Pinjam tgl_pinjam Char 10
3 Kode Kelompok kode_kelompok Char 8
4 Nama Kelompok nama_kelompok Varchar 20
5 Alamat alamat Varchar 50
6 Bunga Pinjaman bunga_pinjaman Float
7 Total Pinjaman total_pinjaman Double
8 Total
Pengembalian
total_pengembalian Double
9 Jumlah Angsuran jumlah_angsuran Double
10 Jenis Pinjaman jenis_pinjaman Enum Individu,
Kelompok
11 Keterangan
Pinjam
keterangan_pinjam Varchar 24
12 Status status Enum Lunas, Belum
13 Id Pengguna id_pengguna Char 8
Sumber : Hasil Penelitian (2018)
8) Spesifikasi File tabel detail pinjaman
Nama Database : piutang_usaha
Nama Tabel : tbl_detail_pinjaman
Nama File : Detail Pinjaman
Tipe File : Transaksi
Akses File : Random
Field Key : id_detail
Panjang Record : 44 Karakter
52
Tabel III.11.
Spesifikasi File tabel Detail Pinjaman
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Detail id_detail Int 6 Primary Key
2 No Pinjam no_pinjam Char 10
3 Nomor Anggota no_nggota Char 8
4 Nama Anggota nama_anggota Varchar 20
5 Total Pinjaman total_pinjaman Double
6 Angsuran Pokok angsuran _pokok Double
7 Angsuran Bunga angsuran _bunga Double
8 Jumlah Angsuran jumlah_ angsuran Double
Sumber : Hasil Penelitian (2018)
9) Spesifikasi File tabel Bayar
Nama Database : piutang_usaha
Nama Tabel : tbl_bayar
Nama File : Bayar
Tipe File : Transaksi
Akses File : Random
Field Key : no_bayar
Panjang Record : 66 Karakter
Tabel III.12.
Spesifikasi File tabel Bayar
No Elemen Data Akronim Tipe Size Keterangan
1 Nomor Bayar no_bayar Char 8 Primary Key
2 No Pinjam no_pinjam Char 8
3 Tanggal Bayar tanggal_bayar Char 10
4 Bayar Pokok bayar_pokok Double
5 Bayar Bunga bayar_bunga Double
6 Bayar Denda bayar_denda Double
7 Total Bayar total_bayar Double
8 Keterangan Bayar keterangan_bayar Varchar 20
9 Lama Angsuran lama_angsuran Varchar 7
10 Angsuran Ke angsuran_ke Char 5
53
11 Id Pengguna id_pengguna Char 8
Sumber : Hasil Penelitian (2018)
10) Spesifikasi File tabel Pengeluaran
Nama Database : piutang_usaha
Nama Tabel : tbl_pengeluaran
Nama File : Pengeluaran
Tipe File : Transaksi
Akses File : Random
Field Key : id_pengeluaran
Panjang Record : 48 Karakter
Tabel III.13.
Spesifikasi File tabel Pengeluaran
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Pengeluaran id_pengeluaran Char 10 Primary Key
2 Tanggal
Pengeluaran
tgl_pengeluaran Char 10
3 Total total Double
4 Jenis Pengeluaran jenis_pengeluaran Enum Operasional,
Non-Operasional
5 Keterangan keterangan Varchar 20
6 Id Pengguna id_pengguna Char 8
Sumber : Hasil Penelitian (2018)
11) Spesifikasi File tabel Detail Pengeluaran
Nama Database : piutang_usaha
Nama Tabel : tbl_detail_pengeluaran
Nama File : Detail Pengeluaran
Tipe File : Transaksi
Akses File : Random
Field Key : id_detail
54
Panjang Record : 16
Tabel III.14.
Spesifikasi File tabel Detail Pengeluaran
No Elemen Data Nama Field Tipe Size Keterangan
1 Id Detail id_detail Int 6 Primary Key
2 Id Pengeluaran id_pengeluaran Char 10
3 Harga Satuan harga_satuan Double
4 Jumlah jumlah Double
5 Sub Total sub_total Double
Sumber : Hasil Penelitian (2018)
12) Spesifikasi File tabel Jurnal
Nama Database : piutang_usaha
Nama Tabel : tbl_jurnal
Nama File : Detail Pengeluaran
Tipe File : Transaksi
Akses File : Random
Field Key : kode_jurnal
Panjang Record : 74 Karakter
Tabel III.15.
Spesifikasi File tabel Jurnal
No Elemen Data Nama Field Tipe Size Keterangan
1 Kode Jurnal kode_jurnal Char 8 Primary Key
2 Tanggal Jurnal tanggal_jurnal Char 10
3 Id Akun id_akun Char 6
4 Debet debet Double
5 Kredit kredit Double
6 Keterangan keterangan Varchar 50
Sumber : Hasil Penelitian (2018)
55
3.4.4. Squence Diagram
Berikut ini merupakan Squence Diagram yang digunakan pada Aplikasi
Piutang Usaha.
Sumber : Hasil Penelitian (2018)
Gambar III.19. Gambar Squence Diagram
56
3.4.5. Deployment Diagram
Berikut ini merupakan Deployment Diagram yang digunakan pada Aplikasi
Piutang Usaha.
Sumber : Hasil Penelitian (2018)
Gambar III.20. Deployment Diagram
3.4.6. User Interface
Berikut ini tampilan user interface dari aplikasi piutang usaha Badan Usaha
Milik Desa (BUMDES) Bersama Cahaya Mandiri.
Sumber : Hasil Penelitian (2018)
Gambar III.21. Gambar User Interface Form Login
57
Sumber : Hasil Penelitian (2018)
Gambar III.22.
Gambar User Interface Form Menu Utama
Sumber : Hasil Penelitian (2018)
Gambar III.23.
Gambar User Interface Form Pengguna
58
Sumber : Hasil Penelitian (2018)
Gambar III.24.
Gambar User Interface Form Anggota
Sumber : Hasil Penelitian (2018)
Gambar III.25.
Gambar User Interface Form Kelompok
59
Sumber : Hasil Penelitian (2018)
Gambar III.26.
Gambar User Interface Form Usaha Berjalan
Sumber : Hasil Penelitian (2018)
Gambar III.27.
Gambar User Interface Form Akun
60
Sumber : Hasil Penelitian (2018)
Gambar III.28.
Gambar User Interface Form Peminjaman
Sumber : Hasil Penelitian (2018)
Gambar III.29.
Gambar User Interface Form Pembayaran
61
Sumber : Hasil Penelitian (2018)
Gambar III.30.
Gambar User Interface Form Pengeluaran
Sumber : Hasil Penelitian (2018)
Gambar III.31.
Gambar User Interface Form Jurnal Umum
62
3.5. Implementasi
3.5.1. Code Generation
Berikut ini merupakan code generation dari aplikasi piutang usaha pada
Badan Usaha Milik Desa (BUMDES) Bersama Cahaya Mandiri.
A. Form Peminjaman
Public Class Form_Peminjaman Dim peminjaman As New Cl_peminjaman Private Sub bersih() tx_angsuran_bunga.Clear() tx_angsuran_pokok.Clear() tx_bunga_pinjaman.Clear() tx_cari.Clear() tx_jml_cicilan.Clear() tx_jumlah_byar_perbulan.Clear() tx_keterangan_pinjam.Clear() tx_kode_kelompok.Clear() tx_nama_anggota.Clear() tx_nama_kelompok.Clear() tx_no_anggota.Clear() tx_no_pinjam.Clear() tx_total_pengembalian.Clear() tx_alamat.Clear() tx_ttal_pinjam.Clear() txt_total_pinjam.Clear() cb_jenis_pinjaman.Text = "Pilih Pinjaman" cb_status.Text = "Pilih Status" dtp_tanggal_pinjam.Value = Now End Sub Private Sub aktif() tx_angsuran_bunga.Enabled = True tx_angsuran_pokok.Enabled = True tx_bunga_pinjaman.Enabled = True tx_cari.Enabled = True tx_jml_cicilan.Enabled = True tx_jumlah_byar_perbulan.Enabled = True tx_keterangan_pinjam.Enabled = True tx_kode_kelompok.Enabled = True tx_nama_anggota.Enabled = True tx_nama_kelompok.Enabled = True tx_no_anggota.Enabled = True tx_total_pengembalian.Enabled = True tx_alamat.Enabled = True tx_ttal_pinjam.Enabled = True txt_total_pinjam.Enabled = True cb_jenis_pinjaman.Enabled = True cb_status.Enabled = True dtp_tanggal_pinjam.Enabled = True End Sub Private Sub non_aktif() tx_angsuran_bunga.Enabled = False tx_angsuran_pokok.Enabled = False tx_bunga_pinjaman.Enabled = False
63
tx_jml_cicilan.Enabled = False tx_jumlah_byar_perbulan.Enabled = False tx_keterangan_pinjam.Enabled = False tx_kode_kelompok.Enabled = False tx_nama_anggota.Enabled = False tx_nama_kelompok.Enabled = False tx_no_anggota.Enabled = False tx_no_pinjam.Enabled = False tx_total_pengembalian.Enabled = False tx_alamat.Enabled = False tx_ttal_pinjam.Enabled = False txt_total_pinjam.Enabled = False bt_edit.Enabled = False bt_hapus.Enabled = False bt_simpan.Enabled = False tx_id_pengguna.Enabled = False dtp_tanggal_pinjam.Enabled = False cb_jenis_pinjaman.Enabled = False cb_status.Enabled = False End Sub Private Sub Form_Peminjaman_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load non_aktif() bersih() peminjaman.loadData_pinjam(dgv_pinjam) cb_jenis_pinjaman.Items.Add("Individu") cb_jenis_pinjaman.Items.Add("Kelompok") cb_status.Items.Add("Lunas") cb_status.Items.Add("Belum Lunas") tx_id_pengguna.Text = Form_menu_utama.StatusStrip1.Items(1).Text End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form_cari_anggota.Show() Form_cari_anggota.lblbantu.Text = "Form_peminjaman" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form_cari_kelompok.Show() Form_cari_kelompok.lblbantu.Text = "Form_peminjaman" End Sub Private Sub bt_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cari.Click peminjaman.cariData_pinjam(dgv_pinjam, tx_cari) End Sub Private Sub dgv_pinjam_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_pinjam.CellContentClick On Error Resume Next If dgv_pinjam.Rows.Count > 0 Then tx_no_pinjam.Text = dgv_pinjam.CurrentRow.Cells(0).Value.ToString dtp_tanggal_pinjam.Value = dgv_pinjam.CurrentRow.Cells(1).Value.ToString
64
tx_kode_kelompok.Text = dgv_pinjam.CurrentRow.Cells(2).Value.ToString tx_nama_kelompok.Text = dgv_pinjam.CurrentRow.Cells(3).Value.ToString tx_alamat.Text = dgv_pinjam.CurrentRow.Cells(4).Value.ToString tx_bunga_pinjaman.Text = dgv_pinjam.CurrentRow.Cells(5).Value.ToString tx_ttal_pinjam.Text = dgv_pinjam.CurrentRow.Cells(6).Value.ToString tx_total_pengembalian.Text = dgv_pinjam.CurrentRow.Cells(7).Value.ToString tx_jumlah_byar_perbulan.Text = dgv_pinjam.CurrentRow.Cells(8).Value.ToString cb_jenis_pinjaman.Text = dgv_pinjam.CurrentRow.Cells(9).Value.ToString tx_keterangan_pinjam.Text = dgv_pinjam.CurrentRow.Cells(10).Value.ToString cb_status.Text = dgv_pinjam.CurrentRow.Cells(11).Value.ToString tx_id_pengguna.Text = dgv_pinjam.CurrentRow.Cells(12).Value.ToString bt_hapus.Enabled = True bt_edit.Enabled = True aktif() tx_no_pinjam.Enabled = False bt_tambah.Text = "Batal" End If End Sub Private Sub bt_plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_plus.Click If tx_no_pinjam.Text = "" Or tx_no_anggota.Text = "" Then MsgBox("Masih ada data yang kosong! Harap isi...", vbOKOnly + vbInformation, "") Else With peminjaman .no_pinjam = tx_no_pinjam.Text .no_anggota = tx_no_anggota.Text .nama_anggota = tx_nama_anggota.Text .total_pinjaman = txt_total_pinjam.Text .angsuran_pokok = tx_angsuran_pokok.Text .angsuran_bunga = tx_angsuran_bunga.Text .jumlah_angsuran = tx_jumlah_byar_perbulan.Text If .save_detail() Then peminjaman.loadData_detail_pinjam(dgv_pinjam, tx_no_pinjam) End If End With End If End Sub Private Sub bt_minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_minus.Click peminjaman.no_pinjam = dgv_pinjam.CurrentRow.Cells(0).Value If peminjaman.delete_detail() Then peminjaman.loadData_detail_pinjam(dgv_pinjam, tx_no_pinjam) End If End Sub
65
Private Sub tx_bunga_pinjaman_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_bunga_pinjaman.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_bunga_pinjaman_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_bunga_pinjaman.TextChanged End Sub Private Sub txt_total_pinjam_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_total_pinjam.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub txt_total_pinjam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_total_pinjam.TextChanged tx_angsuran_pokok.Text = Val(txt_total_pinjam.Text) / Val(tx_jml_cicilan.Text) tx_angsuran_bunga.Text = Val(txt_total_pinjam.Text) * (Val(tx_bunga_pinjaman.Text) / 100) tx_jumlah_byar_perbulan.Text = Val(tx_angsuran_pokok.Text) + Val(tx_angsuran_bunga.Text) End Sub Private Sub bt_tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tambah.Click If bt_tambah.Text = "Tambah" Then aktif() bersih() tx_no_pinjam.Focus() bt_tambah.Text = "Batal" bt_simpan.Enabled = True 'auto_code Dim kode As String Dim no As Integer peminjaman.auto_code(dgv_pinjam) If dgv_pinjam.Rows.Count > 0 Then On Error Resume Next kode = dgv_pinjam.CurrentRow.Cells(0).Value.ToString no = Val(Microsoft.VisualBasic.Right(kode, 2)) + 1 If no < 10 Then tx_no_pinjam.Text = "PJ-00" & no ElseIf no < 100 Then tx_no_pinjam.Text = "PJ-0" & no End If Else
66
tx_no_pinjam.Text = "PJ-001" End If peminjaman.no_pinjam = tx_no_pinjam.Text '# peminjaman.delete_detail_semua() '# peminjaman.loadData_detail_pinjam(dgv_pinjam, tx_no_pinjam) '# Else peminjaman.loadData_pinjam(dgv_pinjam) non_aktif() bersih() bt_tambah.Text = "Tambah" End If End Sub Private Sub bt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_simpan.Click If tx_no_pinjam.Text = "" Or tx_no_pinjam.Text = "" Or cb_status.Text = "Pilih Status" Then MsgBox("Masih ada data yang kosong! Harap isi...", vbOKOnly + vbInformation, "") Else With peminjaman .no_pinjam = tx_no_pinjam.Text .tgl_pinjam = dtp_tanggal_pinjam.Text .kode_kelompok = tx_kode_kelompok.Text .nama_kelompok = tx_nama_kelompok.Text .alamat = tx_alamat.Text .bunga_pinjaman = tx_bunga_pinjaman.Text .total_pinjaman = tx_ttal_pinjam.Text .total_pengembalian = tx_total_pengembalian.Text .jumlah_cicilan = tx_jml_cicilan.Text .jenis_pinjaman = cb_jenis_pinjaman.Text .keterangan_pinjam = tx_keterangan_pinjam.Text .status = cb_status.Text .id_pengguna = tx_id_pengguna.Text .no_anggota = tx_no_anggota.Text .nama_anggota = tx_nama_anggota.Text .total_pinjaman = txt_total_pinjam.Text .angsuran_pokok = tx_angsuran_pokok.Text .angsuran_bunga = tx_angsuran_bunga.Text .jumlah_angsuran = tx_jumlah_byar_perbulan.Text If .save() Then Dim jurnal As New Cl_jurnal_umum jurnal.kode_jurnal = "" jurnal.tanggal_jurnal = dtp_tanggal_pinjam.Value jurnal.no_akun = "112" jurnal.debet = tx_ttal_pinjam.Text jurnal.kredit = "0" jurnal.keterangan = "Diterima dari Transaksi Peminjaman No: " & tx_no_pinjam.Text jurnal.save() jurnal.kode_jurnal = "" jurnal.tanggal_jurnal = dtp_tanggal_pinjam.Value jurnal.no_akun = "111" jurnal.debet = "0" jurnal.kredit = tx_ttal_pinjam.Text jurnal.keterangan = "Diterima dari Transaksi Peminjaman No: " & tx_no_pinjam.Text
67
jurnal.save() MsgBox("Data berhasil diSimpan", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End With End If End Sub Private Sub bt_edit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_edit.Click If tx_no_pinjam.Text = "" Then MsgBox("Harap pilih data yang akan diUbah terlebih dahulu...!", vbOKOnly + vbInformation, "") Else If MsgBox("Anda yakin akan mengubah data ini: " & tx_no_pinjam.Text, vbYesNo + vbQuestion, "") = vbYes Then With peminjaman .no_pinjam = tx_no_pinjam.Text .tgl_pinjam = dtp_tanggal_pinjam.Text .kode_kelompok = tx_kode_kelompok.Text .nama_kelompok = tx_nama_kelompok.Text .alamat = tx_alamat.Text .bunga_pinjaman = tx_bunga_pinjaman.Text .total_pinjaman = tx_ttal_pinjam.Text .total_pengembalian = tx_total_pengembalian.Text .jumlah_cicilan = tx_jml_cicilan.Text .jenis_pinjaman = cb_jenis_pinjaman.Text .keterangan_pinjam = tx_keterangan_pinjam.Text .status = cb_status.Text .id_pengguna = tx_id_pengguna.Text If .update() Then MsgBox("Data berhasil diUbah", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End With End If End If End Sub Private Sub bt_refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_refresh.Click peminjaman.loadData_pinjam(dgv_pinjam) End Sub Private Sub bt_hapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_hapus.Click If tx_no_pinjam.Text = "" Then MsgBox("Harap pilih data yang akan diHapus terlebih dahulu...!", vbOKOnly + vbInformation, "") Else If MsgBox("Anda yakin akan menghapus data ini: " & tx_no_pinjam.Text, vbYesNo + vbQuestion, "") = vbYes Then peminjaman.no_pinjam = tx_no_pinjam.Text If peminjaman.delete() Then
68
MsgBox("Data berhasil diHapus", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End If End If End Sub Private Sub bt_tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tutup.Click Me.Dispose() End Sub Private Sub tx_id_pengguna_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_id_pengguna.TextChanged End Sub Private Sub tx_jml_angsuran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_jml_cicilan.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_jumlah_angsuran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_jumlah_byar_perbulan.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_jumlah_angsuran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_jumlah_byar_perbulan.TextChanged tx_angsuran_pokok.Text = Val(txt_total_pinjam.Text) / Val(tx_jumlah_byar_perbulan.Text) End Sub Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter End Sub Private Sub tx_ttal_pinjam_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tx_ttal_pinjam.KeyDown If e.KeyCode = Keys.Enter Then Dim ttal_pinjam As Integer ttal_pinjam = tx_ttal_pinjam.Text If ttal_pinjam <= 150000000 Then tx_bunga_pinjaman.Text = "0.8" End If If ttal_pinjam <= 50000000 Then
69
tx_bunga_pinjaman.Text = "0.85" End If If ttal_pinjam <= 20000000 Then tx_bunga_pinjaman.Text = "0.9" End If If ttal_pinjam < 20000000 Then tx_bunga_pinjaman.Text = "1" End If tx_total_pengembalian.Text = (Val(tx_ttal_pinjam.Text) * Val(tx_bunga_pinjaman.Text) / 100) + Val(tx_ttal_pinjam.Text) End If End Sub Private Sub tx_ttal_pinjam_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_ttal_pinjam.KeyPress If Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 13 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_ttal_pinjam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_ttal_pinjam.TextChanged End Sub Private Sub tx_total_pengembalian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_total_pengembalian.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_total_pengembalian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_total_pengembalian.TextChanged End Sub Private Sub tx_angsuran_pokok_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_angsuran_pokok.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_angsuran_pokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_angsuran_pokok.TextChanged End Sub
70
Private Sub tx_angsuran_bunga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_angsuran_bunga.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_angsuran_bunga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_angsuran_bunga.TextChanged End Sub Private Sub tx_jml_cicilan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_jml_cicilan.TextChanged End Sub Private Sub bt_cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cetak.Click Dim file_cr As New CR_Peminjaman Dim frm_laporan As New Form_laporan frm_laporan.crv_laporan.ReportSource = file_cr frm_laporan.ShowDialog() End Sub End Class
B) Form Pembayaran
Public Class Form_bayar Dim bayar As New Cl_bayar Private Sub bersih() tx_angsuran_ke.Clear() tx_bayar_bunga.Clear() tx_bayar_denda.Clear() tx_bayar_pokok.Clear() tx_cari.Clear() tx_id_pengguna.Clear() tx_ket_bayar.Clear() tx_lama_angsuran.Clear() tx_no_bayar.Clear() tx_no_pinjam.Clear() tx_total_bayar.Clear() dtp_tgl_bayar.Value = Now End Sub Private Sub Aktif() tx_angsuran_ke.Enabled = True tx_bayar_bunga.Enabled = True tx_bayar_denda.Enabled = True tx_bayar_pokok.Enabled = True tx_cari.Enabled = True tx_id_pengguna.Enabled = True tx_ket_bayar.Enabled = True tx_lama_angsuran.Enabled = True
71
tx_no_pinjam.Enabled = True tx_total_bayar.Enabled = True dtp_tgl_bayar.Enabled = True End Sub Private Sub Non_Aktif() tx_angsuran_ke.Enabled = False tx_bayar_bunga.Enabled = False tx_bayar_denda.Enabled = False tx_bayar_pokok.Enabled = False tx_id_pengguna.Enabled = False tx_ket_bayar.Enabled = False tx_lama_angsuran.Enabled = False tx_no_bayar.Enabled = False tx_no_pinjam.Enabled = False tx_total_bayar.Enabled = False dtp_tgl_bayar.Enabled = False bt_edit.Enabled = False bt_hapus.Enabled = False bt_simpan.Enabled = False End Sub Private Sub Form_bayar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Non_Aktif() bersih() bayar.loadData_bayar(dgv_bayar) tx_id_pengguna.Text = Form_menu_utama.StatusStrip1.Items(1).Text End Sub Private Sub bt_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) bayar.cariData_bayar(dgv_bayar, tx_cari) End Sub Private Sub bt_refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) bayar.loadData_bayar(dgv_bayar) End Sub Private Sub bt_tambah_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tambah.Click If bt_tambah.Text = "Tambah" Then Aktif() bersih() tx_no_bayar.Focus() bt_tambah.Text = "Batal" bt_simpan.Enabled = True 'auto_code Dim kode As String Dim no As Integer bayar.auto_code(dgv_bayar) If dgv_bayar.Rows.Count > 0 Then On Error Resume Next kode = dgv_bayar.CurrentRow.Cells(0).Value no = Val(Microsoft.VisualBasic.Right(kode, 3)) + 1 If no < 10 Then tx_no_bayar.Text = "BYR-00" & no ElseIf no < 100 Then tx_no_bayar.Text = "BYR-0" & no End If
72
Else tx_no_bayar.Text = "BYR-001" End If Else Non_Aktif() bersih() bt_tambah.Text = "Tambah" End If End Sub Private Sub bt_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_edit.Click If tx_no_pinjam.Text = "" Then MsgBox("Harap pilih data yang akan diUbah terlebih dahulu...!", vbOKOnly + vbInformation, "") Else If MsgBox("Anda yakin akan mengubah data ini: " & tx_no_bayar.Text, vbYesNo + vbQuestion, "") = vbYes Then With bayar .no_bayar = tx_no_bayar.Text .no_pinjam = tx_no_pinjam.Text .tanggal_bayar = dtp_tgl_bayar.Value .bayar_pokok = tx_bayar_pokok.Text .bayar_bunga = tx_bayar_denda.Text .bayar_denda = tx_bayar_denda.Text .total_bayar = tx_ket_bayar.Text .keterangan_bayar = tx_ket_bayar.Text .Lama_angsuran = tx_angsuran_ke.Text .Angsuran_ke = tx_angsuran_ke.Text .id_pengguna = tx_id_pengguna.Text If .update() Then MsgBox("Data berhasil diUbah", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End With End If End If End Sub Private Sub bt_simpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_simpan.Click If tx_no_bayar.Text = "" Or tx_no_pinjam.Text = "" Then MsgBox("Masih ada data yang kosong! Harap isi...", vbOKOnly + vbInformation, "") Else With bayar .no_bayar = tx_no_bayar.Text .no_pinjam = tx_no_pinjam.Text .tanggal_bayar = dtp_tgl_bayar.Text .bayar_pokok = tx_bayar_pokok.Text .bayar_bunga = tx_bayar_bunga.Text .bayar_denda = tx_bayar_denda.Text .total_bayar = tx_total_bayar.Text .keterangan_bayar = tx_ket_bayar.Text .Lama_angsuran = tx_lama_angsuran.Text .Angsuran_ke = tx_angsuran_ke.Text .id_pengguna = tx_id_pengguna.Text
73
If .save() Then Dim jurnal As New Cl_jurnal_umum jurnal.kode_jurnal = "" jurnal.tanggal_jurnal = dtp_tgl_bayar.Value jurnal.no_akun = "111" jurnal.debet = tx_total_bayar.Text jurnal.kredit = "0" jurnal.keterangan = "Diterima dari Payar Pinjaman No: " & tx_no_bayar.Text jurnal.save() jurnal.kode_jurnal = "" jurnal.tanggal_jurnal = dtp_tgl_bayar.Value jurnal.no_akun = "112" jurnal.debet = "0" jurnal.kredit = tx_total_bayar.Text jurnal.keterangan = "Diterima dari Bayar Pinjaman No: " & tx_no_bayar.Text jurnal.save() MsgBox("Data berhasil diSimpan", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End With End If End Sub Private Sub bt_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_hapus.Click If tx_no_bayar.Text = "" Then MsgBox("Harap pilih data yang akan diHapus terlebih dahulu...!", vbOKOnly + vbInformation, "") Else If MsgBox("Anda yakin akan menghapus data User dengan Kode User: " & tx_no_bayar.Text, vbYesNo + vbQuestion, "") = vbYes Then bayar.no_bayar = tx_no_bayar.Text If bayar.delete() Then MsgBox("Data berhasil diHapus", vbOKOnly + vbInformation, "") bt_refresh.PerformClick() bt_tambah.PerformClick() End If End If End If End Sub Private Sub dgv_bayar_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_bayar.CellContentClick On Error Resume Next If dgv_bayar.Rows.Count > 0 Then tx_no_bayar.Text = dgv_bayar.CurrentRow.Cells(0).Value.ToString tx_no_pinjam.Text = dgv_bayar.CurrentRow.Cells(1).Value.ToString dtp_tgl_bayar.Value = dgv_bayar.CurrentRow.Cells(2).Value.ToString tx_bayar_pokok.Text = dgv_bayar.CurrentRow.Cells(3).Value.ToString
74
tx_bayar_bunga.Text = dgv_bayar.CurrentRow.Cells(4).Value.ToString tx_bayar_denda.Text = dgv_bayar.CurrentRow.Cells(5).Value.ToString tx_total_bayar.Text = dgv_bayar.CurrentRow.Cells(6).Value.ToString tx_ket_bayar.Text = dgv_bayar.CurrentRow.Cells(7).Value.ToString tx_lama_angsuran.Text = dgv_bayar.CurrentRow.Cells(8).Value.ToString tx_angsuran_ke.Text = dgv_bayar.CurrentRow.Cells(9).Value.ToString tx_id_pengguna.Text = dgv_bayar.CurrentRow.Cells(10).Value.ToString bt_hapus.Enabled = True bt_edit.Enabled = True Aktif() tx_no_bayar.Enabled = False bt_tambah.Text = "Batal" End If End Sub Private Sub bt_refresh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_refresh.Click bayar.loadData_bayar(dgv_bayar) End Sub Private Sub bt_cari_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cari.Click bayar.cariData_bayar(dgv_bayar, tx_cari) End Sub Private Sub bt_tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tutup.Click Me.Dispose() End Sub Private Sub tx_lama_angsuran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_lama_angsuran.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_lama_angsuran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_lama_angsuran.TextChanged End Sub Private Sub tx_bayar_bunga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_bayar_bunga.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If
75
End Sub Private Sub tx_bayar_bunga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_bayar_bunga.TextChanged End Sub Private Sub bt_cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cetak.Click Dim file_cr As New CR_bayar Dim frm_laporan As New Form_laporan frm_laporan.crv_laporan.ReportSource = file_cr frm_laporan.ShowDialog() End Sub Private Sub bt_cariAnggota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cariAnggota.Click Form_cari_pinjam.Show() Form_cari_pinjam.lblbantu.Text = "Form_Bayar" End Sub Private Sub tx_bayar_pokok_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_bayar_pokok.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_bayar_pokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_bayar_pokok.TextChanged End Sub Private Sub tx_bayar_denda_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_bayar_denda.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_bayar_denda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_bayar_denda.TextChanged tx_total_bayar.Text = Val(tx_bayar_pokok.Text) + Val(tx_bayar_bunga.Text) + Val(tx_bayar_denda.Text) End Sub Private Sub tx_total_bayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_total_bayar.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub
76
Private Sub tx_total_bayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_total_bayar.TextChanged End Sub Private Sub tx_angsuran_ke_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tx_angsuran_ke.KeyPress If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Private Sub tx_angsuran_ke_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tx_angsuran_ke.TextChanged End Sub
3.5.2. Blackbox Testing
Blackbox Testing yang digunakan dalam tugas akhir ini adalah sebagai
berikut:
1. Testing Form Login
Tabel III.16 BlackBox Testing Form Login
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Username dan kata
sandi tidak diisi
kemudian klik Login
Kode
Pengguna
(kosong) kata
sandi
(Kosong)
Menampilkan
pesan “Username
dan kata sandi
wajib diisi!
”
Sesuai
Harapan
Valid
2 Mengetik Username
dan kata sandi
dengan Benar
kemudian klik Login
User Name
DIREKTUR
(Benar) kata
sandi: (Benar)
Masuk ke Menu
Utama
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
2. Testing Form Pengguna
Tabel III.17 BlackBox Testing Form Pengguna
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Pengguna
tidak diisi
kemudian klik
simpan
Data Pengguna
(Kosong)
Menampilkan pesan
“Masih ada data
yang kosong! Harap
isi...”
Sesuai
Harapan
Valid
77
2 Data Pengguna
diisi kemudian
klik simpan
Data pengguna
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil
disimpan”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Mengubah data
yang akan
diubah
Klik salah satu
data yang ingin
diubah
Menampilkan pesan
“Anda yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
5 Mencari data
yang akan dicari
Ketikan data
yang akan dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
3. Testing Form Anggota
Tabel III.18 BlackBox Testing Form Anggota
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Anggota
tidak diisi
kemudian klik
simpan
Data Anggota
(Kosong)
Menampilkan pesan
“Masih ada data
yang kosong! Harap
isi...”
Sesuai
Harapan
Valid
2 Data Pengguna
diisi kemudian
klik simpan
Data pengguna
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil
disimpan”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Mengubah data
yang akan
diubah
Klik salah satu
data yang ingin
diubah
Menampilkan pesan
“Anda yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
5 Mencari data
yang akan dicari
Ketikan data
yang akan dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
6 Mencetak data
yang akan
dicetak
Klik tombol
cetak
Menampilkan data
yang akan di cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
78
4. Testing Form Kelompok
Tabel III.19 BlackBox Testing Form Kelompok
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Kelompok
tidak diisi
kemudian klik
simpan
Jika data
Kelompok
(kosong)
Menampilkan pesan
“Masih ada data
yang kosong! Harap
isi...”
Sesuai
Harapan
Valid
2 Data Kelompok
diisi kemudian
klik + dan
simpan
Data Kelompok
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil di
Simpan ”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Menghapus data
detail yang
akan dihapus
Klik salah satu
data detail yang
ingin dihapus,
kemudian klik -
Data Berhasil
Dihapus
Sesuai
Harapan
Valid
5 Mengubah data
yang akan
diubah
Klik salah satu
data yang ingin
diubah
Menampilkan pesan
“Anda yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
6 Mencari data
yang akan dicari
Ketikan data
yang akan dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
7 Mencetak data
yang akan
dicetak
Klik tombol
cetak
Menampilkan data
yang akan di cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
5. Testing Form Usaha Berjalan
Tabel III.20 BlackBox Testing Form Usaha Berjalan
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Usaha
tidak diisi
kemudian klik
simpan
Jika data usaha
(kosong)
Menampilkan pesan
“Masih ada data
yang kosong! Harap
isi...”
Sesuai
Harapan
Valid
2 Data Usaha diisi
kemudian klik
simpan
Data Usaha
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil di
Simpan ”
Sesuai
Harapan
Valid
79
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Mengubah data
yang akan
diubah
Klik salah satu
data yang ingin
diubah
Menampilkan pesan
“Anda yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
5 Mencari data
yang akan dicari
Ketikan data
yang akan dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
6 Mencetak data
yang akan
dicetak
Klik tombol
cetak
Menampilkan data
yang akan di cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
6. Testing Form Akun
Tabel III.21 BlackBox Testing Form Akun
Sumber : Hasil Penelitian (2018)
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Akun tidak
diisi kemudian
klik simpan
Data Akun
(Kosong)
Menampilkan pesan
“Masih ada data yang
kosong! Harap isi...”
Sesuai
Harapan
Valid
2 Data Akun diisi
kemudian klik
simpan
Data Akun
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil di
Simpan ”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang
ingin dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes “Data
Berhasil dihapus”
Sesuai
Harapan
Valid
4 Mengubah data
yang akan
diubah
Klik salah satu
data yang
ingin diubah
Menampilkan pesan
“Anda yakin akan
mengubah data ini...”
, jika Yes “Data
Berhasil di ubah”
Sesuai
Harapan
Valid
5 Mencari data
yang akan dicari
Ketikan data
yang akan
dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
6 Mencetak data
yang akan
dicetak
Klik tombol
cetak
Menampilkan data
yang akan di cetak
Sesuai
Harapan
Valid
80
7. Testing Form Peminjaman
Tabel III.22 BlackBox Testing Form Peminjaman
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Peminjaman
tidak diisi
kemudian klik
simpan
Jika data
Peminjaman
(kosong)
Menampilkan pesan
“Masih ada data
yang kosong! Harap
isi...”
Sesuai
Harapan
Valid
2 Data Kelompok
diisi kemudian
klik + dan
simpan
Data
peminjaman
sudah diisi
dengan benar
Menampilkan pesan
“Data berhasil di
Simpan ”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang
ingin dihapus
Menampilkan pesan
“Anda yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Menghapus data
detail yang akan
dihapus
Klik salah satu
data detail
yang ingin
dihapus,
kemudian klik
-
Data Berhasil
Dihapus
Sesuai
Harapan
Valid
5 Mengubah data
yang akan diubah
Klik salah satu
data yang
ingin diubah
Menampilkan pesan
“Anda yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
6 Mencari data
yang akan dicari
Ketikan data
yang akan
dicari
Menampilkan data
yang dicari
Sesuai
Harapan
Valid
7 Mencetak data
yang akan dicetak
Klik tombol
cetak
Menampilkan data
yang akan di cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
8. Testing Form Bayar
Tabel III.23 BlackBox Testing Form Bayar
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Bayar tidak
diisi kemudian
klik simpan
Data Bayar
(Kosong)
Menampilkan
pesan “Masih ada
data yang kosong!
Harap isi...”
Sesuai
Harapan
Valid
2 Data Bayar diisi
kemudian klik
simpan
Data Bayar
sudah diisi
dengan benar
Menampilkan
pesan “Data
berhasil di
Simpan ”
Sesuai
Harapan
Valid
81
3 Menghapus data
yang akan dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan
pesan “Anda
yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Mengubah data
yang akan diubah
Klik salah satu
data yang ingin
diubah
Menampilkan
pesan “Anda
yakin akan
mengubah data
ini...” , jika Yes
“Data Berhasil di
ubah”
Sesuai
Harapan
Valid
5 Mencari data yang
akan dicari
Ketikan data
yang akan
dicari
Menampilkan
data yang dicari
Sesuai
Harapan
Valid
6 Mencetak data
yang akan dicetak
Klik tombol
cetak
Menampilkan
data yang akan di
cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
9. Testing Form Pengeluaran
Tabel III.24 BlackBox Testing Form Pengeluaran
No Scenario
Pengujian
Test Case Hasil Yang
Diharapkan
Hasil
Pengujian
Keterangan
1 Data Pengeluaran
tidak diisi
kemudian klik
simpan
Jika data
Pengeluaran
(kosong)
Menampilkan
pesan “Masih ada
data yang kosong!
Harap isi...”
Sesuai
Harapan
Valid
2 Data Pengeluaran
diisi kemudian
klik + dan
simpan
Data
Pengeluaran
sudah diisi
dengan benar
Menampilkan
pesan “Data
berhasil di
Simpan ”
Sesuai
Harapan
Valid
3 Menghapus data
yang akan
dihapus
Klik salah satu
data yang ingin
dihapus
Menampilkan
pesan “Anda
yakin akan
menghapus data
ini...”, Jika Yes
“Data Berhasil
dihapus”
Sesuai
Harapan
Valid
4 Menghapus data
detail yang akan
dihapus
Klik salah satu
data detail yang
ingin dihapus,
kemudian klik -
Data Berhasil
Dihapus
Sesuai
Harapan
Valid
5 Mengubah data
yang akan diubah
Klik salah satu
data yang ingin
diubah
Menampilkan
pesan “Anda
yakin akan
mengubah data
Sesuai
Harapan
Valid
82
ini...” , jika Yes
“Data Berhasil di
ubah”
6 Mencari data
yang akan dicari
Ketikan data
yang akan dicari
Menampilkan
data yang dicari
Sesuai
Harapan
Valid
7 Mencetak data
yang akan dicetak
Klik tombol
cetak
Menampilkan
data yang akan di
cetak
Sesuai
Harapan
Valid
Sumber : Hasil Penelitian (2018)
3.5.3. Spesifikasi Hardware dan Software
Hardware (perangkat keras) merupakan komponen-komponen atau
peralatan yang membentuk suatu sistem yang disebut dengan komputer, serta
peralatan perndukung lainnya sehingga komputer dapat berjalan dengan baik. Salah
satu pendukung aplikasi terpenting lainnya disebut dengan Software (Perangkat
Lunak). Software (Peragkat Lunak) digunakan untuk mengeksekusikan aplikasi
yang dibuat, serta sebagai sistem operasi yang akan mendukung proses
menjalankan aplikasi.
Tabel III.25
Spesifikasi Hardware dan Software
Kebutuhan Keterangan
Sistem Windows 8 Pro 64-bit
Processor Intel(R) Celeron(R) CPU N3050 @ 1.60GHz 1.60GHz
RAM 2,00 GB
Harddisk 500 GB
Monitor 14” LED
Keyboard 86 Key
Printer Epson L 405
Mouse Votre
Software Sistem Aplikasi : Microsoft Visual Basic.NET dan
Crystal Report
Database : SQLyog Enterprise
Program Pendukung : ODBC 3.51 driver
Sumber : Hasil Penelitian (2018)
83
Demikianlah spesifikasi Hardware dan Software yang dibutuhkan untuk
menjalankan aplikasi Piutang Usaha pada Badan Usaha Milik Desa (BUMDES)
Bersama Cahaya Mandiri Kecamatan Siantan.