APLIKASI PENGOLAHAN DATA SERVICE DAN JUAL BELI PADA CV. NUR ABADI
KERJA PRAKTEK
Disusun Oleh : MUHAMMAD SADLI 1210444
PROGRAM STUDI TEKNIK INFORMATIKA SEKOLAH TINGGI TEKNOLOGI INDONESIA TANJUNGPINANG TANJUNGPINANG 2014
APLIKASI PENGOLAHAN DATA SERVICE DAN JUAL BELI PADA CV. NUR ABADI
KERJA PRAKTEK Diajukan untuk memenuhi salah satu syarat kelulusan mata kuliah Kerja Praktek Jurusan teknik informatika program strata satu
Disusun Oleh : MUHAMMAD SADLI 1210444
PROGRAM STUDI TEKNIK INFORMATIKA SEKOLAH TINGGI TEKNOLOGI INDONESIA TANJUNGPINANG TANJUNGPINANG 2014
KATA PENGANTAR
Puji dan syukur penulis panjatkan kepada Allah SWT yang telah melimpahkan berkah dan rahmat-Nya sehingga penulis dapat menyelesaikan penulisan laporan kerja praktek ini. Penyusunan laporan ini berdasarkan atas pengamatan penulis selama melaksanakan kerja praktek di CV. Nur Abadi, penulis memutuskan untuk menyusun laporan kerja praktek ini dengan judul “Aplikasi Pengolahan Data Servis dan Jual Beli pada CV. Nur Abadi”. Penulis menyadari bahwa banyaknya hambatan dan kesulitan yang dihadapi oleh penulis dalam penyusunan laporan kerja praktek ini, namun atas dukungan dari berbagai pihak akhirnya laporan ini dapat diselesaikan dan semoga sesuai dengan yang diharapkan. Dalam kesempatan ini penulis ingin menyampaikan ucapan terima kasih kepada pihak – pihak yang telah memberikan dukungan kepada penulis baik moril maupun materil dalam penyelesaian kerja praktek ini, yaitu :
1. Bapak H.M.Louis Frederik, SE., SH., MM selaku Ketua Sekolah Tinggi Teknologi Indonesia Tanjungpinang. 2. Bapak Ricak Agus Setiawan, ST., MSI. selaku dosen pembimbing yang telah memberikan masukan dan materi untuk menyelesaikan kerja praktek ini.
i
3. Bapak/Ibu Dosen STTI yang telah memberikan inspirasi kepada penulis, serta memberikan semangat dan motivasi agar dapat menyelesaikan penulisan kerja praktek ini. 4. Orang tua yang tercinta dan selalu memberikan semangat, kasih sayang, do’a serta dukungan moral maupun materiil. 5. Teman – teman jurusan Teknik Informatika khususnya angkatan 2010 yang seperjuangan dalam menimba ilmu. 6. Kepada semua pihak yang tidak dapat penulis sebutkan satu persatu yang telah banyak memberikan doa dan motivasi kepada penulis.
Penulis menyadari sepenuhnya bahwa laporan kerja praktek ini jauh dari sempurna dan masih terdapat kekurangan sehingga penulis sangat mengharapkan kritik dan saran dari semua pihak guna menambah wawasan ilmu yang nantinya bermanfaat bagi penulis dan para pembaca dimasa yang akan datang. Akhir kata semoga kerja praktek ini dapat bermanfaat dan berguna bagi penulis, para pembaca serta pihak yang membutuhkan.
Tanjungpinang, April 2014 Penulis
ii
ABTRAK
Kerja praktek ini merupakan laporan dari hasil analisa terhadap sistem yang sedang berjalan dan hasil perancangan yang baru di CV. Nur Abadi. Secara umum penulis katakan bahwa dari sistem yang sedang berjalan pada instansi tersebut masih saja terdapat cara yang manual, baik pada tahap penginputan, penyediaan, pengecekan kelayakkan dan laporan data siswanya. Hal seperti ini akan jauh lebih mudah apabila semuanya menggunakan komputerisasi. Di mana segala nya akan jauh lebih mudah, cepat dan akurat, sehingga dapat memperkecil kemungkinan - kemungkinan yang bisa membuat data tidak tersimpan secara pasti, hilang atau pun terjadi kesalahan lainnya. Berdasarkan permasalahan yang ada penulis melakukan analisa dan membuat perancangan sistem baru untuk membuat antisipasi terhadap kelemahan - kelemahan yang sedang terjadi pada sistem yang sedang berjalan dan berusaha tidak menimbulkan permasalahan – permasalahan baru dikemudian hari. Aplikasi pengolahan data dengan berbasis program yang penulis ajukan telah memberikan jawaban terhadap permasalahan yang timbul pada sebelumnya. Dengan demikian sistem informasi ini akan memberikan hasil yang baik dalam pengolahan data yang dibutuhkan serta efektifitas pada sistem yang diterapkan. Software yang akan menjadi alat bantu dalam penelitian ini adalah dengan menggunakan Borland Delphi 7 Enterprise Studio dan Microsoft acses 2007 sebagai basis datanya. Metodologi yang digunakan untuk pengembangan aplikasi ini ialah paradigma Waterfall (classic life cycle). Hasil dari pengembangan ini diharapkan dapat memberikan kontribusi yang bermanfaat dan berpotensi dalam dalam bekerja sehingga menjadi lebih baik, cepat, akurat dan lebih efisien bagi karyawan yang menggunakannya. Kata kunci : Penjualan, pembelian, service, CV, Nur, Abadi
iii
ABTRACT
Work practice is a report of the results of analysis of the running system and the new design results in CV. Nur Abadi. In general, the authors say that the system is running on the company is still there a manual way, both on input stage, provision, true checking and reporting inventory data. Things like this will be much easier if everything is computerized. Where everything would be much more easily, quickly and accurately, so as to minimize the possibilities - possibilities that could make sure the data is not stored, lost or other errors. Based on the existing problems and the authors do an analysis and make the design of new systems to make the anticipation of weakness - the weakness that is happening on the system is running and trying not to cause problems - new problems in the future. Information System Data Collection and Provision of Logistics with the author-based programs have been proposed to provide answers to problems that arise at previously. Thus, this information system will give good results in the processing of data required and the effectiveness of the implemented system. Software that will be an invaluable tool in this research is to use Borland Delphi 7 Enterprise Studio and Microsoft acses as its data base. The methodology used for the development of this application is the paradigm of Waterfall (classic life cycle). The results of this development is expected to contribute a useful and potentially in the works to become better, faster, more accurate and efficient for employees who used.
key word : Selling, purcase, service, cv, Nur, Abadi
iv
DAFTAR ISI HALAMAN JUDUL ............................................................................................. HALAMAN PERSETUJUAN ............................................................................. HALAMAN PENGESAHAAN ............................................................................ HALAMAN PERNYATAAN KEASLIAN......................................................... KATA PENGANTAR.......................................................................................... i ABSTRAK .......................................................................................................... iii ABSTRACT ........................................................................................................ iv DAFTAR ISI........................................................................................................ v DAFTAR GAMBAR.......................................................................................... ix DAFTAR TABEL .............................................................................................. xi DAFTAR SIMBOL ........................................................................................... xii BAB I PENDAHULUAN.................................................................................... 1 Latar Belakang ..................................................................................................... 1 Identifikasi masalah .............................................................................................. 2 Batasan Masalah.................................................................................................... 3 Tempat Dan Waktu Pelaksanaan .......................................................................... 3 Tujuan Dan Manfaat ............................................................................................ 3 Metodologi Penelitian .......................................................................................... 4 Metode Pengumpulan Data ................................................................................... 4
v
Metode Pengembangan Perangkat Lunak ............................................................. 5 Perencanaan Jadwal Kerja Praktek ....................................................................... 7 Sistematika Penulisan ........................................................................................... 8 BAB II LANDASAN TEORI ........................................................................... 10 Konsep Dasar Sistem .......................................................................................... 10 Definisi Sistem .................................................................................................... 10 Karakteristik Sistem ............................................................................................ 11 Konsep Dasar Aplikasi........................................................................................ 12 Konsep Dasar Pengolahan Data .......................................................................... 13 Sistem Aplikasi Berbasis Desktop ..................................................................... 13 Pengertian Aplikasi Desktop............................................................................... 14 Konsep Permodelan Sistem................................................................................. 14 Konsep Basis Data ............................................................................................. 15 Perangkat Lunak Pembangun Sistem.................................................................. 20 Borland Delphi 7 ................................................................................................. 20 Microsoft Office Access ..................................................................................... 22 Pengertian Pengolahan Data ............................................................................... 24 Siklus Pengolahan Data....................................................................................... 24 Metode Pengolahan Data ................................................................................... 25 Struktur Organisasi ............................................................................................. 25
vi
BAB III ANALISA SISTEM............................................................................ 27 Analisa Sistem..................................................................................................... 27 Analisa Prosedur ................................................................................................. 27 Analisa Pengolahan Data Penjualan Yang Sedang Berjalan............................... 27 Analisa Pengolahan Data Pembelian Yang Sedang Berjalan ............................. 29 Analisa Pengolahan Data reparasi( service) Yang Sedang Berjalan................... 30 Analisa Dokumen ............................................................................................... 31 Analisa Dokumen Masukan ................................................................................ 32 Analisa Dokumen Keluaran ................................................................................ 32 Analisa Kelemahan Sistem ................................................................................. 34 Analisa Kebutuhan Sistem .................................................................................. 35 Kebutuhan Perangkat Keras................................................................................ 35 Kebutuhan Perangkat Lunak ............................................................................... 35 Kebutuhan Pengguan .......................................................................................... 36 BAB IV PERANCANGAN SISTEM............................................................... 37 Perancangan Prosedur ......................................................................................... 37 Perancangan Proses............................................................................................. 42 Diagram Konteks ................................................................................................ 42 Data Flow Diagram ............................................................................................. 42 Entity Relation Diagram( ERD) ......................................................................... 44
vii
Rancangan Struktur Program .............................................................................. 45 Rancangan Struktur Menu................................................................................... 46 Perancangan Struktur File ................................................................................... 46 Rancangan Antar Muka....................................................................................... 49 BAB V IMPLEMENTASI SISTEM................................................................ 54 Definisi Implementasi Sistem ............................................................................. 54 Tujuan Implementasi Sistem............................................................................... 54 Pemilihan Bahasa Pemrograman......................................................................... 55 Fasilitas Program................................................................................................. 56 Kegiatan Implementasi........................................................................................ 57 Pengendalian Dan Sistem Pengamanan Data...................................................... 62 Kebutuhan Sistem Pengoprasian......................................................................... 62 Kebutuhan Perangkat Keras................................................................................ 62 Kebutuhan Perangkat Lunak ............................................................................... 63 Pemakai (Brainware) .......................................................................................... 63 BAB VI PENUTUP ........................................................................................... 64 Kesimpulan ......................................................................................................... 64 Saran.................................................................................................................... 65 DAFTAR PUSTAKA LAMPIRAN
viii
DAFTAR GAMBAR
Gambar 1.1 Paradigma Waterfall ( Nugroho,2005)................................................5 Gambar 2.1 Diagram konteks tahap proses...........................................................24 Gambar 2.2 Struktur organisasi.............................................................................25 Gambar 3.1 Flowmap berjalan Penjualan .............................................................28 Gambar 3.2 Flowmap berjalan Pembeian .............................................................29 Gambar 3.3 Flowmap berjalan jasa reparasi .........................................................31 Gambar 4.1 Flowmap usulan data pembelian .......................................................38 Gambar 4.2 Flowmap usulan data penjualan ........................................................39 Gambar 4.3 Flowmap usulan data reparasi ...........................................................41 Gambar 4.4 Diagram konteks pengolahan data CV, Nur Abadi...........................42 Gambar 4.5 DFD Level 0......................................................................................43 Gambar 4.6 DFD Proses Pembuatan laporan........................................................43 Gambar 4.7 ERD .................................................................................................44 Gambar 4.8 Struktur program ...............................................................................45 Gambar 4.9 Struktur menu....................................................................................46 Gambar 4.10 Perancangan login ...........................................................................49 Gambar 4.11 Perancangan menu utama...............................................................50 Gambar 4.12 Perancangan data penjualan ............................................................50
ix
Gambar 4.13 Perancangan Data pembelian ..........................................................51 Gambar 4.14 Perancangan Data service................................................................51 Gambar 4.15 Perancangan Data Laporan..............................................................52 Gambar 4.16 Perancangan laporan penjualan.......................................................52 Gambar 4.17 Perancangan laporan Pembelian......................................................52 Gambar 4.18 Perancangan laporan service ...........................................................53 Gambar 4.19 Perancangan Faktur Penjualan ........................................................53 Gambar 4.20 Perancangan Faktur Service ............................................................51 Gambar 5.1 Penyimpanan Penjualan Berhasil ......................................................60 Gambar 5.2 Penyimpanan Pembelian Berhasil .....................................................60 Gambar 5.3 Penyimpanan Data Reparasi/Service Berhasil ..................................61 Gambar 5.4 Berhasil memperbarui Data Pembelian.............................................61
x
DAFTAR TABEL
Tabel 1.1 Kegiatan Pelaksanaan Kerja Praktek .......................................................7 Tabel 4.1 Keterangan Struktur File Data Administrasi..........................................47 Tabel 4.2 Keterangan Struktur File data Penjualan ...............................................47 Tabel 4.3 Keterangan Struktur File data Keluar ....................................................48 Tabel 4.4 Keterangan Struktur File data Stok Barang ...........................................48 Tabel 4.4 Keterangan Struktur File data Reparasi ................................................49 Tabel 5.1 Hasil implementasi basis data ................................................................57 Tabel 5.2 Hasil pengujian blackbox .......................................................................59
xi
DAFTAR SIMBOL
1. DAFTAR SIMBOL DATA FLOW DIAGRAM ARTI PENGGUNAAN
SIMBOL
Proses : menunjukan proses yang dilakukan baik secara manual ataupun komputer
Entitas : Sumber luar ataupun tujuan luar yang dapat berupa orang atau organisasi kemudian melakukan interaksi dengan sistem
Aliran data : menunjukan arah proses
Penyimpanan data : menunjukan arah store
xii
2. DAFTAR SIMBOL FLOWMAP DIAGRAM ARTI PENGGUNAAN
SIMBOL
Proses : menunjukan proses yang dilakukan komputer
Proses manual : menunjukan proses yang dilakukan secara manual
Dokumen : menunjukan dokumen input dan output
Multidokumen : menunjukan beberapa dokumen
Arsip : menunjukan dokumen yang diarsipkan
Flow : menunjukan alir dokumen
Database : merupakan media penyimpanan data dalam computer
Pengkondisian : menunjukan pemeriksaan dokumen
Menunjukan input yang manual yang menggunakan perangkat seperti keyboard
xiii
3. DAFTAR SIMBOL ENTITY RELATIONSHIP DIAGRAM ARTI PENGGUNAAN
SIMBOL
Menunjukan entitas
Garis penghubung antara relasi dan entitas
Menunjukan hubungan antara dua entitas
Menunjukkan atribut dari entitas
xiv
BAB I PENDAHULUAN 1.1
Latar Belakang Seiring dengan perkembangan dan tingkat kebutuhan, perkembangan
teknologi dan informasi diera globalisasi ini semakin meningkat pula. Perkembangan tersebut telah membawa manusia menentukan tingkat efisiensi yang tinggi dalam segala bidang karena kebutuhan akan informasi menjadi hal terpenting dalam era globalisasi. Kebutuhan akan informasi di butuhkan dalam semua bidang baik di organisasi, perusahaan, bisnis, instansi dan juga di usaha jasa reparasi komputer. Salah satu perubahan yang sangat berpengaruh yaitu pada usaha jasa reparasi komputer. Dalam perhitungan keuangan tidak luput dari persoalan yang ada diantaranya bagian pemasukan keuangan, biaya pengeluaran dan operasi usaha itu sendiri. Dari persoalan yang ada diharapkan bisa memanfaatkan teknologi informasi yang ada sebagai solusi pemecahan masalah untuk menghasilkan informasi yang diharapkan dengan menggunakan sistem pengolahan data. Dengan adanya sistem pengolahan perhitungan yang diharapkan mampu mempermudah dan mempercepat proses mengolah data, dengan mengembangkan sistem yang sudah ada sebelumnya. Dari permasalahan yang telah uraikan diatas maka, penulis mengambil topik “Aplikasi Pengolahan Data Servis dan Jual Beli pada CV. Nur Abadi”.
1
2
1.2
Identifikasi Masalah Berdasarkan latar belakang di atas sistem pekerjaan masih dilakukan secara
manual maka terjadinya kesalahan-kesalahan yang sering di ketahui seperti kesalahan perhitungan dan penyimpanan nota penjualan dan pembelian yang tidak efektif. Dengan adanya perkembangan teknologi maka masalah-masalah yang terjadi dapat diatasi dengan membuat sebuah sistem yang terkomputerisasi terutama pada proses penjualan dan pembelian. Indentifikasi masalah yang terjadi adalah : 1. Pembuatan transaksi penjualan dan pembelian masih dilakukan secara manual. 2. Belum adanya penyimpanan data yang teratur dalam bentuk database sehingga sering terjadi kesalahan dalam perhitungan harga. 3. Penyimpanan data transaksi kurang efektif dan efisien. 4. Pencarian stock barang masih secara manual sehingga memerlukan waktu yang lama.
1.3
Batasan Masalah Batasan masalah adalah membatasi ruang lingkup masalah yang terlalu luas
atau lebar sehingga penelitian lebih bisa fokus untuk dilakukan. Batasan masalah dari perancangan aplikasi ini dibatasi oleh hal-hal sebagai berikut: 1. Pengolahan data transaksi penjualan dan pembelian. 2. Pembuatan laporan stock barang. 3. Laporan penjualan dan pembelian setiap bulan. 4. Pengolahan data service.
3
1.4
Tempat dan Waktu Pelaksanaan Kerja praktek ini diadakan di CV.Nur Abadi yang beralamat di jalan Bukit
Cermin No.1. Adapun pelaksanaanya dimulai dari Tanggal 1 Oktober 2013 sampai tanggal 1 Januari 2014. 1.5
Tujuan Dan Manfaat Tujuan pelaksanaan kerja praktek ini adalah : 1. Tujuan Umum Secara umum tujuan Kerja praktek ini adalah untuk mengaplikasikan antara ilmu yang diperoleh di bangku kuliah dengan pelaksanaannya di dunia kerja. 2. Tujuan Khusus a. Mempelajari sejauh mana teknologi informasi dapat dimanfaatkan pada CV.Nur Abadi. b. Menganalisa proses kerja pada CV. Nur Abadi khususnya sistem yang akan dibuat untuk memudahkan dalam proses pengelolaan datanya. 3. Manfaat Manfaat yang diambil dari aplikasi ini adalah untuk memberikan suatu kemudahan dalam segala proses yang berhubungan dengan pengolahan data barang dan perhitungan keuangan.
4
1.6
Metodologi Penelitian Metodologi merupakan suatu proses yang digunakan untuk memecahkan
suatu masalah secara logis, dimana memerlukan data-data untuk mendukung terlaksananya suatu penelitian. Metodologi ini akan dijelaskan dalam bentuk pengumpulan data dan metode pengembangan sistem. 1. Metode Pengumpulan Data Dalam pelaksanaan kegiatan pengumpulan data yang menjadi dasar dan untuk melengkapi laporan kerja praktek ini, maka digunakan teknik yang umum dalam kegiatan ilmiah, yaitu : a. Wawancara (Interview), yaitu kegiatan berupa tanya jawab langsung dengan orang yang berkaitan dengan pengelolaan data. b. Observasi, pengamatan langsung kelokasi dimana dilaksanakan kerja praktek ini. c. StudiLiteratur, pengumpulan data secara tidak langsung dengan melakukan studi kepustakaan, yaitu dengan mengumpulkan datadata dan teori-teori yang berhubungan dengan penulisan laporan kerja praktek ini.
2. Metode Pengembangan Perangkat Lunak Metode pengembangan sistem yang digunakan dalam membangun sistem pengolahan data ini menggunakan model waterfall yang menyarankan pengembangan perangkat lunak secara sistematik dan berurutan yang dimulai dari tingkatan sistem tertinggi dan berlanjut ke
5
tahap analisis, desain, pengkodean, pengujian dan pemeliharaan. Kelebihan dari metode ini adalah terstuktur, dinamis, dan sequintal.
Gambar 1.1 Paradigma Waterfall (1Adi Nugroho, 2005)
Keterangan ; 1. Kebutuhan sistem ( Requirement system ) Proses pencarian kebutuhan diintensifkan dan di fokuskan pada software. Untuk mengetahui sifat dari program yang akan dibuat,Melakukan pengumpulan data dan penetapan kebutuhan semua elemen sistem. 2. Analisa(Analysis) Melakukan analisis terhadap permasalahan yang dihadapi dan menetapkan kebutuhan perangkat lunak, fungsi performasi dan iterfacing.
1
Adi Nugroho, Analisa dan Perancangan Sistem Informasi dengan Metodologi Berorientasi Objek, hal.125.
6
3. Perancangan ( Design ) Proses ini digunakan untuk mengubah kebutuhan-kebutuhan diatas menjadi tampilan program atau aplikasi sebelum coding di mulai. Design harus dapat mengimplementasikan kebutuhan yang telah di sebutkan pada tahap sebelumnya. 4. Pembuatan Program/pengkodean ( Coding ) Pengkodean yang mengimplementasikan hasil dan design ke dalam kode/bahasa yang di mengerti oleh mesin komputer dengan bahasa pemrograman tertentu. 5. Pengujian ( Implementasi dan Testing ) Untuk dapat dimengerti oleh mesin, dalam hal ini komputer, maka design tadi harus di ubah bentuknya menjadi bentuk yang dapat dimengerti oleh mesin, yaitu ke dalam bahasa pemrograman melalui proses coding. Tahap ini merupakan implementasi dari tahap design yang secara teknis nantinya dikerjakan oleh programmer. 6. Perawatan ( Maintenence ) Pemeliharaan suatu software sangat di perlukan, termasuk di dalamnya adalah pengembangan, karena software yang dibuat tidak selamanya hanya seperti itu.Ketika di jalankan mungkin saja masih ada kesalahan kecil yang tidak di temukan sebelumnya, atau ada penambahan fitur-fitur yang belum ada pada software tersebut.Pengembangan diperlukan ketika adanya perubahan dari perusahaan seperti penggantian sistem operasi atau perangkat lainnya.
7
Dengan menggunakan Metode Waterfall sangat efektif, karena setiap tugas yang diberikan kepada setiap bagian harus diselesaikan terlebih dahulu, tahap demi tahap setelah itu dilanjutkan ketahap atau tugas berikutnya secara berurutan.
1.7
Perencanaan Jadwal Kerja Praktek Untuk pengerjaan aplikasi Sistem informasi pengolahan data penerimaan
murid baru pada English Clinic Tanjungpinang ini kurang lebih memerlukan waktu 3 bulan dengan pengaturan waktu berikut ini. Tabel Jadwal Kerja Praktek BULAN 1 NO
BULAN 3
KEGIATAN 1
1
BULAN 2
Pengumpulan Data - Observasi - Wawancara - StudiLiteratur
2
Analisis Data
3
Desain
4
Coding
5
Pengujian
6
PembuatanLaporan
2
3
4
1
2
3
4
1
2
3
4
8
1.8
SistematikaPenulisan Sistematika penulisan ini disusun dalam beberapa bab dan sub bab, yang
masing-masing saling mempunyai keterkaitan dalam bahasannya. Adapun sistematika penulisan kerja praktek ini sebagai berikut : BAB I
PENDAHULUAN
Bab ini berisi uraian tentang latar belakang masalah, rumusan masalah yang berisi identifikasi masalah, batasan masalah, tujuan kerja praktek, waktu dan tempat kerja praktek, metodologi penelitian serta sistematika penulisan yang berisikan penjelasan ringkasan per bab. BAB II
LANDASAN TEORI
Dalam bab ini menguraikan tentang definisi dan konsep dasar sistem, informasi, sistem informasi, dan meguraikan tentang karakterisitik sistem, konsep pemodelan sistem, konsep basis data dan perangkat lunak yang digunakan. BAB III
ANALISIS SISTEM
Bab ini menguraikan tentang masalah atau kelemahan yang terdapat di sistem yang lama dan menguraikan kebutuhan sistem agar dapat diusulkan untuk menyelesaikan masalah pada sistem yang lama. BAB IV
PERANCANGAN SISTEM
Bab ini menguraikan tentang perancangan proses yaitu flowmap, diagram konteks, data flow diagram (DFD), perancangan basis data yaitu perancangan media penyimpanan dan entity relationship diagram (ERD), serta perancangan antarmuka.
9
BAB V
IMPLEMENTASI SISTEM
Bab ini berisi tentang uji coba sistem dan program, dan manual instalasi. BAB VI
PENUTUP
Bab ini memberikan kesimpulan tentang hasil-hasil yang dicapai dalam perancangan perangkat lunak dan saran untuk pengembangan perangkat lunak berikutnya.
DAFTAR PUSTAKA
LAMPIRAN
BAB II LANDASAN TEORI
2.1
Konsep Dasar Sistem 1. Definisi Sistem Ada beberapa tentang pengertian sistem
di antaranya definisi sistem
menurut Gorden B. Davis dalam bukunya menyatakan, sistem biasa berupa gagasan-gagasan atau konsepsi yang saling tergantung. Sistem menurut Norman L.Enger dalam bukunya menyatakan, suatu sistem dapat terdiri atas kegiatan–kegiatan yang berhubungan dengan mencapai tujuan –tujuan perusahaan . Sistem yang lebih menekankan pada prosedur definisikan sebagai berikut:”sistem adalah suatu jaringan kerja prosedur yang saling berhubungan ,pendekatan sistem
yang lebih menekankan pada komponen pada
elemennya.definisikan sebagai berikut : ”sistem adalah suatu kumpulan elemen-elemen yang saling berhubungan untuk mencapai suatu tujuan tertentu. sedangkan menurut Richard F. Neuschel (1995)”sistem adalah suatu jaringan sejumlah prosedur yang saling berhubungan yang dikembangkan sesuai dengan suatu pola (rencana) guna melaksanakan aktifitas utama perusahaan”
10
11
2. Karakteristik Sistem Suatu sistem mempunyai karakteristik atau sifat –sifat tertentu, yaitu; 1. Komponen Sistem (components) Sistem terdiri dari sejumlah komponen yang saling berinteraksi, bekerja sama membentuk kesatuan. Komponen-komponen atau elemen-elemen sistem dapat berupa suatu subsistem atau bagian-bagian dari sistem. Setiap subsistem mempunyai sifat-sifat dari sistem untuk menjalankan suatu fungsi tertentu dan mempengaruhi proses sistem secara keseluruhan.
2. Batas Sistem (boundary) Batas sistem merupakan daerah yang membatasi antara suatu sistem dengan sistem lainnya atau dengan lingkungan luarnya. Batas suatu sistem menunjukkan ruang lingkup (scope) dari sistem tersebut.
3. Lingkungan Luar Sistem (environment) Lingkungan luar dari suatu sistem adalah apapun diluar batas dari sistem yang mempengaruhi operasi sistem.
4. Interface Interface merupakan media penghubung antara satu subsistem dengan subsistem yang lainnya. Interface ini memungkinkan satu subsistem untuk mengalirkan sumber daya ke subsistem lainnya.
12
a. Input Input merupakan energi yang dimasukkan ke dalam sistem. Input dapat berupa maintenance input dan signal input. Maintenance input adalah energi yang dimasukkan supaya sistem tersebut dapat beroperasi. Signal input adalah energy yang diproses untuk menghasilkan output. b. Output Output merupakan hasil dari energi yang diolah dan diklasifikasikan menjadi output yang berguna dan sisa pembuangan. Output dapat menjadi input untuk subsistem yang lain. 5. Pengolahan Sistem (process) Suatu sistem mempunyai bagian pengolah yang akan merubah masukan menjadi keluaran. 6. Sasaran Sistem (objective) Suatu sistem mempunyai tujuan (goal) atau sasaran (objective). Sasaran dari sistem menentukan input yang dibutuhkan dan output yang akan dihasilkan
2.2.1 Konsep dasar aplikasi Perangkat lunak aplikasi adalah suatu subkelas perangkat lunak komputer yang memanfaatkan kemampuan komputer langsung untuk melakukan suatu tugas yang diinginkan pengguna.
13
Contoh utama perangkat lunak aplikasi adalah pengolah kata, lembar kerja, dan pemutar media.
2.2.2 Konsep dasar pengolahan data Pengolahan data adalah proses operasi sistematis terhadap data, selama operasi, [misal kalkulasi atau operasi logika] sedang berlangsung, data disimpan sementara dalam prosesor. Yang termasuk dalam proses pengolahan data, antara lain : verifikasi, pengorganisasian data,pencarian kembali, transformasi, penggabungan, pengurutan, perhitungan / kalkulasi, ekstraksi
data
untuk
membentuk
informasi,
dan
pembentukan
pengetahuan.2
2.3
Sistem Aplikasi Berbasis Desktop Aplikasi dalam bahasa awam sering disebut sebagai sebuah kumpulan
program atau script. Aplikasi Desktop yang dibangun dengan menggunakan Struts framework terdiri dari komponen-komponen individual yang digabungkan menjadi satu aplikasi. Aplikasi tersebut dapat diinstal dan dieksekusi oleh aplikasi container. Komponen-komponen tersebut dapat digabungkan karena mereka terletak dalam sebuah konteks aplikasi yang sama, yang menjadikan mereka bergantung satu dengan yang lainnya, baik secara langsung ataupun tidak langsung.3
2
Abdul Kadir ,Pengolahan Sistem Informasi,[Andi].
3
Prop.Dr.Jogiyanto.HM.Akt.Analisa dan Desain ,Andi ,Offisert,Jogjakarta,2005
14
2.3.1 Pengertian Aplikasi Desktop Aplikasi Desktop adalah suatu aplikasi yang dapat berjalan sendiri atau independen tanpa menggunakan browser atau koneksi Internet di suatu komputer otonom dengan operating system atau platfom tertentu.
2.4
Konsep Pemodelan Sistem 1. Flowchart Flowchart merupakan gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya. Gambarnya ini dinyatakan dengan simbol. Dengan demikian setiap simbol menggambarkan proses tertentu. Sedangkan hubungan antar proses digambarkan dengan garis penghubung. Flowchart ini merupakan langkah awal pembuatan program. Dengan adanya flowchart urutan proses kegiatan menjadi lebih jelas. Jika ada penambahan proses maka dapat dilakukan lebih mudah. Setelah flowchart
selesai
disusun,
selanjutnya
pemrograman
(programmer)
menerjemahkannya ke bentuk program dengan bahasa pemrograman.
2. Diagram Konteks
Secara garis besar diagram konteks adalah suatu diagram alir yang tingkat tinggi yang menggambarkan seluruh jaringan, masukan dan keluaran. sistem yang dimaksud adalah untuk menggambarkan sistem yang sedang berjalan. mengidentifikasikan data awal dan akhir yang masuk dan keluaran sistem.
15
Di sini juga bisa di jelaskan fungsi data flow diagram atau (DFD) terbagi atas 3 bagian DFD yaitu:
1.
Data Flow Diagram (DFD) adalah alat pembuatan model yang memungkinkan profesional sistem untuk menggambarkan sistem sebagai suatu jaringan proses fungsional yang dihubungkan satu sama lain dengan alur data, baik secara manual maupun komputerisasi.
2.
DFD ini adalah salah satu alat pembuatan model yang sering digunakan, khususnya bila fungsi-fungsi sistem merupakan bagian yang lebih penting dan kompleks dari pada data yang dimanipulasi oleh sistem. Dengan kata lain, DFD adalah alat pembuatan model yang memberikan penekanan hanya pada fungsi sistem.
3.
DFD ini merupakan alat perancangan sistem yang berorientasi pada alur data dengan konsep dekomposisi dapat digunakan untuk penggambaran analisa maupun rancangan sistem yang mudah dikomunikasikan oleh profesional sistem kepada pemakai maupun pembuat program
2.5
KONSEP BASIC DATA
Database merupakan salah satu komponen penting dalam sistem informasi, karena database adalah dasar dalam menyediakan informasi bagi para pemakai. Suatu database dibuat dan digunakan untuk mengatasi masalah-masalah yang ada pada saat penggunaan data.
16
Masalah-masalah tersebut antara lain : 1.
Redudansi dan konsistensi data.
2.
Kesulitan pengaksesan data.
3.
Isolasi data untuk standarisasi.
4.
Banyak pemakai ( multiple user ).
5.
Masalah keamanan ( security ).
6.
Masalah kesatuan / integrasi (integration).
7.
Masalah kebebasan data (data indepence).
Pelaksanaan pengguna database memerlukan suatu sistem yang dapat mengatur dan mengelola file, program, yang disebut Database Management System (DBMS), yaitu pengelolaan sekumpulan file yang seling berkaitan antara file yang satu dengan yang lainnya.
1. Desain Basis Data Sistem Basis data (database) adalah suatu pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktivitas untuk memperoleh informasi. Merancang basis data merupakan hal yang sangat penting dalam perancangan suatu sistem. Kesulitan utama dalam merancang suatu basic data adalah bagaimana cara marancang suatu basic data yang dapat memuaskan keperluan saat ini dan masa yang akan datang.
17
Elemen-elemen
data
dalam
suatu
basic
data
harus
dapat
dipergunakan untuk pembuatan keluaran (output), sesuai dengan yang diinginkan. Untuk menghasilakn keluaran yang baik, juga diperlukan masukan (output) yang baik. Hasil pemasukan data ini akan disimpan atau direkam dalam basic data. 1)
Field Adalah data yang menunjukkan sifat-sifat tertentu
2)
Record Merupakan segala sesuatu yang kita simpan sebagai informasi dan kumpulan dari beberapa field
3)
Database Merupakan kumpulan dari beberapa record yang memiliki relasi antar record maupun field
4)
Database system Merupakan kumpulan dari basis data yang saling terpisah tapi dikelola secara bersama-sama.
2.
Normalisasi Normalisasi merupakan proses pengelompokan data elemen menjadi tabel-tabel yang menunjukkan entiti dan relasinya. Sebelum mengenal lebih jauh mengenai normalisasi ada beberapa konsep yang perlu diketahui yaitu :
18
1. Atribute kunci Setiap file selalu terdapat kunci dari file atau satu set field yang dapat mewakili record. 2. Candidate key Kunci kandidat adalah satu atribut atau satu set minimal atribut yang mengindentifikasi secara unik suatu kejadian spesifik dari entity. Dan kandidat key tidak boleh berisi atribut dari tabel yang lain. 3. Primary key Primary key adalah satu atribut atau satu set minimal atribut yang tidak hanya mengindentifikasi secara unik suatu kejadian spesifik, tetapi dapat juga mewakili setiap kejadian dari entity. 4.
Alternatif key Setiap atribut dari candidate key yang tidak terpilih menjadi primary key,
maka atribut-atribut tersebut dinamakan alternatif key. 5. Foreign key Foreign key merupakan sembarang atribut yang menunjuk kepada primary key pada tabel yang lain. Foreign key akan terjadi pada suatu relasi yang memiliki kardinalitas one to many (satu ke banyak) atau many to many (banyak ke banyak). Foreign key biasa nya selalu diletakkan pada tabel atau relasi mengarah ke banyak.
19
Entity Relational Diagram merupakan salah satu pemodelan data konseptual yang paling sering digunakan dalam proses pengembangan basis data bertipe relasional. Model E-R adalah rincian yang merupakan representasi logika dari data pada suatu organisasi atau area bisnis tertentu. Model E-R terdiri dari beberapa komponen dasar yaitu sebagai berikut: 1. Entitas Entitas adalah sesuatu atau objek di dunia nyata yang dapat dibedakan dari sesuatu atau objek yang lainnya. Sebagai contoh, setiap mahasiswa dalam suatu universitas adalah suatu entitas. Setiap fakultas dalam suatu universitas adalah juga
suatu
entitas.
Dapat
dikatakan
bahwa
entitas
bisa
bersifat
konseptual/abstrak atau nyata hadir di dunia nyata. 2. Atribut Atribut adalah properti deskriptif yang dimiliki oleh setiap anggota dari himpunan entitas. Sebagai contoh entitas mahasiswa, atribut-atribut yang dimiliki adalah nim, nama mahasiswa, alamat dan lain-lain. 3. Hubungan antar relasi (Relationship) Hubungan antar relasi adalah hubungan antara suatu himpunan entitas dengan himpunan entitas yang lainnya. Misalnya, entitas mahasiswa memiliki hubungan tertentu dengan entitas matakuliah (mahasiswa mengambil matakuliah). Pada penggambaran model E-R, relasi adalah perekat yang menghubungkan suatu entitas dengan entitas yang lainnya.
20
4. Kardinalitas/Derajat Relasi Kardinalitas relasi menunjukkan jumlah maksimum entitas yang dapat berelasi dengan entitas pada himpunan entitas yang lain.
2.6
Perangkat Lunak Pembangun Sistem Software atau biasa disebut dengan perangkat lunak adalah sebuah aplikasi
yang dapat membangun sebuah sistem. Dimana sistem tersebut dapat membantu manusia dalam mengolah sebuah data untuk mengurangi kesalahan dalam data tersebut. Untuk itu software yang kami pakai ialah sebagai berikut : 2.6.1 Borland Delphi 7 Borland Delphi merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi untuk mengolah teks, grafik, angka, database dan aplikasi web. Program ini mempunyai kemampuan luas yang terletak pada produktifitas, kualitas, pengembangan perangkat lunak, kecepatan kompilasi, pola desain yang menarik serta bahasa pemrogramannya terstruktur dan lengkap. Fasilitas pemrograman dibagi dalam dua kelompok yaitu object dan bahasa pemrograman. Object adalah suatu komponen yang mempunyai bentuk fisik dan biasanya dapat dilihat. Object biasanya dipakai untuk melakukan tugas tertentu dan mempunyai batasan-batasan tertentu. Sedangkan bahasa pemrograman dapat disebut sekumpulan teks yang mempunyai arti tertentu dan disusun dengan aturan tertentu untuk menjalankan tugas tertentu. Gabungan antara object
21
dengan bahasa pemrograman sering disebut bahasa pemrograman berorientasi object. IDE Delphi merupakan lingkungan pemrograman terpadu yang terdapat dalam Delphi. Dengan IDE semua yang diperlukan dalam pengembangan, dalam kondisi normal, semuanya telah tersedia. Adapun bagian-bagian IDE Delphi yang biasa ditampilkan yaitu : 1. Jendela Utama : Di dalam jendela utama Delphi terdapat menu-menu sebagaimana menu aplikasi Windows umumnya, toolbar yang merupakan langkah cepat dari beberapa menu, dan component palette yaitu gudang komponen yang akan digunakan untuk membuat aplikasi. 2. Object Treeview : Fasilitas ini berguna untuk menampilkan daftar komponen yang digunakan dalam pengembangan aplikasi sesuai dengan penempatannya. 3. Object Inspector : Object ini digunakan untuk mengatur properti dan event suatu komponen. Akan tetapi tidak dapat mengubah langsung properti-properti yang tidak ditampilkan kecuali melalui penulisan kode program. 4. Form
Designer
:
Form
adalah
komponen
utama
dalam
pengembangan aplikasi. Form designer adalah tempat melekatnya komponen yang lain, dengan arti lain tempat komponen-komponen lain diletakkan.
Andris Faesal, 2009. Mengenal Borland Delphi 7 [ Online ] Http://Andrisfaesal.Blogspot.Com/2009/02/Mengenal-Borland- Delphi-70.Html
22
5. Code Editor, Explorer dan Component Diagram, Code Editor adalah tempat kode program yang diperlukan untuk mengatur tugas aplikasi ditulis. Code Explorer adalah fasilitas yang membantu penjelajahan kode program menjadi lebih mudah. Component Diagram adalah fasilitas yang dapat digunakan untuk membuat diagram komponenkomponen yang digunakan dalam aplikasi. 2.6.2 Microsoft Office Access Microsoft Office Access adalah sebuah program aplikasi basis data komputer relasional yang ditujukan untuk kalangan rumahan dan perusahaan kecil hingga menengah. Aplikasi ini merupakan anggota dari beberapa aplikasi Microsoft Office, selain tentunya Microsoft Word, Microsoft Excel, dan Microsoft PowerPoint. Aplikasi ini menggunakan mesin basis data Microsoft Jet Database Engine, dan juga menggunakan tampilan grafis yang memudahkan pengguna. Microsoft Access dapat menggunakan data yang disimpan di dalam format Microsoft Access, Microsoft Jet Database Engine, Microsoft SQL Server, Oracle Database, atau semua kontainer basis data yang mendukung standar ODBC. Para pengguna/programmer
yang
mahir
dapat
menggunakannya
untuk
mengembangkan perangkat lunak aplikasi yang kompleks, sementara para programmer
yang
kurang
mahir
dapat
menggunakannya
mengembangkan perangkat lunak aplikasi yang sederhana.
untuk
23
Access juga mendukung teknik-teknik pemrograman berorientasi objek, tetapi tidak dapat digolongkan ke dalam perangkat bantu pemrograman berorientasi objek. Microsoft merilis Microsoft Access 1.0 pada bulan November 1992 dan dilanjutkan dengan merilis versi 2.0 pada tahun 1993. Microsoft menentukan spesifikasi minimum untuk menjalankan Microsoft Access 2.0 adalah sebuah komputer dengan sistem operasi Microsoft Windows 3.0, RAM berkapasitas 4 megabyte (6 megabyte lebih disarankan) dan ruangan kosong hard disk yang dibutuhkan 8 megabyte (14 megabyte lebih disarankan). Versi 2.0 dari Microsoft Access ini datang dengan tujuh buah disket floppy 3½ inci berukuran 1.44 megabyte. Perangkat lunak tersebut bekerja dengan sangat baik pada sebuah basis data dengan banyak record tapi terdapat beberapa kasus di mana data mengalami kerusakan. Sebagai contoh, pada ukuran basis data melebihi 700 megabyte sering mengalami masalah seperti ini (pada saat itu, memang hard disk yang beredar masih berada di bawah 700 megabyte). Buku manual yang dibawanya memperingatkan bahwa beberapa kasus tersebut disebabkan oleh driver perangkat yang kuno atau konfigurasi yang tidak benar. Nama kode (codename) yang digunakan oleh Access pertama kali adalah Cirrus yang dikembangkan sebelum Microsoft mengembangkan Microsoft Visual Basic, sementara mesin pembuat form antar muka yang digunakannya dinamakan dengan Ruby. Bill Gates melihat purwarupa (prototype)
tersebut
dan
memutuskan
bahwa
komponen
bahasa
24
pemrograman BASIC harus dikembangkan secara bersama-sama sebagai sebuah aplikasi terpisah tapi dapat diperluas. Proyek ini dinamakan dengan Thunder. Kedua proyek tersebut dikembangkan secara terpisah, dan mesin pembuat form yang digunakan oleh keduanya tidak saling cocok satu sama lainnya. Hal tersebut berakhir saat Microsoft merilis Visual Basic for Applications (VBA).
2.7
Pengertian Pengolahan Data Data adalah keterangan mengenai fakta suatu objek ( manusia,benda,
peristiwa) yang diwakili dengan symbol( huruf, kalimat,angka,gambar,suara) yang belum diolah menjadi informasi. Dari proses pengolahan data tersebutlah dihasilkan informasi sebagai output. Informasi adalah data yang sudah diolah dan dapat berguna bagi pemakainya.
2.7.1 Siklus Pengolahan Data Secara umum pengolahan data yang terkomputerisasi dan manual, mengalami siklus pengolahan data yang terdiri dari tiga tahap, yaitu sebagai berikut:
PROSES
INPUT
OUTPUT
Gambar 2.1. Diagram Konteks Tahap Proses 1.
Data Dimasukkan ke komputer dalam bentuk yang dimengerti oleh komputer (input).
25
2.
Data diproses sesuai dengan intruksi yang di terima komputer.
3.
Hasil pengolahan (output), berupa data yang dapat dimengerti dan berguna untuk manusia.
2.7.2 Metode Pengolahan Data Menurut Buch dan Stater, ada dua macam metode pengolahan data yang penting: 1.
Manual Dalam metode manual semua operasi dilakukan dengan tangan dan bantuan alat–alat penting seperti pensil, kertas dan lain-lain.
2.
Metode Teknologis a. Electromechanical Sesungguhnya merupakan suatu gabungan dari orang dan mesin, misalnya seorang pegawai yang bekerja dengan menggunakan catat kolom dalam melakukan absensi (posting machine). b. Metode Electric Computer Komputer disini berarti suatu susunan dari alat–alat masukan, suatu unit pengolah pusat (control processing unit) dan alat – alat keluaran.
2.8
Struktur Organisasi.
MANAGER OPERASIONAL
TEKNISI
Gambar 2.2 Struktur Organisasi CV. Nur Abadi
26
a. Deskripsi Pekerjaan ( Job Description ) Deskripsi pekerjaan adalah Uraian tugas yang merupakan suatu rincian yang menunjukkan posisi, tanggung jawab. Fungsinya harus dikerjakan oleh seorang personil di dalam suatu organisasi. Adapun uraian tugas tersebut adalah sebagai berikut : 1. Manajer Tugas dari Manajer adalah : Peran utama manajer adalah mencapai tujuan organisasi dengan menggunakan perangkat manajemen dan sumber daya organisasi. 2. Operasional Tugas dari bagian operasional adalah : Dalam setiap usaha harus dilakukan pencatatan dan pembukuan terhadap segala hal yang ada hubungannya dengan kegiatan perusahaan,hal itu misalnya : pembukuan, perhitungan harga pokok, jumlah produksi, penjualan, pembelian, pengeluaran barang dan lainlain. 3. Teknisi Tugas dari bagian teknisi adalah : Mereparasi / memperbaiki kerusakan yang terjadi pada komputer, baik dalam perbaikan perangkat keras maupun perangkat lunak.
BAB III ANALISA SISTEM
3.1 Analisis Sistem Analisis adalah penguraian dari suatu masalah atau objek yang akhirnya menghasilkan suatu kesimpulan. Tujuan kegiatan tahap analisis yaitu untuk mendesain sistem yang baru atau menyempurnakan sistem yang sudah ada sebelumnya. Seperti yang telah disinggung sebelumnya dalam latar belakang masalah bahwa masalah yang dihadapi adalah bagaimana sebuah aplikasi ini dapat memberikan kemudahan kepada pihak terkait. Peranan Analis sistem secara sistematis menilai bagaimana fungsi bisnis dengan cara mengamati proses input dan pengolahan data serta proses output informasi untuk membantu peningkatan proses organisasional.
3.2 Analisa Prosedur Analisis prosedur yaitu tinjauan terhadap prosedur–prosedur yang sedang di terapkan sehingga mempunyai gambaran dan dapat mengambil langkah–langkah yang ingin di kembangkan. 3.2.1 Prosedur pengolahan data penjualan yang sedang berjalan a) Pelanggan memberikan data pemesanan barang kepada bagian operasional. b) Bagian operasional melakukan proses pengecekan stok barang. 27
28
c) Setelah pengecekan stok barang, jika barang tersebut ada maka akan
melakukan proses pembuatan faktur penjualan, dan jika
tidak ada,
maka surat pemesanan barang dikembalikan kepada
pelanggan. d) Setelah pembuatan faktur bagian operasional memberikan faktur penjualan
kepada pelanggan, kemudian bagian operasional
merekap faktur tersebut sebagai arsip. e) Bagian operasional melakukan pembuatan laporan penjualan dan laporan tersebut diberikan kepada manager . f) Dan bagian operasional merekap laporan penjualan sebagai arsip.
Gambar 3.1 flowmap berjalan penjualan
29
3.2.2 Prosedur pengolahan data pembelian yang sedang berjalan a) Bagian operasional memberikan data pemesanan kepada supplier. b) Supplier melakukan pembuatan faktur pembelian. c) Bagian operasional mencatat kartu stok barang setelah itu membuat laporan pembelian. d) Laporan pembelian tersebut diberikan kepada manager dan bagian operasional merekap laporan pembelian sebagai arsip.
Gambar 3.2 flowmap berjalan pembelian
30
3.2.3 Prosedur pengolahan data reparasi (service) yang sedang berjalan a) Bagian
operasional
memberikan
formulir
keluhan
kepada
pelanggan. b) Pelanggan mengisi formulir keluhan dan menyerahkannya kembali kepada bagian operasional. c) Bagian operasional menyerahkan formulir keluhan kepada teknisi. d) Teknisi melakukan pengecekan atas kerusakan barang tersebut, ketika barang tersebut dapat diperbaiki, makan teknisi membuat laporan kerusakan dan diserahkan kembali kepada bagian operasional, namun ketika barang tersebut tidak dapat diperbaiki, maka barang tersebut dikembalikan kepada pelanggan. e) Bagian operasional membuat faktur pembayaran atas kerusakan barang yang dapat diperbaiki dan diserahkan kepada pelanggan. f) Ketika barang telah selesai diperbaiki, bagian operasional akan menghubungi pelanggan untuk mengambil barang tersebut dan membuat laporan service dan diarsipkan.
31
Gambar 3.3 flowmap berjalan jasa reparasi (service) 3.3 Analisa Dokumen Aliran dokumen
menggambarkan bagaimana dan untuk apa saja
dokumen – dokumen itu digunakan dalam sistem. Dari hasil survei yang dilakukan pada CV. Nur Abadi diperoleh dokumen, yaitu :
32
3.3.1 Analisa Dokumen Masukan Dokumen masukan merupakan dokumen yang dipakai sebagai sumber yang digunakan sebagai masukan dalam sistem. 1. Data pemesanan barang (penjualan) Fungsi
: Untuk melakukan pengorderan barang
Sumber
: Pelanggan
Rangkap
: 1 (satu)
Distribusi
: Bagian operasional
Item
: Tanggal, Nama_Pelanggan, Nama_Barang, Jumlah
2. Faktur pembelian (pembelian) Fungsi
: Untuk memberikan bukti pembelian barang
Sumber
: Supplier
Rangkap
: 2 (dua)
Distribusi
: Bagian operasional
Item
:
Tanggal,
No_Faktur,
Nama_Pelanggan,
Nama_Barang, Jumlah, Barang, Harga
3.3.2 Analisa Dokumen Keluaran Dokumen keluaran adalah dokumen yang dihasilkan oleh sistem. 1. Faktur penjualan (penjualan) Fungsi
: Untuk memberitahukan berapa barang yang dibeli
Sumber
: Bagian operasional
Rangkap
: 2 (dua)
Distribusi
: Pelanggan
33
Item
:
Tanggal,
No_Faktur,
Nama_Pelanggan,
Nama_Barang, Jumlah, Barang, Harga 2. Data pemesanan barang (pembelian) Fungsi
: Untuk melakukan pengorderan barang
Sumber
: Bagian operasional
Rangkap
: 1 (satu)
Distribusi
: Supplier
Item
: Tanggal, Nama_Barang, Jumlah
3. Form Keluhan (service) Fungsi
: Untuk menunjukkan keluhan barang
Sumber
: Bagian operasional
Rangkap
: 1 (satu)
Distribusi
: Pelanggan
Item
:
Tanggal,
Nama_Pelanggan,
Nama_Barang,
Keluhan 4. Faktur pembayaran (service) Fungsi
: Untuk memberitahukan pembayaran
Sumber
: Bagian operasional
Rangkap
: 2 (dua)
Distribusi
: Pelanggan
Item
: Tanggal, No_Faktur, Nama_Barang, Keluhan, Barang, Harga
34
5. Data Barang (service) Fungsi
: Untuk memberitahukan data barang
Sumber
: Bagian operasional
Rangkap
: 1 (satu)
Distribusi
: Pelanggan
Item
: Tanggal, Nama_Pelanggan, Nama_Barang, Barang
3.4 Analisa Kelemahan Sistem Dari hasil analisis penulis, diketahui masalah-masalah yang akan terjadi dari sistem berjalan di CV. Nur Abadi sebagai berikut : 1. Proses pengecekan barang berjalan dengan lambat karena banyak barang yang harus di cari dan sering terjadi kesalahan dalam pencarian stock barang. 2. Perhitungan total harga barang sering terjadi kesalahan maka akan memperlambat pekerjaan. 3. Perekapan dokumen tidak efisien dikarenakan sering terjadi kehilangan dokumen . 4. Kurangnya pembuatan laporan dalam penjualan, pembelian, dan service, maka pemilik usaha tidak mengetahui berapa pengeluaran dan pemasukan harian, bulanan, dan tahunan.
35
3.5 Analisis Kebutuhan Sistem Pada analisis kebutuhan akan menjelaskan tentang analisis yang di lakukan penulis dalam perancangan aplikasi pengolahan data CV. Nur Abadi, antara lain sebagai berikut: 3.5.1 Kebutuhan Perangkat Keras Perangkat keras komputer (hardware) adalah semua bagian fisik komputer, dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya. Pada umumnya perangkat keras dan perangkat lunak merupakan satu kesatuan yang dapat membantu dalam pengolahan data pemasukan dan pengeluaran.
3.5.2 Kebutuhan Perangkat Lunak Perangkat lunak adalah istilah umum untuk data yang di format dan
di
simpan
secara
digital,
termasuk
program
komputer,
dokumentasinya, dan berbagai informasi yang bias dibaca dan ditulis oleh komputer. Pada pengolahan data dan pembuatan laporan data pemasukan dan
pengeluaran
sering
terjadi
kesalahan-kesalahan
dikarenakan
pembuatan laporan masih secara manual, untuk itu perancangan sistem pengolahan data ini dapat dikembangkan dan diimplementasikan dengan menggunakan perangkat lunak.
36
Hal ini dilakukan karena perangkat lunak pada umumnya dapat mendukung serta dapat membantu dalam pengolahan data pengeluaran dan pemasukan.
3.5.3 Kebutuhan Pengguna Pengguna perangkat lunak ini adalah : Manager atau bagian operasional yang telah di tentukan. 1. Manager adalah pengguna dari aplikasi yang di bangun sebagai administrator. 2. Bagian operasional adalah pengguna sistem yang melakukan penginputan data dan pembuatan laporan.
BAB IV PERANCANGAN SISTEM 4.1
Perancangan prosedur Dalam perancangan sistem aplikasi pengolahan data pada CV. Nur Abadi ini
mengalami perubahan awalnya menggunakan secara manual. Adapun flowmap usulan dapat dilihat pada gambar dibawah ini : 1.
Flowmap usulan pengolahan data pembelian Keterangan : a) Bagian operasional memberikan data pemesanan kepada supplier. b) Supplier melakukan pembuatan faktur pembelian. c) Bagian operasional meng-input kan ke database, dan membuat kartu stok barang setelah itu membuat laporan pembelian. d) Laporan pembelian tersebut diberikan kepada manager dan bagian operasional merekap laporan pembelian sebagai arsip.
37
38
Gambar 4.1 flowmap usulan data pembelian
2.
Flowmap usulan pengolahan data penjualan Keterangan : a) Pelanggan memberikan data pemesanan barang kepada bagian operasional. b) Bagian operasional melakukan proses pengecekan stok barang. c) Setelah pengecekan stok barang, dan jika tidak ada, pemesanan barang dikembalikan kepada pelanggan.
maka surat
39
d) Ketika barang tersebut ada maka akan melakukan proses penginputan ke database dan dilanjutkan dengan pembuatan faktur penjualan, e) Setelah pembuatan faktur bagian operasional memberikan faktur penjualan kepada pelanggan, kemudian bagian operasional merekap faktur tersebut sebagai arsip. f) Bagian operasional melakukan pembuatan laporan penjualan dan laporan tersebut diberikan kepada manager . g) Dan bagian operasional merekap laporan penjualan sebagai arsip.
Gambar 4.2 flowmap usulan data penjualan
40
3.
Flowmap usulan pengolahan data reparasi (service) Keterangan : a) Bagian operasional memberikan formulir keluhan kepada pelanggan. b) Pelanggan mengisi formulir keluhan dan menyerahkannya kembali kepada bagian operasional. c) Bagian operasional menyerahkan formulir keluhan kepada teknisi. d) Teknisi melakukan pengecekan atas kerusakan barang tersebut, ketika barang tersebut tidak dapat diperbaiki, maka barang tersebut dikembalikan kepada pelanggan. e) Ketika barang tersebut dapat diperbaiki, maka teknisi membuat laporan kerusakan dan diserahkan kembali kepada bagian operasional. f) Bagian operasional meng-input ke database dan membuat faktur pembayaran atas kerusakan barang yang dapat diperbaiki dan diserahkan kepada pelanggan. g) Ketika barang telah selesai diperbaiki, bagian operasional akan menghubungi pelanggan untuk mengambil barang tersebut dan membuat laporan service dan diarsipkan.
41
Gambar 4.3 flowmap usulan data reparasi (service)
42
4.3
Perancangan Proses Dalam perancangan proses, langkah – langkah yang dilakukan adalah membuat
gambaran grafis tentang proses – proses yang terjadi dalam sistem usulan dengan menggunakan alat pemodelan sistem yaitu diagram konteks dan diagram aliran data.
4.3.1 Diagram Konteks Diagram konteks merupakan gambaran secara global untuk memudahkan pemahaman terhadap suatu sistem yang menggambarkan aliran data yang masuk ke dalam sistem dan yang keluar dari sistem menuju entitas external. Diagram konteks dapat dilihat pada gambar 4.2.1 berikut ini:
Gambar 4.4 Diagram konteks pengolahan data CV. Nur Abadi 4.3.2 Diagram Aliran Data (Data Flow Diagram) Diagram Aliran Data atau DFD merupakan gambaran arus data dan cara kerja sistem yang lebih detail dari diagram konteks yang akan di kembangkan secara logika. Bagaimana data tersebut terus mengalir dan di simpan. DFD dibuat juga model sebuah sistem informasi dalam bentuk aplikasi. Diagram dapat dilihat pada gambar 4.2.2 dibawah ini :
43
Gambar 4.5 Data Flow Diagram Level 0 1. Proses 1 adalah proses pembuatan laporan
Gambar 4.6 Data Flow Diagram Level 1 Proses pembuatan laporan
44
4.4
Entity Relation Diagram (ERD) Entity Relatioship Diagram ( ERD ) atau Diagram antar Entitas adalah suatu
diagram yang menggambarkan hubungan obyek data yang disimpan yang ada dalam suatu sistem secara konseptual. Obyek data adalah obyek yang dapat dicatat atau segala sesuatu yang ada dan dapat dibedakan entitas dapat berupa orang, benda, tempat, peristiwa, atau konsep yang bisa diolah untuk menghasilkan informasi, rancangan diagram entitas ini dibuat menurut data yang ada sehingga dapat menjelaskan hubungan data-data.
Nama
Barang
No Nota
Jumlah
n
dibeli
No
Pembelian
m
n Nama
m
dijual
Pelanggan m
No
Service
1
Gambar 4.7 Entity Relation Diagram (ERD)
Service
45
4.5
Perancangan Struktur Program Struktur Program sistem pengolahan data penerimaan siswa baru English Clinic
ini Menggambarkan proses input dan output data, struktur program ini di bagi menjadi modul modul kecil yang mudah diperbaiki bila terjadi kesalahan dan mudah untuk di test jika ada modifikasi. Struktur program ini penyelesaian tentang sistem yang di pandang dari elemen data, elemen control,modul – modul dan hubungan modul.
Gambar 4.8 struktur program
46
4.6
Struktur Menu Struktur menu adalah salah satu cara dalam
memudahkan pemakai untuk
menggunakan aplikasi ini, sehingga tidak mengalami kesulitan dalam mengakses menu-menu yang ada di dalamnya bentuk struktur menu dapat di lihat pada gambar 4.5 berikut ini :
Gambar 4.9 Struktur menu aplikasi pada CV. Nur Abadi
4.7
Struktur File Didalam pembuatan program dibutuhkan suatu spesifikasi file yang
dimaksudkan untuk dapat melakukan kegiatan-kegiatan dalam pengaturan pencarian data dan pembuatan laporan yang dapat mempermudah kerja sistem komputer. Untuk itu sistem pengolahan data ini membutuhkan spesipikasi file untuk mempermudah dalam melakukan kegiatan pemrograman, yang dapat diliat dari tabel-tabel berikut ini :
47
Tabel 4.1 Struktur File Data Administrator Nama tabel : t_login Field Kunci : User Keterangan : Berisi tentang ID administrator Nama field
Type
Panjang
Keterangan
User
Text
15
Primary key
Pasword
Text
15
-
Nama
Text
25
-
Tabel 4.2 Struktur File Data Penjualan Nama tabel : t_jual Keterangan : Berisi tentang data penjualan No
Nama field
Type
Panjang
Keterangan
1
Faktur
Text
15
-
2
Nomor
Text
5
-
3
Nama_pelanggan Text
25
-
4
Nama_barang
Text
15
-
5
Jumlah
Text
6
6
Harga
Currency
-
-
7
Total
Currency
-
-
8
Tanggal
Date / Time
-
-
48
Tabel 4.3 Struktur File Data Pembelian Nama tabel : t_beli Field Kunci : Nomor Keterangan : Berisi tentang data keluar Nomor Nama field
Type
Panjang
keterangan
1
Nomor
Text
5
Primary key
2
Nota
Text
10
-
3
Nama_barang
Text
15
-
4
Jumlah
Text
6
-
5
Harga
Currency
-
-
6
Total
Currency
-
-
7
Tanggal
Data / Time
-
-
Tabel 4.4 Struktur File Data Barang Nama tabel : t_barang Field Kunci : Nama Keterangan : Berisi tentang data barang No
Nama field
Type
Panjang
keterangan
1
Nama
Text
25
Primary key
2
Jumlah
Text
10
-
3
Harga
Text
15
-
4
Status
Text
7
-
5
Pelanggan
Text
25
-
49
Tabel 4.5 Struktur File Data Service Nama tabel : t_service Keterangan : Berisi tentang data service
4.8
Nomor Nama field
Type
Panjang
keterangan
1
Faktur
Text
15
-
2
Nomor
Text
5
-
3
Nama_pelanggan Text
25
-
4
Nama_barang
Text
15
-
5
Harga
Currency
-
-
6
Keluhan
Text
25
-
7
Tanggal
Text
15
-
Rancangan Antar Muka Rancangan antar muka desain interface merupakan rancangan aplikasi
penjualan, pembelian dan service pada CV. Nur Abadi agar di mengerti oleh user, khususnya oleh admin selaku pemegang control manajemen program. Perancangan Input Output Program Adapun perancangan input output program dapat dilihat dibawah ini. Name ? Password ? Exit
Gambar 4.10 Perancangan Login
50
File
Data
View
Penjualan
Help Pembelian
Service
Laporan
LOGO
Gambar 4.11 Perancangan menu utama
File
Data
View
Penjualan
Help Pembelian
Service
No. Faktur Nama Pelanggan
Refresh
Nama Barang
Simpan
Jumlah Harga Total
Laporan
Pencarian
Edit
Cetak Faktur
Hapus
Cetak Laporan
Tanggal
Tabel
Gambar 4.12 Perancangan data penjualan
51 File
Data
View
Penjualan
Help Pembelian
Service
No. Nota Nama Pembelian
Refresh
Nama Barang
Simpan
Jumlah
Laporan
Pencarian
Edit
Harga
Hapus
Total
Cetak Laporan
Tanggal
Tabel
Gambar 4.13 Perancangan data pembelian File
Data
View
Penjualan
Help Pembelian
Service
No. Faktur
Refresh
Nama Pelanggan
Simpan
Nama Barang Harga Keluhan
Laporan
Pencarian
Edit
Cetak Faktur
Hapus
Cetak Laporan
Tanggal
Tabel
Gambar 4.14 Perancangan data service
52
File
Data
View
Penjualan
Help Pembelian
Service
Bulan Penjualan Pembelian
Maret
2014
Service
Gambar 4.15 Perancangan data laporan
LAPORAN PENJUALAN
DATA PENJUALAN
Gambar 4.16 Perancangan penjualan
LAPORAN PEMBELIAN
DATA PEMBELIAN
Gambar 4.17 Laporan pembelian
Laporan
53
LAPORAN SERVICE
DATA SERVICE
Gambar 4.18 Laporan service
FAKTUR PENJUALAN
DATA PENJUALAN
Gambar 4.19 Faktur Penjualan
FAKTUR SERVICE
DATA SERVICE
Gambar 4.20 Faktur service
BAB VI PENUTUP 6.1
Kesimpulan Dibangunnya aplikasi pengolahan data penjualan, pembelian, dan service
ini dengan menerapkan sistem komputerisasi diharapkan akan
memberikan pelayanan yang lebih baik terutama dalam hal kebutuhan informasi, sehingga efesien dan efektifitas kerja dapat ditingkatkan apalagi bila pengolahan data ini digunakan secara terpadu. Setelah menjalankan sistem informasi pengolahan data ini dapat disimpulkan antara lain: 1. Dalam proses pendataan penjualan, pembelian, dan service akan lebih mudah dan cepat karena dilakukan dalam sistem yang komputerisasi. 2. Waktu yang dibutuhkan dalam pencarian data terasa lebih cepat. 3. Memudahkan dalam melakukan proses penyimpanan, pengeditan, penghapusan dan pembuatan laporan. 4. Kapasitas penyimpanan data lebih besar karena tersimpan di dalam Hardisk dan sebaliknya ruang penyimpanan lebih kecil karena data tersimpan di dalam komputer.
64
65
6.2
Saran Guna membantu atau mempermudah dalam memperoleh data serta
meningkatkan efesiensi dan efektifitas kerja dalam proses pendataan terhadap data penjualan, pembelian, serta service pada CV. Nur Abadi, alangkah baiknya bila sudah menggunakan pengolahan data yang terkomputerisasi. Bentuk perbaikan-perbaikan yang perlu diadakan dalam pengembangan perangkat lunak ini antara lain : 1. Diperlukan
back up database sebagai cadangan apabila terjadi suatu
kerusakan terhadap media penyimpanan. 2. Perlu perawatan dan pengembangan lebih lanjut agar program ini dapat memberikan pelayanan yang lebih baik. 3. Perlu dikembangkan menjadi suatu jaringan dikarenakan program ini masih bersifat berdiri sendiri.
BAB V IMPLEMENTASI SISTEM
5.1
Defenisi Implementasi Sistem Defenisi implementasi sistem adalah langkah-langkah atau prossedur yang dilakukan dalam menyelesaikan desain sistem yang telah disetujui, untuk menguji, menginstal memulai sistem baru atau sistem yang di perbaiki.
5.2
Tujuan Implementasi Sistem Tujuan dari implementasi sistem yaitu agar sistem yang akan dibangun sesuai dengan apa yang diharapkan, adapun dari tujuan dari implementsi sistem yaitu: 1. Menyelesaikan desain sistem yang ada dan telah disetujui. 2. Menulis, menguji program dan prosedur-prosedur. 3. Memastikan bahwa konferensi ke sistem baru bisa berjalan dan melatih pemakai. 4. Memperhitungkan bahwa sistem memenuhi permintaan yaitu dengan menguji sistem saecara menyeluruh. Langkah-langkah yang dilakukan dalam melaksanakan implentasi sistem adalah:
54
55
a. Menyelesaikan desain sistem. b. Mendapatkan software dan hadware c. Menulis, menguji, mengontrol dan mendokumentasikan program. d. Menyelesaikan manual pemakai. e. Mendapatkan persetujuan.
5.3
Pemilihan Bahasa Pemograman Tahap implementasi sistem merupakan tahapan meletakan sistem agar dalam proses pengolahan data serta sistem informasi pada perekaman data selalu siap untuk di operasikan. Di sini dalam tahap implementasi sistem pengolahan data siswa baru direkam ke dalam proses pengolahan data setelah dilakukan analisis rinci. Maka dalam pembuatan aplikasi atau perangkat lunak (software) dilakukan pemilihan bahasa pemograman yang sesuai dengan sistem, di sini kami mencoba untuk melakukan pembuatan aplikasi proses pendataan siswa dengan menggunakan pemrograman visual yang berjalan di sistem operasi windows 98, Me, 2000, XP, Vista dan Windows 7 yaitu bahasa pemograman Borland delphi 7. Kegiatan yang dilakukan dalam tahap implementasi sistem adalah memindahkan logika program yang telah dibuat ke dalam bahasa yang dipilih. Adapun tujuan dan alasan digunakan bahasa pemograman Borland delphi 7 adalah sebagai berikut :
56
1. Borland delphi 7 memanfaatkan pemograman visual sehingga lebih mempermudah dalam mendesain tampilan program. 2. Borland delphi 7 memiliki kompiler untuk mengoptimalkan rutin program yang tertulis. 3. Borland delphi 7 dapat menghasilkan output program dengan kecepatan akses dan efesien file yang baik.
5.4
Fasilitas Program Penyusunan program ini menyediakan fasilitas-fasilitas yang meliputi : a. Edit Data Fasilitas file yang disediakan untuk melakukan pembaruan
data yang
tersimpan dalam file database sehubungan dengan perkembangan di pengolahan data penjualan, pembelian dan service. b. Hapus Data Delete merupakan proses penghapusan data yang di dalam file. c. Input Data Fasilitas yang disediakan untuk entry data berupa pemasukan data pengolahan data penjualan, pembelian, dan service. d. Cari Data Yaitu fasilitas yang digunakan mempermudahkan dalam pencarian data.
57
e. Print Data Fasilitas yang digunakan untuk menampilkan data yang telah dikelola, baik melalui media monitor maupun ke dalam bentuk print out.
5.5
Kegiatan Implementasi Dalam perancangan hasil rancangan ke dalam sebuah sistem dan aplikasi yang kemudian akan memperlihatkan output sebagai hasil implementasi. Kegiatan implementasi meliputi implementasi basis data, dan implementasi antar muka. 1.
Implementasi basis data Implementasi basis data dilakukan dengan mengunakan basis data access yang tersimpan pada drive local. Nama Basis Data
: db
Tabel 5.1 Hasil Implementasi Basis Data No
Nama table
Hasil implementasi
Keterangan
1.
t_beli
Menyimpan pembelian
data Tabel pembelian
2.
t_jual
Menyimpan penjualan
data Tabel penjualan
3.
t_service
Menyimpan service
data Tabel reparasi atau service
4.
t_stok
Menyimpan stok barang
data Tabel stok barang
5.
t_login
Menyimpan data Tabel login Administrator
58
2.
Pengujian program Dengan pengujian program ini diharapkan program dapat menerima dengan baik, memproses dan memberikan keluaran program yang baik pula. Tahap pengujian ini dilakukan menggunakan metode black box. Pengujian black box adalah pengujian yang berdasarkan fungsi dasar dari masing-masing proses pada program. Tahap pengujian ini dilakukan untuk proses input misalnya input data penerimaan barang dan input data pengeluaran barang. Kemudian tahap selanjutnya dilakukan pengujian terhadap laporan-laporan yang dihasilkan oleh program. Uji coba black box berusaha untuk menemukan kesalahan dalam beberapa kategori, diantaranya : 1. Fungsi-fungsi yang salah atau hilang 2. Kesalahan interface 3. Kesalahan dalam struktur data atau akses database external 4. Kesalahan performa 5. kesalahan inisialisasi dan terminasi
59
Tabel 5.1 Hasil Pengujian Blackbox No 1
Nama Fungsi Yang Di Uji Fungsi Login
2
Fungsi simpan
3
Fungsi edit
4
Fungsi Hapus
5
Fungsi Keluar
3.
Skenario Pengujian Masukan User nama dan Password Menyimpan Data Memperbaharui isi data Menghapus Data Keluar Dari Form / Aplikasi
Hasil Diharapkan Login Berhasil dan masuk ke menu utama Penyimpanan data Berhasil Update data Berhasil Penghapusan Data Berhasil Berhasil Keluar
Hasil Kenyataan Sesuai Harapan
Kesimpul an Valid
Sesuai Harapan Sesuai Harapan Sesuai Harapan Sesuai Harapan
Valid Valid Valid Valid
Implementasi Antar Muka Implementasi perangkat lunak ini dilakukan dengan membuat file project dari perangkat lunak yang dibuat yaitu project1.exe. Suatu file projek merupakan gabungan dari berbagai form program. Form berfungsi untuk melaksanakan pengendalian terhadap proses yang dilakukan. Setiap form program berisi data tentang layer antar muka yang disimpan pada file dengan ekstensi form. Pada implementasi akan dibentuk beberapa file form dimana setiap form membentuk antar muka pemakai seperti beberapa gambar di bawah ini :
60
Gambar 5.1 penyimpanan data penjualan berhasil
Gambar 5.2 penyimpanan data pembelian berhasil
61
Gambar 5.3 penyimpanan data reparasi/service berhasil
Gambar 5.4 berhasil memperbarui data pembelian
62
5.6
Pengendalian Dan Sistem Pengamanan Data Pengendalian dan sistem keamanan data sebuah sistem informasi yang menggunakan peralatan komputer yang sangat diperlukan sekali untuk keakuratan dan kehandalan data. Pengendalian dan keamanan meliputi keamanan data dan kerahasiaan data,
yaitu pengamanan data terhadap
pengguna atau user yang tidak berhak mengakses data.
5.7
Kebutuhan Sistem Pengoperasian 5.7.1 Kebutuhan Perangkat Keras Sistem yang dikembangkan belum dapat diimplementasikan sebelum adanya perangkat komputer guna menunjang terciptanya sistem baru, yaitu berupa perangkat lunak (software) dan perangkat keras (hardware).Perangkat keras (hardware) terdiri dari alat masukan, alat pemrosesan, alat output, dan media penyimpanan. Sedangkan perangkat lunak (software) digunakan untuk mendukung perangkat keras. Untuk dapat mengoprasikan aplikasi pengolahan data penjualan, pembelian dan service ini dibutuhkan spesifikasi hardware sebagai berikut : a.
Hardisk minimal 40 GB
b.
Memori Minimal 512 MB
c.
Processor intel dual core atau di atasnya.
d.
Monitor 14”
63
e.
Keyboard
f.
Mouse
g.
Printer
5.7.2 Kebutuhan Perangkat Lunak (Software) a.
Sistem operasi yang di gunakan adalah windows 7.
b.
Aplikasi Microsoft Word 2010 media yang dipakai untuk pengetikan laporan kerja praktek.
c.
Aplikasi Microsoft Visio 2007 media yang dipakai untuk membuat gambar laporan kerja praktek.
d.
Aplikasi Microsoft Access
2010 media yang dipakai untuk
pembuatan database sistem informasi penjualan, pembelian dan service. e.
Microsoft Borland Delphi 7 yang dipakai dalam pembuatan sistem informasi penjualan, pembelian, dan service.
5.8
Pemakai (Brainware) Dalam mengelola sebuah program diperlukan sumber daya manusia yang akan menjadikan program dapat berjalan dengan baik dan efisien. Di sini pemakai sistem yang dibangun adalah petugas yang sudah di tetapkan oleh pihak CV. Nur Abadi.
DAFTAR PUSTAKA Anwar Desi. 2003. Kamus Bahasa Indonesia Terbaru, Surabaya – Awalia. H. Jogiyanto, M. Analisis Dan Perancangan Sistem Informasi,Yogyakarta, Heryanto, Imam. 2004. Membuat Database dengan Microsoft Access, Bandung, Penerbit Informatika. Kadir , Abdul (2000). Konsep Dan Tuntunan Praktis Basis Data. Yogyakarta Andi Nugroho, Adi .2005. Analisis Dan Perancangan Sistem Dengan Metode Berorientasi Objek, Bandung, Informatika. Andris Faesal, 2009. Mengenal Borland Delphi 7 [ Online ] Available : Http://Andrisfaesal.Blogspot.Com/2009/02/Mengenal-BorlandDelphi70.Html [2011, JUNI 01 / 21.30]
LAMPIRAN
program pro_sad; uses Forms, u_jual in 'u_jual.pas' {F_jual}, u_dm in 'u_dm.pas' {dm: TDataModule}, u_cetak in 'u_cetak.pas' {F_cetak}, u_login in 'u_login.pas' {F_login}, u_brg in 'u_brg.pas' {F_brg}; {$R *.res} begin Application.Initialize; Application.Title := 'Nur Abadi'; Application.CreateForm(TF_jual, F_jual); Application.CreateForm(TF_login, F_login); Application.CreateForm(Tdm, dm); Application.CreateForm(TF_cetak, F_cetak); Application.CreateForm(TF_brg, F_brg); Application.Run; end. unit u_brg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, Buttons; type TF_brg = class(TForm) DBGrid1: TDBGrid; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel1: TPanel; GroupBox1: TGroupBox; ComboBox1: TComboBox; Edit1: TEdit; Panel2: TPanel; GroupBox2: TGroupBox;
box_brg: TComboBox; e_jml: TEdit; Memo1: TMemo; Memo2: TMemo; Button1: TButton; bt_pesanan: TBitBtn; Image1: TImage; bt_pesan1: TBitBtn; GroupBox3: TGroupBox; procedure Button1Click(Sender: TObject); procedure bt_pesananClick(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure Image1Click(Sender: TObject); procedure e_jmlKeyPress(Sender: TObject; var Key: Char); procedure bt_pesan1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F_brg: TF_brg; implementation uses u_cetak, u_dm, u_jual, u_login, DB; {$R *.dfm} procedure TF_brg.Button1Click(Sender: TObject); begin with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang'); open; end; end; procedure TF_brg.bt_pesananClick(Sender: TObject); begin box_brg.Text := ''; e_jml.Text := ''; Memo1.Lines.Clear; Memo1.Lines.Add('Nama Barang');
Memo1.Lines.Add('==========='); Memo2.Lines.Clear; Memo2.Lines.Add('Jumlah'); Memo2.Lines.Add('====='); box_brg.Items.Clear; with dm.ado_stok do begin sql.Clear; sql.Add('select * from t_barang where Status = '+QuotedStr('Stok')); open; First; while not Eof do begin box_brg.Items.Add(Fieldbyname('Nama').AsString); Next; end; end; end; procedure TF_brg.DBGrid1CellClick(Column: TColumn); begin with dm.ado_stok do begin if FieldValues['Nama']= Null then else begin box_brg.Text := FieldValues['Nama']; e_jml.SetFocus; end; end; end; procedure TF_brg.Image1Click(Sender: TObject); var cari1 : integer; begin cari1 := pos(box_brg.Text, Memo1.Text); if cari1 > 0 then Beep else begin Memo1.Lines.Add(box_brg.Text); Memo2.Lines.Add(e_jml.Text); box_brg.Text := ''; e_jml.Text := ''; box_brg.SetFocus; end; end;
procedure TF_brg.e_jmlKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then Image1Click(sender); end; procedure TF_brg.bt_pesan1Click(Sender: TObject); begin F_cetak.QRRichText1.Lines.Assign(Memo1.Lines); F_cetak.QRRichText2.Lines.Assign(Memo2.Lines); Close; F_cetak.QRB_1.Preview; end; end. unit u_jual; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, ExtCtrls, Menus, ActnList, ImgList, ValEdit, jpeg; type TF_jual = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel1: TPanel; Label2: TLabel; Label1: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label8: TLabel; DBGrid1: TDBGrid; date1: TDateTimePicker; e1_tot: TEdit; e1_hrg: TEdit; e1_jml: TEdit; e1_nama: TEdit; e1_nomor: TEdit; GroupBox2: TGroupBox; Label7: TLabel;
bt1_save: TBitBtn; bt1_edit: TBitBtn; bt1_hapus: TBitBtn; bt1_ref: TBitBtn; box1_cari: TComboBox; e1_cari: TEdit; Panel2: TPanel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; date2: TDateTimePicker; e2_tot: TEdit; e2_hrg: TEdit; e2_jml: TEdit; e2_brg: TEdit; e2_nomor: TEdit; GroupBox1: TGroupBox; Label16: TLabel; bt2_save: TBitBtn; bt2_edit: TBitBtn; bt2_hapus: TBitBtn; bt2_ref: TBitBtn; box2_cari: TComboBox; e2_cari: TEdit; TabSheet3: TTabSheet; Panel3: TPanel; Label17: TLabel; Label18: TLabel; Label20: TLabel; e3_nomor: TEdit; Label21: TLabel; date3: TDateTimePicker; Label22: TLabel; e3_nama: TEdit; e3_brg: TEdit; e3_hrg: TEdit; GroupBox3: TGroupBox; Label23: TLabel; bt3_save: TBitBtn; bt3_edit: TBitBtn; bt3_hapus: TBitBtn; bt3_ref: TBitBtn; box3_cari: TComboBox; e3_cari: TEdit;
Panel4: TPanel; bt0_2: TBitBtn; e3_keluhan: TEdit; TabSheet4: TTabSheet; Panel5: TPanel; GroupBox4: TGroupBox; date4: TDateTimePicker; e4_jual: TEdit; e4_service: TEdit; Label19: TLabel; Bevel1: TBevel; bt4_ref: TButton; bt0_1: TBitBtn; bt0_3: TBitBtn; bt0_4: TBitBtn; MainMenu1: TMainMenu; File1: TMenuItem; Data1: TMenuItem; Penjualan1: TMenuItem; Pembelian1: TMenuItem; Service1: TMenuItem; bt1_cetak: TBitBtn; LogOut1: TMenuItem; Exit1: TMenuItem; ImageList1: TImageList; img: TImageList; DBGrid2: TDBGrid; DBGrid3: TDBGrid; bt2_cetak: TBitBtn; bt3_Cetak: TBitBtn; View1: TMenuItem; Laporan1: TMenuItem; Panel10: TPanel; Panel11: TPanel; Panel12: TPanel; Panel6: TPanel; BitBtn1: TBitBtn; e1_cek1: TEdit; e1_cek2: TEdit; e1_cek3: TEdit; e3_faktur: TEdit; e2_temp: TEdit; e2_nota: TEdit; e1_brg: TComboBox; e1_faktur: TEdit; Label28: TLabel;
Label29: TLabel; Help1: TMenuItem; About1: TMenuItem; Lab_01: TLabel; e1_grid: TEdit; BitBtn2: TBitBtn; e3_cetak: TEdit; Panel7: TPanel; bt4_pil1: TButton; bt4_pil2: TButton; TabSheet5: TTabSheet; Image1: TImage; Button1: TButton; e4_beli: TEdit; Lab_02: TLabel; Memo1: TMemo; Bar1: TMenuItem; bt1_old: TBitBtn; bt3_old: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; procedure bt1_refClick(Sender: TObject); procedure bt1_saveClick(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure e1_hrgChange(Sender: TObject); procedure bt1_editClick(Sender: TObject); procedure bt1_hapusClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure e1_cariChange(Sender: TObject); procedure bt1_cetakClick(Sender: TObject); procedure bt2_refClick(Sender: TObject); procedure bt2_saveClick(Sender: TObject); procedure bt2_editClick(Sender: TObject); procedure bt2_hapusClick(Sender: TObject); procedure DBGrid2CellClick(Column: TColumn); procedure e2_hrgChange(Sender: TObject); procedure e2_cariChange(Sender: TObject); procedure bt3_refClick(Sender: TObject); procedure DBGrid3CellClick(Column: TColumn); procedure bt3_saveClick(Sender: TObject); procedure bt3_editClick(Sender: TObject); procedure bt4_pil1Click(Sender: TObject); procedure bt4_refClick(Sender: TObject); procedure bt3_hapusClick(Sender: TObject); procedure TombolAtas(Sender: TObject); procedure AllRefresh(Sender: TObject);
procedure Exit1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bt4_pil2Click(Sender: TObject); procedure e3_cariChange(Sender: TObject); procedure bt2_cetakClick(Sender: TObject); procedure bt3_CetakClick(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure e1_brgKeyPress(Sender: TObject; var Key: Char); procedure e2_jmlKeyPress(Sender: TObject; var Key: Char); procedure e1_brgChange(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure Bar1Click(Sender: TObject); procedure bt1_oldClick(Sender: TObject); procedure bt3_oldClick(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F_jual: TF_jual; xxx : string; implementation uses u_dm, DB, ADODB, u_cetak, DateUtils, u_login, StrUtils, u_brg; {$R *.dfm} procedure TF_jual.bt1_refClick(Sender: TObject); var a: integer; begin bt1_old.Visible := False; bt1_save.Enabled := True; bt1_edit.Enabled := False; bt1_hapus.Enabled := False; e1_nomor.ReadOnly := False; Lab_01.Caption := ''; Lab_02.Caption := ''; e1_faktur.Text:= '';
e1_nomor.Text:= ''; e1_nama.Text := ''; e1_brg.Text := 'x'; e1_jml.Text := ''; e1_hrg.Text := ''; e1_tot.Text := ''; e1_cari.Text := ''; date1.Date := Now; e1_brg.Items.Clear; with dm.ado_stok do begin sql.Clear; sql.Add('select * from t_barang where Status = '+QuotedStr('Stok')); open; First; while not Eof do begin e1_brg.Items.Add(Fieldbyname('Nama').AsString); Next; end; end; with box1_cari.Items do begin box1_cari.Text := ''; Clear; add('Nomor'); add('Nama_pelanggan'); add('Nama_barang'); add('Faktur'); end; with dm.ado_jual1 do begin a := 0; repeat a:=a+1; until Locate('Faktur','NFJ-0'+IntToStr(a),[]) = False; e1_faktur.Text := 'NFJ-0'+IntToStr(a); e1_nama.Text := ''; end; e1_brg.Text := ''; end; procedure TF_jual.bt1_saveClick(Sender: TObject); var a,x,y,z,m : integer; begin if (e1_nama.Text='') or (e1_brg.Text='') or (e1_faktur.Text='') or (e1_jml.Text='') or (e1_hrg.Text='') or (e1_tot.Text='') ShowMessage('Terdapat data kosong') else if dm.ado_stok.Locate('Nama',e1_brg.Text,[]) = False then ShowMessage('Data barang '+e1_brg.Text+' tidak ada') else
then
begin with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e1_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; x := StrToInt(FieldValues['Jumlah']); m := StrToInt(FieldValues['Harga']); y := StrToInt(e1_jml.Text); sql.Clear; sql.Add('select * from t_barang'); open; if y > x then ShowMessage('Stok tidak mencukupi') else if m > StrToInt(e1_hrg.Text) then ShowMessage('Harga lebih dari harga beli') else begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e1_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; a := 1; z := x-y; Edit; FieldByName('Jumlah').AsString := IntToStr(z); post; sql.Clear; sql.Add('select * from t_barang'); open; with dm.ado_jual do begin sql.Clear; sql.Add('select * from t_jual'); open; if Locate('Faktur',e1_faktur.Text,[]) = True then begin sql.Clear; sql.Add('select * from t_jual where Faktur = '+QuotedStr(e1_faktur.Text)); open; repeat a := a+1; until Locate('Nomor',IntToStr(a),[]) = False; e1_nomor.Text := IntToStr(a); end; e1_nomor.Text := IntToStr(a); end; with dm.ado_jual1 do begin Append;
FieldByName('Faktur').AsString := e1_faktur.Text; FieldByName('Nomor').AsString := e1_nomor.Text; FieldByName('Nama_pelanggan').AsString := e1_nama.Text; FieldByName('Nama_barang').AsString := e1_brg.Text; FieldByName('Jumlah').AsString := e1_jml.Text; FieldByName('Harga').AsString := e1_hrg.Text; FieldByName('Total').AsString := e1_tot.Text; FieldByName('Tanggal').AsString:= DateToStr(date1.Date); Post; Last; ShowMessage('Data baru telah terdaftar'); bt1_ref.Click; e1_faktur.Text := FieldValues['Faktur']; e1_nama.Text := FieldValues['Nama_pelanggan']; e1_brg.SetFocus; end; end; end; end; end; procedure TF_jual.DBGrid1CellClick(Column: TColumn); var a,b : integer; begin with dm.ado_jual1 do begin if FieldValues['Nomor'] = Null then begin bt1_save.Enabled := True; bt1_edit.Enabled := False; bt1_hapus.Enabled := False; bt1_old.Visible := False; end else begin e1_faktur.Text := FieldValues['Faktur']; e1_nomor.Text := FieldValues['Nomor']; e1_nama.Text := FieldValues['Nama_pelanggan']; e1_brg.Text := FieldValues['Nama_barang']; e1_jml.Text := FieldValues['Jumlah']; e1_hrg.Text := FieldValues['Harga']; e1_tot.Text := FieldValues['Total']; date1.Date := StrToDate(FieldValues['Tanggal']); bt1_save.Enabled := False; bt1_edit.Enabled := True; bt1_hapus.Enabled := True;
bt1_old.Visible := True; with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang where Status = '+QuotedStr('Stok')); open; if Locate('Nama',e1_brg.Text,[])= True then begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e1_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; a := StrToInt(FieldValues['Jumlah']); b := a+StrToInt(e1_jml.Text); sql.Clear; sql.Add('select * from t_barang'); open; e1_grid.Text := IntToStr(b); end else if Locate('Nama',e1_brg.Text,[])= False then begin ShowMessage('Data stok tidak di ketemukan'); bt1_ref.Click; end; end; end; end; end; procedure TF_jual.e1_hrgChange(Sender: TObject); var a,b,c : integer; begin if (e1_jml.Text = '') or (e1_hrg.Text = '') then else begin a := StrToInt(e1_jml.Text); b := StrToInt(e1_hrg.Text); c := a*b; e1_tot.Text := IntToStr(c); end; end; procedure TF_jual.bt1_editClick(Sender: TObject); var bt,a,b,c : integer; begin bt := MessageDlg('Ingin mengedit data dengan Nomor '+e1_nomor.Text,mtConfirmation,[mbYes,mbNo],0);
:
if bt = mrYes then begin with dm.ado_stok do begin a := StrToInt(e1_grid.Text); b := StrToInt(e1_jml.Text); c := a-b; if c < 0 then ShowMessage('Stok tidak mencukupi') else begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; edit; FieldByName('Jumlah').AsString := IntToStr(c); post; sql.Clear; sql.Add('select * from t_barang'); open; with dm.ado_jual1 do begin Edit; FieldByName('Nama_pelanggan').AsString := e1_nama.Text; FieldByName('Nama_barang').AsString := e1_brg.Text; FieldByName('Jumlah').AsString := e1_jml.Text; FieldByName('Harga').AsString := e1_hrg.Text; FieldByName('Total').AsString := e1_tot.Text; FieldByName('Tanggal').AsString:= DateToStr(date1.Date); post; end; ShowMessage('Data telah ter-update'); bt1_ref.Click; end; end; end; end; procedure TF_jual.bt1_hapusClick(Sender: TObject); var bt : integer; begin bt := MessageDlg('Ingin menghapus data dengan nomor '+e1_nomor.Text,mtWarning,[mbYes,mbCancel],0); if bt = mrYes then begin dm.ado_jual1.Delete; with dm.ado_stok do
:
begin sql.Clear; sql.Add('select * from t_stok where Nama = '+QuotedStr(e1_brg.Text)); open; Edit; FieldByName('Jumlah').AsString := e1_grid.Text; post; sql.Clear; sql.Add('select * from t_stok'); open; end; ShowMessage('Data telah terhapus'); bt1_ref.Click; e1_nama.SetFocus; end; end; procedure TF_jual.FormActivate(Sender: TObject); begin AllRefresh(sender); end; procedure TF_jual.e1_cariChange(Sender: TObject); begin if (e1_cari.Text = '') or (box1_cari.Text='') then begin with dm.ado_jual1 do begin First; Filtered := False; end; end else begin with dm.ado_jual1 do begin Filter := box1_cari.Text+' like '+QuotedStr('%'+e1_cari.Text+'%'); Filtered := True; end; end; end; procedure TF_jual.bt1_cetakClick(Sender: TObject); begin F_cetak.QuickRep1.Preview; end; procedure TF_jual.bt2_refClick(Sender: TObject);
var a : integer; begin bt2_save.Enabled := True; bt2_edit.Enabled := False; bt2_hapus.Enabled := False; e2_nomor.Text:= ''; e2_nota.Text := ''; e2_brg.Text := ''; e2_jml.Text := ''; e2_hrg.Text := ''; e2_tot.Text := ''; e2_cari.Text := ''; date2.Date := Now; with dm.ado_beli1 do begin Last; if FieldValues['Nomor']= Null then a:=1 else begin a := StrToInt(FieldValues['Nomor']); repeat a := a+1; until Locate('Nomor',IntToStr(a),[])=False; end; e2_nomor.Text := IntToStr(a) end; with box2_cari.Items do begin box2_cari.Text := ''; Clear; add('Nomor'); add('Nama_barang'); end; end; procedure TF_jual.bt2_saveClick(Sender: TObject); var a,b,c : integer; begin if (e2_nomor.Text='') or (e2_brg.Text='') or (e2_nota.Text='') or (e2_jml.Text='') or (e2_hrg.Text='') or (e2_tot.Text='') ShowMessage('Terdapat data kosong') else begin with dm.ado_beli1 do begin Append; FieldByName('Nomor').AsString := e2_nomor.Text; FieldByName('Nota').AsString := e2_nota.Text; FieldByName('Nama_barang').AsString := e2_brg.Text;
then
FieldByName('Jumlah').AsString := e2_jml.Text; FieldByName('Harga').AsString := e2_hrg.Text; FieldByName('Total').AsString := e2_tot.Text; FieldByName('Tanggal').AsString:= DateToStr(date2.Date); post; Last; end; with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang where Status = '+QuotedStr('Stok')); open; if Locate('Nama',e2_brg.Text,[])=True then begin sql.Clear; SQL.Add('select SUM(Jumlah) from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; e2_temp.Text := FieldValues['Expr1000']; a := StrToInt(e2_temp.Text); b := StrToInt(e2_jml.Text); c := a+b; sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; Edit; FieldByName('Harga').AsString := e2_hrg.Text; FieldByName('Jumlah').AsString := IntToStr(c); post; end else if Locate('Nama',e2_brg.Text,[]) = False then begin Append; FieldByName('Nama').AsString := e2_brg.Text; FieldByName('Harga').AsString := e2_hrg.Text; FieldByName('Jumlah').AsString := e2_jml.Text; FieldByName('Status').AsString := 'Stok'; post; end; ShowMessage('Data baru telah terdaftar'); bt1_ref.Click; bt2_ref.Click; e2_nota.Text := dm.ado_beli1.FieldValues['Nota']; e2_brg.SetFocus; end;
end; end; procedure TF_jual.bt2_editClick(Sender: TObject); var bt,a,b,c : integer; begin bt := MessageDlg('Ingin mengedit data dengan Nomor : '+e2_nomor.Text,mtConfirmation,[mbYes,mbNo],0); if (e2_nomor.Text='') or (e2_brg.Text='') or (e2_nota.Text='') or (e2_jml.Text='') or (e2_hrg.Text='') or (e2_tot.Text='') then ShowMessage('Terdapat data kosong') else begin if bt = mrYes then begin with dm.ado_beli1 do begin edit; FieldByName('Nota').AsString := e2_nota.Text; FieldByName('Nama_barang').AsString := e2_brg.Text; FieldByName('Jumlah').AsString := e2_jml.Text; FieldByName('Harga').AsString := e2_hrg.Text; FieldByName('Total').AsString := e2_tot.Text; FieldByName('Tanggal').AsString:= DateToStr(date2.Date); post; end; with dm.ado_stok do begin a := StrToInt(e2_temp.Text); b := StrToInt(e2_jml.Text); c := a+b; sql.Clear; sql.Add('select * from t_barang where (Nama = '+QuotedStr(e2_brg.Text) +') and (Status = '+QuotedStr('Stok')+')'); open; edit; FieldByName('Harga').AsString := e2_hrg.Text; FieldByName('Jumlah').AsString := IntToStr(c); post; sql.Clear; sql.Add('select * from t_barang'); open; ShowMessage('Data telah ter-update'); bt2_ref.Click; end; end; end; end;
procedure TF_jual.bt2_hapusClick(Sender: TObject); var bt : integer; begin bt := MessageDlg('Ingin menghapus data dengan nomor '+e2_nomor.Text,mtWarning,[mbYes,mbCancel],0); if bt = mrYes then begin dm.ado_beli1.Delete; with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; Edit; FieldByName('Jumlah').AsString := e2_temp.Text; post; sql.Clear; sql.Add('select * from t_stok'); open; end; ShowMessage('Data telah terhapus'); bt2_ref.Click; e2_brg.SetFocus; end; end; procedure TF_jual.DBGrid2CellClick(Column: TColumn); var a,b : integer; begin with dm.ado_beli1 do begin if FieldValues['Nomor'] = Null then begin bt2_save.Enabled := True; bt2_edit.Enabled := False; bt2_hapus.Enabled := False; end else begin e2_nota.Text := FieldValues['Nota']; e2_nomor.Text := FieldValues['Nomor']; e2_brg.Text := FieldValues['Nama_barang']; e2_jml.Text := FieldValues['Jumlah']; e2_hrg.Text := FieldValues['Harga']; e2_tot.Text := FieldValues['Total'];
:
date3.Date := StrToDate(FieldValues['Tanggal']); bt2_save.Enabled := False; bt2_edit.Enabled := True; bt2_hapus.Enabled := True; with dm.ado_stok do begin if Locate('Nama',e2_brg.Text,[])= True then begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; a := StrToInt(FieldValues['Jumlah']); b := a-StrToInt(e2_jml.Text); sql.Clear; sql.Add('select * from t_barang'); open; if a < 1 then ShowMessage('Stok barang kosong') else e2_temp.Text := IntToStr(b); end else if Locate('Nama',e2_brg.Text,[])= False then begin ShowMessage('Data stok tidak di ketemukan'); bt2_ref.Click; end; end; end; end; end; procedure TF_jual.e2_hrgChange(Sender: TObject); var a,b,c : integer; begin if (e2_jml.Text = '') or (e2_hrg.Text = '') then else begin a := StrToInt(e2_jml.Text); b := StrToInt(e2_hrg.Text); c := a*b; e2_tot.Text := IntToStr(c); end; end; procedure TF_jual.e2_cariChange(Sender: TObject); begin if (e2_cari.Text = '') or (box2_cari.Text='') then begin
with dm.ado_beli1 do begin First; Filtered := False; end; end else begin with dm.ado_beli1 do begin Filter := box2_cari.Text+' like '+QuotedStr('%'+e2_cari.Text+'%'); Filtered := True; end; end; end; procedure TF_jual.bt3_refClick(Sender: TObject); var a : integer; begin bt3_old.Visible := False; bt3_save.Enabled := True; bt3_edit.Enabled := False; bt3_hapus.Enabled := False; e3_nomor.ReadOnly := False; e3_faktur.Text := ''; e3_nomor.Text:= ''; e3_brg.Text := ''; e3_nama.Text := ''; e3_hrg.Text := ''; e3_cari.Text := ''; e3_keluhan.Text := ''; date3.Date := Now; with box3_cari.Items do begin box3_cari.Text := ''; Clear; add('Nomor'); add('Nama_barang'); add('Nama_pelanggan'); end; with dm.ado_service1 do begin a := 0; repeat a:=a+1; until Locate('Faktur','NFS-0'+IntToStr(a),[]) = False; e3_faktur.Text := 'NFS-0'+IntToStr(a); e3_nama.Text := ''; end;
end; procedure TF_jual.DBGrid3CellClick(Column: TColumn); begin with dm.ado_service1 do begin if FieldValues['Nomor'] = Null then begin bt3_save.Enabled := True; bt3_edit.Enabled := False; bt3_hapus.Enabled := False; bt3_old.Visible := False; end else begin e3_faktur.Text := FieldValues['Faktur']; e3_nomor.Text := FieldValues['Nomor']; e3_brg.Text := FieldValues['Nama_barang']; e3_nama.Text := FieldValues['Nama_pelanggan']; e3_hrg.Text := FieldValues['Harga']; e3_keluhan.Text := FieldValues['Keluhan']; date3.Date := StrToDate(FieldValues['Tanggal']); bt3_save.Enabled:= False; bt3_edit.Enabled:= True; bt3_hapus.Enabled := True; bt3_old.Visible := True; end; end; end; procedure TF_jual.bt3_saveClick(Sender: TObject); var a : integer; begin a := 1; with dm.ado_service do begin sql.Clear; sql.Add('select * from t_service'); open; if Locate('Faktur',e3_faktur.Text,[])=True then begin sql.Clear; sql.Add('select * from t_service where Faktur = '+QuotedStr(e3_faktur.Text)); open; repeat a := a+1; until Locate('Nomor',IntToStr(a),[]) = False; e3_nomor.Text := IntToStr(a);
end; e3_nomor.Text := IntToStr(a); end; if (e3_faktur.Text='') or (e3_nama.Text='') or (e3_keluhan.Text='') or (e3_nomor.Text='') or (e3_hrg.Text='') or (e3_brg.Text='') then ShowMessage('Terdapat data kosong') else begin with dm.ado_stok do begin sql.Clear; SQL.Add('select * from t_barang where (Nama='+QuotedStr(e2_brg.Text) +') and (Status='+QuotedStr('Service')+')'); open; Append; FieldByName('Nama').AsString := e3_brg.Text; FieldByName('Pelanggan').AsString := e3_nama.Text; FieldByName('Status').AsString := 'Service'; post; end; with dm.ado_service1 do begin Append; FieldByName('Faktur').AsString := e3_faktur.Text; FieldByName('Nomor').AsString := e3_nomor.Text; FieldByName('Nama_pelanggan').AsString := e3_nama.Text; FieldByName('Nama_barang').AsString := e3_brg.Text; FieldByName('Harga').AsString := e3_hrg.Text; FieldByName('Keluhan').AsString := e3_keluhan.Text; FieldByName('Tanggal').AsString:= DateToStr(date3.Date); post; Last; bt3_ref.Click; e3_faktur.Text := FieldValues['Faktur']; e3_nama.Text := FieldValues['Nama_pelanggan']; end; ShowMessage('Data baru telah terdaftar'); e3_brg.SetFocus; end; end; procedure TF_jual.bt3_editClick(Sender: TObject); var bt : integer; begin
bt
:=
MessageDlg('Ingin mengedit data dengan Nomor '+e3_nomor.Text,mtConfirmation,[mbYes,mbNo],0); if bt = mrYes then begin with dm.ado_service1 do begin Edit; FieldByName('Nama_pelanggan').AsString := e3_nama.Text; FieldByName('Nama_barang').AsString := e3_brg.Text; FieldByName('Harga').AsString := e3_hrg.Text; FieldByName('Keluhan').AsString := e3_keluhan.Text; FieldByName('Tanggal').AsString:= DateToStr(date3.Date); post; ShowMessage('Data telah ter-update'); bt3_ref.Click; end; end; end; function AwalBulan(Date: TDatetime): TDatetime; var Year,Month,Day : Word; begin DecodeDate(Date,Year,Month,Day); Result := EncodeDate(Year,Month,1); end; function AkhirBulan(Date: TDatetime): TDatetime; var Year,Month,Day : Word; begin DecodeDate(Date,Year,Month,Day); Month := Month+1; if Month = 12 then begin Year := Year+1; Month := 1; end; Result := EncodeDate(Year,Month,1) - 1; end; procedure TF_jual.bt4_pil1Click(Sender: TObject); var a : integer; begin with dm.ado_jual do begin sql.Clear; sql.Append('Select SUM(Total) from t_jual where (Tanggal >= #'
:
+DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; if FieldValues['Expr1000'] = Null then e4_jual.Text := '0' else e4_jual.Text := FieldValues['Expr1000']; if e4_jual.Text = '' then e4_jual.Text := '0'; a := StrToInt(e4_jual.Text); sql.Clear; sql.Append('Select * from t_jual where (Tanggal >= #' +DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; e4_jual.Text := FormatFloat('#,###',a); F_cetak.QR1_total.Caption := e4_jual.Text; F_cetak.QR1.Preview; sql.Clear; sql.Append('Select * from t_jual'); open; end; end; procedure TF_jual.bt4_refClick(Sender: TObject); begin e4_jual.Text := ''; e4_service.Text := ''; end; procedure TF_jual.bt3_hapusClick(Sender: TObject); var bt : integer; begin bt := MessageDlg('Ingin menghapus data dengan nomor '+e3_nomor.Text,mtWarning,[mbYes,mbCancel],0); if bt = mrYes then begin dm.ado_service1.Delete; ShowMessage('Data telah terhapus'); bt3_ref.Click; e3_nama.SetFocus; end; end; procedure TF_jual.TombolAtas(Sender: TObject); begin AllRefresh(sender); if sender = bt0_1 then TabSheet1.Show else if sender = bt0_2 then TabSheet2.Show else if sender = bt0_3 then TabSheet3.Show
:
else if sender = bt0_4 then TabSheet4.Show; end; procedure TF_jual.AllRefresh(Sender: TObject); begin bt1_ref.Click; bt2_ref.Click; bt3_ref.Click; bt4_ref.Click; end; procedure TF_jual.Exit1Click(Sender: TObject); begin if sender = Penjualan1 then bt0_1.Click else if sender = Pembelian1 then bt0_2.Click else if sender = Service1 then bt0_3.Click else if sender = Laporan1 then bt0_4.Click else if sender = About1 then ShowMessage('CV. Nur Abadi') else if sender = Exit1 then Application.Terminate else if sender = LogOut1 then begin Hide; F_login.Show; F_login.e_nama.SetFocus; end; end; procedure TF_jual.FormClose(Sender: TObject; var Action: TCloseAction); begin F_login.Show; F_login.e_nama.SetFocus; end; procedure TF_jual.bt4_pil2Click(Sender: TObject); var b : integer; begin with dm.ado_service do begin sql.Clear; sql.Add('Select SUM(Harga) from t_service where (Tanggal >= #' +DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; if FieldValues['Expr1000'] = Null then e4_service.Text := '0' else e4_service.Text := FieldValues['Expr1000']; if e4_service.Text = '' then e4_service.Text := '0'; b := StrToInt(e4_service.Text); e4_service.Text := FormatFloat('#,###',b); sql.Clear;
sql.Add('Select * from t_service where (Tanggal >= #' +DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; F_cetak.QR2_total.Caption := e4_service.Text; F_cetak.QR2.Preview; sql.Clear; sql.Add('Select * from t_service'); open; end; end; procedure TF_jual.e3_cariChange(Sender: TObject); begin if (e3_cari.Text = '') or (box3_cari.Text='') then begin with dm.ado_service1 do begin First; Filtered := False; end; end else begin with dm.ado_service1 do begin Filter := box3_cari.Text+' like '+QuotedStr('%'+e3_cari.Text+'%'); Filtered := True; end; end; end; procedure TF_jual.bt2_cetakClick(Sender: TObject); begin F_cetak.QuickRep2.Preview; end; procedure TF_jual.bt3_CetakClick(Sender: TObject); begin F_cetak.QuickRep3.Preview; end; procedure TF_jual.BitBtn1Click(Sender: TObject); begin if e1_faktur.Text = '' then begin with dm.ado_jual do
begin sql.Clear; sql.Add('select * from t_jual'); open; ShowMessage('Pilih faktur yang akan di cetak'); end; end else begin with dm.ado_jual do begin sql.Clear; sql.Add('select SUM(Total) from t_jual where '+QuotedStr(e1_faktur.Text)); open; e1_cek3.Text := FieldValues['Expr1000']; F_cetak.QR_TOT.Caption := '+FormatFloat('#,###',StrToInt(e1_cek3.Text)); xxx := e1_cek3.Text; Button11Click(sender); F_cetak.QR_tgl.Caption := 'Tanggal : '+DateToStr(Now); end; with dm.ado_jual1 do begin Filter := 'Faktur = '+QuotedStr(e1_faktur.Text); Filtered := True; F_cetak.QR_fak.Caption := e1_faktur.Text; F_cetak.QR_bil.Caption := Memo1.Lines.Strings[0]+'rupiah.'; F_cetak.QuickRep4.Preview; Last; Filtered := False; end; end; end; procedure TF_jual.e1_brgKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then e1_jml.SetFocus; end; procedure TF_jual.e2_jmlKeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then key := #0; end; procedure TF_jual.e1_brgChange(Sender: TObject); var x,y : integer; begin
Faktur
=
'Rp.
if e1_brg.Text='' then begin Lab_01.Caption := ''; Lab_02.Caption := ''; end else begin with dm.ado_stok do begin sql.Clear; sql.Add('select * from t_barang where Status = '+QuotedStr('Stok')); open; if Locate('Nama',e1_brg.Text,[]) = True then begin sql.Clear; sql.Add('select * from t_barang where (Nama='+QuotedStr(e1_brg.Text) +') and (Status='+QuotedStr('Stok')+')'); open; x := StrToInt(FieldValues['Jumlah']); y :=StrToInt(FieldValues['Harga']); if x <= 0 then begin Lab_01.Caption := 'kosong'; Lab_02.Caption := ''; end else begin Lab_01.Caption := 'Ada '+IntToStr(x); Lab_02.Caption := 'Rp.'+IntToStr(y); end; sql.Clear; sql.Add('select * from t_barang'); open; end else begin Lab_01.Caption := 'kosong'; Lab_02.Caption := ''; end; end; end; end; procedure TF_jual.BitBtn2Click(Sender: TObject); begin if e3_faktur.Text = '' then begin with dm.ado_service do begin sql.Clear; sql.Add('select * from t_service'); open; ShowMessage('Pilih faktur yang akan di cetak'); end; end else begin with dm.ado_service do begin
sql.Clear; sql.Add('select SUM(Harga) from t_service where '+QuotedStr(e3_faktur.Text)); open; e3_cetak.Text := FieldValues['Expr1000']; xxx := e3_cetak.Text; Button11Click(sender); F_cetak.QR_TOT5.Caption := '+FormatFloat('#,###',StrToInt(e3_cetak.Text)); F_cetak.QR_tgl5.Caption := 'Tanggal : '+DateToStr(Now); end; with dm.ado_service1 do begin Filter := 'Faktur = '+QuotedStr(e3_faktur.Text); Filtered := True; F_cetak.QR_fak5.Caption := e3_faktur.Text; F_cetak.QR_bil5.Caption := Memo1.Lines.Strings[0]+'rupiah.'; F_cetak.QuickRep5.Preview; Last; Filtered := False; end; end; end; procedure TF_jual.Button1Click(Sender: TObject); var a : integer; begin with dm.ado_beli do begin sql.Clear; sql.Append('Select SUM(Total) from t_beli where (Tanggal >= #' +DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; if FieldValues['Expr1000'] = Null then e4_beli.Text := '0' else e4_beli.Text := FieldValues['Expr1000']; if e4_beli.Text = '' then e4_beli.Text := '0'; a := StrToInt(e4_beli.Text); sql.Clear; sql.Append('Select * from t_beli where (Tanggal >= #' +DateToStr(AwalBulan(date4.Date))+'#) and (Tanggal <= #' +DateToStr(AkhirBulan(date4.Date))+'#)'); open; e4_beli.Text := FormatFloat('#,###',a); F_cetak.QR3_total.Caption := e4_beli.Text; F_cetak.QR3.Preview; sql.Clear;
Faktur
=
'Rp.
sql.Append('Select * from t_beli'); open; end; end; procedure TF_jual.Button11Click(Sender: TObject); var jml,i,a,b : integer; z,x,y,v,m : string; begin jml := length(xxx); if jml > 9 then memo1.Lines.Clear else begin for i:= 1 to jml do begin a := (jml-i) mod 3; y := MidStr(xxx,i,1); b := StrToInt(y); //aturan digit if (a=1) and (b=0)then m:='' else if (a=2) and (b=0) then m:='' else if (jml-i=6) and (b=0) then m := '' else if (a=1) then m:='puluh ' else if (a=2) then m:='ratus ' else if (jml-i)=6 then m:='juta ' else if (jml-i)=3 then m:='ribu ' else if (jml-i)=0 then m:='' else m:= ''; //bilangan sebutan if (b=1) and (a=0) then z := 'satu ' else if b=1 then z := 'se' else if b=2 then z := 'dua ' else if b=3 then z := 'tiga ' else if b=4 then z := 'empat ' else if b=5 then z := 'lima ' else if b=6 then z := 'enam ' else if b=7 then z := 'tujuh ' else if b=8 then z := 'delapan ' else if b=9 then z := 'sembilan ' else z := ''; x := x+z+m; end; if RightStr(x,8)= 'ta ribu ' then SetLength(x, Length(x)-5); Memo1.Lines.Clear;
Memo1.Lines.Add(x); jml := length(Memo1.Text); x := ''; i := 1; while i<= jml do begin v := MidStr(Memo1.Text,i,1); y := MidStr(Memo1.Text,i,10); if (y='sepuluh sa') then begin v:= 'sebelas ';i:=i+12; end; if (y='sepuluh du') then begin v:= 'dua belas ';i:=i+11; end; if (y='sepuluh ti') then begin v:= 'tiga belas ';i:=i+12; end; if (y='sepuluh em') then begin v:= 'empat belas ';i:=i+13; end; if (y='sepuluh li') then begin v:= 'lima belas ';i:=i+12; end; if (y='sepuluh en') then begin v:= 'enam belas ';i:=i+12; end; if (y='sepuluh tu') then begin v:= 'tujuh belas ';i:=i+13; end; if (y='sepuluh de') then begin v:= 'delapan belas ';i:=i+15; end; if (y='sepuluh se') then begin v:= 'sembilan belas ';i:=i+16; end; i:=i+1; x:= x+v; end; SetLength(x, Length(x)-1); Memo1.Lines.Clear; Memo1.Lines.Add(x); end; end; procedure TF_jual.About1Click(Sender: TObject); var c : char; i : integer; s1,s2,s3,b1,b2,b3,z1,z2,z3 : string; begin s1 := 'XXy¨¤¡£™«¡Xˆ ¦Ÿ§¤™ ™¦X|™¬™' ; s2 := 'XXXXX‹ ª®¡› Xœ™¦X‚™¤Xz ¤¡' ; s3 := 'XXXXX¨™œ™X{ŽfX†-ªXyš™œ¡XXX' ; for i := 1 to 26 do
begin b1 := MidStr(s1,i,1); b2 := MidStr(s2,i,1); b3 := MidStr(s3,i,1); c := b1[1]; z1 := z1 + char(ord(c)+200); c := b2[1]; z2 := z2 + char(ord(c)+200); c := b3[1]; z3 := z3 + char(ord(c)+200); end; ShowMessage(z1+#13#10+z2+#13#10+z3); end; procedure TF_jual.Bar1Click(Sender: TObject); begin f_brg.bt_pesanan.Click; F_brg.ShowModal; end; procedure TF_jual.bt1_oldClick(Sender: TObject); begin bt1_save.Enabled := True; bt1_edit.Enabled := False; bt1_hapus.Enabled := False; bt1_old.Visible := False; e1_brg.Text := ''; e1_jml.Text := ''; e1_hrg.Text := ''; e1_tot.Text := ''; e1_brg.SetFocus; end; procedure TF_jual.bt3_oldClick(Sender: TObject); begin e3_brg.Text := ''; e3_hrg.Text := ''; e3_keluhan.Text := ''; e3_brg.SetFocus; bt3_save.Enabled := True; bt3_edit.Enabled := False; bt3_hapus.Enabled := False; bt3_old.Visible := False; end; procedure TF_jual.BitBtn3Click(Sender: TObject);
begin f_brg.bt_pesanan.Click; F_brg.ShowModal; end; procedure TF_jual.BitBtn4Click(Sender: TObject); begin F_cetak.QRK_tgl.Caption := DateToStr(Now); F_cetak.QRK.preview; end; end. unit u_cetak; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, QuickRpt, QRCtrls; type TF_cetak = class(TForm) QuickRep1: TQuickRep; TitleBand1: TQRBand; DetailBand1: TQRBand; SummaryBand1: TQRBand; QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRLabel1: TQRLabel; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel; QRLabel6: TQRLabel; QRLabel7: TQRLabel; QRLabel8: TQRLabel; QRLabel9: TQRLabel; QuickRep2: TQuickRep; TitleBand2: TQRBand; DetailBand2: TQRBand;
SummaryBand2: TQRBand; QRLabel10: TQRLabel; QRLabel11: TQRLabel; QRDBText8: TQRDBText; QRDBText9: TQRDBText; QRDBText10: TQRDBText; QRDBText12: TQRDBText; QRDBText13: TQRDBText; QRDBText14: TQRDBText; QRLabel12: TQRLabel; QRLabel13: TQRLabel; QRLabel14: TQRLabel; QRLabel15: TQRLabel; QRLabel16: TQRLabel; QRLabel17: TQRLabel; QuickRep3: TQuickRep; TitleBand3: TQRBand; DetailBand3: TQRBand; SummaryBand3: TQRBand; QRLabel18: TQRLabel; QRLabel19: TQRLabel; QRDBText11: TQRDBText; QRDBText15: TQRDBText; QRDBText16: TQRDBText; QRDBText17: TQRDBText; QRDBText18: TQRDBText; QRDBText19: TQRDBText; QRLabel20: TQRLabel; QRLabel21: TQRLabel; QRLabel22: TQRLabel; QRLabel23: TQRLabel; QRLabel24: TQRLabel; QRLabel25: TQRLabel; QuickRep4: TQuickRep; TitleBand4: TQRBand; DetailBand4: TQRBand; SummaryBand4: TQRBand; QRShape1: TQRShape; QRLabel26: TQRLabel; QRLabel27: TQRLabel; QRLabel28: TQRLabel; QRLabel29: TQRLabel; QRDBText20: TQRDBText; QRDBText21: TQRDBText; QRDBText22: TQRDBText; QRDBText23: TQRDBText;
QRShape2: TQRShape; QRShape3: TQRShape; QRShape4: TQRShape; QRShape5: TQRShape; QRShape6: TQRShape; QRShape7: TQRShape; QRShape8: TQRShape; QR_TOT: TQRLabel; QRLabel30: TQRLabel; QRLabel31: TQRLabel; QR_tgl: TQRLabel; QRDBText24: TQRDBText; QR_fak: TQRLabel; QRShape9: TQRShape; QRLabel33: TQRLabel; QuickRep5: TQuickRep; QRBand1: TQRBand; QRShape10: TQRShape; QRLabel34: TQRLabel; QRLabel35: TQRLabel; QRLabel36: TQRLabel; QRLabel38: TQRLabel; QRLabel39: TQRLabel; QR_tgl5: TQRLabel; QR_fak5: TQRLabel; QRBand2: TQRBand; QRDBText25: TQRDBText; QRDBText26: TQRDBText; QRDBText28: TQRDBText; QRShape11: TQRShape; QRShape12: TQRShape; QRShape14: TQRShape; QRShape15: TQRShape; QRBand3: TQRBand; QRShape17: TQRShape; QRShape18: TQRShape; QR_TOT5: TQRLabel; QRLabel43: TQRLabel; QR1: TQuickRep; QRBand4: TQRBand; QRLabel37: TQRLabel; QRLabel40: TQRLabel; QRLabel42: TQRLabel; QRLabel44: TQRLabel; QRLabel45: TQRLabel; QRLabel46: TQRLabel;
QRLabel47: TQRLabel; QRLabel48: TQRLabel; QRLabel49: TQRLabel; QRBand5: TQRBand; QRDBText27: TQRDBText; QRDBText30: TQRDBText; QRDBText31: TQRDBText; QRDBText32: TQRDBText; QRDBText33: TQRDBText; QRDBText34: TQRDBText; QRDBText35: TQRDBText; QRBand6: TQRBand; QRLabel50: TQRLabel; QR2: TQuickRep; QRBand7: TQRBand; QRLabel51: TQRLabel; QRLabel52: TQRLabel; QRLabel53: TQRLabel; QRLabel54: TQRLabel; QRLabel55: TQRLabel; QRLabel56: TQRLabel; QRLabel57: TQRLabel; QRLabel58: TQRLabel; QRBand8: TQRBand; QRDBText37: TQRDBText; QRDBText38: TQRDBText; QRDBText39: TQRDBText; QRDBText40: TQRDBText; QRDBText41: TQRDBText; QRDBText42: TQRDBText; QRBand9: TQRBand; QR1_total: TQRLabel; QR2_total: TQRLabel; QRLabel60: TQRLabel; QR3: TQuickRep; QRBand10: TQRBand; QRLabel59: TQRLabel; QRLabel61: TQRLabel; QRLabel62: TQRLabel; QRLabel63: TQRLabel; QRLabel64: TQRLabel; QRLabel65: TQRLabel; QRLabel66: TQRLabel; QRLabel67: TQRLabel; QRBand11: TQRBand; QRDBText36: TQRDBText;
QRDBText43: TQRDBText; QRDBText44: TQRDBText; QRDBText45: TQRDBText; QRDBText46: TQRDBText; QRDBText47: TQRDBText; QRBand12: TQRBand; QRLabel68: TQRLabel; QR3_total: TQRLabel; QRDBText48: TQRDBText; QRLabel69: TQRLabel; QRDBText49: TQRDBText; QRLabel70: TQRLabel; QRDBText50: TQRDBText; QRLabel71: TQRLabel; QRDBText29: TQRDBText; QRLabel72: TQRLabel; QRShape13: TQRShape; QRLabel41: TQRLabel; QR_bil5: TQRLabel; QRLabel32: TQRLabel; QRShape16: TQRShape; QRShape19: TQRShape; QRShape20: TQRShape; QRShape21: TQRShape; QR_bil: TQRLabel; QRLabel80: TQRLabel; QRLabel81: TQRLabel; QRLabel82: TQRLabel; QRLabel83: TQRLabel; QRLabel84: TQRLabel; QRK_tgl: TQRLabel; private { Private declarations } public { Public declarations } end; var F_cetak: TF_cetak; implementation uses u_dm, u_jual; {$R *.dfm} end.
