Abstract image of a woman sitting on books and studying on a laptop

Rancangan Sistem Informasi Penjualan Tunai pada Metedologi Berorientasi obyek pada counter (Tugas Akhir Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang)

Jacob Dwi Cristian Umboh, profile picture
Jacob Dwi Cristian Umboh

1. Counter ADA CELL menjual berbagai merek HP, aksesoris, dan jasa servis HP secara grosir dan eceran. 2. Proses penjualan dan pencatatan masih dilakukan secara manual, sehingga sering terjadi kesalahan. 3. Laporan penjualan sulit dibuat dengan baik karena data yang berantakan.

1 of 161
Downloaded 2,264 times
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
Rancangan Sistem Informasi Penjualan Tunai pada Metedologi Berorientasi obyek pada counter (Tugas Akhir Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang)
    RANCANGAN SISTEM INFORMASI PENJUALAN TUNAI PADA COUNTER ADA CELL PANGKALPINANG DENGAN METODOLOGI BERORIENTASI OBYEK TUGAS AKHIR Diajukan sebagai syarat meraih Gelar Ahli Madya Oleh : JACOB DWI KRISTIAN UMBOH 0844300113 PROGRAM STUDI KOMPUTERISASI AKUNTANSI STMIK ATMA LUHUR PANGKALPINANG JULI 2011
