PERANCANGAN APLIKASI INVENTORY ALAT TULIS KANTOR PT BANK PERKREDITAN RAKYAT DANA BINTAN SEJAHTERA TANJUNGPINANG
KERJA PRAKTEK
Disusun Oleh :
JUHENDRI ANTONI PRAYOGA 1210421
PROGRAM STUDI TEKNIK INFORMATIKA SEKOLAH TINGGI TEKNOLOGI INDONESIA TANJUNGPINANG TANJUNGPINANG 2013
PERANCANGAN APLIKASI INVENTORY ALAT TULIS KANTOR PT BANK PERKREDITAN RAKYAT DANA BINTAN SEJAHTERA TANJUNGPINANG
KERJA PRAKTEK diajukan untuk memenuhi salah satu syarat kelulusan memperoleh gelar sarjana program studi teknik informatika jenjang strata satu (S1) Disusun Oleh :
JUHENDRI ANTONI PRAYOGA 1210421
PROGRAM STUDI TEKNIK INFORMATIKA SEKOLAH TINGGI TEKNOLOGI INDONESIA TANJUNGPINANG TANJUNGPINANG 2013
KATA PENGANTAR Assalamu’alaikum Waramatullahi Wabarokatuh Alhamdullilah, puji syukur kita panjatkan kehadirat Allah SWT, atas segala rahmat dan karunia-Nya, sehingga saya dapat menyelesaikan laporan kerja praktek ini dengan judul “ APLIKASI INVENTORY ALAT TULIS KANTOR PT BPR DANA BINTAN SEJAHTERA TANJUNGPINANG “. Laporan kerja praktek ini bertujuan untuk memenuhi salah satu syarat dalam menempuh ujian Starata Satu (S1) pada jurusan Teknik Informatika Sekolah Tinggi Teknologi Indonesia Tanjungpinang. Dalam penyelesaian laporan kerja praktek ini penulis telah banyak mendapatkan bantuna dari berbagai pihak, untuk itu penulis ingin menyampaikan ucapan terima kasih yang sebesar-besarnya kepada : 1.
Bapak Ricak Agus Setiawan ST, M.SI, selaku dosen pembimbing dalam penyusunan laporan kerja praktek.
2.
Dosen-dosen Sekolah Tinggi Teknologi Indonesia yang ikut memberikan dukungan dan semangatnya bagi penulis.
3.
Ari Susanto, selaku Bagian Umum PT BPR Dana Bintan Sejahtera.
4.
Segenap manajemen PT BPR Dana Bintan Sejahtera yang telah memberikan izin bagi saya penulis untuk mengadakan penelitian.
5.
Terutama sekali ku persembahkan kerja praktek ini sebagai tanda baktiku kepada kedua orang tuaku tercinta Ayahanda Joni Wiwiharja dan ibunda
iii
Mulyani. Terimakasihku atas cinta, kasih sayang, nasehat dan doa yang tiada henti-hentinya sehingga penulis dapat menyelesaikan perkuliahan dan kerja praktek ini dengan baik. 6.
Semua pihak yang telah banyak membantu penulis selama penyusunan kerja praktek ini yang tidak dapat penulis sebutkan satu persatu. Semoga Allah SWT memberikan limpahan rahmat dan karunia-Nya kepada
semua pihak yang telah membantu dalam penyelesaian laporan kerja praktek ini, baik secara moril maupun materil. Penulis menyadari bahwa kerja praktek ini masih banyak kekurangan, baik dari segi materi, teknik, penyajian maupun tata bahasa. Oleh karna itu penulis mengharapkan kritik dan saran yang membangun agar laporan kerja praktek ini dapat lebih baik lagi. Akhir kata dengan kerendahan hati penulis mengucapkan terimakasih kepada berbagai pihak yang tidak dapat disebutkan satu persatu segala bantuannya. Semoga medapatkan balasan yang lebih dari Allah SWT, Amin. Wassalamu’alaikum Warahmatullahi Wabarokatuh
Tanjungpinang, 13 Juli 2013
Penulis
iv
ABSTRAK
Pemanfaatan sistem informasi dalam menangani pengolahan data yang dimiliki oleh PT BPR Dana Bintan Sejahtera Tanjungpinang sangatlah dibutuhkan untuk membantu mempermudah dan mempercepat pengolahan data yang dimiliki oleh PT BPR Dana Bintan Sejahtera Tanjungpinang, terutama pada proses pengolahan data yang masih dilakukan secara manual. Dengan adanya Perancangan Aplikasi Inventory ATK ini diharapkan dapat meningkatkan kinerja PT BPR Dana Bintan Sejahtera. Dalam perancangan perangkat lunak ini, digunakan metode pengembangan waterfalls yang meliputi tahap rekayasa sistem, analisis sistem, perancangan, pengkodean, pengujian dan pemeliharaan. Berdasarkan analisis masalah yang telah dilakukan meliputi analisis prosedur dan dokumen melalui flowmap, Analisis Kebutuhan, analisis jaringan, analisis perangkat keras dan perangkat lunak, serta analisis pengguna, maka dirancanglah perangkat lunak dalam beberapa tahap yaitu perancangan sistem melalui diagram konteks dan data flow diagram (DFD), perancangan model data melalui Entity Relationship Diagram (ER – Diagram). Perancangan Aplikasi Inventory ATK Pada PT BPR Dana Bintan Sejahtera Tanjungpinang ini diimplementasikan berdasarkan analisis kebutuhan dengan menggunakan bahasa pemrograman Visual Basic.Net 2008 dan basis datanya menggunakan Microsoft Access 2007. Perancangan Aplikasi Inventory ATK ini memiliki tampilan dan menu yang mudah digunakan, sehingga diharapkan dapat mempermudah dalam mengelola data yang dimiliki oleh PT BPR Dana Bintan Sejahtera Tanjungpinang. Kata kunci : Inventory, ATK
iii
ABSTRACT
Utilization of information systems in handling data processing which is owned by PT BPR Dana Bintan Sejahtera Tanjungpinang especially needed to help simplify and speed up data processing owned by PT BPR Dana Bintan Sejahtera Tanjungpinang, especially in data processing is still done manually. With the this design of Application inventory ATK is expected to improve the performance of PT BPR Dana Bintan Sejahtera. In designing this software, used methods that include Waterfalls development phase systems engineering, systems analysis, design, coding, testing and maintenance. Based on the analysis of the problems that have been done include analytical procedures and document via flow Map, Needs analysis, network analysis, analysis of hardware and software, and user analysis, hence designed a software in several stage, through system design diagram context and data flow diagram (DFD), design data models through Entity Relationship Diagram (ER Diagram). Design of Application inventory ATK at PT BPR Dana Bintan Sejahtera Tanjungpinang this implemented based on needs analysis using of visual basic programming languages .Net 2008 and Microsoft Access 2007 database. Design of Application Inventory ATK this have appearance and menus are easy to use, so it is expected to facilitate the data Managing owned by PT BPR Dana Bintan Sejahtera. Key Word : Inventory, ATK
iv
DAFTAR ISI
Kata Pengantar........................................................................................ i Abstrak ............................................................................................................... iii Abstract ............................................................................................... iv Daftar Isi.................................................................................................v Daftar Gambar .................................................................................... viii Daftar Tabel ............................................................................................x Daftar Simbol ....................................................................................... xi BAB 1 PENDAHULUAN ......................................................................1 1.1. Latar Belakang Masalah.................................................................1 1.2. Identifikasi Masalah.......................................................................2 1.3. Tujuan Kerja Praktek .....................................................................2 1.4. Batasan Masalah ............................................................................3 1.5. Waktu Dan Tempat Kerja Praktek..................................................4 1.6. Metode Penelitian ..........................................................................4 1.6.1 Metode Pengumpulan Data ...................................................4 1.6.2 Metode Pengembangan Perangkat Lunak ..............................5 1.7
Sistematika Penulisan ....................................................................7
BAB II LANDASAN TEORI .................................................................9 2.1. Pengertian Aplikasi........................................................................9 2.2. Pengertian Data ...........................................................................10 2.3. Pengertian Informasi ...................................................................11 2.4. Konsep Sistem Informasi ............................................................11 2.5. Konsep Dasar Inventory ...............................................................12 2.6. Konsep Dasar Alat Tulis Kantor ..................................................13 v
2.7. Tool perancangan ........................................................................13 2.8. Perancangan Sistem .....................................................................16 2.8.1 Sistem Operasi Windows Xp……………………………….17 2.8.2 Crystal Report 8.5…………………………………………..20 2.8.3 Visual Basic 2008…………………………………………..21 2.8.4 Ms Access 2007…………………………………………….27
2.9. Sejarah BPR Dana Bintan Sejahtera .............................................28 2.9.1 Profil BPR Dana Bintan Sejahtera ......................................29 2.9.2 Struktur Organisasi BPR Dana Bintan Sejahtera...................30 2.9.3 Pembagian Tugas BPR Dana Bintan Sejahter .....................30 BAB III ANALISIS SISTEM ...............................................................37 3.1. Analisis Sistem Yang Berjalan .....................................................37 3.1.1 Diagram Alir Dokumen ( Flowmap ) ..................................37 3.2. Analisis Dokumen .......................................................................44 3.2.1 Dokumen Inputan ...............................................................44 3.2.2 Dokumen Output ................................................................44 3.3. Analisis Kelemahan Sistem..........................................................45 3.4. Analisa Kebutuhan Sistem ...........................................................46 3.4.1 Kebutuhan Perangkat Keras……………………………… ..46 3.4.2 Kebutuhan Perangkat Lunak ...............................................47 3.4.3 Kebutuhan Pengguna ..........................................................47 3.5. Analisa Kebutuhan Fungsional ....................................................48 BAB IV PERANCANGAN ..................................................................49 4.1. Perancangan Sistem .....................................................................49 4. 1.1 Perancangan Diagram Alir Dokumen (Flowmap) ................. 50 4. 1.2 Perancangan Model Proses Sistem ................................................ 56 a. Diagram Konteks...................................................................... 56 b. Data Flow Diagram (DFD ) ..................................................... 56
vi
4.2. Kamus Data .................................................................................58 4.3. Perancangan Model Data .............................................................60 4.3.1 Entity Relationship Diagram (ERD) ...................................60 4.3.2 Struktur Tabel .....................................................................61 4.3.3 Perancangan Struktur Menu ................................................65 1) Perancangan Struktur Program .......................................65 2) Perancangan Input ..........................................................66 3) Perancangan Output .......................................................68 BAB V IMPLEMENTASI SISTEM .....................................................70 5.1. Kebutuhan Perangkat Keras .........................................................70 5.2. Kebutuhan Perangkat Lunak ........................................................70 5.3. Kegiatan Implementasi ...............................................................71 5.4. Manual Instalasi...........................................................................72 5.5. Hasil Implementasi ......................................................................73 BAB VI Penutup ................................................................................79 6.1.Kesimpulan .....................................................................................79 6.2.Saran...............................................................................................79 Daftar Pustaka Lampiran
vii
BAB I PENDAHULUAN
1.1
Latar Belakang Ilmu
teknik
informatika
merupakan
suatu ilmu
yang sangat
berhubungan erat dengan teknologi informasi serta tuntutan zaman dimana penerapan
mengarah
kepada
kemajuan
teknologi
masa
depan.
Perkembangan dunia teknologi informasi saat ini maju dengan sangat cepat dikarenakan kebutuhan data dan informasi yang kian menigkat. Didalam dunia kerja adanya data dan informasi tentu menjadi kebutuhan utama dan hampir semua bentuk pengolahan data dan informasi tersebut menggunakan suatu sistem yang dirancang khusus sesuai kebutuhan baik secara komputerisasi maupun manual. Bank Perkreditan Rakyat (BPR) Dana Bintan Sejahtera Tanjungpinang adalah perusahaan yang bergerak di bidang perbankan yang melayani simpanan, deposito dan pinjaman/kredit. BPR Dana Bintan Sejahtera memiliki beberapa bagian didalam organisasinya, salah satunya adalah bagian umum. Bagian umum memiliki tugas untuk menangani data persediaan barang, pembelian hingga pelaporan dan jumlah permintaan setiap bulannya. Dalam pengolahan data barang, ada dua data barang yang diolah yaitu data Alat Tulis Kantor (ATK) yang mencakup barang-barang perlengkapan keperluan ATK dan data cetakan yang merupakan barangbarang hasil bersifat tercetak, seperti buku kas, buku tabungan dan lain-lain, 1
2
akan tetapi BPR Dana Bintan Sejahtera belum menggunakan aplikasi khusus untuk memonitor data persedian, permintaan serta data pembelian ATK. Sehingga memperlambat kerja bagian umum dalam proses pengolahan data ATK. Berdasarkan dari uraian di atas penulis tertarik membuat suatu perancangan aplikasi untuk membantu memudahkan bagian umum dalam pengolahan data dan pembuatan laporan ATK dengan judul “APLIKASI INVENTORY ALAT TULIS KANTOR PADA PT BPR DANA BINTAN SEJAHTERA TANJUNGPINANG”.
1.2
Identifikasi Masalah Untuk mempermudahkan pembahasan dan tetap berdasar pada latar belakang masalah diatas, maka dapat diidentifikkasikan sebagai berikut: 1. Pengolahan data persedian dan permintaan ATK masih menggunakan proses manual. 2. Kesulitan dalam pencarian data persedian ATK. 3. Pembuatan laporan persedian dan permintaan ATK sangat lambat.
1.3
Tujuan KerjaPraktek Kerja praktek yang di lakukan di PT BPR Dana Bintan Sejahtera Tanjungpinang bertujuan sebagai berikut:
3
1. Memenuhi syarat kelulusan mata kuliah kerja praktek pada jurusan Teknik Informatika Program Studi Strata 1 (S1). 2. Menerapkan hasil kemampuan yang diperoleh dari akademik ke dunia kerja yang lebih nyata. 3. Pembuatan aplikasi inventory Alat Tulis Kantor (ATK) agar membantu proses kerja bagian umum dalam pengolahan data inventory ATK setiap bulannya.
1.4
Batasan Masalah Batasan masalah dimaksudkan untuk membatasi ruang lingkup permasalahan terhadap sistem yang akan dibangun, hal ini bertujuan agar pembahasan masalah tidak terlalu luas. Setelah melakukan tinjauan dan wawancara dengan pihak PT BPR Dana Bintan Sejahtera Tanjungpinang, maka ruang lingkup yang akan dibahas adalah sebagai berikut: 1. Perancangan Aplikasi Inventory ATK Pada PT BPR Dana Bintan Sejahtera Tanjungpinang meliputi penerimaan data ATK, persedian stok ATK, pengajuan pembelian ATK. 2. Pembuatan laporan penerimaan dan laporan pengeluaran yang di butuhkan setiap bulannya. 3. Aplikasi ini hanya di gunakan pada bagian umum PT BPR Dana Bintan Sejahtera Tanjungpinang.
4
1.5
Waktu Dan Tempat KerjaPraktek Kerja praktek ini dilaksanakan pada bulan Mei 2013 – Juli 2013 di PT BPR DANA BINTAN SEJAHTERA Tanjungpinang, yang beralamat di Jl. Merdeka No 5 Tanjungpinang.
NO 1
2 3 4 5 6
1.6
KEGIATAN
1
Mei 2 3
4
1
Juni 2 3
4
1
Juli 2 3
4
Pengumpulan Data - Observasi - Wawancara - Studi Literatur Analisis Data Desain Coding Pengujian Pembuatan Laporan Tabel 1.1 Perencanaan Jadwal Kerja Praktek Metodologi Penelitian Metodologi penelitian yang dilakukan penulis dalam menyusun laporan kerja praktek ini adalah dengan metode pengumpulan data dan metode pengembangan perangkat lunak yaitu Waterfall (Classic Life Cycle). 1.6.1 Metode Pengumpulan Data Dalam pelaksanaan kegiatan pengumpulan data yang menjadi dasar dan untuk melengkapi laporan kerja praktek ini, maka digunakan teknik yang umum dalam kegiatan ilmiah, yaitu : a) Wawancara (Interview), yaitu kegiatan berupa tanya jawab langsung dengan orang yang berkaitan dengan pengelolaan data.
5
b) Observasi,
pengamatan
langsung
ke
perusahaan
dimana
dilaksanakan kerja praktek ini. c) Studi Literatur, pengumpulan data yang diambil dari modulmodul yang ada di BPR Dana Bintan Sejahtera Tanjungpinang. 1.6.2 Metode Pengembangan Perangkat Lunak Metode pengembangan sistem ini merupakan metodelogi yang mengembangkan sistem dari sistem manual menjadi sistem komputerisasi. Dengan demikian pengembangan sistem yang digunakan adalah paradigma waterfall ( clasical life cicle ) Balagurusamy: 1999 seperti terlihat pada gambar dibawah ini :
Gambar 1.1 Paradigma Waterfall1
1
AdiNugroho, analisisdanperancangansistemdenganmetodeberorientasiobjek, informatika, hal:125, 2005,Bandung.
6
Keterangan : a.
Kebutuhan sistem ( Requirement system ) Melakukan pengumpulan data dan penetapan kebutuhan semua elemen sistem.
b. Analisa(Analysis) Melakukan analisis terhadap permasalahan yang dihadapi dan menetapakan kebutuhan perangkat lunak. c.
Perancangan ( Design ) Menetapkan domain informasi untuk perangkat lunak.
d. Pembuatan Program/pengkodean ( Coding ) Pengkodean yang mengimplementasikan hasil dan design ke dalam kode/bahasa yang di mengerti oleh mesin komputer dengan bahasa pemrograman tertentu. e.
Pengujian ( Testing ) Kegiatan untuk melakukan pengetesan program yang sudah benar atau belum diuji dengan cara manual jika testing sudah benar maka program yang digunakan.
f.
Perawatan ( Maintenence ) Menangani perangkat lunak yang sudah selesai supaya dapat berjalan dan terhindar dari gangguan yang menyebabkan kerusakan. Dengan menggunakan Metode Waterfall sangat efektif, karena setiap tugas yang diberikan kepada setiap bagian
7
harus diselesaikan terlebih dahulu, tahap demi tahap setelah itu dilanjutkan ketahap atau tugas berikutnya secara berurutan.
1.7
Sistematika Penulisan Sistematika Penulisan laporan ini disusun dalam beberapa bab dan sub bab yang masing-masing saling mempunyai keterkaitan dalam bahasannya. Adapun sistematika penulisan laporan ini sebagai berikut : BAB I
PENDAHULUAN, Dalam bab ini berisi uraian tentang latar
belakag masalah, rumusan masalah yang berisi identifikasi masalah, batasan masalah, tujuan kerja praktek, waktu dan tempat kerja praktek, metode penelitian serta sistematika penulisan. BAB II LANDASAN TEORI, Pada bab ini berisi tentang landasan teori mengenai permasalahan yang sedang dibahas. BAB III ANALISA SISTEM, Pada bab ini membahas tentang bagaimana sistem
yang sedang berjalan pada BPR Dana Bintan Sejahtera
Tanjungpinang. BAB IV PERANCANGAN SISTEM, Pada bab ini membahas tentang perancangan aplikasi inventory ATK pada PT BPR Dana Bintan Sejahtera Tanjungpinang. BAB V IMPLEMENTASI, Pada bab ini berisi tentang implementasi dari perancangan aplikasi inventory ATK pada PT BPR Dana Bintan Sejahtera Tanjungpinang.
8
BAB VI PENUTUP, Pada bab ini berisi tentang kesimpulan dari masalah yang dibahas serta saran-saran dari penyusun.
BAB II LANDASAN TEORI Pada bab ini,akan dijelaskan tentang teori-teori dan konsep yang relevan dengan pokok permasalahan dalam penelitian. Landasan teori digunakan sebagai pedoman dan penjelas untuk mempermudah pembahasan serta penyelesaian masalah. 2.1
Aplikasi Aplikasi adalah perangkat lunak komputer yang memanfaatkan kemampuan komputer untuk melakukan tugas yang diinginkan user. Pada umumnya, pengertian aplikasi adalah suatu alat terapan yang di fungsikan secara khusus dan terpasu sesuai dengan kemampuan yang dimilki aplikasi tersebut. Contoh utama aplikasi adalah pengolahan data,lembar kerja,dan pemutar media. Aplikasi dapat digolongkan menjadi beberapa kelas,antara lain : 1. Perangkat lunak perusahaan (enterprise), 2. Perangkat lunak infrastruktur perusahaan, 3. Perangkat lumak informasi kerja, 4. Perangkat lunak media dan hiburan, 5. Perangkat lunak pendidikan, 6. Perangkat lunak pengeembangan media, 7. Perangkat lunak rekayasa produk.
9
10
2.2
Pengertian Data Data merupakan fakta-fakta atau pengamatan-pengamatan mengenai orang, tempat, sesuatu dan kejadian1..Data juga bisa diartikan sekumpulan fakta atau angka-angka yang sedang digunakan dalam proses pengambilan keputusan, dan biasanya berbentuk catatan historis yang dicatat dan diarsipkan tanpa maksud untuk segera diambil kembali untuk proses pengambilan keputusan. Sebuah sistem informasi memerlukan “Data” untuk diolah menjadi sebuah output maka dapat dijelaskan pengertian data sebagai berikut : “ Data adalah kenyataan yang menggambarkan suatu kejadiankejadian dan kesatuan nyata”. ( Jogiyanto H.M, 1999:10 ). “Data adalah penggambaran fakta secara umum yang dilukisakan dengan symbol, tulisan atau dengan angka”. ( Jogiyanto H.M, 2001 : 56 ). “Pengertian Data adalah manipulasi dari data kedalam bentuk yang lebih berguna dan lebih berarti, berupa suatu informasi”. ( Jogiyanto H.M, 1999 : 23).
2.3
Pengertian Informasi Informasi merupakan hal yang sangat penting bagi manajemen didalam pengambilan keputusan. Sumber-sumber informasi untuk pengambilan keputusan, bisa diperoleh baik dari sumber internal maupun eksternal.
1
M.Suyanto, Pengantar Teknologi Informasi, [Andi, 2005, Yogyakarta], hal.247
11
Menurut Robert N Anthony dan John Dearden didalam biku (Davis,1995 : 89) mendefinisakan informasi sebagai berikut : “Informasi adalah data yang telah diolah menjadi bentuk yang lebih berarti dan bermanfaat dalam pengambilan keputusan saat ini atau mendatang”. “Informasi yang dihasilkan tersebut haruslah berkualitas, karna informasi merupakan landasan bagi manajemen dalam pengambilan keputusan.” Telah diketahui bahwa informasi merupakan hal yang sangat penting bagi manajemen didalam pengambilan keputusan. Dalam beberapa hal pengetahuan tentang peristiwa-peristiwa tertentu atau situasi yang telah dikumpulkan atau diterima melalui proses komunikasi yang didapatkan dari berita juga dinamakan informasi.
2.4
Konsep Sistem Informasi Menurut Robert A. Leitch dan K. roscoe Davis yang telah dikutip dalam buku ( Jogiyanto H. M, 1995 : 11 ) dalam bukunya menyebutkan2 : “Sistem informasi adalah suatu sistem didalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian, mendukung operasi, bersifat manajerial dan kegiatan strategi dari suatu organisasi dan menyediakan bagi pihak luar berupa laporan-laporan yang diperlukan.”
2
Jogianto H. M., Sistem informasi penjualan halaman 11
12
Sistem informasi dapat didefinisikan sebagai suatu alat untuk menyajikan informasi dengan cara sedemikian rupa sehingga bermanfaat bagi penerimanya (Kertahadi, 1995). Tujuannya adalah untuk menyajikan informasi guna pengambilan keputusan pada perencanaan, pemrakarsaan, pengorganisasian,
pengendalian
kegiatan
operasi
subsistem
untuk
perusahaan, dan menyajikan sinergi organisasi pada proses (Murdick dan Ross, 1993). Dengan demikian, sistem informasi berdasarkan konsep (input, processing, output-IPO) dapat dilihat pada gambar berikut:
Gambar 2.1 Konsep Sistem Informasi3.
2.5
Konsep Dasar Inventory Inventory adalah stok barang yang harus dimiliki perusahaan baik berupa bahan baku, barang yang sudah diproses, dan barang jadi. Menurut Tersine (1994) untuk mengetahui tujuan adanya inventory dapat dengan mengklarafikasikan inventory tersebut:
3
1.
Berdasarkan tipe atau bentuknya.
2.
Berdasarkan fungsinya.
Hanif Al Fatta,analisis & perancangan system informasi,[Andi offset,2007,Yogyakarta],hal :9
13
2.6
Konsep Dasar Alat Tulis Kantor (ATK) ATK adalah alat tulis yang digunakan dalam pekerjaan sehari-hari diperkantoran yang berupa pena, pensil, kertas, jepitan kertas, tinta printer dan lain-lain. ATK juga bisa berupa barang percetakan seperti slip setoran, slip penarikan dan lain-lain.
2.7
Tools Perancangan Tahap perancangan dilakukan setelah tahap analisis. Pada tahap perancangan, hasil analisis diubah ke dalam bentuk yang lebih mudah dipahami, yaitu berupa diagram-diagram. Tujuan dari perancangan adalah untuk memberikan gambaran yang lebih jelas mengenai aplikasi yang dibuat. Berikut adalah diagram-diagram yang digunakan dalam tahap perancangan:
1.
Flowmap Diagram Flowmap adalah campuran peta dan flow chart, yang menunjukkan pergerakan benda dari satu lokasi ke lokasi lain, Flowmap diagram disebut juga diagram alir dokumen yaitu skema/diagram yang menggambarkan aliran dokumen yang terjadi dalam sistem maupun entitas-entitas yang berada di luar sistem4.
4
Yandi Tubagus, 2009, Flow Map Diagram, [online] Available: http://mugi.or.id/blogs/yandi_tubagus/archive/2009/11/18/data-flow-diagram-dfd-danflowmap.aspx [2010,Maret, 31 / 05:14 PM]
14
Proses yang digambarkan dalam diagram ini tidak hanya proses yang dikerjakan secara komputerisasi, tetapi proses manual juga bisa ditampilkan sehingga flow map diagram ini bisa menggambarkan prosedur ataupun kejadian yang terjadi dalam sistem yang dibuat secara lengkap. 2.
Flowchart Flowchart merupakan diagram yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya,yang dinyatakan dengan simbol-simbol.
3.
Entity Relationship Diagram (ERD) Model Entity Relationship Diagram yang berisi komponenkomponen himpunan entitas dan himpunan relasi yang masing-masing dilengkapi dengan atribut-atribut yang merepresntasikan seluruh fakta dari dunia nyata yang kita tinjau, dapat digambarkan dengan lebih sistematis dengan menggunakan Diagram Entity Relationship5. Notasinotasi simbolik dalam Diagram E-R yang kita gunakan adalah sebagai berikut : a) Persegipanjang, menyatakan entitas. b) Lingkaran / Elip, menyatakan atribut (atribut yang berfungsi sebagai key digaris bawahi). c) Belah ketupat, menyatakan himpunan relasi.
5
Lbid hal79
15
d) Garis, sebagai penghubung antara himpunan relasi dengan himpunan entitas dan himpunan entitas dengan atribut.
S IM B O L
NAM A
E N T IT A S
A T R IB U T
R E L A T IO N S H IP
G A R IS
Tabel 2.1 Simbol Entity Relationship Diagram (ERD)
4.
Diagram Alur Data / Data Flow Diagram (DFD) Data
Flow
Diagram
adalah
sebuah
teknik
grafis
yang
menggambarkan aliran informasi dan transformasi yang diaplikasikan pada saat data bergerak dari input menjadi output6. DFD merupakan alat perancangan sistem yang berorientasi pada alur data dan dapat digunakan untuk penggambaran analisa maupun rancangan sistem.
Ada empat elemen yang menyusun suatu DFD yaitu:
1. Proses : aktifitas atau fungsi yang dilakukan untuk alasan bisnis 6
Roger S. Pressman, Ph.D, Rekayasa Perangkat Lunak, [Yogyakarta, 2007, Andi], hal.364
16
yang spesifik, bisa berupa manual dan terkomputerisasi 2. Data Flow : suatu data tunggal atau kumpulan logis suatu data, selalu diawali atau berakhir pada suatu proses. 3. Data Store : kumpulan data yang disimpan dengan cara tertentu. 4. External Entity : orang, organisasi, atau sistem yang berada di luar sistem tetapi berinteraksi dengan sistem.
Table 2.2 Simbol Data Flow Diagram (DFD
2.8
Perancangan Sistem Menurut John Burch dan Gary Grudnitski, (“perancangan sistem adalah
penggambaran,
perencanaan
dan
pembuatan
sketsa
atau
pengaturan dari beberapa elemen yang terpisah ke dalam satu kesatuan yang utuh dan berfungsi”).
17
2.8.1 Sistem Operasi Windows Xp Windows xp adalah jajaran sistem operasi berbasis grafis yang dibuat oleh Microsoft untuk digunakan pada komputer pribadi, yang mencakup komputer rumah dan desktop bisnis, laptop, dan pusat media (Media Center). Nama "XP" adalah kependekan dari "Experience". Windows xp merupakan penerus Windows 2000 Professional dan Windows Me, dan merupakan versi sistem operasi Windows pertama yang berorientasi konsumen yang dibangun di atas kernel dan arsitektur Windows NT. Windows xp pertama kali dirilis pada 25 Oktober 2001, dan lebih dari 400 juta salinan instalasi digunakan pada Januari 2006, menurut perkiraan seorang analis IDC. Windows xp digantikan oleh Windows Vista,
yang
dirilis
untuk
pengguna volume
license pada 8
November 2006, dan di seluruh dunia untuk masyarakat umum pada tanggal 30
Januari 2007.
Banyak
Original
Equipment
Manufacturer (OEM) dan juga penjual ritel menghentikan produksi perangkat dengan Windows xp pada tanggal 30 Juni 2008. Microsoft sendiri terus menjual Windows xp melalui Custom-built PC (OEM kecil yang menjual komputer rakitan) sampai dengan 31 Januari 2009. Windows xp mungkin akan tetap tersedia bagi para pengguna korporasi dengan volume licensing, sebagai sarana downgrade untuk komputer-komputer yang belum siap menjalankan
18
sistem operasi baru, Windows Vista Business Edition atau Ultimate Edition atau Windows 7Professional. Windows xp tersedia dalam berbagai macam edisi. Edisi yang paling umum dari sistem operasi windows xp adalah windows xp home edition, yang ditargetkan untuk pengguna rumahan, dan juga windows
xp
professional,
yang
menawarkan
fitur-fitur
tambahan seperti dukungan untuk domain windows server dan dua prosesor fisik, dan ditargetkan di pasar power user, bisnis dan perusahaan klien. Sementara itu, Windows xp Media Center Edition memiliki fitur multimedia tambahan yang menawarkan kemampuan untuk merekam dan menonton acara TV, melihat film DVD, dan mendengarkan musik. Ada lagi windows xp tablet PC edition didesain khusus untuk platform PC tablet, yakni sebuah komputer pribadi yang menggunakan stylus. Windows xp akhirnya dirilis untuk dua arsitektur tambahan selain tentunya Intel i386, yang disebut dengan windows xp 64-bit edition untuk prosesor berarsitektur IA-64 (Itanium) dan windows xp Professional x64 edition untuk prosesor berarsitektur x86-64. Ada juga windows xp embedded, sebuah versi windows xp professional yang dikurangi segala fiturnya di sana sini untuk pasar tertentu, dan windows xp starter edition yang dijual di beberapa negara berkembang. Pada pertengahan 2009, sebuah pabrik pertama mengungkapkan
bahwa
mereka
memiliki
sebuah telepon
19
selular berbasis sistem operasi windows xp. Versi windows berbasis arsitektur nt dikenal dengan stabilitas dan efisiensi yang lebih baik dibandingkan versi windows 9x. Windows menyajikan antarmuka grafis yang dirancang ulang secara signifikan, hingga perubahan tersebut dipromosikan oleh microsoft sebagai tampilan yang lebih user-friendly dari versi windows sebelumnya. Sebuah fasilitas manajemen
software
baru
yang
disebut side-by-side
assembly diperkenalkan untuk memperbaiki masalah yang sering muncul pada windows 9x. Windows xp juga merupakan versi pertama windows untuk menggunakan aktivasi produk "windows product activation" untuk memberantas pembajakan peranti lunak, meski hal ini menjadi kontroversi. Windows xp juga telah dikritik oleh beberapa pengguna untuk kelemahan keamanan komputer, integrasi beberapa aplikasi seperti internet explorer 6 dan windows media player yang sangat ketat, dan untuk aspek-aspek dari standar antarmuka pengguna. Versi dengan service pack 2, service pack 3 dan Internet Explorer 8 dialamatkan beberapa kekhawatiran ini. Selama pengembangan, proyek pengembangan windows xp ini dikenal dengan nama kode "whistler", yang diambil dari sebuah daerah di british columbia. Berdasarkan data riset net applications, windows xp masih mencatat pangsa pasar 49,8 persen pada Juli 2011. Ini untuk pertama kalinya sistem operasi tersebut tercatat di
20
bawah pangsa pasar 50 persen. Hal tersebut karena naiknya popularitas Windows7 yang sudah mencapai 29,7 persen. Meski masih dominan, microsoft sebenarnya risau karena teknologi yang digunakan sudah bisa dikatakan uzur. Bulan lalu, microsoft merilis edaran buat para pengguna bahwa saat ini adalah waktu yang tepat beralih dari windows xp ke windows7.7
Gambar 2.2 Interface Antar Muka Windowsxp
2.8.2 Crysal Report 8.5 Crystal report merupakan program khusus untuk membuat laporan yang terpisah dari program Microsoft Visual .NET, tetapi keduanya dapat dihubungkan. Berikut ini merupakan interface atau tampilan dari crystal report 8.5 7
http://sutrayani-komputer.blogspot.com/2012/03/pengertian -windows-xp
21
Gambar 2.3 Interface Antar muka Crsysatal Report 8.5 2.8.3 Visual Basic 2008 Visual Basic berawal dai bahasa BASIC yang dikembangkan mulai dari tahun 1963. BASIC adalah singkatan dari Beginner’s All Purpose Symbolic Intruction Code. Sesuai namanya, bahasa BASIC dibuat untuk tujuan memudahkan pengguna agar dapat dengan mudah mempelajari, membuat, dan mengembangkan program komputer8. Visual Basic merupakan pengembangan lebih lanjut dari bahasa BASIC yang dilakukan oleh Microsoft. Visual Basic ditujukan sebagai perangkat untuk membuat dan mngembangkan program secara cepat (Rapid Application Development: RAD). Terutama jika
8
Rachmad Hakim S., Visual Basic 2008 untuk Pemula, hal 2.
22
menggunakan antarmuka berbasis windows (Graphical User Interface: GUI). Visual Basic 1.0 merupakan versi pertama Visual Basic dan dirilis pada tahun 1991. Visual Basic 1.0 ditujukan untuk sistem operasi Microsoft DOS. Selanjutnya diteruskan dengan Visual Basic 2.0 di tahun 1992, versi 3.0 tahun 1993, versi 4.0 tahun 1995, versi 5.0 tahun 1997, dan versi 6.0 tahun 1998. Visual Basic 6.0 sangat populer dan masih banyak dipakai hingga saat ini. Sayangnya, dukungan terhadap Visual Basic 6 telah dihentikan oleh Microsoft mulai bulan Maret 2008. Namun, program yang dibuat dengan Visual Basic 6 masih dapat dijalankan pada sistem operasi terbaru seperti Windows Server 2008 maupun Windows Vista. Visual Basic .NET diluncurkan Februari 2002, merupakan penerus dari Visual Basic 6.0 dan menggunakan platform .NET yang berbeda dengan Visual Basic sebelumnya. Ada beberapa terminologi yang sebaiknya diketahui dengan jelas. a) Visual Basic, merupakan bahasa dan aturan pemrograman yang harus ditaati dalam menuliskan perintah-perintah agar program dapat dikompilasi. b) Visual Studio 2008, merupakan aplikasi IDE (Integrated Development Environment) yang digunakan untuk mengembangkan software. Di dalam aplikasi IDE inilah tersedia berbagai fitur yang
23
memudahkan
pemrograman,
seperti
kompilasi,
debugging,
pengaturan projek, mengedit antarmuka secara visual, dll. c) .NET Framework, merupakan library dan virtual machine yang terus berkembang mengikuti teknologi terbaru. Versi .NET Framework dimulai dari versi 1.0, 1.1, 2.0, 3.0, dan 3.5. Versi .NET yang terbaru biasanya dirilis dengan perbaikan serta dukungan
terhadap
teknologi
baru
sehingga
semakin
memudahkan pengembangan software. Pemrograman dengan Visual Basic dibuat dengan beberapa tahap berikut: 1. Menuliskan kode program dengan bantuan aplikasi IDE. Artinya, Anda menuliskan program menggunakan aplikasi Microsoft Visual Studio 2008 atau Visual Basic 2008. 2. Mengompilasi kode program tersebut menjadi program yang dapat dijalankan/dieksekusi. Hasil kompilasi adalah instruksi CIL (Common
Intermediate
Language)
atau
MSIL
(Microsoft
Intermediate Language) yang hanya dimengerti oleh kompiler JIT (Just In Time) dan tidak dapat dieksekusi langsung pada komputer. 3. Penyebaran (distribusi) program di komputer dengan .NET Framework.
24
Gambar 2.4 Tahapan Penulisan Kode Program, Kompilasi, Eksekusi Hasil Kompilasi dengan JIT MSIL atau sekarang disebut dengan CIL merupakan bahasa yang bersifat netral (tidak tergantung sistem operasi dan hardware komputer). Kompilasi JIT dilakukan oleh Common Language Runtime (CLR) untuk mengubah bahasa CIL yang bersifat netral (platform independent), menjadi kode yang dapat dibaca oleh perangkat keras (hardware) dan sistem operasi yang digunakan (platform sekarang).
25
Gambar 2.5 Tahap Pengembangan Software dengan Visual Studio 2008 .NET Framework .NET
Framework
merupakan
software
kerangka
kerja
yang
menghubungkan antara aplikasi .NET dengan sistem operasi yang secara garis besar terdiri dari: a) Library, berisi kode-kode siap pakai dan banyak dibutuhkan oleh programmer. b) Virtual
machine,
berupa
aplikasi
menjalankan program hasil kompilasi.
yang
digunakan
untuk
26
Gambar 2.6 Antara aplikasi .NET, .NET Framework, dan Sistem Operasi
Gambar 2.7 Interface pada Aplikasi Visual Basic 2008
Interface
Menu bar Toolbar Toolbox
Form Designer Solution Explorer Properties
Keterangan
Menu standar pada Visual Basic atau Visual Studio 2008 Daftar tool (perangkat) untuk menjalankan perintah yang sering digunakan Daftar kontrol yang dapat ditambahkan ke dalam program sebagai antarmuka (interface) Digunakan untuk mengedit tampilan form serta mengatur posisi kontrol pada form Digunakan untuk mengolah file dan projek berhubungan dengan Solution Digunakan untuk mengedit properti dari form dan kontrol yang sedang diedit
27
Error list Menampilkan pesan error jika ada kesalahan Tabel 2.3 keterangan interface visual basic 2008 .NET
2.8.4 Ms Access 2007 Microsoft access merupakan salah satu produk database engine dari Microsoft yang sudah sangat dikenal dari produk-produk access versi sebelumnya, maka dapat kita simpulkan bahwa access merupakan sebuah database engine walaupun sederhana namun dapat diandalkan dan sangat mudah digunakan. Fasilitas yang disediakan tergolong lengkap dan sangat memadai untuk kebutuhan studi atau kebutuhan bisnis dengan sekala kecil menegah.9
Gambar 2.8 Interface Antar Muka Microsoft Access 2007
9
PT Elex Media Komputindo,Mudah Menguasai Microsoft Access 2007,PT Elex Komputindo, 2007,Jakarta.
28
2.9
Sejarah BPR Dana Bintan Sejahtera Tanjungpinang Meskipun kondisi makro ekonomi dirasakan belum sepenuhnya pulih,sejak tahun 2000/2001 kepercayaan masyarakat atas institusi perbankan mulai membaik. Perkiraaan ini didasari atas meningkatnya dana pihak ketiga yang masuk ke sistem perbankan nasional. Jika dibanding dengan kondisi diawal krisis tahun 1998 dimulai, dana pihak ketiga sebesar Rp 357.613.000,- juta, sehingga jumlah dana yang dicapai per agustus 2003 meningkat hampir dua kali lipat. Penghimpun dana dan penyaluran dana oleh bank perkreditan rakyat (BPR) di kota Tanjungpinang pada saat itu belum ada, karna dikota Tanjungpinang belum terdapat bank perkreditan rakyat (BPR). Dari perkembangan perbankan, perkembangan perekonomian dan perkembangan penduduk maka merupakan peluang bagi PT BPR Dana Bintan Sejahtera Tanjungpinang untuk berpartisipasi aktif sebagai lembaga intermediasi dana dan kredit masyarakat dalam rangka membantu program pemerintah dalam mempercepat pemulihan ekonomi dengan pelayanan bagi masyarakat golongan ekonomi lemah, pengusaha kecil dan koperasi baik di pedesaan, pesisir pantai maupun perkotaan di kota Tanjungpinang. Bpr Dana Bintan Sejahtera Tanjungpinang didirikan pada tahun 2005 dengan menempati sebuah gedung di jalan merdeka Tanjungpinang.
29
2.9.1 Profil BPR Dana Bintan Sejahtera Tanjungpinang BPR Dana Bintan Sejahtera Tanjungpinang yang didirikan oleh Bapak Tjan Kin Lian dan rekan-rekan pada tanggal 25 Agustus 2005 yang bertempat di jalan merdeka Tanjungpinang memiliki visi dan misi didirikannya BPR Dana Bintan Sejahtera, yaitu: a) Visi Ikut berperan serta dalam pembangunan ekonomi daerah. Khususnya di kota Tanjungpinang dan pembangunan ekonomi nasional pada umumnya menuju tercapainya ekonomi kerakyatan. b) Misi 1) Menambah
sarana
pelayanan
perbankan
bagi
masyarakat
golongan ekonomi lemah. 2) Sebagai lembaga intermediasi kegiatan usaha bisnis. 3) Membantu mengembangkan bisnis usaha kecil. 4) Membantu program pemerintah daerah untuk membangun dan mengembangkan perekonomian daerah. 5) Penyediaan lapangan kerja diwilayah sekitar. 6) Memberikan pendidikan kepada masyarakat untuk mengelola penghasilan/keuangan menuju kehidupan yang efektif dan efisien.
30
2.9.2 Struktur Organisasi BPR Dana Bintan Sejahtera Tanjungpinang
Gambar 2.9 Struktur Organisasi BPR Dana Bintan Sejahtera Tanjungpinang 2.9.3 Pembagian Tugas BPR Dana Bintan Sejahtera Tanjungpinang 1. Komisaris Utama Komisaris Utama bertugas dan berfungsi sebagai : a) Memberikan persetujuan atas rencana dan program kerja b) Meminjam uang dan atau menjaminkan aset bank kepada pihak ketiga untuk kepentingan operasional bank. c) Memberhentikan direksi untuk sementara waktu d) Memeriksa segala arsip dan dokumen. e) Melakukan rapat evaluasi dengan direksi.
31
2. S.P.I S.P.I memiliki tugas sebagai : a) Pemeriksaan kas. b) Pemeriksaan Rekening pada bank lain c) Pemeriksaan Surat-surat berharga d) Melaksanakan program pemeriksaan inventaris yang telah di setujui komisaris dan diketahui oleh direksi secara periodik. 3. Direktur utama Adapun tugas dan tanggung jawab Direktur utama adalah : a) Mewakili bank didalam dan diluar pengadilan. b) Merencanakan pengembangan prosedur jaringan kantor dan peningkatan kemampuan sdm. c) Mengendalikan upaya peningkatan volume usaha d) Memberikan persetujuan pinjaman bersama komite kredit sesuai dengan peraturan yang telah ditetapkan melalui surat keputusan direksi. e) Menyusun rencana tahunan ke Bank Indonesia. f) Bertanggung jawab dalam pembinaan dan pengawasan karyawan. 4. Direktur Direktur membantu Direktur utama dalam kegiatan-kegiatan sebagai berikut : a) Menetapkan kebijakan tentang ketentuan pelaksanaan operasional bank.
32
b) Memantau perkembangan likuiditas bank. c) Mempersiapkan penuhan kewajiban kepada pihak ketiga. d) Mengevaluasi realisasi rencana kerja 5. Kabag Marketing Tugas dari kabag maketing adalah : a) Menjadi anggota komite kredit. b) Membuat surat persetujuan kredit untuk debitur. c) Menandatangai offering letter. d) Memberikan teguran lisan atau tertulis kepada bawahan serta mengusulkan sanksi. 6. Ao & Funding Officer Tugas Ao & Funding Officer adalah : a) Menerapkan rencana, strategi saran pemberian kredit. b) Mencari calon nasabah. c) Bertanggung jawab atas kelancaran kredit. d) Bertanggung jawab kredit macet. e) Melakukan penagihan terhadap debitur yang menunggak. 7. Penanggung jawab kredit Tugas dari penanggung jawab kredit adalah : a) Bertanggung jawab atas kelengkapan, keabsahan data debitur dan dokumen kredit yang diterima dari cabang. b) Melakukan registrasi atas pencairan/pelunasan kredit. c) Melakukan refond/endosemen asuransi atas pelunasan kredit.
33
8. Administrasi Kredit Tugas dari administrasi kredit adalah : a) Menerima dan memeriksa kelengkapan keabsahan data debitur dan dokumen persyaratan kredit yang diterima dari cabang. b) Melakukan registrasi atas pencarian/pelunasan kredit. c) Melakukan proses pelunasan asuransi sesuai dengan ketentuan dan prosedur. d) Membuat jurnal manual sesuai dengan ketentuan dan prosedur. 9. Legal Custodian Tugas legal custodian adalah : a) Menolak pelaksanaan akad kredit dan pencairan apabila kelengkapan dokumen dari debitur belum lengkap. b) Menerima dokumen jaminan asli dari debitur. c) Melakukan sita jaminan atas persetujuan komite kredit. d) Memproses debitur bermasalah sampai kepengadilan. 10. Appraisal Tugas appraisal adalah : a) Melakukan pengecekan keabsahan dalam jaminan. b) Melakukan penilaian jaminan kredit. c) Memberikan catatan apabila ditemukan hal-hal yang tidak wajar. 11. Supervisor Operasional Tugas dan tanggung jawab supervisor operasional adalah :
34
a) Memeriksa laporan akhir hari. b) Penyampaian laporan keuangan dengan tertip dan tepat waktu. c) Memeriksa bukti-bukti transaksi harian dan hasil posting. d) Membuka khasanah pada pagi hari dan menutup khasanah pada sore hari serta mengisi register khasanah dengan pejabat lain dan teller. e) Memelihara kas,rekening simpanan di bank lain serta surat-surat berharag milik bank. f) Kelancaran pelaksanaan operasional bank. g) Keamanan dan kerapihan inventaris dan surat-surat berharga milik bank serta arsip. 12. Customer service Tugas customer service adalah : a) Memberikan pelayanan yang professional sesuai dengan standar layanan Bpr Dana Bintan Sejahtera. b) Memberikan informasi kepada calon nasabah mengenai produk dan jasa bank. c) Menerima permohonan : 1) Pembukaan rekenenig 2) Penutupan rekening 3) Penggantian buku tabungan. d) Menjaga kerahasiaan data dan saldo nasabah. e) Melakukan konfirmasi perpanjangan deposito.
35
13. Teller Tugas teller adalah : a) Memberikan pelayanan yang smart,professional dengan layanan Bpr Dana Bintan Sejahtera yang berkaitan financial. b) Melayani transaksi operasional front office sesuai dengan ketentuan dan prosedur. c) Menerima
dan
memeriksa
kebenaran
serta kelengkapan
transaksi yang ditangani. d) Menerima setoran uang tunai/warkat bank lain. e) Menyelesaikan selisih yang terjadi. 14. Akunting pelaporan Tugas akunting pelaporan adalah : a) Membuka setiap transaksi biaya umum nontunai. b) Melakukan entri data dan posting setiap mutasi tersebut pada komputer. c) Membuat rekonsilasi rekening pada bank lain. d) Laporan penyusutan inventaris. e) Memeriksa neraca balancing rill harian. f) Memeriksa dan memantau rekening perkiraan antar kantor. 15. Personalia Tugas personalia adalah : a) Melakukan rekrutmen karyawan. b) Menyiapkan surat-surat yang berkaitan dengan promosi.
36
c) Mengadministrasikan persentasi karyawan. 16. Bagian Umum Tugas bagian umum adalah: a) Memelihara semua inventaris dan persedian alat tulis kantor. b) Menyiapkan laporan penyusutan inventaris bulanan. c) Melaksanakan pengaturan terhadap tugas supir, satpam dan officeboy. 17. Satpam Tugas satpam adalah : a) Melaksanakan penjagaan dan pengamanan terhadap jiwa dan harta benda milik karyawan dan perusahaan. b) Menegakkan tata tertib yang berlaku diperusahaan c) Memantau dan menjaga terhadap keluar masuk orang maupun barang dilingkungan perusahaan. d) Selalu bersikap curiga atas sikap, tingkah laku, kegiatan setiap orang dilingkungan perusahaan. 18. Penagihan Tugas penagihan adalah : a) Melakukan penagihan terhadap nasabah kredit yang macet. b) Mencari nasabah kredit yang bermasalah.
37
BAB III ANALISIS SISTEM Analisis sistem berjalan bertujuan untuk memperoleh gambaran tentang sistem yang dipergunakan atau yang sedang berjalan didalam PT BPR Dana Bintan Sejahtera dimana proses pengkondisian penerimaan barang masuk ATK dan pemakaian ATK itu sendiri masih belum berjalan maksimal karena proses masih dilakukan secara manual yang berpengaruh kepada stok ATK itu sendiri. Uraian Sistem dan prosedur kerja yang berjalan di PT BPR Dana Bintan Sejahtera ini diuraikan dalam bentuk narasi yang dilengkapi dengan unit-unit bagian yang terkait disertai dokumen-dokumen apa saja yang digunakan oleh perusahan PT BPR Dana Bintan Sejahtera.
3.1
Analisis Sistem Yang Berjalan Pada bagian ini akan dijelaskan sistem keluar masuk barang-barang ATK pada PT BPR Dana Bintan Sejahtera yang sedang berjalan, yang mana akan digambarkan dengan flowmap berikut. 3.1.1 Diagram Alir Dokumen (Flowmap) Diagram
Alir
Dokumen
(flowmap)
digunakan
untuk
menunjukan arus alir dokumen dalam prosedur permintaan pembelian ATK, prosedur penerimaan ATK, prosedur pengeluaran ATK.
37
38
a.
Prosedur pengajuan pembelian ATK. Prosedur pengajuan pembelian ATK pada PT BPR Dana Bintan Sejahtera adalah sebagai berikut : a)
Bagian umum membuat form pengajuan pembelian ATK sebanyak 2 (dua) rangkap dan diserahkan kepada personalia untuk meminta persetujuan.
b) Apabila tidak mendapatkan persetujuan dari personalia maka form pengajuan pembelian ATK akan ditolak dan dikembalikan kepada bagian umum. Jika personalia memberikan persetujuan maka surat pengajuan pembelian ATK ditandatangani dan diberikan kepada pimpinan untuk ditandatangi kembali. c)
Setelah
pimpinan
menandatangani
form
pengajuan
pembelian, form tersebut dikembalikan kepada personalia. Rangkap ketiga sebagai arsip pimpinan, rangkap kedua arsip personalia dan rangkap pertama dikembalikan kepada bagian umum. d) Setelah form pengajuan pembelian ATK sudah diterima, bagian umum membuat purches order sebanyak dua rangkap. Rangkap pertama sebagai arsip bagian umum dan rangkap kedua diberikan kepada supplier.
39
Gambar 3.1 Flowmap Berjalan Pengajuan Pembelian ATK
40
b.
Prosedur Penerimaan ATK Prosedur penerimaan ATK pada PT BPR Dana Bintan Sejahtera adalah sebagai berikut : a) Bagian umum menerima faktur ATK sebanyak 3 (tiga) rangkap dari supplier yang juga berisi data barang. b) Faktur yang sudah
ditandatangani oleh bagian umum
deberikan kepada Akunting pelaporan dan Akunting pelaporan memberikan rangkap ketiga kepada supplier. c) Selanjutnya bagian umum menginput data penerimaan ATK dan membuat laporan sebanyak 2 (dua) rangkap, lembar pertama sebagai arsip bagian umum dan lembar kedua diserahkan kepada personalia.
41
Gambar 3.2 Flowmap berjalan penerimaan ATK
42
c.
Prosedur pengeluaran ATK Prosedur pengeluaran ATK di PT BPR Dana Bintan Sejahtera adalah sebagai berikut : a) Unit kerja mengisi form permintaan dan diserahkan kepada bagian
umum
untuk
meminta
barang-barang
yang
dibutuhkan. b) Bagian umum melakukan pengecekan stok ATK yang diminta, jika stok tidak mencukupi maka bagian umum mengisi form pengajuan pembelian ATK dan diserahkan kepada personalia dan jika stok ATK mencukupi maka bagian umum membuat tanda terima barang sebanyak 2 (dua) rangkap dan diberikan kepada unit kerja yang menirima barang. c) Selanjutnya unit kerja menandatangani tanda terima barang dan rangkap kedua diberikan kepada bagian umum untuk diinput sedangkan rangkap pertama sebagai arsip unit kerja. d)
Setelah bagian umum menginput data pengeluran ATK, bagian
umum
mencetak
laporan
pengeluaran
ATK
sebanyak 3 (tiga) rangkap. Rangkap pertama sebagai arsip bagian umium dan rangkap kedua diberikan kepada personalia dan rangkap ketiga diberikan kepada pimpinan.
43
Gambar 3.3 Flowmap berjalan pengeluaran ATK
44
3.2
Analisis Dokumen 3.2.1 Dokumen Inputan. a. Form Permintaan Barang Fungsi
: sebagai formulir pengambilan barang
Sumber
: dari unit kerja ke bagian umum.
Rangkap
: 1 (dua)
Media
: Kertas
3.2.2 Dokumen Output a. Form Pengajuan Pembelian ATK Fungsi
: Sebagai formulir pengajuan pembelian ATK
Sumber
: Dari bagian umum ke personalia
Rangkap
: 2 (dua)
Media
: Kertas
b. Purches Order Fungsi
: untuk pemesanan ATK ke supplier
Sumber
: Bagian umum
Rangkap
: 2 (dua)
Media
: kertas
c. Faktur Fungsi
: sebagai bukti barang masuk dari supplier
Sumber
: toko
Rangkap
: 3 (tiga)
Media
: Kertas
45
d. Tanda Terima Barang Fungsi
: sebagai bukti barang telah diterima oleh unit kerja.
Sumber
: Bagian Umum
Rangkap
: 2 (dua)
Media
: kertas
e. Laporan penerimaan ATK Fungsi
: Untuk melaporkan data ATK yang masuk
Sumber
: Bagian umum
Rangkap
: 2 (dua)
f. Laporan pengeluaran ATK
3.3
Fungsi
: untuk melaporakan jumlah pemakaian ATK
Sumber
: Bagaian umum
Rangkap
: 3 (tiga)
Analisis Kelemahan Sistem Analisa sistem merupakan kegiatan untuk memahami cara kerja dari sistem yang ada pada object (lembaga,instansi ataupun perusahaan) yang diteliti. Analisa ini dapat berupa kegiatan pengindentifikaasian terhadap kelemahan-kelemahan dari sistem manual agar sistem tersebut dapat dikembangkan apabila diperlukan. Kelemahan yang paling mendasar pada sistem manual terletak pada pengolahan data ATK pada PT BPR Dana Bintan Sejahtera Tanjungpinang,
46
sehingga dalam pembuatan laporan dan pengecekan stok membutuhkan waktu. Untuk mengatasi masalah diatas diperlukan suatu solusi yang tepat yang dapat membantu khususnya bagian umum PT BPR Dana Bintan Sejahtera Tanjungpinang yang lebih efektif dan efisien. Diharapkan dengan teknologi berbasis komputer bagian umum dapat lebih fokus pada penerimaan dan pengeluaran ATK.
3.4
Analisa Kebutuhan Sistem Pada analisisa kebutuhan sistem akan menjelaskan tentang analisis yang dilakukan penulis dalam Perancangan Aplikasi Inventory Alat Tulis Kantor (ATK) pada PT BPR Dana Bintan Sejahtera Tanjungpinang, antara lain sebagai berikut : 3.4.1 Kebutuhan Perangkat Keras Perangakat keras komputer (hardware) adalah semua bagian fisik komputer, dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya. Pada umumnya perangkat keras dan perangkat lunak merupakan satu kesatuan yang dapat membantu dalam pengolahan data ATK pada PT BPR Dana Bintan Sejahtera Tanjungpinang.
47
Analisis
kebutuhan
perangkat
keras
ditujukan
untuk
menjelaskan kondisi atau kemampuan yang harus dipenuhi dan sesuai dengan spesifikasi yang diinginkan oleh user disistem baru.
3.4.2 Kebutuhan Perangkat Lunak Perangkat lunak adalah istilah umum untuk data yang diformat dan
disimpan
secara
digital,
termasuk
program
komputer,
dokumentasinya, dan berbagai informasi yang bisa dibaca oleh komputer. Pada pengolah data penerimaan dan pengeluaran ATK serta perhitungan stok setiap bulannya sering terjadi kesalahan-kesalahan hal itu dikarenakan masih menggunakan proses manual, untuk itu perancangan aplikasi inventory ATK dapat dikembangkan dan diimplementasikan dengan menggunakan perangkat lunak. Hal ini dilakukan karena perangkat lunak pada umumnya dapat mendukung serta dapat membantu dalam pengolahan data ATK, sehingga mempercepat proses pengecekan stok ATK dan pembuatan laporanlaporan ATK. 3.4.3 Kebutuhan Pengguna Analisis pengguna dibutuhkan untuk menjalankan sistem yang sudah dibuat dapat digunakan oleh pengguna yang sudah ditetapkan oleh PT BPR Dana Bintan Sejahtera Tanjungpinang.
48
3.5
Analisis Kebutuhan Fungsional Analisis fungsional dilakukan untuk mengetahui apakah sistem yang dibangun benar-benar berfungsi dengan baik atau tidak. Adapun kebutuhan fungsional dari aplikasi inventory alat tulis kantor (ATK) : 1.
Sistem harus dapat melakukan entri data ATK yang berhubungan dengan penerima ATK : a. Pengguna bisa memasukan berbagai jenis ATK dengan kode ATK, nama barang, satuan dan lain-lain. b. Pengguna bisa menambahkan barang baru. c. Pengguna bisa menampilkan jenis ATK dan jumlah ATK. d. Pengguna dapat mencari nama barang ATK dan jumlahnya.
2.
Sistem harus dapat melakukan pendataan pengeluaran ATK : a. Pengguna dapat mencatat semua pengeluaran ATK. b. Pengguna dapat menampilkan tanggal pengambilan, nama, jabatan yang membutuhkan ATK. c. Pengguna dapat secara otomatis membuat laporan pengeluaran ATK.
BAB IV PERANCANGAN Setelah proses menganalisis, selanjutnya adalah melakukan perancangan. Perancangan dilakukan berdasarkan hasil analisa yang diperoleh. Didalam perancangan sistem akan menjelaskan proses dari setiap tahapan yang akan dilakukan didalam pengembangan aplikasi inventory ATK pada PT BPR Dana Bintan Sejahtera Tanjungpinang. 4.1
Perancangan Sistem Perancangan sistem adalah strategi untuk memecahkan masalah dan mengembangkan solusi terbaik bagi permasalahan itu. Perancangan sistem adalah termasuk bagaimana mengorganisasi sistem kedalam subsitemsubsistem, serta alokasi subsistem-subsitem ke komponen-komponen perangkat keras, perangkat lunak, serta prosedur-prosedur.1 Berdasarkan hasil analisa secara menyeluruh, maka dirancanglah sebuah aplikasi inventory ATK Pada PT BPR Dana Bintan Sejahtera Tanjungpinang, diharapkan sistem informasi yang dirancang dapat lebih baik dan lebih cepat dalam pemberian laporan-laporan yang dibutuhkan pimpinan, sehingga mampu mempercepat pekerjaan Bagian umum.
1
Adi Nugroho, analisis dan perancangan sistem informasi dengan metodologi berorientasi objek, informatika, Bandung, 2005 hal:203
49
50
4.1.1 Perancangan Diagram Alir Dokumen (Flowmap) Yang Diusulkan Pada flowmap yang diusulkan hanya menambahkan sistem manual dengan sistem komputerisasi. a.
Prosedur Pengajuan Pembelian ATK Yang Diusulkan a) Bagian umum membuat form pengajuan pembelian ATK sebanyak 2 (dua ) rangkap dan diserahkan kepada personalia untuk meminta persetujuan. b) Apabila tidak mendapatkan persetujuan dari personalia maka form
pengajuan
dikembalikan
pembelian
kepada
bagian
ATK
akan
umum.
ditolak
Jika
dan
personalia
memberikan persetujuan maka form pengajuan pembelian ATK ditandatangani dan dberikan kepada pimpinan untuk ditandatangani kembali. c) Setelah pimpinan mendatangani form pengajuan pembelian, form tersebut dikembalikan kepada personalia. Rangkap kedua arsip personalia dan rangkap pertama dikembalikan kepada bagian umum. d) Setelah form pengajuan pembelian ATK sudah diterima, bagian umum menginput kedalam database dan selanjutnya cetak purches order dan diserahkan kepada supplier.
51
Gambar 4.1 Flowmap Usulan Pengajuan Pembelian ATK
52
b.
Prosedur Penerimaan ATK Yang Diusulkan a) Bagian umum menerima faktur ATK sebanyak 2 (dua) dari supplier yang juga berisi data barang. b) Bagian umum akan mengecek sesuai dengan Purches Order jika tidak sesuai faktur akan dikembalikan kepada supplier dan jika sesuai faktur akan ditandatangani dan dikembalikan kepada supplier. c) Faktur tersebut akan diinput kedalam database sebagai data penerimaan dan bagian selanjutnya bagian umum mencetak laporan penerimaan ATK dan diberikan kepada personalia dan laporan penerimaan faktur ATK diberikan kepada Akunting Pelaporan.
53
Gambar 4.2 Flowmap Usulan Penerimaan ATK
54
c.
Prosedur Pengeluaran ATK Yang Diusulkan a) Unit kerja mengisi form permintaan dan diserahkan kepada bagian umum. b) Bagian umum melakukan pengecekan stok ATK yang diminta, jika stok tidak mencukupi maka bagian umum mengisi form pengajuan pembeliaan dan diserahkan kepada personalia dan jika stok mencukupi maka bagian umum akan menginput data pemesanan ATK kedalam database dan mencetak tanda terima barang dan diberikan kepada unit kerja. c) Setelah
menerima
tanda
terima
barang,
unit
kerja
menandatangani dan diberikan lagi kepada bagian umum. Selanjutnya bagian umum akan menginput data pengeluaran ATK kedalam database dan mencetak laporan pengeluaran sebanyak 3 rangkap dan diberikan kepada personalia dan pimpinan.
55
Flow Map Usulan Pengeluaran ATK Unit Kerja
Form Permintaan ATK
Bagian Umum
Personalia
Pimpinan
Form Permintaan ATK
Form Pengajuan Pembelian ATK Mengisi Form
Cek Stok
Tidak Form Permintaan ATK
Form Pengajuan Pembelian ATK
Ada
Ya
Input pemesanan ATK
Mengisi Form Pengaju an
Tanda Terima Form Pengajuan Pembelian ATK dbATK Ttd
Cetak tanda terima barang Tanda Terima
Tanda Terima
Tanda Terima
Input data Pengeluaran ATK
Cetak Laporan
Laporan Pengeluaran ATK
Laporan pengeluaran ATK
Laporan Pengeluaran ATK
Gambar 4.3 Flowmap Usulan Pengeluaran ATK
56
4.1.2 Perancangan Model Proses Sistem Model proses sistem digambarkan dalam bentuk diagram konteks dan Diagram Alir Data (DAD) atau Data Flow Diagram (DFD). a.
Diagram Konteks Diagram konteks merupakan gambaran sistem secara garis besar atau menyeluruh. Diagram konteks ini dirancang dengan memperhatikan masukan yang dibutuhkan oleh sistem dan keluaran yang dihasilkan oleh sistem itu sendiri. Diagram konteks pada Aplikasi Inventory ATK pada PT BPR Dana Bintan Sejahtera Tanjugpinang dapat dilihat pada gambar dibawah ini :
Gambar 4.4 Diagram Konteks b. Data Flow Diagram (DFD) DFD menggambarkan jaringan kerja antara fungsi yang berhubungan antara satu dengan yang lain dan menyimpan data sebagai perangkat analisis, model ini hanya mampu memodelkan sistem dari satu sudut pandang fungsi.
57
Terdapat empat komponen yaitu : Proses menunjukan tranpormasi dari masukan menjadi keluaran, sejumlah masukan dapat menjadi hanya satu keluaran atau sebaliknya, aliran komponen ini direpresentasikan dengan menggunakan panah yang menuju ke atau dari proses, penyimpanan yang memodelkan kumpulan data, dan terminator yang mewakili entity luar dimana sistem berkomunikasi. a) Data Flow Diagram Level 0
Data Penerimaan
Data Penerimaan
Data Pengajuan
Laporan Penerimaan, Laporan Pengeluaran
Data Pengeluaran
Gambar 4.5 DFD Level 0
58
b) Data Flow Diagram Level 1
Gambar 4.6 DFD Level 1 Proses 5.0
4.2
Kamus Data
Tabel 4.1 Kamus Data Barang Nama Deskripsi Struktur Data
Data barang merupakan Data Barang Kode_barang + Nama_barang + Stok + Satuan Kode_barang char (7) : 0000001 –9999999 Nama_barang varchar (20) : A-Z, a-z,0-9 Stok char (7) : 0000001 - 9999999 Satuan Char (2): A-Z, a-z
Tabel 4.2 Kamus Data Pemesanan Barang Nama Deskripsi Struktur Data
Pemesanan Barang merupakan data pemesanan barang No_pemesanan + Tgl_pemesanan + Kode_barang + Nama_barang+ Jumlah + Satuan No_pemesanan char (7) : 0000001 –9999999
59
Tgl_pemesanan Kode_barang Nama_barang Jumlah Satuan
Date (8) : dd/mm/yyyy char (7) : 0000001-9999999 varchar (20) : A-Z, a-z,0-9 Char (50) :0000001-9999999 Char (3) : A-Z, a-z
Tabel 4.3 Kamus Data penerimaan Barang Nama Deskripsi Struktur Data
Penerimaan Barang merupakan data penerimaan barang No_Pemesanan + No_Penerimaan + Tgl_penerimaan + Kode_barang+ Nama_barang + Jumlah + Harga + Satuan + No_faktur No_Pemesanan char (7) : 0000001 –9999999 No_Penerimaan Char (7) : 0000001-9999999 Tgl_penerimaan Date (8) : dd/mm/yyyy Kode_barang char (7): 0000001-9999999 Nama_barang Varchar (20) :A-Z,a-z,0-9 Jumlah Char (50) :0000001-9999999 Harga Char (50) :0000001-9999999 Satuan Char (3) : A-Z,a-z,0-9 No_faktur Char (7) :0000001-9999999
Tabel 4.4 Kamus Data Permintaan Barang Nama Deskripsi Struktur Data
Permintaan Barang merupakan data permintaan barang No_permintaan + Tgl_Permintaan + Kode_barang+ Nama_barang + Jumlah + Satuan + Nama+ Unit Kerja + Ket No_permintaan char (7) : 0000001 –9999999 Tgl_Permintaan Date (8) :dd/mm/yyyy Kode_barang Char (7) :0000001-9999999 Nama_barang Varchar (20) :A-Z,a-z,0-9 Jumlah char (50) :0000001-9999999 Satuan Char (3) : A-Z,a-z,0-9 Nama Varchar (50) : A-Z,a-z Unit kerja Varchar (50) :A-Z,a-z Ket Varchar (20) : A-Z, a-z
60
Tabel 4.5 Kamus Data Pengeluaran Barang Nama Deskripsi Struktur Data
4.3
Pengeluaran Barang merupakan data pengeluaran barang No_permintaan + No_pengeluaran+Tgl_pengeluaran + Kode_barang + Nama_barang + Jumlah + Satuan + Unit Kerja No_permintaan char (7) : 0000001 –9999999 No_pengeluaran Char (7) :0000001 - 99999999 Tgl_pengeluaran Date (8) :dd/mm/yyyy Kode_barang Char (7) :0000001-9999999 Nama_barang Varchar (20) :A-Z,a-z,0-9 Jumlah char (50) :0000001-9999999 Satuan Char (3) : A-Z,a-z,0-9 Unit kerja Varchar (50) :A-Z,a-z
Perancangan Model Data Perancangan ini terdiri dari diagram ER dan Struktur Tabel. 4.3.1 Entity Relationship Diagram ( ERD ) Suatu prosedur yang memberikan gambaran interaksi yang terjadi dalam sistem. ERD dari sistem ini dapat dilihat sebagai berikut
Gambar 4.7 ER-Diagram Penjelasan ERD : 1. Satu
supplier
memasukan
peneriamaan barang.
banyak
barang
dan
terjadi
61
2. Banyak unit kerja dapat meminta banyak barang dan dapat melakukan pengeluaran barang. 3. Banyak barang dibeli oleh satu bagian umum.
4.3.2 Struktur Tabel Dalam merancang dan mengimplementasikan suatu sistem yang baik, diperlukan suatu dasar atau basis data. Semakin baiknya rancangan basisdata maka akan menjamin kehandalan suatu sistem untuk memenuhi kebutuhan dalam perubahan sistem yang akan datang. Pada struktur tabel ini diperlihatkan tabel-tabel yang terdapat didalam aplikasi inventory ATK yang akan dirancang. Bentuk dari struktur tabel dapat dilihat sebagai berikut : Tabel 4.6 Tabel Data Barang No Nama_Field
Type
Size Keterangan
1
Kode_barang
Text
7
Primary Key
2
Nama_barang
Text
20
Not null
3
Stok
Number
int
4
Satuan
Text
5
62
Tabel 4.7 Tabel Pemesanan Barang No Nama_Field
Type
1
No_Pemesanan
Text
2
Tgl_pemesanan
Date
Size Keterangan 10
Primary key
Tabel 4.8 Detail Pemesanan Barang No
Nama_Field
Type
Size
Keterangan
1
Kode_barang
Text
7
Foreign key
2
Nama_barang
Text
20
Not null
3
Jumlah
Number
Int
Not null
4
Satuan
Text
5
Not null
Tabel 4.9 Tabel Penerimaan Barang No Nama_Field
Type
Size Keterangan
1
No_Penerimaan
Text
7
Primary key
2
No_pemesanan
Tetxt
7
Foreign key
3
Tgl_penerimaan
Date
63
Tabel 4.10 Detail Penerimaan Barang No Nama_Field
Type
Size Keterangan
1
No_penerimaan
Text
7
Foreigen key
2
Kode_barang
Text
7
Foreigen key
3
Nama_barang
Text
20
Not null
4
Jumlah
Number
Int
5
Harga
Number
Int
6
Satuan
Text
5
7
No_faktur
Text
7
Tabel 4.11 Tabel Permintaan Barang No Nama_Field
Type
Size Keterangan
1
No_permintaan
Text
7
Primary key
2
Tgl_Permintaan
Date
-
3
Kode_barang
Text
7
Foreigen key
4
Nama_barang
Text
20
Not null
5
Jumlah
Number
Int
6
Satuan
Text
5
7
Nama
Text
10
8
Unit Kerja
Text
10
9
Ket
Text
10
64
Tabel 4.12 Tabel Pengeluaran Barang No Nama_Field
Type
Size Keterangan
1
No_pengeluaran
Text
7
Primary key
2
No_permintaan
Text
7
Foreigen key
3
Tgl_pengeluaran
Date
-
4
Unit_kerja
Text
10
Tabel 4.13 Detail Pengeluaran Barang No Nama_Field
Type
Size Keterangan
1
No_pengeluaran
Text
7
Foreigen key
2
Kode_barang
Text
7
Foreigen key
3
Nama_barang
Text
20
Not null
4
Jumlah
Number
Int
5
Satuan
Text
5
65
4.3.3 Perancangan Struktur Menu Struktur menu yang digunakan dalam Aplikasi inventory ATK pada BPR Dana Bintan Sejahtera Tanjungpinang, yaitu:
Gambar 4.10 Struktur Menu Utama
1) Perancangan Struktur Program Struktur Program yang digunakan dalam Aplikasi inventory ATK pada BPR Dana Bintan Sejahtera Tanjungpinang, yaitu:
66
Gambar 4.11 Struktur Program 2) Perancangan Input Perancangan input ini biasanya dilakukan proses input, edit, simpan, hapus, dan cancel. Perancangan input ini dapat dilihat pada gambar dibawah ini : a. Form Input Data Barang
Gambar 4.12 Desain Input Data Barang
67
b.
Form Input Data Pemesanan
Gambar 4.13 Desain Input Data Pemesanan
c.
Form Input Data Penerimaan
Gambar 4.14 Desain Input Data Penerimaan d.
Form Input Data Permintaan
Gambar 4.15 Desain Input Data Permintaan
68
e. Form Input Data Pengeluaran
Gambar 4.16 Desain input Data Pengelauran
3) Perancangan Output a.
Desain Nota Pemesanan Barang
Gambar 4.17 Desain Output Data Pemesanan
69
b.
Desain Nota Penerimaan Barang
Gambar 4.18 Desain Output Data Penerimaan c.
Desain Tanda Terima Barang
Gambar 4.19 Desain Output Data Permintaan d.
Desain Laporan Penerimaan
Gambar 4.20 Desain Output Data Penerimaan
e.
Desain Laporan Pengeluaran
Gambar 4.21 Desain Output Data Pengeluaran
70
BAB V IMPLEMENTASI Bab ini penulis menguraikan beberapa hal yang dilakukan dalam proses pada sistem, kegiatan implementasi sistem ini meliputi kebutuhan perangkat lunak (implementasi ERD dan implementasi procedural/algoritma). Berikut penulis uraikan beberapa tahapan implementasi sistem. 5.1
Kebutuhan Perangkat Keras Perangkat keras yang diperlukan untuk keperluan menjalankan Perancangan Aplikasi Inventory Alat Tulis Kantor PT BPR Dana Bintan Sejahtera Tanjungpinang adalah dengan spesifikasi minimal sebagai berikut: 1. Processor yang digunakan Intel Pentium Processor T4400 ( 2.2 GHz, 800 MHz FSB ) 2. Harddisk terpasang 250 GB 3. Memori 1 GB 4. Mouse dan Keyboard 5. Monitor 6. Printer
5.2
Kebutuhan Perangkat Lunak Untuk mendukung rancangan sistem ini selain dibutuhkan perangkat keras, dibutuhkan juga perangkat lunak yang digunakn sebagai pendukung untuk menjalankan aplikasi diantaranya adalah :
70
71
5.3
1.
Sistem Operasi Microsoft Windows Xp.
2.
Software Vb.net 2008
3.
NET Framework 3.5
4.
Microsoft Access 2007.
5.
Crystal Report 8.5
Kegiatan Implementasi Kegiatan implementasi ini antra lain : a.
Pembuatan Program Pemrograman
merupakn
kegiatn
yang
sangat
menunjang
terselenggaranya aplikasi yang baru Karena pemrograman yang baik dan tersturktur dan menghasilkan suatu informasi sesuai dengan kebutuhan. Sebelum aplikasi diterapkan maka aplikasi harus diuji coba terlebih dahuli agar terbats dari kesalahan-kesalahan yang mungkin terjadi. Pengujian aplikasi dapat dilakukan untuk setiap modul program (Program Utama, Sub Program, Modul koneksi) yang dilanjutkan dengan pengujian semua modul untuk menyakinkan semua modul sudah terintegritas tanpa kesalahan. b.
Pengujian Sistem Pengujian Sistem ini dilakukan untuk memeriksa kekompakan antar komponen sistem dengan tujuan utamanya, selain itu juga untuk memastikan elemen-elemen sistem berfungsi sesuai dengan yang diharapkan.
72
c.
Pengujian Program Dengan pengujian program ini, diharapkan program dapat menerima dengan baik, memproses dan memberikan keluaran program yang baik pula. Tahap pengujian ini dilakukan menggunakan metode blackbox. Pengujian blackbox adalah pengujian yang berdasarkan fungsi dasar dari masing-masing proses pada program. Tahap pengujian ini dilakukan untuk proses input, misalnya input data pemesanan barang dan input data pengeluaran barang. Kemudian tahap selanjutnya dilakukan pengujian terhadap laporan-laporan yang dihasilkan oleh program. Ujicoba blackbox berusaha untuk menemukan kesalahan dalam beberapa ketegori, diantaranya :
5.4
1.
Fungsi-fungsi yang salah atau hilang
2.
Keslahan interface
3.
Kesalahan dalam struktur dan atau database eksternal
4.
Kesalahan performa
5.
Kesalahan inisialisasi dan terminasi.
Manual Instalasi 1.
Manual Program Pembuatan instalasi memanfaatkan fasilitas yang ada pada visual basic.Net sehingga mengahsilkan file ekstensi setup.exe.apabila kita jalankan maka program akan langsung terinstalasi pada komputer.
73
Untuk databasenya sudah langsung terkoneksi dengan program karena berada dalam direktori yang sama. 2.
Pemeliharan Sistem Agar data dalam database tersimpan dengan aman maka harus melakukan pemeliharaan data. hal ini sangat berguna agar data kita aman dari kehilangan data. Melakukan backup dengan cara mengcopy database accessnya dan sebaiknya dilakukan secara berkala.
5.5
Hasil Implementasi Hasil perancangan kedalam sebuah aplikasi yang kemudian akan memperlihatkan output sebagai hasil implementasi. Kegiatan implementasi meliputi implementasi basis data, implementasi antar muka. a.
Tampilan Form Login
Gambar 5.1 Tampilan Form Login
74
b.
Tampilan Menu Utama
Gambar 5.2 Form Tampilan Menu Utama c.
Tampilan Data Barang
Gambar 5.3 Form Tampilan Data Barang
75
d.
Tampilan Pemesanan Barang
Gambar 5.4 Form Tampilan Pemesanan Barang e.
Tampilan Penerimaan Barang
Gambar 5.5 Form Tampilan Penerimaan Barang
76
f.
Tampilan Permintaan Barang
Gambar 5.6 Form Tampilan Permintaan Barang g.
Tampilan Pengeluaran Barang
Gambar 5.7 Form Tampilan Pengeluaran Barang
77
h.
Tampilan Nota Pemesanan / Purches Order
Gambar 5.8 Form Tampilan Nota Pemesanan i. Tampilan Tanda Terima Barang
Gambar 5.9 Form Tampilan Tanda Terima Barang
78
j.
Laporan Penerimaan Barang
Gambar 5.10 Form Tampilan Laporan Penerimaan k.
Laporan Pengeluaran Barang
Gambar 5.11 Form Tampilan Laporan Pengeluaran
BAB VI PENUTUP
6.1
Kesimpulan Berdasarkan hasil yang didapat dalam pembuatan laporan kerja praktek ini, penulis menyimpulkan bahwa : 1.
Dengan diterapkannya sistem baru ini dapat mengontrol semua kegiatan dan proses pengerjaan mejadi lebih cepat serta tercapainya kemudahan dalam pembuatan laporan.
2.
Tercapainya tujuan untuk memperingan kerja Bagian Umum dalam hal pemesanan, penerimaan, serta pengeluaran barang.
3.
6.2
Pencarian data menjadi lebih mudah jika terjadi kesalahan.
Saran Dari kesimpulan di atas, maka penulis mengajukan beberapa saran sehubungan dengan penerapan dan pengembangan sistem lebih lanjut. Adapun saran-saran tersebut adalah sebagai berikut : 1.
Dalam penerapan sistem informasi yang baru ini harus diperhatikan kemampuan serta dukungan tenaga operasional, karena sistem in hanya sebagai
alat
yang
apabila
tanpa
ada
manusia
yang
bisa
mengendalikannya tidak akan bermanfaat bagi yang menggunakannya.
79
80
2.
Diperlukan back up data sebagai cadangan apabila terjadi suatu kerusakan terhadap media penyimpanan.
3.
Perlu perawatan dan pengembangan lebih lanjut agar program ini dapat memberikan pelayanan yang lebih baik.
DAFTAR PUSTAKA
Al Fatta, Hanif Analisis dan Perancangan Sistem Informasi, 2007, ANDI Yogyakarta Jogiyanto H. M., Sistem informasi penjualan halaman 11,Penerbit Bandung Nugroho, Adi, Analisis dan Perancangan Sistem dengan Metode Berorientasi Objek, Informatika, Hal:125, 2005, Bandung PT Elek Media Komputindo, Mudah Menguasai Microsoft Access 2007, Jakarta Rachmad Hakim S., Visual Basic 2008 for Pemula Banget, hal.2 Roger, S. Pressman, Ph.D, Rekayasa Perangkat Lunak, 2007, Edisi ke dua, ANDI Yogyakarta. Suyatno, M. Pengantar Teknologi Informasi, Hal 247, 2005, Yogyakarta http://www.sutrayani-komputer.blogspot.com/2012/03/pengertian -windows-xp
Login Public Class Login Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If (LCase(UsernameTextBox.Text) = LCase("juhendri") And PasswordTextBox.Text = "12345") Or (LCase(UsernameTextBox.Text) = LCase(" antoni") And PasswordTextBox.Text = "456") Then Menu_Utama.Show() Me.Hide() Menu_Utama.LAPToolStripMenuItem.Enabled = True Menu_Utama.DATAMASTERToolStripMenuItem.Enabled = True Else MessageBox.Show("Invalid password, please try again", "Invalid Password(", MessageBoxButtons.OK, MessageBoxIcon.Information) UsernameTextBox.Text = "" PasswordTextBox.Text = "" UsernameTextBox.Focus() End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub Menu Utama Public Class Menu_Utama Private Sub DATAPEMESANANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPEMESANANToolStripMenuItem.Click DataBarang.Show() Me.Hide() End Sub Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked End Sub Private Sub DATAPENERIMAANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENERIMAANToolStripMenuItem.Click pemesanan.Show() Me.Hide() End Sub
Private Sub DATAPERMNTAANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPERMNTAANToolStripMenuItem.Click PenerimaanBarang.Show() Me.Hide() End Sub Private Sub DATAPENGELUARANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPERMINTAANToolStripMenuItem.Click PermintaanBarang.Show() Me.Hide() End Sub Private Sub DATAPENGELUARANToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGELUARANToolStripMenuItem1.Click Form1.Show() Me.Hide() End Sub Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click Close() Login.Close() End Sub Private Sub LAPORANPENERIMAANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANPENERIMAANToolStripMenuItem.Click laporantransaksi.Show() End Sub Private Sub LAPORANPENGELUARANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANPENGELUARANToolStripMenuItem.Click cetaknota.Show() End Sub Private Sub LAPORANPENGELUARANToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANPENGELUARANToolStripMenuItem1.Click lapstok.Show() End Sub Private Sub Menu_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DATAMASTERToolStripMenuItem.Enabled = False LAPToolStripMenuItem.Enabled = False End Sub
Private Sub LOGINToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOGINToolStripMenuItem.Click Login.Show() End Sub End Class Data Barang Imports System.Data.OleDb Public Class DataBarang Dim stok As Integer Sub tampil() str = " select * from Barang" da = New OleDbDataAdapter(str, conn) ds = New DataSet ds.clear() da.Fill(ds, "Barang") dgv.DataSource = (ds.Tables("Barang")) End Sub Sub bersih() txtKode.Text = "" txtNama.Text = "" cmbsatuan.Text = "" End Sub Private Sub DataBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load koneksi() tampil() End Sub Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click Me.Dispose() Menu_Utama.Show() End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click str = " delete from barang where Kode_Barang='" & txtKode.Text & "'" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() MsgBox("Berhasil") tampil() bersih() End Sub Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click str = " update barang set Nama_barang='" & txtNama.Text & "',Satuan='" & cmbsatuan.Text & "' where Kode_barang='" & txtKode.Text & "'" cmd = New OleDbCommand(str, conn)
cmd.ExecuteNonQuery() MsgBox("Berhasil") tampil() bersih() End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click stok = 0 str = " insert into Barang values ('" & txtKode.Text & "','" & txtNama.Text & "','" & stok & "','" & cmbsatuan.Text & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() MsgBox("berhasil") tampil() bersih() End Sub Private Sub dgv_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellDoubleClick txtKode.Text = dgv.SelectedCells(0).Value txtNama.Text = dgv.SelectedCells(1).Value cmbsatuan.Text = dgv.SelectedCells(3).Value End Sub Private Sub txtNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNama.KeyPress If Not ((e.KeyChar >= "a" And e.KeyChar <= "z") Or e.KeyChar = vbBack) Then e.Handled = True End Sub End Class Data Pemesanan Imports System.Data.OleDb Public Class pemesanan Sub bersih() txtno.Text = "" autofaktur() txtjml.Text = "" txtnama.Text = "" txtkd.Text = "" txtstok.Text = "" End Sub Sub autofaktur() cmd = New OleDbCommand("select * from Pemesanan where No_Pemesanan in (select max(No_Pemesanan) from Pemesanan) order by No_Pemesanan desc", conn) Dim urutan As String Dim hitung As Long rd = cmd.ExecuteReader
rd.Read() If Not rd.HasRows Then urutan = Format(Now, "yyMMdd") + "0001" Else If Microsoft.VisualBasic.Left(rd.GetString(0), 6) <> Format(Now, "yyMMdd") Then urutan = Format(Now, "yyMMdd") + "0001" Else hitung = rd.GetString(0) + 1 urutan = Format(Now, "yyMMdd") + Microsoft.VisualBasic.Right("0000" & hitung, 4) End If End If txtno.Text = urutan End Sub Sub listview() With ListView1 .View = View.Details .FullRowSelect = True .Items.Clear() .Columns.Clear() .Columns.Add("Kode Barang", 105, HorizontalAlignment.Left) .Columns.Add("Nama barang", 185, HorizontalAlignment.Left) .Columns.Add("Jumlah ", 60, HorizontalAlignment.Left) .Columns.Add("Satuan", 100, HorizontalAlignment.Left) End With End Sub Private Sub pemesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load koneksi() listview() lbltgl.Text = Today autofaktur() End Sub Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click Me.Dispose() Menu_Utama.Show() End Sub Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click Dim add As Boolean = False If txtkd.Text = "" Or txtjml.Text = "" Then MsgBox("Data Belum Lengkap") Exit Sub ElseIf txtjml.Text = "0" Then MsgBox("Jumlah tidak boleh 0") Exit Sub Else Dim i As Integer For i = 0 To ListView1.Items.Count - 1
If (ListView1.Items.Item(i).SubItems(0).Text).ToString = txtkd.Text.ToUpper Then ListView1.Items.Item(i).SubItems(1).Text = ListView1.Items.Item(i).SubItems(1).Text add = True Exit Sub Else add = False End If Next i If add = False Then Dim Myitem As New ListViewItem(txtkd.Text.ToUpper) Myitem.SubItems.Add(txtnama.Text) Myitem.SubItems.Add(txtjml.Text) Myitem.SubItems.Add(cmbsatuan.Text) ListView1.Items.Add(Myitem) txtkd.Text = "" txtnama.Text = "" txtjml.Text = "" cmbsatuan.Text = "" txtjml.Focus() End If End If End Sub Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click cari2.Show() End Sub Private Sub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click If Not txtkd.Text = "" Then ListView1.FocusedItem.Remove() txtkd.Text = "" txtnama.Text = "" cmbsatuan.Text = "" txtstok.Text = "" Else MessageBox.Show(" Silahkan Pilih Data Barang Yang akan DiHapus") Exit Sub End If txtkd.Focus() End Sub Private Sub txtkd_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtkd.TextChanged str = "select * from barang where Kode_Barang ='" & txtkd.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader
rd.Read() If rd.HasRows Then txtnama.Text = rd.GetString(1) txtstok.Text = rd.GetValue(2) cmbsatuan.Text = rd.GetString(3) End If End Sub Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged txtkd.Text = ListView1.FocusedItem.SubItems(0).Text End Sub Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click bersih() End Sub Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click str = "insert into Pemesanan values ('" & txtno.Text & "','" & lbltgl.Text & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() For i As Integer = 0 To ListView1.Items.Count - 1 str = " insert into pemesanandetail " _ & " (No_pemesanan, " _ & " Kode_Barang, " _ & " Nama_Barang, " _ & " Jumlah, " _ & " Satuan) " _ & " values " _ & "('" & txtno.Text & "'," _ & " '" & ListView1.Items(i).SubItems(0).Text.ToString & "', " _ & " '" & ListView1.Items(i).SubItems(1).Text.ToString & "', " _ & " '" & CDbl(ListView1.Items(i).SubItems(2).Text.ToString) & "', " _ & " '" & ListView1.Items(i).SubItems(3).Text.ToString & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() Next i MsgBox("Berhasil") bersih() listview() End Sub Private Sub txtjml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtjml.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub End Class Data Penerimaan Imports System.Data.OleDb Public Class PenerimaanBarang Sub bersih() txtfaktur.Text = "" txtHarga.Text = "" txtJml.Text = "" txtKdBarang.Text = "" txtNamaBarang.Text = "" txtno.Text = "" End Sub Sub listview() With ListView1 .View = View.Details .FullRowSelect = True .Items.Clear() .Columns.Clear() .Columns.Add("Kode Barang", 105, HorizontalAlignment.Left) .Columns.Add("Nama barang", 185, HorizontalAlignment.Left) .Columns.Add("Jumlah", 60, HorizontalAlignment.Left) .Columns.Add("Harga", 80, HorizontalAlignment.Left) .Columns.Add("Satuan", 100, HorizontalAlignment.Left) End With End Sub Private Sub PenerimaanBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load koneksi() lbltgl.Text = Today listview() txtfaktur.Enabled = False txtKdBarang.Enabled = False bersih() End Sub Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click Me.Dispose() Menu_Utama.Show() End Sub Private Sub txtno_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtno.KeyPress If e.KeyChar = Chr(13) Then With ListView2 .Items.Clear() .Columns.Clear() .Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 150, HorizontalAlignment.Left) .Columns.Add("Jumlah", 60, HorizontalAlignment.Right) .Columns.Add("Satuan", 80, HorizontalAlignment.Left) End With str = "select * from pemesanandetail where No_pemesanan ='" & txtno.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader Do While rd.Read Dim myItem As New ListViewItem(rd.Item("Kode_Barang").ToString) myItem.SubItems.Add(rd.Item("Nama_Barang")) myItem.SubItems.Add(rd.Item("Jumlah")) myItem.SubItems.Add(rd.Item("Satuan")) ListView2.Items.Add(myItem) txtfaktur.Enabled = True txtKdBarang.Enabled = True Loop End If End Sub Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click Dim add As Boolean = False If txtKdBarang.Text = "" Or txtJml.Text = "" Then MsgBox("Data Belum Lengkap") Exit Sub ElseIf txtJml.Text = 0 Then MsgBox("Jumlah tidak boleh 0") Exit Sub Else str = "select * from pemesanandetail where no_pemesanan='" & txtno.Text & "' and Kode_Barang='" & txtKdBarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then If txtJml.Text > rd.Item(3) Then MsgBox("pemesanan Barang Hanya ada " & rd.Item(3) & "") txtJml.Text = "" txtJml.Focus() Else Dim i As Integer For i = 0 To ListView1.Items.Count - 1 If (ListView1.Items.Item(i).SubItems(0).Text).ToString = txtKdBarang.Text.ToUpper Then
ListView1.Items.Item(i).SubItems(1).Text = ListView1.Items.Item(i).SubItems(1).Text add = True Exit Sub Else add = False End If Next i If add = False Then Dim Myitem As New ListViewItem(txtKdBarang.Text.ToUpper) Myitem.SubItems.Add(txtNamaBarang.Text) Myitem.SubItems.Add(txtJml.Text) Myitem.SubItems.Add(txtHarga.Text) Myitem.SubItems.Add(cmbsatuan.Text) ListView1.Items.Add(Myitem) txtKdBarang.Text = "" txtNamaBarang.Text = "" txtJml.Text = "" txtHarga.Text = "" cmbsatuan.Text = "" txtKdBarang.Focus() End If End If Else MsgBox("Barang Tidak Terdaftar") txtKdBarang.Text = "" txtNamaBarang.Text = "" txtJml.Text = "" txtHarga.Text = "" cmbsatuan.Text = "" End If End If End Sub Private Sub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click If Not txtKdBarang.Text = "" Then ListView1.FocusedItem.Remove() txtKdBarang.Text = "" txtNamaBarang.Text = "" cmbsatuan.Text = "" Else MessageBox.Show(" Silahkan Pilih Data Barang Yang akan DiHapus") Exit Sub End If txtKdBarang.Focus() End Sub Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As
System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged txtKdBarang.Text = ListView1.FocusedItem.SubItems(0).Text End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click bersih() End Sub Private Sub txtKdBarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKdBarang.TextChanged str = "select * from barang where Kode_Barang ='" & txtKdBarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then txtNamaBarang.Text = rd.GetString(1) cmbsatuan.Text = rd.GetString(3) End If End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click str = "insert into Penerimaan values ('" & txtfaktur.Text & "','" & txtno.Text & "','" & lbltgl.Text & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() For i As Integer = 0 To ListView1.Items.Count - 1 str = " insert into penerimaandetail " _ & " (no_faktur, " _ & " Kode_Barang, " _ & " Nama_Barang, " _ & " Jumlah, " _ & " Harga, " _ & " Satuan) " _ & " values " _ & "('" & txtfaktur.Text & "'," _ & " '" & ListView1.Items(i).SubItems(0).Text.ToString & "', " _ & " '" & ListView1.Items(i).SubItems(1).Text.ToString & "', " _ & " '" & CDbl(ListView1.Items(i).SubItems(2).Text.ToString) & "', " _ & " '" & CDbl(ListView1.Items(i).SubItems(3).Text.ToString) & "', " _ & " '" & ListView1.Items(i).SubItems(4).Text.ToString & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() str = "select stok from Barang where Kode_barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "'" cmd = New OleDbCommand(str, conn)
rd = cmd.ExecuteReader rd.Read() str = "update barang set stok='" & rd.Item(0) + CDbl(ListView1.Items(i).SubItems(2).Text) & "' where Kode_barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "'" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() Next i For i As Integer = 0 To ListView1.Items.Count - 1 Dim qryupdate As String = "select Jumlah from pemesanandetail where Kode_Barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "'" cmd = New OleDbCommand(qryupdate, conn) rd = cmd.ExecuteReader rd.Read() Dim qryupdate2 As String = "update pemesanandetail set Jumlah='" & rd.Item(0) - CDbl(ListView1.Items(i).SubItems(2).Text) & "' where Kode_barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "' and No_pemesanan='" & txtno.Text & "'" cmd = New OleDbCommand(qryupdate2, conn) cmd.ExecuteNonQuery() Next i MsgBox("Berhasil") bersih() listview() End Sub Private Sub txtJml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJml.KeyPress If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub
Private Sub txtHarga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtHarga.KeyPress If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub End Class Data Permintaan Imports System.Data.OleDb Public Class PermintaanBarang Sub listview() With ListView1 .View = View.Details .FullRowSelect = True .Items.Clear() .Columns.Clear()
.Columns.Add("Kode Barang", 105, HorizontalAlignment.Left) .Columns.Add("Nama barang", 185, HorizontalAlignment.Left) .Columns.Add("Jumlah ", 60, HorizontalAlignment.Left) .Columns.Add("Satuan", 100, HorizontalAlignment.Left) End With End Sub Sub bersih() txtNama.Text = "" txtPermintaan.Text = "" cmbunit.Text = "" autofaktur() listview() End Sub Sub autofaktur() cmd = New OleDbCommand("select * from Permintaan where No_permintaan in (select max(No_permintaan) from Permintaan) order by No_permintaan desc", conn) Dim urutan As String Dim hitung As Long rd = cmd.ExecuteReader rd.Read() If Not rd.HasRows Then urutan = Format(Now, "yyMMdd") + "0001" Else If Microsoft.VisualBasic.Left(rd.GetString(0), 6) <> Format(Now, "yyMMdd") Then urutan = Format(Now, "yyMMdd") + "0001" Else hitung = rd.GetString(0) + 1 urutan = Format(Now, "yyMMdd") + Microsoft.VisualBasic.Right("0000" & hitung, 4) End If End If txtPermintaan.Text = urutan End Sub Private Sub PermintaanBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load koneksi() autofaktur() bersih() lbltgl.Text = Today End Sub Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click Dim add As Boolean = False If txtKdBarang.Text = "" Or txtJml.Text = "" Then MsgBox("Data Belum Lengkap") Exit Sub ElseIf txtJml.Text = 0 Then MsgBox("Jumlah tidak boleh 0") Exit Sub Else Dim i As Integer
For i = 0 To ListView1.Items.Count - 1 If (ListView1.Items.Item(i).SubItems(0).Text).ToString = txtKdBarang.Text.ToUpper Then ListView1.Items.Item(i).SubItems(1).Text = ListView1.Items.Item(i).SubItems(1).Text add = True Exit Sub Else add = False End If Next i If add = False Then Dim Myitem As New ListViewItem(txtKdBarang.Text.ToUpper) Myitem.SubItems.Add(txtNamaBarang.Text) Myitem.SubItems.Add(txtJml.Text) Myitem.SubItems.Add(cmbSatuan.Text) ListView1.Items.Add(Myitem) txtKdBarang.Text = "" txtNamaBarang.Text = "" txtJml.Text = "" cmbSatuan.Text = "" txtKdBarang.Focus() End If End If End Sub Private Sub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click If Not txtKdBarang.Text = "" Then ListView1.FocusedItem.Remove() txtKdBarang.Text = "" txtNamaBarang.Text = "" cmbsatuan.Text = "" Else MessageBox.Show(" Silahkan Pilih Data Barang Yang akan DiHapus") Exit Sub End If txtKdBarang.Focus() End Sub Private Sub txtKdBarang_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtKdBarang.TextChanged str = "select * from barang where Kode_Barang ='" & txtKdBarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then txtNamaBarang.Text = rd.GetString(1) cmbsatuan.Text = rd.GetString(3) End If End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged txtKdBarang.Text = ListView1.FocusedItem.SubItems(0).Text End Sub Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click Me.Dispose() Menu_Utama.Show() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click bersih() End Sub Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click caribarang.Show() End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click str = "insert into Permintaan values ('" & txtPermintaan.Text & "','" & lbltgl.Text & "','" & txtNama.Text & "','" & cmbunit.Text & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() For i As Integer = 0 To ListView1.Items.Count - 1 str = " insert into permintaandetail " _ & " (No_permintaan, " _ & " Kode_Barang, " _ & " Nama_Barang, " _ & " Jumlah, " _ & " Satuan) " _ & " values " _ & "('" & txtPermintaan.Text & "'," _ & " '" & ListView1.Items(i).SubItems(0).Text.ToString & "', " _ & " '" & ListView1.Items(i).SubItems(1).Text.ToString & "', " _ & " '" & CDbl(ListView1.Items(i).SubItems(2).Text.ToString) & "', " _ & " '" & ListView1.Items(i).SubItems(3).Text.ToString & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() Next i MsgBox("Berhasil") bersih() listview()
End Sub Private Sub txtJml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJml.KeyPress If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub End Class Data Pengeluaran Imports System.Data.OleDb Public Class Form1 Sub bersih() txtJml.Text = "" txtKdBarang.Text = "" txtNamaBarang.Text = "" txtPengeluaran.Text = "" txtPermintaan.Text = "" cmbsatuan.Text = "" cmbunit.Text = "" listpermintaan.Items.Clear() listpermintaan.Columns.Clear() End Sub Sub listview() With ListView1 .View = View.Details .FullRowSelect = True .Items.Clear() .Columns.Clear() .Columns.Add("Kode Barang", 105, HorizontalAlignment.Left) .Columns.Add("Nama barang", 185, HorizontalAlignment.Left) .Columns.Add("Jumlah ", 60, HorizontalAlignment.Left) .Columns.Add("Satuan", 100, HorizontalAlignment.Left) End With End Sub Sub auto() cmd = New OleDbCommand("select * from Pengeluaran where No_pengeluaran in (select max(No_pengeluaran) from Pengeluaran) order by No_pengeluaran desc", conn) Dim urutan As String Dim hitung As Long rd = cmd.ExecuteReader rd.Read() If Not rd.HasRows Then urutan = Format(Now, "yyMMdd") + "0001" Else If Microsoft.VisualBasic.Left(rd.GetString(0), 6) <> Format(Now, "yyMMdd") Then urutan = Format(Now, "yyMMdd") + "0001" Else hitung = rd.GetString(0) + 1 urutan = Format(Now, "yyMMdd") + Microsoft.VisualBasic.Right("0000" & hitung, 4) End If
End If txtPengeluaran.Text = urutan End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load koneksi() txtPengeluaran.Enabled = False cmbunit.Enabled = False bersih() lbltgl2.Text = Today listview() End Sub Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click Me.Dispose() Menu_Utama.Show() End Sub Private Sub txtPermintaan_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPermintaan.KeyDown If e.KeyCode = Keys.Enter Then With listpermintaan .Items.Clear() .Columns.Clear() .Columns.Add("Kode Barang", 80, HorizontalAlignment.Left) .Columns.Add("Nama Barang", 150, HorizontalAlignment.Left) .Columns.Add("Stok", 60, HorizontalAlignment.Right) .Columns.Add("Satuan", 80, HorizontalAlignment.Left) End With str = "select * from permintaandetail where No_permintaan ='" & txtPermintaan.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader Do While rd.Read Dim myItem As New ListViewItem(rd.Item("Kode_Barang").ToString) myItem.SubItems.Add(rd.Item("Nama_Barang")) myItem.SubItems.Add(rd.Item("Jumlah")) myItem.SubItems.Add(rd.Item("Satuan")) listpermintaan.Items.Add(myItem) Loop auto() cmbunit.Enabled = True Else End If End Sub
Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click Dim add As Boolean = False If txtKdbarang.Text = "" Or txtJml.Text = "" Then MsgBox("Data Belum Lengkap") Exit Sub ElseIf txtJml.Text = 0 Then MsgBox("Jumlah tidak boleh 0") Exit Sub Else str = "select * from permintaandetail where no_permintaan='" & txtPermintaan.Text & "' and Kode_Barang='" & txtKdbarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then If txtJml.Text > rd.Item(3) Then MsgBox("permintaan Barang Hanya ada " & rd.Item(3) & "") txtJml.Text = "" txtJml.Focus() Exit Sub End If End If str = "select stok from barang where Kode_Barang='" & txtKdbarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then If txtJml.Text > rd.Item(0) Then MsgBox("Stok Barang Tidak Mencukupi") txtJml.Text = "" txtJml.Focus() Else Dim i As Integer For i = 0 To ListView1.Items.Count - 1 If (ListView1.Items.Item(i).SubItems(0).Text).ToString = txtKdbarang.Text.ToUpper Then ListView1.Items.Item(i).SubItems(1).Text = ListView1.Items.Item(i).SubItems(1).Text add = True Exit Sub Else add = False End If Next i If add = False Then Dim Myitem As New ListViewItem(txtKdbarang.Text.ToUpper) Myitem.SubItems.Add(txtNamaBarang.Text) Myitem.SubItems.Add(txtJml.Text)
Myitem.SubItems.Add(cmbsatuan.Text) ListView1.Items.Add(Myitem) txtKdbarang.Text = "" txtNamaBarang.Text = "" txtJml.Text = "" cmbsatuan.Text = "" txtKdbarang.Focus() End If End If Else MsgBox("Barang Tidak Terdaftar") txtKdbarang.Text = "" txtNamaBarang.Text = "" txtJml.Text = "" cmbsatuan.Text = "" End If End If End Sub Private Sub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click If Not txtKdbarang.Text = "" Then ListView1.FocusedItem.Remove() txtKdbarang.Text = "" txtNamaBarang.Text = "" cmbsatuan.Text = "" Else MessageBox.Show(" Silahkan Pilih Data Barang Yang akan DiHapus") Exit Sub End If txtKdbarang.Focus() End Sub Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged txtKdbarang.Text = ListView1.FocusedItem.SubItems(0).Text End Sub Private Sub txtKdbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKdbarang.TextChanged str = "select * from barang where Kode_Barang ='" & txtKdbarang.Text & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then txtNamaBarang.Text = rd.GetString(1) cmbsatuan.Text = rd.GetString(3) End If End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click str = "insert into Pengeluaran values ('" & txtPengeluaran.Text & "','" & txtPermintaan.Text & "','" & lbltgl2.Text & "','" & cmbunit.Text & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() For i As Integer = 0 To ListView1.Items.Count - 1 str = " insert into pengeluarandetail " _ & " (No_pengeluaran, " _ & " Kode_Barang, " _ & " Nama_Barang, " _ & " Jumlah, " _ & " Satuan) " _ & " values " _ & "('" & txtPengeluaran.Text & "'," _ & " '" & ListView1.Items(i).SubItems(0).Text.ToString & "', " _ & " '" & ListView1.Items(i).SubItems(1).Text.ToString & "', " _ & " '" & CDbl(ListView1.Items(i).SubItems(2).Text.ToString) & "', " _ & " '" & ListView1.Items(i).SubItems(1).Text.ToString & "')" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() str = "select stok from Barang where Kode_barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "'" cmd = New OleDbCommand(str, conn) rd = cmd.ExecuteReader rd.Read() str = "update barang set stok='" & rd.Item(0) CDbl(ListView1.Items(i).SubItems(2).Text) & "' where Kode_barang='" & listpermintaan.Items(i).SubItems(0).Text.ToString & "'" cmd = New OleDbCommand(str, conn) cmd.ExecuteNonQuery() Next i For i As Integer = 0 To ListView1.Items.Count - 1 Dim qryupdate As String = "select Jumlah from permintaandetail where No_permintaan='" & txtPermintaan.Text & "'" cmd = New OleDbCommand(qryupdate, conn) rd = cmd.ExecuteReader rd.Read() Dim qryupdate2 As String = "update permintaandetail set Jumlah='" & rd.Item(0) CDbl(ListView1.Items(i).SubItems(2).Text) & "' where Kode_barang='" & ListView1.Items(i).SubItems(0).Text.ToString & "' and No_permintaan='" & txtPermintaan.Text & "'" cmd = New OleDbCommand(qryupdate2, conn) cmd.ExecuteNonQuery() Next i
MsgBox("Berhasil") bersih() listview() End Sub Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click bersih() End Sub End Class
Laporan Transaksi Public Class laporantransaksi Private Sub btntampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntampil.Click If cmbpilih.Text = "PENGELUARAN" Then crv.RefreshReport() crv.SelectionFormula = "{Pengeluaran.Tgl_pengeluaran} >= #" & Format(dttgl1.Value, " dd/MM/yyyy") & "# and {Pengeluaran.Tgl_pengeluaran} <= #" & Format(dttgl2.Value, "dd/MM/yyyy") & "#" crv.ReportSource = "laporan pengeluaran.rpt" crv.RefreshReport() ElseIf cmbpilih.Text = "PENERIMAAN" Then crv.RefreshReport() crv.SelectionFormula = "{Penerimaan.Tgl_penerimaan} >= #" & Format(dttgl1.Value, " dd/MM/yyyy") & "# and {Penerimaan.Tgl_penerimaan} <= #" & Format(dttgl2.Value, "dd/MM/yyyy") & "#" crv.ReportSource = "laporan penerimaan.rpt" crv.RefreshReport() ElseIf cmbpilih.Text = "PEMESANAN" Then crv.RefreshReport() crv.SelectionFormula = "{Pemesanan.Tgl_pemesanan} >= #" & Format(dttgl1.Value, " dd/MM/yyyy") & "# and {Pemesanan.Tgl_pemesanan} <= #" & Format(dttgl2.Value, "dd/MM/yyyy") & "#" crv.ReportSource = "laporan pemesanan.rpt" crv.RefreshReport() ElseIf cmbpilih.Text = "PERMINTAAN" Then crv.RefreshReport() crv.SelectionFormula = "{Permintaan.Tgl_permintaan} >= #" & Format(dttgl1.Value, " dd/MM/yyyy") & "# and {Permintaan.Tgl_permintaan} <= #" & Format(dttgl2.Value, "dd/MM/yyyy") & "#" crv.ReportSource = "laporan permintaaan.rpt" crv.RefreshReport() End If End Sub End Class
Cetak Nota Public Class cetaknota Private Sub btntampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntampil.Click If cmbkategori.Text = "PENERIMAAN" Then crv.RefreshReport() crv.SelectionFormula = "{Penerimaan.no_faktur}='" & txtno.Text & "'" crv.ReportSource = "nota penerimaan.rpt" crv.RefreshReport() ElseIf cmbkategori.Text = "PERMINTAAN" Then crv.RefreshReport() crv.SelectionFormula = "{Permintaan.No_Permintaan}='" & txtno.Text & "'" crv.ReportSource = "nota permintaan.rpt" crv.RefreshReport() ElseIf cmbkategori.Text = "PENGELUARAN" Then crv.RefreshReport() crv.SelectionFormula = "{Pengeluaran.No_pengeluaran}='" & txtno.Text & "'" crv.ReportSource = "nota barang.rpt" crv.RefreshReport() Else crv.RefreshReport() crv.SelectionFormula = "{Pemesanan.No_Pemesanan}='" & txtno.Text & "'" crv.ReportSource = "nota pemesanan.rpt" crv.RefreshReport() End If End Sub End Class Stok Barang Public Class lapstok Private Sub lapstok_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load crv.RefreshReport() crv.ReportSource = "stok barang.rpt" End Sub End Class
