1
KOMPUTERISASI BUKTI KAS KELUAR PADA BANK SYARIAH MANDIRI SIGLI
SKRIPSI
Diajukan untuk melengkapi tugas dan Memenuhi syarat – syarat guna memperoleh gelar sarjana komputer STMIK U’budiyah Indonesia
Oleh : Liza Juliandini 07111089
PROGRAM STUDI S1 TEKNIK INFORMATIKA SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER STMIK U’BUDIYAH INDONESIA BANDA ACEH 2011
i
KOMPUTERISASI BUKTI KAS KELUAR PADA BANK SYARIAH MANDIRI SIGLI
Skripsi
Oleh :
LIZA JULIANDINI 07111089
Disetujui, Dosen Pembimbing,
(Noval, ST)
Diketahui,
Ketua Program Studi,
Ketua STMIK U’budiyah,
(Agustiar, ST, MT)
(Drs. Alfian Ibrahim Ms)
i
ii
ABSTRAK
Bank Syariah Mandiri Sigli merupakan salah Bank yang ada di kota Sigli Kabupaten Pidie. Dalam kegiatan administrasi harian tentu saja Bank ini mempunyai hambatan – hambatan. Oleh karena itu dalam memecahkan hambatan-hambatan yang dihadapi Bank Syariah Mandiri perlu meningkatkan sistem yang sudah ada, supaya dapat menghasilkan data yang tepat dan akurat serta dapat dipergunakan sebagai sumber informasi dalam proses mengambil suatu kebijaksanaan. Penulis melihat sistem yang sudah ada masih banyak kekurangan-kekurangan hingga mengakibatkan terjadinya permasalahanpermasalahan dalam pendataan dan pembuatan berbagai laporan lainnya. Dalam penulisan laporan ini penulis banyak memperoleh data-data dan informasiinformasi melalui studi pustaka yang berhubungan langsung dengan teoritis, dan melakukan studi lapangan, dengan mewawancara langsung tentang bentuk sistem yang diharapkan. Untuk memperbaiki Administrasi Bank Syariah Mandiri Sigli tersebut dimasa yang akan datang. Adapun tujuan penulisan adalah untuk meningkatkan sistim kerja pada bagian pendataan, yang didalamnya ada beberapa buah bagian dan sub bagian, khususnya untuk masalah pendataan Kas/ Bukti kas keluar. Dari pembahasan yang penulis dapatkan dalam proses manajemen administrasi data pada Bank Syariah Mandiri Sigli perlu ada peningkatan sistem, dengan sistem manajemen Database data bantuan yang penulis rancang dapat dipakai untuk mengatasi masalah-masalah yang dihadapi selama ini dengan harapan dapat membantu memperbaiki manajemen pada Bank Syariah Mandiri Sigli. Berdasarkan pembahasan tersebut maka penulis berkesimpulan bahwa dalam pengembangan program pendataan informasi tentang pendataan kas/ bukti kas keluar, penulis menyarankan kepada staf yang menggunakan program yang sudah siap pakai dapat menjalankan sistem yang penulis rancang. Kata Kunci: Bukti kas keluar, Bank Syariah Mandiri
ii
iii
ABSTRACT
Bank Syariah Mandiri Bank Sigli is one that is in the city of Sigli Pidie district. In the daily administrative activities of the Bank of course has obstacles - obstacles. Therefore, in breaking the barriers faced by the Bank Syariah Mandiri need to improve existing systems, in order to produce precise and accurate data and can be used as a source of information in the process of taking a policy. The author sees the existing system are still many deficiencies to result in problems in data collection and manufacture of various other reports. In writing this report the author of many to obtain data and information through a literature study that relate directly to theoretical, and conduct field studies, by direct interview of the expected form of the system. To improve the Bank Syariah Mandiri Sigli Administration is in the future. The purpose of writing is to enhance the work on the data collection system, in which there are several sections and sub sections, particularly for data collection issue Cash / cash-out Proof. From the discussion that the authors gained in the process of data administration management at Bank Syariah Mandiri Sigli there needs to be improvements to the system, database management system with the help of a writer design data can be used to overcome the problems encountered so far in hopes of helping to improve management at Bank Syariah Mandiri Sigli. Based on these discussions the authors concluded that in developing the data collection program information on the collection of cash / cash-out proof, the authors suggest to staff that use ready-made programs that can run the system that the author designed. Keywords: Proof of cash-out, Bank Syariah Mandiri
iii
iv
KATA PENGANTAR
Puji dan syukur penulis panjatkan kehadirat Allah SWT, atas Rahmat dan KaruniaNya sehingga penulisan tugas akhir ini dapat terlaksana dengan baik, tak lupa pula salawat dan salam penulis sampaikan kepada junjungan kita yaitu Nabi Besar Muhammad SAW beserta keluarga dan sahabatnya. Adapun judul skripsi yang penulis ambil adalah “KOMPUTERISASI BUKTI KAS KELUAR PADA BANK SYARIAH MANDIRI SIGLI”. Tujuan penulisan ini adalah untuk memenuhi sebagian syarat-syarat dalam menyelesaikan studi bidang Teknik Informatika pada STMIK U’budiyah Indonesia, dalam penulisan laporan ini penulis banyak mendapat bantuan serta dorongan dari berbagai pihak, baik bantuan moril maupun bantuan material. Untuk itu dengan kerendahan hati, penulis ingin menyampaikan terima kasih yang tak terhingga kepada: 1. Bapak Dedi Zefrizal, ST, Ketua Yayasan U’budiyah Indonesia. 2. Bapak Drs. Alfian Ibrahim Ms, Ketua STMIK U’budiyah Indonesia 3. Bapak Agustiar, ST, MT, ketua jurusan Teknik Informatika STMIK U’budiyah Indonesia. 4. Bapak Noval, ST dosen pembimbing penulis. 5. Seluruh Staf Dosen dan Pengajar yang ada di dalam lingkungan STMIK U’Budiyah Indonesia yang telah memberikan bekal ilmu kepada penulis.
iv
v
6. Secara khusus penulis sampaikan pula ucapan terima kasih atas bantuan dan dukungan moril maupun materiil dari kedua orang tua serta saudarasaudaraku tercinta dan teman-temanku sekalian, saya mengucapkan terima kasih atas dukungan kalian semuanya yang telah banyak membantu penyelesaian penulisan ini Penulis menyadari bahwa dalam penulisan laporan ini masih jauh dari kesempurnaan dan banyak terdapat kekurangan-kekurangan dan kejanggalan di sebabkan pengetahuan yang terbatas. Saran-saran bagi penyempurnaan penulis sangat diharapkan dari semua pihak. Akhirnya penulis harapkan semoga penulisan laporan yang sederhana ini bermanfaat bagi penulis khususnya dan bagi pembaca pada umumnya.
Banda Aceh, 16 Mei 2011 Penulis,
LIZA JULIANDINI NIM. 07111089
v
vi
DAFTAR ISI
halaman LEMBARAN PENGESAHAN .....................................................................
i
ABSTRAK .....................................................................................................
ii
KATA PENGANTAR ...................................................................................
iv
DAFTAR ISI ..................................................................................................
vi
DAFTAR TABEL .........................................................................................
viii
DAFTAR GAMBAR......................................................................................
ix
BAB I
: PENDAHULUAN 1.1
Latar Belakang Masalah ....................................................
1.2
Tujuan Penulisan ............................................................ 2
1.3
Indentifikasi Masalah ........................................................
1.4
Batasan Masalah ............................................................ 4
1.5
Sistematika Penulisan .......................................................
1
3
5
BAB II : LANDASAN TEORITIS 2.1
Pengertian Komputer ........................................................
7
2.2
Pengertian Sistem ..............................................................
7
2.3
Pengertian Informasi .........................................................
8
2.4
Pengertian Pendataan ........................................................
9
2.5
Sistem Informasi Pendataan ..............................................
10
2.6
Pengololaan Perlengkapan ................................................
11
2.7
Diagram Arus Data ............................................................
11
2.8
Analisis dan Desain Sistem ...............................................
14
2.9
Sistem Pendataan Database ...............................................
14
2.10
Relasional Database ..........................................................
16
2.11
Pemrograman
dan
Bahasa
Pemrograman
yang digunakan .................................................................
vi
17
vii
BAB III
: ANALISA DAN PEMBAHASAN SISTEM 3.1
Waktu dan Tempat Penelitian.............................................
19
3.2
Sejarah Singkat BSM Cabang Sigli ...................................
19
3.3
Susunan Organisasi ...........................................................
19
3.4
Tujuan berdirinya BSM Cabang Sigli ................................
20
3.5 Kedudukan, tugas dan Fungsi .................................................
20
BAB IV : PEMBAHASAN 4.1
Analisa Masalah ................................................................
22
4.2
Rancangan Proses ..............................................................
28
4.3
Rancangan Output .............................................................
31
BAB V : P E N U T U P 5.1
Kesimpulan .......................................................................
35
5.2
Saran ..................................................................................
36
DAFTAR PUSTAKA DAFTAR RIWAYAT HIDUP LAMPIRAN-LAMPIRAN
vii
viii
DAFTAR TABEL
halaman Tabel.4.1 Tabel Jenis .......................................................................................
22
Tabel.4.2 Tabel Karyawan ...............................................................................
22
Tabel.4.3 Tabel Kas Keluar .............................................................................
23
viii
ix
DAFTAR GAMBAR
halaman Gambar 4.1. Entity Relation Diagram ............................................................
23
Gambar 4.2. DFD Level 0 Sistem Bukti Kas Keluar pada Bank Syariah Mandiri Sigli ........................................................................................
24
Gambar 4.3. Flowchart Data Jenis .................................................................
25
Gambar 4.4. Flowchart Data Karyawan ..........................................................
26
Gambar 4.5. Flowchart Data Kas Keluar ........................................................
27
Gambar 4.6. Form Login .................................................................................
28
Gambar 4.7. Form Menu .................................................................................
29
Gambar 4.8. Form Input Data Jenis ................................................................
29
Gambar 4.9. Form Input Data Karyawan ........................................................
30
Gambar 4.10. Form Input Data kas keluar ......................................................
31
Gambar 4.11. Data Jenis .................................................................................
31
Gambar 4.12. Data karyawan ..........................................................................
32
Gambar 4.13. Data kas keluar keseluruhan .....................................................
32
Gambar 4.14. Data kas keluar per tahun .........................................................
33
Gambar 4.15. Data kas keluar per bulan .........................................................
33
Gambar 4.16. Rekap data kas keluar ..............................................................
33
Gambar 4.17. Data kas keluar per hari ............................................................
34
ix
1
BAB I PENDAHULUAN
1.6
Latar Belakang Masalah Sehubungan dengan perkembangan era globalisasi pada saat sekarang
ini yang semakin pesat dan juga kebutuhan akan informasi semakin cepat dan informasi yang disampaikan harus akurat dan tepat. Hal ini sesuai dengan kenyataan yaitu hampir seluruh objek permasalahan dapat diinformasikan sesuai kebutuhan informasi di lapangan. Seiring dengan perkembangan ilmu pengetahuan dan teknologi khususnya di bidang teknologi informasi, penggunaan komputer sebagai alat pengolah data khususnya pendataan kas keluar / bukti kas keluar sudah menggunakan komputer, tetapi masih sebatas pada penggunaan aplikasi Microsoft Word maupun Microsoft Excel. Penggunaan aplikasi tersebut masih dirasa sangat terbatas dan manual karena tidak memiliki database. Dari latar belakang tersebut, maka penulis mencoba untuk merancang suatu sistem aplikasi untuk membantu pendataan kas keluar pada Bank Syariah Mandiri Cabang Sigli yang hasilnya dapat penulis sajikan dalam laporan ini dengan judul “Komputerisasi Bukti Kas Keluar pada Bank Syariah Mandiri Cabang Sigli”.
2
Dengan dibuatnya program Aplikasi yang baru ini, maka sangat membantu sistem lama dalam melakukan pengolahan data, karena sistem lama yang digunakan masih terhitung sangat manual dan membutuhkan waktu yang lama untuk mencapai ke suatu informasi yang akurat.
1.7
Tujuan Penulisan Penulisan tugas akhir (laporan) ini dapat penulis jelaskan sebagai
berikut : a. Meningkatkan kegiatan administrasi perbankan yang tertib, teratur dan berdayaguna serta berhasil guna. b. Menentukan arah kebijaksanaan tentang makanisme pengumpulan dan pengolahan data kas keluar menengah dan kecil yang standar dan seragam. c. Terbentuknya database kas keluar dan data lainnya yang berkaitan dengan kas keluar di Bank Syariah Mandiri Cabang Sigli. d. Meningkatkan mutu data dan informasi/laporan-laporan yang handal, tepat, cepat waktu dan akurat dalam mendukung proses pengambilan keputusan.
3
1.8
Indentifikasi Masalah Indenfikasi masalah yang penulis temukan pada saat penelitian
sebagian besar merupakan sistem yang sedang berjalan masih menggunakan cara manual dalam pendataan kas keluar yaitu sebagai berikut : a) Catatan data kas keluar pada Bank Syariah Mandiri Cabang Sigli dicatat pada sebuah Buku tulis dan diketik dengan Aplikasi Microsoft Word dan Excel yang bila ditinjau dari segi keamanan sangat mudah di utak atik oleh orang lain. b) Pencetakan data keadaan pedagaang pada Bank Syariah Mandiri Cabang Sigli masih secara manual, sehingga karyawan-karyawati tata usaha yang ingin
merobah
melakukannya,
mengupdate yang
akhirnya
data-datanya menjadikan
tidak
langsung
kerancuan
data
tepat saat
memberikan suatu informasi.
1.9
Batasan Masalah Dalam penulisan laporan dan pemrograman ini, pembahasannya hanya
menitik beratkan pada perancangan sistem database terpadu. Adapun input dan output yang akan dihasilkan dalam penulisan dan perancangan sistem komputerisasi kas keluar pada BANK SYARIAH MANDIRI CABANG SIGLI adalah sebagai berikut : a. Input.
4
Input (data masukan) yang dihasilkan dalam desain sistem komputerisasi pendapatan ini adalah : 1) Isian data jenis keperluan 2) Isian data karyawan/pengambil 3) Pengolahan data Bukti Kas Keluar b. Output (cetak) yang dihasilkan dalam desain sistem komputerisasi ini adalah : a. Data Jenis Keperluan b. Data Karyawan c. Data Keseluruhan d. Data Per tahun e. Data Per bulan f. Data per hari g. Rekapitulasi data BKK
1.10
Sistematika Penulisan Tugas akhir atau karya ilmiah ini penulis sajikan dalam lima bab, yang
masing-masing bab penulis jelaskan seperti di bawah ini : Bab I merupakan bab pendahuluan, membahas latar belakang masalah yang melantar belakangi pemilihan judul Laporan, tujuan penulisan, batasan
5
masalah dan ruang lingkup, sumber bahan penulisan dan sistematika penulisan. Bab II adalah tinjauan pustaka, menyajikan teori-teori yang berkaitan dengan perancangan sistem meliputi pengertian sistem, pengertian informasi, pengertian data, pengertian sistem komputerisasi pendataan, diagram arus data, analisis dan desain, database manajemen sistem dan pemrograman. Bab III merupakan bab yang menyajikan Sejarah singkat Bank Perindustrian Perdagangan dan penanaman modal dalam wilayah kabupaten Pidie dan struktur organisasinya. Bab IV merupakan bab yang menyajikan inti pembahasan Karya Ilmiah ini. Pembahasannya meliputi analisa masalah, rancangan database, rancangan menu, rancangan input, rancangan proses, rancangan output, rancangan kontrol, rancangan waktu dan rancangan tenaga kerja. Disamping itu penulis juga menyajikan rancangan sistem database terpadu. Bab V merupakan bab penutup yang menyajikan kesimpulan dan saran-saran.
6
BAB II LANDASAN TEORITIS
2.12
Pengertian Komputer Informasi merupakan faktor yang sangat penting bagi lembaga
pemerintahan dalam mengambil keputusan, baik saat ini maupun di masa yang akan datang. Informasi di hasilkan melalui suatu sistem informasi pengolahan data tertentu yang berlaku pada suatu organisasi. Berikut ini diberikan pengertian masing-masing elemen sistem informasi pendataan.
2.13
Pengertian Sistem Istilah sistem banyak digunakan untuk menunjukkan pengertian metode
atau cara dan suatu himpunan unsur atau himpunan yang saling berhubungan satu sama lain menjadi satu kesatuan yang utuh. Banyak definisi sistem yang dikemukakankan oleh para ahli diantaranya Jogianto (2005 : 3) berpendapat bahwa “Suatu sistem adalah suatu jaringan kerja dari prosedur-prosedur yang saling berhubungan kemudian dikembangkan sesuai dengan suatu skema yang terintegrasi untuk melaksanakan suatu kegiatan utama dalam bisnis”. Devis William S, (2003 : 67) menyebutkan bahwa “sistem adalah suatu susunan teratur, gagasan atau konsepsi yang saling tergantung. Sebagai contoh sebuah sistem tiologi adalah sebuah susunan gagasan mengenai Tuhan, manusia dan sebagainya. Sedangkan sebuah sistem fisik dapat didefinisikan melaui contoh-
6
7
contoh seperti sistem peredaran darah, sistem transportasi, sistem persenjataan dan lain sebagainya”. Dari definisi-definisi diatas yang dikemukakan oleh beberapa orang ahli, penulis dapat menyimpulkan bahwa sistem adalah suatu susunan yang teratur dari kegiatan-kegiatan yang saling bergantung dan prosedur-prosedur yang saling berhubungan, yang melaksanakan dan mempermudah kegiatan-kegiatan utama organisasi tersebut.
2.14
Pengertian Informasi Informasi merupakan output yang dihasilkan dari suatu kegiatan
pengolahan data. Informasi sangat berguna bagi manajemen atau siapa saja dalam menentukan kebijakan lebih lanjut. Jogianto (2005 : 8) mendefinisikan bahwa “Informasi adalah data yang diolah menjadi berguna dan lebih berarti bagi yang menerimanya”. Ahli lain memberi definisi yang hampir serupa bahwa Informasi adalah data yang telah diolah menjadi sebuah bentuk yang berarti bagi para penerimanya dan bermanfaat bagi pengambilan keputusan saat ini maupun dimasa yang akan datang (Devis, 2003 : 2). Sebelum penulis mengambil suatu kesimpulan mengenai informasi dari kedua pendapat diatas, terlebih dahuli penulis menjelaskan pengertian data menurut pendapat Tafri D. Mahyuzir (2002 : 7) .
8
Data adalah fakta dan angka yang tidak sedang digunakan pada proses keputusan, yang biasanya berbentuk catatan histories yang dicatat dan diarsipkan tanpa maksud untuk segera diambil kembali untuk pengambilan keputusan. Jadi informasi adalah data yang telah diolah atau diproses yang merupakan suatu bentuk dan mempunyai nilai nyata sehingga merupakan dasar pengambilan keputusan. Maka sehubungan dengan hal tersebut, jelaslah bahwa informasi yang diberikan harus simple, tepat waktu dan akurat. Untuk menunjang aktifitas dalam sebuah organisasi atau instansi pemerintah diperlukan suatu sistem informasi yang baik dan terorganisir agar dapat meningkatkan perkembangan instansi tersebut.
2.15
Pengertian Pendataan Pendataan merupakan suatu proses pencapaian tujuan yang telah
ditetapkan terlebih dahulu melalui usaha dan tenaga orang-orang dalam satu kelompok yang terorganisir. Pendataan juga sering diartikan sebagai suatu seni dalam merencanakan, mengorganisir, menggerakkan dan mengendalikan untuk mencapai suatu tujuan. Tafri D. Mahyuzir (2002 : 8) mendefinisikan bahwa pendataan adalah “proses perencanaan, pengorganisasian, pimpinan dan pengendalian upaya anggota organisasi dan penggunaan semua sumber daya organisasi untuk mencapai tujuan yang telah ditetapkan”.
9
Dari definisi tersebut diatas pendataan dapat diartikan “Bagaimana mencapai suatu tujuan yang telah ditetapkan terlebih dahulu melalui usaha dan tenaga orang-orang dalam suatu kelompok yang terorganisir”.
2.16
Sistem Informasi Pendataan Sistem informasi pendataan adalah Jaringan prosedur pengolahan data
yang diperkembangkan dalam suatu organisasi dan disatukan pabila dipandang perlu, dengan maksud memberikan data kepada konsumen setiap waktu diperlukan, baik data yang bersifat intern maupun yang bersifat ekstern untuk dasar pengambilan keputusan dalam rangka mencapai suatu tujuan. Dan menurut seorang ahli bahwa Sistem Informasi Pendataan adalah “Suatu rangkaian tata cara, pola kerja dan tata tertib yang menangani sebagai suatu kebulatan yang lengkap keteranga-keterangan sejak pengumpulan melalui penggunaan dan penyimpangannya sampai penyingkirannya untuk membantu tercapainya tujuan dari suatu organisasi, Tafri D. Mahyuzir (2002 : 112).
2.17
Pengelolaan Perlengkapan Pengololaan
data
adalah
rangkaian
kegiatan
dari
administrasi
perlengkapan yang diliputi fungsi-fungsi perencanaan penentuan kebutuhan, pengisian (input), penyimpanan dan penyaluran, pemeliharaan, penghapusan, pengendalian atau inventarisasi. Keenam fungsi tersebut merupakan suatu siklus pendataan yang saling kait mengkait dan tidak dapat dipisah-pisahkan serta saling mendukung satu dan lainnya untuk terciptanya tertib administrasi perkantoran.
10
Dalam hal ini sehubungan dengan pengertian pengololaan data perkantoran, Pranowo (2002 : 51) menyatakan “pengololaan data adalah sistem yang menerima, menghubungkan, menyimpan, mengolah dan memberikan informasi (output) yang dibutuhkan untuk operasional suatu organisasi”. Jadi dari pendapat tersebut dapat diambil suatu pengertian bahwa pengololaan data adalah suatu cara atau proses yang menerima, menyimpan dan mengeluarkan data tersebut.
2.18
Diagram Arus Data Diagram Arus Data (DAD) atau data flow diagram (DFD) merupakan
“Diagram yang digunakan untuk menggambarkan suatu sistem yang telah ada atau
sistem
baru
yang
akan
dikembangkan
secara
logika
tanpa
mempertimbangkan lingkungan fisik dimana data tersebut mengalir atau dimana data tersebut disimpan (Jogianto, 1995)”. Sedangkan menurut Harianto (2004 : 11), adalah “Merupakan ungkapan berbentuk gambar mengenai urutan proses/operasi yang harus dilakukan dalam suatu pekerjaan tersebut”. Dari kedua pengertian tersebut dapat di ambil kesimpulan bahwa merupakan tata cara dan langkah-langkah dalam perancangan sebuah sistem yang menggunakan simbol-simbol yang saling berhubungan antara satu dengan lainnya, sehingga memudahkan kita menjejaki jalannya program. Simbul-simbul yang dipakai dalam menggambarkan diagram alir telah dipublikasikan oleh ANSI
11
(Amerika National Standart Institute). Beberapa simbol yang digunakan dalam menggambarkan daftar arus data : a. Exsternal entity (kesatuan luar) atau boundary (batas sistem) Setiap sistem pasti mempunyai batas sitem yang memisahkan suatu sistem dengan lingkungan luarnya, sistem akan menerima input dan menghasilkan output kepada lingkungan luarnya. b. Data flow (arus data) Arus data di DAD diberi simbul suatu panah. Arus data ini mengalir diantara proses (Process), simpanan data dan kesatuan luar (external entity). Arus data ini menunjukkan arus dari data yang dapat berupa masukan untuk sistem atau hasil dari proses sistem. Arus data sebaiknya diberi nama yang jelas dan mempunyai arti. Nama dari arus data dituliskan dari samping garis panahnya. c. Proses (Process) Suatu proses adalah kegiatan atau kerja yang dilakukan oleh orang, mesin atau komputer dari hasil suatu arus data yang masuk kedalam proses untuk dihasilkan arus data yang akan keluar dari proses. Suatu proses dapat ditunjukkan dengan symbol lingkaran atau simbul empat persegi panjang tegak dengan sudutnya tumpul. Setiap proses harus diberi penjelasan yang lengkap seperti : 1) Indentifikasi proses berupa suatu angka yang menunjukkan nomor acuan dari proses dan ditulis pada bagian atas disimbol proses. 2) Nama proses menunjukkan apa yang dikerjaka oleh proses tersebut.
12
3) Pemrosesan menunjukkan siapa atau dimana suatu proses dilakukan. d. Data store (simpanan data) Simpanan data merupakan simpanan dari data yang dapat berupa sebagai beriku : 1) Suatu file atau database di sistem komputer 2) Suatu arsip atau catatan manual 3) Suatu kotak tempat data dimeja seseorang 4) Suatu tabel acuan manual 5) Suatu agenda atau buku
2.19
Analisis dan Desain Sistem Analisis sistem dapat didefinisikan sebagai “Penguraian dari suatu
sistem informasi yang utuh kedalam bagian-bagian komponennya dengan maksud
untuk
mengindefikasikan
dan
mengevaluasi
permasalahan-
permasalahan, kesempatan-kesempatan, hambatan-hambatan yang terjadi dan kebutuhan-kebutuhan yang diharapkan sehingga dapat diusulkan perbaikanperbaikan” (Jogianto, 2005 : 89). Sedangkan desain sistem, Jogianto (2005 : 196) mendefinisikan sebagai “Pengambaran, perencanaan dan pembuatan sketsa atau pengaturan dari beberapa elemen yang terpisah kedalam suatu kesatuan yang utuh dan berfungsi”. Jadi sebelum mendesain sebuah sistem terlebih dahulu kita harus melihat atau menganalisis permasalahan-permasalahan dan hambatan-hambatan yang terjadi pada sistem yang sudah ada.
13
2.20
Sistem Pendataan Database Suatu sistem pendataan database terdiri dari suatu koleksi file-file data
yang saling berelasi antara satu file dengan file yang lain dan suatu set program untuk mengakses data tersebut. Jadi sistem pendataan database terdiri dari database dan set program pengolola yang dapat melaksanakan tugas-tugas manajemen terhadap data seperti menambah data, mengoreksi data, menghapus maupun menampilkan informasi dari data-data yang ada baik kelayar display atau kemedia cetak, setelah data-data tersebut diolah menurut ketentuan-ketentuan yang berlaku dalam suatu organisasi. Suatu sistem pendataan database dibentuk oleh elemen-elemen database seperti berikut : a. Atribute Setiap entity mempunyai attribute atau sebutan waktu mewakili suatu entity. Suatu objek memiliki attribute yang menyatakan cirri dari objek tersebut. Seorang karyawan misalnya, memiliki nama karyawan, nomor induk, golongan dan lainlain dimana elemen-elemen yang sering disebut data field merupakan cirri-ciri untuk seorang karyawan. b. Entity Entity merupakan orang, tempat, kejadian atau konsep yang informasinya direka.
14
c. Record Record sering juga disebut tuple, yang merupakan elemen-elemen yang saling berkaitan mengimformasikan suatu entity secara lengkap. Suatu record mewakili suatu data atau informasi tentang suatu objek.
d. File Kumpulan dari record-record sejenis yang mempunyai panjang elemen yang sama, attribute yang sama, namun berbeda data valuenya adalah suatu file data. e. Database Suatu database atau kolesi data terbentuk dari kumpulan file-file yang mempunyai kaitan antara satu file dengan file lainnya sehingga membentuk suatu bangunan data. f. Data value Data value adalah data actual atau informasi yang disimpan pada setiap elemen atau attribute.
2.21
Relasional Database Relasional database adalah hubungan satu file data dengan file data yang
lain, dimana file-file tersebut dapat saling berhubungan melalui suatu atribut yang dijadikan kunci (Kristanto, 2004 : 22). Ada beberapa macam relasional database yang digunakan dalam kegiatan manajenmen database yaitu :
15
a. Relasional banyak ke banyak, adalah hubungan yang terjadi antara suatu file dengan file yang lain, dihubungkan oleh beberapa field kunci dari file yang satu kebeberapa field kunci file yang lain. b. Relasional satu kesatu, adalah hubungan yang terjadi antara satu file dengan file yang lain, dihubungkan oleh suatu field kunci dari file yang satu kesatu field kunci yang lain. c. Relasional satu kebanyak, adalah hubungan yang terjadi antara satu file dengan file yang lain, dihubungkan oleh satu field kunci dari file yang satu kebeberapa field kunci yang lain.
2.22
Pemrograman dan Bahasa Pemrograman yang digunakan “Pemrograman merupakan urutan instruksi yang logis, ditulis dalam suatu
bahasa pemrograman tertentu yang dimengerti oleh computer, ditulis dengan mengikuti aturan-aturan penulisan program (syntax) yang benar. Bahasa pemrograman yang penulis gunakan dalam proses desain sistem informasi manajemen perlengkapan ini adalah Visual Basic 6.0, dan dalam pembuatan laporan-laporan juga didukung oleh suatu sistem lain yaitu Crystal Report dengan mempertimbangkan sebagai berikut : 1. Visual Basic 6.0 merupakan salah satu dari sejumlah bahasa pemrograman database yang sangat popular karena dapat menghasilkan file yang berjenis EXE. 2. Dan dengan menggunakan Crystal Report laporan-laporan yang dihasilkan dapat dengan mudah untuk didesain dalam berbagai bentuk.
16
3. Kemampuan untuk menempatkan fungsi dan prosedur dalam sebuah file program sama. 4. Dapat membentuk file indek yang lebih cepat dan kompatibel. 5. Keistimewaan adalah bentuk desain yang sangat indah. 6. Dengan Visual basic 6.0 hasil yang dicetak dapat dipreview terlebih dahulu, sehingga dapat menghematkan kertas. 7. Program sumber sangat terlindungi.
17
BAB III ANALISA DAN PEMBAHASAN SISTEM
3.6 Waktu dan Tempat Penelitian Penelitian ini dilaksanakan di Bank Syariah Mandiri cabang Sigli yang terletak di Jalan Banda Aceh – Medan tepatnya di Jalan Tijue. Waktu penelitian ini dilakukan selama 4 bulan yaitu mulai bulan Maret sampai dengan bulan Juni 2011.
3.7 Sejarah Singkat Bank Syariah Mandiri Cabang Sigli Bank Syariah Mandiri Cabang Sigli adalah sebuah Bank yang beralamat di jalan Banda Aceh Medan Kota Sigli Kabupaten Pidie. Bank Syariah Mandiri Cabang Sigli merupakan perpanjangan tangan dari Bank Syariah Mandiri wilayah Aceh dalam mengatur sebagian tugas bank di bidang operasional perbankan yang mempunyai wilayah kerja di kabupaten Pidie.
3.2 Tujuan berdirinya Bank Syariah Mandiri Cabang Sigli Adapun tujuan didirikanya Bank Syariah Mandiri Cabang Sigli adalah untuk meningkatkan pelayanan kepada masyarakat dalam aspek perbankan. Selain itu, juga bertujuan untuk meningkatkan pelayanan akses kepada masyarakat dan peningkatan kemudahan nasabah di Kabupaten pidie yang memerlukan transaksi dan keperluan lainnya karena mengingat luas wilayah Aceh yang cukup luas, maka berdasarkan permasalahan itulah bank ini didirikan. 17
18
3.3 Kedudukan, tugas dan Fungsi Bank Syariah Mandiri Cabang Sigli adalah suatu bank yang menangani masalah transaksi perbankan di kabupaten Pidie dan bertanggung jawab langsung kepada Bank Syariah Mandiri wilayah Aceh.
19
BAB IV PEMBAHASAN
4.1
Rancangan Sistem Sistem pendataan kas keluar menegah dan kecil ini adalah sebuah sistem
yang dapat dioperasikan melalui windows, sistem ini sangat fleksibel, kecil, cepat. Kegunaan umum program ini adalah untuk memudahkan pengelola data pada Bank Syariah Mandiri Cabang Sigli Kabupaten Pidie dalam membuat laporan dan sekaligus untuk mengatahui informasi dan keadaan data kas keluar dalam lingkungan Bank Syariah Mandiri Cabang Sigli. Karena program ini dapat mengolah data, jadi saat pembuatan laporan tidak perlu membuka buku data dan catatan lain yang tersimpan secara manual, tapi dengan adanya program komputerisasi seperti ini maka sewaktu tata usaha membuat /mengolah informasi cukup memanggil kode key saja. Sistem aplikasi perangkat lunak yang dirancang ini menggunakan sebuah database dengan 3 (tiga) buah tabel yang saling berelasi antara satu dengan lainnya dengan menggunakan 1 (satu) field key dari masing-masing tabel. Untuk lebih jelas penggunaan file-file database dalam sistem ini dapat dijelaskan sebagai berikut :
19
20
1. Table Jenis
Tabel.4.1 (Tabel Jenis) No
Field Name
Type
Size
Keterangan
1
Kode_Jenis
Text
2
Kode Jenis
2
Nama_Jenis
Text
35
Nama Jenis
2. Table Karyawan Tabel.4.2 (Tabel Karyawan) No
Field Name
Type
Size
Keterangan
1
Kode_Kar
Text
9
Kode Karyawan
2
Nama_Kar
Text
35
Nama Karyawan
3
Jabatan
Text
30
Jabatan
3. Table Kas Keluar Tabel.4.3 (Tabel Kas Keluar) No
Field Name
Type
Size
Keterangan
1
Kode
Text
6
Kode Transaksi
2
Tanggal
Text
2
Tanggal
3
Bulan
Text
2
Bulan
4
Tahun
Text
4
Tahun
5
Kode_Jenis
Text
2
Kode Jenis
21
6
Rincian
Text
50
Rincian
7
Jumlah
Currency
Auto
Jumlah
8
Terbilang
Text
250
Terbilang
9
Kode_Kar
Text
9
Kode Karyawan
10
Ket
Text
35
Keterangan
Untuk lebih jelas bagaimana rancangan dari program Pendataan kas keluar in dapat dilihat pada bagan struktur sistem dibawah ini: a. Entity Relation Diagram
Jenis Kode_Jenis Nama_Jenis
Kas Keluar Kode_Jenis
Karyawan Kode_Kar Nama_Kar Jabatan
Kode_Kar
Gambar 4.1. Entity Relation Diagram
Kode Tanggal Bulan Tahun Kode_Jenis Rincian Jumlah Terbilang Kode_Kar Ket
22
b. Data Flow Diagram
ADMIN
Data Jenis Data Karyawan Data Kas keluar Data Transaksi
Laporan data Jenis Pengeluaran Laporan data Karyawan Laporan data kas keluar per tanggal Laporan data kas keluar per bulan Laporan data kas keluar per tahun
SISTEM
Gambar 4.2 DFD Level 0 Sistem Bukti Kas Keluar pada Bank Syariah Mandiri Sigli
23
c. Flowchart data Jenis START T Isi data Y
STOP
Input Kode_jenis data
Proses
Y Simpan
data
Ada
T
T
Input Data jenis
Y TAMPIL
BATAL
T
HAPUS
KOREKSI
ya
Simpan
Y delete
Gambar 4.3. Flowchart Data Jenis
Y update
T
24
d. Flowchart data Karyawan START T Isi data Y
STOP
Input Kode_kar data
Proses
Y Simpan
data
Ada
T
T
Input Data Karyawan
Y TAMPIL
BATAL
T
HAPUS
KOREKSI
ya
Simpan
Y delete
Gambar 4.4. Flowchart Data Karyawan
Y update
T
25
e. Flowchart pendataan kas keluar START T Isi data Y
STOP
Input Kode data
Proses
Y Simpan
data
Ada
T
T
Input Data kas keluar
Y TAMPIL
BATAL
T
HAPUS
KOREKSI
ya
Simpan
Y delete
Gambar 4.5. Flowchart Data Kas Keluar
Y update
T
26
4.2
Rancangan Proses Program Pendataan kas keluar ini merupakan program pendataan biasa,
rumus-rumus yang digunakan tidak terlalu rumit. Untuk mengakses program ini terlebih dahulu harus masuk dengan mengisi user dan password, seperti gambar beikut:
Gambar 4.6. Form Login A. Rancangan Menu Untuk melanjutkan program bukti kas keluar ini, harus melalui program menu utama yang fungsinya untuk menjalankan program-program lain sebagai sub program dengan format tampilannya adalah seperti dibawah ini:
27
Gambar 4.7. Form Menu B. Rancangan Masukan 1. Form Input Jenis Form ini berfungsi sebagai tempat mengentri data jenis pengeluaran, untuk lebih jelas dapat dilihat pada gambar dibawah ini:
Gambar 4.8. Form Input Data Jenis
28
2. Form Input Karyawam Form ini berfungsi sebagai tempat mengentri data karyawan, untuk lebih jelas dapat dilihat pada gambar dibawah ini:
Gambar 4.9. Form Input Data Karyawan 3. Form Input Data kas keluar Form ini berfungsi sebagai tempat mengentri data bukti kas keluar, untuk lebih jelas dapat dilihat pada gambar dibawah ini:
Gambar 4.10. Form Input Data kas keluar
29
4.3
Rancangan Output Rancangan keluaran terdiri dari beberapa laporan yang bisa dicetak setiap
saat, terdiri dari : 1. Data jenis Laporan ini untuk mencetak data jenis pengeluaran, untuk lebih jelas dapat dilihat seperti dibawah ini:
Gambar 4.11. Data Jenis 2. Data Karyawan Laporan ini untuk mencetak data karyawan, untuk lebih jelas dapat dilihat seperti dibawah ini:
Gambar 4.12. Data karyawan 3. Data kas keluar keseluruhan Laporan ini untuk mencetak data kas keluar keseluruhan, untuk lebih jelas dapat dilihat seperti dibawah ini:
30
Gambar 4.13. Data kas keluar keseluruhan
4. Data kas keluar per tahun Laporan ini untuk mencetak data kas keluar per tahun, untuk lebih jelas dapat dilihat seperti dibawah ini:
Gambar 4.14. Data kas keluar per tahun 5. Data kas keluar per bulan Laporan ini untuk mencetak data kas keluar per bulan, untuk lebih jelas dapat dilihat seperti dibawah ini:
31
Gambar 4.15. Data kas keluar per bulan 6. Data kas keluar per hari Laporan ini untuk mencetak data kas keluar per hari, untuk lebih jelas dapat dilihat seperti dibawah ini:
Gambar 4.16. Data kas keluar per hari 7. Rekap data kas keluar Laporan ini untuk mencetak rekap data kas keluar, untuk lebih jelas dapat dilihat seperti dibawah ini:
Gambar 4.17. Rekap data kas keluar
32
BAB V PE N UTU P
Bab ini merupakan bab terakhir dari penyajian tugas akhir ini. Pada bagian ini penulis mengambil beberapa kesimpulan dan memberikan beberapa saran yang kiranya dapat bermanfaat dalam pengembangan program pendataan kas keluar pada Bank Syariah Mandiri Cabang Sigli dimasa yang akan datang.
5.3
Kesimpulan Dari pembahasan yang telah penulis sajikan dalam Bab empat tugas akhir
(Laporan) ini, penulis dapat mengambil beberapa kesimpulan sebagai berikut : a) Pendataan kas keluar secara komputerisasi sangat bermanfaat terutama untuk mengetahui secara cepat dan tepat tentang keadaan kas keluar dalam bank ini dan data-data lain yang mengenai data kas ini. b) Dengan pendataan ini akan lebih mudah bagi yang membutuhkan dalam memperoleh informasi yang akurat kemana saja dan kapan saja. c) Dengan Visual Basic juga mempunyai kemampuan untuk menempatkan fungsi dan prosedur yang sangat mudah dimengerti dan tidak membelit-belit. d) Dengan Visual Basic hasil yang dicetak dapat diproses dahulu sehingga dapat menghematkan kertas. e) Visual Basic sangat mendukung atau kompatibel dengan program lain yang berupa Crystal Report dengan versi-versinya jadi programnya tidak harus menggunakan report dari Visual Basic sendiri sehingga program ini merupakan gabungan antara Visual Basic 6.0 dengan Crystal Report 9.2.
32
33
5.4
Saran Menurut penulis sistem ini merupakan peningkatan dari sistem yang sudah
ada. Dengan demikian dalam sistem ini kemungkinan mendapat kendala baik dari sistem maupun pada user yang belum terlatih. Faktor Kesalahan pemakai (Human Error) akan dilimpahkan kepada kekurangan sistem. Dan ini menjadi traumatis bagi pemakai program ini. Dengan demikian dalam hal ini penulis menyarankan beberapa hal antara lain : a) Agar supaya memberikan pelatihan-pelatihan kepada operator-operator untuk menguasai ilmu komputer khususnya penggunaan sistem program. b) Mensosialiksasi kepada pejabat/staf-staf yang ada pada Bank Syariah Mandiri Cabang Sigli mengenai penggunaan sistem program ini. c) Memberikan rasa tanggung jawab kepada semua pemakai tentang keamanan data, karena pada saat semua data sudah terimput nilai data lebih mahal dari nilai Hardware. d) Hardware perlu diperhatikan sesuai dengan pengembangan agar tidak terlalu jauh ketinggalan. e) Perlu perawatan secara periodik baik Hardware maupun sistem. f) Penggunaan Unit Power Sistem (UPS) untuk membackup arus listrik apabila terjadi pemadaman secara mendadak.
34
DAFTAR PUSTAKA
Budi Soetejo, (2007), Pengenalan Komputer & Aplikasi Komputer, Penerbit Mutiara, Jakarta. Gordon B Davis, Sistem Informasi Manajemen Bagian I, PT. Pusaka Binama Pressindo, 1984. Devis William S. (2003), Sistem Informasi Manajemen, Edisi I Pengantar, Penerbit Jakarta Pusat, PT. Pustaka Binaan Presindo. Harianto Kristanto. Ir, (2004), Konsep dan Perancangan Database, edisi kedua Penerbit Andi Offset, Yogyakarta. Jagiyanto H. M, (2005), Analisa dan Desain, Cetakan Keempat, Penerbit Andi Offset, Yogyakarta. Kadasman, (2003), Konsep Perancangan Database Algoritma dan Akuntansi, edisi Yogyakarta. Raymond Mc Leod Jr; “Sistem Informasi Manajemen“, Jilid I, Edisi 7, Penerbit Pearson Education Asia Pte.Ltd dan PT Prenhallindo, Jakarta, 2001.
35
BIODATA PENULIS
I. BIODATA PRIBADI N a m a
: Liza Juliandini
Tempat / Tgl. Lahir
: Sanggeue, 8 Juli 1988
Alamat
: Desa Keutapang sanggeue kec. Pidie Kabupaten Pidie
II. DAFTAR PENDIDIKAN.
SD Negeri 1 Peukan Pidie, selesai tahun 2000.
Sekolah Lanjutan Tingkat Pertama YPPU sigli , selesai tahun 2003
Sekolah Menengah Atas Negeri 1 Sigli, selesai tahun 2006
III. ORANG TUA.
AYAH Nama
: Zulkifli Abdullah
Pekerjaan
: Almarhum
Alamat
: -
IBU Nama
: Rusmiar M. Adan
Pekerjaan
: Wiraswasta
Alamat
: Desa Keutapang sanggeue kec. Pidie Kabupaten
Demikianlah biodata ini penulis perbuat dengan sebenarnya, agar dapat kiranya dipergunakan seperlunya.
LISTING PROGRAM BAHASA PROGRAM MENU UTAMA (FUTAMA.FRM) Private Sub F1_Click() FUtama.Hide FTransaksi.Show End Sub Private Sub F3_Click() FUtama.Hide FKaryawan.Show End Sub Private Sub F4_Click() FUtama.Hide FJenis.Show End Sub Private Sub O1_Click() FCKARYAWAN.Show End Sub Private Sub O2_Click() FCJENIS.Show End Sub Private Sub O3_Click() FCDKESELURUHAN.Show End Sub Private Sub O4_Click() FUtama.Hide FICPTAHUN.Show End Sub Private Sub O5_Click() FUtama.Hide FICPBULAN.Show End Sub Private Sub O6_Click() FUtama.Hide FICPHARI.Show End Sub Private Sub O7_Click() FCREKAP.Show End Sub Private Sub T1_Click()
End End Sub
BAHASA PROGRAM DATA JENIS (FJENIS.FRM) Dim dbDATA As Database Dim RsJenis As Recordset Dim Tambah As Boolean Dim ada As Byte Private Sub CmdBatal_Click() CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True CmdHapus.Enabled = False FraJenis.Enabled = False LoadJenis TxtKodeJn.Text = "" Bersih CmdTambah.Enabled = True CmdTambah.SetFocus End Sub Private Sub CmdHapus_Click() Dim ps As String ps = MsgBox("Yakin Data Dihapus", vbQuestion + vbOKCancel, "Data Barang") If ps = 1 Then RsJenis.Delete LoadJenis CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdBatal.Enabled = False FraJenis.Enabled = False TxtKodeJn.Text = "" Bersih CmdTambah.Enabled = True CmdTambah.SetFocus Else LoadJenis CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdBatal.Enabled = False FraJenis.Enabled = False TxtKodeJn.Text = ""
Bersih CmdTambah.Enabled = True CmdTambah.SetFocus End If End Sub Private Sub CmdKeluar_Click() dbDATA.Close Unload Me FUtama.Show End Sub Private Sub CmdKoreksi_Click() Tambah = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdRekam.Enabled = True CmdTambah.Enabled = False hidupkan TxtNamaJn.SetFocus End Sub Private Sub CmdRekam_Click() If Tambah = True Then RsJenis.AddNew RsJenis!KodeJn = TxtKodeJn.Text Else RsJenis.Edit End If RsJenis!NAMAJn = TxtNamaJn.Text RsJenis.Update CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True FraJenis.Enabled = False LoadJenis Bersih CmdTambah.Enabled = True CmdTambah.SetFocus TxtKodeJn.Text = "" End Sub Private Sub CmdTambah_Click() FraJenis.Enabled = True CmdBatal.Enabled = False CmdBatal.Enabled = False TxtKodeJn.SetFocus End Sub
Private Sub Form_Load() MSFlexGrid1.Refresh Set dbDATA = OpenDatabase(App.Path & "\DATA.Mdb") Set RsJenis = dbDATA.OpenRecordset("Jenis") LoadJenis CmdTambah.Enabled = True CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True FraJenis.Enabled = False TxtKodeJn.Text = "" End Sub Private Sub MSFlexGrid1_Click() MSFlexGrid1.Refresh Dim KodeJn As String * 2 FraJenis.Enabled = True CmdTambah.Enabled = False CmdRekam.Enabled = False CmdKoreksi.Enabled = True CmdBatal.Enabled = True CmdHapus.Enabled = True CmdKeluar.Enabled = True TxtKodeJn.Enabled = True TxtKodeJn.SetFocus If MSFlexGrid1.Row = 0 Or MSFlexGrid1.Row >= MSFlexGrid1.Rows Then Exit Sub End If currrow = MSFlexGrid1.Row KodeJn_Bag = MSFlexGrid1.TextMatrix(currrow, 0) 'KodeJn bagian TxtKodeJn.Text = KodeJn_Bag End Sub Sub Bersih() TxtNamaJn.Text = "" End Sub Sub Tampil() TxtNamaJn.Text = RsJenis!NAMAJn End Sub Sub matikan() TxtNamaJn.Enabled = False End Sub Sub hidupkan() TxtNamaJn.Enabled = True
End Sub Sub LoadJenis() On Error GoTo takada Dim i As Integer Dim Icon As Integer, Irow As Integer If RsJenis Is Nothing Then MsgBox " File Jenis Tidak ada """ MSFlexGrid1.Rows = 1 Exit Sub Else MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 2 MSFlexGrid1.ColWidth(0) = 800 MSFlexGrid1.TextMatrix(0, 0) = "KODE" MSFlexGrid1.ColWidth(1) = 5000 MSFlexGrid1.TextMatrix(0, 1) = "NAMA JENIS" Icol = 0 Irow = 0 RsJenis.MoveFirst Do While Not RsJenis.EOF Irow = Irow + 1 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(Irow, 0) = RsJenis!KodeJn MSFlexGrid1.TextMatrix(Irow, 1) = RsJenis!NAMAJn RsJenis.MoveNext If RsJenis.EOF = True Then Exit Do End If Loop End If takada: If Err = 3021 Then Exit Sub End If End Sub
Private Sub TxtKodeJn_Change() P = Len(TxtKodeJn.Text) If P < 2 Then Exit Sub End If RsJenis.Index = "jenis" RsJenis.Seek "=", Trim(TxtKodeJn.Text) If RsJenis.NoMatch Then ada = 0 hidupkan Bersih TxtNamaJn.SetFocus
Tambah = True CmdRekam.Enabled = True CmdBatal.Enabled = True CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdTambah.Enabled = False Exit Sub Else ada = 1 End If Tambah = False CmdKoreksi.Enabled = True CmdHapus.Enabled = True CmdBatal.Enabled = True CmdRekam.Enabled = False CmdTambah.Enabled = False matikan Tampil End Sub Private Sub TxtNamaJn_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtNamaJn.Text = "" Then TxtNamaJn = "-" End If CmdRekam.SetFocus End If End Sub
BAHASA PROGRAM DATA KARYAWAN (FKARYAWAN.FRM) Dim dbDATA As Database Dim RSKARYAWAN As Recordset Dim Tambah As Boolean Dim ada As Byte Private Sub CmdBatal_Click() CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True CmdHapus.Enabled = False FraKaryawan.Enabled = False LoadKARYAWAN TxtKodeKar.Text = "" Bersih CmdTambah.Enabled = True CmdTambah.SetFocus End Sub
Private Sub CmdHapus_Click() Dim ps As String ps = MsgBox("Yakin Data Dihapus", vbQuestion + vbOKCancel, "Data Barang") If ps = 1 Then RSKARYAWAN.Delete LoadKARYAWAN CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdBatal.Enabled = False FraKaryawan.Enabled = False TxtKodeKar.Text = "" Bersih CmdTambah.Enabled = True CmdTambah.SetFocus Else LoadKARYAWAN CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdBatal.Enabled = False FraKaryawan.Enabled = False TxtKodeKar.Text = "" Bersih CmdTambah.Enabled = True CmdTambah.SetFocus End If End Sub Private Sub CmdKeluar_Click() dbDATA.Close Unload Me FUtama.Show End Sub Private Sub CmdKoreksi_Click() Tambah = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdRekam.Enabled = True CmdTambah.Enabled = False hidupkan TxtNamaKar.SetFocus End Sub Private Sub CmdRekam_Click() If Tambah = True Then
RSKARYAWAN.AddNew RSKARYAWAN!KodeKar = TxtKodeKar.Text RSKARYAWAN!Jabatan = TxtJabatan.Text Else RSKARYAWAN.Edit End If RSKARYAWAN!NamaKar = TxtNamaKar.Text RSKARYAWAN!Jabatan = TxtJabatan.Text RSKARYAWAN.Update CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True FraKaryawan.Enabled = False LoadKARYAWAN Bersih CmdTambah.Enabled = True CmdTambah.SetFocus TxtKodeKar.Text = "" End Sub Private Sub CmdTambah_Click() MSFlexGrid1.Refresh FraKaryawan.Enabled = True CmdBatal.Enabled = False CmdBatal.Enabled = False TxtKodeKar.SetFocus End Sub Private Sub Form_Load() MSFlexGrid1.Refresh Set dbDATA = OpenDatabase(App.Path & "\DATA.Mdb") Set RSKARYAWAN = dbDATA.OpenRecordset("Karyawan") LoadKARYAWAN CmdTambah.Enabled = True CmdRekam.Enabled = False CmdBatal.Enabled = False CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdKeluar.Enabled = True FraKaryawan.Enabled = False TxtKodeKar.Text = "" End Sub Private Sub MSFlexGrid1_Click() MSFlexGrid1.Refresh Dim KodeKar As String * 9 FraKaryawan.Enabled = True CmdTambah.Enabled = False CmdRekam.Enabled = False
CmdKoreksi.Enabled = True CmdBatal.Enabled = True CmdHapus.Enabled = True CmdKeluar.Enabled = True TxtKodeKar.Enabled = True TxtKodeKar.SetFocus If MSFlexGrid1.Row = 0 Or MSFlexGrid1.Row >= MSFlexGrid1.Rows Then Exit Sub End If currrow = MSFlexGrid1.Row KodeKar_Bag = MSFlexGrid1.TextMatrix(currrow, 0) 'KodeKar bagian TxtKodeKar.Text = KodeKar_Bag End Sub Sub Bersih() TxtNamaKar.Text = "" TxtJabatan.Text = "" End Sub Sub Tampil() TxtNamaKar.Text = RSKARYAWAN!NamaKar TxtJabatan.Text = RSKARYAWAN!Jabatan End Sub Sub matikan() TxtNamaKar.Enabled = False TxtJabatan.Enabled = False End Sub Sub hidupkan() TxtNamaKar.Enabled = True TxtJabatan.Enabled = True End Sub Sub LoadKARYAWAN() On Error GoTo takada Dim i As Integer Dim Icon As Integer, Irow As Integer If RSKARYAWAN Is Nothing Then MsgBox " File Karyawan Tidak ada """ MSFlexGrid1.Rows = 1 Exit Sub Else MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 3 MSFlexGrid1.ColWidth(0) = 1400 MSFlexGrid1.TextMatrix(0, 0) = "KODE" MSFlexGrid1.ColWidth(1) = 3000 MSFlexGrid1.TextMatrix(0, 1) = "NAMA KARYAWAN"
MSFlexGrid1.ColWidth(2) = 1800 MSFlexGrid1.TextMatrix(0, 2) = "JABATAN" Icol = 0 Irow = 0 RSKARYAWAN.MoveFirst Do While Not RSKARYAWAN.EOF Irow = Irow + 1 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(Irow, 0) = RSKARYAWAN!KodeKar MSFlexGrid1.TextMatrix(Irow, 1) = RSKARYAWAN!NamaKar MSFlexGrid1.TextMatrix(Irow, 2) = RSKARYAWAN!Jabatan RSKARYAWAN.MoveNext If RSKARYAWAN.EOF = True Then Exit Do End If Loop End If takada: If Err = 3021 Then Exit Sub End If End Sub Private Sub TxtKodeKar_Change() P = Len(TxtKodeKar.Text) If P < 9 Then Exit Sub End If RSKARYAWAN.Index = "Karyawan" RSKARYAWAN.Seek "=", Trim(TxtKodeKar.Text) If RSKARYAWAN.NoMatch Then ada = 0 hidupkan Bersih TxtNamaKar.SetFocus Tambah = True CmdRekam.Enabled = True CmdBatal.Enabled = True CmdKoreksi.Enabled = False CmdHapus.Enabled = False CmdTambah.Enabled = False Exit Sub Else ada = 1 End If Tambah = False CmdKoreksi.Enabled = True CmdHapus.Enabled = True CmdBatal.Enabled = True CmdRekam.Enabled = False CmdTambah.Enabled = False
matikan Tampil 'langsung aktif ke Koreksi data 'CmdKoreksi.SetFocus End Sub Private Sub TxtNamaKar_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtNamaKar.Text = "" Then TxtNamaKar = "-" End If TxtJabatan.SetFocus End If End Sub Private Sub TxtJabatan_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtJabatan.Text = "" Then TxtJabatan = "-" End If CmdRekam.SetFocus End If End Sub
BAHASA PROGRAM DATA KAS KELUAR (FTRANSAKSI.FRM) Dim wrkjet As Workspace Dim dbDATA As Database Dim RsTransaksi As Recordset Dim RsJenis As Recordset Dim RSKARYAWAN As Recordset Dim Tambah As Boolean Dim ada As Byte Private Sub CmdBatal_Click() cmdRekam.Enabled = False cmdBatal.Enabled = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdKeluar.Enabled = True cmdHapus.Enabled = False FraTransaksi.Enabled = False LoadTransaksi Txtkode.Text = "" Bersih cmdTambah.Enabled = True cmdTambah.SetFocus End Sub
Private Sub CmdHapus_Click() Dim ps As String ps = MsgBox("Yakin Data Dihapus", vbQuestion + vbOKCancel, "Data Barang") If ps = 1 Then RsTransaksi.Delete LoadTransaksi cmdRekam.Enabled = False cmdBatal.Enabled = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdBatal.Enabled = False FraTransaksi.Enabled = False Txtkode.Text = "" Bersih cmdTambah.Enabled = True cmdTambah.SetFocus Else LoadTransaksi cmdRekam.Enabled = False cmdBatal.Enabled = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdBatal.Enabled = False FraTransaksi.Enabled = False Txtkode.Text = "" Bersih cmdTambah.Enabled = True cmdTambah.SetFocus End If End Sub Private Sub CmdKeluar_Click() Unload Me FUtama.Show End Sub Private Sub CmdKoreksi_Click() Tambah = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdRekam.Enabled = True cmdTambah.Enabled = False hidupkan TxtTgl.SetFocus MSFlexGrid2.Enabled = True MSFlexGrid3.Enabled = True End Sub Private Sub CmdRekam_Click() If Tambah = True Then
RsTransaksi.AddNew RsTransaksi!Kode = Txtkode.Text Else RsTransaksi.Edit End If RsTransaksi!Kode = Txtkode.Text RsTransaksi!Bln = TxtBln.Text RsTransaksi!tgl = TxtTgl.Text RsTransaksi!Thn = TxtThn.Text RsTransaksi!Rincian = TxtRincian.Text RsTransaksi!Jumlah = TxtJumlah.Text RsTransaksi!KodeJn = txtKodeJn.Text RsTransaksi!NAMAJn = txtNamaJn.Text RsTransaksi!KodeKar = TxtKodeKar.Text RsTransaksi!NamaKar = TxtNamaKar.Text RsTransaksi!Jabatan = TxtJabatan.Text RsTransaksi!Terbilang = TxtTerbilang.Text RsTransaksi!ket = TxtKet.Text RsTransaksi.Update cmdRekam.Enabled = False cmdBatal.Enabled = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdKeluar.Enabled = True FraTransaksi.Enabled = False LoadTransaksi Bersih cmdTambah.Enabled = True cmdTambah.SetFocus Txtkode.Text = "" End Sub Private Sub CmdTambah_Click() MSFlexGrid1.Refresh FraTransaksi.Enabled = True MSFlexGrid2.Enabled = True MSFlexGrid3.Enabled = True cmdBatal.Enabled = False cmdBatal.Enabled = False Txtkode.SetFocus End Sub Private Sub Form_Load() MSFlexGrid1.Refresh MSFlexGrid2.Enabled = False MSFlexGrid3.Enabled = False Set dbDATA = OpenDatabase(App.Path & "\DATA.Mdb") Set RsTransaksi = dbDATA.OpenRecordset("Transaksi") Set RsJenis = dbDATA.OpenRecordset("Jenis") Set RSKARYAWAN = dbDATA.OpenRecordset("KARYAWAN") LoadTransaksi
LoadJenis LoadKARYAWAN cmdTambah.Enabled = True cmdRekam.Enabled = False cmdBatal.Enabled = False cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdKeluar.Enabled = True FraTransaksi.Enabled = False Txtkode.Text = "" End Sub Private Sub MSFlexGrid1_Click() MSFlexGrid1.Refresh Dim Kode As String * 9 FraTransaksi.Enabled = True cmdTambah.Enabled = False cmdRekam.Enabled = False cmdKoreksi.Enabled = True cmdBatal.Enabled = True cmdHapus.Enabled = True cmdKeluar.Enabled = True Txtkode.Enabled = True Txtkode.SetFocus If MSFlexGrid1.Row = 0 Or MSFlexGrid1.Row >= MSFlexGrid1.Rows Then Exit Sub End If currrow = MSFlexGrid1.Row Kode = MSFlexGrid1.TextMatrix(currrow, 0) Txtkode.Text = Kode End Sub Sub Bersih() TxtBln.Text = "" TxtTgl.Text = "" TxtThn.Text = "" TxtRincian.Text = "" TxtJumlah.Text = "" txtKodeJn.Text = "" txtNamaJn.Text = "" TxtKodeKar.Text = "" TxtNamaKar.Text = "" TxtJabatan.Text = "" TxtKet.Text = "" TxtTerbilang.Text = "" End Sub Sub Tampil() TxtBln.Text = RsTransaksi!Bln
TxtTgl.Text = RsTransaksi!tgl TxtThn.Text = RsTransaksi!Thn TxtRincian.Text = RsTransaksi!Rincian TxtJumlah.Text = RsTransaksi!Jumlah txtKodeJn.Text = RsTransaksi!KodeJn txtNamaJn.Text = RsTransaksi!NAMAJn TxtKodeKar.Text = RsTransaksi!KodeKar TxtNamaKar.Text = RsTransaksi!NamaKar TxtJabatan.Text = RsTransaksi!Jabatan TxtKet.Text = RsTransaksi!ket TxtTerbilang.Text = RsTransaksi!Terbilang End Sub Sub matikan() TxtBln.Enabled = False TxtTgl.Enabled = False TxtThn.Enabled = False TxtRincian.Enabled = False TxtJumlah.Enabled = False txtKodeJn.Enabled = False txtNamaJn.Enabled = False TxtKodeKar.Enabled = False TxtNamaKar.Enabled = False TxtJabatan.Enabled = False TxtKet.Enabled = False TxtTerbilang.Enabled = False End Sub Sub hidupkan() TxtBln.Enabled = True TxtTgl.Enabled = True TxtThn.Enabled = True TxtRincian.Enabled = True TxtJumlah.Enabled = True txtKodeJn.Enabled = True txtNamaJn.Enabled = False TxtKodeKar.Enabled = True TxtNamaKar.Enabled = False TxtJabatan.Enabled = False TxtKet.Enabled = True TxtTerbilang.Enabled = False End Sub Sub LoadTransaksi() On Error GoTo takada Dim i As Integer Dim Icon As Integer, Irow As Integer If RsTransaksi Is Nothing Then MsgBox " File Transaksi Tidak ada """ MSFlexGrid1.Rows = 1 Exit Sub
Else MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 5 MSFlexGrid1.ColWidth(0) = 1000 MSFlexGrid1.TextMatrix(0, 0) = "KODE" MSFlexGrid1.ColWidth(1) = 500 MSFlexGrid1.TextMatrix(0, 1) = "TGL" MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.TextMatrix(0, 2) = "BLN" MSFlexGrid1.ColWidth(3) = 1000 MSFlexGrid1.TextMatrix(0, 3) = "THN" MSFlexGrid1.ColWidth(4) = 4500 MSFlexGrid1.TextMatrix(0, 4) = "JENIS" Icol = 0 Irow = 0 RsTransaksi.MoveFirst Do While Not RsTransaksi.EOF Irow = Irow + 1 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(Irow, 0) = RsTransaksi!Kode MSFlexGrid1.TextMatrix(Irow, 1) = RsTransaksi!tgl MSFlexGrid1.TextMatrix(Irow, 2) = RsTransaksi!Bln MSFlexGrid1.TextMatrix(Irow, 3) = RsTransaksi!Thn MSFlexGrid1.TextMatrix(Irow, 4) = RsTransaksi!NAMAJn RsTransaksi.MoveNext If RsTransaksi.EOF = True Then Exit Do End If Loop End If takada: If Err = 3021 Then Exit Sub End If End Sub Private Sub MSFlexGrid2_Click() Dim KodeJn As String * 2 'FraInventaris.Enabled = True cmdTambah.Enabled = False cmdRekam.Enabled = True cmdKoreksi.Enabled = False cmdBatal.Enabled = True cmdHapus.Enabled = True cmdKeluar.Enabled = True txtKodeJn.Enabled = True TxtRincian.SetFocus If MSFlexGrid2.Row = 0 Or MSFlexGrid2.Row >= MSFlexGrid2.Rows Then Exit Sub End If
currrow = MSFlexGrid2.Row KodeJn = MSFlexGrid2.TextMatrix(currrow, 0) txtKodeJn.Text = KodeJn End Sub Private Sub TxtKodeJn_Change() P = Len(txtKodeJn.Text) If P < 2 Then Exit Sub End If RsJenis.Index = "Jenis" RsJenis.Seek "=", Trim(txtKodeJn.Text) If RsJenis.NoMatch Then MsgBox "Maaf, Kode Jenis Belum Terdaftar" txtKodeJn.Text = "" txtNamaJn.Text = "" TxtRincian.SetFocus 'Else 'TxtPenggerak.SetFocus Exit Sub End If txtNamaJn.Text = RsJenis!NAMAJn 'txtPenggerak.SetFocus End Sub Sub LoadJenis() On Error GoTo takada3 Dim i As Integer Dim Icon As Integer, Irow As Integer 'Dim KodeCari As String If RsJenis Is Nothing Then MsgBox "file Data tidak ada" MSFlexGrid2.Rows = 1 Exit Sub Else MSFlexGrid2.Rows = 1 MSFlexGrid2.Cols = 2 MSFlexGrid2.ColWidth(0) = 900 MSFlexGrid2.TextMatrix(0, 0) = "KODE" MSFlexGrid2.ColWidth(1) = 3500 MSFlexGrid2.TextMatrix(0, 1) = "JENIS" Icol = 0 Irow = 0 RsJenis.MoveFirst Do While Not RsJenis.EOF Irow = Irow + 1 MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1 MSFlexGrid2.TextMatrix(Irow, 0) = RsJenis!KodeJn MSFlexGrid2.TextMatrix(Irow, 1) = RsJenis!NAMAJn RsJenis.MoveNext If RsJenis.EOF = True Then
Exit Do End If Loop End If takada3: If Err = 3021 Then Exit Sub End If End Sub Private Sub TxtKodeJn_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If txtKodeJn.Text = "" Then txtKodeJn = "-" End If TxtKodeKar.SetFocus End If End Sub Private Sub TXTKode_Change() P = Len(Txtkode.Text) If P < 6 Then MSFlexGrid2.Enabled = True MSFlexGrid3.Enabled = True Exit Sub End If RsTransaksi.Index = "Transaksi" RsTransaksi.Seek "=", Trim(Txtkode.Text) If RsTransaksi.NoMatch Then ada = 0 hidupkan Bersih TxtTgl.SetFocus Tambah = True cmdRekam.Enabled = True cmdBatal.Enabled = True cmdKoreksi.Enabled = False cmdHapus.Enabled = False cmdTambah.Enabled = False Exit Sub Else ada = 1 End If Tambah = False cmdKoreksi.Enabled = True cmdHapus.Enabled = True cmdBatal.Enabled = True cmdRekam.Enabled = False cmdTambah.Enabled = False matikan
Tampil End Sub Private Sub TxtBln_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtBln.Text = "" Then TxtBln = "-" End If TxtThn.SetFocus End If End Sub Private Sub TxtTgl_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtTgl.Text = "" Then TxtTgl = "-" End If TxtBln.SetFocus End If End Sub Private Sub Txtthn_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtThn.Text = "" Then TxtThn = "" End If txtKodeJn.SetFocus End If End Sub Private Sub TxtRincian_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtRincian.Text = "" Then TxtRincian = "-" End If TxtJumlah.SetFocus End If End Sub Private Sub TxtJumlah_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtJumlah.Text = "" Then TxtJumlah = "-" End If TxtKodeKar.SetFocus End If
End Sub Private Sub TxtKet_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtKet.Text = "" Then TxtKet = "-" End If cmdRekam.SetFocus End If End Sub Private Sub TxtKodeKar_Change() P = Len(TxtKodeKar.Text) If P < 9 Then Exit Sub End If RSKARYAWAN.Index = "KARYAWAN" RSKARYAWAN.Seek "=", Trim(TxtKodeKar.Text) If RSKARYAWAN.NoMatch Then MsgBox "Maaf, Kode Karyawan Belum Terdaftar" TxtKodeKar.Text = "" TxtNamaKar.Text = "" TxtKodeKar.SetFocus 'Else 'TxtPenggerak.SetFocus Exit Sub End If TxtNamaKar.Text = RSKARYAWAN!NamaKar TxtJabatan.Text = RSKARYAWAN!Jabatan 'txtPenggerak.SetFocus End Sub Sub LoadKARYAWAN() On Error GoTo takada4 Dim i As Integer Dim Icon As Integer, Irow As Integer 'Dim KodeCari As String If RSKARYAWAN Is Nothing Then MsgBox "file Data tidak ada" MSFlexGrid3.Rows = 1 Exit Sub Else MSFlexGrid3.Rows = 1 MSFlexGrid3.Cols = 2 MSFlexGrid3.ColWidth(0) = 900 MSFlexGrid3.TextMatrix(0, 0) = "KODE" MSFlexGrid3.ColWidth(1) = 3500 MSFlexGrid3.TextMatrix(0, 1) = "NAMA KARYAWAN" Icol = 0 Irow = 0
RSKARYAWAN.MoveFirst Do While Not RSKARYAWAN.EOF Irow = Irow + 1 MSFlexGrid3.Rows = MSFlexGrid3.Rows + 1 MSFlexGrid3.TextMatrix(Irow, 0) = RSKARYAWAN!KodeKar MSFlexGrid3.TextMatrix(Irow, 1) = RSKARYAWAN!NamaKar RSKARYAWAN.MoveNext If RSKARYAWAN.EOF = True Then Exit Do End If Loop End If takada4: If Err = 3021 Then Exit Sub End If End Sub Private Sub TxtKodeKar_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtKodeKar.Text = "" Then TxtKodeKar = "-" End If TxtKet.SetFocus End If End Sub Private Sub MSFlexGrid3_Click() Dim KodeKar As String * 9 'FraInventaris.Enabled = True cmdTambah.Enabled = False cmdRekam.Enabled = True cmdKoreksi.Enabled = False cmdBatal.Enabled = True cmdHapus.Enabled = True cmdKeluar.Enabled = True TxtKodeKar.Enabled = True TxtKet.SetFocus If MSFlexGrid3.Row = 0 Or MSFlexGrid3.Row >= MSFlexGrid3.Rows Then Exit Sub End If currrow = MSFlexGrid3.Row KodeKar = MSFlexGrid3.TextMatrix(currrow, 0) TxtKodeKar.Text = KodeKar End Sub
Public Function TerbilangBulat(strAngka As String, _ Optional MataUang As String = "RUPIAH") As String
Dim strJmlHuruf$, intPecahan As Integer Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$ Dim X As Integer, Y As Integer, z As Integer On Error GoTo Pesan Dim strValid As String, huruf As String * 1 Dim i As Integer strValid = "1234567890" For i% = 1 To Len(strAngka) huruf = Chr(Asc(Mid(strAngka, i%, 1))) If InStr(strValid, huruf) = 0 Then Set AngkaTerbilang = Nothing MsgBox "Harus karakter angka!", _ vbCritical, "Karakter Tidak Valid" 'TxtJumlah.Text = "" Exit Function End If Next i% If strAngka = "" Then Exit Function If Len(Trim(strAngka)) > 15 Then GoTo Pesan strJmlHuruf = LTrim(strAngka) 'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2)) If (intPecahan = 0) Then strPecahan = "" Else 'strPecahan = LTrim(Str(intPecahan)) + "/100 " strPecahan = "" End If X = 0 Y = 0 Urai = "" While (X < Len(strJmlHuruf)) X = X + 1 strTot = Mid(strJmlHuruf, X, 1) Y = Y + Val(strTot) z = Len(strJmlHuruf) - X + 1 Select Case Val(strTot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 = "SATU " ElseIf (z = 4) Then If (X = 1) Then Bil1 = "SE" Else Bil1 = "SATU " End If ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1 strTot = Mid(strJmlHuruf, X, 1) z = Len(strJmlHuruf) - X + 1 Bil2 = "" Select Case Val(strTot)
Case 0: Bil1 = "SEPULUH " Case 1: Bil1 = "SEBELAS " Case 2: Bil1 = "DUA BELAS " Case 3: Bil1 = "TIGA BELAS " Case 4: Bil1 = "EMPAT BELAS " Case 5: Bil1 = "LIMA BELAS " Case 6: Bil1 = "ENAM BELAS " Case 7: Bil1 = "TUJUH BELAS " Case 8: Bil1 = "DELAPAN BELAS " Case 9: Bil1 = "SEMBILAN BELAS " End Select Else Bil1 = "SE" End If Case 2: Bil1 = "DUA " Case 3: Bil1 = "TIGA " Case 4: Bil1 = "EMPAT " Case 5: Bil1 = "LIMA " Case 6: Bil1 = "ENAM " Case 7: Bil1 = "TUJUH " Case 8: Bil1 = "DELAPAN " Case 9: Bil1 = "SEMBILAN " Case Else Bil1 = "" End Select If (Val(strTot) > 0) Then If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then Bil2 = "PULUH " ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then Bil2 = "RATUS " Else Bil2 = "" End If Else Bil2 = "" End If If (Y > 0) Then Select Case z Case 4: Bil2 = Bil2 + "RIBU " Y = 0 Case 7: Bil2 = Bil2 + "JUTA " Y = 0 Case 10: Bil2 = Bil2 + "MILYAR " Y = 0 Case 13: Bil2 = Bil2 + "TRILYUN " Y = 0 End Select End If Urai = Urai + Bil1 + Bil2 Wend Urai = Urai + strPecahan
TerbilangBulat = (Urai & MataUang) Exit Function Pesan: TerbilangBulat = "(MAKSIMAL 15 DIGIT)" End Function Private Sub TxtJumlah_Change() TxtTerbilang.Text = TerbilangBulat(TxtJumlah.Text) End Sub