Rancangan Sistem Informasi Penjualan Tunai pada Metedologi Berorientasi obyek pada counter (Tugas Akhir Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang)
ABSTRAKSI Counter ADA CELL Pangaklpinang adalah suatu bidang usaha yang bergerak dibidang penjualan. Counter ADA CELL Menjual Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya. Counter ADA CELL beralamat di Jl. Depati Amir Pangkalpinang. Counter tersebut berdiri sejak bulan juni dan pemilik dari Counter ADA CELL adalah bapak Awen (Aming). Bidang usaha yang dikembangkan adalah sistem operasi mencakup kegiatan dibidang penjualan yang pemasokan langsung dari pelanggan yang kemudian dipasarkan kembali kepada pelanggan. Proses penjualan tunai pada Counter ADA CELL dimulai dengan pembuatan data dan harga barang oleh pimpinan/ pemilik perusahaan yang kemudian diserahkan ke bagian penjualan dan pemesanan barang oleh pelanggan. Proses pencatatan dan perhitungan yang dilakukan pada Counter ADA CELL sampai saat ini masih bersifat manual. Oleh karena itu, sering kala terjadi kesalahan-kesalahan dalam melaksanakan proses-proses pengolahan data transaksi penjualan. Diantaranya sering terjadi kesalahan dalam pencatatan data pelanggan, data barang, keterlambatan transaksi atau transaksi yang dijalankan terlalu lama, bahkan dalam proses pembuatan Laporan Penjualan pun masih terlihat berantakan dan berserakan kemana-kamana sehingga tidak sesuai dengan pemasokan yang dihasilkan. Oleh karna itu, hal ini menjadi masalah bagi Counter ADA CELL karena sulitnya mengetahui keuntungan dan kerugian yang diperoleh setiap bulan dan pertahunan, maka dari itu belum adanya sistem yang terkomputerisasi yang membuat proses penulisan, pencatatan dan penghitungan transaksi menjadi lambat dan tidak efektif. Oleh karena itu penulis ingin membuatkan suatu sistem penjualan tunai yang terkomputerisasi sehingga masalah yang terdapat pada Counter ADA CELL bisa teratasi dan berjalan dengan sangat baik. i   
KATA PENGANTAR Puji syukur penulis panjatkan kepada Allah SWT, karena atas berkat, rahmat dan segala karunia yang telah dilimpahkanNya jualah penulis dapat menyelesaikan Tugas Akhir pada Counter Ada Cell – Pangkalpinang. Tugas Akhir ini dibuat untuk memenuhi salah satu syarat yang harus ditempuh untuk menyelesaikan program studi diploma tiga (D3) Jurusan Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang. Pada kesempatan ini penulis mengambil topik dalam penulisan laporan Tugas Akhir ( TA ) adalah Rancangan Sistem Informasi Penjualan Tunai pada Counter Ada Cell - Pangkalpinang. Dalam proses penyusunan laporan Tugas Akhir ( TA ) ini, penulis banyak mendapatkan bantuan moril maupun materil dari berbagai pihak. Untuk itu penulis menghaturkan rasa hormat dan terima kasih banyak kepada : 1. Allah SWT yang telah memberikan kemudahan bagiku untuk menyelesaikan tugas akhir ini. 2. Keluarga saya terutama kedua orangtua saya dan kakak saya yang telah memberikan bantuan baik moril maupun spiritual, kasih sayang, dukungan serta do’a yang tulus kepada saya. 3. Bapak Dr. Moedjiono, M.Sc selaku Ketua STMIK Atma Luhur Pangkalpinang. 4. Bapak Bambang Adiwinoto, S.Kom., M.Kom selaku pembantu ketua bidang akademik STMIK Atma Luhur Pangkalpinang. 5. Ibu Yuyi Andrika, M.Kom, selaku Ketua Program Studi Komputerisasi Akuntansi. 6. Ibu Fitriyanti, M.Kom, selaku dosen pembimbing Tugas Akhir yang telah membina dan membimbing dalam mengerjakan Tugas Akhir selama 3 bulan. 7. Bapak Ari Amir M.Kodri, S.Kom, M.Kom dan Ibu Melati Suci M, M.Kom selaku sebagai dosen penguji yang telah menguji dalam berlangsungnya tugas akhir ini. ii   
8. Bapak Awen/Aming, selaku Pemilik Counter ADA CELL Pangkalpinang yang telah memberikan izin tanpa mempersulit penulis dalam menyesaikan laporan Tugas Akhir ini. 9. Ibu Alen, selaku karyawan bagian penjualan Counter ADA CELL Pangkalpinang yang telah membantu penulis dalam menyesaikan laporan Tugas Akhir ini. 10. Sahabat–sahabat seperjuangan terutama semua kelompok jurusan komputerisasi akuntansi STMIK Atma Luhur adan teman–taman lainnya yang telah memberikan semangat, bantuan kecil dan sedikit hiburan diwaktu kosong dalam melepas kesibukan selama pengerjaan Tugas Akhir. 11. Semua pihak yang telah membantu penulisan laporan Tugas Akhir ini serta teman-teman yang lain yang tidak dapat disebut satu persatu. Penulis menyadari bahwa mungkin laporan Tugas Akhir ini mempunyai sedikit kekurangan, karena itu penulis mengharapkan kritik dan saran yang bersifat membangun sehingga berguna sebagai bahan masukan dan guna meningkatkan mutu dari laporan Tugas Akhir ini. Akhir kata penulis berharap semoga laporan ini berguna bagi para pembaca umumnya dan teman-teman mahasiswa/mahasiswi STMIK Atma Luhur khususnya. Pangkalpinang, Penulis iii    Juli 2011
DAFTAR GAMBAR Halaman Gambar III.1 : Struktur Organisasi pada Counter ADA CELL .............................37 Gambar III.2 : Activity Diagram Pencatatan Daftar Harga Barang .......................41 Gambar III.3 : Activity Diagram Transaksi Penjualan dan Pembayaran ..............42 Gambar III.4 : Activity Diagram Pembuatan Laporan Penjualan ..........................43 Gambar III.5 : Tabel Rekening ..............................................................................46 Gambar III.6 : Struktur Rekening ..........................................................................47 Gambar III.7 : Usecase Diagram ...........................................................................51 Gambar IV.1 : Entity Relationship Diagram (ERD) ..............................................57 Gambar IV.2 : Transformasi ERD ke LRS ............................................................58 Gambar IV.3 : Logical Record Structure (LRS).....................................................59 Gambar IV.4 : Struktur Tampilan ..........................................................................71 Gambar IV.5 : Rancangan Layar Form Menu Utama ...........................................72 Gambar IV.6 : Rancangan Layar Form Master .....................................................72 Gambar IV.7 : Rancangan Layar Form Entry Data Barang ..................................73 Gambar IV.8 : Rancangan Layar Form Entry Data Pelanggan .............................74 Gambar IV.9 : Rancangan Layar Form Entry Data Rekening ..............................75 Gambar IV.10 : Rancangan Layar Form Transaksi .................................................76 Gambar IV.11 : Rancangan Layar Form Entry Pesanan .........................................77 Gambar IV.12 : Rancangan Layar Form Cetak Nota ..............................................78 Gambar IV.13 : Rancangan Layar Form Cetak .......................................................78 Gambar IV.14 : Rancangan Layar Form Cetak Laporan Penjualan ........................79 iv   
Gambar IV.15 : Rancangan Layar Form Cetak Jurnal Penerimaan Kas .................79 Gambar IV.16 : Rancangan Layar Form Cetak Jurnal Umum ................................80 Gambar IV.17 : Sequence Diagram Entry Data Barang ..........................................81 Gambar IV.18 : Sequence Diagram Entry Data Pelanggan .....................................82 Gambar IV.19 : Sequence Diagram Entry Data Rekening .......................................83 Gambar IV.20 : Sequence Diagram Entry Pesanan ..................................................84 Gambar IV.21 : Sequence Diagram Cetak Nota.......................................................85 Gambar IV.22 : Sequence Diagram Cetak Laporan Penjualan ................................86 Gambar IV.23 : Sequence Diagram Cetak Jurnal Penerimaan Kas ........................87 Gambar IV.24 : Sequence Diagram Cetak Jurnal Umum ........................................88 Gambar IV.25 : Rancangan Class Diagram .............................................................89 v   
DAFTAR LAMPIRAN Halaman Lampiran A : Keluaran Sistem Berjalan ..........................................................93 Lampiran A-1: Nota .....................................................................94 Lampiran A-2: Laporan Penjualan ................................................95 Lampiran B : Masukan Sistem Berjalan ...........................................................96 Lampiran B-1: Daftar Data Barang ...............................................97 Lampiran B-2: Data Pesanan .........................................................98 Lampiran C : Rancangan Keluaran ...................................................................99 Lampiran C-1 : Nota .....................................................................100 Lampiran C-2 : Laporan Penjualan ..............................................101 Lampiran C-3 : Laporan Jurnal Penerimaan Kas .........................102 Lampiran C-4 : Laporan Jurnal Umum .........................................103 Lampiran D : Rancangan Masukan ..................................................................104 Lampiran D-1 : Data Barang ........................................................105 Lampiran D-2 : Data Pelanggan ...................................................106 Lampiran D-3 : Data Pesanan .......................................................107 Lampiran E : Surat Keterangan Riset .............................................................108 vi   
DAFTAR TABEL Halaman Tabel IV.1 : Tabel Pelanggan ............................................................................60 Tabel IV.2 : Tabel Pesanan ................................................................................60 Tabel IV.3 : Tabel Minta ...................................................................................60 Tabel IV.4 : Tabel Barang .................................................................................61 Tabel IV.5 : Tabel Nota .....................................................................................61 Tabel IV.6 : Tabel Jurnal ...................................................................................61 Tabel IV.7 : Tabel Rekening ..............................................................................61 Tabel IV.8 : Spesifikasi Basis Data Tabel Pelanggan .......................................62 Tabel IV.9 : Spesifikasi Basis Data Tabel Pesanan ...........................................63 Tabel IV.10 : Spesifikasi Basis Data Tabel Minta ...............................................63 Tabel IV.11 : Spesifikasi Basis Data Tabel Barang .............................................64 Tabel IV.12 : Spesifikasi Basis Data Tabel Nota ................................................65 Tabel IV.13 : Spesifikasi Basis Data Tabel Jurnal ..............................................65 Tabel IV.14 : Spesifikasi Basis Data Tabel Rekening .........................................66 vii   
DAFTAR SIMBOL Activity Diagram Start Point Menggambarkan awal dari suatu aktivitas yang berjalan pada sistem. End Point Menggambarkan akhir dari suatu aktivitas yang berjalan pada sistem. Activity State Menggambarkan suatu proses / kegiatan bisnis Swimlane Menggambarkan pembagian/ pengelompokkan berdasarkan tugas dan fungsi sendiri. Decision Points, menggambarkan pilihan untuk pengambilan keputusan, true atau false. [ …. ] Guards Sebuah kondisi benar sewaktu melewati sebuah transisi, harus konsisten dan tidak overlap Transition Menggambarkan aliran perpindahan control antara state viii   
Use Case Diagram Actor Abstraksi dari ora ang atau s sistem yan mengakt ng tifkan fungsi d use case . dari e Use Cas se Mengga ambarkan proses sistem dari perp p m pektif peng gguna (user). Relasi/A Asosiasi Mengga ambarkan hu ubungan ant actor d tara dengan use case. c Class Dia agram Class Menggam mbarkan se esuatu yang mengkapsu informasi ul i dan peril laku Asosiasi i Menggam mbarkan hu ubungan yan terjadi ng Agregasi Menggam mbarkan su class ter uatu rdiri dari class yang lai in atau suat class ada bagian d class la tu alah dari ain Generali isasi / Inher ritance Menggam mbarkan sa atau seku atu umpulan cla mewaris ass si atribut at method dari suatu c tau class ix   
Multiplicity Menggambarkan banyaknya object yang terhubung satu dengan yang lainnya. Contoh : 1 0..* 1..* 0..1 Tepat satu Nol atau lebih Satu atau lebih Nol atau satu Sequence Diagram Actor Menggambarkan seseorang atau sesuatu (seperti perangkat, sistem lain) yang berinteraksi dengan sistem. Boundary Sebuah obyek yang menjadi penghubung antara user dengan sistem. Contohnya window, dialogue box atau screen(tampilan layar). Control Suatu obyek yang berisi logika aplikasi yang tidak memiliki tanggung jawab kepada entitas Entity Menggambarkan suatu objek yang berisi informasi kegiatan yang terkait yang tetap dan disimpan ke dalam suatu database. Object Message Menggambarkan pengiriman pesan dari sebuah objek ke x   
objek lain. Recursive sebuah obyek yang mempunyai sebuah operation kepada dirinya sendiri. Return Message Menggambarkan pesan/hubungan antar objek, yang menunjukan urutan kejadian yang terjadi. Lifeline Garis titik-titik yang terhubung dengan obyek, sepanjang lifeline terdapat activation Activation Activation mewakili sebuah eksekusi operasi dari obyek, panjang kotak ini berbanding lurus dengan durasi aktivasi sebuah operasi. xi   
DAFTAR ISI Halaman ABSTRAKSI ......................................................................................................... i KATA PENGANTAR ............................................................................................ ii DAFTAR GAMBAR ............................................................................................. iv DAFTAR LAMPIRAN .......................................................................................... vi DAFTAR TABEL .................................................................................................. vii DAFTAR SIMBOL ................................................................................................ viii DAFTAR ISI ........................................................................................................... xii BAB I - PENDAHULUAN 1. Latar Belakang ................................................................................... 1 2. Masalah ............................................................................................. 2 3. Tujuan Penulisan ............................................................................... 3 4. Batasan Masalah ............................................................................... 4 5. Metode Penelitian ............................................................................. 4 6. Sistematika Penulisan ....................................................................... 7 BAB II - LANDASAN TEORI 1. Konsep Sistem Informasi .................................................................. 9 a. Konsep Dasar Sistem dan Informasi ........................................... 13 b. Konsep Dasar Sistem Informasi ................................................. 15 2. Analisa dan Perancangan Sistem Berorientasi Objek dengan UML . 15 a. Unified Modeling Language (UML) .......................................... 16 b. Analisa Sistem Berorientasi Objek ............................................. 17 1) Aktivity Diagram .................................................................. 17 2) Analisa Dokumen Masukan .................................................. 20 3) Analisa Dokumen Keluaran .................................................. 20 xii   
4) Use Case Diagram ................................................................ 21 5) Deskripsi Use Case ............................................................... 24 c. Perancangan Sistem Berorientasi Objek ..................................... 24 1) ERD ...................................................................................... 24 2) Logical Record Structure (LRS) ........................................... 25 3) Tabel/ Relasi ......................................................................... 26 4) Spesifikasi Basis Data ........................................................... 26 5) Rancangan Dokumen Keluaran ............................................ 27 6) Rancangan Dokumen Masukan ............................................ 27 7) Rancangan Layar Program .................................................... 27 8) Sequence Diagram ................................................................ 27 9) Class Diagram ....................................................................... 29 3. Sistem Informasi Penjualan Tunai .................................................... 31 a. Pengertian Penjualan ................................................................... 31 b. Sistem Penjualan Tunai .............................................................. 31 c. Teori-teori akuntansi ................................................................... 32 BAB III - ANALISA SISTEM 1. Tinjauan Organisasi .......................................................................... 36 a. b. Struktur Organsiasi .................................................................... 37 c. 2. Sejarah Organisasi / perusahaan ................................................ 36 Pembagian Tugas dan tanggung jawab ...................................... 38 Analisa Proses ................................................................................... 39 a. Proses Bisnis .............................................................................. 39 b. Activity Diagram ....................................................................... 41 3. Analisa Keluaran ............................................................................... 44 4. Analisa Masukan ............................................................................... 45 5. Analisa Terapan Akuntansi ............................................................... 46 6. Struktur Bagan Rekening .................................................................. 47 7. Identifikasi Kebutuhan ...................................................................... 48 8. Use Case Diagram ............................................................................ 51 xiii   
9. Deskripsi Use Case ........................................................................... 52 BAB IV - RANCANGAN SISTEM 1. Rancangan Basis Data ...................................................................... 57 a. Entity Reationship Diagram (ERD) ............................................ 57 b. Transformasi Diagram Entity Relationship Diagram (ERD) ke Logical Record Structure (LRS) ................................................. 58 c. Logical Record Structure (LRS) ................................................. 59 d. Tabel ........................................................................................... 60 e. Spesifikasi Basis Data ................................................................. 62 2. Rancangan Antar Muka .................................................................... 67 a. Rancangan Keluar ....................................................................... 67 b. Rancangan Masukan ................................................................... 69 c. Rancangan Dialog Layar ............................................................ 71 1) Struktur Tampilan ................................................................. 71 2) Rancangan Layar .................................................................. 72 d. Sequence Diagram ...................................................................... 82 3. Rancangan Class Diagram ................................................................ 90 BAB V - PENUTUP 1. Kesimpulan .................................................................................. 91 2. Saran ............................................................................................ 92 DAFTAR PUSTAKA ........................................................................ 93 Lampiran A : Keluaran Sistem Berjalan ............................................ 94 Lampiran B : Masukan Sistem Berjalan ............................................ 97 Lampiran C : Rancangan Keluaran .................................................... 100 Lampiran D : Rancangan Masukan .................................................... 105 Lampiran E : Surat Keterangan Riset ................................................ 109 xiv   
BAB I PENDAHULUAN 1. Latar Belakang Pada era informasi dan globalisasi terutama pada perusahaan-perusahaan menyebabkan lingkungan bisnis mengalami perubahan yang sangat pesat dengan tingkat persaingan sangat ketat. Oleh karena itu, perusahaanperusahaan dituntut untuk melakukan kegiatan operasionalnya secara efektif dan efisien untuk mempertahankan eksistensinya, sehingga pengetahuan merupakan kekuatan yang sangat penting untuk membantu manajer dalam pengambilan keputusan yang berupa informasi yang berkualitas yaitu informasi yang akurat, relevan, dan tepat waktu sehingga keputusan bisnis dapat dibuat sesuai dengan sistem informasi yang diterapkan di masingmasing perusahaan. Dengan demikian, pengelolaan sistem informasi merupakan hal yang sangat penting untuk diterapkan terutama pada sistem penjualan tunai. kegiatan penjualan tunai tersebut merupakan kegiatan yang sangat penting dalam kehidupan kita. kegiatan ini terjadi hampir setiap hari di Perusahaan yaitu Counter ADA CELL – Pangkalpinang. Oleh karena itu, Sistem informasi yang sudah terkomputerisasi juga diperlukan dalam perusahaan ini yang sebagaimana berguna untuk kelancaran proses penjualan barang-barang perusahaan kepada pembeli. Prosedur penjualan barang perusahaan melibatkan beberapa bagian dalam perusahaan dengan maksud agar pelaksanaan penjualan barang dapat diawasi dengan baik sehingga tidak terjadinya kekacauan-kekacauan dalam perusahaan. 1   prosedur penjualan barang
Untuk mengatasi masalah tersebut, maka setiap perusahaan perlu menyusun suatu sistem dan prosedur yang dapat mengatur pelaksanaan transaksi perusahaan dengan Sistem komputerisasi. Dengan sistem komputerisasi pengolah data yang dapat berjalan dengan baik dan meningkatkan kecepatan pekerjaan sehingga dicapai efisiensi tenaga dan waktu dalam mengolah data. Ada beberapa hal yang dapat menimbulkan kendala pada suatu sistem yang dijalankan secara manual, diantaranya adalah banyaknya jumlah data yang harus diolah, kerumitan dalam pemrosesan suatu data, terbatasnya waktu yang digunakan dalam mengolah data, dan data yang beraneka ragam. Begitu pula dalam sebuah perusahaan dagang yang menggunakan system penjualan yang masih dikerjakan dengan cara manual, akan terbentur pada kendala seperti yang tersebut di atas, sehingga akan mengurangi kinerja suatu instansi. Oleh karenanya penulis bermaksud mengangkat masalah tersebut untuk menyusun tugas akhir dengan judul Rancangan Sistem Informasi Penjualan Tunai Pada Counter ADA CELL - Pangkalpinang dengan Metodologi Berorientasi Obyek. Hal tersebutlah yang mendasari penulis untuk memilih judul tersebut dan sebagai usaha untuk dapat memberikan solusi atau jalan keluar atas kerumitan masalah yang ada di dalam Sistem Penjualan Tunai. 2. Masalah Berdasarkan latar belakang masalah maka permasalahan dapat dikemukakan dari hasil analisa pada sistem yang sedang berjalan adalah cara kerja sistem penjualan yang masih menggunakan sistem manual, masalah yang timbul adalah sebagai berikut : a. Perusahaan Counter ADA CELL Pangkalpinang hanya menjual semua jenis produk Handphone sehingga Lamanya Waktu yang diperlukan dalam 2  
melakukan pencarian dan pencatatan data penjualan kurang efektif dan sering mengalami keterlambatan dalam melayani pelanggan atau pembeli. b. Penyimpanan dokumen yang masih menggunakan arsip sebagai media penyimpanan, sehingga mengalami kesulitan dalam melakukan pengurutan dan pencarian dokumen jika dibutuhkan sewaktu-waktu. c. Kurang terjaminnya keakuratan data. d. Kemungkinan terjadinya kesalahan pencatatan dan perhitungan atas transaksi yang terjadi. Melihat masalah-masalah yang dialami Counter ADA CELL, maka penulis perlu memberikan masukan yang sekiranya dapat digunakan sebagai alternatif dalam menyelesaikan masalah-masalah tersebut, yaitu mengusahakannya dengan menggunakan sistem secara terkomputerisasi agar dapat membantu perusahaan dalam mengolah data dan informasi. 3. Tujuan Penulisan Tujuan penulisan dalam tugas akhir ini diharapkan dapat membantu Counter ADA CELL - Pangkalpinang dalam memperbaiki sistem yang ada dengan harapan pengolahan dan penyajian informasi penjualan tunai yang selama ini dilakukan secara manual dapat dipermudah dengan dibuatnya rancangan sistem informasi yang terkomputerisasi. Dengan adanya sistem komputerisasi ini, maka diharapkan dapat mendukung tercapainya tujuan sebagai berikut : a. Mempercepat dalam penyajian data yang akurat serta up to date. b. Memudahkan proses penjualan barang yang efisien dan tepat waktu dengan dukungan informasi yang memadai. c. Dokumen-dokumen keluaran yang dihasilkan lebih berkualitas dan informatif. d. Menjadi lebih tertib dalam arti data menjadi konsisten dan akurat serta pelaksanaannya lebih mudah dan cepat. 3  
e. Menghasilkan laporan periodik tanpa harus mengetik ulang. f. Meningkatkan efektifitas dalam pengolahan data agar dapat menghasilkan informasi yang dibutuhkan dengan lengkap serta dapat dihasilkan setiap saat jika diperlukan. 4. Batasan Masalah Dalam memusatkan masalah yang ada dan agar tidak menyimpang dari pokok pembahasan maka batasan masalah umumnya hanya akan membahas pada masalah yang berkaitan pada penjualan handphone segala merk produk yang masih baru saja dan tidak berkaitan dengan penjualan lainnya seperti penjualan handphone bekas, voucher, pulsa dan lain sebagainya. maka pada tugas perancangan sistem ini batasan masalah yang hanya di bahas yaitu proses penjulan tunai di Counter ADA CELL Pangkalpinang dimulai dari: 1. Menyusun Pencatatan daftar harga barang terlebih dahulu 2. Transaksi yaitu pemesanan barang secara langsung, pembuatan nota dan pembayaran. Perlu diketahui dalam sistem transaksi ini tidak melayani transaksi pengembalian barang yang rusak kecuali masih ada garansi barang tersebut, karena setiap barang pesanan yang telah dibuat dan dibayar sesuai dengan pesanan pelanggan. 3. Pembuatan laporan sebulan sekali dengan periode awal bulan sampai akhir bulan 5. Metoda Penelitian Metoda Penelitian adalah suatu cabang ilmu pengetahuan yang membicarakan dan mempersoalkan tentang cara–cara melaksanakan penelitian yaitu meliputi kegiatan-kegiatan, mencari, mencatat, merumuskan, menganalisa sampai menyusun laporan berdasarkan fakta atau gejala ilmiah. Data–data dalam tugas akhir ini merupakan hasil dari penelitian yang dilakukan oleh penulis, dengan menggunakan metode penelitian sebagai berikut : 4  
a. Metode Penelitian Lapangan Metode Penelitian Lapangan dilakukan secara langsung ke Counter ADA CELL dengan mengadakan : 1) Pengamatan (Observasi) Pengamatan ini dilakukan dengan mengamati langsung prosedur kerja yang dilaksanakan bagian penjualan, sehingga dapat diperoleh gambaran mengenai pelaksanaan prosedur sistem, serta untuk mengetahui sejauhmana informasi yang dibutuhkan. 2) Wawancara (Interview) Wawancara ini dilakukan untuk mendapatkan data-data informasi dalam bentuk tanya jawab kepada orang yang terlibat secara langsung ke dalam sistem penjualan tunai yang mengetahui tentang obyek penelitian. 3) Studi Kepustakaan Studi ini dilakukan dengan mempelajari berbagai pustaka yang menyangkut sistem informasi khususnya tentang penjualan tunai, terutama informasi naskah dari internet dan buku atau catatan yang didapat dibangku kuliah serta bahan–bahan pustaka lainnya yang ada hubungannya dengan masalah yang akan dibahas. b. Analisa Sistem Salah satu pendekatan pengembangan sistem adalah pendekatan analisa object oriented. Pendekatan object oriented dilengkapi dengan alat-alat tehnik pengembangan sistem yang hasil akhirnya akan didapat sistem yang object oriented yang dapat didefinisikan dengan baik dan jelas. Kegiatan yang dilakukan pada tahap ini adalah : 1) Menganalisa sistem yang ada, yaitu mempelajari dan mengetahui apa yang dikerjakan sistem yang ada. 2) Menspesifikasikan sistem, yaitu menspesifikasikan masukan yang digunakan, database yang ada, proses yang dilakukan dan keluaran yang dihasilkan. 5  
Adapun tahapan-tahapan pada analisa sistem antara lain : 1) Activity Diagram Activity diagram digunakan untuk memodelkan alur kerja atau workflow sebuah proses bisnis dan urutan aktifitas didalam suatu proses. 2) Use Case Diagram Use case diagram digunakan untuk menjelaskan manfaat sistem yang jika dilihat menurut pandangan orang yang berada di luar sistem atau actor. 3) Use Case Description Use case description digunakan untuk mendeskripsikan secara rinci mengenai use case diagram. c. Perancangan Sistem Tahap perancangan sistem adalah merancang sistem secara rinci berdasarkan hasil analisa sistem yang ada, sehingga menghasilkan model sistem baru yang diusulkan dengan disertai rancangan database dan spesifikasi program. Alat-alat yang digunakan pada tahap perancangan sistem adalah sebagai berikut : 1) Entity Relationship Diagram (ERD) ERD digunakan untuk menggambarkan hubungan antara data store yang ada dalam diagram arus data. 2) Logical Record Structure (LRS) LRS terdiri dari link-link di antara tipe record. Link ini menunjukkan arah dari satu tipe record lainnya. 4) Spesifikasi Basis Data Spesifikasi basis data digunakan untuk menjelaskan tipe data yang ada pada model konseptual secara detil. 6  
5) Sequence Diagram Sequence diagram untuk menggambarkan interaksi antar obyek di dalam dan di sekitar sistem (termasuk pengguna, display, dan sebagainya) berupa message yang digambarkan terhadap waktu. 6) Class Diagram (Entity Class) Membantu dalam visualisasi struktur kelas – kelas dari suatu sistem dan hubungan antar kelas (inheritance, aggregation, association) dan penjelasan detail tiap kelas (method / function / behavior dan attribute / property / data). 6. Sistematika Penulisan Penulisan perancangan ini terdiri dari beberapa bab. Keseluruhan bab ini berisi uraian tentang usulan pemecahan masalah secara berurutan. Uraian berikut ini adalah uraian singkat mengenai bab-bab tersebut : BAB I - PENDAHULUAN Bab ini berisi tentang latar belakang, masalah, tujuan penulisan, batasan masalah, metode penelitian dan sistematika penulisan. BAB II - LANDASAN TEORI Bab ini berisi tentang konsep dasar sistem, konsep dasar informasi, konsep dasar sistem informasi, analisa sistem dan perancangan sistem berorientasi objek dengan UML, serta konsep dasar UML, analisa dan perancangan berorientasi obyek dan konsep dasar sistem penjualan serta teori-teori pendukung lainnya yang berkaitan dengan sistem yang akan dibahas. BAB III - ANALISA SISTEM Bab ini berisi tentang tinjauan organisasi, analisa proses sistem berjalan yang digambarkan dalam activity diagram, analisa masukan, analisa keluaran, analisa terapan akuntansi, struktur 7  
bagan rekening, identifikasi kebutuhan, use case diagram dan deskripsi use case. BAB IV - RANCANGAN SISTEM Bab ini menjelaskan secara rinci rancangan sistem yang akan diusulkan. Rancangan tersebut terdiri dari rancangan basis data yaitu Entity Relationship Diagram (ERD), Transformasi ERD ke LRS, Logical Record Structure (LRS), Tabel, Spesifikasi Basis Data. Selain itu, menjelaskan rancangan antar muka yang terdiri dari rancangan dokumen keluaran, rancangan dokumen masukan, rancangan dialog layar yang terdiri dari struktur tampilan dan rancangan layar serta sequence diagram dan rancangan class diagram yang terdiri dari Entity class. BAB V - PENUTUP Bab ini berisi tentang kesimpulan dari pembahasan bab-bab sebelumnya dan juga saran-saran dari penulis serta daftar pustaka. 8  
BAB II LANDASAN TEORI Landasan teori ini memberikan pemahaman tentang materi-materi yang dibahas dalam tugas akhir dari buku-buku penunjang, contoh-contoh tugas akhir, diktat serta referensi lainya yang ada diperpustakaan. 1. Konsep Sistem Informasi Pengertian dan definisi sistem pada berbagai bidang berbeda-beda, tetapi meskipun istilah sistem yang digunakan bervariasi, semua sistem pada bidang-bidang tersebut mempunyai beberapa persyaratan umum, yaitu sistem harus mempunyai elemen, lingkungan, interaksi antar elemen, interaksi antara elemen dengan lingkungannya, dan yang terpenting adalah sistem harus mempunyai tujuan yang akan dicapai. Dapat didefinisikan sebagai seperangkat elemen yang digabungkan satu dengan lainnya untuk suatu tujuan bersama. Kumpulan elemen terdiri dari manusia, mesin, prosedur, dokumen, data atau elemen lain yang terorganisir dari elemen-elemen tersebut. Elemen sistem disamping berhubungan satu sama lain, juga berhubungan dengan lingkungannya untuk mencapai tujuan yang telah ditentukan sebelumnya. Suatu sistem memiliki karateristik atau sifat-sifat tertentu yang mencirikan bahwa hal tersebut bisa dikatakan sebagai suatu sistem. Adapun karateristik yang dimaksud adalah sebagai berikut : a. Komponen sistem atau elemen sistem Suatu Komponen sistem atau elemen sistem dapat berupa elemenelemen yang lebih kecil yang disebut sub sistem, misalkan sistem komputer terdiri dari sub sistem perangkat keras, perangkat lunak dan manusia. Elemen-elemen yang lebih besar yang disebut supra sistem. Misalkan bila perangkat keras adalah sistem yang memiliki sub sistem CPU, 9  
perangkat I/O dan memori, maka supra sistem perangkat keras adalah sistem komputer. b. Batas sistem Batas sistem merupakan daerah yang membatasi antara suatu sistem dengan sistem yang lainnya atau dengan lingkungan luarnya. Batas sistem ini memungkinkan suatu sistem dipandang sebagai suatu kesatuan. Batas suatu sistem menunjukkan ruang lingkup dari sistem tersebut. c. Lingkungan luar sistem Lingkungan dari sistem adalah apapun di luar batas dari sistem yang mempengaruhi operasi sistem. Lingkungan luar sistem dapat bersifat menguntungkan dan dapat juga bersifat merugikan sistem tersebut. lingkungan luar yang mengutungkan merupakan energi dari sistem dan dengan demikian harus tetap dijaga dan dipelihara. Sedang lingkungan luar yang merugikan harus ditahan dan dikendalikan, kalau tidak akan mengganggu kelangsungan hidup dari sistem. d. Penghubung Sistem Penghubung merupakan media perantara antar subsistem. Melalui penghubung ini memungkinkan sumber-sumber daya mengalir dari satu subsistem ke subsistem lainnya. Output dari satu subsistem akan menjadi input untuk subsistem yang lainnya dengan melalui penghubung. Dengan penghubung satu subsistem dapat berinteraksi dengan subsistem yang lainnya membentuk satu kesatuan. e. Masukkan Sistem Masukan adalah energi yang dimasukkan ke dalam sistem. Masukan dapat berupa maintenance input dan sinyal input. Maintenance input adalah energi yang dimasukkan supaya sistem tersebut dapat beroperasi. Sinyal input adalah energi yang diproses untuk didapatkan keluaran. 10  
f. Keluaran Sistem Keluaran adalah hasil dari energi yang diolah dan diklasifikasikan menjadi keluaran yang berguna dan sisa pembuangan. Keluaran dapat merupakan masukan untuk subsistem yang lain atau kepada supra sistem. g. Pengolah Suatu sistem dapat mempunyai suatu bagian pengolah atau sistem itu sendiri sebagai pengolahnya. Pengolah yang akan merubah masukan menjadi keluaran. Suatu sistem produksi akan mengolah masukan berupa bahan baku dan bahan-bahan yang lain menjadi keluaran berupa barang jadi. h. Sasaran atau tujuan Suatu sistem pasti mempunyai tujuan atau sasaran. Kalau suatu sistem tidak mempunyai sasaran, maka operasi sistem tidak akan ada gunanya. Sasaran dari sistem sangat menentukan sekali masukan yang dibutuhkan sistem dan keluaran yang akan dihasilkan sistem. Suatu sistem dikatakan berhasil bila mengenai sasaran atau tujuannya. Sistem dapat diklasifikasikan dari beberapa sudut pandangan, diantaranya sebagai berikut ini : 1) Sistem Abstrak dan fisik. Sistem abstrak adalah sistem yang berupa pemikiran atau ide-ide yang tidak tampak secara fisik. Misalnya sistem teologia, yaitu sistem yang berupa pemikiran-pemikiran hubungan antara manusia dengan tuhan. Sistem fisik merupan sistem yang ada secara fisik misalnya sistem komputer, sistem akuntansi dan sistem produksi. 2) Sistem Alamiah dan buatan. Sistem alamiah adalah sistem yang terjadi melalui proses alam, misalnya sistem perputaran bumi. Sistem buatan manusia adalah sistem yang dirancang oleh manusia. Sistem buatan manusia yang melibatkan interaksi antara manusia dengan mesin disebut dengan 11  
human machine system atau ada yang menyebut dengan man machine system, karena menyangkut penggunaan komputer yang berinteraksi dengan manusia. 3) Sistem Tertentu dan tak tentu. Sistem tertentu beroperasi tertentu dengan tingkah laku yang sudah dapat diprediksi. Inteaksi diantara bagian-bagiannya dapat dideteksi dengan pasti, sehingga keluaran dari sistem dapat diramalkan. Sistem komputer adalah contoh dari sistem tertentu yang tingkah lakunya dapat dipastikan berdasarkan program-program yang dijalankan. Sistem tak tentu adalah sistem yang kondisi masa depannya tidak dapat diprediksi karena mengandung unsur probabilitas. 4) Sistem Tertutup dan terbuka. Sistem tertutup merupakan sistem yang tidak berhubungan dan tidak terpengaruh oleh lingkungan luarnya. Sistem ini bekerja secara otomatis tanpa adanya turut campur tangan dari pihak diluarnya. Secara teoritis sistem tertutup ada, tetapi kenyataan tidak ada sistem yang benar-benar tertutup yang ada hanyalah relatively closed system (secara relatif tertutup, tidak benar-benar tertutup). Sedangkan sistem terbuka adalah sistem yang berhubungan dan terpengaruh oleh lingkungan luarnya. Sistem ini menerima masukan dan menghasilkan keluaran untuk lingkungan luar atau subsistem yang lainnya, karena sistem sifatnya terbuka dan tepengaruh oleh lingkungan luarnya, maka suatu sistem harus mempunyai sistem pengendalian yang baik. Sistem-sistem yang baik harus dirancang sedemikian rupa, sehingga secara relatif tertutup karena sistem tertutup akan bekerja secara otomatis dan terbuka untuk pengaruh yang baik saja. Siklus hidup sistem adalah proses evolusioner yang diikuti dalam penerapan sistem atau subsistem informasi berbasis komputer. Beberapa face/tahapan dari daur hidup suatu sistem yaitu : 12  
a) Mengenali adanya kebutuhan b) Pembangunan sistem c) Pemasangan sistem d) Pengoperasian sistem e) Sistem menjadi usang a. Konsep Dasar Sistem dan Informasi Di dalam suatu organisasi atau perusahaan, informasi merupakan sesuatu yang memiliki arti yang sangat penting didalam mendukung proses pengambilan keputusan oleh pihak manajemen. Secara umum informasi dapat didefinisikan sebagai data yang diolah menjadi bentuk yang lebih berarti bagi yang menerimanya. Menurut Raymond Mcleod: “ Informasi adalah data yang telah diolah menjadi bentuk yang memiliki arti bagi si penerima dan bermanfaat bagi pengambilan keputusan saat ini atau mendatang ” Secara umum informasi dapat didefinisikan sebagai hasil dari pengolahan data dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian-kejadian yang nyata yang digunakan untuk pengambilan keputusan. Sumber dari informasi adalah data. Data adalah kenyataan yang menggambarkan suatu kejadian-kejadian dan kesatuan nyata. Kejadiankejadian adalah sesuatu yang terjadi pada saat tertentu. Di dalam dunia bisnis, kejadian-kejadian yang sering terjadi adalah transaksi perubahan dari suatu nilai yang disebut transaksi. Kesatuan nyata adalah berupa suatu obyek nyata seperti tempat, benda dan orang yang betul-betul ada dan terjadi. Data merupakan bentuk yang masih mentah, belum dapat bercerita banyak sehingga perlu diolah lebih lanjut. Data diolah melalui suatu metode untuk menghasilkan informasi. Data dapat berbentuk simbolsimbol semacam huruf, angka, bentuk suara, sinyak, gambar, dsb. 13  
Data yang diolah melalui suatu model menjadi informasi, penerima kemudian menerima informasi tersebut, membuat suatu keputusan dan melakukan tindakan, yang berarti menghasilkan suatu tindakan yang lain yang akan membuat sejumlah data kembali. Data tersebut akan ditangkap sabagai input, diproses kembali lewat suatu model dan seterusnya membentuk suatu siklus. Untuk dapat berguna, maka informasi harus didukung oleh tiga pilar, yaitu sebagai berikut : 1) Akurat Berarti informasi harus bebas dari kesalahan-kesalahan dan tidak bias atau menyesatkan. Akurat juga berarti informasi harus jelas mencerminkan maksudnya. Informasi harus akurat karena dari sumber informasi sampai ke penerima informasi kemungkinan terjadi gangguan yang dapat merubah atau merusak informasi tersebut. 2) Tepat waktu Berarti informasi yang datang pada penerima tidak boleh terlambat. Informasi yang sudah usang tidak akan mempunyai nilai lagi. Karena informasi merupakan landasan di dalam pengambilan keputusan. Bila pengambilan keputusan terlambat, maka dapat berakibat fatal bagi organisasi. Saat ini mahalnya nilai informasi disebabkan harus cepatnya informasi itu didapat sehingga diperlukan teknologi-teknologi mutakhir untuk mendapatkan, mengolah dan mengirimkannya. 3) Relevan Berarti informasi tersebut mempunyai manfaat untuk pemakainya. Relevansi informasi untuk tiap-tiap orang berbeda-beda. 14  
b. Konsep Dasar Sistem Informasi Sistem adalah sekumpulan subsistem yang berhubungan satu sama lain, yang bersama-sama berinteraksi menurut pola tertentu terhadap masukan dengan tujuan menghasilkan keluaran. Dalam arti luas dapat didefinisikan sebagai sekumpulan elemen-elemen yang saling berhubungan dan saling bergantungan untuk mencapai suatu tujuan. Pendekatan definisi sistem berdasarkan pendekatan prosedur menurut Jogiyanto HM, MBA, Akt., Ph.D adalah ” Sistem adalah kumpulan dari prosedur-prosedur yang mempunyai tujuan-tujuan tertentu. Sistem informasi adalah sekumpulan komponen pembentuk sistem yang mempunyai keterkaitan antara satu komponen dengan komponen lainnya yang bertujuan menghasilkan suatu informasi dalam suatu bidang tertentu. Dalam sistem informasi diperlukannya klasifikasi alur informasi, hal ini disebabkan keanekaragaman kebutuhan akan suatu informasi oleh pengguna informasi. Kriteria dari sistem informasi antara lain, fleksibel, efektif dan efisien. 2. Analisa dan Perancangan Sistem Berorientasi Objek dengan UML Analisa sistem dapat dinyatakan sebagai pemisahan suatu hal dalam bagian bagian tertentu. Bagian-bagian tersebut kemudian dipelajari dan dievakuasi untuk mengetahui apakah terdapat cara-cara yang lebih baik untuk memenuhi kebutuhan manajemen. Menurut Ariesto Hadi Sutopo : “Analisa sistem adalah proses menentukan kebutuhan sistem – apa yang harus dilakukan sistem untuk memenuhi kebutuhan klien, bukanlah bagaimana sistem tersebut diimplementasikan.” Konsep dasar berorientasi obyek mencapai kematangannya pada saat masalah analisis dan desain menjadi lebih diperhatikan dari pada masalah 15  
coding. Secara spesifik, pengertian “berorientasi obyek” [ Ariesto Hadi Sutopo 2002 ] berarti bahwa “kita mengorganisasi perangkat lunak sebagai kumpulan dari objek tertentu yang memiliki struktur data dan perilakunya”. a. Unified Modelling Language (UML) Unified Modeling Language (UML) adalah bahasa spesifikasi standar untuk mendokumentasikan, menspesifikasikan, dan membangun sistem perangkat lunak atau himpunan struktur dan teknik untuk pemodelan desain program berorientasi objek (OOP) serta aplikasinya. Dapat di simpulkan bahwa UML merupakan metodologi untuk mengembangkan sistem OOP dan sekelompok tool untuk mendukung pengembangan sistem tersebut. Dalam suatu bahasa, UML digunakan untuk menentukan, memvisualisasikan, membangun, dan mendokumentasikan suatu sistem informasi. Namun demikian UML dapat digunakan untuk memahami dan mendokumentasikan setiap sistem informasi. Dengan menggunakan UML kita dapat membuat model untuk semua jenis aplikasi piranti lunak, dimana aplikasi tersebut dapat berjalan pada piranti keras, sistem operasi dan jaringan apapun, serta ditulis dalam bahasa pemrograman apapun. Tetapi karena UML juga menggunakan class dan operation dalam konsep dasarnya, maka ia lebih cocok untuk penulisan piranti lunak dalam bahasabahasa berorientasi obyek. Tujuan utama UML diantaranya adalah untuk : a. Memberikan model yang siap pakai, bahasa permodelan visual yang ekspresif untuk mengembangkan dan saling menukar model dengan mudah dan dimengerti secara umum. b. Memberikan bahasa permodelan yang bebas dari berbagai bahasa pemrograman dan proses rekayasa. c. Menyatukan praktek-praktek terbaik yang terdapat dalam permodelan. 16  
Dalam menganalisa dan merancang sistem yang ditulis dalam skripsi ini, penulis tidak menggunakan semua diagram, hanya beberapa saja yang dibutuhkan seperti use case diagram, activity diagram, class diagram dan beberapa lagi yang digunakan pada masing-masing proses analisa dan perancangan. b. Analisa Sistem Berorientasi Objek 1) Activity Diagram Activity diagram menggambarkan proses bisnis dan urutan aktifitas dalam sebuah proses, yang mana dipakai pada business modelling untuk memperlihatkan urutan aktifitas proses bisnis karena bermanfaat untuk membantu memahami proses secara keseluruhan dalam memodelkan sebuah proses. Dengan kata lain, activity diagram adalah tehnik untuk mendeskripsikan logika prosedural, proses bisnis dan aliran kerja dalam banyak kasus. Activity diagram mempunyai peran seperti halnya flowchart, akan tetapi perbedaannya dengan flowchart adalah activity diagram bisa mendukung perilaku paralel sedangkan flowchart tidak bisa. Activity diagram dibuat berdasarkan sebuah atau beberapa use case pada use case diagram, atau bahkan tanpa menggunakan use case diagram. Sebuah activity diagram mempunyai : a) Start point (initial node), dimana diletakkan pada pojok kiri atas. Simbol Titik Awal Activity b) End point (activity final node) Simbol Titik Akhir Activiy 17  
c) Activities, dimana menggambarkan proses bisnis dan dikenal sebagai activity state. Simbol Activities Jenis-jenis activity : (1) Black hole activities Ada masukan dan tidak ada keluaran, biasanya digunakan bila dikehendaki ada 1 atau lebih transisi. Simbol black hole activities (2) Miracle activities Tidak ada masukan tetapi ada keluarannya, biasanya dipakai pada waktu start point dan dikehendaki ada 1 atau lebih transisi. Simbol miracle activities (3) Parallel activities Suatu activity yang berjalan secara berbarengan. Terdiri dari: (a) Fork (percabangan) Mempunyai 1 transisi masuk dan 2 atau lebih transisi keluar. 18  
Simbol fork dalam UML Ketika ada > 1 transisi masuk ke fork yang sama, gabunglah dengan sebuah decision point. (b) Join (penggabungan) Mempunyai 2 atau lebih transisi masuk dan hanya 1 transisi keluar. Fork harus berhubungan dengan join. Simbol join (c) Decision point Digambarkan dengan lambang wajik atau belah ketupat. Mempunyai transisi (sebuah garis dari/ke decision point). Setiap transisi yang ada harus mempunyai GUARD (kunci). Tidak ada sebuah keterangan (pertanyaan) pada tengah belah ketupat seperti pada flowchart. Simbol decision points 19  
(d) Guard (kunci) Adalah sebuah kondisi benar sewaktu melewati sebuah transisi. Digambarkan dengan diletakkan diantara tanda [ ]. Tanda [otherwise] guard untuk menangkap suatu kondisi yang belum terdeteksi. Setiap transisi dari/ke decision point harus mempunyai guard yang harus konsisten serta tidak overlap. Contoh : x<0, x=0 dan x>0 konsisten x<=0 dan x>=0 tidak konsisten Guard harus lengkap logikanya Contoh : x<0 dan x>0 bagaimana jika x=0 ? (e) Swimlane Sebuah cara untuk mengelompokkan activity berdasarkan actor (mengelompokkan activity dalam sebuah urutan yang sama). Actor bisa ditulis nama actor ataupun sekaligus dalam lambang actor (stick figure) pada use case diagram. Swimlane digambar secara vertical, walaupun kadang-kadang digambar secara horizontal. 2) Analisa Dokumen Keluaran Analisa keluaran adalah analisa mengenai dokoumen keluaran yang dihasilkan dari sebuah sistem. 3) Analisa Dokumen Masukan Analisa masukan adalah bagian dari pengumpulan informasi tentang sistem yang sedang berjalan. Tujuan analisa masukan adalah memahami prosedur berjalan. 20  
4) Usecase Diagram Use case diagram mangambarkan kebutuhan sistem dari sudut pandang user dan memfokuskan pada proses komputerisasi. Sebuah use case dapat menggambarkan hubungan antara use case dengan actor. Secara umum use case adalah pola perilaku sistem dan urutan transaksi yang berhubungan yang dilakukan oleh satu actor. Use case diagram mangambarkan kebutuhan sistem dari sudut pandang user dan memfokuskan pada proses komputerisasi. Sebuah use case dapat menggambarkan hubungan antara use case dengan actor. Secara umum use case adalah pola perilaku sistem dan urutan transaksi yang berhubungan yang dilakukan oleh satu actor. Berikut ini, Use case diagram terdiri dari : a) Use case Use case dibuat berdasarkan keperluan actor, merupakan ‘apa’ yang dikerjakan sistem, bukan ‘bagaimana’ sistem mengerjakannya. Use case diberi nama yang menyatakan apa hal yang dicapai dari hasil interaksinya dengan actor dan dinotasikan dengan gambar (horizontal ellipse). Simbol Use Case Use case biasanya menggunakan kata kerja dan sebuah nama use case boleh terdiri dari beberapa kata dan tidak boleh ada 2 use case yang memiliki nama yang sama. Use diagram tidak terpengaruh urutan waktu, meskipun demikian supaya mudah dibaca perlu penyusunan use case. 21  
b) Actor Actor menggambarkan orang, sistem atau eksternal entitas/stakeholder yang menyediakan atau menerima informasi dari sistem. Actor adalah entity eksternal yang berhubungan dengan sistem yang berpartisipasi dalam use case. Actor dilukiskan dengan peran yang mereka mainkan dalam use case, seperti Pelanggan, Kasir, dan lain-lain. Simbol actor didalam UML digambarkan sebagai berikut : Simbol Actor c) Associations Associations menggambarkan bagaimana actor terlibat dalam use case dan bukan menggambarkan aliran data atau informasi. Association digambarkan dengan sebuah garis berpanah terbuka pada salah satu ujungnya yang menunjukkan arah relasi. Ujung panah terbuka Simbol Association Empat jenis relasi yang bisa timbul pada use case diagram,yaitu 1) Association antara actor dan use case ujung panah pada association antara actor dan use case mengindikasikan siapa/apa yang meminta interaksi dan bukannya mengindikasikan aliran data. Simbol Association Antar Actor dan Use Case 22  
Association antara actor dan use case sebaiknya menggunakan garis tanpa panah. Association antar actor dan use case yang menggunakan panah terbuka untuk mengindikasikan bila actor beriteraksi secara pasif dengan sistem. 2) Association antara use case (a) <<include>> Digunakan ketika dalam penulisan use case-use case yang berbeda-beda terdapat deskripsi yang sama, maka relasi ini dapat digunakan untuk menghindari penulisan deskripsi yang berulang-ulang. Sebuah use case dapat meng-include fungsionalitas use case lain sebagai bagian dari proses dalam dirinya. Secara umum diasumsikan bahwa use case yang di-include akan dipanggil setiap kali use case yang meng-include dieksekusi secara normal dan dapat di-include oleh lebih dari satu use case lain, sehingga duplikasi fungsionalitas dapat dihindari dengan cara menarik keluar fungsionalitas yang common. (b) <<extend>> Sebuah use case juga dapat meng-extend use case lain dengan behaviour-nya sendiri. Sementara hubungan generalisasi antar use case menunjukkan bahwa use case yang satu merupakan spesialisasi dari yang lain. (c) Generalization / inheritance antara use case Generalization/inheritance digunakan ketika ada sebuah keadaan yang lain sendiri/perilaku khusus. Generalization/inheritance digambarkan antara use 23  
case secara vertical dengan inheriting use case dibawah base/parent use case. (d) Generalization/inheritance antara actor Generalization/inheritance antara actors secara vertical dengan inheriting actor dibawah base/parent use case. 5) Deskripsi Usecase Yaitu bagian terbesar dari use case merupakan deskripsi naratif dari urutan utama use case yang merupakan urutan yang paling umum dari interaksi antara aktor dan sistem. Deskripsi tersebut berupa input dari aktor, dan diikuti oleh respon pada sistem. Tujuan deskripsi use case adalah untuk mempermudah pemahaman use case. c. Perancangan Sistem Berorientasi Objek 1) ERD ERD merupakan suatu model untuk menjelaskan hubungan antar data dalam basis data berdasarkan objek-objek dasar data yang mempunyai hubungan antar relasi. ERD untuk memodelkan struktur data dan hubungan antar data, untuk menggambarkannya digunakan beberapa notasi dan simbol. Pada dasarnya ada tiga simbol yang digunakan, yaitu : a. Entiti Entiti merupakan objek yang mewakili sesuatu yang nyata dan dapat dibedakan dari sesuatu yang lain (Fathansyah, 1999: 30). Simbol dari entiti ini biasanya digambarkan dengan persegi panjang. b. Atribut Setiap entitas pasti mempunyai elemen yang disebut atribut yang berfungsi untuk mendeskripsikan karakteristik dari entitas 24  
tersebut. Isi dari atribut mempunyai sesuatu yang dapat mengidentifikasikan isi elemen satu dengan yang lain. Gambar atribut diwakili oleh simbol elips. c. Hubungan / Relasi Hubungan antara sejumlah entitas yang berasal dari himpunan entitas yang berbeda. Relasi dapat digambarkan sebagai berikut : Relasi yang terjadi diantara dua himpunan entitas (misalnya A dan B) dalam satu basis data yaitu : 1) Satu ke satu (One to one) Hubungan relasi satu ke satu yaitu setiap entitas pada himpunan entitas A berhubungan paling banyak dengan satu entitas pada himpunan entitas B. 2) Satu ke banyak (One to many) Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B, tetapi setiap entitas pada entitas B dapat berhubungan dengan satu entitas pada himpunan entitas A. 3) Banyak ke banyak (Many to many) Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B. 2) Logical Record Structure (LRS) LRS adalah digambarkan oleh kotak persegi panjang dan dengan nama yang unik. File record pada LRS ditempatkan dalam kotak. LRS terdiri dari link-link diantar tipe record lainnya, banyaknya link dari LRS yang diberi nama oleh filed-filed yang kelihatan pada kedua link tipe record. 25  
3) Tabel/Relasi Tabel adalah koleksi obyek yang terdiri dari sekumpulan elemen yang diorganisasikan secara kontigu, artinya memori yang dialokasi antara satu elemen dengan elemen yang lainnya mempunyai address yang berurutan. Pada tabel, pengertian perlu dipahami adalah: a) Keseluruhan table (sebagai koleksi) adalah container yang menampung seluruh elemen b) Indek table, yang menujukan address dari sebuah element c) Element table, yang dapat dipacu melalui indeknya, bertipe tertentu yang sudah terdefinisi d) Seluruh element table bertipe:”sama”. Dengan catatan: beberapa bahasa pemograman memungkinkan pendenfinisikan table dengan elemen generic, tapi pada saat diinstansiasi, harus diinstanisasi dengan tipe sama. 4) Spesifikasi Basis Data Basis Data adalah kumpulan data yang saling berhubungan satu dengan yang lain dan tersimpan diluar komputer serta digunakan perangkat lunak ( software ) tertentu untuk memanipulasinya. Sedangkan sistem berbasis data adalah suatu sistem penyusunan dan pengelolaan record-record dengan menggunakan komputer dengan tujuan untuk menyimpan atau merekam serta melihat data operasional lengkap pada sebuah organisasi, sehingga mampu menyediakan informasi yang diperlukan untuk kepentingan proses pengambilan keputusan. 26  
5) Rancangan Dokumen Keluaran Rancangan keluaran merupakan informasi yang akan dihasilkan dari keluaran sistem yang dirancang. 6) Rancangan Dokumen Masukan Rancangan masukan merupakan data yang dibutuhkan untuk menjadi masukan sistem yang dirancang. 7) Rancangan Layar Program Rancangan tampilan merupakan bentuk tampilan sistem layar computer sebagai antar muka dengan pemakai yang akan dihasilkan dari sistem yang dirancang. 8) Sequence Diagram Sequence Diagram adalah visual coding (perancangan form/layar). Interaksi objek yang tersusun dalam urutan waktu/kejadian. Diagram ini secara khusus berasosiasi dengan use case diagram, memperlihatkan tahap demi tahap apa yang seharusnya terjadi untuk menghasilkan sesuatu didalam use case. a) Obyek/Participant Obyek diletakkan di dekat bagian atas diagram dengan urutan dari kiri ke kanan. Setiap participant terhubung dengan garis titik-titik yang disebut lifeline. Sepanjang lifeline ada kotak yang disebut activation. Activation mewakili sebuah eksekusi operasi dan participant. Panjang kotak ini berbanding lurus dengan durasi activation. Setiap lifeline mempunyai activation bar yang menunjukkan kapan sebuah participant aktif 27  
pada interaksi. Activation bar adalah optional di UML, meskipun sangat berguna dalam klarifikasi perilaku . Simbol Participant pada sebuah sequence diagram Simbol dari activation b) Actor Menggambarkan orang yang sedang berinteraksi dengan sistem. Simbol Actor c) Message Sebuah message bergerak dari satu participant ke participant yang lain dan dari satu lifeline yang lain. Sebuah participant bisa mengirim sebuah message kepada dirinya sendiri. Sebuah message bisa jadi simple, synchronous atau asynchronous. Message yang simple adalah sebuah perpindahan (transfer) control dari satu participant ke participant yang 28  
lainnya. Jika sebuah participant mengirimkan sebuah message synchronous, maka jawaban atas message tersebut akan ditunggu sebelum diproses dengan urusannya. Namun jika message asynchronous yang dikirimkan, maka jawaban atas message tersebut tidak perlu ditunggu. Message datang dari sumber yang tidak ditentukan disebut dengan found message. Simbol message pada sequence diagram bisa dilihat sebagai berikut. Message () Simbol Message d) Loop Menggambarkan dari suatu kegiatan yang dilakukan secara berulang-ulang. Loop Simbol Loop 9) Class Diagram Diagram kelas (class diagram) sangat membantu dalam visualisasi kelas dari suatu sistem. Hal ini disebabkan karena class adalah deskripsi kelompok objek-objek dengan atribut (property), perilaku (operation) dan relasi yang sama. Disamping itu class diagram bisa memberikan pandangan global atas sebuah sistem. Hal tersebut tercermin dari class-class yang ada dan relasinya satu dengan lainnya. 29  
Nama kelas Manusia nama umur Atribut Operasi berpindah_alamat() berpindah_pekerjaan() Simbol Class Diagram Komponen-komponen class diagram : a) Kelas, Atribut, Operasi kelas didefinisikan sebagai kumpulan atau himpunan objekobjek yang dengan attribute dan operation yang sama. Obyek (object) adalah orang, benda, tempat, kejadian atau konsepkonsep yang ada didunia nyata yang penting bagi suatu aplikasi perangkat lunak/perangkat keras. Setiap obyek memiliki keadaan sesaat (state) perilaku (behavior). State sebuah obyek adalah adalah kondisi objek tersebut yang dinyatakan dalam attribute/properties. mendefinisikan Sedangkan bagaimana sebuah perilaku objek suatu objek bertindak atau berinteraksi. Perilaku sebuah objek dinyatakan dalam operation. Atribut adalah data yang dimiliki suatu objek dalam suatu kelas, misalnya kelas manusia, yang memiliki atribut nama dan umur. Operation adalah sesuatu yang bisa dilakukan oleh sebuah kelas (tingkah laku sebuah objek) atau fungsi yang dapat diaplikasikan ke suatu objek dalam kelas. Misalnya suatu objek manusia pasti memiliki fungsi-fungsi seperti tersenyum, marah, makan, minum, dan sebagainya. Operasi yang sama dapat diterapkan pada kelas yang berbeda, misalnya fungsi makan dapat diterapkan pada kelas manusia maupun pada kelas kera. 30  
b) Association Association menunjukkan hubungan antara masing-masing kelas. Setiap association mempunyai dua association end. Masing-masing end dihubungkan ke satu kelas dari kelas-kelas dalam association. Sebuah end dapat dibuat lebih jelas dengan memberikan nama dengan sebuah label. Label ini disebut dengan role name (association end sering disebut role). 3. Sistem Informasi Penjualan Tunai a. Pengertian Penjualan Kegiatan penjualan merupakan suatu usaha yang dilakukan untuk mendistribusikan barang kebutuhan yang telah dihasilkan oleh produsen kepada konsumen yang memerlukan, dengan memperoleh jasa berupa uang dengan menurut harga yang berlaku. b. Sistem Penjualan Tunai Penjualan tunai dilaksanakan dengan mewajibkan pembeli membayar sejumlah harga untuk barang yang dibeli lalu barang tersebut diserahkan kepada pembeli. Setelah itu, dilakukan pencatatan transaksi. Penjualan dapat dilakukan dengan cara antara lain : 1) Penjualan Langsung Penjualan langsung adalah cara penjualan dimana penjual langsung berhubungan atau berhadapan dengan pembeli. Pembeli dapat langsung mengemukakan keinginannya bahkan sering terjadi tawar-menawar harga untuk mencapai kesesuaian. 2) Penjualan Tidak Langsung Penjualan tidak langsung dapat terjadi jika terdapat masalah antara lain: jarak antara lokasi penjual dan pembeli cukup jauh, respon masyarakat terhadap sebuah iklan atau katalog, terbatasnya waktu antara penjual dan pembeli. 31  
c. Teori-teori Akuntansi 1) Pengertian Akuntansi Pengertian Akuntansi menurut American Institute of Certified Public Accountants (AICPA) adalah : “Akuntansi adalah suatu seni pencatatan, pengelompokkan dan pengikhtisaran menurut cara yang berarti dan dinyatakan dalam nilai uang segala transaksi dan kejadian yang sedikit-sedikitnya bersifat financial dan kemudian menafsirkan hasilnya“. Sedangkan [Jusuf 2001] mengungkapkan “Akuntansi adalah proses pencatatan, penggolongan, peringkasan, pelaporan, dan penganalisaan data keuangan suatu organisasi”. Dari definisi akuntansi diatas, dapat disimpulkan bahwa akuntansi mempunyai tujuan menyajikan informasi keuangan dari satu kesatuan ekonomi yang digunakan oleh pihak-pihak yang berkepentingan sebagai bahan pertimbangan didalam pengambilan keputusan ekonomi. Untuk menghasilkan informasi ekonomi yang memadai, maka perlu adanya suatu metode pencatatan, pengelolaan, analisa dan pengendalian transaksi serta kegiatan-kegiatan keuangan dan kemudian melaporkan hasilnya. Kegiatan-kegiatan akuntansi tersebut meliputi : a) Mendefinisikan dan mengukur data yang relevan antara yang satu dengan yang lainnya untuk suatu pengambilan keputusan yang diambil. b) Melakukan pemrosesan data yang bersangkutan kemudian menyusun laporan. c) 2) Mengkomunikasikan laporan tersebut kepada pemakai. Pengertian Sistem Akuntansi Sistem akuntansi adalah organisasi formulir, catatan dan laporan yang dikoordinasi sedemikian rupa untuk menyediakan 32  
informasi keuangan yang dibutuhkan oleh manajemen, guna memudahkan dalam pengelolaan perusahaan. 3) Pengertian Sistem Informasi Akuntansi Sistem informasi yang berbasis komputer yang berkaitan dengan akuntansi dikenal dengan istilah Sistem Informasi Akuntansi (SIA). Sistem Informasi Akuntansi sebagai salah satu bab sistem organisasi yang harus dapat berintegrasi dengan sistem yang lain, sehingga sasaran dari sub sistem akuntansi yaitu menyediakan informasi yang tepat pada waktunya, akurat dan relevan untuk semua manajemen didalam sub sistem organisasi. Integrasi dengan cara berkomunikasi terhadapat data dan informasi yang mengalir data ke sub sistem melalui suatu penghubung. Adapun deinisi dari Sistem Informasi akuntansi yaitu sususan berbagai dokumen, alat komunikasi, tenaga pelaksana, dan berbagai laporan yang didesain untuk mentransformasikan data keuangan menjadi laoran keuangan. Data yang diolah oleh Sistem Informasi Akuntansi (SIA) adalah data yang bersifat keuangan, sehingga informasi yang dihasilkan oleh Sistem Informasi Akuntansi hanya informasi keuanngan saja. 4) Pengertian Jurnal Jurnal merupakan catatan akuntansi pertama yang digunakan untuk mencatat, mengklasifikasi dan meringkas data keuangan dan data lainnya. Sumber informasi pencatatan dalam jurnal adalah formulir. Jurnal terbagi atas dua, yaitu : a) Jurnal Umum Jurnal umum digunakan untuk mencatat seluruh transaksi yang tidak dapat dicatat dalam jurnal khusus. Sifat dari jurnal umum 33  
dapat bermacam-macam dan dapat dikelompokkan sebagai berikut: (1) Dipergunakan untuk mencatat seluruh transaksi (2) Sulit dilakukan pembagian tugas dalam menjurnal (3) Tingkat kesalahan sangat tinggi (4) Posting ke buku besar hanya dapat dilakukan secara individu b) Jurnal Khusus Jurnal khusus digunakan untuk mencatat transaksi-transaksi sejenis atau yang sering terjadi. Sifat dari jurnal khusus bermacam-macam dan dapat dikelompokkan sebagai berikut : (1) Digunakan untuk mencatat transaksi sejenis (2) Memungkinkan adanya pembagian tugas (3) Tingkat kesalahan rendah, karena jurnal bisa dikeerjakan oleh beberapa orang (4) Posting dapat dilakukan beberapa orang. Jenis-jenis jurnal khusus yaitu sebagai berikut : (1) Jurnal P enerimaan Kas Merupakan jurnal yang digunakan untuk mencatat khusus penerimaan kas atau uang tunai. (2) Jurnal Pengeluaran Kas Merupakan jurnal yang digunakan untuk mencatat pengeluaran kas atau pengneluaran uang tunai. (3) Jurnal Penjualan Merupakan jurnal yang digunakan untuk mencatat untuk mencatat penjualan barang dagang secara kredit. (4) Jurnal Pembelian Merupakan jurnal yang digunakan pembelian barang dagang secara kredit. 34  
5) Buku Besar (General Ledger) Buku besar terdiri dari rekening-rekening yang digunakan untuk meringkas data keuangan yang telah dicatat sebelumnya dalam jurnal. Rekening-rekening dalam buku besar ini disediakan sesuai dengan unsur-unsur informasi yang akan disajikan didalam laporan keuangan. 6) Buku Pembantu (Subsidiary Ledger) Buku pembantu terdiri dari rekening-rekening pembantu yang beerisi data keuangan yang tecantum dalam rekening tertentu dalam buku besar. 7) Laporan Hasil akhir dari proses akuntansi adlah laporan keuangan, yang dapat berupa neeraca, laporan perubahan modal, laporan rugi laba, laporan arus kas. 35  
BAB III ANALISA SISTEM 1. Tinjauan Organisasi Dalam proses perancangan sistem informasi, pengetahuan dan informasi tentang sistem yang sedang berjalan sangatlah penting, karena dari informasi tersebut kita dapat mengetahui sampai sejauh mana sistem yang sedang berjalan sekarang, apakah telah dapat memenuhi kebutuhan atau tidak. Selain itu, dibutuhkan informasi apa saja yang ingin dicapai tetapi belum bisa ditangani oleh sistem yang berjalan saat ini. Analisa sistem informasi dapat membantu dalam mengetahui informasi-informasi tentang sistem yang sedang berjalan. Diharapkan dengan adanya analisa dari sistem ini bisa kita ketahui sampai sejauh manakah kebutuhan yang telah ditangani oleh sistem yang sedang berjalan dan bagaimana caranya agar kebutuhan-kebutuhan yang belum bisa terpenuhi dapat diberikan solusinya dan diterapkan dalam tahap perancangan sistem. a. Sejarah Organisasi/perusahaan Counter ADA CELL Pangkalpinang merupakan usaha yang bergerak di bidang Penjualan Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya di Jl. Depati Amir Pangkalpinang. Awal berdirinya Counter ADA CELL Pada tanggal 18 juni 2003 yang didirikan oleh bapak Awen (aming). Penjualan yang dilakukan oleh Counter ADA CELL yaitu penjualan tunai. Selain menjual semua produk hp beserta aksesoris dan lainnya, ADA CELL pun menerima layanan service handphone yang mengalami kerusakan dan siap untuk diperbaiki. 36   
Sejalan dengan meningka n atnya perm mintaan sa ampai sekarang Counter A ADA CELL ini terus berkembang dan berpes dalam sistem L b g sat penjualan tunai. i b. Struktur Organisasi Dalam kegiatan operasi ini agar berjal dengan baik dan benar m lan n b maka setiap perusaha atau ya aan ayasan baik besar mau k upun kecil harus yai aksudkan str ruktur organ nisasi mempuny struktur organisasi. Yang dima adalah hub bungan kerj dalam org ja ganisasi, se ehingga terw wujud kerja sama yang sang harmonis dari bagia gat s an-bagian or rganisasi ter rtentu. Dapat disimpulk kan bahwa organisasi merupaka suatu proses i an p penerapan dan pemba n agian tugas yang dilaku ukan, pemb batasan tang ggung jawab sert wewenan dari masi ta ng ing-masing bagian dala tugasnya am a. Untuk menggam k mbarkan ura aian tugas dan tanggu ung jawab pada Counter A ADA Cell, b berikut adala struktur o ah organisasin : nya PEMILIK P BAGIAN  PENJUALAN P N BAGIAN  B GUDANG G BA AGIAN  SERVICE Gambar III.1 : Stru uktur Orga anisasi Pada Counter ADA CELL A L Str ruktur orga anisasi yan ada did ng dalam orga anisasi tersebutu merupakan gambaran bagian-ba n n agian tugas dan tangg gung jawab serta hubungan antara sua bagian atau yang satu denga yang lainnya atu an yang ada d dalam sebua organisa ah asi. 37  
c. Pembagian Tugas dan tanggung Jawab Dari Struktur Organisasi Counter ADA CELL dapat dijelasan tugas-tugas dan tanggung jawab dari struktur organisasi pada Counter ADA CELL adalah sebagai berikut : 1) Pemilik Counter a) Memimpin dan mengelolah usaha yang dijalani. b) Bertanggung jawab secara keseluruhan atas semua kegiatan. c) Merencakan garis besar aktivitas yang akan dilakukan. d) Mengawasi segala aktivitas dicounter. e) Memberikan arahan atau petunjuk kepada karyawan. f) Membuat peraturan-peraturan di lingkungan usaha. 2) Bagian Penjualan a) Melayani pelanggan atau pembeli. b) Membuat pesanan yang di pesan oleh pelanggan. c) Membuat form stok barang, form penjualan, form pelanggan, form pemesanan. d) Mencetak nota untuk pelanggan. e) Membuat Laporan penjualan. f) Mencatat keluar masuk keuangan. 3) Bagian Gudang a) Mengatur, menjaga dan merawat barang-barang yang ada. b) Menyusun dan merapikan barang. c) Mengecek pemasokan, stok atau jumlah persediaan barang. d) Mencatat keluar masuk barang. 4) Bagian Service a) Menerima perbaikan barang berupa semua merek handphone yang mengalami kerusakan. b) Memberi solusi kepada pelanggan terhadap barang yang sudah mengalami kerusakan. 38   
2. Analisa Proses Counter ADA CELL adalah perusahaan yang bergerak di bidang Penjualan Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya yang berlokasi di Jl. Depati Amir Pangkalpinang yang dipimpin oleh bapak Awen (Aming). Sistem Transaksi pada perusahan Transaksi pada Counter ADA CELL masih melakukan penjualan secara manual tidak secara terkomputerisasi. Berikut ini adalah kegiatan-kegiatan yang dilakukan oleh bagian penjualan dalam melaksanakan transaksi penjualan. a. Proses Bisnis Pada dasarnya, penjualan merupakan kegiatan menjual kepada konsumen dan untuk mendapatkan keuntungan terhadap barang yang dijual. Fungsi penjualan adalah untuk menyediakan barang tertentu kepada konsumen sesuai dengan kebutuhan. Sistem Penjualan yang terjadi pada Counter ADA CELL dilakukan dengan cara konsumen datang secara langsung dan Sistem pembayaran berupa pembayaran secara tunai, pembayaran dilakukan pada saat transaksi penjualan berlangsung. 1) Pencatatan Daftar Harga Pimpinan/pemilik counter memberikan rincian harga barangbarang berupa daftar harga barang berbagai jenis barang yang dijual. Bagian penjualan akan mencatat mencatat daftar harga tersebut sebagai arsip. 39   
2) Transaksi Penjualan dan Pembayaran Setiap Pelanggan yang akan membeli barang datang secara langsung dan memesan barang apa saja khususnya Handphone yang akan dibeli yang tersedia di Counter. Bagian penjualan menerima pesanan barang dan bagian gudang memeriksa atau mengecek barang yang dipesan pelanggan. jika barang yang dipesan ‘tidak ada’ maka bagian gudang mengkonfirmasi kepada bagian penjualan untuk membatalkan pesanan pelanggan. jika pelanggan ingin memesan barang lain maka pelanggan membuat pesanan baru dan jika jumlah barang “tidak mencukupi” pemesanan barang pun dibatalkan kembali kecuali barang yang dipesan ‘ada’ dan bagian gudang memeriksa atau mengecek jumlah barang “mencukupi” maka bagian penjualan akan mencatat pesanan tersebut kedalam surat pesanan. Selanjutnya, bagian penjualan membuat nota berdasarkan surat pesanan, kemudian bagian penjualan menyerahkan barang yang dibeli dan juga menyerahkan nota kepada pelanggannya untuk dibayar. Setelah itu, bagian penjualan memberi nota stempel counter bahwa transaksi pembayaran telah dilakukan. Bagian penjualan menyerahkan nota yang asli kepada pelanggan dan rangkapnya dijadikan arsip serta barang-barang yang telah dibeli oleh pelanggan. 3) Pembuatan laporan Penjualan Sebagai bukti pertanggung jawaban kepada pimpinan, maka bagian penjualan membuat laporan penjualan berdasarkan datadata yang ada pada transaksi penjualan yang akan diserahkan kepada pemilik atau pimpinan setiap 1(satu) Bulan sekali dan laporan penjualan dibuat berdasarkan nota yang telah diarsip. 40   
b. Activity Diagram Activity Diagram dibawah ini menggambarkan proses bisnis sistem berjalan yang ada pada Counter ADA CELL. Berikut Activity Diagram dibawah ini : 1) Activity Diagram Pencatatan Daftar Harga Barang PIMPINAN BAGIAN PENJUALAN Berikan Daftar Harga Barang Catat Daftar Harga Barang Serahkan Daftar Harga Barang Gambar III.2 Activity Diagram Pencatatan Daftar Harga Barang 41   
2) Activity Diagram Transaksi Penjualan dan Pembayaran PELANGGAN Buat Pesanan Barang Terima Konfirmasi Pembatalan Pesanan BAGIAN PENJUALAN BAGIAN GUDANG Terima Pesanan Barang Konfirmasi Pembatalan Pesanan Periksa Barang [ tidak ada ] [ ada ] Periks a Jumlah Barang Buat Nota [ mencukupi ] [ tidak mencukupi ] Terima Nota Bayar Ses uai Nota Serahkan Nota Konfirmasi Terima Pembayaran sesuai Nota beri Stempel Serahkan Nota yang dicap dan Barang & diarsipkan Terima Nota sekalian Barang Terima Konfirmasi jumlah pesanan Konfirmasi jumlah pesanan Gambar III.3 Activity Diagram Transaksi Penjualan dan Pembayaran 42   
3) Activity Diagram Pembuatan laporan Penjualan BAGIAN PENJUALAN PIMPINAN Buat Laporan Penjualan Berdasarkan Nota Serahkan Laporan Penjualan Terima Laporan Penjualan Gambar III.4 Activity Diagram Pembuatan Laporan Penjualan 43   
3. Analisa Keluaran Rancangan ini memberi gambaran mengenai keluaran dari sistem informasi Penjualan Tunai yang diusulkan. Adapun keluaran-keluaran yang dihasilkan tersebut adalah : a. Nota Nama Keluaran : Nota Fungsi : Sebagai bukti dari penjualan Media : Kertas Distribusi : Bagian Penjualan Rangkap : 2 lembar Volume : 20/hari Frekuensi : Setiap terjadi transaksi selesai Format : Lihat lampiran A-1, halaman 94 Keterangan : Berisi nomor nota, nama pelanggan, nama dan jumlah barang serta harga yang dipesan Hasil Analisa : Cukup jelas dan sesuai informasi yang ada b. Laporan Penjualan Nama Keluaran : Laporan Penjualan Fungsi : Digunakan untuk mengetahui data-data transaksi penjualan pada periode tertentu Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Volume : 1/bulan Frekuensi : Setiap akhir bulan Format : Lihat Lampiran A-2, halaman 95 Hasil Analisa : Kurang jelas karena Penulisan pendataan informasi masih secara manua Keterangan : Berisi nama, jumlah dan harga barang yang Telah terjual pada periode tertentu 44   
4. Analisa Masukan Pada Analisa ini akan dijelaskan tentang semua masukkan yang merupakan input pada sistem yang berjalan diantaranya sebagai berikut : a. Data Barang Nama Masukan : Daftar Data-data Barang Sumber : Pimpinan Fungsi : Untuk mengetahui informasi data barang Media : Kertas Rangkap : 1 lembar Volume : 1/bulan Frekuensi : Setiap ada pemasukan barang Format : Lihat lampiran B-1, halaman 97 Keterangan : Berisi daftar harga dan data barang Hasil analisa : Cukup baik dan sudah sesuai dengan kebutuhan karena sudah memuat informasi yang diperlukan b. Surat Pesanan Nama Masukan : Data Pesanan Sumber : Pelanggan Fungsi : Untuk mengetahui data-data pelanggan Media : Kertas Rangkap : 1 lembar Frekuensi : Setiap terjadi pemesanan Volume : 20/hari Format : Lihat lampiran B-3, halaman 98 Keterangan : Berisi nama dan jumlah barang yang dipesan Hasil analisa : Cukup jelas dan sudah sesuai dengan kebutuhan karena sudah memuat informasi yang diperlukan 45   
5. Analisa Terapan Akuntansi Gambar III.5 Analisa Terapan Akuntansi 46   
6. Struktur Bagan Rekening Pemberian kode rekening menggunakan metode kelompok dengan sifat-sifat sebagai berikut : a. Posisi masing-masing angka mempunyai arti dimana angka paling kiri adalah kode kelompok dan angka paling kanan adalah kode jenis rekening. b. Kode kelompok akan terdiri dari angka-angka yang sudah diperkirakan terlebih dahulu. c. Setiap kode dalam klasifikasi menggunakan jumlah angka yang sama. d. Jika terjadi penambahan kelompok rekening, dapat dilakukan dengan merubah angka paling kiri. Berikut ini adalah penjabaran klasifikasi pemberian kode dengan menggunakan kode kelompok yang terdiri dari 4 angka, yaitu: 1 1 0 1 Kelompok rekening Golongan rekening Jenis rekening Perluasan jenis rekening Kode kelompok dapat pula digunakan untuk menunjukan hirarki data. Rincian susunan dan kode rekening yang dirancang dengan menggunakan kode kelompok : Nomor Perkiraan Nama Perkiraan 1101 Kas 4101 Penjualan Gambar III.6 Struktur Rekening 47   
7. Identifikasi Kebutuhan Berdasarkan hasil analisa mengenai sistem yang sedang berjalan pada Counter ADA CELL, maka dapat diidentifikasikan kekurangan yang ada, sehingga pada sistem mendatang perlu membutuhkan sistem yang terdapat dibawah ini : a. Kebutuhan Masalah : Pendataan untuk data pelanggan : Bentuk yang tidak terstruktur masih dalam bentuk memo atau catatan kecil, sehingga kurang jelas dalam pencatatan/penulisan data pelanggan dan sering hilang dan berserakkan kemana-mana. Usulan : Disediakannya informasi mengenai data pelanggan dalam bentuk berkas/file komputer yang menginformasikan rincian-rincian data pelanggan yang telah terdaftar. b. Kebutuhan Masalah : Pendataan untuk data barang : Adanya laporan mengenai rincian data barang yang menjadi stok barang yang bersifat manual, sehingga data tersebut kurang jelas dalam pencatatan/ penulisan data barang dan berserahkan kemanamana. Usulan : Disediakannya informasi dalam bentuk berkas/ file komputer yang menginformasikan rincian-rincian data barang. c. Kebutuhan Masalah : Pendataan untuk data rekening : Adanya laporan mengenai rincian data dan kode rekening yang masih bersifat manual dalam bentuk memo atau catatan kecil, sehingga kurang jelas dan banyak rincian data yang untuk dicatat. 48   
Usulan : Disediakannya informasi mengenai data dan kode rekening dalam bentuk berkas/file komputer yang menginformasikan rincian-rincian data rekening yang telah terdaftar. c. Kebutuhan Masalah : Pendataan untuk data pesanan : Adanya mengenai rincian-rincian data pesanan yang dipesan oleh konsumen tetapi hanya bersifat sementara dan langsung dibuang setelah dipakai. Sehingga tidak diketahui jumlah penjualan setiap harinya. Usulan : Disediakannya informasi dalam bentuk berkas/ file komputer yang menginformasikan rincian-rincian surat pesanan barang. d. Kebutuhan Masalah : Pencetakan untuk nota : Nomor nota tidak pernah diisi dalam form nota. Sehingga tidak diketahui banyaknya Nota yang telah dikeluarkan. Usulan : Disediakannya nota dengan data nota dalam bentuk berkas komputer agar informasi yang didapatkan lebih jelas dan lengkap. e. Kebutuhan Masalah : Pencetakan untuk laporan penjualan : Kurang terincinya berapa barang yang terjual dan total harga barang yang terjual pada satu periodenya. Usulan : Disediakannya informasi laporan data penjualan barang dalam bentuk berkas komputer yang menginformasikan rincian data penjualan barang yang terdaftar. 49   
f. Kebutuhan : Pencetakan untuk jurnal penerimaan kas Masalah : Penanganan transaksi yang ada pada sistem adalah merupakan salah satu bagian dari serangkaian proses akuntansi. Dalam hal penanganan transasksi pencatatan transaksi dilakukan berkali-kali karena disamping proses transaksi itu sendiri pencatatan akuntansi juga dilakukan. Usulan : Disediakannya informasi dalam bentuk laporan dan data mentah dalam bentuk berkas komputer yang langsung menginformasikan transaksi akuntansi yang terjadi pada sistem. g. Kebutuhan Masalah : Pencetakan untuk jurnal umum : Penanganan transaksi yang ada pada sistem adalah merupakan salah satu bagian dari serangkaian proses akuntansi. Dalam hal penanganan transasksi pencatatan transaksi dilakukan berkali-kali karena disamping proses transaksi itu sendiri pencatatan akuntansi juga dilakukan. Usulan : Disediakannya informasi dalam bentuk laporan dan data mentah dalam bentuk berkas komputer yang langsung menginformasikan transaksi akuntansi yang terjadi pada sistem. 50   
8. Use Case Diagram Use Case Diagram dibawah ini menggambarkan proses bisnis sistem berjalan yang ada pada Counter ADA CELL. Berikut Gambar Use Case Diagram dibawah ini : Entry Data Barang Entry Data Pelanggan Entry Data Rekening Pelanggan Entry Pesanan Bagian Penjualan Cetak Nota Cetak Laporan Penjualan Cetak Jurnal Penerimaan Kas Cetak Jurnal Umum Gambar III.7 Use Case Diagram 51    Pimpinan
9. Deskripsi Use Case 1. UseCase : Entry Data Barang Actor : Bagian Penjualan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data Barang dan Kode otomatis ditampilkan pada kode barang. b) Bagian Penjualan menginput data barang baru. c) Jika ingin membuat data baru bagian penjualan memilih tombol Baru dan kode otomatis ditampilkan pada kode barang. d) Bagian Penjualan menyimpan data barang baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data barang. e) Bagian Penjualan dapat mengubah data barang yang telah disimpan dengan memilih tombol Ubah. f) Jika ingin menghapus data barang yang telah disimpan maka pilih tombol Hapus. g) Bagian Penjualan dapat membatalkan data barang yang telah diinput dengan memilih tombol Batal. h) Jika ingin menutup form Entry Data barang pilih tombol keluar. 2. Usecase : Entry Data Pelanggan Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data pelanggan dan Kode otomatis ditampilkan pada kode pelanggan. b) Bagian Penjualan menginput data pelanggan baru. c) Jika ingin membuat data baru bagian penjualan memilih tombol Baru dan kode otomatis ditampilkan pada kode pelanggan. 52   
d) Bagian Penjualan menyimpan data pelanggan baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data pelanggan. e) Bagian Penjualan dapat mengubah data pelanggan yang telah disimpan dengan memilih tombol Ubah. f) Jika ingin menghapus data Pelanggan yang telah disimpan maka pilih tombol Hapus. g) Bagian Penjualan dapat membatalkan data pelanggan yang telah diinput dengan memilih tombol Batal. h) Jika ingin menutup form Entry Data pelanggan pilih tombol keluar. 3. Use Case : Entry Data Rekening Actor : Bagian Penjualan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data Rekening dan bagian Penjualan menginput data rekening baru. b) Jika ingin membuat data baru bagian penjualan memilih tombol Baru. c) Bagian Penjualan menyimpan data Rekening baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data Rekening. d) Bagian Penjualan dapat mengubah data Rekening yang telah disimpan dengan memilih tombol Ubah. e) Jika ingin menghapus data Rekening yang telah disimpan maka pilih tombol Hapus. f) Jika ingin menutup form Entry Data Rekening pilih tombol keluar. 53   
4. Usecase : Entry Pesanan Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Pesanan dan Kode otomatis ditampilkan pada nomor pesanan. b) Bagian Penjualan memilih data pelanggan beserta data barang dengan memilih tombol Cari dimasing-masing data pelanggan dan data barang. c) Bagian Penjualan dapat memilih jenis harga pesan terlebih dahulu setelah itu menginput jumlah pesan dan akan tampil di total harga. d) Bagian Penjualan dapat menyimpan banyaknya data pesanan baru yang untuk ditampilkan di listview form entry pesanan dengan memilih tombol Pesan. e) Bagian Penjualan dapat menyimpan data pelanggan yang sudah diinput dengan memilih tombol Simpan. f) Bagian Penjualan dapat membatalkan data yang sudah diinput data pelanggan dengan memilih tombol batal. g) Jika ingin menutup form Entry Pesanan pilih tombol Selesai. 5. Usecase : Cetak Nota Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak Nota dan Kode otomatis ditampilkan pada nomor nota. b) Bagian Penjualan memilih data pelanggan yang telah disimpan dengan memilih tombol Cari dan data-data pesanan yang telah dipesan akan tampilkan di form Cetak Nota. c) Bagian Penjualan dapat langsung mencetak Nota dengan memilih tombol cetak. 54   
d) Bagian Penjualan dapat membatalkan data nota dengan memilih tombol batal. e) Jika ingin menutup form Cetak Nota pilih tombol keluar. 6. Usecase : Cetak Laporan Penjualan Actor : Bagian Penjualan dan Pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak laporan penjualan. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak laporan penjualan. c) Jika ingin melihat atau menmpilkan Laporan Penjualan, pilih tombol tampil d) Jika ingin menutup form cetak laporan penjualan, pilih tombol keluar. 7. Usecase : Cetak Jurnal Penerimaan Kas Actor : Bagian Penjualan dan Pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak jurnal penerimaan kas. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak jurnal penerimaan kas. c) Jika ingin melihat atau menampilkan Jurnal penerimaan kas, pilih tombol tampil. d) Jika ingin menutup form cetak jurnal penerimaan kas, pilih tombol keluar. 55   
8. Usecase : Cetak Jurnal Umum Actor : Bagian Penjualan dan pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak jurnal umum. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak jurnal umum. c) Jika ingin melihat atau menmpilkan Jurnal umum, pilih tombol tampil. d) Jika ingin menutup form cetak jurnal umum, pilih tombol keluar. 56   
BAB IV RANCANGAN SISTEM 1. Rancangan Basis Data Dalam merancang sebuah sistem yang sudah terkomputerisasi maka seluruh data yang akan dipergunakan oleh sistem tersebut harus disimpan ke dalam suatu basis data yang memiliki kelebihan data independent. Dengan menerapkan suatu basis data dalam strategi akses dalam pengembangan sistem tanpa harus mengubah program-program aplikasi yang sudah ada. Langkah yang harus dilakukan dalam pembentukan suatu basis data yang baik adalah sebagai berikut : a. Entity Reationship Diagram (ERD) No_Psn Tgl_Psn PELANGGAN 1 Kd_plg Nm_plg Almt_plg Telp_plg M buat PESANAN M 1 Kd_plg No_Psn No_Psn No_nota minta No_Psn Kd_Brg Harga_Distributor Jml_Psn terima 1 REKENING No_Rek Nm_Rek Posisi N M jurnal No_Nota No_Rek Tgl_Jurnal D_K Jml NOTA No_Nota Tgl_Nota Gambar IV.1 Entity Relationship Diagram (ERD) 57    N BARANG Kd_brg Nm_brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok
b. Transformasi Diagram Entity Relationship Diagram (ERD) ke Logical Record Structure (LRS) No_Psn Tgl_Psn PELANGGAN 1 Kd_plg Nm_plg Almt_plg Telp_plg M buat PESANAN M 1 Kd_plg No_Psn No_Psn No_nota minta N No_Psn Kd_Brg Harga_Distributor Jml_Psn terima 1 REKENING No_Rek Nm_Rek Posisi N M jurnal No_Nota No_Rek Tgl_Jurnal D_K Jml NOTA No_Nota Tgl_Nota Gambar IV.2 Transformasi Entity Relationship Diagram (ERD) ke Logical Record Stucture (LRS) 58    BARANG Kd_brg Nm_brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok
c. Logical Record Structure (LRS) Gambar IV.3 Logical Record Structure (LRS) 59   
d. Tabel 1) Tabel Pelanggan Kd_Plg Nm_Plg Almt_Plg Telp_Plg PK Tabel IV.1 Tabel Pelanggan 2) Tabel Pesanan No_Psn Tgl_Psn Kd_Plg PK FK Tabel IV.2 Tabel Pesanan 3) Tabel Minta No_Psn Kd_Brg FK Harga_Distributor FK PK Tabel IV.3 Tabel Minta 60    Jml_Psn
4) Tabel Barang Kd_Brg Nm_Brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok PK Tabel IV.4 Tabel Barang 5) Tabel Nota No_Nota Tgl_Nota No_Psn PK FK Tabel IV.5 Tabel Nota 6) Tabel Jurnal No_Nota No_Rek FK Tgl_jurnal D_K FK PK Tabel IV.6 Tabel Jurnal 7) Tabel Rekening No_Rek Nm_Rek PK Tabel IV.7 Tabel Rekening 61    Posisi Jml
e. Spesifikasi Basis Data 1) File Pelanggan Nama File : Pelanggan Media : Harddisk Isi : Data-data pelanggan Organisasi : Index Sequential Primary Key : Kd_Plg Panjang record : 170 byte Jumlah record : 350 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. Kd_Plg Text 5 - Kode Pelanggan 2. Nm_Plg Text 50 - Nama Pelanggan 3. Almt_Plg Text 100 - Alamat Pelanggan 4. Telp_Plg Text 15 - Telepon Pelanggan Tabel IV.8 Spesifikasi Basis Data Tabel Pelanggan 2) File Pesanan Nama File : Pesanan Media : Harddisk Isi : Data-data pesanan Organisasi : Index Sequential Primary Key : No_Psn + Kd_Plg Panjang record : 18 byte Jumlah record : 31200 record Struktur : 62   
No Nama Field Jenis Lebar Dec Keterangan 1. No_Psn Text 5 - Nomor Pesanan 2. Tgl_Psn Date 8 - Tanggal Pesanan 4. Kd_Plg Text 5 - Kode Pelanggan Tabel IV.9 Spesifikasi Basis Data Tabel Pesanan 3) File Minta Nama File : Minta Media : Harddisk Isi : Data-data isi pesanan Organisasi : Index Sequential Primary Key : No_Psn + Kd_Brg Panjang record : 18 byte Jumlah record : 187200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Psn Text 5 - Nomor Pesanan 2. Kd_Brg Text 5 - Kode Barang 3. Harga_Distributor Currency 6 - Harga Distributor 4. Jml_Psn 2 - Jumlah Pesan Number Tabel IV.10 Spesifikasi Basis Data Tabel Minta 63   
4) File Barang Nama File : Barang Media : Harddisk Isi : Data-data barang Organisasi : Index Sequential Primary Key : Kd_Brg Panjang record : 115 byte Jumlah record : 31200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. Kd_Brg Text 5 - Kode Barang 2. Nm_Brg Text 50 - Nama Barang 3. Jenis Text 10 - Jenis/Type/Merk Barang 4. Imei Text 15 - Imei/Np.seri Barang 5. Warna Text 10 - Warna Barang 6. Hrg_Resmi Currency 6 - Harga Resmi 7. Hrg_Distributor Currency 6 - Harga Distributor 8. Garansi Text 10 - Garansi Barang 9. Stok Number 3 - Stok Barang Tabel IV.11 Spesifikasi Basis Data Tabel Barang 5) File Nota Nama File : Nota Media : Harddisk Isi : Data-data nota Organisasi : Index Sequential Primary Key : No_Nota + No_Psn 64   
Panjang record : 18 byte Jumlah record : 31200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Nota Text 5 - Nomor Nota 2. Tgl_Nota Date/time 8 - Tanggal Nota 3. No_Psn Text 5 - Nomor Pesanan Tabel IV.12 Spesifikasi Basis Data Tabel Nota 6) File Jurnal Nama File : Jurnal Media : Harddisk Isi : Data-data Jurnal Organisasi : Index Sequential Primary Key : No_Nota + No_Rek Panjang record : 40 byte Jumlah record : 62400 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Nota Text 5 - Nomor Nota 2. No_Rek Text 15 - Nomor Rekening 3. Tgl_Jurnal Date/time 8 - Tanggal Jurnal 4. D_K Text 6 - Debet & Kredit 5. Jml Number 6 - Jumlah Tabel IV.13 Spesifikasi Basis Data Tabel Jurnal 65   
7) File Rekening Nama File : Rekening Media : Harddisk Isi : Data-data rekening Organisasi : Index Sequential Primary Key : No_Rek Panjang record : 51 byte Jumlah record : 62 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Rek Text 15 - Nomor Rekening 2. Nm_Rek Text 30 - Nama Rekening 3. Posisi Text 6 - Debet & Kredit Tabel IV.14 Spesifikasi Basis Data Tabel Rekening 66   
2. Rancangan Antar Muka a. Rancangan Keluaran Berisi penjelasan dari setiap keluaran yang ingin dihasilkan oleh sistem yang dirancang, yaitu sebagai berikut : Nama Keluaran : Nota Fungsi : Sebagai bukti pembelian barang Media : Kertas Distribusi : Bagian Penjualan Rangkap : 2 lembar Frekuensi : Setiap terjadi transaksi selesai Volume : 20/hari Format : Lampiran C-1, halaman 100 Keterangan : Diserahkan kepada pelanggan dan berisi daftar pembelian pelanggan Nama Keluaran : Laporan Penjualan Fungsi : Sebagai informasi untuk mengetahui data-data transaksi penjualan pada periode tertentu Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap 1/bulan Volume : Setiap akhir bulan Format : Lampiran C-2, halaman 101 Keterangan : Berisi daftar penjualan barang dari periode awal bulan sampai akhir bulan 67   
Nama Keluaran : Laporan Jurnal Penerimaan kas Fungsi : Sebagai informasi untuk mengetahui jumlah penerimaan kas Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap akhir bulan Volume : Setiap 1/bulan Format : Lampiran C-3, halaman 102 Keterangan : Berisi daftar penerimaan kas dari periode awal bulan sampai akhir bulan Nama Keluaran : Laporan Jurnal Umum Fungsi : Sebagai informasi untuk mengetahui jumlah debet dan kredit dalam bentuk jurnal umum Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap akhir bulan Volume : Setiap 1/bulan Format : Lampiran C-4, halaman 103 Keterangan : Berisi daftar dalam bentuk jurnal umum dari periode awal bulan sampai akhir bulan 68   
b. Rancangan Masukan Berisi penjelasan dari setiap keluaran yang ingin dihasilkan oleh sistem yang dirancang, yaitu sebagai berikut : Nama Masukan : Data Barang Sumber : Bagian Penjualan Fungsi : Untuk mengetahui informasi data barang Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/bulan Volume : Bulanan Format : Lampiran D-1, halaman 105 Keterangan : Berisi informasi data-data barang Nama Masukan : Data Pelanggan Sumber : Bagian Penjualan Fungsi : Untuk informasi data pelanggan pada periode tertentu Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/bulan Volume : Bulanan Format : Lampiran D-2, halaman 106 Keterangan : Berisi informasi data pelanggan 69   
Nama Masukan : Data Pesanan Sumber : Bagian Penjualan Fungsi : Untuk informasi data pesanan Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/minggu Volume : Mingguan Format : Lampiran D-3, halaman 107 Keterangan : Berisi informasi data pesanan 70   
c. Rancangan Dialog Layar 1) Struktur Tampilan   Gambar IV.4 Struktur Tampilan 71   
2) Rancangan Layar a) Rancangan Layar Form Menu Utama   Gambar IV.5 Rancangan Layar Form Menu Utama b) Rancangan Layar Form Master   Gambar IV.6 Rancangan Layar Form Master 72   
(1) Rancangan Layar Form Entry Data Barang   Gambar IV.7 Rancangan Layar Form Entry Data Barang 73   
(2) Rancangan Layar Form Entry Data Pelanggan           Gambar IV.8 Rancangan Layar Form Entry Data Pelanggan       74   
(3) Rancangan Layar Form Entry Data Rekening   Gambar IV.9 Rancangan Layar Form Entry Data Rekening   75   
c) Rancangan Layar Form Transaksi     Gambar IV.10 Rancangan Layar Form Transaksi 76   
(1) Rancangan Layar Form Entry Pesanan   Gambar IV.11 Rancangan Layar Form Entry Pesanan 77   
(2) Rancangan Layar Form Cetak Nota   Gambar IV.12 Rancangan Layar Form Cetak Nota     d) Rancangan Layar Form Cetak   Gambar IV.13 Rancangan Layar Form Cetak 78   
(1) Rancangan Layar Form Cetak Laporan Penjualan Gambar IV.14 Rancangan Layar Form Cetak Laporan Penjualan (2) Rancangan Layar Form Cetak Jurnal Penerimaan Kas   Gambar IV.15 Rancangan Layar Form Cetak Jurnal Penerimaan Kas 79   
(3) Rancangan Layar Form Cetak Jurnal Umum Gambar IV.16 Rancangan Layar Form Cetak Jurnal Umum 80   
d. Sequence Diagram 1) Sequence Diagram Entry Data Barang : Bagian Penjualan : fmenuutama : Control Barang : fBarang Open ( ) getBarang ( ) getBarang ( ) Kode Otomatis ( ) Input Barang ( ) Input Barang ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.17 Sequence Diagram Entry Data Barang 81    HAPUS ( ) : Barang
2) Sequence Diagram Entry Data Pelanggan : Bagian Penjualan : fmenuutama : Control Barang : fPelanggan Open ( ) getPelanggan ( ) : Pelanggan getPelanggan ( ) Kode Otomatis ( ) Input Pelanggan ( ) Input Pelanggan ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.18 Sequence Diagram Entry Data Pelanggan 82    HAPUS ( )
3) Sequence Diagram Entry Data Rekening : Bagian Penjualan : fmenuutama : Control Barang : fRekening Open ( ) getRekening ( ) getRekening ( ) Kode Otomatis ( ) Input Rekening ( ) Input Rekening ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.19 Sequence Diagram Entry Data Rekening 83    : Rekening HAPUS ( )
4) Sequence Diagram Entry Pesanan : Bagian Penjualan : fMenu Utama Open ( ) : control fPesanan : fPesanan getPesanan ( ) : Pesanan : Minta getPesanan ( ) Kode Otomatis ( ) sysdate ( ) cari Pelanggan ( ) cari Pelanggan ( ) getPelanggan ( ) Tampil Pelanggan ( ) loop cari barang() cari Barang() cari Barang() Tampil Barang ( ) input Minta ( ) input Minta ( ) Hitung Total ( ) Tampil Total ( ) Pesan ( ) Pesan ( ) Hitung GrandTotal () Tampil ListView ( ) Tampil GrandTotal ( ) Simpan ( ) Simpan ( ) Simpan Pesanan ( ) Simpan Minta ( ) Batal ( ) Batal ( ) Kosongkan ( ) Tutup() Tutup() Tutup ( ) Gambar IV.20 Sequence Diagram Entry Pesanan 84    : Pelanggan : Barang
5) Sequence Diagram Cetak Nota : Bagian Penjualan : fMenu Utama Open ( ) : fNota : control fNota getNota ( ) : Pelanggan : Nota : Minta : Pesanan : Barang : Jurnal getNota ( ) Kode Otomatis ( ) sysDate ( ) input Nota ( ) input Nota ( ) cari Pesanan ( ) cari Pesanan ( ) getPelanggan ( ) getMinta ( ) getPesanan ( ) getBarang ( ) Tampil Pesanan ( ) CETAK ( ) CETAK ( ) Simpan Nota ( ) getRekening ( ) Loop Simpan Jurnal ( ) Litah Nota Pembayaran ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.21 Sequence Diagram Cetak Nota 85    : Rekening
6) Sequence Diagram Cetak Laporan Penjualan : Bagian Penjualan : fMenu Utama : fCetakLapPenj : control fCetakLapPenj : Pelanggan : Minta : Pesanan : Barang Open ( ) input periode ( ) iinput periode ( ) getPelanggan ( ) getMinta ( ) getPesanan ( ) getBarang ( ) CETAK ( ) CETAK ( ) Tampil Laporan Penjualan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.22 Sequence Diagram Cetak Laporan Penjualan 86    : Nota
7) Sequence Diagram Cetak Jurnal Penerimaan Kas : Bagian Penjualan : fMenu Utama : fJurPenKas : control fJurPenKas : Nota : Jurnal : Rekening Open ( ) input Periode ( ) input Periode ( ) getNota ( ) getRekening ( ) CETAK ( ) CETAK ( ) Tampil Jurnal Penerimaan Kas ( ) Tampil Total Keseluruhan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.23 Sequence Diagram Cetak Jurnal Penerimaan Kas 87   
8) Sequence Diagram Cetak Jurnal Umum : Bagian Penjualan : fMenu Utama : fJurUmum : control fJurUmum : Jurnal : Nota Open ( ) input Periode ( ) input Periode ( ) getNota ( ) getRekening ( ) CETAK ( ) CETAK ( ) Tampil Jurnal Umum ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.24 Sequence Diagram Cetak Jurnal Umum 88    : Rekening
3. Rancangan Class Diagram MINTA No_Psn Kd_Brg Harga_Jual Jml_Psn PELANGGAN Kd_Plg Nm_Plg Almt_Plg Telp_Plg getkon() Simpan() Ubah() Hapus() 1 buat PESANAN No_Psn Tgl_Psn 1..* getminta() Simpan() 1..* 1..* getpsn() Simpan() Batal() Selesai() getbrg() Simpan() 1 JURNAL No_Nota No_Rek Tanggal D_K Jumlah terima 1 NOTA No_Nota Tgl_Nota getjurnal() Simpan() 1..* getnota() Cetak() Batal() Keluar() Gambar IV.25 Rancangan Class Diagram 89    BARANG Kd_Brg Nm_Brg Jenis Hrg_Beli Hrg_Jual Stok 1..* REKENING Kd_Rek Nm_Rek Posisi getrekening() Simpan()
BAB V PENUTUP 1. Kesimpulan Dari pembahasan yang sudah diuraikan maka penulis mencoba membuat kesimpulan seperti berikut ini : a. Penggunaan sistem penjualan secara manual memerlukan banyak waktu serta keakuratan data atau informasi yang kurang terjamin. Padahal kegiatan penjualan merupakan kegiatan rutinitas setiap harinya dan memerlukan ketelitian yang cukup. b. Tingkat kesalahan pada penggunaan sistem manual lebih besar dibanding dengan menggunakan sistem yang sudah terkomputerisasi seperti dalam proses perhitungan. c. Dengan adanya sistem penjualan secara komputerisasi pengolah data, penyajian informasi penjualan akan lebih cepat, akurat serta keamanan data akan lebih terjamin karena tempat atau media penyimpanan lebih terjaga. d. Dengan menggunakan sistem penjualan yang sudah terkomputerisasi diharapkan masalah atau hambatan yang dihadapi dalam sistem manual dapat teratasi atau meminimalkan kesalahan yng terjadi dalam sistem manual seperti dalam penyajian informasi yang kurang cepat dan keakuratan data yang kurang terjamin. 90   
2. Saran Dari hasil kesimpulan yang penulis utarakan diatas maka penulis mencoba memberikan saran-saran yang kiranya dapat berguna bagi Counter ADA CELL terutama sistem penjualan tunai untuk pengolahan data antara lain adalah a. Ketelitian operator pada waktu memasukkan data perlu ditingkatkan agar tingkat kesalahan data akan semakin rendah, dengan demikian keluaran yang dihasilkan akan sesuai dengan yang diinginkan. Hendaknya disadari bahwa komputerisasi sistem tidak ada gunanya jika tanpa dukungan operator yang terampil, terlatih dan bertanggung jawab. b. Agar diadakan pelatihan yang baik dalam penggunaan sistem komputerisasi yang baru tersebut kepada karyawan yang menggunakan sistem ini. c. Diperlukannya personil untuk maintenance / menguasai masalah hardware maupun software agar terhindar dari masalah-masalah yang merugikan perusahaan. d. Dilakukannya back up secara berkala terhadap data-data yang penting untuk mengantisipasi keadaan yang tidak diinginkan. e. Untuk menjaga agar data di database selalu up to date maka sebaiknya menghapus data-data yang sudah tidak diperlukan agar tidak terjadi penumpukan data. f. Ada kebijakan untuk pencetakan ulang dokumen rancangan keluaran dari pimpinan apabila pada saat pencetakan ada kecelakaan kecil yang menyebabkan tidak bisa untuk mencetak ulang dengan nomor urut dokumen yang sama. 91   
DAFTAR PUSTAKA Buku: [Daulay 2007] Daulay, Syafrizal Melwin, “ Mengenal hardware-sotfware dan pengelolaan instalasi komputer”, CV.Andi Offset, Jakarta, 2007. [Hadi 2010] Hadi, Santoso ,S.kom 2010, VB.NET Lanjutan: Kampus STMIK Atma Luhur, Diktat, Pangkalpinang, Kampus STMIK Atma Luhur. [Hadi 2009] Hadi, Santoso, S.Kom 2009, Implementasi Sistem Informasi Akuntansi: Kampus STMIK Atma Luhur, Modul, Pangkalpinang, Kampus STMIK Atma Luhur. [Melati 2009] Melati, Suci Mayasari ,S.kom 2009, Analisa Sistem Informasi: Kampus STMIK Atma Luhur, Diktat, Pangkalpinang, Kampus STMIK Atma Luhur. [Haryono 2001] AL, Haryono, Jusuf, 2001, “Pengertian Akuntansi”, AICPA, 2001 Naskah dari Internet : [YTSE 1999] Yayasan Total Sarana Edukasi, “ Perangkat Keras”, Copyright (c) 1999-2010, www.total.or.id (Diakses 22 Mei 2011). [BLACKICE 2007] Blackice, 89, “ Konsep Dasar Sistem”, 2007. www.blackice89.blogspot.com/2007/12/konsep-dasarsistem.html (Diakses 22 Mei 2001) [Andika 2010] Andika, Apriadi, “ Konsep Dasar Sistem Informasi “, 2010. www.andhika-apriadi.blogspot.com/2010/09/konsep- dasar-sistem-informasi.html (Diakses 22 Mei 2011) 92   
LAMPIRAN-A KELUARAN SISTEM BERJALAN 93   
Lampiran A-1 Nota 94   
Lampiran A-2 Laporan Penjualan 95   
LAMPIRAN-B MASUKAN SISTEM BERJALAN 96   
Lampiran B-1 Daftar Data Barang 97   
Lampiran B-2 Data Pesanan 98   
LAMPIRAN-C RANCANGAN KELUARAN   99   
    Lampiran C-1 Nota       100   
        Lampiran C-2 Laporan Penjualan 101   
ADA CELL Service Hp Segala Merk Grosir dan Eceran Accesories, Sparepart, & Hp Alamat Jl. Depati Amir - Pangkalpinang JURNAL PENERIMAAN KAS Periode : dd/mm/yyyyy sd dd/mm/yyyy No.Nota x-5-x Kas Penjualan 999,999,999 dd/mm/yyyy Kredit 999,999,999 999,999,999 Tanggal Nota 999 Debet 999,999,999 No Jumlah Pangkalpinang, dd/mm/yyyy Bagian Penjualan ( .............................) Lampiran C-3 Jurnal Penerimaan Kas       102   
      Lampiran C-4 Jurnal Umum 103   
LAMPIRAN-D RANCANGAN MASUKAN 104   
ADA CELL Service Hp Segala Merk Grosir dan Eceran Accesories, Sparepart, & Hp Alamat Jl. Depati Amir - Pangkalpinang DATA BARANG No. Kode Barang 999 x-6-x Nama Barang x-30-x Jenis IMEI x-10-x x-15-x x-10-x Harga Resmi Warna Harga Distributor 999.999.999 999,999,999 Garansi Stok x-10-x x-3-x   Lampiran D-1 Data Barang 105   
  Lampiran D-2 Data Pelanggan 106   
Lampiran D-3 Data Pesanan 107   
LAMPIRAN-E SURAT KETERANGAN RISET 108   
COUNTER ADA CELL Jl. Depati Amir - Pangkalpinang SURAT KETERANGAN Saya yang bertanda tangan dibawah ini : Nama : Awen Jabatan : Pimpinan Menerangkan dengan sesungguhnya : Nama : Jacob Dwi Kristian Umboh Nim : 0844300113 Mengenai pelaksanaan riset tugas akhir program studi Komputerisasi Akuntansi Diploma 3 (D3) yang rencananya akan diadakan ditempat kami dan telah selesai mengumpulkan data selama 3(Tiga) bulan, mulai dari tanggal 10 April 2011. Pada intinya kami setuju untuk memberikan pengarahan dan bimbingan kepada mahasiswa tersebut selama pelaksanaan riset tugas akhir ditempat kami. Demikianlah yang dapat kami sampaikan. Atas perhatian dan Kerja sama yang baik kami ucapkan Terima kasih.   109   
Rancangan Sistem Informasi Penjualan Tunai pada Metedologi Berorientasi obyek pada counter (Tugas Akhir Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang)
                                Counter “ADA CELL “
LISTING “MASTER” LISTING FORM – Data Barang.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Barang Dim obj As New ClassBarang Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdBrg.Text = obj.KdBrg Call list_data() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select Kd_Brg, Nm_Brg, Jenis, Imei, Warna, Hrg_Resmi, Hrg_Distributor, Garansi, Stok from Barang" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) .Items(x).SubItems(3).Text = myread.GetValue(3) .Items(x).SubItems(4).Text = myread.GetValue(4) .Items(x).SubItems(5).Text = myread.GetValue(5) .Items(x).SubItems(6).Text = myread.GetValue(6) .Items(x).SubItems(7).Text = myread.GetValue(7) Counter “ADA CELL “
.Items(x).SubItems(8).Text = myread.GetValue(8) End With End While Finally myread.Close() End Try conn.Close() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNmBrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" txtHrgResmi.Text = "" txtHrg_Distributor.Text = "" cmbGaransi.Text = "" txtStok.Text = "" txtNmBrg.Focus() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtKdBrg.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmBrg.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtJenis.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString txtIMEI.Text = ListView1.SelectedItems(0).SubItems(3).Text.ToString txtWarna.Text = ListView1.SelectedItems(0).SubItems(4).Text.ToString txtHrgResmi.Text = ListView1.SelectedItems(0).SubItems(5).Text.ToString txtHrg_Distributor.Text = ListView1.SelectedItems(0).SubItems(6).Text.ToString cmbGaransi.Text = ListView1.SelectedItems(0).SubItems(7).Text.ToString txtStok.Text = ListView1.SelectedItems(0).SubItems(8).Text.ToString btnSIMPAN.Enabled = False End Sub Private Sub btnBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdBrg.Text = obj.KdBrg Call bersih() btnSIMPAN.Enabled = True End Sub Counter “ADA CELL “
Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdBrg.Text = "" Then MessageBox.Show("Maaf, silahkan isi Kode Barang !!") txtKdBrg.Focus() Exit Sub ElseIf txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan isi Nama Barang !!") txtNmBrg.Focus() Exit Sub ElseIf txtJenis.Text = "" Then MessageBox.Show("Maaf, silahkan isi Jenis Barang !!") txtJenis.Focus() Exit Sub ElseIf txtIMEI.Text = "" Then MessageBox.Show("Maaf, silahkan isi Imei !!") txtIMEI.Focus() Exit Sub ElseIf txtWarna.Text = "" Then MessageBox.Show("Maaf, silahkan isi Imei !!") txtWarna.Focus() Exit Sub ElseIf txtHrgResmi.Text = "" Then MessageBox.Show("Maaf, silahkan isi Harga Resmi !!") txtHrgResmi.Focus() ElseIf txtHrg_Distributor.Text = "" Then MessageBox.Show("Maaf, silahkan isi Harga Distributor !!") txtHrg_Distributor.Focus() Exit Sub ElseIf cmbGaransi.Text = "" Then MessageBox.Show("Maaf, silahkan pilih garansi !!") cmbGaransi.Focus() Exit Sub ElseIf txtStok.Text = "" Then MessageBox.Show("Maaf, silahkan isi Stok Barang !!") txtStok.Focus() Exit Sub End If obj.KdBrg = txtKdBrg.Text obj.NmBrg = txtNmBrg.Text obj.Jenis = txtJenis.Text obj.Imei = txtIMEI.Text obj.Warna = txtWarna.Text obj.HrgResmi = txtHrgResmi.Text obj.HrgDistributor = txtHrg_Distributor.Text obj.Garansi = cmbGaransi.Text obj.Stok = txtStok.Text If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("kd_brg"), 3, 3) Else txtKdBrg.Text = "BG001" Exit Sub End If 'MsgBox(strTemp) Counter “ADA CELL “
strValue = Val(strTemp) + 1 txtKdBrg.Text = "BG" & Mid("000", 1, 3 - strValue.Length) & strValue Call bersih() Else MessageBox.Show("Gagal Menyimpan!!") End If Call list_data() End Sub Private Sub btnUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUBAH.Click If txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data barang di list_view !!") txtNmBrg.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA BARANG", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then obj.KdBrg = txtKdBrg.Text obj.NmBrg = txtNmBrg.Text obj.Jenis = txtJenis.Text obj.Imei = txtIMEI.Text obj.Warna = txtWarna.Text obj.HrgResmi = txtHrgResmi.Text obj.HrgDistributor = txtHrg_Distributor.Text obj.Garansi = cmbGaransi.Text obj.Stok = txtStok.Text If obj.ubah(txtKdBrg.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Brg"), 3, 3) Else txtKdBrg.Text = "BG001" Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdBrg.Text = "BG" & Mid("000", 1, 3 - strValue.Length) & strValue Else MessageBox.Show("Update Gagal !!") End If Call bersih() btnSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub btnHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHAPUS.Click Counter “ADA CELL “
If txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data barang di list_view !!") txtNmBrg.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA BARANG", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtKdBrg.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus !!") Else MessageBox.Show("Gagal Menghapus !!") End If Call bersih() End If Call list_data() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click Call bersih() End Sub Private Sub btnKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub End Class Counter “ADA CELL “
LISTING CLASS - ClassBarang.vb Imports System.Data.OleDb Imports System.Data Public Class ClassBarang #Region "Variabel" Private xKdBrg As String Private xNmbrg As String Private xJenis As String Private xImei As String Private xWarna As String Private xHrgResmi As Double Private xHrgDistributor As Double Private xGaransi As String Private xStok As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property KdBrg() As String Get Return xKdBrg End Get Set(ByVal value As String) xKdBrg = value End Set End Property Public Property NmBrg() As String Get Return xNmbrg End Get Set(ByVal value As String) xNmbrg = value End Set End Property Public Property Jenis() As String Get Return xJenis End Get Set(ByVal value As String) xJenis = value End Set End Property Public Property Imei() As String Get Return xImei End Get Set(ByVal value As String) xImei = value End Set End Property Public Property Warna() As String Counter “ADA CELL “
Get Return xWarna End Get Set(ByVal value As String) xWarna = value End Set End Property Public Property HrgResmi() As Double Get Return xHrgResmi End Get Set(ByVal value As Double) xHrgResmi = value End Set End Property Public Property HrgDistributor() As Double Get Return xHrgDistributor End Get Set(ByVal value As Double) xHrgDistributor = value End Set End Property Public Property Garansi() As String Get Return xGaransi End Get Set(ByVal value As String) xGaransi = value End Set End Property Public Property Stok() As String Get Return xStok End Get Set(ByVal value As String) xStok = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Barang(Kd_Brg,Nm_Brg,Jenis,Imei,Warna,Hrg_Resmi,Hrg_Distributor,Garansi,Sto k) " & _ "VALUES('" & xKdBrg & "','" & xNmbrg & "','" & xJenis & "','" & xImei & "','" & xwarna & "','" & xHrgResmi & "','" & xHrgDistributor & "','" & xGaransi & "','" & xStok & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() Counter “ADA CELL “
mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varkdbrg As String) As Integer sql = "DELETE FROM Barang WHERE Kd_Brg='" & varkdbrg & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varKdBrg As String) As Integer sql = "UPDATE Barang SET Nm_Brg ='" & xNmbrg & "'," & _ "Jenis ='" & xJenis & "',Imei ='" & xImei & "',Warna ='" & xWarna & "',Hrg_Resmi ='" & xHrgResmi & "',Hrg_Distributor ='" & xHrgDistributor & "',Garansi ='" & xGaransi & "'," & _ "Stok ='" & xStok & "'" & _ "WHERE Kd_Brg ='" & varKdBrg & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub KodeOtomatis() 'Untuk membuat kode otomatis Dim strtemp As String = "" Dim strvalue As String = "" sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strtemp = Mid(myread.Item("Kd_Brg"), 3, 3) Else xKdBrg = "BG001" Exit Sub End If 'MsgBox(strTemp) strvalue = Val(strtemp) + 1 xKdBrg = "BG" & Mid("000", 1, 3 - strvalue.Length) & strvalue End Sub #End Region End Class Counter “ADA CELL “
LISTING FORM – Data Konsumen.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Konsumen Dim obj As New ClassKonsumen Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Konsumen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdKon.Text = obj.KdKon Call list_data() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNmKon.Text = "" txtAlmtKon.Text = "" txtTelpKon.Text = "" txtNmKon.Focus() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select Kd_Kon, Nm_Kon, Almt_Kon, Telp_Kon from Konsumen" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) .Items(x).SubItems(3).Text = myread.GetString(3) End With Counter “ADA CELL “
End While Finally myread.Close() End Try conn.Close() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtKdKon.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmKon.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtAlmtKon.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString txtTelpKon.Text = ListView1.SelectedItems(0).SubItems(3).Text.ToString cmdSIMPAN.Enabled = False End Sub Private Sub cmdBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdKon.Text = obj.KdKon Call bersih() cmdSIMPAN.Enabled = True End Sub Private Sub cmdSIMPAN_Click(ByVal sender As System.EventArgs) Handles cmdSIMPAN.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtNmKon.Focus() Exit Sub ElseIf txtAlmtKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtAlmtKon.Focus() Exit Sub ElseIf txtTelpKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtTelpKon.Focus() Exit Sub End If obj.KdKon = txtKdKon.Text obj.NmKon = txtNmKon.Text obj.Almt_Kon = txtAlmtKon.Text obj.Telp_Kon = txtTelpKon.Text System.Object, ByVal e As Nama Konsumen !!") Alamat !!") No.Telp !!") If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else txtKdKon.Text = "KN001" Counter “ADA CELL “
Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdKon.Text = "KN" & Mid("000", 1, 3 - strValue.Length) & strValue Call bersih() Else MessageBox.Show("Gagal Menyimpan !!") End If Call list_data() End Sub Private Sub cmdUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUBAH.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data konsumen di list_view !!") txtNmKon.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA KONSUMEN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then obj.KdKon = txtKdKon.Text obj.NmKon = txtNmKon.Text obj.Almt_Kon = txtAlmtKon.Text obj.Telp_Kon = txtTelpKon.Text If obj.ubah(txtKdKon.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else txtKdKon.Text = "KN001" Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdKon.Text = "KN" & Mid("000", 1, 3 - strValue.Length) & strValue Else MessageBox.Show("Gagal menyimpan!!") End If Call bersih() cmdSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub cmdHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHAPUS.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data konsumen di list_view !!") txtNmKon.Focus() Counter “ADA CELL “
Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA KONSUMEN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtKdKon.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus!!") Else MessageBox.Show("Gagal menghapus!!") End If Call bersih() End If Call list_data() End Sub Private Sub cmdKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub Private Sub cmdBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBATAL.Click Call bersih() End Sub End Class Counter “ADA CELL “
LISTING CLASS – ClassKonsumen.vb Imports System.Data.OleDb Imports System.Data Public Class ClassKonsumen #Region "Variabel" Private xKdKon As Private xNmKon As Private xAlmt_Kon Private xTelp_Kon Dim Dim Dim Dim String String As String As String sql As String = "" mycmd As OleDbCommand myread As OleDbDataReader hasRows As Boolean #End Region #Region "Property" Public Property KdKon() As String Get Return xKdKon End Get Set(ByVal value As String) xKdKon = value End Set End Property Public Property NmKon() As String Get Return xNmKon End Get Set(ByVal value As String) xNmKon = value End Set End Property Public Property Almt_Kon() As String Get Return xAlmt_Kon End Get Set(ByVal value As String) xAlmt_Kon = value End Set End Property Public Property Telp_Kon() As String Get Return xTelp_Kon End Get Set(ByVal value As String) xTelp_Kon = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Konsumen(Kd_Kon,Nm_Kon,Almt_Kon,Telp_Kon) " & _ Counter “ADA CELL “
"VALUES('" & xKdKon & "','" & xNmKon & "','" & xAlmt_Kon & "','" & xTelp_Kon & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varkdkon As String) As Integer sql = "DELETE FROM Konsumen WHERE Kd_Kon='" & varkdkon & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varkdkon As String) As Integer sql = "UPDATE Konsumen SET Nm_Kon ='" & xNmKon & "'," & _ "Almt_Kon='" & xAlmt_Kon & "', Telp_Kon = '" & xTelp_Kon & "'" & _ " WHERE Kd_Kon='" & varkdkon & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub KodeOtomatis() 'Untuk membuat kode otomatis Dim strtemp As String = "" Dim strvalue As String = "" sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strtemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else xKdKon = "KN001" Exit Sub End If 'MsgBox(strTemp) strvalue = Val(strtemp) + 1 xKdKon = "KN" & Mid("000", 1, 3 - strvalue.Length) & strvalue End Sub #End Region End Class Counter “ADA CELL “
LISTING FORM – Data Rekening.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Rekening Dim obj As New ClassRekening Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Rekening_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() txtNoRek.Text = obj.NoRek Call list_data() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNoRek.Text = "" txtNmRek.Text = "" txtPosisi.Text = "" txtNoRek.Focus() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select No_Rek, Nm_Rek, Posisi from Rekening" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) End With End While Finally myread.Close() Counter “ADA CELL “
End Try conn.Close() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtNoRek.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmRek.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtPosisi.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString cmdSIMPAN.Enabled = False End Sub Private Sub cmdBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() txtNoRek.Text = obj.NoRek Call bersih() cmdSIMPAN.Enabled = True End Sub Private Sub cmdSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSIMPAN.Click If txtNmRek.Text = "" Then MessageBox.Show("Maaf, silahkan isi Nama Rekening !!") txtNmRek.Focus() Exit Sub End If obj.NoRek = txtNoRek.Text obj.NmRek = txtNmRek.Text obj.Posisi = txtPosisi.Text If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Rekening ORDER BY No_Rek DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader Call bersih() Else MessageBox.Show("Gagal Menyimpan!!") End If Call list_data() End Sub Private Sub cmdUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUBAH.Click If txtNmRek.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data rekening di list_view !!") txtNmRek.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA REKENING", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Counter “ADA CELL “
If jawab = Windows.Forms.DialogResult.Yes Then obj.NoRek = txtNoRek.Text obj.NmRek = txtNmRek.Text obj.Posisi = txtPosisi.Text If obj.ubah(txtNoRek.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Rekening ORDER BY No_Rek DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader Else MessageBox.Show("Gagal menyimpan!!") End If Call bersih() cmdSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub cmdHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHAPUS.Click If txtNoRek.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data rekening di list_view !!") txtNoRek.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA REKENING", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtNoRek.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus !!") Else MessageBox.Show("Gagal Menghapus !!") End If Call bersih() End If Call list_data() cmdSIMPAN.Enabled = True End Sub Private Sub cmdKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged End Sub End Class Counter “ADA CELL “
LISTING CLASS – ClassRekening.vb Imports System.Data.OleDb Imports System.Data Public Class ClassRekening #Region "Variabel" Private xNoRek As String Private xNmRek As String Private xPosisi As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property NoRek() As String Get Return xNoRek End Get Set(ByVal value As String) xNoRek = value End Set End Property Public Property NmRek() As String Get Return xNmRek End Get Set(ByVal value As String) xNmRek = value End Set End Property Public Property Posisi() As String Get Return xPosisi End Get Set(ByVal value As String) xPosisi = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Rekening(No_Rek,Nm_Rek,Posisi) " & _ "VALUES('" & xNoRek & "','" & xNmRek & "','" & xPosisi & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varnorek As String) As Integer sql = "DELETE FROM Rekening WHERE No_Rek='" & varnorek & "'" Counter “ADA CELL “
conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varnorek As String) As Integer sql = "UPDATE Rekening SET Nm_Rek ='" & xNmRek & "',Posisi ='" & xPosisi & "'" & _ "WHERE No_Rek='" & varnorek & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region End Class Counter “ADA CELL “
LISTING “TRANSAKSI” LISTING FORM – Entry Pesanan.vb Imports System.Data.OleDb Imports System.Data Public Class Entry_Pesanan Dim obj As New ClassPesanan Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private index As Integer = 0 Private total As Double = 0.0 Private Sub Entry_Pesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.AutoKode() txtNoPsn.Text = obj.NoPsn dtpPsn.Value = Now End Sub Private Sub cmdCariKon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariKon.Click Dim a As New Cari_Data_Konsumen a.ShowDialog() If a.tkdkon <> "" Then txtKdKon.Text = a.tkdkon txtNmKon.Text = a.tnmkon txtAlmt_Kon.Text = a.talamat txtTelpKon.Text = a.ttelp txtKdBrg.Focus() End If End Sub Private Sub cmdCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariBrg.Click Dim b As New Cari_Data_Barang b.ShowDialog() If b.retkdbrg <> "" Then txtKdBrg.Text = b.retkdbrg txtNmBrg.Text = b.retnmbrg txtJenis.Text = b.retJenis txtIMEI.Text = b.retImei txtWarna.Text = b.retWarna txthrgresmi.Text = b.retHrgResmi txthrgdis.Text = b.retHrgDis txtGaransi.Text = b.retGaransi txtStok.Text = b.retStok cmbRD.Focus() End If End Sub Counter “ADA CELL “
Sub SetTotal() Dim a As Integer a = CInt(txtJmlPsn.Text) * CInt(txtHrgRD.Text) txtTotal.Text = Format(CDbl(CStr(a)), "##,####,####,###") End Sub Sub addlist(ByVal value() As String) Dim subindex As Integer ListView1.Items.Add("") For subindex = 0 To 9 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subindex).Text = value(subindex) Next index = index + 1 End Sub Sub bersih() obj.AutoKode() txtNoPsn.Text = obj.NoPsn txtKdKon.Text = "" txtNmKon.Text = "" txtAlmt_Kon.Text = "" txtTelpKon.Text = "" txtkdbrg.Text = "" txtnmbrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" cmbRD.Text = "" txtHrgRD.Text = "" txtGaransi.Text = "" txtstok.Text = "" txtjmlpsn.Text = "" txttotal.Text = "" txtNoPsn.Focus() End Sub Private Sub txtJmlPsn_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlPsn.KeyPress If Asc(e.KeyChar) = 13 Then SetTotal() txtTotal.Focus() End If End Sub Private Sub txtJmlPsn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJmlPsn.TextChanged If Val(txtJmlPsn.Text) > Val(txtStok.Text) Then MessageBox.Show("Stok tidak mencukupi !") txtJmlPsn.Focus() End If End Sub Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua data dengan benar !!") Counter “ADA CELL “
txtKdKon.Focus() Exit Sub End If Dim counter As Integer Dim sql1, sql2 As String Try sql1 = "Insert into Pesanan values('" & txtNoPsn.Text & "','" & dtpPsn.Value & "','" & txtKdKon.Text & "','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader() For counter = 0 To index - 1 sql2 = " insert into Minta values('" & txtNoPsn.Text & "','" & _ ListView1.Items(counter).SubItems(0).Text & "','" & _ ListView1.Items(counter).SubItems(7).Text & "','" & _ ListView1.Items(counter).SubItems(9).Text & "')" If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader() Next MessageBox.Show("Data Pesanan Telah TERSIMPAN !") txtKdBrg.Focus() bersih() ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" Catch ex As Exception MsgBox(ex.Message) myread.Close() End Try conn.Close() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" End Sub Private Sub btnSELESAI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSELESAI.Click Me.Close() End Sub Private Sub cmdPESAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPESAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua Data Konsumen !!") txtKdKon.Focus() Exit Sub ElseIf txtKdBrg.Text = "" Then MessageBox.Show("Silahkan isi Data Barang !!") txtKdBrg.Focus() Counter “ADA CELL “
Exit Sub ElseIf txtJmlPsn.Text = "" Then MessageBox.Show("Anda Harus Mengisi Jumlah Pesan !!") txtJmlPsn.Focus() Exit Sub ElseIf txtTotal.Text = "" Then MessageBox.Show("tekan ENTER setelah mengisi jumlah pemesanan !!") txtJmlPsn.Focus() Exit Sub End If Dim value() As String = {txtKdBrg.Text, txtNmBrg.Text, txtJenis.Text, txtIMEI.Text, txtWarna.Text, txtGaransi.Text, txtStok.Text, txtHrgRD.Text, txtJmlPsn.Text, txtTotal.Text} addlist(value) total += CDbl(txtTotal.Text) : txtGrandTtl.Text = Format(CDbl(CStr(total)), "##,####,####,###") txtKdBrg.Text = "" : txtNmBrg.Text = "" : txtJenis.Text = "" : txtIMEI.Text = "" : txtWarna.Text = "" : txtGaransi.Text = "" : txtStok.Text = "" : txtHrgRD.Text = "" : txtJmlPsn.Text = "" : txtTotal.Text = "" cmbRD.Text = "" txtKdBrg.Focus() End Sub Private Sub txtGrandTtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGrandTtl.TextChanged End Sub Private Sub txtGaransi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGaransi.TextChanged End Sub Private Sub cmbRD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRD.SelectedIndexChanged Dim b As New Cari_Data_Barang If cmbRD.Text = "RESMI" Then txtHrgRD.Text = txthrgresmi.Text ElseIf cmbRD.Text = "DISTRIBUTOR" Then txtHrgRD.Text = txthrgdis.Text End If txtJmlPsn.Text = "" txtTotal.Text = "" txtJmlPsn.Focus() End Sub End Class Counter “ADA CELL “
LISTING CLASS – ClassEntryPesanan.vb Imports System.Data.OleDb Imports System.Data Public Class Entry_Pesanan Dim obj As New ClassPesanan Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private index As Integer = 0 Private total As Double = 0.0 Private Sub Entry_Pesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.AutoKode() txtNoPsn.Text = obj.NoPsn dtpPsn.Value = Now End Sub Private Sub cmdCariKon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariKon.Click Dim a As New Cari_Data_Konsumen a.ShowDialog() If a.tkdkon <> "" Then txtKdKon.Text = a.tkdkon txtNmKon.Text = a.tnmkon txtAlmt_Kon.Text = a.talamat txtTelpKon.Text = a.ttelp txtKdBrg.Focus() End If End Sub Private Sub cmdCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariBrg.Click Dim b As New Cari_Data_Barang b.ShowDialog() If b.retkdbrg <> "" Then txtKdBrg.Text = b.retkdbrg txtNmBrg.Text = b.retnmbrg txtJenis.Text = b.retJenis txtIMEI.Text = b.retImei txtWarna.Text = b.retWarna txthrgresmi.Text = b.retHrgResmi txthrgdis.Text = b.retHrgDis txtGaransi.Text = b.retGaransi txtStok.Text = b.retStok cmbRD.Focus() End If End Sub Sub SetTotal() Dim a As Integer Counter “ADA CELL “
a = CInt(txtJmlPsn.Text) * CInt(txtHrgRD.Text) txtTotal.Text = Format(CDbl(CStr(a)), "##,####,####,###") End Sub Sub addlist(ByVal value() As String) Dim subindex As Integer ListView1.Items.Add("") For subindex = 0 To 9 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subindex).Text = value(subindex) Next index = index + 1 End Sub Sub bersih() obj.AutoKode() txtNoPsn.Text = obj.NoPsn txtKdKon.Text = "" txtNmKon.Text = "" txtAlmt_Kon.Text = "" txtTelpKon.Text = "" txtkdbrg.Text = "" txtnmbrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" cmbRD.Text = "" txtHrgRD.Text = "" txtGaransi.Text = "" txtstok.Text = "" txtjmlpsn.Text = "" txttotal.Text = "" txtNoPsn.Focus() End Sub Private Sub txtJmlPsn_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlPsn.KeyPress If Asc(e.KeyChar) = 13 Then SetTotal() txtTotal.Focus() End If End Sub Private Sub txtJmlPsn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJmlPsn.TextChanged If Val(txtJmlPsn.Text) > Val(txtStok.Text) Then MessageBox.Show("Stok tidak mencukupi !") txtJmlPsn.Focus() End If End Sub Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua data dengan benar !!") txtKdKon.Focus() Exit Sub End If Counter “ADA CELL “
Dim counter As Integer Dim sql1, sql2 As String Try sql1 = "Insert into Pesanan values('" & txtNoPsn.Text & "','" & dtpPsn.Value & "','" & txtKdKon.Text & "','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader() For counter = 0 To index - 1 sql2 = " insert into Minta values('" & txtNoPsn.Text & "','" & _ ListView1.Items(counter).SubItems(0).Text & "','" & _ ListView1.Items(counter).SubItems(7).Text & "','" & _ ListView1.Items(counter).SubItems(9).Text & "')" If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader() Next MessageBox.Show("Data Pesanan Telah TERSIMPAN !") txtKdBrg.Focus() bersih() ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" Catch ex As Exception MsgBox(ex.Message) myread.Close() End Try conn.Close() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" End Sub Private Sub btnSELESAI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSELESAI.Click Me.Close() End Sub Private Sub cmdPESAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPESAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua Data Konsumen !!") txtKdKon.Focus() Exit Sub ElseIf txtKdBrg.Text = "" Then MessageBox.Show("Silahkan isi Data Barang !!") txtKdBrg.Focus() Exit Sub ElseIf txtJmlPsn.Text = "" Then MessageBox.Show("Anda Harus Mengisi Jumlah Pesan !!") Counter “ADA CELL “
txtJmlPsn.Focus() Exit Sub ElseIf txtTotal.Text = "" Then MessageBox.Show("tekan ENTER setelah mengisi jumlah pemesanan !!") txtJmlPsn.Focus() Exit Sub End If Dim value() As String = {txtKdBrg.Text, txtNmBrg.Text, txtJenis.Text, txtIMEI.Text, txtWarna.Text, txtGaransi.Text, txtStok.Text, txtHrgRD.Text, txtJmlPsn.Text, txtTotal.Text} addlist(value) total += CDbl(txtTotal.Text) : txtGrandTtl.Text = Format(CDbl(CStr(total)), "##,####,####,###") txtKdBrg.Text = "" : txtNmBrg.Text = "" : txtJenis.Text = "" : txtIMEI.Text = "" : txtWarna.Text = "" : txtGaransi.Text = "" : txtStok.Text = "" : txtHrgRD.Text = "" : txtJmlPsn.Text = "" : txtTotal.Text = "" cmbRD.Text = "" txtKdBrg.Focus() End Sub Private Sub txtGrandTtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGrandTtl.TextChanged End Sub Private Sub txtGaransi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGaransi.TextChanged End Sub Private Sub cmbRD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRD.SelectedIndexChanged Dim b As New Cari_Data_Barang If cmbRD.Text = "RESMI" Then txtHrgRD.Text = txthrgresmi.Text ElseIf cmbRD.Text = "DISTRIBUTOR" Then txtHrgRD.Text = txthrgdis.Text End If txtJmlPsn.Text = "" txtTotal.Text = "" txtJmlPsn.Focus() End Sub End Class Counter “ADA CELL “
LISTING FORM – Cetak Nota.vb Imports System.Data.OleDb Imports System.Data Public Class Cetak_Nota Dim obj As New ClassNota Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim sql As String Private Sub Cetak_Nota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota dtpNota.Value = Now txtNoPsn.Focus() End Sub Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click Call bersih() End Sub Private Sub bersih() obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota txtNoPsn.Text = "" dtppsn.Text = "" txtKdKon.Text = "" txtNmKon.Text = "" txtGrandTtl.Text = "" txtNoPsn.Focus() End Sub Private Sub cmdTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTutup.Click Me.Close() End Sub Private Sub cmdCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCetak.Click Dim pesan As MsgBoxResult Dim baris As Boolean Dim sql1, sql2 As String conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.NoPsn = txtNoPsn.Text obj.NoNota = txtNoNota.Text obj.TglNota = dtpNota.Value mycmd = New OleDbCommand("select * from Nota where No_Psn='" & txtNoPsn.Text & "'", conn) myread = mycmd.ExecuteReader baris = False Counter “ADA CELL “
If myread.HasRows = True Then myread.Read() txtNoNota.Text = myread.Item(0) pesan = MsgBox("Sudah Pernah dicetak, Ingin cetak lagi??", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") If pesan = MsgBoxResult.Yes Then Tampil_Nota.Show() Else Exit Sub End If Else obj.simpan() 'simpan ke tabel jurnal untuk DP/ sql1 = "insert into JURNAL values('" & txtNoNota.Text & "','1101','" & dtpNota.Value & "','D','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader sql2 = "insert into JURNAL values('" & txtNoNota.Text & "','4101','" & dtpNota.Value & "','K','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader Tampil_Nota.Show() End If obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota txtNoPsn.Focus() End Sub Private Sub cmdCariDtPsn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariDtPsn.Click Dim a As New Cari_Data_Pesanan a.ShowDialog() If a.tnopsn <> "" Then txtNoPsn.Text = a.tnopsn dtpPsn.Text = a.ttgl txtKdKon.Text = a.tkdkon txtGrandTtl.Text = a.tGTotal cmdCetak.Focus() End If Dim b As String b = "select Nm_Kon from Konsumen where Kd_Kon like '%" & Trim(txtKdKon.Text) & "%' order by Kd_Kon asc " conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(b, conn) myread = mycmd.ExecuteReader If myread.Read Then txtNmKon.Text = myread(0) End If End Sub End Class Counter “ADA CELL “
LISTING CLASS – ClassNota.vb Imports System.Data.OleDb Imports System.Data Public Class ClassNota #Region "Variabel" Private xNoNota As String Private xTglNota As Date Private xNoPsn As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property NoNota() As String Get Return xNoNota End Get Set(ByVal value As String) xNoNota = value End Set End Property Public Property TglNota() As Date Get Return xTglNota End Get Set(ByVal value As Date) xTglNota = value End Set End Property Public Property NoPsn() As String Get Return xNoPsn End Get Set(ByVal value As String) xNoPsn = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Nota(No_Nota,Tgl_Nota,No_Psn) " & _ "VALUES('" & xNoNota & "','" & xTglNota & "','" & xNoPsn & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub Kode_Otomatis() Counter “ADA CELL “
Dim strTemp As String = "" Dim strValue As String = "" sql = "SELECT * FROM Nota ORDER BY No_Nota DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("No_Nota"), 3, 3) Else xNoNota = "NT001" ' If myread.IsClosed = False Then myread.Close() Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 xNoNota = "NT" & Mid("000", 1, 3 - strValue.Length) & strValue ' If myread.IsClosed = False Then myread.Close() End Sub #End Region End Class Counter “ADA CELL “
LISTING FORM – Tampil Nota.vb Imports System.Data.OleDb Imports System.Data Public Class Tampil_Nota Dim cnn As OleDbConnection Dim cmmd As OleDbCommand Dim dReader As OleDbDataReader Private Sub Tampil_Nota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CrystalReportViewer1.SelectionFormula = "{Nota.No_Nota}='" & Cetak_Nota.txtNoNota.Text & "'" CrystalReportViewer1.RefreshReport() End Sub End Class Counter “ADA CELL “
LISTING “LAPORAN” LISTING FORM – TampilLapJual.vb Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Tampil_Lap_Penjualan Dim obj As New ClassLapJual Public formula As String Public reports As ReportClass Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load End Sub End Class LISTING CLASS – LapJual.vb Imports System.Data.OleDb Imports System.Data Public Class ClassLapJual #Region "variabel" Dim query As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader #End Region #Region "method" Public Function CetakLapJual(ByVal vartglawal As Date, ByVal vartglakhir As Date) As DataTable Dim myda As OleDbDataAdapter Dim mydt As New DataTable query = "select a.Kd_Kon as Kd_Kon, a.Nm_Kon as Nm_Kon," & _ " a.Almt_Kon as Almt_Kon, a.Telp_Kon as Telp_Kon, p.No_Psn as No_Psn, p.Tgl_Psn as Tgl_Psn,m.Harga_Jual as Harga_Jual,m.Jml_Psn as Jml_Psn,b.Kd_Brg as Kd_Brg,b.Nm_Brg as Nm_Brg" & _ " from Konsumen a,Pesanan p, Minta m, Barang b" & _ " where (a.Kd_Kon=p.Kd_Kon)" & _ " and p.No_Psn = m.No_Psn" & _ " and b.Kd_Brg = m.Kd_Brg" & _ " and p.Tgl_Psn between #" & vartglawal.ToShortDateString() & "#" & _ " and #" & vartglakhir.ToShortDateString() & "#" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() myda = New OleDbDataAdapter(query, conn) myda.Fill(mydt) Return mydt End Function #End Region End Class Counter “ADA CELL “

More Related Content

DOCX
Analisa Website Traveloka - Makalah IMK
Miftahul Muttaqin
 
PDF
Metlit tatabahasa
Lukmanulhakim Almamalik
 
PPTX
Flowchart e banking,m-token dan SMS banking
nurul lina musadad
 
DOC
Makalah pengaruh teknologi terhadap bisnis
Eko Mardianto
 
DOCX
Proposal penawaran website
Rama Dian Syah
 
PDF
Contoh proposal PKM-P
Mahros Darsin
 
PPTX
Diksi dan gaya bahasa
Oki16
 
DOCX
Contoh Struktur Organisasi
Hasbullah1991
 
Analisa Website Traveloka - Makalah IMK
Miftahul Muttaqin
 
Metlit tatabahasa
Lukmanulhakim Almamalik
 
Flowchart e banking,m-token dan SMS banking
nurul lina musadad
 
Makalah pengaruh teknologi terhadap bisnis
Eko Mardianto
 
Proposal penawaran website
Rama Dian Syah
 
Contoh proposal PKM-P
Mahros Darsin
 
Diksi dan gaya bahasa
Oki16
 
Contoh Struktur Organisasi
Hasbullah1991
 

What's hot (20)

PPTX
Tugas power point makalah b.indo
Fuad Nasir
 
PPTX
POWER POINT KELOMPOK 6
ulpri
 
DOCX
Makalah teori akuntansi (sejarah perkembangan akuntansi) jiantari c 301 09 013
Jiantari Marthen
 
PPTX
PPT Teknik Informatika.pptx
UcihaJinRio
 
PPT
Teknik lobi dan negosiasi
M Mubaraq
 
DOCX
Tugas strategi pemasaran_nike_inc
Jerry Dwi Oktavian
 
PPTX
Big data Traveloka.pptx
jeniart
 
DOCX
Makalah sejarah retorika
Vick Cipoetra Mathan
 
PDF
Tes Potensi Akademik
Anggita Dwi Lestari Lestari
 
PDF
Uji Kelayakan Sistem - Studi Kasus M-Banking BCA
Farichah Riha
 
PPTX
Langkah-langkah Menjalankan Aplikasi MYOB
Hariyatunnisa Ahmad
 
PDF
Bab iii metode penelitian kualitatif
Royadi Nusa
 
PDF
Bab vii pancasila menjadi dasar nilai pengembangan ilmu
Syaiful Ahdan
 
DOCX
Kedudukan dan fungsi bahasa indonesia sebagai bahasa nasional dan bahasa negara
MuhammadIqbal169
 
PPTX
Pengolahan transaksi pada MySQL
Putra Andry
 
RTF
Koreksi Kesalahan, Perubahan Kebijakan Akuntansi, Perubahan Estimasi Akuntans...
Adi Jauhari
 
PDF
Sintesis Manajemem Komunikasi Pemasaran
Yayu Ferdian
 
PPTX
INTEGRASI APLIKASI PERKANTORAN.pptx
NannoAjjalah
 
PDF
Data Array
Simon Patabang
 
PPTX
Literasi Digital - Internet Sehat
Indriyatno Banyumurti
 
Tugas power point makalah b.indo
Fuad Nasir
 
POWER POINT KELOMPOK 6
ulpri
 
Makalah teori akuntansi (sejarah perkembangan akuntansi) jiantari c 301 09 013
Jiantari Marthen
 
PPT Teknik Informatika.pptx
UcihaJinRio
 
Teknik lobi dan negosiasi
M Mubaraq
 
Tugas strategi pemasaran_nike_inc
Jerry Dwi Oktavian
 
Big data Traveloka.pptx
jeniart
 
Makalah sejarah retorika
Vick Cipoetra Mathan
 
Tes Potensi Akademik
Anggita Dwi Lestari Lestari
 
Uji Kelayakan Sistem - Studi Kasus M-Banking BCA
Farichah Riha
 
Langkah-langkah Menjalankan Aplikasi MYOB
Hariyatunnisa Ahmad
 
Bab iii metode penelitian kualitatif
Royadi Nusa
 
Bab vii pancasila menjadi dasar nilai pengembangan ilmu
Syaiful Ahdan
 
Kedudukan dan fungsi bahasa indonesia sebagai bahasa nasional dan bahasa negara
MuhammadIqbal169
 
Pengolahan transaksi pada MySQL
Putra Andry
 
Koreksi Kesalahan, Perubahan Kebijakan Akuntansi, Perubahan Estimasi Akuntans...
Adi Jauhari
 
Sintesis Manajemem Komunikasi Pemasaran
Yayu Ferdian
 
INTEGRASI APLIKASI PERKANTORAN.pptx
NannoAjjalah
 
Data Array
Simon Patabang
 
Literasi Digital - Internet Sehat
Indriyatno Banyumurti
 
Ad

More from Jacob Dwi Cristian Umboh (6)

PPT
Sistem Informasi Akuntansi
Jacob Dwi Cristian Umboh
 
PDF
Diktat vbnet lanjutan
Jacob Dwi Cristian Umboh
 
PPTX
Presentation 3 - Membuat menu menggunakan cascading style sheets (css)
Jacob Dwi Cristian Umboh
 
PPTX
Presentation 2 - Cascading style sheets (css)
Jacob Dwi Cristian Umboh
 
PPTX
Presentation 1 - Desain dan pemrograman web 2
Jacob Dwi Cristian Umboh
 
PDF
Diktat Metedologi dan Pengembangan Sistem Informasi
Jacob Dwi Cristian Umboh
 
Sistem Informasi Akuntansi
Jacob Dwi Cristian Umboh
 
Diktat vbnet lanjutan
Jacob Dwi Cristian Umboh
 
Presentation 3 - Membuat menu menggunakan cascading style sheets (css)
Jacob Dwi Cristian Umboh
 
Presentation 2 - Cascading style sheets (css)
Jacob Dwi Cristian Umboh
 
Presentation 1 - Desain dan pemrograman web 2
Jacob Dwi Cristian Umboh
 
Diktat Metedologi dan Pengembangan Sistem Informasi
Jacob Dwi Cristian Umboh
 
Ad

Rancangan Sistem Informasi Penjualan Tunai pada Metedologi Berorientasi obyek pada counter (Tugas Akhir Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang)

  • 2.     RANCANGAN SISTEM INFORMASI PENJUALAN TUNAI PADA COUNTER ADA CELL PANGKALPINANG DENGAN METODOLOGI BERORIENTASI OBYEK TUGAS AKHIR Diajukan sebagai syarat meraih Gelar Ahli Madya Oleh : JACOB DWI KRISTIAN UMBOH 0844300113 PROGRAM STUDI KOMPUTERISASI AKUNTANSI STMIK ATMA LUHUR PANGKALPINANG JULI 2011
  • 4. ABSTRAKSI Counter ADA CELL Pangaklpinang adalah suatu bidang usaha yang bergerak dibidang penjualan. Counter ADA CELL Menjual Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya. Counter ADA CELL beralamat di Jl. Depati Amir Pangkalpinang. Counter tersebut berdiri sejak bulan juni dan pemilik dari Counter ADA CELL adalah bapak Awen (Aming). Bidang usaha yang dikembangkan adalah sistem operasi mencakup kegiatan dibidang penjualan yang pemasokan langsung dari pelanggan yang kemudian dipasarkan kembali kepada pelanggan. Proses penjualan tunai pada Counter ADA CELL dimulai dengan pembuatan data dan harga barang oleh pimpinan/ pemilik perusahaan yang kemudian diserahkan ke bagian penjualan dan pemesanan barang oleh pelanggan. Proses pencatatan dan perhitungan yang dilakukan pada Counter ADA CELL sampai saat ini masih bersifat manual. Oleh karena itu, sering kala terjadi kesalahan-kesalahan dalam melaksanakan proses-proses pengolahan data transaksi penjualan. Diantaranya sering terjadi kesalahan dalam pencatatan data pelanggan, data barang, keterlambatan transaksi atau transaksi yang dijalankan terlalu lama, bahkan dalam proses pembuatan Laporan Penjualan pun masih terlihat berantakan dan berserakan kemana-kamana sehingga tidak sesuai dengan pemasokan yang dihasilkan. Oleh karna itu, hal ini menjadi masalah bagi Counter ADA CELL karena sulitnya mengetahui keuntungan dan kerugian yang diperoleh setiap bulan dan pertahunan, maka dari itu belum adanya sistem yang terkomputerisasi yang membuat proses penulisan, pencatatan dan penghitungan transaksi menjadi lambat dan tidak efektif. Oleh karena itu penulis ingin membuatkan suatu sistem penjualan tunai yang terkomputerisasi sehingga masalah yang terdapat pada Counter ADA CELL bisa teratasi dan berjalan dengan sangat baik. i   
  • 5. KATA PENGANTAR Puji syukur penulis panjatkan kepada Allah SWT, karena atas berkat, rahmat dan segala karunia yang telah dilimpahkanNya jualah penulis dapat menyelesaikan Tugas Akhir pada Counter Ada Cell – Pangkalpinang. Tugas Akhir ini dibuat untuk memenuhi salah satu syarat yang harus ditempuh untuk menyelesaikan program studi diploma tiga (D3) Jurusan Komputerisasi Akuntansi STMIK Atma Luhur Pangkalpinang. Pada kesempatan ini penulis mengambil topik dalam penulisan laporan Tugas Akhir ( TA ) adalah Rancangan Sistem Informasi Penjualan Tunai pada Counter Ada Cell - Pangkalpinang. Dalam proses penyusunan laporan Tugas Akhir ( TA ) ini, penulis banyak mendapatkan bantuan moril maupun materil dari berbagai pihak. Untuk itu penulis menghaturkan rasa hormat dan terima kasih banyak kepada : 1. Allah SWT yang telah memberikan kemudahan bagiku untuk menyelesaikan tugas akhir ini. 2. Keluarga saya terutama kedua orangtua saya dan kakak saya yang telah memberikan bantuan baik moril maupun spiritual, kasih sayang, dukungan serta do’a yang tulus kepada saya. 3. Bapak Dr. Moedjiono, M.Sc selaku Ketua STMIK Atma Luhur Pangkalpinang. 4. Bapak Bambang Adiwinoto, S.Kom., M.Kom selaku pembantu ketua bidang akademik STMIK Atma Luhur Pangkalpinang. 5. Ibu Yuyi Andrika, M.Kom, selaku Ketua Program Studi Komputerisasi Akuntansi. 6. Ibu Fitriyanti, M.Kom, selaku dosen pembimbing Tugas Akhir yang telah membina dan membimbing dalam mengerjakan Tugas Akhir selama 3 bulan. 7. Bapak Ari Amir M.Kodri, S.Kom, M.Kom dan Ibu Melati Suci M, M.Kom selaku sebagai dosen penguji yang telah menguji dalam berlangsungnya tugas akhir ini. ii   
  • 6. 8. Bapak Awen/Aming, selaku Pemilik Counter ADA CELL Pangkalpinang yang telah memberikan izin tanpa mempersulit penulis dalam menyesaikan laporan Tugas Akhir ini. 9. Ibu Alen, selaku karyawan bagian penjualan Counter ADA CELL Pangkalpinang yang telah membantu penulis dalam menyesaikan laporan Tugas Akhir ini. 10. Sahabat–sahabat seperjuangan terutama semua kelompok jurusan komputerisasi akuntansi STMIK Atma Luhur adan teman–taman lainnya yang telah memberikan semangat, bantuan kecil dan sedikit hiburan diwaktu kosong dalam melepas kesibukan selama pengerjaan Tugas Akhir. 11. Semua pihak yang telah membantu penulisan laporan Tugas Akhir ini serta teman-teman yang lain yang tidak dapat disebut satu persatu. Penulis menyadari bahwa mungkin laporan Tugas Akhir ini mempunyai sedikit kekurangan, karena itu penulis mengharapkan kritik dan saran yang bersifat membangun sehingga berguna sebagai bahan masukan dan guna meningkatkan mutu dari laporan Tugas Akhir ini. Akhir kata penulis berharap semoga laporan ini berguna bagi para pembaca umumnya dan teman-teman mahasiswa/mahasiswi STMIK Atma Luhur khususnya. Pangkalpinang, Penulis iii    Juli 2011
  • 7. DAFTAR GAMBAR Halaman Gambar III.1 : Struktur Organisasi pada Counter ADA CELL .............................37 Gambar III.2 : Activity Diagram Pencatatan Daftar Harga Barang .......................41 Gambar III.3 : Activity Diagram Transaksi Penjualan dan Pembayaran ..............42 Gambar III.4 : Activity Diagram Pembuatan Laporan Penjualan ..........................43 Gambar III.5 : Tabel Rekening ..............................................................................46 Gambar III.6 : Struktur Rekening ..........................................................................47 Gambar III.7 : Usecase Diagram ...........................................................................51 Gambar IV.1 : Entity Relationship Diagram (ERD) ..............................................57 Gambar IV.2 : Transformasi ERD ke LRS ............................................................58 Gambar IV.3 : Logical Record Structure (LRS).....................................................59 Gambar IV.4 : Struktur Tampilan ..........................................................................71 Gambar IV.5 : Rancangan Layar Form Menu Utama ...........................................72 Gambar IV.6 : Rancangan Layar Form Master .....................................................72 Gambar IV.7 : Rancangan Layar Form Entry Data Barang ..................................73 Gambar IV.8 : Rancangan Layar Form Entry Data Pelanggan .............................74 Gambar IV.9 : Rancangan Layar Form Entry Data Rekening ..............................75 Gambar IV.10 : Rancangan Layar Form Transaksi .................................................76 Gambar IV.11 : Rancangan Layar Form Entry Pesanan .........................................77 Gambar IV.12 : Rancangan Layar Form Cetak Nota ..............................................78 Gambar IV.13 : Rancangan Layar Form Cetak .......................................................78 Gambar IV.14 : Rancangan Layar Form Cetak Laporan Penjualan ........................79 iv   
  • 8. Gambar IV.15 : Rancangan Layar Form Cetak Jurnal Penerimaan Kas .................79 Gambar IV.16 : Rancangan Layar Form Cetak Jurnal Umum ................................80 Gambar IV.17 : Sequence Diagram Entry Data Barang ..........................................81 Gambar IV.18 : Sequence Diagram Entry Data Pelanggan .....................................82 Gambar IV.19 : Sequence Diagram Entry Data Rekening .......................................83 Gambar IV.20 : Sequence Diagram Entry Pesanan ..................................................84 Gambar IV.21 : Sequence Diagram Cetak Nota.......................................................85 Gambar IV.22 : Sequence Diagram Cetak Laporan Penjualan ................................86 Gambar IV.23 : Sequence Diagram Cetak Jurnal Penerimaan Kas ........................87 Gambar IV.24 : Sequence Diagram Cetak Jurnal Umum ........................................88 Gambar IV.25 : Rancangan Class Diagram .............................................................89 v   
  • 9. DAFTAR LAMPIRAN Halaman Lampiran A : Keluaran Sistem Berjalan ..........................................................93 Lampiran A-1: Nota .....................................................................94 Lampiran A-2: Laporan Penjualan ................................................95 Lampiran B : Masukan Sistem Berjalan ...........................................................96 Lampiran B-1: Daftar Data Barang ...............................................97 Lampiran B-2: Data Pesanan .........................................................98 Lampiran C : Rancangan Keluaran ...................................................................99 Lampiran C-1 : Nota .....................................................................100 Lampiran C-2 : Laporan Penjualan ..............................................101 Lampiran C-3 : Laporan Jurnal Penerimaan Kas .........................102 Lampiran C-4 : Laporan Jurnal Umum .........................................103 Lampiran D : Rancangan Masukan ..................................................................104 Lampiran D-1 : Data Barang ........................................................105 Lampiran D-2 : Data Pelanggan ...................................................106 Lampiran D-3 : Data Pesanan .......................................................107 Lampiran E : Surat Keterangan Riset .............................................................108 vi   
  • 10. DAFTAR TABEL Halaman Tabel IV.1 : Tabel Pelanggan ............................................................................60 Tabel IV.2 : Tabel Pesanan ................................................................................60 Tabel IV.3 : Tabel Minta ...................................................................................60 Tabel IV.4 : Tabel Barang .................................................................................61 Tabel IV.5 : Tabel Nota .....................................................................................61 Tabel IV.6 : Tabel Jurnal ...................................................................................61 Tabel IV.7 : Tabel Rekening ..............................................................................61 Tabel IV.8 : Spesifikasi Basis Data Tabel Pelanggan .......................................62 Tabel IV.9 : Spesifikasi Basis Data Tabel Pesanan ...........................................63 Tabel IV.10 : Spesifikasi Basis Data Tabel Minta ...............................................63 Tabel IV.11 : Spesifikasi Basis Data Tabel Barang .............................................64 Tabel IV.12 : Spesifikasi Basis Data Tabel Nota ................................................65 Tabel IV.13 : Spesifikasi Basis Data Tabel Jurnal ..............................................65 Tabel IV.14 : Spesifikasi Basis Data Tabel Rekening .........................................66 vii   
  • 11. DAFTAR SIMBOL Activity Diagram Start Point Menggambarkan awal dari suatu aktivitas yang berjalan pada sistem. End Point Menggambarkan akhir dari suatu aktivitas yang berjalan pada sistem. Activity State Menggambarkan suatu proses / kegiatan bisnis Swimlane Menggambarkan pembagian/ pengelompokkan berdasarkan tugas dan fungsi sendiri. Decision Points, menggambarkan pilihan untuk pengambilan keputusan, true atau false. [ …. ] Guards Sebuah kondisi benar sewaktu melewati sebuah transisi, harus konsisten dan tidak overlap Transition Menggambarkan aliran perpindahan control antara state viii   
  • 12. Use Case Diagram Actor Abstraksi dari ora ang atau s sistem yan mengakt ng tifkan fungsi d use case . dari e Use Cas se Mengga ambarkan proses sistem dari perp p m pektif peng gguna (user). Relasi/A Asosiasi Mengga ambarkan hu ubungan ant actor d tara dengan use case. c Class Dia agram Class Menggam mbarkan se esuatu yang mengkapsu informasi ul i dan peril laku Asosiasi i Menggam mbarkan hu ubungan yan terjadi ng Agregasi Menggam mbarkan su class ter uatu rdiri dari class yang lai in atau suat class ada bagian d class la tu alah dari ain Generali isasi / Inher ritance Menggam mbarkan sa atau seku atu umpulan cla mewaris ass si atribut at method dari suatu c tau class ix   
  • 13. Multiplicity Menggambarkan banyaknya object yang terhubung satu dengan yang lainnya. Contoh : 1 0..* 1..* 0..1 Tepat satu Nol atau lebih Satu atau lebih Nol atau satu Sequence Diagram Actor Menggambarkan seseorang atau sesuatu (seperti perangkat, sistem lain) yang berinteraksi dengan sistem. Boundary Sebuah obyek yang menjadi penghubung antara user dengan sistem. Contohnya window, dialogue box atau screen(tampilan layar). Control Suatu obyek yang berisi logika aplikasi yang tidak memiliki tanggung jawab kepada entitas Entity Menggambarkan suatu objek yang berisi informasi kegiatan yang terkait yang tetap dan disimpan ke dalam suatu database. Object Message Menggambarkan pengiriman pesan dari sebuah objek ke x   
  • 14. objek lain. Recursive sebuah obyek yang mempunyai sebuah operation kepada dirinya sendiri. Return Message Menggambarkan pesan/hubungan antar objek, yang menunjukan urutan kejadian yang terjadi. Lifeline Garis titik-titik yang terhubung dengan obyek, sepanjang lifeline terdapat activation Activation Activation mewakili sebuah eksekusi operasi dari obyek, panjang kotak ini berbanding lurus dengan durasi aktivasi sebuah operasi. xi   
  • 15. DAFTAR ISI Halaman ABSTRAKSI ......................................................................................................... i KATA PENGANTAR ............................................................................................ ii DAFTAR GAMBAR ............................................................................................. iv DAFTAR LAMPIRAN .......................................................................................... vi DAFTAR TABEL .................................................................................................. vii DAFTAR SIMBOL ................................................................................................ viii DAFTAR ISI ........................................................................................................... xii BAB I - PENDAHULUAN 1. Latar Belakang ................................................................................... 1 2. Masalah ............................................................................................. 2 3. Tujuan Penulisan ............................................................................... 3 4. Batasan Masalah ............................................................................... 4 5. Metode Penelitian ............................................................................. 4 6. Sistematika Penulisan ....................................................................... 7 BAB II - LANDASAN TEORI 1. Konsep Sistem Informasi .................................................................. 9 a. Konsep Dasar Sistem dan Informasi ........................................... 13 b. Konsep Dasar Sistem Informasi ................................................. 15 2. Analisa dan Perancangan Sistem Berorientasi Objek dengan UML . 15 a. Unified Modeling Language (UML) .......................................... 16 b. Analisa Sistem Berorientasi Objek ............................................. 17 1) Aktivity Diagram .................................................................. 17 2) Analisa Dokumen Masukan .................................................. 20 3) Analisa Dokumen Keluaran .................................................. 20 xii   
  • 16. 4) Use Case Diagram ................................................................ 21 5) Deskripsi Use Case ............................................................... 24 c. Perancangan Sistem Berorientasi Objek ..................................... 24 1) ERD ...................................................................................... 24 2) Logical Record Structure (LRS) ........................................... 25 3) Tabel/ Relasi ......................................................................... 26 4) Spesifikasi Basis Data ........................................................... 26 5) Rancangan Dokumen Keluaran ............................................ 27 6) Rancangan Dokumen Masukan ............................................ 27 7) Rancangan Layar Program .................................................... 27 8) Sequence Diagram ................................................................ 27 9) Class Diagram ....................................................................... 29 3. Sistem Informasi Penjualan Tunai .................................................... 31 a. Pengertian Penjualan ................................................................... 31 b. Sistem Penjualan Tunai .............................................................. 31 c. Teori-teori akuntansi ................................................................... 32 BAB III - ANALISA SISTEM 1. Tinjauan Organisasi .......................................................................... 36 a. b. Struktur Organsiasi .................................................................... 37 c. 2. Sejarah Organisasi / perusahaan ................................................ 36 Pembagian Tugas dan tanggung jawab ...................................... 38 Analisa Proses ................................................................................... 39 a. Proses Bisnis .............................................................................. 39 b. Activity Diagram ....................................................................... 41 3. Analisa Keluaran ............................................................................... 44 4. Analisa Masukan ............................................................................... 45 5. Analisa Terapan Akuntansi ............................................................... 46 6. Struktur Bagan Rekening .................................................................. 47 7. Identifikasi Kebutuhan ...................................................................... 48 8. Use Case Diagram ............................................................................ 51 xiii   
  • 17. 9. Deskripsi Use Case ........................................................................... 52 BAB IV - RANCANGAN SISTEM 1. Rancangan Basis Data ...................................................................... 57 a. Entity Reationship Diagram (ERD) ............................................ 57 b. Transformasi Diagram Entity Relationship Diagram (ERD) ke Logical Record Structure (LRS) ................................................. 58 c. Logical Record Structure (LRS) ................................................. 59 d. Tabel ........................................................................................... 60 e. Spesifikasi Basis Data ................................................................. 62 2. Rancangan Antar Muka .................................................................... 67 a. Rancangan Keluar ....................................................................... 67 b. Rancangan Masukan ................................................................... 69 c. Rancangan Dialog Layar ............................................................ 71 1) Struktur Tampilan ................................................................. 71 2) Rancangan Layar .................................................................. 72 d. Sequence Diagram ...................................................................... 82 3. Rancangan Class Diagram ................................................................ 90 BAB V - PENUTUP 1. Kesimpulan .................................................................................. 91 2. Saran ............................................................................................ 92 DAFTAR PUSTAKA ........................................................................ 93 Lampiran A : Keluaran Sistem Berjalan ............................................ 94 Lampiran B : Masukan Sistem Berjalan ............................................ 97 Lampiran C : Rancangan Keluaran .................................................... 100 Lampiran D : Rancangan Masukan .................................................... 105 Lampiran E : Surat Keterangan Riset ................................................ 109 xiv   
  • 18. BAB I PENDAHULUAN 1. Latar Belakang Pada era informasi dan globalisasi terutama pada perusahaan-perusahaan menyebabkan lingkungan bisnis mengalami perubahan yang sangat pesat dengan tingkat persaingan sangat ketat. Oleh karena itu, perusahaanperusahaan dituntut untuk melakukan kegiatan operasionalnya secara efektif dan efisien untuk mempertahankan eksistensinya, sehingga pengetahuan merupakan kekuatan yang sangat penting untuk membantu manajer dalam pengambilan keputusan yang berupa informasi yang berkualitas yaitu informasi yang akurat, relevan, dan tepat waktu sehingga keputusan bisnis dapat dibuat sesuai dengan sistem informasi yang diterapkan di masingmasing perusahaan. Dengan demikian, pengelolaan sistem informasi merupakan hal yang sangat penting untuk diterapkan terutama pada sistem penjualan tunai. kegiatan penjualan tunai tersebut merupakan kegiatan yang sangat penting dalam kehidupan kita. kegiatan ini terjadi hampir setiap hari di Perusahaan yaitu Counter ADA CELL – Pangkalpinang. Oleh karena itu, Sistem informasi yang sudah terkomputerisasi juga diperlukan dalam perusahaan ini yang sebagaimana berguna untuk kelancaran proses penjualan barang-barang perusahaan kepada pembeli. Prosedur penjualan barang perusahaan melibatkan beberapa bagian dalam perusahaan dengan maksud agar pelaksanaan penjualan barang dapat diawasi dengan baik sehingga tidak terjadinya kekacauan-kekacauan dalam perusahaan. 1   prosedur penjualan barang
  • 19. Untuk mengatasi masalah tersebut, maka setiap perusahaan perlu menyusun suatu sistem dan prosedur yang dapat mengatur pelaksanaan transaksi perusahaan dengan Sistem komputerisasi. Dengan sistem komputerisasi pengolah data yang dapat berjalan dengan baik dan meningkatkan kecepatan pekerjaan sehingga dicapai efisiensi tenaga dan waktu dalam mengolah data. Ada beberapa hal yang dapat menimbulkan kendala pada suatu sistem yang dijalankan secara manual, diantaranya adalah banyaknya jumlah data yang harus diolah, kerumitan dalam pemrosesan suatu data, terbatasnya waktu yang digunakan dalam mengolah data, dan data yang beraneka ragam. Begitu pula dalam sebuah perusahaan dagang yang menggunakan system penjualan yang masih dikerjakan dengan cara manual, akan terbentur pada kendala seperti yang tersebut di atas, sehingga akan mengurangi kinerja suatu instansi. Oleh karenanya penulis bermaksud mengangkat masalah tersebut untuk menyusun tugas akhir dengan judul Rancangan Sistem Informasi Penjualan Tunai Pada Counter ADA CELL - Pangkalpinang dengan Metodologi Berorientasi Obyek. Hal tersebutlah yang mendasari penulis untuk memilih judul tersebut dan sebagai usaha untuk dapat memberikan solusi atau jalan keluar atas kerumitan masalah yang ada di dalam Sistem Penjualan Tunai. 2. Masalah Berdasarkan latar belakang masalah maka permasalahan dapat dikemukakan dari hasil analisa pada sistem yang sedang berjalan adalah cara kerja sistem penjualan yang masih menggunakan sistem manual, masalah yang timbul adalah sebagai berikut : a. Perusahaan Counter ADA CELL Pangkalpinang hanya menjual semua jenis produk Handphone sehingga Lamanya Waktu yang diperlukan dalam 2  
  • 20. melakukan pencarian dan pencatatan data penjualan kurang efektif dan sering mengalami keterlambatan dalam melayani pelanggan atau pembeli. b. Penyimpanan dokumen yang masih menggunakan arsip sebagai media penyimpanan, sehingga mengalami kesulitan dalam melakukan pengurutan dan pencarian dokumen jika dibutuhkan sewaktu-waktu. c. Kurang terjaminnya keakuratan data. d. Kemungkinan terjadinya kesalahan pencatatan dan perhitungan atas transaksi yang terjadi. Melihat masalah-masalah yang dialami Counter ADA CELL, maka penulis perlu memberikan masukan yang sekiranya dapat digunakan sebagai alternatif dalam menyelesaikan masalah-masalah tersebut, yaitu mengusahakannya dengan menggunakan sistem secara terkomputerisasi agar dapat membantu perusahaan dalam mengolah data dan informasi. 3. Tujuan Penulisan Tujuan penulisan dalam tugas akhir ini diharapkan dapat membantu Counter ADA CELL - Pangkalpinang dalam memperbaiki sistem yang ada dengan harapan pengolahan dan penyajian informasi penjualan tunai yang selama ini dilakukan secara manual dapat dipermudah dengan dibuatnya rancangan sistem informasi yang terkomputerisasi. Dengan adanya sistem komputerisasi ini, maka diharapkan dapat mendukung tercapainya tujuan sebagai berikut : a. Mempercepat dalam penyajian data yang akurat serta up to date. b. Memudahkan proses penjualan barang yang efisien dan tepat waktu dengan dukungan informasi yang memadai. c. Dokumen-dokumen keluaran yang dihasilkan lebih berkualitas dan informatif. d. Menjadi lebih tertib dalam arti data menjadi konsisten dan akurat serta pelaksanaannya lebih mudah dan cepat. 3  
  • 21. e. Menghasilkan laporan periodik tanpa harus mengetik ulang. f. Meningkatkan efektifitas dalam pengolahan data agar dapat menghasilkan informasi yang dibutuhkan dengan lengkap serta dapat dihasilkan setiap saat jika diperlukan. 4. Batasan Masalah Dalam memusatkan masalah yang ada dan agar tidak menyimpang dari pokok pembahasan maka batasan masalah umumnya hanya akan membahas pada masalah yang berkaitan pada penjualan handphone segala merk produk yang masih baru saja dan tidak berkaitan dengan penjualan lainnya seperti penjualan handphone bekas, voucher, pulsa dan lain sebagainya. maka pada tugas perancangan sistem ini batasan masalah yang hanya di bahas yaitu proses penjulan tunai di Counter ADA CELL Pangkalpinang dimulai dari: 1. Menyusun Pencatatan daftar harga barang terlebih dahulu 2. Transaksi yaitu pemesanan barang secara langsung, pembuatan nota dan pembayaran. Perlu diketahui dalam sistem transaksi ini tidak melayani transaksi pengembalian barang yang rusak kecuali masih ada garansi barang tersebut, karena setiap barang pesanan yang telah dibuat dan dibayar sesuai dengan pesanan pelanggan. 3. Pembuatan laporan sebulan sekali dengan periode awal bulan sampai akhir bulan 5. Metoda Penelitian Metoda Penelitian adalah suatu cabang ilmu pengetahuan yang membicarakan dan mempersoalkan tentang cara–cara melaksanakan penelitian yaitu meliputi kegiatan-kegiatan, mencari, mencatat, merumuskan, menganalisa sampai menyusun laporan berdasarkan fakta atau gejala ilmiah. Data–data dalam tugas akhir ini merupakan hasil dari penelitian yang dilakukan oleh penulis, dengan menggunakan metode penelitian sebagai berikut : 4  
  • 22. a. Metode Penelitian Lapangan Metode Penelitian Lapangan dilakukan secara langsung ke Counter ADA CELL dengan mengadakan : 1) Pengamatan (Observasi) Pengamatan ini dilakukan dengan mengamati langsung prosedur kerja yang dilaksanakan bagian penjualan, sehingga dapat diperoleh gambaran mengenai pelaksanaan prosedur sistem, serta untuk mengetahui sejauhmana informasi yang dibutuhkan. 2) Wawancara (Interview) Wawancara ini dilakukan untuk mendapatkan data-data informasi dalam bentuk tanya jawab kepada orang yang terlibat secara langsung ke dalam sistem penjualan tunai yang mengetahui tentang obyek penelitian. 3) Studi Kepustakaan Studi ini dilakukan dengan mempelajari berbagai pustaka yang menyangkut sistem informasi khususnya tentang penjualan tunai, terutama informasi naskah dari internet dan buku atau catatan yang didapat dibangku kuliah serta bahan–bahan pustaka lainnya yang ada hubungannya dengan masalah yang akan dibahas. b. Analisa Sistem Salah satu pendekatan pengembangan sistem adalah pendekatan analisa object oriented. Pendekatan object oriented dilengkapi dengan alat-alat tehnik pengembangan sistem yang hasil akhirnya akan didapat sistem yang object oriented yang dapat didefinisikan dengan baik dan jelas. Kegiatan yang dilakukan pada tahap ini adalah : 1) Menganalisa sistem yang ada, yaitu mempelajari dan mengetahui apa yang dikerjakan sistem yang ada. 2) Menspesifikasikan sistem, yaitu menspesifikasikan masukan yang digunakan, database yang ada, proses yang dilakukan dan keluaran yang dihasilkan. 5  
  • 23. Adapun tahapan-tahapan pada analisa sistem antara lain : 1) Activity Diagram Activity diagram digunakan untuk memodelkan alur kerja atau workflow sebuah proses bisnis dan urutan aktifitas didalam suatu proses. 2) Use Case Diagram Use case diagram digunakan untuk menjelaskan manfaat sistem yang jika dilihat menurut pandangan orang yang berada di luar sistem atau actor. 3) Use Case Description Use case description digunakan untuk mendeskripsikan secara rinci mengenai use case diagram. c. Perancangan Sistem Tahap perancangan sistem adalah merancang sistem secara rinci berdasarkan hasil analisa sistem yang ada, sehingga menghasilkan model sistem baru yang diusulkan dengan disertai rancangan database dan spesifikasi program. Alat-alat yang digunakan pada tahap perancangan sistem adalah sebagai berikut : 1) Entity Relationship Diagram (ERD) ERD digunakan untuk menggambarkan hubungan antara data store yang ada dalam diagram arus data. 2) Logical Record Structure (LRS) LRS terdiri dari link-link di antara tipe record. Link ini menunjukkan arah dari satu tipe record lainnya. 4) Spesifikasi Basis Data Spesifikasi basis data digunakan untuk menjelaskan tipe data yang ada pada model konseptual secara detil. 6  
  • 24. 5) Sequence Diagram Sequence diagram untuk menggambarkan interaksi antar obyek di dalam dan di sekitar sistem (termasuk pengguna, display, dan sebagainya) berupa message yang digambarkan terhadap waktu. 6) Class Diagram (Entity Class) Membantu dalam visualisasi struktur kelas – kelas dari suatu sistem dan hubungan antar kelas (inheritance, aggregation, association) dan penjelasan detail tiap kelas (method / function / behavior dan attribute / property / data). 6. Sistematika Penulisan Penulisan perancangan ini terdiri dari beberapa bab. Keseluruhan bab ini berisi uraian tentang usulan pemecahan masalah secara berurutan. Uraian berikut ini adalah uraian singkat mengenai bab-bab tersebut : BAB I - PENDAHULUAN Bab ini berisi tentang latar belakang, masalah, tujuan penulisan, batasan masalah, metode penelitian dan sistematika penulisan. BAB II - LANDASAN TEORI Bab ini berisi tentang konsep dasar sistem, konsep dasar informasi, konsep dasar sistem informasi, analisa sistem dan perancangan sistem berorientasi objek dengan UML, serta konsep dasar UML, analisa dan perancangan berorientasi obyek dan konsep dasar sistem penjualan serta teori-teori pendukung lainnya yang berkaitan dengan sistem yang akan dibahas. BAB III - ANALISA SISTEM Bab ini berisi tentang tinjauan organisasi, analisa proses sistem berjalan yang digambarkan dalam activity diagram, analisa masukan, analisa keluaran, analisa terapan akuntansi, struktur 7  
  • 25. bagan rekening, identifikasi kebutuhan, use case diagram dan deskripsi use case. BAB IV - RANCANGAN SISTEM Bab ini menjelaskan secara rinci rancangan sistem yang akan diusulkan. Rancangan tersebut terdiri dari rancangan basis data yaitu Entity Relationship Diagram (ERD), Transformasi ERD ke LRS, Logical Record Structure (LRS), Tabel, Spesifikasi Basis Data. Selain itu, menjelaskan rancangan antar muka yang terdiri dari rancangan dokumen keluaran, rancangan dokumen masukan, rancangan dialog layar yang terdiri dari struktur tampilan dan rancangan layar serta sequence diagram dan rancangan class diagram yang terdiri dari Entity class. BAB V - PENUTUP Bab ini berisi tentang kesimpulan dari pembahasan bab-bab sebelumnya dan juga saran-saran dari penulis serta daftar pustaka. 8  
  • 26. BAB II LANDASAN TEORI Landasan teori ini memberikan pemahaman tentang materi-materi yang dibahas dalam tugas akhir dari buku-buku penunjang, contoh-contoh tugas akhir, diktat serta referensi lainya yang ada diperpustakaan. 1. Konsep Sistem Informasi Pengertian dan definisi sistem pada berbagai bidang berbeda-beda, tetapi meskipun istilah sistem yang digunakan bervariasi, semua sistem pada bidang-bidang tersebut mempunyai beberapa persyaratan umum, yaitu sistem harus mempunyai elemen, lingkungan, interaksi antar elemen, interaksi antara elemen dengan lingkungannya, dan yang terpenting adalah sistem harus mempunyai tujuan yang akan dicapai. Dapat didefinisikan sebagai seperangkat elemen yang digabungkan satu dengan lainnya untuk suatu tujuan bersama. Kumpulan elemen terdiri dari manusia, mesin, prosedur, dokumen, data atau elemen lain yang terorganisir dari elemen-elemen tersebut. Elemen sistem disamping berhubungan satu sama lain, juga berhubungan dengan lingkungannya untuk mencapai tujuan yang telah ditentukan sebelumnya. Suatu sistem memiliki karateristik atau sifat-sifat tertentu yang mencirikan bahwa hal tersebut bisa dikatakan sebagai suatu sistem. Adapun karateristik yang dimaksud adalah sebagai berikut : a. Komponen sistem atau elemen sistem Suatu Komponen sistem atau elemen sistem dapat berupa elemenelemen yang lebih kecil yang disebut sub sistem, misalkan sistem komputer terdiri dari sub sistem perangkat keras, perangkat lunak dan manusia. Elemen-elemen yang lebih besar yang disebut supra sistem. Misalkan bila perangkat keras adalah sistem yang memiliki sub sistem CPU, 9  
  • 27. perangkat I/O dan memori, maka supra sistem perangkat keras adalah sistem komputer. b. Batas sistem Batas sistem merupakan daerah yang membatasi antara suatu sistem dengan sistem yang lainnya atau dengan lingkungan luarnya. Batas sistem ini memungkinkan suatu sistem dipandang sebagai suatu kesatuan. Batas suatu sistem menunjukkan ruang lingkup dari sistem tersebut. c. Lingkungan luar sistem Lingkungan dari sistem adalah apapun di luar batas dari sistem yang mempengaruhi operasi sistem. Lingkungan luar sistem dapat bersifat menguntungkan dan dapat juga bersifat merugikan sistem tersebut. lingkungan luar yang mengutungkan merupakan energi dari sistem dan dengan demikian harus tetap dijaga dan dipelihara. Sedang lingkungan luar yang merugikan harus ditahan dan dikendalikan, kalau tidak akan mengganggu kelangsungan hidup dari sistem. d. Penghubung Sistem Penghubung merupakan media perantara antar subsistem. Melalui penghubung ini memungkinkan sumber-sumber daya mengalir dari satu subsistem ke subsistem lainnya. Output dari satu subsistem akan menjadi input untuk subsistem yang lainnya dengan melalui penghubung. Dengan penghubung satu subsistem dapat berinteraksi dengan subsistem yang lainnya membentuk satu kesatuan. e. Masukkan Sistem Masukan adalah energi yang dimasukkan ke dalam sistem. Masukan dapat berupa maintenance input dan sinyal input. Maintenance input adalah energi yang dimasukkan supaya sistem tersebut dapat beroperasi. Sinyal input adalah energi yang diproses untuk didapatkan keluaran. 10  
  • 28. f. Keluaran Sistem Keluaran adalah hasil dari energi yang diolah dan diklasifikasikan menjadi keluaran yang berguna dan sisa pembuangan. Keluaran dapat merupakan masukan untuk subsistem yang lain atau kepada supra sistem. g. Pengolah Suatu sistem dapat mempunyai suatu bagian pengolah atau sistem itu sendiri sebagai pengolahnya. Pengolah yang akan merubah masukan menjadi keluaran. Suatu sistem produksi akan mengolah masukan berupa bahan baku dan bahan-bahan yang lain menjadi keluaran berupa barang jadi. h. Sasaran atau tujuan Suatu sistem pasti mempunyai tujuan atau sasaran. Kalau suatu sistem tidak mempunyai sasaran, maka operasi sistem tidak akan ada gunanya. Sasaran dari sistem sangat menentukan sekali masukan yang dibutuhkan sistem dan keluaran yang akan dihasilkan sistem. Suatu sistem dikatakan berhasil bila mengenai sasaran atau tujuannya. Sistem dapat diklasifikasikan dari beberapa sudut pandangan, diantaranya sebagai berikut ini : 1) Sistem Abstrak dan fisik. Sistem abstrak adalah sistem yang berupa pemikiran atau ide-ide yang tidak tampak secara fisik. Misalnya sistem teologia, yaitu sistem yang berupa pemikiran-pemikiran hubungan antara manusia dengan tuhan. Sistem fisik merupan sistem yang ada secara fisik misalnya sistem komputer, sistem akuntansi dan sistem produksi. 2) Sistem Alamiah dan buatan. Sistem alamiah adalah sistem yang terjadi melalui proses alam, misalnya sistem perputaran bumi. Sistem buatan manusia adalah sistem yang dirancang oleh manusia. Sistem buatan manusia yang melibatkan interaksi antara manusia dengan mesin disebut dengan 11  
  • 29. human machine system atau ada yang menyebut dengan man machine system, karena menyangkut penggunaan komputer yang berinteraksi dengan manusia. 3) Sistem Tertentu dan tak tentu. Sistem tertentu beroperasi tertentu dengan tingkah laku yang sudah dapat diprediksi. Inteaksi diantara bagian-bagiannya dapat dideteksi dengan pasti, sehingga keluaran dari sistem dapat diramalkan. Sistem komputer adalah contoh dari sistem tertentu yang tingkah lakunya dapat dipastikan berdasarkan program-program yang dijalankan. Sistem tak tentu adalah sistem yang kondisi masa depannya tidak dapat diprediksi karena mengandung unsur probabilitas. 4) Sistem Tertutup dan terbuka. Sistem tertutup merupakan sistem yang tidak berhubungan dan tidak terpengaruh oleh lingkungan luarnya. Sistem ini bekerja secara otomatis tanpa adanya turut campur tangan dari pihak diluarnya. Secara teoritis sistem tertutup ada, tetapi kenyataan tidak ada sistem yang benar-benar tertutup yang ada hanyalah relatively closed system (secara relatif tertutup, tidak benar-benar tertutup). Sedangkan sistem terbuka adalah sistem yang berhubungan dan terpengaruh oleh lingkungan luarnya. Sistem ini menerima masukan dan menghasilkan keluaran untuk lingkungan luar atau subsistem yang lainnya, karena sistem sifatnya terbuka dan tepengaruh oleh lingkungan luarnya, maka suatu sistem harus mempunyai sistem pengendalian yang baik. Sistem-sistem yang baik harus dirancang sedemikian rupa, sehingga secara relatif tertutup karena sistem tertutup akan bekerja secara otomatis dan terbuka untuk pengaruh yang baik saja. Siklus hidup sistem adalah proses evolusioner yang diikuti dalam penerapan sistem atau subsistem informasi berbasis komputer. Beberapa face/tahapan dari daur hidup suatu sistem yaitu : 12  
  • 30. a) Mengenali adanya kebutuhan b) Pembangunan sistem c) Pemasangan sistem d) Pengoperasian sistem e) Sistem menjadi usang a. Konsep Dasar Sistem dan Informasi Di dalam suatu organisasi atau perusahaan, informasi merupakan sesuatu yang memiliki arti yang sangat penting didalam mendukung proses pengambilan keputusan oleh pihak manajemen. Secara umum informasi dapat didefinisikan sebagai data yang diolah menjadi bentuk yang lebih berarti bagi yang menerimanya. Menurut Raymond Mcleod: “ Informasi adalah data yang telah diolah menjadi bentuk yang memiliki arti bagi si penerima dan bermanfaat bagi pengambilan keputusan saat ini atau mendatang ” Secara umum informasi dapat didefinisikan sebagai hasil dari pengolahan data dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian-kejadian yang nyata yang digunakan untuk pengambilan keputusan. Sumber dari informasi adalah data. Data adalah kenyataan yang menggambarkan suatu kejadian-kejadian dan kesatuan nyata. Kejadiankejadian adalah sesuatu yang terjadi pada saat tertentu. Di dalam dunia bisnis, kejadian-kejadian yang sering terjadi adalah transaksi perubahan dari suatu nilai yang disebut transaksi. Kesatuan nyata adalah berupa suatu obyek nyata seperti tempat, benda dan orang yang betul-betul ada dan terjadi. Data merupakan bentuk yang masih mentah, belum dapat bercerita banyak sehingga perlu diolah lebih lanjut. Data diolah melalui suatu metode untuk menghasilkan informasi. Data dapat berbentuk simbolsimbol semacam huruf, angka, bentuk suara, sinyak, gambar, dsb. 13  
  • 31. Data yang diolah melalui suatu model menjadi informasi, penerima kemudian menerima informasi tersebut, membuat suatu keputusan dan melakukan tindakan, yang berarti menghasilkan suatu tindakan yang lain yang akan membuat sejumlah data kembali. Data tersebut akan ditangkap sabagai input, diproses kembali lewat suatu model dan seterusnya membentuk suatu siklus. Untuk dapat berguna, maka informasi harus didukung oleh tiga pilar, yaitu sebagai berikut : 1) Akurat Berarti informasi harus bebas dari kesalahan-kesalahan dan tidak bias atau menyesatkan. Akurat juga berarti informasi harus jelas mencerminkan maksudnya. Informasi harus akurat karena dari sumber informasi sampai ke penerima informasi kemungkinan terjadi gangguan yang dapat merubah atau merusak informasi tersebut. 2) Tepat waktu Berarti informasi yang datang pada penerima tidak boleh terlambat. Informasi yang sudah usang tidak akan mempunyai nilai lagi. Karena informasi merupakan landasan di dalam pengambilan keputusan. Bila pengambilan keputusan terlambat, maka dapat berakibat fatal bagi organisasi. Saat ini mahalnya nilai informasi disebabkan harus cepatnya informasi itu didapat sehingga diperlukan teknologi-teknologi mutakhir untuk mendapatkan, mengolah dan mengirimkannya. 3) Relevan Berarti informasi tersebut mempunyai manfaat untuk pemakainya. Relevansi informasi untuk tiap-tiap orang berbeda-beda. 14  
  • 32. b. Konsep Dasar Sistem Informasi Sistem adalah sekumpulan subsistem yang berhubungan satu sama lain, yang bersama-sama berinteraksi menurut pola tertentu terhadap masukan dengan tujuan menghasilkan keluaran. Dalam arti luas dapat didefinisikan sebagai sekumpulan elemen-elemen yang saling berhubungan dan saling bergantungan untuk mencapai suatu tujuan. Pendekatan definisi sistem berdasarkan pendekatan prosedur menurut Jogiyanto HM, MBA, Akt., Ph.D adalah ” Sistem adalah kumpulan dari prosedur-prosedur yang mempunyai tujuan-tujuan tertentu. Sistem informasi adalah sekumpulan komponen pembentuk sistem yang mempunyai keterkaitan antara satu komponen dengan komponen lainnya yang bertujuan menghasilkan suatu informasi dalam suatu bidang tertentu. Dalam sistem informasi diperlukannya klasifikasi alur informasi, hal ini disebabkan keanekaragaman kebutuhan akan suatu informasi oleh pengguna informasi. Kriteria dari sistem informasi antara lain, fleksibel, efektif dan efisien. 2. Analisa dan Perancangan Sistem Berorientasi Objek dengan UML Analisa sistem dapat dinyatakan sebagai pemisahan suatu hal dalam bagian bagian tertentu. Bagian-bagian tersebut kemudian dipelajari dan dievakuasi untuk mengetahui apakah terdapat cara-cara yang lebih baik untuk memenuhi kebutuhan manajemen. Menurut Ariesto Hadi Sutopo : “Analisa sistem adalah proses menentukan kebutuhan sistem – apa yang harus dilakukan sistem untuk memenuhi kebutuhan klien, bukanlah bagaimana sistem tersebut diimplementasikan.” Konsep dasar berorientasi obyek mencapai kematangannya pada saat masalah analisis dan desain menjadi lebih diperhatikan dari pada masalah 15  
  • 33. coding. Secara spesifik, pengertian “berorientasi obyek” [ Ariesto Hadi Sutopo 2002 ] berarti bahwa “kita mengorganisasi perangkat lunak sebagai kumpulan dari objek tertentu yang memiliki struktur data dan perilakunya”. a. Unified Modelling Language (UML) Unified Modeling Language (UML) adalah bahasa spesifikasi standar untuk mendokumentasikan, menspesifikasikan, dan membangun sistem perangkat lunak atau himpunan struktur dan teknik untuk pemodelan desain program berorientasi objek (OOP) serta aplikasinya. Dapat di simpulkan bahwa UML merupakan metodologi untuk mengembangkan sistem OOP dan sekelompok tool untuk mendukung pengembangan sistem tersebut. Dalam suatu bahasa, UML digunakan untuk menentukan, memvisualisasikan, membangun, dan mendokumentasikan suatu sistem informasi. Namun demikian UML dapat digunakan untuk memahami dan mendokumentasikan setiap sistem informasi. Dengan menggunakan UML kita dapat membuat model untuk semua jenis aplikasi piranti lunak, dimana aplikasi tersebut dapat berjalan pada piranti keras, sistem operasi dan jaringan apapun, serta ditulis dalam bahasa pemrograman apapun. Tetapi karena UML juga menggunakan class dan operation dalam konsep dasarnya, maka ia lebih cocok untuk penulisan piranti lunak dalam bahasabahasa berorientasi obyek. Tujuan utama UML diantaranya adalah untuk : a. Memberikan model yang siap pakai, bahasa permodelan visual yang ekspresif untuk mengembangkan dan saling menukar model dengan mudah dan dimengerti secara umum. b. Memberikan bahasa permodelan yang bebas dari berbagai bahasa pemrograman dan proses rekayasa. c. Menyatukan praktek-praktek terbaik yang terdapat dalam permodelan. 16  
  • 34. Dalam menganalisa dan merancang sistem yang ditulis dalam skripsi ini, penulis tidak menggunakan semua diagram, hanya beberapa saja yang dibutuhkan seperti use case diagram, activity diagram, class diagram dan beberapa lagi yang digunakan pada masing-masing proses analisa dan perancangan. b. Analisa Sistem Berorientasi Objek 1) Activity Diagram Activity diagram menggambarkan proses bisnis dan urutan aktifitas dalam sebuah proses, yang mana dipakai pada business modelling untuk memperlihatkan urutan aktifitas proses bisnis karena bermanfaat untuk membantu memahami proses secara keseluruhan dalam memodelkan sebuah proses. Dengan kata lain, activity diagram adalah tehnik untuk mendeskripsikan logika prosedural, proses bisnis dan aliran kerja dalam banyak kasus. Activity diagram mempunyai peran seperti halnya flowchart, akan tetapi perbedaannya dengan flowchart adalah activity diagram bisa mendukung perilaku paralel sedangkan flowchart tidak bisa. Activity diagram dibuat berdasarkan sebuah atau beberapa use case pada use case diagram, atau bahkan tanpa menggunakan use case diagram. Sebuah activity diagram mempunyai : a) Start point (initial node), dimana diletakkan pada pojok kiri atas. Simbol Titik Awal Activity b) End point (activity final node) Simbol Titik Akhir Activiy 17  
  • 35. c) Activities, dimana menggambarkan proses bisnis dan dikenal sebagai activity state. Simbol Activities Jenis-jenis activity : (1) Black hole activities Ada masukan dan tidak ada keluaran, biasanya digunakan bila dikehendaki ada 1 atau lebih transisi. Simbol black hole activities (2) Miracle activities Tidak ada masukan tetapi ada keluarannya, biasanya dipakai pada waktu start point dan dikehendaki ada 1 atau lebih transisi. Simbol miracle activities (3) Parallel activities Suatu activity yang berjalan secara berbarengan. Terdiri dari: (a) Fork (percabangan) Mempunyai 1 transisi masuk dan 2 atau lebih transisi keluar. 18  
  • 36. Simbol fork dalam UML Ketika ada > 1 transisi masuk ke fork yang sama, gabunglah dengan sebuah decision point. (b) Join (penggabungan) Mempunyai 2 atau lebih transisi masuk dan hanya 1 transisi keluar. Fork harus berhubungan dengan join. Simbol join (c) Decision point Digambarkan dengan lambang wajik atau belah ketupat. Mempunyai transisi (sebuah garis dari/ke decision point). Setiap transisi yang ada harus mempunyai GUARD (kunci). Tidak ada sebuah keterangan (pertanyaan) pada tengah belah ketupat seperti pada flowchart. Simbol decision points 19  
  • 37. (d) Guard (kunci) Adalah sebuah kondisi benar sewaktu melewati sebuah transisi. Digambarkan dengan diletakkan diantara tanda [ ]. Tanda [otherwise] guard untuk menangkap suatu kondisi yang belum terdeteksi. Setiap transisi dari/ke decision point harus mempunyai guard yang harus konsisten serta tidak overlap. Contoh : x<0, x=0 dan x>0 konsisten x<=0 dan x>=0 tidak konsisten Guard harus lengkap logikanya Contoh : x<0 dan x>0 bagaimana jika x=0 ? (e) Swimlane Sebuah cara untuk mengelompokkan activity berdasarkan actor (mengelompokkan activity dalam sebuah urutan yang sama). Actor bisa ditulis nama actor ataupun sekaligus dalam lambang actor (stick figure) pada use case diagram. Swimlane digambar secara vertical, walaupun kadang-kadang digambar secara horizontal. 2) Analisa Dokumen Keluaran Analisa keluaran adalah analisa mengenai dokoumen keluaran yang dihasilkan dari sebuah sistem. 3) Analisa Dokumen Masukan Analisa masukan adalah bagian dari pengumpulan informasi tentang sistem yang sedang berjalan. Tujuan analisa masukan adalah memahami prosedur berjalan. 20  
  • 38. 4) Usecase Diagram Use case diagram mangambarkan kebutuhan sistem dari sudut pandang user dan memfokuskan pada proses komputerisasi. Sebuah use case dapat menggambarkan hubungan antara use case dengan actor. Secara umum use case adalah pola perilaku sistem dan urutan transaksi yang berhubungan yang dilakukan oleh satu actor. Use case diagram mangambarkan kebutuhan sistem dari sudut pandang user dan memfokuskan pada proses komputerisasi. Sebuah use case dapat menggambarkan hubungan antara use case dengan actor. Secara umum use case adalah pola perilaku sistem dan urutan transaksi yang berhubungan yang dilakukan oleh satu actor. Berikut ini, Use case diagram terdiri dari : a) Use case Use case dibuat berdasarkan keperluan actor, merupakan ‘apa’ yang dikerjakan sistem, bukan ‘bagaimana’ sistem mengerjakannya. Use case diberi nama yang menyatakan apa hal yang dicapai dari hasil interaksinya dengan actor dan dinotasikan dengan gambar (horizontal ellipse). Simbol Use Case Use case biasanya menggunakan kata kerja dan sebuah nama use case boleh terdiri dari beberapa kata dan tidak boleh ada 2 use case yang memiliki nama yang sama. Use diagram tidak terpengaruh urutan waktu, meskipun demikian supaya mudah dibaca perlu penyusunan use case. 21  
  • 39. b) Actor Actor menggambarkan orang, sistem atau eksternal entitas/stakeholder yang menyediakan atau menerima informasi dari sistem. Actor adalah entity eksternal yang berhubungan dengan sistem yang berpartisipasi dalam use case. Actor dilukiskan dengan peran yang mereka mainkan dalam use case, seperti Pelanggan, Kasir, dan lain-lain. Simbol actor didalam UML digambarkan sebagai berikut : Simbol Actor c) Associations Associations menggambarkan bagaimana actor terlibat dalam use case dan bukan menggambarkan aliran data atau informasi. Association digambarkan dengan sebuah garis berpanah terbuka pada salah satu ujungnya yang menunjukkan arah relasi. Ujung panah terbuka Simbol Association Empat jenis relasi yang bisa timbul pada use case diagram,yaitu 1) Association antara actor dan use case ujung panah pada association antara actor dan use case mengindikasikan siapa/apa yang meminta interaksi dan bukannya mengindikasikan aliran data. Simbol Association Antar Actor dan Use Case 22  
  • 40. Association antara actor dan use case sebaiknya menggunakan garis tanpa panah. Association antar actor dan use case yang menggunakan panah terbuka untuk mengindikasikan bila actor beriteraksi secara pasif dengan sistem. 2) Association antara use case (a) <<include>> Digunakan ketika dalam penulisan use case-use case yang berbeda-beda terdapat deskripsi yang sama, maka relasi ini dapat digunakan untuk menghindari penulisan deskripsi yang berulang-ulang. Sebuah use case dapat meng-include fungsionalitas use case lain sebagai bagian dari proses dalam dirinya. Secara umum diasumsikan bahwa use case yang di-include akan dipanggil setiap kali use case yang meng-include dieksekusi secara normal dan dapat di-include oleh lebih dari satu use case lain, sehingga duplikasi fungsionalitas dapat dihindari dengan cara menarik keluar fungsionalitas yang common. (b) <<extend>> Sebuah use case juga dapat meng-extend use case lain dengan behaviour-nya sendiri. Sementara hubungan generalisasi antar use case menunjukkan bahwa use case yang satu merupakan spesialisasi dari yang lain. (c) Generalization / inheritance antara use case Generalization/inheritance digunakan ketika ada sebuah keadaan yang lain sendiri/perilaku khusus. Generalization/inheritance digambarkan antara use 23  
  • 41. case secara vertical dengan inheriting use case dibawah base/parent use case. (d) Generalization/inheritance antara actor Generalization/inheritance antara actors secara vertical dengan inheriting actor dibawah base/parent use case. 5) Deskripsi Usecase Yaitu bagian terbesar dari use case merupakan deskripsi naratif dari urutan utama use case yang merupakan urutan yang paling umum dari interaksi antara aktor dan sistem. Deskripsi tersebut berupa input dari aktor, dan diikuti oleh respon pada sistem. Tujuan deskripsi use case adalah untuk mempermudah pemahaman use case. c. Perancangan Sistem Berorientasi Objek 1) ERD ERD merupakan suatu model untuk menjelaskan hubungan antar data dalam basis data berdasarkan objek-objek dasar data yang mempunyai hubungan antar relasi. ERD untuk memodelkan struktur data dan hubungan antar data, untuk menggambarkannya digunakan beberapa notasi dan simbol. Pada dasarnya ada tiga simbol yang digunakan, yaitu : a. Entiti Entiti merupakan objek yang mewakili sesuatu yang nyata dan dapat dibedakan dari sesuatu yang lain (Fathansyah, 1999: 30). Simbol dari entiti ini biasanya digambarkan dengan persegi panjang. b. Atribut Setiap entitas pasti mempunyai elemen yang disebut atribut yang berfungsi untuk mendeskripsikan karakteristik dari entitas 24  
  • 42. tersebut. Isi dari atribut mempunyai sesuatu yang dapat mengidentifikasikan isi elemen satu dengan yang lain. Gambar atribut diwakili oleh simbol elips. c. Hubungan / Relasi Hubungan antara sejumlah entitas yang berasal dari himpunan entitas yang berbeda. Relasi dapat digambarkan sebagai berikut : Relasi yang terjadi diantara dua himpunan entitas (misalnya A dan B) dalam satu basis data yaitu : 1) Satu ke satu (One to one) Hubungan relasi satu ke satu yaitu setiap entitas pada himpunan entitas A berhubungan paling banyak dengan satu entitas pada himpunan entitas B. 2) Satu ke banyak (One to many) Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B, tetapi setiap entitas pada entitas B dapat berhubungan dengan satu entitas pada himpunan entitas A. 3) Banyak ke banyak (Many to many) Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B. 2) Logical Record Structure (LRS) LRS adalah digambarkan oleh kotak persegi panjang dan dengan nama yang unik. File record pada LRS ditempatkan dalam kotak. LRS terdiri dari link-link diantar tipe record lainnya, banyaknya link dari LRS yang diberi nama oleh filed-filed yang kelihatan pada kedua link tipe record. 25  
  • 43. 3) Tabel/Relasi Tabel adalah koleksi obyek yang terdiri dari sekumpulan elemen yang diorganisasikan secara kontigu, artinya memori yang dialokasi antara satu elemen dengan elemen yang lainnya mempunyai address yang berurutan. Pada tabel, pengertian perlu dipahami adalah: a) Keseluruhan table (sebagai koleksi) adalah container yang menampung seluruh elemen b) Indek table, yang menujukan address dari sebuah element c) Element table, yang dapat dipacu melalui indeknya, bertipe tertentu yang sudah terdefinisi d) Seluruh element table bertipe:”sama”. Dengan catatan: beberapa bahasa pemograman memungkinkan pendenfinisikan table dengan elemen generic, tapi pada saat diinstansiasi, harus diinstanisasi dengan tipe sama. 4) Spesifikasi Basis Data Basis Data adalah kumpulan data yang saling berhubungan satu dengan yang lain dan tersimpan diluar komputer serta digunakan perangkat lunak ( software ) tertentu untuk memanipulasinya. Sedangkan sistem berbasis data adalah suatu sistem penyusunan dan pengelolaan record-record dengan menggunakan komputer dengan tujuan untuk menyimpan atau merekam serta melihat data operasional lengkap pada sebuah organisasi, sehingga mampu menyediakan informasi yang diperlukan untuk kepentingan proses pengambilan keputusan. 26  
  • 44. 5) Rancangan Dokumen Keluaran Rancangan keluaran merupakan informasi yang akan dihasilkan dari keluaran sistem yang dirancang. 6) Rancangan Dokumen Masukan Rancangan masukan merupakan data yang dibutuhkan untuk menjadi masukan sistem yang dirancang. 7) Rancangan Layar Program Rancangan tampilan merupakan bentuk tampilan sistem layar computer sebagai antar muka dengan pemakai yang akan dihasilkan dari sistem yang dirancang. 8) Sequence Diagram Sequence Diagram adalah visual coding (perancangan form/layar). Interaksi objek yang tersusun dalam urutan waktu/kejadian. Diagram ini secara khusus berasosiasi dengan use case diagram, memperlihatkan tahap demi tahap apa yang seharusnya terjadi untuk menghasilkan sesuatu didalam use case. a) Obyek/Participant Obyek diletakkan di dekat bagian atas diagram dengan urutan dari kiri ke kanan. Setiap participant terhubung dengan garis titik-titik yang disebut lifeline. Sepanjang lifeline ada kotak yang disebut activation. Activation mewakili sebuah eksekusi operasi dan participant. Panjang kotak ini berbanding lurus dengan durasi activation. Setiap lifeline mempunyai activation bar yang menunjukkan kapan sebuah participant aktif 27  
  • 45. pada interaksi. Activation bar adalah optional di UML, meskipun sangat berguna dalam klarifikasi perilaku . Simbol Participant pada sebuah sequence diagram Simbol dari activation b) Actor Menggambarkan orang yang sedang berinteraksi dengan sistem. Simbol Actor c) Message Sebuah message bergerak dari satu participant ke participant yang lain dan dari satu lifeline yang lain. Sebuah participant bisa mengirim sebuah message kepada dirinya sendiri. Sebuah message bisa jadi simple, synchronous atau asynchronous. Message yang simple adalah sebuah perpindahan (transfer) control dari satu participant ke participant yang 28  
  • 46. lainnya. Jika sebuah participant mengirimkan sebuah message synchronous, maka jawaban atas message tersebut akan ditunggu sebelum diproses dengan urusannya. Namun jika message asynchronous yang dikirimkan, maka jawaban atas message tersebut tidak perlu ditunggu. Message datang dari sumber yang tidak ditentukan disebut dengan found message. Simbol message pada sequence diagram bisa dilihat sebagai berikut. Message () Simbol Message d) Loop Menggambarkan dari suatu kegiatan yang dilakukan secara berulang-ulang. Loop Simbol Loop 9) Class Diagram Diagram kelas (class diagram) sangat membantu dalam visualisasi kelas dari suatu sistem. Hal ini disebabkan karena class adalah deskripsi kelompok objek-objek dengan atribut (property), perilaku (operation) dan relasi yang sama. Disamping itu class diagram bisa memberikan pandangan global atas sebuah sistem. Hal tersebut tercermin dari class-class yang ada dan relasinya satu dengan lainnya. 29  
  • 47. Nama kelas Manusia nama umur Atribut Operasi berpindah_alamat() berpindah_pekerjaan() Simbol Class Diagram Komponen-komponen class diagram : a) Kelas, Atribut, Operasi kelas didefinisikan sebagai kumpulan atau himpunan objekobjek yang dengan attribute dan operation yang sama. Obyek (object) adalah orang, benda, tempat, kejadian atau konsepkonsep yang ada didunia nyata yang penting bagi suatu aplikasi perangkat lunak/perangkat keras. Setiap obyek memiliki keadaan sesaat (state) perilaku (behavior). State sebuah obyek adalah adalah kondisi objek tersebut yang dinyatakan dalam attribute/properties. mendefinisikan Sedangkan bagaimana sebuah perilaku objek suatu objek bertindak atau berinteraksi. Perilaku sebuah objek dinyatakan dalam operation. Atribut adalah data yang dimiliki suatu objek dalam suatu kelas, misalnya kelas manusia, yang memiliki atribut nama dan umur. Operation adalah sesuatu yang bisa dilakukan oleh sebuah kelas (tingkah laku sebuah objek) atau fungsi yang dapat diaplikasikan ke suatu objek dalam kelas. Misalnya suatu objek manusia pasti memiliki fungsi-fungsi seperti tersenyum, marah, makan, minum, dan sebagainya. Operasi yang sama dapat diterapkan pada kelas yang berbeda, misalnya fungsi makan dapat diterapkan pada kelas manusia maupun pada kelas kera. 30  
  • 48. b) Association Association menunjukkan hubungan antara masing-masing kelas. Setiap association mempunyai dua association end. Masing-masing end dihubungkan ke satu kelas dari kelas-kelas dalam association. Sebuah end dapat dibuat lebih jelas dengan memberikan nama dengan sebuah label. Label ini disebut dengan role name (association end sering disebut role). 3. Sistem Informasi Penjualan Tunai a. Pengertian Penjualan Kegiatan penjualan merupakan suatu usaha yang dilakukan untuk mendistribusikan barang kebutuhan yang telah dihasilkan oleh produsen kepada konsumen yang memerlukan, dengan memperoleh jasa berupa uang dengan menurut harga yang berlaku. b. Sistem Penjualan Tunai Penjualan tunai dilaksanakan dengan mewajibkan pembeli membayar sejumlah harga untuk barang yang dibeli lalu barang tersebut diserahkan kepada pembeli. Setelah itu, dilakukan pencatatan transaksi. Penjualan dapat dilakukan dengan cara antara lain : 1) Penjualan Langsung Penjualan langsung adalah cara penjualan dimana penjual langsung berhubungan atau berhadapan dengan pembeli. Pembeli dapat langsung mengemukakan keinginannya bahkan sering terjadi tawar-menawar harga untuk mencapai kesesuaian. 2) Penjualan Tidak Langsung Penjualan tidak langsung dapat terjadi jika terdapat masalah antara lain: jarak antara lokasi penjual dan pembeli cukup jauh, respon masyarakat terhadap sebuah iklan atau katalog, terbatasnya waktu antara penjual dan pembeli. 31  
  • 49. c. Teori-teori Akuntansi 1) Pengertian Akuntansi Pengertian Akuntansi menurut American Institute of Certified Public Accountants (AICPA) adalah : “Akuntansi adalah suatu seni pencatatan, pengelompokkan dan pengikhtisaran menurut cara yang berarti dan dinyatakan dalam nilai uang segala transaksi dan kejadian yang sedikit-sedikitnya bersifat financial dan kemudian menafsirkan hasilnya“. Sedangkan [Jusuf 2001] mengungkapkan “Akuntansi adalah proses pencatatan, penggolongan, peringkasan, pelaporan, dan penganalisaan data keuangan suatu organisasi”. Dari definisi akuntansi diatas, dapat disimpulkan bahwa akuntansi mempunyai tujuan menyajikan informasi keuangan dari satu kesatuan ekonomi yang digunakan oleh pihak-pihak yang berkepentingan sebagai bahan pertimbangan didalam pengambilan keputusan ekonomi. Untuk menghasilkan informasi ekonomi yang memadai, maka perlu adanya suatu metode pencatatan, pengelolaan, analisa dan pengendalian transaksi serta kegiatan-kegiatan keuangan dan kemudian melaporkan hasilnya. Kegiatan-kegiatan akuntansi tersebut meliputi : a) Mendefinisikan dan mengukur data yang relevan antara yang satu dengan yang lainnya untuk suatu pengambilan keputusan yang diambil. b) Melakukan pemrosesan data yang bersangkutan kemudian menyusun laporan. c) 2) Mengkomunikasikan laporan tersebut kepada pemakai. Pengertian Sistem Akuntansi Sistem akuntansi adalah organisasi formulir, catatan dan laporan yang dikoordinasi sedemikian rupa untuk menyediakan 32  
  • 50. informasi keuangan yang dibutuhkan oleh manajemen, guna memudahkan dalam pengelolaan perusahaan. 3) Pengertian Sistem Informasi Akuntansi Sistem informasi yang berbasis komputer yang berkaitan dengan akuntansi dikenal dengan istilah Sistem Informasi Akuntansi (SIA). Sistem Informasi Akuntansi sebagai salah satu bab sistem organisasi yang harus dapat berintegrasi dengan sistem yang lain, sehingga sasaran dari sub sistem akuntansi yaitu menyediakan informasi yang tepat pada waktunya, akurat dan relevan untuk semua manajemen didalam sub sistem organisasi. Integrasi dengan cara berkomunikasi terhadapat data dan informasi yang mengalir data ke sub sistem melalui suatu penghubung. Adapun deinisi dari Sistem Informasi akuntansi yaitu sususan berbagai dokumen, alat komunikasi, tenaga pelaksana, dan berbagai laporan yang didesain untuk mentransformasikan data keuangan menjadi laoran keuangan. Data yang diolah oleh Sistem Informasi Akuntansi (SIA) adalah data yang bersifat keuangan, sehingga informasi yang dihasilkan oleh Sistem Informasi Akuntansi hanya informasi keuanngan saja. 4) Pengertian Jurnal Jurnal merupakan catatan akuntansi pertama yang digunakan untuk mencatat, mengklasifikasi dan meringkas data keuangan dan data lainnya. Sumber informasi pencatatan dalam jurnal adalah formulir. Jurnal terbagi atas dua, yaitu : a) Jurnal Umum Jurnal umum digunakan untuk mencatat seluruh transaksi yang tidak dapat dicatat dalam jurnal khusus. Sifat dari jurnal umum 33  
  • 51. dapat bermacam-macam dan dapat dikelompokkan sebagai berikut: (1) Dipergunakan untuk mencatat seluruh transaksi (2) Sulit dilakukan pembagian tugas dalam menjurnal (3) Tingkat kesalahan sangat tinggi (4) Posting ke buku besar hanya dapat dilakukan secara individu b) Jurnal Khusus Jurnal khusus digunakan untuk mencatat transaksi-transaksi sejenis atau yang sering terjadi. Sifat dari jurnal khusus bermacam-macam dan dapat dikelompokkan sebagai berikut : (1) Digunakan untuk mencatat transaksi sejenis (2) Memungkinkan adanya pembagian tugas (3) Tingkat kesalahan rendah, karena jurnal bisa dikeerjakan oleh beberapa orang (4) Posting dapat dilakukan beberapa orang. Jenis-jenis jurnal khusus yaitu sebagai berikut : (1) Jurnal P enerimaan Kas Merupakan jurnal yang digunakan untuk mencatat khusus penerimaan kas atau uang tunai. (2) Jurnal Pengeluaran Kas Merupakan jurnal yang digunakan untuk mencatat pengeluaran kas atau pengneluaran uang tunai. (3) Jurnal Penjualan Merupakan jurnal yang digunakan untuk mencatat untuk mencatat penjualan barang dagang secara kredit. (4) Jurnal Pembelian Merupakan jurnal yang digunakan pembelian barang dagang secara kredit. 34  
  • 52. 5) Buku Besar (General Ledger) Buku besar terdiri dari rekening-rekening yang digunakan untuk meringkas data keuangan yang telah dicatat sebelumnya dalam jurnal. Rekening-rekening dalam buku besar ini disediakan sesuai dengan unsur-unsur informasi yang akan disajikan didalam laporan keuangan. 6) Buku Pembantu (Subsidiary Ledger) Buku pembantu terdiri dari rekening-rekening pembantu yang beerisi data keuangan yang tecantum dalam rekening tertentu dalam buku besar. 7) Laporan Hasil akhir dari proses akuntansi adlah laporan keuangan, yang dapat berupa neeraca, laporan perubahan modal, laporan rugi laba, laporan arus kas. 35  
  • 53. BAB III ANALISA SISTEM 1. Tinjauan Organisasi Dalam proses perancangan sistem informasi, pengetahuan dan informasi tentang sistem yang sedang berjalan sangatlah penting, karena dari informasi tersebut kita dapat mengetahui sampai sejauh mana sistem yang sedang berjalan sekarang, apakah telah dapat memenuhi kebutuhan atau tidak. Selain itu, dibutuhkan informasi apa saja yang ingin dicapai tetapi belum bisa ditangani oleh sistem yang berjalan saat ini. Analisa sistem informasi dapat membantu dalam mengetahui informasi-informasi tentang sistem yang sedang berjalan. Diharapkan dengan adanya analisa dari sistem ini bisa kita ketahui sampai sejauh manakah kebutuhan yang telah ditangani oleh sistem yang sedang berjalan dan bagaimana caranya agar kebutuhan-kebutuhan yang belum bisa terpenuhi dapat diberikan solusinya dan diterapkan dalam tahap perancangan sistem. a. Sejarah Organisasi/perusahaan Counter ADA CELL Pangkalpinang merupakan usaha yang bergerak di bidang Penjualan Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya di Jl. Depati Amir Pangkalpinang. Awal berdirinya Counter ADA CELL Pada tanggal 18 juni 2003 yang didirikan oleh bapak Awen (aming). Penjualan yang dilakukan oleh Counter ADA CELL yaitu penjualan tunai. Selain menjual semua produk hp beserta aksesoris dan lainnya, ADA CELL pun menerima layanan service handphone yang mengalami kerusakan dan siap untuk diperbaiki. 36   
  • 54. Sejalan dengan meningka n atnya perm mintaan sa ampai sekarang Counter A ADA CELL ini terus berkembang dan berpes dalam sistem L b g sat penjualan tunai. i b. Struktur Organisasi Dalam kegiatan operasi ini agar berjal dengan baik dan benar m lan n b maka setiap perusaha atau ya aan ayasan baik besar mau k upun kecil harus yai aksudkan str ruktur organ nisasi mempuny struktur organisasi. Yang dima adalah hub bungan kerj dalam org ja ganisasi, se ehingga terw wujud kerja sama yang sang harmonis dari bagia gat s an-bagian or rganisasi ter rtentu. Dapat disimpulk kan bahwa organisasi merupaka suatu proses i an p penerapan dan pemba n agian tugas yang dilaku ukan, pemb batasan tang ggung jawab sert wewenan dari masi ta ng ing-masing bagian dala tugasnya am a. Untuk menggam k mbarkan ura aian tugas dan tanggu ung jawab pada Counter A ADA Cell, b berikut adala struktur o ah organisasin : nya PEMILIK P BAGIAN  PENJUALAN P N BAGIAN  B GUDANG G BA AGIAN  SERVICE Gambar III.1 : Stru uktur Orga anisasi Pada Counter ADA CELL A L Str ruktur orga anisasi yan ada did ng dalam orga anisasi tersebutu merupakan gambaran bagian-ba n n agian tugas dan tangg gung jawab serta hubungan antara sua bagian atau yang satu denga yang lainnya atu an yang ada d dalam sebua organisa ah asi. 37  
  • 55. c. Pembagian Tugas dan tanggung Jawab Dari Struktur Organisasi Counter ADA CELL dapat dijelasan tugas-tugas dan tanggung jawab dari struktur organisasi pada Counter ADA CELL adalah sebagai berikut : 1) Pemilik Counter a) Memimpin dan mengelolah usaha yang dijalani. b) Bertanggung jawab secara keseluruhan atas semua kegiatan. c) Merencakan garis besar aktivitas yang akan dilakukan. d) Mengawasi segala aktivitas dicounter. e) Memberikan arahan atau petunjuk kepada karyawan. f) Membuat peraturan-peraturan di lingkungan usaha. 2) Bagian Penjualan a) Melayani pelanggan atau pembeli. b) Membuat pesanan yang di pesan oleh pelanggan. c) Membuat form stok barang, form penjualan, form pelanggan, form pemesanan. d) Mencetak nota untuk pelanggan. e) Membuat Laporan penjualan. f) Mencatat keluar masuk keuangan. 3) Bagian Gudang a) Mengatur, menjaga dan merawat barang-barang yang ada. b) Menyusun dan merapikan barang. c) Mengecek pemasokan, stok atau jumlah persediaan barang. d) Mencatat keluar masuk barang. 4) Bagian Service a) Menerima perbaikan barang berupa semua merek handphone yang mengalami kerusakan. b) Memberi solusi kepada pelanggan terhadap barang yang sudah mengalami kerusakan. 38   
  • 56. 2. Analisa Proses Counter ADA CELL adalah perusahaan yang bergerak di bidang Penjualan Hp Segala Merk Grosir dan Eceran beserta Accesories, Sparepart serta service Hp dan lain sebagainya yang berlokasi di Jl. Depati Amir Pangkalpinang yang dipimpin oleh bapak Awen (Aming). Sistem Transaksi pada perusahan Transaksi pada Counter ADA CELL masih melakukan penjualan secara manual tidak secara terkomputerisasi. Berikut ini adalah kegiatan-kegiatan yang dilakukan oleh bagian penjualan dalam melaksanakan transaksi penjualan. a. Proses Bisnis Pada dasarnya, penjualan merupakan kegiatan menjual kepada konsumen dan untuk mendapatkan keuntungan terhadap barang yang dijual. Fungsi penjualan adalah untuk menyediakan barang tertentu kepada konsumen sesuai dengan kebutuhan. Sistem Penjualan yang terjadi pada Counter ADA CELL dilakukan dengan cara konsumen datang secara langsung dan Sistem pembayaran berupa pembayaran secara tunai, pembayaran dilakukan pada saat transaksi penjualan berlangsung. 1) Pencatatan Daftar Harga Pimpinan/pemilik counter memberikan rincian harga barangbarang berupa daftar harga barang berbagai jenis barang yang dijual. Bagian penjualan akan mencatat mencatat daftar harga tersebut sebagai arsip. 39   
  • 57. 2) Transaksi Penjualan dan Pembayaran Setiap Pelanggan yang akan membeli barang datang secara langsung dan memesan barang apa saja khususnya Handphone yang akan dibeli yang tersedia di Counter. Bagian penjualan menerima pesanan barang dan bagian gudang memeriksa atau mengecek barang yang dipesan pelanggan. jika barang yang dipesan ‘tidak ada’ maka bagian gudang mengkonfirmasi kepada bagian penjualan untuk membatalkan pesanan pelanggan. jika pelanggan ingin memesan barang lain maka pelanggan membuat pesanan baru dan jika jumlah barang “tidak mencukupi” pemesanan barang pun dibatalkan kembali kecuali barang yang dipesan ‘ada’ dan bagian gudang memeriksa atau mengecek jumlah barang “mencukupi” maka bagian penjualan akan mencatat pesanan tersebut kedalam surat pesanan. Selanjutnya, bagian penjualan membuat nota berdasarkan surat pesanan, kemudian bagian penjualan menyerahkan barang yang dibeli dan juga menyerahkan nota kepada pelanggannya untuk dibayar. Setelah itu, bagian penjualan memberi nota stempel counter bahwa transaksi pembayaran telah dilakukan. Bagian penjualan menyerahkan nota yang asli kepada pelanggan dan rangkapnya dijadikan arsip serta barang-barang yang telah dibeli oleh pelanggan. 3) Pembuatan laporan Penjualan Sebagai bukti pertanggung jawaban kepada pimpinan, maka bagian penjualan membuat laporan penjualan berdasarkan datadata yang ada pada transaksi penjualan yang akan diserahkan kepada pemilik atau pimpinan setiap 1(satu) Bulan sekali dan laporan penjualan dibuat berdasarkan nota yang telah diarsip. 40   
  • 58. b. Activity Diagram Activity Diagram dibawah ini menggambarkan proses bisnis sistem berjalan yang ada pada Counter ADA CELL. Berikut Activity Diagram dibawah ini : 1) Activity Diagram Pencatatan Daftar Harga Barang PIMPINAN BAGIAN PENJUALAN Berikan Daftar Harga Barang Catat Daftar Harga Barang Serahkan Daftar Harga Barang Gambar III.2 Activity Diagram Pencatatan Daftar Harga Barang 41   
  • 59. 2) Activity Diagram Transaksi Penjualan dan Pembayaran PELANGGAN Buat Pesanan Barang Terima Konfirmasi Pembatalan Pesanan BAGIAN PENJUALAN BAGIAN GUDANG Terima Pesanan Barang Konfirmasi Pembatalan Pesanan Periksa Barang [ tidak ada ] [ ada ] Periks a Jumlah Barang Buat Nota [ mencukupi ] [ tidak mencukupi ] Terima Nota Bayar Ses uai Nota Serahkan Nota Konfirmasi Terima Pembayaran sesuai Nota beri Stempel Serahkan Nota yang dicap dan Barang & diarsipkan Terima Nota sekalian Barang Terima Konfirmasi jumlah pesanan Konfirmasi jumlah pesanan Gambar III.3 Activity Diagram Transaksi Penjualan dan Pembayaran 42   
  • 60. 3) Activity Diagram Pembuatan laporan Penjualan BAGIAN PENJUALAN PIMPINAN Buat Laporan Penjualan Berdasarkan Nota Serahkan Laporan Penjualan Terima Laporan Penjualan Gambar III.4 Activity Diagram Pembuatan Laporan Penjualan 43   
  • 61. 3. Analisa Keluaran Rancangan ini memberi gambaran mengenai keluaran dari sistem informasi Penjualan Tunai yang diusulkan. Adapun keluaran-keluaran yang dihasilkan tersebut adalah : a. Nota Nama Keluaran : Nota Fungsi : Sebagai bukti dari penjualan Media : Kertas Distribusi : Bagian Penjualan Rangkap : 2 lembar Volume : 20/hari Frekuensi : Setiap terjadi transaksi selesai Format : Lihat lampiran A-1, halaman 94 Keterangan : Berisi nomor nota, nama pelanggan, nama dan jumlah barang serta harga yang dipesan Hasil Analisa : Cukup jelas dan sesuai informasi yang ada b. Laporan Penjualan Nama Keluaran : Laporan Penjualan Fungsi : Digunakan untuk mengetahui data-data transaksi penjualan pada periode tertentu Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Volume : 1/bulan Frekuensi : Setiap akhir bulan Format : Lihat Lampiran A-2, halaman 95 Hasil Analisa : Kurang jelas karena Penulisan pendataan informasi masih secara manua Keterangan : Berisi nama, jumlah dan harga barang yang Telah terjual pada periode tertentu 44   
  • 62. 4. Analisa Masukan Pada Analisa ini akan dijelaskan tentang semua masukkan yang merupakan input pada sistem yang berjalan diantaranya sebagai berikut : a. Data Barang Nama Masukan : Daftar Data-data Barang Sumber : Pimpinan Fungsi : Untuk mengetahui informasi data barang Media : Kertas Rangkap : 1 lembar Volume : 1/bulan Frekuensi : Setiap ada pemasukan barang Format : Lihat lampiran B-1, halaman 97 Keterangan : Berisi daftar harga dan data barang Hasil analisa : Cukup baik dan sudah sesuai dengan kebutuhan karena sudah memuat informasi yang diperlukan b. Surat Pesanan Nama Masukan : Data Pesanan Sumber : Pelanggan Fungsi : Untuk mengetahui data-data pelanggan Media : Kertas Rangkap : 1 lembar Frekuensi : Setiap terjadi pemesanan Volume : 20/hari Format : Lihat lampiran B-3, halaman 98 Keterangan : Berisi nama dan jumlah barang yang dipesan Hasil analisa : Cukup jelas dan sudah sesuai dengan kebutuhan karena sudah memuat informasi yang diperlukan 45   
  • 63. 5. Analisa Terapan Akuntansi Gambar III.5 Analisa Terapan Akuntansi 46   
  • 64. 6. Struktur Bagan Rekening Pemberian kode rekening menggunakan metode kelompok dengan sifat-sifat sebagai berikut : a. Posisi masing-masing angka mempunyai arti dimana angka paling kiri adalah kode kelompok dan angka paling kanan adalah kode jenis rekening. b. Kode kelompok akan terdiri dari angka-angka yang sudah diperkirakan terlebih dahulu. c. Setiap kode dalam klasifikasi menggunakan jumlah angka yang sama. d. Jika terjadi penambahan kelompok rekening, dapat dilakukan dengan merubah angka paling kiri. Berikut ini adalah penjabaran klasifikasi pemberian kode dengan menggunakan kode kelompok yang terdiri dari 4 angka, yaitu: 1 1 0 1 Kelompok rekening Golongan rekening Jenis rekening Perluasan jenis rekening Kode kelompok dapat pula digunakan untuk menunjukan hirarki data. Rincian susunan dan kode rekening yang dirancang dengan menggunakan kode kelompok : Nomor Perkiraan Nama Perkiraan 1101 Kas 4101 Penjualan Gambar III.6 Struktur Rekening 47   
  • 65. 7. Identifikasi Kebutuhan Berdasarkan hasil analisa mengenai sistem yang sedang berjalan pada Counter ADA CELL, maka dapat diidentifikasikan kekurangan yang ada, sehingga pada sistem mendatang perlu membutuhkan sistem yang terdapat dibawah ini : a. Kebutuhan Masalah : Pendataan untuk data pelanggan : Bentuk yang tidak terstruktur masih dalam bentuk memo atau catatan kecil, sehingga kurang jelas dalam pencatatan/penulisan data pelanggan dan sering hilang dan berserakkan kemana-mana. Usulan : Disediakannya informasi mengenai data pelanggan dalam bentuk berkas/file komputer yang menginformasikan rincian-rincian data pelanggan yang telah terdaftar. b. Kebutuhan Masalah : Pendataan untuk data barang : Adanya laporan mengenai rincian data barang yang menjadi stok barang yang bersifat manual, sehingga data tersebut kurang jelas dalam pencatatan/ penulisan data barang dan berserahkan kemanamana. Usulan : Disediakannya informasi dalam bentuk berkas/ file komputer yang menginformasikan rincian-rincian data barang. c. Kebutuhan Masalah : Pendataan untuk data rekening : Adanya laporan mengenai rincian data dan kode rekening yang masih bersifat manual dalam bentuk memo atau catatan kecil, sehingga kurang jelas dan banyak rincian data yang untuk dicatat. 48   
  • 66. Usulan : Disediakannya informasi mengenai data dan kode rekening dalam bentuk berkas/file komputer yang menginformasikan rincian-rincian data rekening yang telah terdaftar. c. Kebutuhan Masalah : Pendataan untuk data pesanan : Adanya mengenai rincian-rincian data pesanan yang dipesan oleh konsumen tetapi hanya bersifat sementara dan langsung dibuang setelah dipakai. Sehingga tidak diketahui jumlah penjualan setiap harinya. Usulan : Disediakannya informasi dalam bentuk berkas/ file komputer yang menginformasikan rincian-rincian surat pesanan barang. d. Kebutuhan Masalah : Pencetakan untuk nota : Nomor nota tidak pernah diisi dalam form nota. Sehingga tidak diketahui banyaknya Nota yang telah dikeluarkan. Usulan : Disediakannya nota dengan data nota dalam bentuk berkas komputer agar informasi yang didapatkan lebih jelas dan lengkap. e. Kebutuhan Masalah : Pencetakan untuk laporan penjualan : Kurang terincinya berapa barang yang terjual dan total harga barang yang terjual pada satu periodenya. Usulan : Disediakannya informasi laporan data penjualan barang dalam bentuk berkas komputer yang menginformasikan rincian data penjualan barang yang terdaftar. 49   
  • 67. f. Kebutuhan : Pencetakan untuk jurnal penerimaan kas Masalah : Penanganan transaksi yang ada pada sistem adalah merupakan salah satu bagian dari serangkaian proses akuntansi. Dalam hal penanganan transasksi pencatatan transaksi dilakukan berkali-kali karena disamping proses transaksi itu sendiri pencatatan akuntansi juga dilakukan. Usulan : Disediakannya informasi dalam bentuk laporan dan data mentah dalam bentuk berkas komputer yang langsung menginformasikan transaksi akuntansi yang terjadi pada sistem. g. Kebutuhan Masalah : Pencetakan untuk jurnal umum : Penanganan transaksi yang ada pada sistem adalah merupakan salah satu bagian dari serangkaian proses akuntansi. Dalam hal penanganan transasksi pencatatan transaksi dilakukan berkali-kali karena disamping proses transaksi itu sendiri pencatatan akuntansi juga dilakukan. Usulan : Disediakannya informasi dalam bentuk laporan dan data mentah dalam bentuk berkas komputer yang langsung menginformasikan transaksi akuntansi yang terjadi pada sistem. 50   
  • 68. 8. Use Case Diagram Use Case Diagram dibawah ini menggambarkan proses bisnis sistem berjalan yang ada pada Counter ADA CELL. Berikut Gambar Use Case Diagram dibawah ini : Entry Data Barang Entry Data Pelanggan Entry Data Rekening Pelanggan Entry Pesanan Bagian Penjualan Cetak Nota Cetak Laporan Penjualan Cetak Jurnal Penerimaan Kas Cetak Jurnal Umum Gambar III.7 Use Case Diagram 51    Pimpinan
  • 69. 9. Deskripsi Use Case 1. UseCase : Entry Data Barang Actor : Bagian Penjualan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data Barang dan Kode otomatis ditampilkan pada kode barang. b) Bagian Penjualan menginput data barang baru. c) Jika ingin membuat data baru bagian penjualan memilih tombol Baru dan kode otomatis ditampilkan pada kode barang. d) Bagian Penjualan menyimpan data barang baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data barang. e) Bagian Penjualan dapat mengubah data barang yang telah disimpan dengan memilih tombol Ubah. f) Jika ingin menghapus data barang yang telah disimpan maka pilih tombol Hapus. g) Bagian Penjualan dapat membatalkan data barang yang telah diinput dengan memilih tombol Batal. h) Jika ingin menutup form Entry Data barang pilih tombol keluar. 2. Usecase : Entry Data Pelanggan Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data pelanggan dan Kode otomatis ditampilkan pada kode pelanggan. b) Bagian Penjualan menginput data pelanggan baru. c) Jika ingin membuat data baru bagian penjualan memilih tombol Baru dan kode otomatis ditampilkan pada kode pelanggan. 52   
  • 70. d) Bagian Penjualan menyimpan data pelanggan baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data pelanggan. e) Bagian Penjualan dapat mengubah data pelanggan yang telah disimpan dengan memilih tombol Ubah. f) Jika ingin menghapus data Pelanggan yang telah disimpan maka pilih tombol Hapus. g) Bagian Penjualan dapat membatalkan data pelanggan yang telah diinput dengan memilih tombol Batal. h) Jika ingin menutup form Entry Data pelanggan pilih tombol keluar. 3. Use Case : Entry Data Rekening Actor : Bagian Penjualan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Data Rekening dan bagian Penjualan menginput data rekening baru. b) Jika ingin membuat data baru bagian penjualan memilih tombol Baru. c) Bagian Penjualan menyimpan data Rekening baru dengan memilih tombol Simpan dan ditampilkan di listview form entry data Rekening. d) Bagian Penjualan dapat mengubah data Rekening yang telah disimpan dengan memilih tombol Ubah. e) Jika ingin menghapus data Rekening yang telah disimpan maka pilih tombol Hapus. f) Jika ingin menutup form Entry Data Rekening pilih tombol keluar. 53   
  • 71. 4. Usecase : Entry Pesanan Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Entry Pesanan dan Kode otomatis ditampilkan pada nomor pesanan. b) Bagian Penjualan memilih data pelanggan beserta data barang dengan memilih tombol Cari dimasing-masing data pelanggan dan data barang. c) Bagian Penjualan dapat memilih jenis harga pesan terlebih dahulu setelah itu menginput jumlah pesan dan akan tampil di total harga. d) Bagian Penjualan dapat menyimpan banyaknya data pesanan baru yang untuk ditampilkan di listview form entry pesanan dengan memilih tombol Pesan. e) Bagian Penjualan dapat menyimpan data pelanggan yang sudah diinput dengan memilih tombol Simpan. f) Bagian Penjualan dapat membatalkan data yang sudah diinput data pelanggan dengan memilih tombol batal. g) Jika ingin menutup form Entry Pesanan pilih tombol Selesai. 5. Usecase : Cetak Nota Actor : Bagian Penjualan dan pelanggan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak Nota dan Kode otomatis ditampilkan pada nomor nota. b) Bagian Penjualan memilih data pelanggan yang telah disimpan dengan memilih tombol Cari dan data-data pesanan yang telah dipesan akan tampilkan di form Cetak Nota. c) Bagian Penjualan dapat langsung mencetak Nota dengan memilih tombol cetak. 54   
  • 72. d) Bagian Penjualan dapat membatalkan data nota dengan memilih tombol batal. e) Jika ingin menutup form Cetak Nota pilih tombol keluar. 6. Usecase : Cetak Laporan Penjualan Actor : Bagian Penjualan dan Pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak laporan penjualan. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak laporan penjualan. c) Jika ingin melihat atau menmpilkan Laporan Penjualan, pilih tombol tampil d) Jika ingin menutup form cetak laporan penjualan, pilih tombol keluar. 7. Usecase : Cetak Jurnal Penerimaan Kas Actor : Bagian Penjualan dan Pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak jurnal penerimaan kas. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak jurnal penerimaan kas. c) Jika ingin melihat atau menampilkan Jurnal penerimaan kas, pilih tombol tampil. d) Jika ingin menutup form cetak jurnal penerimaan kas, pilih tombol keluar. 55   
  • 73. 8. Usecase : Cetak Jurnal Umum Actor : Bagian Penjualan dan pimpinan Deskripsi : a) Bagian Penjualan membuka menu utama, kemudian membuka form Cetak. Setelah form cetak tampil, bagian penjualan memilih pada combo box untuk cetak jurnal umum. b) Bagian Penjualan menginput periode tanggal awal dan tanggal akhir setelah itu pilih tombol cetak untuk mencetak jurnal umum. c) Jika ingin melihat atau menmpilkan Jurnal umum, pilih tombol tampil. d) Jika ingin menutup form cetak jurnal umum, pilih tombol keluar. 56   
  • 74. BAB IV RANCANGAN SISTEM 1. Rancangan Basis Data Dalam merancang sebuah sistem yang sudah terkomputerisasi maka seluruh data yang akan dipergunakan oleh sistem tersebut harus disimpan ke dalam suatu basis data yang memiliki kelebihan data independent. Dengan menerapkan suatu basis data dalam strategi akses dalam pengembangan sistem tanpa harus mengubah program-program aplikasi yang sudah ada. Langkah yang harus dilakukan dalam pembentukan suatu basis data yang baik adalah sebagai berikut : a. Entity Reationship Diagram (ERD) No_Psn Tgl_Psn PELANGGAN 1 Kd_plg Nm_plg Almt_plg Telp_plg M buat PESANAN M 1 Kd_plg No_Psn No_Psn No_nota minta No_Psn Kd_Brg Harga_Distributor Jml_Psn terima 1 REKENING No_Rek Nm_Rek Posisi N M jurnal No_Nota No_Rek Tgl_Jurnal D_K Jml NOTA No_Nota Tgl_Nota Gambar IV.1 Entity Relationship Diagram (ERD) 57    N BARANG Kd_brg Nm_brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok
  • 75. b. Transformasi Diagram Entity Relationship Diagram (ERD) ke Logical Record Structure (LRS) No_Psn Tgl_Psn PELANGGAN 1 Kd_plg Nm_plg Almt_plg Telp_plg M buat PESANAN M 1 Kd_plg No_Psn No_Psn No_nota minta N No_Psn Kd_Brg Harga_Distributor Jml_Psn terima 1 REKENING No_Rek Nm_Rek Posisi N M jurnal No_Nota No_Rek Tgl_Jurnal D_K Jml NOTA No_Nota Tgl_Nota Gambar IV.2 Transformasi Entity Relationship Diagram (ERD) ke Logical Record Stucture (LRS) 58    BARANG Kd_brg Nm_brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok
  • 76. c. Logical Record Structure (LRS) Gambar IV.3 Logical Record Structure (LRS) 59   
  • 77. d. Tabel 1) Tabel Pelanggan Kd_Plg Nm_Plg Almt_Plg Telp_Plg PK Tabel IV.1 Tabel Pelanggan 2) Tabel Pesanan No_Psn Tgl_Psn Kd_Plg PK FK Tabel IV.2 Tabel Pesanan 3) Tabel Minta No_Psn Kd_Brg FK Harga_Distributor FK PK Tabel IV.3 Tabel Minta 60    Jml_Psn
  • 78. 4) Tabel Barang Kd_Brg Nm_Brg Jenis Imei Warna Hrg_Resmi Hrg_Distributor Garansi Stok PK Tabel IV.4 Tabel Barang 5) Tabel Nota No_Nota Tgl_Nota No_Psn PK FK Tabel IV.5 Tabel Nota 6) Tabel Jurnal No_Nota No_Rek FK Tgl_jurnal D_K FK PK Tabel IV.6 Tabel Jurnal 7) Tabel Rekening No_Rek Nm_Rek PK Tabel IV.7 Tabel Rekening 61    Posisi Jml
  • 79. e. Spesifikasi Basis Data 1) File Pelanggan Nama File : Pelanggan Media : Harddisk Isi : Data-data pelanggan Organisasi : Index Sequential Primary Key : Kd_Plg Panjang record : 170 byte Jumlah record : 350 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. Kd_Plg Text 5 - Kode Pelanggan 2. Nm_Plg Text 50 - Nama Pelanggan 3. Almt_Plg Text 100 - Alamat Pelanggan 4. Telp_Plg Text 15 - Telepon Pelanggan Tabel IV.8 Spesifikasi Basis Data Tabel Pelanggan 2) File Pesanan Nama File : Pesanan Media : Harddisk Isi : Data-data pesanan Organisasi : Index Sequential Primary Key : No_Psn + Kd_Plg Panjang record : 18 byte Jumlah record : 31200 record Struktur : 62   
  • 80. No Nama Field Jenis Lebar Dec Keterangan 1. No_Psn Text 5 - Nomor Pesanan 2. Tgl_Psn Date 8 - Tanggal Pesanan 4. Kd_Plg Text 5 - Kode Pelanggan Tabel IV.9 Spesifikasi Basis Data Tabel Pesanan 3) File Minta Nama File : Minta Media : Harddisk Isi : Data-data isi pesanan Organisasi : Index Sequential Primary Key : No_Psn + Kd_Brg Panjang record : 18 byte Jumlah record : 187200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Psn Text 5 - Nomor Pesanan 2. Kd_Brg Text 5 - Kode Barang 3. Harga_Distributor Currency 6 - Harga Distributor 4. Jml_Psn 2 - Jumlah Pesan Number Tabel IV.10 Spesifikasi Basis Data Tabel Minta 63   
  • 81. 4) File Barang Nama File : Barang Media : Harddisk Isi : Data-data barang Organisasi : Index Sequential Primary Key : Kd_Brg Panjang record : 115 byte Jumlah record : 31200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. Kd_Brg Text 5 - Kode Barang 2. Nm_Brg Text 50 - Nama Barang 3. Jenis Text 10 - Jenis/Type/Merk Barang 4. Imei Text 15 - Imei/Np.seri Barang 5. Warna Text 10 - Warna Barang 6. Hrg_Resmi Currency 6 - Harga Resmi 7. Hrg_Distributor Currency 6 - Harga Distributor 8. Garansi Text 10 - Garansi Barang 9. Stok Number 3 - Stok Barang Tabel IV.11 Spesifikasi Basis Data Tabel Barang 5) File Nota Nama File : Nota Media : Harddisk Isi : Data-data nota Organisasi : Index Sequential Primary Key : No_Nota + No_Psn 64   
  • 82. Panjang record : 18 byte Jumlah record : 31200 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Nota Text 5 - Nomor Nota 2. Tgl_Nota Date/time 8 - Tanggal Nota 3. No_Psn Text 5 - Nomor Pesanan Tabel IV.12 Spesifikasi Basis Data Tabel Nota 6) File Jurnal Nama File : Jurnal Media : Harddisk Isi : Data-data Jurnal Organisasi : Index Sequential Primary Key : No_Nota + No_Rek Panjang record : 40 byte Jumlah record : 62400 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Nota Text 5 - Nomor Nota 2. No_Rek Text 15 - Nomor Rekening 3. Tgl_Jurnal Date/time 8 - Tanggal Jurnal 4. D_K Text 6 - Debet & Kredit 5. Jml Number 6 - Jumlah Tabel IV.13 Spesifikasi Basis Data Tabel Jurnal 65   
  • 83. 7) File Rekening Nama File : Rekening Media : Harddisk Isi : Data-data rekening Organisasi : Index Sequential Primary Key : No_Rek Panjang record : 51 byte Jumlah record : 62 record Struktur : No Nama Field Jenis Lebar Dec Keterangan 1. No_Rek Text 15 - Nomor Rekening 2. Nm_Rek Text 30 - Nama Rekening 3. Posisi Text 6 - Debet & Kredit Tabel IV.14 Spesifikasi Basis Data Tabel Rekening 66   
  • 84. 2. Rancangan Antar Muka a. Rancangan Keluaran Berisi penjelasan dari setiap keluaran yang ingin dihasilkan oleh sistem yang dirancang, yaitu sebagai berikut : Nama Keluaran : Nota Fungsi : Sebagai bukti pembelian barang Media : Kertas Distribusi : Bagian Penjualan Rangkap : 2 lembar Frekuensi : Setiap terjadi transaksi selesai Volume : 20/hari Format : Lampiran C-1, halaman 100 Keterangan : Diserahkan kepada pelanggan dan berisi daftar pembelian pelanggan Nama Keluaran : Laporan Penjualan Fungsi : Sebagai informasi untuk mengetahui data-data transaksi penjualan pada periode tertentu Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap 1/bulan Volume : Setiap akhir bulan Format : Lampiran C-2, halaman 101 Keterangan : Berisi daftar penjualan barang dari periode awal bulan sampai akhir bulan 67   
  • 85. Nama Keluaran : Laporan Jurnal Penerimaan kas Fungsi : Sebagai informasi untuk mengetahui jumlah penerimaan kas Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap akhir bulan Volume : Setiap 1/bulan Format : Lampiran C-3, halaman 102 Keterangan : Berisi daftar penerimaan kas dari periode awal bulan sampai akhir bulan Nama Keluaran : Laporan Jurnal Umum Fungsi : Sebagai informasi untuk mengetahui jumlah debet dan kredit dalam bentuk jurnal umum Media : Kertas Distribusi : Bagian Penjualan Rangkap : 1 lembar Frekuensi : Setiap akhir bulan Volume : Setiap 1/bulan Format : Lampiran C-4, halaman 103 Keterangan : Berisi daftar dalam bentuk jurnal umum dari periode awal bulan sampai akhir bulan 68   
  • 86. b. Rancangan Masukan Berisi penjelasan dari setiap keluaran yang ingin dihasilkan oleh sistem yang dirancang, yaitu sebagai berikut : Nama Masukan : Data Barang Sumber : Bagian Penjualan Fungsi : Untuk mengetahui informasi data barang Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/bulan Volume : Bulanan Format : Lampiran D-1, halaman 105 Keterangan : Berisi informasi data-data barang Nama Masukan : Data Pelanggan Sumber : Bagian Penjualan Fungsi : Untuk informasi data pelanggan pada periode tertentu Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/bulan Volume : Bulanan Format : Lampiran D-2, halaman 106 Keterangan : Berisi informasi data pelanggan 69   
  • 87. Nama Masukan : Data Pesanan Sumber : Bagian Penjualan Fungsi : Untuk informasi data pesanan Media : Kertas Rangkap : 1 lembar Frekuensi : ± 1x/minggu Volume : Mingguan Format : Lampiran D-3, halaman 107 Keterangan : Berisi informasi data pesanan 70   
  • 88. c. Rancangan Dialog Layar 1) Struktur Tampilan   Gambar IV.4 Struktur Tampilan 71   
  • 89. 2) Rancangan Layar a) Rancangan Layar Form Menu Utama   Gambar IV.5 Rancangan Layar Form Menu Utama b) Rancangan Layar Form Master   Gambar IV.6 Rancangan Layar Form Master 72   
  • 90. (1) Rancangan Layar Form Entry Data Barang   Gambar IV.7 Rancangan Layar Form Entry Data Barang 73   
  • 91. (2) Rancangan Layar Form Entry Data Pelanggan           Gambar IV.8 Rancangan Layar Form Entry Data Pelanggan       74   
  • 92. (3) Rancangan Layar Form Entry Data Rekening   Gambar IV.9 Rancangan Layar Form Entry Data Rekening   75   
  • 93. c) Rancangan Layar Form Transaksi     Gambar IV.10 Rancangan Layar Form Transaksi 76   
  • 94. (1) Rancangan Layar Form Entry Pesanan   Gambar IV.11 Rancangan Layar Form Entry Pesanan 77   
  • 95. (2) Rancangan Layar Form Cetak Nota   Gambar IV.12 Rancangan Layar Form Cetak Nota     d) Rancangan Layar Form Cetak   Gambar IV.13 Rancangan Layar Form Cetak 78   
  • 96. (1) Rancangan Layar Form Cetak Laporan Penjualan Gambar IV.14 Rancangan Layar Form Cetak Laporan Penjualan (2) Rancangan Layar Form Cetak Jurnal Penerimaan Kas   Gambar IV.15 Rancangan Layar Form Cetak Jurnal Penerimaan Kas 79   
  • 97. (3) Rancangan Layar Form Cetak Jurnal Umum Gambar IV.16 Rancangan Layar Form Cetak Jurnal Umum 80   
  • 98. d. Sequence Diagram 1) Sequence Diagram Entry Data Barang : Bagian Penjualan : fmenuutama : Control Barang : fBarang Open ( ) getBarang ( ) getBarang ( ) Kode Otomatis ( ) Input Barang ( ) Input Barang ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.17 Sequence Diagram Entry Data Barang 81    HAPUS ( ) : Barang
  • 99. 2) Sequence Diagram Entry Data Pelanggan : Bagian Penjualan : fmenuutama : Control Barang : fPelanggan Open ( ) getPelanggan ( ) : Pelanggan getPelanggan ( ) Kode Otomatis ( ) Input Pelanggan ( ) Input Pelanggan ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.18 Sequence Diagram Entry Data Pelanggan 82    HAPUS ( )
  • 100. 3) Sequence Diagram Entry Data Rekening : Bagian Penjualan : fmenuutama : Control Barang : fRekening Open ( ) getRekening ( ) getRekening ( ) Kode Otomatis ( ) Input Rekening ( ) Input Rekening ( ) BARU ( ) BARU ( ) BARU ( ) SIMPAN ( ) SIMPAN ( ) Tampil ListView ( ) UBAH ( ) UBAH ( ) UBAH ( ) Tampil ListView ( ) HAPUS ( ) HAPUS ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.19 Sequence Diagram Entry Data Rekening 83    : Rekening HAPUS ( )
  • 101. 4) Sequence Diagram Entry Pesanan : Bagian Penjualan : fMenu Utama Open ( ) : control fPesanan : fPesanan getPesanan ( ) : Pesanan : Minta getPesanan ( ) Kode Otomatis ( ) sysdate ( ) cari Pelanggan ( ) cari Pelanggan ( ) getPelanggan ( ) Tampil Pelanggan ( ) loop cari barang() cari Barang() cari Barang() Tampil Barang ( ) input Minta ( ) input Minta ( ) Hitung Total ( ) Tampil Total ( ) Pesan ( ) Pesan ( ) Hitung GrandTotal () Tampil ListView ( ) Tampil GrandTotal ( ) Simpan ( ) Simpan ( ) Simpan Pesanan ( ) Simpan Minta ( ) Batal ( ) Batal ( ) Kosongkan ( ) Tutup() Tutup() Tutup ( ) Gambar IV.20 Sequence Diagram Entry Pesanan 84    : Pelanggan : Barang
  • 102. 5) Sequence Diagram Cetak Nota : Bagian Penjualan : fMenu Utama Open ( ) : fNota : control fNota getNota ( ) : Pelanggan : Nota : Minta : Pesanan : Barang : Jurnal getNota ( ) Kode Otomatis ( ) sysDate ( ) input Nota ( ) input Nota ( ) cari Pesanan ( ) cari Pesanan ( ) getPelanggan ( ) getMinta ( ) getPesanan ( ) getBarang ( ) Tampil Pesanan ( ) CETAK ( ) CETAK ( ) Simpan Nota ( ) getRekening ( ) Loop Simpan Jurnal ( ) Litah Nota Pembayaran ( ) BATAL ( ) BATAL ( ) Kosongkan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.21 Sequence Diagram Cetak Nota 85    : Rekening
  • 103. 6) Sequence Diagram Cetak Laporan Penjualan : Bagian Penjualan : fMenu Utama : fCetakLapPenj : control fCetakLapPenj : Pelanggan : Minta : Pesanan : Barang Open ( ) input periode ( ) iinput periode ( ) getPelanggan ( ) getMinta ( ) getPesanan ( ) getBarang ( ) CETAK ( ) CETAK ( ) Tampil Laporan Penjualan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.22 Sequence Diagram Cetak Laporan Penjualan 86    : Nota
  • 104. 7) Sequence Diagram Cetak Jurnal Penerimaan Kas : Bagian Penjualan : fMenu Utama : fJurPenKas : control fJurPenKas : Nota : Jurnal : Rekening Open ( ) input Periode ( ) input Periode ( ) getNota ( ) getRekening ( ) CETAK ( ) CETAK ( ) Tampil Jurnal Penerimaan Kas ( ) Tampil Total Keseluruhan ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.23 Sequence Diagram Cetak Jurnal Penerimaan Kas 87   
  • 105. 8) Sequence Diagram Cetak Jurnal Umum : Bagian Penjualan : fMenu Utama : fJurUmum : control fJurUmum : Jurnal : Nota Open ( ) input Periode ( ) input Periode ( ) getNota ( ) getRekening ( ) CETAK ( ) CETAK ( ) Tampil Jurnal Umum ( ) KELUAR ( ) KELUAR ( ) KELUAR ( ) Gambar IV.24 Sequence Diagram Cetak Jurnal Umum 88    : Rekening
  • 107. BAB V PENUTUP 1. Kesimpulan Dari pembahasan yang sudah diuraikan maka penulis mencoba membuat kesimpulan seperti berikut ini : a. Penggunaan sistem penjualan secara manual memerlukan banyak waktu serta keakuratan data atau informasi yang kurang terjamin. Padahal kegiatan penjualan merupakan kegiatan rutinitas setiap harinya dan memerlukan ketelitian yang cukup. b. Tingkat kesalahan pada penggunaan sistem manual lebih besar dibanding dengan menggunakan sistem yang sudah terkomputerisasi seperti dalam proses perhitungan. c. Dengan adanya sistem penjualan secara komputerisasi pengolah data, penyajian informasi penjualan akan lebih cepat, akurat serta keamanan data akan lebih terjamin karena tempat atau media penyimpanan lebih terjaga. d. Dengan menggunakan sistem penjualan yang sudah terkomputerisasi diharapkan masalah atau hambatan yang dihadapi dalam sistem manual dapat teratasi atau meminimalkan kesalahan yng terjadi dalam sistem manual seperti dalam penyajian informasi yang kurang cepat dan keakuratan data yang kurang terjamin. 90   
  • 108. 2. Saran Dari hasil kesimpulan yang penulis utarakan diatas maka penulis mencoba memberikan saran-saran yang kiranya dapat berguna bagi Counter ADA CELL terutama sistem penjualan tunai untuk pengolahan data antara lain adalah a. Ketelitian operator pada waktu memasukkan data perlu ditingkatkan agar tingkat kesalahan data akan semakin rendah, dengan demikian keluaran yang dihasilkan akan sesuai dengan yang diinginkan. Hendaknya disadari bahwa komputerisasi sistem tidak ada gunanya jika tanpa dukungan operator yang terampil, terlatih dan bertanggung jawab. b. Agar diadakan pelatihan yang baik dalam penggunaan sistem komputerisasi yang baru tersebut kepada karyawan yang menggunakan sistem ini. c. Diperlukannya personil untuk maintenance / menguasai masalah hardware maupun software agar terhindar dari masalah-masalah yang merugikan perusahaan. d. Dilakukannya back up secara berkala terhadap data-data yang penting untuk mengantisipasi keadaan yang tidak diinginkan. e. Untuk menjaga agar data di database selalu up to date maka sebaiknya menghapus data-data yang sudah tidak diperlukan agar tidak terjadi penumpukan data. f. Ada kebijakan untuk pencetakan ulang dokumen rancangan keluaran dari pimpinan apabila pada saat pencetakan ada kecelakaan kecil yang menyebabkan tidak bisa untuk mencetak ulang dengan nomor urut dokumen yang sama. 91   
  • 109. DAFTAR PUSTAKA Buku: [Daulay 2007] Daulay, Syafrizal Melwin, “ Mengenal hardware-sotfware dan pengelolaan instalasi komputer”, CV.Andi Offset, Jakarta, 2007. [Hadi 2010] Hadi, Santoso ,S.kom 2010, VB.NET Lanjutan: Kampus STMIK Atma Luhur, Diktat, Pangkalpinang, Kampus STMIK Atma Luhur. [Hadi 2009] Hadi, Santoso, S.Kom 2009, Implementasi Sistem Informasi Akuntansi: Kampus STMIK Atma Luhur, Modul, Pangkalpinang, Kampus STMIK Atma Luhur. [Melati 2009] Melati, Suci Mayasari ,S.kom 2009, Analisa Sistem Informasi: Kampus STMIK Atma Luhur, Diktat, Pangkalpinang, Kampus STMIK Atma Luhur. [Haryono 2001] AL, Haryono, Jusuf, 2001, “Pengertian Akuntansi”, AICPA, 2001 Naskah dari Internet : [YTSE 1999] Yayasan Total Sarana Edukasi, “ Perangkat Keras”, Copyright (c) 1999-2010, www.total.or.id (Diakses 22 Mei 2011). [BLACKICE 2007] Blackice, 89, “ Konsep Dasar Sistem”, 2007. www.blackice89.blogspot.com/2007/12/konsep-dasarsistem.html (Diakses 22 Mei 2001) [Andika 2010] Andika, Apriadi, “ Konsep Dasar Sistem Informasi “, 2010. www.andhika-apriadi.blogspot.com/2010/09/konsep- dasar-sistem-informasi.html (Diakses 22 Mei 2011) 92   
  • 114. Lampiran B-1 Daftar Data Barang 97   
  • 119. ADA CELL Service Hp Segala Merk Grosir dan Eceran Accesories, Sparepart, & Hp Alamat Jl. Depati Amir - Pangkalpinang JURNAL PENERIMAAN KAS Periode : dd/mm/yyyyy sd dd/mm/yyyy No.Nota x-5-x Kas Penjualan 999,999,999 dd/mm/yyyy Kredit 999,999,999 999,999,999 Tanggal Nota 999 Debet 999,999,999 No Jumlah Pangkalpinang, dd/mm/yyyy Bagian Penjualan ( .............................) Lampiran C-3 Jurnal Penerimaan Kas       102   
  • 122. ADA CELL Service Hp Segala Merk Grosir dan Eceran Accesories, Sparepart, & Hp Alamat Jl. Depati Amir - Pangkalpinang DATA BARANG No. Kode Barang 999 x-6-x Nama Barang x-30-x Jenis IMEI x-10-x x-15-x x-10-x Harga Resmi Warna Harga Distributor 999.999.999 999,999,999 Garansi Stok x-10-x x-3-x   Lampiran D-1 Data Barang 105   
  • 126. COUNTER ADA CELL Jl. Depati Amir - Pangkalpinang SURAT KETERANGAN Saya yang bertanda tangan dibawah ini : Nama : Awen Jabatan : Pimpinan Menerangkan dengan sesungguhnya : Nama : Jacob Dwi Kristian Umboh Nim : 0844300113 Mengenai pelaksanaan riset tugas akhir program studi Komputerisasi Akuntansi Diploma 3 (D3) yang rencananya akan diadakan ditempat kami dan telah selesai mengumpulkan data selama 3(Tiga) bulan, mulai dari tanggal 10 April 2011. Pada intinya kami setuju untuk memberikan pengarahan dan bimbingan kepada mahasiswa tersebut selama pelaksanaan riset tugas akhir ditempat kami. Demikianlah yang dapat kami sampaikan. Atas perhatian dan Kerja sama yang baik kami ucapkan Terima kasih.   109   
  • 129. LISTING “MASTER” LISTING FORM – Data Barang.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Barang Dim obj As New ClassBarang Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdBrg.Text = obj.KdBrg Call list_data() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select Kd_Brg, Nm_Brg, Jenis, Imei, Warna, Hrg_Resmi, Hrg_Distributor, Garansi, Stok from Barang" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) .Items(x).SubItems(3).Text = myread.GetValue(3) .Items(x).SubItems(4).Text = myread.GetValue(4) .Items(x).SubItems(5).Text = myread.GetValue(5) .Items(x).SubItems(6).Text = myread.GetValue(6) .Items(x).SubItems(7).Text = myread.GetValue(7) Counter “ADA CELL “
  • 130. .Items(x).SubItems(8).Text = myread.GetValue(8) End With End While Finally myread.Close() End Try conn.Close() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNmBrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" txtHrgResmi.Text = "" txtHrg_Distributor.Text = "" cmbGaransi.Text = "" txtStok.Text = "" txtNmBrg.Focus() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtKdBrg.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmBrg.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtJenis.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString txtIMEI.Text = ListView1.SelectedItems(0).SubItems(3).Text.ToString txtWarna.Text = ListView1.SelectedItems(0).SubItems(4).Text.ToString txtHrgResmi.Text = ListView1.SelectedItems(0).SubItems(5).Text.ToString txtHrg_Distributor.Text = ListView1.SelectedItems(0).SubItems(6).Text.ToString cmbGaransi.Text = ListView1.SelectedItems(0).SubItems(7).Text.ToString txtStok.Text = ListView1.SelectedItems(0).SubItems(8).Text.ToString btnSIMPAN.Enabled = False End Sub Private Sub btnBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdBrg.Text = obj.KdBrg Call bersih() btnSIMPAN.Enabled = True End Sub Counter “ADA CELL “
  • 131. Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdBrg.Text = "" Then MessageBox.Show("Maaf, silahkan isi Kode Barang !!") txtKdBrg.Focus() Exit Sub ElseIf txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan isi Nama Barang !!") txtNmBrg.Focus() Exit Sub ElseIf txtJenis.Text = "" Then MessageBox.Show("Maaf, silahkan isi Jenis Barang !!") txtJenis.Focus() Exit Sub ElseIf txtIMEI.Text = "" Then MessageBox.Show("Maaf, silahkan isi Imei !!") txtIMEI.Focus() Exit Sub ElseIf txtWarna.Text = "" Then MessageBox.Show("Maaf, silahkan isi Imei !!") txtWarna.Focus() Exit Sub ElseIf txtHrgResmi.Text = "" Then MessageBox.Show("Maaf, silahkan isi Harga Resmi !!") txtHrgResmi.Focus() ElseIf txtHrg_Distributor.Text = "" Then MessageBox.Show("Maaf, silahkan isi Harga Distributor !!") txtHrg_Distributor.Focus() Exit Sub ElseIf cmbGaransi.Text = "" Then MessageBox.Show("Maaf, silahkan pilih garansi !!") cmbGaransi.Focus() Exit Sub ElseIf txtStok.Text = "" Then MessageBox.Show("Maaf, silahkan isi Stok Barang !!") txtStok.Focus() Exit Sub End If obj.KdBrg = txtKdBrg.Text obj.NmBrg = txtNmBrg.Text obj.Jenis = txtJenis.Text obj.Imei = txtIMEI.Text obj.Warna = txtWarna.Text obj.HrgResmi = txtHrgResmi.Text obj.HrgDistributor = txtHrg_Distributor.Text obj.Garansi = cmbGaransi.Text obj.Stok = txtStok.Text If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("kd_brg"), 3, 3) Else txtKdBrg.Text = "BG001" Exit Sub End If 'MsgBox(strTemp) Counter “ADA CELL “
  • 132. strValue = Val(strTemp) + 1 txtKdBrg.Text = "BG" & Mid("000", 1, 3 - strValue.Length) & strValue Call bersih() Else MessageBox.Show("Gagal Menyimpan!!") End If Call list_data() End Sub Private Sub btnUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUBAH.Click If txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data barang di list_view !!") txtNmBrg.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA BARANG", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then obj.KdBrg = txtKdBrg.Text obj.NmBrg = txtNmBrg.Text obj.Jenis = txtJenis.Text obj.Imei = txtIMEI.Text obj.Warna = txtWarna.Text obj.HrgResmi = txtHrgResmi.Text obj.HrgDistributor = txtHrg_Distributor.Text obj.Garansi = cmbGaransi.Text obj.Stok = txtStok.Text If obj.ubah(txtKdBrg.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Brg"), 3, 3) Else txtKdBrg.Text = "BG001" Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdBrg.Text = "BG" & Mid("000", 1, 3 - strValue.Length) & strValue Else MessageBox.Show("Update Gagal !!") End If Call bersih() btnSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub btnHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHAPUS.Click Counter “ADA CELL “
  • 133. If txtNmBrg.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data barang di list_view !!") txtNmBrg.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA BARANG", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtKdBrg.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus !!") Else MessageBox.Show("Gagal Menghapus !!") End If Call bersih() End If Call list_data() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click Call bersih() End Sub Private Sub btnKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub End Class Counter “ADA CELL “
  • 134. LISTING CLASS - ClassBarang.vb Imports System.Data.OleDb Imports System.Data Public Class ClassBarang #Region "Variabel" Private xKdBrg As String Private xNmbrg As String Private xJenis As String Private xImei As String Private xWarna As String Private xHrgResmi As Double Private xHrgDistributor As Double Private xGaransi As String Private xStok As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property KdBrg() As String Get Return xKdBrg End Get Set(ByVal value As String) xKdBrg = value End Set End Property Public Property NmBrg() As String Get Return xNmbrg End Get Set(ByVal value As String) xNmbrg = value End Set End Property Public Property Jenis() As String Get Return xJenis End Get Set(ByVal value As String) xJenis = value End Set End Property Public Property Imei() As String Get Return xImei End Get Set(ByVal value As String) xImei = value End Set End Property Public Property Warna() As String Counter “ADA CELL “
  • 135. Get Return xWarna End Get Set(ByVal value As String) xWarna = value End Set End Property Public Property HrgResmi() As Double Get Return xHrgResmi End Get Set(ByVal value As Double) xHrgResmi = value End Set End Property Public Property HrgDistributor() As Double Get Return xHrgDistributor End Get Set(ByVal value As Double) xHrgDistributor = value End Set End Property Public Property Garansi() As String Get Return xGaransi End Get Set(ByVal value As String) xGaransi = value End Set End Property Public Property Stok() As String Get Return xStok End Get Set(ByVal value As String) xStok = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Barang(Kd_Brg,Nm_Brg,Jenis,Imei,Warna,Hrg_Resmi,Hrg_Distributor,Garansi,Sto k) " & _ "VALUES('" & xKdBrg & "','" & xNmbrg & "','" & xJenis & "','" & xImei & "','" & xwarna & "','" & xHrgResmi & "','" & xHrgDistributor & "','" & xGaransi & "','" & xStok & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() Counter “ADA CELL “
  • 136. mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varkdbrg As String) As Integer sql = "DELETE FROM Barang WHERE Kd_Brg='" & varkdbrg & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varKdBrg As String) As Integer sql = "UPDATE Barang SET Nm_Brg ='" & xNmbrg & "'," & _ "Jenis ='" & xJenis & "',Imei ='" & xImei & "',Warna ='" & xWarna & "',Hrg_Resmi ='" & xHrgResmi & "',Hrg_Distributor ='" & xHrgDistributor & "',Garansi ='" & xGaransi & "'," & _ "Stok ='" & xStok & "'" & _ "WHERE Kd_Brg ='" & varKdBrg & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub KodeOtomatis() 'Untuk membuat kode otomatis Dim strtemp As String = "" Dim strvalue As String = "" sql = "SELECT * FROM Barang ORDER BY Kd_Brg DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strtemp = Mid(myread.Item("Kd_Brg"), 3, 3) Else xKdBrg = "BG001" Exit Sub End If 'MsgBox(strTemp) strvalue = Val(strtemp) + 1 xKdBrg = "BG" & Mid("000", 1, 3 - strvalue.Length) & strvalue End Sub #End Region End Class Counter “ADA CELL “
  • 137. LISTING FORM – Data Konsumen.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Konsumen Dim obj As New ClassKonsumen Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Konsumen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdKon.Text = obj.KdKon Call list_data() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNmKon.Text = "" txtAlmtKon.Text = "" txtTelpKon.Text = "" txtNmKon.Focus() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select Kd_Kon, Nm_Kon, Almt_Kon, Telp_Kon from Konsumen" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) .Items(x).SubItems(3).Text = myread.GetString(3) End With Counter “ADA CELL “
  • 138. End While Finally myread.Close() End Try conn.Close() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtKdKon.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmKon.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtAlmtKon.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString txtTelpKon.Text = ListView1.SelectedItems(0).SubItems(3).Text.ToString cmdSIMPAN.Enabled = False End Sub Private Sub cmdBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.KodeOtomatis() txtKdKon.Text = obj.KdKon Call bersih() cmdSIMPAN.Enabled = True End Sub Private Sub cmdSIMPAN_Click(ByVal sender As System.EventArgs) Handles cmdSIMPAN.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtNmKon.Focus() Exit Sub ElseIf txtAlmtKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtAlmtKon.Focus() Exit Sub ElseIf txtTelpKon.Text = "" Then MessageBox.Show("Maaf, silahkan isi txtTelpKon.Focus() Exit Sub End If obj.KdKon = txtKdKon.Text obj.NmKon = txtNmKon.Text obj.Almt_Kon = txtAlmtKon.Text obj.Telp_Kon = txtTelpKon.Text System.Object, ByVal e As Nama Konsumen !!") Alamat !!") No.Telp !!") If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else txtKdKon.Text = "KN001" Counter “ADA CELL “
  • 139. Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdKon.Text = "KN" & Mid("000", 1, 3 - strValue.Length) & strValue Call bersih() Else MessageBox.Show("Gagal Menyimpan !!") End If Call list_data() End Sub Private Sub cmdUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUBAH.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data konsumen di list_view !!") txtNmKon.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA KONSUMEN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then obj.KdKon = txtKdKon.Text obj.NmKon = txtNmKon.Text obj.Almt_Kon = txtAlmtKon.Text obj.Telp_Kon = txtTelpKon.Text If obj.ubah(txtKdKon.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else txtKdKon.Text = "KN001" Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtKdKon.Text = "KN" & Mid("000", 1, 3 - strValue.Length) & strValue Else MessageBox.Show("Gagal menyimpan!!") End If Call bersih() cmdSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub cmdHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHAPUS.Click If txtNmKon.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data konsumen di list_view !!") txtNmKon.Focus() Counter “ADA CELL “
  • 140. Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA KONSUMEN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtKdKon.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus!!") Else MessageBox.Show("Gagal menghapus!!") End If Call bersih() End If Call list_data() End Sub Private Sub cmdKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub Private Sub cmdBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBATAL.Click Call bersih() End Sub End Class Counter “ADA CELL “
  • 141. LISTING CLASS – ClassKonsumen.vb Imports System.Data.OleDb Imports System.Data Public Class ClassKonsumen #Region "Variabel" Private xKdKon As Private xNmKon As Private xAlmt_Kon Private xTelp_Kon Dim Dim Dim Dim String String As String As String sql As String = "" mycmd As OleDbCommand myread As OleDbDataReader hasRows As Boolean #End Region #Region "Property" Public Property KdKon() As String Get Return xKdKon End Get Set(ByVal value As String) xKdKon = value End Set End Property Public Property NmKon() As String Get Return xNmKon End Get Set(ByVal value As String) xNmKon = value End Set End Property Public Property Almt_Kon() As String Get Return xAlmt_Kon End Get Set(ByVal value As String) xAlmt_Kon = value End Set End Property Public Property Telp_Kon() As String Get Return xTelp_Kon End Get Set(ByVal value As String) xTelp_Kon = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Konsumen(Kd_Kon,Nm_Kon,Almt_Kon,Telp_Kon) " & _ Counter “ADA CELL “
  • 142. "VALUES('" & xKdKon & "','" & xNmKon & "','" & xAlmt_Kon & "','" & xTelp_Kon & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varkdkon As String) As Integer sql = "DELETE FROM Konsumen WHERE Kd_Kon='" & varkdkon & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varkdkon As String) As Integer sql = "UPDATE Konsumen SET Nm_Kon ='" & xNmKon & "'," & _ "Almt_Kon='" & xAlmt_Kon & "', Telp_Kon = '" & xTelp_Kon & "'" & _ " WHERE Kd_Kon='" & varkdkon & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub KodeOtomatis() 'Untuk membuat kode otomatis Dim strtemp As String = "" Dim strvalue As String = "" sql = "SELECT * FROM Konsumen ORDER BY Kd_Kon DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strtemp = Mid(myread.Item("Kd_Kon"), 3, 3) Else xKdKon = "KN001" Exit Sub End If 'MsgBox(strTemp) strvalue = Val(strtemp) + 1 xKdKon = "KN" & Mid("000", 1, 3 - strvalue.Length) & strvalue End Sub #End Region End Class Counter “ADA CELL “
  • 143. LISTING FORM – Data Rekening.vb Imports System.Data.OleDb Imports System.Data Public Class Data_Rekening Dim obj As New ClassRekening Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private Sub Data_Rekening_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() txtNoRek.Text = obj.NoRek Call list_data() End Sub Private Sub clear_list() While Val(counter.Text) > 0 ListView1.Items(0).Remove() counter.Text = Val(counter.Text) - 1 End While End Sub Private Sub bersih() txtNoRek.Text = "" txtNmRek.Text = "" txtPosisi.Text = "" txtNoRek.Focus() End Sub Private Sub list_data() Call clear_list() Dim sqlx As String Dim x As Integer sqlx = "select No_Rek, Nm_Rek, Posisi from Rekening" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sqlx, conn) myread = mycmd.ExecuteReader Try While myread.Read = True x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) With ListView1 .Items.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(ListView1.Items.Count - 1).SubItems.Add("") .Items(x).SubItems(0).Text = myread.GetString(0) .Items(x).SubItems(1).Text = myread.GetString(1) .Items(x).SubItems(2).Text = myread.GetString(2) End With End While Finally myread.Close() Counter “ADA CELL “
  • 144. End Try conn.Close() End Sub Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click txtNoRek.Text = ListView1.SelectedItems(0).SubItems(0).Text.ToString txtNmRek.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString txtPosisi.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString cmdSIMPAN.Enabled = False End Sub Private Sub cmdBARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBARU.Click conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() txtNoRek.Text = obj.NoRek Call bersih() cmdSIMPAN.Enabled = True End Sub Private Sub cmdSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSIMPAN.Click If txtNmRek.Text = "" Then MessageBox.Show("Maaf, silahkan isi Nama Rekening !!") txtNmRek.Focus() Exit Sub End If obj.NoRek = txtNoRek.Text obj.NmRek = txtNmRek.Text obj.Posisi = txtPosisi.Text If obj.simpan = 1 Then MessageBox.Show("Data Berhasil disimpan!!") sql = "SELECT * FROM Rekening ORDER BY No_Rek DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader Call bersih() Else MessageBox.Show("Gagal Menyimpan!!") End If Call list_data() End Sub Private Sub cmdUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUBAH.Click If txtNmRek.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data rekening di list_view !!") txtNmRek.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan mengubah data ini ??", _ "DATA REKENING", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Counter “ADA CELL “
  • 145. If jawab = Windows.Forms.DialogResult.Yes Then obj.NoRek = txtNoRek.Text obj.NmRek = txtNmRek.Text obj.Posisi = txtPosisi.Text If obj.ubah(txtNoRek.Text) = 1 Then MessageBox.Show("Data Berhasil diubah!!") sql = "SELECT * FROM Rekening ORDER BY No_Rek DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader Else MessageBox.Show("Gagal menyimpan!!") End If Call bersih() cmdSIMPAN.Enabled = True End If Call list_data() End Sub Private Sub cmdHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHAPUS.Click If txtNoRek.Text = "" Then MessageBox.Show("Maaf, silahkan pilih salah satu data rekening di list_view !!") txtNoRek.Focus() Exit Sub End If Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan menghapus data ini ??", _ "DATA REKENING", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If obj.hapus(txtNoRek.Text) = 1 Then MessageBox.Show("Data Berhasil dihapus !!") Else MessageBox.Show("Gagal Menghapus !!") End If Call bersih() End If Call list_data() cmdSIMPAN.Enabled = True End Sub Private Sub cmdKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKELUAR.Click Dim jawab As DialogResult jawab = MessageBox.Show("Anda yakin akan Keluar Dari Entry Data ini ??", _ "PERINGATAN", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If jawab = Windows.Forms.DialogResult.Yes Then If conn.State <> ConnectionState.Closed Then conn.Close() Me.Dispose() End If End Sub Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged End Sub End Class Counter “ADA CELL “
  • 146. LISTING CLASS – ClassRekening.vb Imports System.Data.OleDb Imports System.Data Public Class ClassRekening #Region "Variabel" Private xNoRek As String Private xNmRek As String Private xPosisi As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property NoRek() As String Get Return xNoRek End Get Set(ByVal value As String) xNoRek = value End Set End Property Public Property NmRek() As String Get Return xNmRek End Get Set(ByVal value As String) xNmRek = value End Set End Property Public Property Posisi() As String Get Return xPosisi End Get Set(ByVal value As String) xPosisi = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Rekening(No_Rek,Nm_Rek,Posisi) " & _ "VALUES('" & xNoRek & "','" & xNmRek & "','" & xPosisi & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function hapus(ByVal varnorek As String) As Integer sql = "DELETE FROM Rekening WHERE No_Rek='" & varnorek & "'" Counter “ADA CELL “
  • 147. conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function Public Function ubah(ByVal varnorek As String) As Integer sql = "UPDATE Rekening SET Nm_Rek ='" & xNmRek & "',Posisi ='" & xPosisi & "'" & _ "WHERE No_Rek='" & varnorek & "'" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region End Class Counter “ADA CELL “
  • 148. LISTING “TRANSAKSI” LISTING FORM – Entry Pesanan.vb Imports System.Data.OleDb Imports System.Data Public Class Entry_Pesanan Dim obj As New ClassPesanan Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private index As Integer = 0 Private total As Double = 0.0 Private Sub Entry_Pesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.AutoKode() txtNoPsn.Text = obj.NoPsn dtpPsn.Value = Now End Sub Private Sub cmdCariKon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariKon.Click Dim a As New Cari_Data_Konsumen a.ShowDialog() If a.tkdkon <> "" Then txtKdKon.Text = a.tkdkon txtNmKon.Text = a.tnmkon txtAlmt_Kon.Text = a.talamat txtTelpKon.Text = a.ttelp txtKdBrg.Focus() End If End Sub Private Sub cmdCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariBrg.Click Dim b As New Cari_Data_Barang b.ShowDialog() If b.retkdbrg <> "" Then txtKdBrg.Text = b.retkdbrg txtNmBrg.Text = b.retnmbrg txtJenis.Text = b.retJenis txtIMEI.Text = b.retImei txtWarna.Text = b.retWarna txthrgresmi.Text = b.retHrgResmi txthrgdis.Text = b.retHrgDis txtGaransi.Text = b.retGaransi txtStok.Text = b.retStok cmbRD.Focus() End If End Sub Counter “ADA CELL “
  • 149. Sub SetTotal() Dim a As Integer a = CInt(txtJmlPsn.Text) * CInt(txtHrgRD.Text) txtTotal.Text = Format(CDbl(CStr(a)), "##,####,####,###") End Sub Sub addlist(ByVal value() As String) Dim subindex As Integer ListView1.Items.Add("") For subindex = 0 To 9 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subindex).Text = value(subindex) Next index = index + 1 End Sub Sub bersih() obj.AutoKode() txtNoPsn.Text = obj.NoPsn txtKdKon.Text = "" txtNmKon.Text = "" txtAlmt_Kon.Text = "" txtTelpKon.Text = "" txtkdbrg.Text = "" txtnmbrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" cmbRD.Text = "" txtHrgRD.Text = "" txtGaransi.Text = "" txtstok.Text = "" txtjmlpsn.Text = "" txttotal.Text = "" txtNoPsn.Focus() End Sub Private Sub txtJmlPsn_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlPsn.KeyPress If Asc(e.KeyChar) = 13 Then SetTotal() txtTotal.Focus() End If End Sub Private Sub txtJmlPsn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJmlPsn.TextChanged If Val(txtJmlPsn.Text) > Val(txtStok.Text) Then MessageBox.Show("Stok tidak mencukupi !") txtJmlPsn.Focus() End If End Sub Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua data dengan benar !!") Counter “ADA CELL “
  • 150. txtKdKon.Focus() Exit Sub End If Dim counter As Integer Dim sql1, sql2 As String Try sql1 = "Insert into Pesanan values('" & txtNoPsn.Text & "','" & dtpPsn.Value & "','" & txtKdKon.Text & "','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader() For counter = 0 To index - 1 sql2 = " insert into Minta values('" & txtNoPsn.Text & "','" & _ ListView1.Items(counter).SubItems(0).Text & "','" & _ ListView1.Items(counter).SubItems(7).Text & "','" & _ ListView1.Items(counter).SubItems(9).Text & "')" If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader() Next MessageBox.Show("Data Pesanan Telah TERSIMPAN !") txtKdBrg.Focus() bersih() ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" Catch ex As Exception MsgBox(ex.Message) myread.Close() End Try conn.Close() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" End Sub Private Sub btnSELESAI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSELESAI.Click Me.Close() End Sub Private Sub cmdPESAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPESAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua Data Konsumen !!") txtKdKon.Focus() Exit Sub ElseIf txtKdBrg.Text = "" Then MessageBox.Show("Silahkan isi Data Barang !!") txtKdBrg.Focus() Counter “ADA CELL “
  • 151. Exit Sub ElseIf txtJmlPsn.Text = "" Then MessageBox.Show("Anda Harus Mengisi Jumlah Pesan !!") txtJmlPsn.Focus() Exit Sub ElseIf txtTotal.Text = "" Then MessageBox.Show("tekan ENTER setelah mengisi jumlah pemesanan !!") txtJmlPsn.Focus() Exit Sub End If Dim value() As String = {txtKdBrg.Text, txtNmBrg.Text, txtJenis.Text, txtIMEI.Text, txtWarna.Text, txtGaransi.Text, txtStok.Text, txtHrgRD.Text, txtJmlPsn.Text, txtTotal.Text} addlist(value) total += CDbl(txtTotal.Text) : txtGrandTtl.Text = Format(CDbl(CStr(total)), "##,####,####,###") txtKdBrg.Text = "" : txtNmBrg.Text = "" : txtJenis.Text = "" : txtIMEI.Text = "" : txtWarna.Text = "" : txtGaransi.Text = "" : txtStok.Text = "" : txtHrgRD.Text = "" : txtJmlPsn.Text = "" : txtTotal.Text = "" cmbRD.Text = "" txtKdBrg.Focus() End Sub Private Sub txtGrandTtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGrandTtl.TextChanged End Sub Private Sub txtGaransi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGaransi.TextChanged End Sub Private Sub cmbRD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRD.SelectedIndexChanged Dim b As New Cari_Data_Barang If cmbRD.Text = "RESMI" Then txtHrgRD.Text = txthrgresmi.Text ElseIf cmbRD.Text = "DISTRIBUTOR" Then txtHrgRD.Text = txthrgdis.Text End If txtJmlPsn.Text = "" txtTotal.Text = "" txtJmlPsn.Focus() End Sub End Class Counter “ADA CELL “
  • 152. LISTING CLASS – ClassEntryPesanan.vb Imports System.Data.OleDb Imports System.Data Public Class Entry_Pesanan Dim obj As New ClassPesanan Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String Private index As Integer = 0 Private total As Double = 0.0 Private Sub Entry_Pesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.AutoKode() txtNoPsn.Text = obj.NoPsn dtpPsn.Value = Now End Sub Private Sub cmdCariKon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariKon.Click Dim a As New Cari_Data_Konsumen a.ShowDialog() If a.tkdkon <> "" Then txtKdKon.Text = a.tkdkon txtNmKon.Text = a.tnmkon txtAlmt_Kon.Text = a.talamat txtTelpKon.Text = a.ttelp txtKdBrg.Focus() End If End Sub Private Sub cmdCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariBrg.Click Dim b As New Cari_Data_Barang b.ShowDialog() If b.retkdbrg <> "" Then txtKdBrg.Text = b.retkdbrg txtNmBrg.Text = b.retnmbrg txtJenis.Text = b.retJenis txtIMEI.Text = b.retImei txtWarna.Text = b.retWarna txthrgresmi.Text = b.retHrgResmi txthrgdis.Text = b.retHrgDis txtGaransi.Text = b.retGaransi txtStok.Text = b.retStok cmbRD.Focus() End If End Sub Sub SetTotal() Dim a As Integer Counter “ADA CELL “
  • 153. a = CInt(txtJmlPsn.Text) * CInt(txtHrgRD.Text) txtTotal.Text = Format(CDbl(CStr(a)), "##,####,####,###") End Sub Sub addlist(ByVal value() As String) Dim subindex As Integer ListView1.Items.Add("") For subindex = 0 To 9 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subindex).Text = value(subindex) Next index = index + 1 End Sub Sub bersih() obj.AutoKode() txtNoPsn.Text = obj.NoPsn txtKdKon.Text = "" txtNmKon.Text = "" txtAlmt_Kon.Text = "" txtTelpKon.Text = "" txtkdbrg.Text = "" txtnmbrg.Text = "" txtJenis.Text = "" txtIMEI.Text = "" txtWarna.Text = "" cmbRD.Text = "" txtHrgRD.Text = "" txtGaransi.Text = "" txtstok.Text = "" txtjmlpsn.Text = "" txttotal.Text = "" txtNoPsn.Focus() End Sub Private Sub txtJmlPsn_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlPsn.KeyPress If Asc(e.KeyChar) = 13 Then SetTotal() txtTotal.Focus() End If End Sub Private Sub txtJmlPsn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJmlPsn.TextChanged If Val(txtJmlPsn.Text) > Val(txtStok.Text) Then MessageBox.Show("Stok tidak mencukupi !") txtJmlPsn.Focus() End If End Sub Private Sub btnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSIMPAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua data dengan benar !!") txtKdKon.Focus() Exit Sub End If Counter “ADA CELL “
  • 154. Dim counter As Integer Dim sql1, sql2 As String Try sql1 = "Insert into Pesanan values('" & txtNoPsn.Text & "','" & dtpPsn.Value & "','" & txtKdKon.Text & "','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader() For counter = 0 To index - 1 sql2 = " insert into Minta values('" & txtNoPsn.Text & "','" & _ ListView1.Items(counter).SubItems(0).Text & "','" & _ ListView1.Items(counter).SubItems(7).Text & "','" & _ ListView1.Items(counter).SubItems(9).Text & "')" If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader() Next MessageBox.Show("Data Pesanan Telah TERSIMPAN !") txtKdBrg.Focus() bersih() ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" Catch ex As Exception MsgBox(ex.Message) myread.Close() End Try conn.Close() End Sub Private Sub btnBATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBATAL.Click ListView1.Items.Clear() index = 0 : total = 0 txtGrandTtl.Text = "" End Sub Private Sub btnSELESAI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSELESAI.Click Me.Close() End Sub Private Sub cmdPESAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPESAN.Click If txtKdKon.Text = "" Then MessageBox.Show("Silahkan isi semua Data Konsumen !!") txtKdKon.Focus() Exit Sub ElseIf txtKdBrg.Text = "" Then MessageBox.Show("Silahkan isi Data Barang !!") txtKdBrg.Focus() Exit Sub ElseIf txtJmlPsn.Text = "" Then MessageBox.Show("Anda Harus Mengisi Jumlah Pesan !!") Counter “ADA CELL “
  • 155. txtJmlPsn.Focus() Exit Sub ElseIf txtTotal.Text = "" Then MessageBox.Show("tekan ENTER setelah mengisi jumlah pemesanan !!") txtJmlPsn.Focus() Exit Sub End If Dim value() As String = {txtKdBrg.Text, txtNmBrg.Text, txtJenis.Text, txtIMEI.Text, txtWarna.Text, txtGaransi.Text, txtStok.Text, txtHrgRD.Text, txtJmlPsn.Text, txtTotal.Text} addlist(value) total += CDbl(txtTotal.Text) : txtGrandTtl.Text = Format(CDbl(CStr(total)), "##,####,####,###") txtKdBrg.Text = "" : txtNmBrg.Text = "" : txtJenis.Text = "" : txtIMEI.Text = "" : txtWarna.Text = "" : txtGaransi.Text = "" : txtStok.Text = "" : txtHrgRD.Text = "" : txtJmlPsn.Text = "" : txtTotal.Text = "" cmbRD.Text = "" txtKdBrg.Focus() End Sub Private Sub txtGrandTtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGrandTtl.TextChanged End Sub Private Sub txtGaransi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGaransi.TextChanged End Sub Private Sub cmbRD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRD.SelectedIndexChanged Dim b As New Cari_Data_Barang If cmbRD.Text = "RESMI" Then txtHrgRD.Text = txthrgresmi.Text ElseIf cmbRD.Text = "DISTRIBUTOR" Then txtHrgRD.Text = txthrgdis.Text End If txtJmlPsn.Text = "" txtTotal.Text = "" txtJmlPsn.Focus() End Sub End Class Counter “ADA CELL “
  • 156. LISTING FORM – Cetak Nota.vb Imports System.Data.OleDb Imports System.Data Public Class Cetak_Nota Dim obj As New ClassNota Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim sql As String Private Sub Cetak_Nota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota dtpNota.Value = Now txtNoPsn.Focus() End Sub Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click Call bersih() End Sub Private Sub bersih() obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota txtNoPsn.Text = "" dtppsn.Text = "" txtKdKon.Text = "" txtNmKon.Text = "" txtGrandTtl.Text = "" txtNoPsn.Focus() End Sub Private Sub cmdTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTutup.Click Me.Close() End Sub Private Sub cmdCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCetak.Click Dim pesan As MsgBoxResult Dim baris As Boolean Dim sql1, sql2 As String conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() obj.NoPsn = txtNoPsn.Text obj.NoNota = txtNoNota.Text obj.TglNota = dtpNota.Value mycmd = New OleDbCommand("select * from Nota where No_Psn='" & txtNoPsn.Text & "'", conn) myread = mycmd.ExecuteReader baris = False Counter “ADA CELL “
  • 157. If myread.HasRows = True Then myread.Read() txtNoNota.Text = myread.Item(0) pesan = MsgBox("Sudah Pernah dicetak, Ingin cetak lagi??", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") If pesan = MsgBoxResult.Yes Then Tampil_Nota.Show() Else Exit Sub End If Else obj.simpan() 'simpan ke tabel jurnal untuk DP/ sql1 = "insert into JURNAL values('" & txtNoNota.Text & "','1101','" & dtpNota.Value & "','D','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql1, conn) myread = mycmd.ExecuteReader sql2 = "insert into JURNAL values('" & txtNoNota.Text & "','4101','" & dtpNota.Value & "','K','" & txtGrandTtl.Text & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql2, conn) myread = mycmd.ExecuteReader Tampil_Nota.Show() End If obj.Kode_Otomatis() txtNoNota.Text = obj.NoNota txtNoPsn.Focus() End Sub Private Sub cmdCariDtPsn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCariDtPsn.Click Dim a As New Cari_Data_Pesanan a.ShowDialog() If a.tnopsn <> "" Then txtNoPsn.Text = a.tnopsn dtpPsn.Text = a.ttgl txtKdKon.Text = a.tkdkon txtGrandTtl.Text = a.tGTotal cmdCetak.Focus() End If Dim b As String b = "select Nm_Kon from Konsumen where Kd_Kon like '%" & Trim(txtKdKon.Text) & "%' order by Kd_Kon asc " conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(b, conn) myread = mycmd.ExecuteReader If myread.Read Then txtNmKon.Text = myread(0) End If End Sub End Class Counter “ADA CELL “
  • 158. LISTING CLASS – ClassNota.vb Imports System.Data.OleDb Imports System.Data Public Class ClassNota #Region "Variabel" Private xNoNota As String Private xTglNota As Date Private xNoPsn As String Dim sql As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader Dim hasRows As Boolean #End Region #Region "Property" Public Property NoNota() As String Get Return xNoNota End Get Set(ByVal value As String) xNoNota = value End Set End Property Public Property TglNota() As Date Get Return xTglNota End Get Set(ByVal value As Date) xTglNota = value End Set End Property Public Property NoPsn() As String Get Return xNoPsn End Get Set(ByVal value As String) xNoPsn = value End Set End Property #End Region #Region "Method" Public Function simpan() As Integer sql = "INSERT INTO Nota(No_Nota,Tgl_Nota,No_Psn) " & _ "VALUES('" & xNoNota & "','" & xTglNota & "','" & xNoPsn & "')" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() mycmd = New OleDbCommand(sql, conn) Return mycmd.ExecuteNonQuery End Function #End Region #Region "Other Method" Public Sub Kode_Otomatis() Counter “ADA CELL “
  • 159. Dim strTemp As String = "" Dim strValue As String = "" sql = "SELECT * FROM Nota ORDER BY No_Nota DESC" mycmd = New OleDbCommand(sql, conn) myread = mycmd.ExecuteReader If myread.Read Then strTemp = Mid(myread.Item("No_Nota"), 3, 3) Else xNoNota = "NT001" ' If myread.IsClosed = False Then myread.Close() Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 xNoNota = "NT" & Mid("000", 1, 3 - strValue.Length) & strValue ' If myread.IsClosed = False Then myread.Close() End Sub #End Region End Class Counter “ADA CELL “
  • 160. LISTING FORM – Tampil Nota.vb Imports System.Data.OleDb Imports System.Data Public Class Tampil_Nota Dim cnn As OleDbConnection Dim cmmd As OleDbCommand Dim dReader As OleDbDataReader Private Sub Tampil_Nota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CrystalReportViewer1.SelectionFormula = "{Nota.No_Nota}='" & Cetak_Nota.txtNoNota.Text & "'" CrystalReportViewer1.RefreshReport() End Sub End Class Counter “ADA CELL “
  • 161. LISTING “LAPORAN” LISTING FORM – TampilLapJual.vb Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Tampil_Lap_Penjualan Dim obj As New ClassLapJual Public formula As String Public reports As ReportClass Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load End Sub End Class LISTING CLASS – LapJual.vb Imports System.Data.OleDb Imports System.Data Public Class ClassLapJual #Region "variabel" Dim query As String = "" Dim mycmd As OleDbCommand Dim myread As OleDbDataReader #End Region #Region "method" Public Function CetakLapJual(ByVal vartglawal As Date, ByVal vartglakhir As Date) As DataTable Dim myda As OleDbDataAdapter Dim mydt As New DataTable query = "select a.Kd_Kon as Kd_Kon, a.Nm_Kon as Nm_Kon," & _ " a.Almt_Kon as Almt_Kon, a.Telp_Kon as Telp_Kon, p.No_Psn as No_Psn, p.Tgl_Psn as Tgl_Psn,m.Harga_Jual as Harga_Jual,m.Jml_Psn as Jml_Psn,b.Kd_Brg as Kd_Brg,b.Nm_Brg as Nm_Brg" & _ " from Konsumen a,Pesanan p, Minta m, Barang b" & _ " where (a.Kd_Kon=p.Kd_Kon)" & _ " and p.No_Psn = m.No_Psn" & _ " and b.Kd_Brg = m.Kd_Brg" & _ " and p.Tgl_Psn between #" & vartglawal.ToShortDateString() & "#" & _ " and #" & vartglakhir.ToShortDateString() & "#" conn = New OleDbConnection(strconn) If conn.State <> ConnectionState.Closed Then conn.Close() conn.Open() myda = New OleDbDataAdapter(query, conn) myda.Fill(mydt) Return mydt End Function #End Region End Class Counter “ADA CELL “