APLIKASI PEMBELIAN JENIS PLASTIK DENGAN MENGGUNAKAN BORLAND DELPHI 7

APLIKASI PEMBELIAN JENIS PLASTIK DENGAN MENGGUNAKAN BORLAND DELPHI 7 (Studi Kasus Pada CV. Indolatief)

Disusun Oleh : Setiajid 204091002588

PROGRAM STUDI TEKNIK INFORMATIKA FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2010 M / 1431 H


Disusun Oleh : SETIAJID 204091002588

PROGRAM STUDI TEKNIK INFORMATIKA FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2010 M / 1431 H i

Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7 (Studi Kasus Pada CV. Indolatief)

SETIAJID 204091002588

Skripsi Sebagai Salah Satu Syarat Untuk Memperoleh Gelar Sarjana Komputer

PROGRAM STUDI TEKNIK INFORMATIKA FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI SYARIF HIDAYATULLAH JAKARTA 2010 M / 1431 H

ii


Skripsi Sebagai Salah Satu Syarat Untuk Memperoleh Gelar Sarjana Kmputer Pada Fakultas Sain dan Teknologi Universitas Islam Negeri Jakarta Syarif Hidayatullah

Oleh : Setiajid 204091002588

Menyetujui,

Pembimbing I

Pembimbing II

Herlino Nanang, MT

Zainuddin Bey Fananie, M.Sc

NIP. 19731209 250501 1 002

Mengetahui, Ketua Program Studi Teknik Informatika

Yusuf Durrachman, MIT NIP. 19710522 200604 1 002

iii

PENGESAHAN UJIAN

Skripsi berjudul “Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7 (Studi Kasus Pada CV. Indolatief)”. Yang ditulis oleh SETIAJID, NIM 204091002588 telah diuji dan dinyatakan lulus dalam sidang Munaqosah Fakultas Sains dan Teknologi Universitas Islam Negeri Jakarta pada tanggal 3 Agustus 2010. Skripsi ini telah diterima sebagai salah satu syarat untuk memperoleh gelar sarjana strata satu (S!) Program Studi Teknik Informatika.

Menyetujui : Penguji I

Penguji II

Viva Arifin, MMSI

Andrew Fiade, M.Kom

NIP. 19730210 200604 2 001

NIP. 1982811 20091201 2 004

Pembimbing I

Pembimbing II

Zainuddin Bey Fananie, M.Sc

Herlino Nanang, MT NIP. 19731209 250501 1 002

Mengetahui, Ketua Program Studi Teknik Informatika

Dekan

Ketua

Fakultas Sains dan Teknologi

Program Studi Teknik Informatika

DR. Syopiansyah Jaya Putra, M.Sis NIP. 19680117 200112 1 001

Yusuf Durrachman, MIT NIP. 19710522 200604 1 002

iv

PERNYATAAN DENGAN INI SAYA MENYATAKAN BAHWA SKRIPSI INI DENGAN STUDI KASUS PADA CV. INDOLATIEF BENAR – BENAR HASIL KARYA SENDIRI YANG BELUM PERNAH DIAJUKAN SEBAGAI SKRIPSI ATAU KARYA ILMIAH PADA PERGURUAN TINGGI ATAU LEMBAGA MANAPUN.

Jakarta, 3 Agustus 2010

Setiajid 2040910025588

v

ABSTRAK

SETIAJID (204091002588), Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7 (Studi Kasus Pada CV. Indolatief). Dibimbing oleh Bapak Herlino Nanang MT dan Bapak Zainuddin Bey Fananie M. Sc. Pengolahan data di suatu perusahaan adalah suatu permasalahan yang dapat dikatakan penting karena penyimpanan data yang tidak teratur, pencarian data yang lambat akan sangat merepotkan yang dalam hal ini akan cukup menyita banyak waktu yang seharusnya tidak terbuang percuma begitu saja. Permasalahan pengolahan data ini sebenarnya dapat di atasi dengan solusi yaitu dengan membuat suatu perangkat lunak yang dibuat sedemikian rupa untuk membantu menyelesaikan masalah secara cepat, tepat guna dan efisien . Hasil pengujian yang dilakukan di CV. INDOLATIEF membuktikan bahwa dengan adanya sistem informasi dan perangkat lunak pengolahan data Perdagangan Daur Ulang Sampah Plastik ini dapat menyelesaikan permasalahan yang ada dengan baik. Kata Kunci : Delphi, Aplikasi, Pembelian Jenis Plastik V Bab + xviii Halaman + 94 halaman + 76 Gambar + 15 Tabel

vi

KATA PENGANTAR Syukur Alhamdulillah penulis panjatkan kehadirat Allah SWT, telah terlaksananya penelitian di CV. Indolatief dalam rangka penulisan skripsi yang menghasilkan skripsi dengan judul : “Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7 (Studi Kasus Pada CV. Indolatief)”. Dalam kesempatan ini, izinkan saya sebagai penulis mengucapkan banyak terima kasih kepada : 1.

DR. Syopiansyah Jaya Putra, M.Sis, selaku Dekan Fakultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta.

2.

Bapak Yusuf Durrachman, MT, selaku Ketua Program Studi Teknik Informatika dan Ibu Viva Arifin, M.MSI, selaku Sekretaris Program Studi Teknik Informatika serta sebagai penguji skripsi.

3.

Bapak Herlino Nanang, MT dan Bapak Zainuddin Bey Fananie, M.Sc selaku dosen pembimbing yang telah memberikan waktu dan perhatiannya dalam penyusunan skripsi ini.

4.

Bapak Andrew Fiade, M.Kom selaku penguji yang telah menyediakan waktu dan perhatiannya dalam siding dan revisi.

5.

Bapak Abdul Latief selaku perwakilan perusahaan dalam memberikan data – data yang diperlukan.

6.

Ayahanda Kidino dan Ibunda Siti Asiah yang senantiasa memberikan dukungan baik moral, materil, dan spiritual selama menyelesaikan skripsi ini.

7.

Adik – adikku tersayang yaitu Retno Utari, Endang Listiani dan Dian Jayanti serta sepupuku Prada.Ghandik Irawan dari Batalion 9 Kavaleri yang telah mendukung dan memberikan doanya.

8.

Adiria, Anton Budiwan, Alya Agustina, Ari Kristianto, Ayu Khairani, Desty Widiati Kurnianingsih, Mirwan Nurjaya, Muhammad Agus Syarifuddin, Muhammad Qadhavi, Muhammad Syah Reza, Nur Shadrina, Purwanti, Rahmat Mulya, Wangsa Dipraja, Yayan Pebriana, Yazidanyastuti, dan sahabat – sahabat lainnya yang dapat terlalu banyak bila penulis sebutkan satu

vii

persatu yang selalu ada dalam tawa – sedihku selama awal perkuliahan sampai akhir penulisan skripsi ini. 9.

Zulfakar TS, Ruhiat, Hendis R, Eli Syafrial sahabat-sahabat sejati ku dunia akhirat yang telah mendukung aku sejak SMA hingga Kuliah.

10. Rekan – rekan mahasiswa/i UIN Syarif Hidayatullah angkatan 2004, 2005, 2006, 2007, 2008, dan 2009.

Jakarta, 3 Agustus 2010

Setiajid 204091002588

viii

DAFTAR ISI Halaman Halaman Judul ................................................................................................i Halaman Keterangan Judul...........................................................................ii Lembar Pengesahan Pembimbing.................................................................iii Lembar Pengesahan Ujian ……... ................................................................iv Lembar Peryataan............................................................................................v Abstrak …………............................................................................................vi Kata Pengantar .............................................................................................. vii Daftar Isi ........................................................................................................ ix Daftar Gambar .............................................................................................. xiv Daftar Tabel ................................................................................................... xvii

BAB I PENDAHULUAN 1.1 Latar Belakang Masalah ................................................................. 1 1.2 Rumusan Masalah............................................................................ 2 1.3 Batasan Masalah .............................................................................. 3 1.4 Tujuan dan Manfaat Penelitian ........................................................ 4 1.4.1 Tujuan Penelitian.................................................................... 4 1.4.2 Manfaat Penelitian.................................................................. 4 1.5 Metodologi Penelitian...................................................................... 5 1.5.1 Metodologi Pengumpilan Data Dan Informasi ................... 5 15.2 Metodologi Pengembangan Sistem ...................................... 6 1.6 Sistematika Penulisan ...................................................................... 7

BAB II LANDASAN TEORI 2.1 Definisi Perdagangan ...................................................................... 9 2.1.1 Definisi Pembelian ................................................................ 9 2.1.2 Definisi Penjualan .................................................................. 9 2.1.3 Definisi Inventory .................................................................. 10 2.2 Basis Data ....................................................................................... 10

ix

2.3 Borland Delphi ................................................................................ 11 2.4 Microsoft Access 2003 ................................................................... 12 2.4.1 Pengertian Microsoft Access 2003 ........................................ 12 2.4.2 Komponen Microsoft Access 2003 ....................................... 12 2.5 Metodologi Pengembangan Sistem ............................................... 13 2.6 Model Perancangan Sistem ........................................................... 14 2.6.1 Data Flow Diagram (DFD)..................................................... 14 2.6.2 Entity Relationship Diagram (ERD)....................................... 16 2.6.3 Normalisasi ............................................................................ 19 2.6.4 Data Dictionary (Kamus Data) .............................................. 20 2.6.5 Flow Chart ............................................................................. 21 2.7 Desain Perancangan Sistem ............................................................ 24 2.7.1 Desain Data ............................................................................ 24 2.7.2 Desain Arsitektur ................................................................... 24 2.7.3 Desain Interface...................................................................... 25 2.7.4 Desain Prosedural .................................................................. 25 2.8 Metode Pengumpulan Data ............................................................ 25 2.9 Literatur Sejenis .............................................................................. 27

BAB III METODELOGI PENELITIAN 3.1 Metode Pengumpulan Informasi Dan Data ................................... 29 3.2 Metode Pengembangan Sistem ....................................................... 31 3.3 Analisa Kebutuhan ......................................................................... 35 3.4 Perancangan Sistem ........................................................................ 36

BAB IV ANALISIS PERANCANGAN 4.1 Gambaran Umum Perusahaan ........................................................ 37 4.1.1 Profil CV.Indolatief ............................................................... 37 4.1.2 Visi dan Misi CV.Indolatief .................................................. 37 4.1.3 Struktur Organisasi CV.Indolatief ......................................... 37 4.1.4 Fungsi dan Tugas ................................................................... 37

x

4.2 Perancangan Perangkat Lunak ........................................................ 40 4.2.1 Analisa Sistem ....................................................................... 41 4.2.1.1 Analisa Sistem Lama ................................................ 41 4.2.1.2 Analisa Sistem Usulan .............................................. 46 4.2.1.3 Kegiatan-Kegiatan dari Sistem ................................. 47 4.2.2 Perancangan Diagram Arus Data .......................................... 48 4.2.2.1 Perancangan Diagram Konteks ................................. 48 4.2.2.2 Perancangan Data Flow Diagram (DFD) .................. 50 4.2.2.2.1 Data Flow Diagram Level 1 ..................... 50 4.2.2.2.2 Data Flow Diagram Level 2 Proses 1 Manipulasi Data Sistem Pembelian .......... 51 4.2.2.2.3 Data Flow Diagram Level 2 Proses 2 Manipulasi Data Sistem Gudang .............. 52 4.2.2.2.4 Data Flow Diagram Level 2 Proses 3 Manipulasi Data Sistem Penjualan ........... 53 4.2.2.2.5 Data Flow Diagram Level 2 Proses 4 Pembuatan Daftar dan Faktur, Di Dalam Sistem Perdagangan ................. 54 4.2.2.2.5.1 Data Flow Diagram level 2 Proses 4 Pembuatan Daftar dan Faktur, Di Dalam Sistem Pembelian .. 54 4.2.2.2.5.2 Data Flow Diagram level 2 Proses 4 Pembuatan Daftar, Di Dalam Sistem Gudang ...... 55 4.2.2.2.5.3 Data Flow Diagram level 2 Proses 4 Pembuatan Daftar dan Faktur, Di Dalam Sistem Penjualan ... 55 4.2.2.2.6 Data Flow Diagram Level 2 Proses 5 Pembuatan Laporan Daftar dan Faktur,

xi

Di Dalam Sistem Perdagangan ................. 56 4.2.2.2.6.1 Data Flow Diagram level 2 Proses 4 Pembuatan Laporan Daftar dan Faktur, Di Dalam Sistem Pembelian .. 56 4.2.2.2.6.2 Data Flow Diagram level 2 Proses 4 Pembuatan Laporan Daftar, Di Dalam Sistem Gudang ...... 57 4.2.2.2.6.3 Data Flow Diagram level 2 Proses 4 Pembuatan Laporan Daftar dan Faktur, Di Dalam Sistem Penjualan ... 57 4.2.2.2.7 Data Flow Diagram Level 2 Proses 6 Proses Hitung Beli .................................... 58 4.2.2.2.8 Data Flow Diagram Level 2 Proses 7 Proses Hitung Jual .................................... 58 4.2.3 Software Desain .................................................................... 58 4.2.3.1 Desain Database ........................................................ 58 4.2.3.2 Normalisasi ............................................................... 59 4.2.3.3 Perancangan E-RD .................................................... 62 4.2.3.4 Perancangan Database ............................................... 64 4.2.3.4.1 Perancangan Kamus Data ........................... 64 4.2.3.5 Rancangan Menu ....................................................... 68 4.2.3.6 Rancangan BaganAlir ............................................... 69 4.2.3.7 Rancangan Tampilan Aplikasi .................................. 73 4.2.4 Coding .………………………………………………………92 4.2.5 Testing Program……………………………………………...92 4.2.6 Maintenance …………………………………………………92

xii

BAB V KESIMPULAN DAN SARAN 5.1 Kesimpulan ...................................................................................... 93 5.2 Saran ................................................................................................. 93

DAFTAR PUSTAKA LAMPIRAN

xiii

DAFTAR GAMBAR Hal Gambar 2.1

Simbol DFD............................................................................ 15

Gambar 2.2

One to One.............................................................................. 18

Gambar 2.3

Many to One ........................................................................... 19

Gambar 2.4

Many to Many ........................................................................ 19

Gambar 2.5

Desain Perancangan Sistem.................................................... 20

Gambar 3.1

Paradigma SDLC (Waterfall) ................................................. 32

Gambar 4.1

Struktur Organisasi ................................................................. 38

Gambar 4.2

Diagram Alir Sistem Lama..................................................... 44

Gambar 4.3

Diagram Alir Sistem Baru ...................................................... 46

Gambar 4.4

Diagram Konteks.................................................................... 49

Gambar 4.5

DFD Leve1 1 .......................................................................... 50

Gambar 4.6

DFD Level 2 Proses 1 Manipulasi Data Sistem Pembelian ... 51

Gambar 4.7

DFD Level 2 Proses 2 Manipulasi Data Sistem Gudang........ 52

Gambar 4.8

DFD Level 2 Proses 3 Manipulasi Data Sistem Penjualan .... 53

Gambar 4.9

DFD Level 2 Proses 4 Pembuatan Faktur Pembelian, Data Supplier, Daftar Retur Pembelian, Daftar Pemesanan Barang, dan Daftar Hutang, Di Dalam Sistem Pembelian................................................... 54

Gambar 4.10

DFD Level 2 Proses 4 Pembuatan Daftar Data Barang, Di Dalam Sistem Inventory .................................................... 55

Gambar 4.11

DFD Level 2 Proses 4 Pembuatan Faktur Penjualan, Daftar Data Relasi, dan Daftar Piutang, Di Dalam Sistem Penjualan ................................................... 55

Gambar 4.12

DFD Level 2 Proses 5 Pembuatan Lap. Faktur Pembelian, Lap. Data Supplier, Lap. Daftar Retur Pembelian, Lap. Daftar Pemesanan Barang, dan Lap. Daftar Hutang, Di Dalam Sistem Pembelian................................................... 56

Gambar 4.13

DFD Level 2 Proses 5 Pembuatan Lap. Daftar Barang, Di Dalam Sistem Gudang ....................................................... 57

xiv

Gambar 4.14

DFD Level 2 Proses 5 Pembuatan Lap. Faktur Penjualan, Lap. Daftar Data Relasi, dan Lap. Daftar Piutang, Di Dalam Sistem Penjualan ................................................... 57

Gambar 4.15

DFD Level 2 Proses 6 Proses Hitung Beli ............................ 58

Gambar 4.16

DFD Level 2 Proses 7 Proses Hitung Jual ............................. 58

Gambar 4.17

Data Perdagangan ................................................................... 59

Gambar 4.18

Normalisasi ke Satu (1NF) ..................................................... 60

Gambar 4.19

Normalisasi MasterBarang ..................................................... 61

Gambar 4.20

Normalisasi Penjualan ............................................................ 61

Gambar 4.21

Normalisasi Pembelian ........................................................... 61

Gambar 4.22

Normalisasi Supplier ............................................................. 62

Gambar 4.23

Normalisasi Relasi.................................................................. 62

Gambar 4.24

Entity Relationship Diagram (ERD) ...................................... 64

Gambar 4.25

Rancangan Menu .................................................................... 69

Gambar 4.26

Flow Chart Menu Utama ........................................................ 70

Gambar 4.27

Flowchart Menu Report.......................................................... 72

Gambar 4.28

Tampilan Form Menu Utama ................................................. 73

Gambar 4.29

Tampilan Pencarian Database ................................................ 74

Gambar 4.30

Form Log In............................................................................ 74

Gambar 4.31

Form Editor Data Jenis Barang .............................................. 74

Gambar 4.32

Form Editor Data Lokasi ........................................................ 75

Gambar 4.33

Form Editor Data Jenis Supplier ............................................ 75

Gambar 4.34

Form Editor Data Jenis Relasi ................................................ 76

Gambar 4.35

Form Master Data Barang ...................................................... 76

Gambar 4.36

Form Master Data Supplier .................................................... 77

Gambar 4.37

Form Master Data Relasi........................................................ 77

Gambar 4.38

Form Transaksi Pembelian ..................................................... 78

Gambar 4.39

Form Transaksi Penjualan ...................................................... 78

Gambar 4.40

Form Transaksi Hutang .......................................................... 79

Gambar 4.41

Form Transaksi Piutang.......................................................... 79

Gambar 4.42

Form Transaksi Pemesanan Barang ....................................... 89

xv

Gambar 4.43

Form Transaksi Retur Pembelian ........................................... 80

Gambar 4.44

Form Pencarian....................................................................... 81

Gambar 4.45

Form Laporan Faktur Pembelian............................................ 81

Gambar 4.46

Form Laporan Faktur Penjualan ............................................. 81

Gambar 4.47

Form Laporan Daftar Pemesanan Barang .............................. 82

Gambar 4.48

Form Laporan Daftar Retur Pembelian .................................. 82

Gambar 4.49

Form Laporan Daftar Hutang ................................................. 82

Gambar 4.50

Form Laporan Daftar Piutang................................................. 82

Gambar 4.51

Form Laporan Daftar Barang ................................................. 82

Gambar 4.52

Form Laporan Daftar Data barang.......................................... 83

Gambar 4.53

Form Laporan Daftar Data Relasi .......................................... 83

Gambar 4.54

Form User Account ................................................................ 83

Gambar 4.55

Report Data Barang ................................................................ 84

Gambar 4.56

Report Daftar Data Relasi....................................................... 84

Gambar 4.57

Report Faktur Pembelian ........................................................ 85

Gambar 4.58

Report Faktur Penjualan ......................................................... 85

Gambar 4.59

Report Daftar Hutang ............................................................. 86

Gambar 4.60

Report Daftar Piutang............................................................. 86

Gambar 4.61

Report Daftar Pemesanan Barang........................................... 87

Gambar 4.62

Report Daftar Retur Pembelian .............................................. 87

Gambar 4.63

Report Laporan Daftar Faktur Pembelian Harian................... 88

Gambar 4.64

Report Laporan Daftar Faktur Pembelian Bulanan ................ 88

Gambar 4.65

Report Laporan Daftar Faktur Penjualan Harian.................... 89

Gambar 4.66

Report Laporan Daftar Faktur Pembelian Bulanan ................ 89

Gambar 4.67

Report Laporan Daftar Retur Pembelian Harian .................... 90

Gambar 4.68

Report Laporan Daftar Hutang Harian ................................... 90

Gambar 4.69

Report Laporan Daftar Hutang Bulanan................................. 91

Gambar 4.70

Form Informasi About ............................................................ 91

xvi

DAFTAR TABEL Halaman Tabel 2.1 Notasi Deskripsi isi untuk kamus data .......................................... 21 Tabel 4.1 Perangkat Lunak Pendukung ........................................................ 42 Tabel 4.2 Perangkat Keras Pendukung ......................................................... 43 Tabel 4.3 Tabel Barang ................................................................................ 64 Tabel 4.4 Tabel Jenis barang ......................................................................... 64 Tabel 4.5 Tabel Lokasi .................................................................................. 64 Tabel 4.6 Tabel Supplier ............................................................................... 65 Tabel 4.7 Tabel Jenis Supplier ...................................................................... 65 Tabel 4.8 Tabel Relasi................................................................................... 65 Tabel 4.9 Tabel Jenis Relasi.......................................................................... 66 Tabel 4.10 Tabel Pembelian ............................................................................ 66 Tabel 4.11 Tabel Hutang ................................................................................. 66 Tabel 4.12 Tabel Penjualan ............................................................................. 67 Tabel 4.13 Tabel Piutang................................................................................. 67 Tabel 4.14 Tabel Retur Pembelian .................................................................. 67 Tabel 4.15 Tabel Pemesanan Barang .............................................................. 68

xvii

1

BAB I PENDAHULUAN

1.1 Latar Belakang Dalam suatu perusahaan pengolahan informasi yang baik menjadi suatu kebutuhan yang dapat dikatakan penting, baik perusahaan–perusahaan swasta maupun di lembaga–lembaga pemerintahan yang ada di Indonesia. Pengelolaan informasi yang baik menjadi amat sangat penting saat produktifitas, sistem kerja dan kinerja menurun, adanya pengelolaan informasi yang baik sedikit atau banyak dapat membantu meningkatkan

produktifitas dan kinerja sistem dalam suatu

organisasi. Dalam hal pengelolaan suatu informasi dibutuhkan suatu perangkat lunak yang mendukung sistem informasi tersebut dan diakses dengan sistem komputerisasi. Kebutuhan akan pelayanan informasi yang cepat, tepat dan akurat merupakan hal yang sangat penting dalam pengaksesan suatu perangkat lunak sistem informasi. Pada CV. Indolatief , suatu perusahaan swasta dalam bidang wiraswasta ini berusaha menerapkan suatu sistem informasi perangkat lunak yang akan membantu proses pengolahan data perdagangan daur ulang sampah plastik. Pengolahan data perdagangan daur ulang sampah plastik ini terdiri dari layanan transaksi seperti: daftar dan jumlah stock barang, penjualan dan pembelian, mengetahui tanggal dan waktu pemesanan atau nama-nama dan alamat pelanggan dan suplier, dan lain-lain, sehingga mempermudah dalam penyampaian laporan

2

dari pihak keuangan kepada pimpinan atau pihak terkait. Pencatatan dan pengolahan Pembelian, Penjualan, Transaksi Pembelian dan Penjualan. Serta laporan data pembelian dan penjualan serta rekapitulasi ini masih dilakukan dengan menggunakan tulisan tangan. Hal ini dapat dikatakan kurang efektif dan efisien, dikarenakan sulit untuk mencatat dan menghitung banyaknya jenis pengeluaran yang ada, banyaknya jumlah barang, maupun besarnya jumlah harga. Banyaknya jumlah laporan yang ada dapat mengakibatkan penjualan dan pembelian mengalami kesulitan untuk mengelola dan menghitung transaksi secara cepat, tepat, dan efisien. Serta masih bersifat manual dan tidak memiliki jaringan sehingga waktu pengerjaan atau waktu pencarian data memerlukan waktu yang lumayan lama. Agar permasalahan tersebut di atas dapat diatasi maka penulis mencoba membangun “Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7” Study Kasus CV.Indolatief. Agar lebih efisien dan efektif dalam pengerjaan ataupun pencarian data yang bersangkutan dan memudahkan penyampaian data-data yang dibutuhkan oleh pihak-pihak yang terkait.

1.2 Rumusan Masalah Pada tugas akhir ini, masalah yang penulis rumuskan adalah sebagai berikut : 1. Bagaimana mengetahui transaksi kerja yang terjadi antara pelanggan dan perusahaan?

3

2. Bagaimana menghilangkan kendala dalam penyampaian laporan hasil transaksi pembelian dan penjualan kepada atasan? Oleh karena itu penulis tertarik untuk merancang suatu aplikasi perangkat lunak untuk mengimplementasikan permasalahan-permasalahan di CV. Indolatief secara efisien dan otomatis.

1.3

Batasan Masalah Agar materi pembahasan lebih spesifik dan tidak melebar, permasalahan

tidak terlalu meluas terhadap penelitian yang dilakukan, maka penulis membatasi masalah sebagai berikut: a. Software yang digunakan dalam perancangan aplikasi ini adalah penerimaan, pengeluaran dan rekaptulasi. Perdaganggan Daur Ulang Sampah Plastik. Ini menggunakan bahasa pemrograman Borland Delphi 7.0 dan Microsoft Access sebagai databasenya. b. Sistem informasi yang dipakai menggunakan sistem informasi manajemen. c. Perancangan perangkat lunak hanya proses transaksi penerimaan dan pengeluaran yaitu: transaksi pengeluaran dan pembelian, adanya retur pembelian dari supplier, mengetahui nama-nama dan alamat suplier serta relasi, report dari setiap transaksi, serta report harian dan bulanan. d. Perancangan perangkat lunak tidak ada proses retur penjualan atau retur dari relasi. Bagian rekaptulasi hanya mencatat data master daur ulang

4

e. Dalam pengerjaan aplikasi, penulis menggunakan metode SDLC waterfall sampai tahap ke 5 yaitu uji coba (testing).

1.4

Tujuan dan Manfaat Penelitian 1.4.1 Tujuan Penelitian Adapun tujuan penelitian ini adalah : 1. Sebagai sarana untuk mempermudah pengelolaan data pembelian dan penjualan pada CV. Indolatief 2. Mengubah pengelolaan data penjualan dan pembelian yang masih dikelola

dengan

menggunakan

tulisan

tangan

menjadi

terkomputerisasi. 3. Menyediakan interface yang dapat mempermudah user dalam mengolah data pembelian dan memperoleh informasi yang berkaitan dengan kegiatan pembelian tersebut. 4. Menyediakan sarana untuk admin dalam proses pengolahan dan penampilan data barang, supplier dan transaksi pembelian dan penjualan barang dari basis data. 1.4.2 Manfaat Penelitian 1. Bagi Perusahaan a) Perangkat lunak ini diharapkan dapat membantu CV. Indolatief dalam pengolahan dan transaksi data keuangan.

5

b) Penelitian ini diharapakan menjadi bahan masukan bagi CV. Indolatief

untuk

meningkatkan

proses

pengolahan

sistem

informasi terkomputerisasi. c) Menyajikan dan memvisualisasikan data yang akurat serta mempermudah pekerjaan.

2. Bagi Penulis a) Meningkatkan kecepatan dalam mengakses data yang dibutuhkan. b) Memberikan keakuratan data dan mengetahui data transaksi yang uptodate. c) Mempercepat dalam proses pembuatan laporan hasil transaksi yang akan diberikan ke atasan. d) Melengkapi salah satu syarat untuk menyelesaikan jejang pendidikan strata 1 (S1), pada jurusan Teknik Informatika UIN Syarif Hidayatullah.

1.5 Metodologi Penelitian 1.5.1. Metodologi Pengumpulan Data Dan Informasi 1. Studi Pustaka Penulis mencoba mendapatkan sebuah informasi yang berkaitan dengan judul skripsi melalui diktat perkuliahan, buku penunjang dan situs – situs yang berkaitan.

6

2. Studi Lapangan a) Observasi Yaitu penulis mengadakan pengamatan langsung untuk mengetahui sistem perdaganggan yang sedang berjalan, mulai dari pembelian hinggal penjualan. b) Wawancara Penulis akan berkomunikasi antara dua orang atau lebih untuk memperoleh informasi yang menyangkut pembangunan aplikasi. Dalam hal ini adalah Bapak H. Latief selaku pemilik dan Bapak Wangsa selaku bagian pemasaran. 3. Studi Literatur Sejenis Penulis mencari dan mendapatkan skripsi sebelumnya yang sejenis untuk perbandingan sebagai masukan atau referensi pada sistem yang diusulkan, untuk bisa mencapai hasil yang maksimal dalam perancangan aplikasi yang di buat. Agar memiliki kompleksitas yang sesuai dengan kebutuhan observasi pada CV.Indolatief sebagai sarana penelitian.

7

1.5.2. Metodologi Pengembangan Sistem Penulis mengembangkan penelitian ini menggunakan metodologi perancangan dengan pendekatan terstruktur dengan metode SDLC yang terdiri dari 6 step yang ini adalah metode SDLC waterfall (Pressman, 2002: 37-38), yaitu : 1. Rekayasa Perangkat Lunak (Software Engineering) 2. Analisa Sistem (System Analysis) 3. Perancangan Perangkat Lunak (Software Design) 4. Pengkodean (Coding) 5. Uji Coba (Testing) 6. Perawatan (Maintenance)

1.6 Sistematika Penulisan Dalam penyusunan skripsi ini penulis menyajikan tulisan menjadi beberapa bab, yaitu : BAB I : PENDAHULUAN Bab ini terdiri dari latar belakang masalah, rumusan masalah, batasan masalah, tujuan dan manfaat penelitian, waktu dan tempat penelitian, metodologi penelitian, dan sistematika penulisan. BAB II : LANDASAN TEORI Pada bagian ini menjabarkan teori-teori yang menyangkut pembahasan yang akan dibahas antara lain pengertian pembelian, penjualan dan inventory, definisi basis data, perancangan basis data,

8

entity relational, normalisasi, bagan alir, diagram konteks, data flow diagram, kamus data, Borland Delphi, dan Access 2003. BAB III : METODOLOGI PENELITIAN Bab ini memuat metodologi penelitian yang berisi urutan proses penelitian dan teknik-teknik yang dilakukan dalam melakukan penelitian, meliputi uraian tentang objek dan tempat penelitian. BAB IV : ANALISIS DAN PERANCANGAN Bab ini Pada bagian ini dilakukan analisis kebutuhan dan perancangan perangkat lunak dengan menggunakan software borland delphi 7.0 dan database Access 2003, Client Server, antara lain penjualan dan pembelian, mengetahui tanggal dan waktu pemesanan atau nama-nama dan alamat pelanggan dan suplier, dan lain-lain. BAB V : PENUTUP Bab ini pada beberapa kesimpulan yang dapat diambil dari hasil pembuatan perancangan pembelian barang dan saran dari penulis untuk pengembangan selanjutnya.

9

BAB II LANDASAN TEORI

2.1. Definisi Perdagangan Perdagangan adalah

suatu kegiatan jual beli barang, perniagaan dengan

menukarkan suatu alat pembayaran (uang) dengan barang yang akan ditukarkan sampai menemukan kesepakatan harga antara satu orang/instansi/perusahaan dengan banyak orang/instansi/supplier lainnya. Perdagangan dibagi menjadi tiga kategori yaitu pembelian, penjualan, dan inventory. (Bahagia,2006:2)

2.1.1. Definisi Pembelian Pembelian adalah suatu kegiatan yang sifatnya menukarkan suatu alat pembayaran (uang) dengan barang yang akan ditukarkan sampai menemukan suatu kesepakatan harga antara satu orang / instansi / perusahaan dengan banyak orang / instansi / perusahaan / supplier lainnya. (Bahagia,2006:6)

2.1.2. Definisi Penjualan Penjualan adalah suatu usaha yang terpadu untuk mengembangkan rencanarencana strategis yang diarahkan pada usaha pemuasan kebutuhan dan keinginan pembeli, guna mendapatkan penjualan yang menghasilkan laba. (Bahagia,2006:7)

10

2.1.3. Definisi Inventory Salah satu elemen dalam perusahaan yang sangat penting dalam bidang Inventori sangat mempengarui banyak aspek penentu keberhasilan kerja dari perusahaan atau suatu instasi tersebut. Jika inventori dapat di organisir dengan baik, maka di harapkan perusahaan dapat menjalankan semua proses pekerjaanya dengan baik. Terdapat beberapa kendala dalam pengelelolaan inventori, salah satunya adalah apabila perusahaan atau instansi yang mengelola semua aset belum menggunakan sistem informasi dalam hal manipulasi data. “Inventori adalah sumber daya menganggur (idle resources) yang keberadaannya menunggu proses yang lebih lanjut.” (Bahagia. 2006:7)

2.2.

Basis Data Pengertian data dalam sistem terkomputerisasi, menyebutkan bahwa yang

dimaksud dengan data adalah fakta tentang sesuatu di dunia nyata yang dapat direkam dan disimpan pada media komputer. Contoh adalah: Nama, Tanggal Lahir, Alamat, serta Nomor Telepon. Sedangkan pengertian dari basis data sendiri secara umum adalah koleksi dari data-data yang terorganisasi dengan cara sedemikian rupa sehingga data mudah disimpan dan dimanipulasi (diperbaharui, dicari, diolah dengan perhitungan-perhitungan tertentu, serta dihapus). (Adi, 2004:5).

11

1. Jenis data a. Data statis adalah jenis data yang umumnya tidak berubah atau jarang berubah, misalnya identitas nama (orang, organisasi, atau tempat), kodekode nomor dan alamat. b. Data dinamis adalah jenis data yang selalu berubah-ubah baik dalam frekuensi waktu yang singkat (harian) atau yang lama (semesteran) dan lain-lain.

2. Sumber data Berdasarkan sumbernya data dikelompokan menjadi dua yaitu: a. Data internal adalah data yang berasal dari dalam organisasi itu sendiri, yaitu organisasi pusat dan cabang-cabangnya. b. Data eksternal adalah data yang berasal dari sumber-sumber yang berasal dari luar organisasi itu sendiri. (Adi, 2004:5).

2.3.

Borland Delphi Borland Delphi yang untuk selanjutnya disingkat dengan Delphi,

merupakan program aplikasi database yang berbasis Object Pascal dari Borland (Dedi :2006:2). Delphi merupakan bahasa pemrograman berorientasi object (Object Oriented Programming) yang mempunyai cakupan kemampuan yang luas dan sangat canggih. Kita dapat membuat berbagai aplikasi dengan Delphi, termasuk aplikasi untuk mengolah teks, grafik, angka, database, aplikasi web serta aplikasi di bidang lainnya. Secara umum, kemampuan Delphi adalah menyediakan

12

komponen-komponen

dan

bahasa

pemrograman

yang

andal,

sehingga

memungkinkan kita untuk dapat membuat program aplikasi sesuai dengan keinginan kita sendiri, dengan tampilan dan kemampuan yang canggih.

2.4. Microsoft Access. 2.4.1. Pengertian Microsoft Access 2003. Pada program Mocrosoft Access istilah Database dapat diartikan sebagai sekumpulan informasi atau data yang saling berhubungan yang mempunyai topik atau tujuan tertentu. Informasi data yang diolah tersebut disimpan dalam sebuah nama file dengan ekstensi *.mdb (Microsoft Accsess Database). Dalam pengoperasiannya Microsoft Accsess hanya mampu digunakan untuk mengolah satu file database, atau dengan kata lain Microsoft Accsess hanya mampu dugunakan untuk membuka satu file database saja.

2.4.2. Komponen Microsoft Accsess 2003. Microsoft Accsess memiliki beberapa komponen kunci yaitu : 1. Database, mengandung objek-objek yang digunakan untuk mewakili, menyimpan dan mengakses data. 2. Tabel,

menyimpan

baris-baris

atau

record-record

data

dan

hubungannya dengan tabel lain. 3. Query, sebuah objek database yang digunakan untuk menampilkan, menyunting dan menganalisa suatu data dengan cara lain

13

2.5. Metodologi Pengembangan Sistem Model proses SDLC “air terjun (waterfall)” yang melingkupi aktivitasaktivitas sebagai berikut (Pressman, 2002:37) : 1. Rekayasa Perangkat Lunak, pada tahap ini semua data-data yang di perlukan untuk membangun sutau piranti lunak harus di kumpulkan dan di satukan. 2. Analisa Sistem, pada tahap ini semua data yang telah di kumpulkan di analisa dan di fokuskan untuk menghasilkan software yang sesuai. Untuk memahami program yang akan di bangun maka seorang analisis harus mampu mengenali kebutuhan dari itu sendiri seperti fungsi yang di butuhkan, behaviour dan performa yang di tampilkan oleh sistem serta interface yang di gunakan. 3. Desain, yaitu pada tahap ini di fokuskan untuk pembuatan program terutama pada struktur data, bentuk susunan arsitektur dari piranti lunak, interface serta algoritma secara mendetail. 4. Kode, tahap ini desain yang telah di susun pada tahap sebelumnya diterjemahkan dalam bahasa yang dimengerti oleh komputer (bahasa pemrograman). 5. Uji Coba, proses test atau uji coba ini difokuskan pada logika dan algoritma internal dari software untuk meyakinkan bahwa setiap statement pada program sudah sesuai dengan algoritma yang ada. 6. Perawatan, piranti lunak yang sudah bnar-benar jadi dan sudah di gunakan pasti akan mengalami perubahan. Perubahan ini bisa dikarenakan munculnya error, permintaan client untuk menambah fasilitas tambahan pada software.

14

2.6. Model Perancangan Sistem Mendeskripsikan data yang terlibat dalam perangkat lunak dengan menggunakan tools sebagai berikut : 2.6.1. Data Flow Diagram (DFD) Pada saat informasi mengalir melalui perangkat lunak, dia dimodifikasi oleh suatu deretan transformasi. Diagram aliran data/data flow diagram (DFD) adalah sebuah teknik grafis yang menggambarkan aliran informasi dan transformasi yang diaplikasikan pada saat data bergerak dari input menjadi output (Pressman,2002:364). Untuk membaca suatu DFD kita harus memahami dulu elemen-elemen yang menyusun suatu DFD. Elemen yang menyusun suatu DFD yaitu : 1. Proses (Process) 2. Proses merupakan Kesatuan Luar (External Entity) Sesuatu yang berada diluar sistem, tetapi ia memberikan data kedalam sistem atau memberikan data dari sistem. External entity tidak termasuk bagian dari sistem. 3. Arus Data (Data Flow) Arus data merupakan tempat mengalirnya informasi. Arus data ini mengalir diantara proses, data store dan menunjukan arus data dari data berupa masukan untuk sistem atau hasil proses dari sistem. apa yang dikerjakan oleh sistem. Proses dapat mengolah data atau aliran data masuk menjadi aliran data keluar.

15

4. Simpanan Data (Data Store) Simpanan data merupakan tempat penyimpanan data pengikat data yang ada dalam sistem. (Lajamudin 2005: 67-70)

Berikut ini adalah perbedaan simbol DFD yang digunakan oleh beberapa orang ahli perancang sistem.

Gane/Sarson

Yourdon/De Marco

Entitas Eksternal

Entitas Eksternal

Keterangan Entitas eksternal, dapat berupa orang/unit terkait yang berinteraksi dengan sistem tetapi diluar sistem

Orang, unit yang mempergunakan Proses

Proses

atau melakukan transformasi data. Komponen fisik tidak diidentifikasikan.

Aliran data

Aliran data

Aliran data dengan arah khusus dari sumber ke tujuan

16

Penyimpanan data atau tempat data

Data Store Data Store

direfer oleh proses.

Gambar 2.1. Simbol DFD yang sering digunakan (Lajamudin 2005: 72)

Penggambaran DFD disusun berdasarkan tingkatan atau level dari atas ke bawah. Adapun tingkatan dalam DFD (Lajamudin 2005: 64) diantaranya : 1. Diagram Konteks, adalah diagram yang terdiri dari suatu proses dan menggambarkan

ruang

lingkup

suatu

sistem.

Diagram

konteks

merupakan level tertinggi dari DFD yang menggambarkan seluruh input ke sistem atau output dari sistem. 2. Diagram

Nol

(Overview

Diagram),

adalah

diagram

yang

menggambarkan proses dari dataflow diagram. Diagram nol memberikan pandangan secara menyeluruh mengenai sistem yang ditangani, menunjukkan tentang fungsi-fungsi utama atau proses yang ada, aliran data, dan eksternal entity. 3. Diagram Rinci, adalah diagram yang menguraikan proses apa yang ada dalam diagram zero diagram level diatasnya.

2.6.2. Entity Relationship Diagram (ERD) ERD adalah suatu model jaringan yang menggunakan susunan data yang disimpan dalam sistem secara abstrak. ERD juga menguntungkan bagi profesional sistem, karena ERD memperlihatkan hubungan antar data store

17

pada DFD. Beberapa notasi yang menjadi dasar dalam ERD, antara lain : 1. Entitas Entitas (Entity) adalah sesuatu apa saja yang ada di dalam sistem, nyata maupun abstrak dimana data tersimpan atau dimana terdapat data. Entitas diberi nama dengan kata benda dan dapat dikelompokan dalam empat jenis nama yaitu orang, benda, lokasi, kejadian. Entity digambarkan dengan sebuah bentuk persegi panjang. (Lajamudin 2005: 143) Simbol :

Nama Setiajid

2. Relasi Relasi (Relationship) adalah hubungan alamiah yang terjadi antara entitas. Pada umumnya penghubung (Relationship) diberi nama dengan kata kerja dasar, sehingga memudahkan untuk melakukan pembacaan relasinya (bisa dengan kalimat aktif atau kalimat pasif). Relasi digambarkan dengan sebuah bentuk belah ketupat dihubungkan dengan dua bentuk persegi panjang. (Lajamudin 2005: 143). Simbol :

Relasi

3. Atribut Secara umum atribut adalah sifat atau karakteristik dari tiap entitas maupun tiap relationshi. Maksudnya, atribut adalah sesuatu yang menjelaskan apa sebenarnya yang dimaksud entitas maupun relationship, sehingga sering dikatakan atribut adalah elemen dari setiap entitas dan relationship. Ada dua jenis atribut : a). Identifier (key) digunakan untuk menentukan suatu entity secara unik (primary key).

18

b). Descriptor (nonkey attribute) digunakan untuk menspesifikan karakteristik dari suatu entity yang tidak unik. (Lajamudin 2005:147).

4. Kardinalitas Kardinalitas (Cardinality), menunjukkan jumlah maksimum tupel yang dapat berelasi dengan entitas yang lain. Kardinalitas relasi merujuk kepada hubungan maksimum yang terjadi dari entitas yang satu ke entitas yang lain dan begitu juga sebaliknya. Terdapat tiga macam kardinalitas (Lajamudin, 2005:147-148) : a. One to One menunjukan tingkat hubungan satu ke satu dinyatakan dengan satu kejadian pada entitas pertama, hanya mempunyai satu hubungan dengan satu kejadian pada entitas yang kedua dan sebaliknya. Simbol :

Nama entitas

1

Nama relasi

1

Nama entitas

Gambar 2.2. One to One (Sumber : Lajamudin, 2005:147)

b. One to Many atau Many to One menunjukan tingkat hubungan satu kebanyak adalah

sama dengan

banyak ke satu, tergantung dari arah mana hubungan tersebut dilihat. Simbol :

19

Nama entitas

1

Nama relasi

M

Nama entitas

Gambar 2.3. Many to One (Sumber : Lajamudin, 2005:148)

c. Many to Many Tingkat hubungan banyak ke banyak terjadi

jika tiap kejadian pada

semua entitas akan mempunyai banayak hubungan dengan kejadian pada entitas lainnya, Simbol :

Nama entitas

M

Nama relasi

M

Nama entitas

Gambar 2.4. Many to Many (Sumber : Lajamudin, 2005:148)

2.6.3. Normalisasi Normalisasi merupakan sebuah teknik dalam logical desain sebuah basis data/database, teknik pengelompokkan atribut dari suatu relasi sehingga membentuk struktur relasi yang baik. 1. Bentuk Tidak Normal (Unnormalized Form) Bentuk ini merupakan kumpulan data yang akan direkam, tidak ada keharusan mengikuti format tertentu, bisa saja data tidak lengkap atau terduplikasi. (Ladjamudin, 2005:176)

20

st

2. Normal Tahap Pertama (1 Normal Form) Pada tahap ini dilakukan penghilangan beberapa group elemen yang berulang agar menjadi satu harga tunggal yang berinteraksi diantara setiap baris pada satu tabel. (Ladjamudin 2005:178) nd

3. Normal Tahap Kedua (2 Normal Form) Bentuk normal tahap kedua memungkinkan suatu relasi memiliki composite key, yaitu relasi dengan primary key yang terdiri dari dua atau lebih atribut. Suatu relasi yang memiliki single atribut untuk primary keynya secara otomatis pada akahirnya menjadi 2-NF. (Ladjamudin, 2005:179) nd

4. Normal Tahap Ketiga (2 Normal Form)

2.6.4. Data Dictionary (Kamus Data) Kamus data selalu diimplementasikan sebagai bagian dari "piranti desain dan analisis tersetruktur", meskipun format kamus bervariasi dari peranti satu ke piranti yang lain (Pressman,2002:388), sebagian besar berisi informasi sebagai berikut : d. Name adalah nama sebenarnya dari data atau item kontrol, penyimpan data, atau entitas eksternal. e.

Aliasi adalah nama lain yang digunakan untuk entri pertama.

f.

Where-used / how-used adalah suatu daftar dari proses yang menggunakan data item kontrol dan bagaimana dia digunakan.

g.

Content description adalah suatu notasi untuk mempresentasikan isi.

21

h.

Suplementary information adalah informasi lain mengenai tipe data, harga preset. Notasi yang digunakan untuk mengemabangkan deskripsi isi, yang

diilustrasikan didalam gambar dibawah ini : Tabel 2.1 Notasi Deskripsi isi untuk kamus data Jenis

Notasi

Arti

=

Terdiri Atas

Urutan

+

Dan

Pilihan

[ | ]

Atau

Pengulangan

{ }n

Pengulangan sebanyak n kali

()

Data optional

**

Pembatas komentar

(Sumber: Pressman, 2002: 389)

2.6.5.

Flowchart Menurut Suyanto (2003:364), sistem flowchart menggambarkan

tahapan

proses

dari

suatu

sistem.

Sedangkan

program

flowchart

menggambarkan urutan-urutan instruksi dari suatu program komputer. 1.

Sistem flowchart, meliputi : a. Simbol untuk input atau output Simbol dokumen yang berupa kertas, misalnya : Hasil print out dan formulir.

22

Simbol disk atau drum yang merupakan direct acces storage untuk input atau output.

Simbol hard disk yang merupakan direct acces storage untuk input atau output.

Simbol pita magnetik yang merupakan sequensial storage untuk input atau output.

Simbol card punch atau card reader untuk input atau output.

Simbol visual display unit atau cathode ray tube sebagai input atau output.

b.

Simbol untuk processing Menggambarkan proses

Proses penggabungan (merge)

23

Proses pemecahan (extract)

Proses pengurutan

Proses secara manual

Proses pemasukan data melalui keyboard

c.

Simbol pembantu Arah data atau arus data Sambungan pada halaman yang sama

Sambungan pada halaman yang berbeda Sambungan komunikasi

2.

Program flowchart Mulai (start) atau selesai (stop) Persiapan

Proses Proses input atau output

24

Keputusan

Subroutine

2.7. Desain Perancangan Sistem

Gambar 2.5. Desain Perancangan Sistem (Pressman, 2002:401) 2.7.1. Desain Data Desain data mentransformasi model domain informasi yang dibuat selama analisis ke dalam struktur data yang akan diperlukan untuk mengimplementasi perangkat lunak. Objek dan hubungan data yang ditetapkan dalam diagram hubungan entitas (ERD) dan isi data detail yang digambarkan di dalam kamus data, menjadi basis bagi aktifitas desain data. (Pressman, 2002:400)

2.7.2. Desain Arsitektur Desain arsitektur menentukan hubungan di antara elemen-elemen struktural utama dari program. Reperesentasi desain tersebut kerangka kerja modular dari sebuah program komputer dapat diperoleh dari model-model

25

analisis dan interaksi subsistem yang ditentukan dalam model analisis. (Pressman, 2002:400).

2.7.3. Desain Interface Desain interface menggambarkan bagaimana perangkat lunak berkomunikasi dalam dirinya sendiri, dengan sistem yang berinteroperasi dengannya, dan dengan manusia yang menggunakannya. Interface menginplementasikan aliran informasi (misal data dan kontrol) dengan demikian, data dan diagram aliran kontrol memberikan informasi yang dibutuhkan bagi interface. (Pressman, 2002:400).

2.7.4. Desain Prosedural Desain prosedural mentransformasi elemen-elemen struktural dari arsitektur program ke dalam suatu deskripsi prosedural dari komponenkomponen perangkat lunak. Informasi yang diperoleh dari (STD) berfungsi sebagai dasar bagi desain prosedural.(Pressman,2002:400).

2.8. Metode Pengumpulan Data Metode pengumpulan data (Sugiyono, 2002) yang umum digunakan dalam suatu penelitian adalah : 1. Studi Pustaka Studi Pustaka Adalah peninjauan kembali pustaka-pustaka yang terkait (review of related literature). Sesuai dengan arti tersebut, suatu tinjauan

26

pustaka berfungsi sebagai peninjauan kembali (review) pustaka (laporan penelitian, dan sebagainya) tentang masalah yang berkaitan tidak selalu harus tepat identik dengan bidang permasalahan yang dihadapi, tetapi termasuk pula yang seiring dan berkaitan (collateral). 2. Studi Lapangan Studi Lapangan adalah salah satu proses kegiatan observasi pengungkapan fakta – fakta dalam proses memperoleh keterangan atau data dengan cara terjun langsung ke lapangan. a.

Observasi merupakan salah satu teknik pengumpulan data yang cukup efektif untuk mempelajari suatu sistem Observasi merupakan pengamatan secara langsung terhadap kegiatan yang sedang berlangsung. Untuk mendapatkan hasil pengamatan yang baik, pengamatan harus dilakukan dalam waktu yang lama serta pengamat harus membiasakan diri untuk tidak mengganggu kewajaran objek yang diamati sehingga hasil pengamatan dapat optimal.

b. Wawancara digunakan untuk mendapatkan data secara langsung dari pihak perusahaan. yang merupakan komunikasi dari seseorang pekerja untuk mendapatkan informasi yang sesuai dengan yang diinginkan. 3.

Studi Literatur Studi Literatur adalah untuk mendapatkan “peta” tentang domain penelitian yang akan dilaksanakan. Peta domain ini sebenarnya berwujud pengetahuan tentang riset-riset yang dilakukan oleh peneliti lain dalam area penelitian

27

kita. Pengetahuan ini tidak hanya berupa pemahaman terhadap riset-riset tersebut, tetapi juga saling-kait yang terbentuk antar riset-riset tadi. Seperti diketahui, sebuah penelitian tidak muncul begitu saja, tetapi ia selalu mencoba menyelesaikan atau menjawab persoalan yang ditinggalkan penelitian sebelumnya. Keterkaitan inilah, yang jika dirangkai secara menyeluruh, menyusun graf yang membentuk “peta” domain penelitian kita.

2.9. Literatur Sejenis Pada Skripsi Ferriyandi Aris Setyawan (2008) ” Sistem Informasi Penjualan Jamu Tradisional Berbasis Client Server” Studi Kasus ”CV. Sumber Abadi” Skripsi ini meiliki Masalah utamanya adalah bagaimana mengetahui transaksi kerja yang terjadi antara pelanggan dan perusahaan, bagaimana menghilangkan kendala dalam penyampaian laporan hasil transaksi kerja antara pelanggan dan perusahaan kepada atasan. Skripsi ini memiliki tujuan merancang dan mengimplementasikan suatu aplikasi perangkat lunak yang handal dan praktis yang dapat digunakan untuk mengolah masuk keluarnya barang secara efisien dan praktis dengan memanfaatkan teknologi yang ada guna mencapai kehandalan sistem. Metode yang di pakai disini terdiri dari metode pengumpulan data dan pengembangan sistem. Metode pengembangan data dilakukan dengan wawancara. Sedangkan metode pengembangan sistem dilakukan dengan System Development Live Cycle (SDLC). Kesimpulan dari skripsi ini adalah Proses dalam pembelian, penjualan, dan inventory yang di lakukan secara berulang-ulang sangat potensial apabila dilakukan dengan komputerisasi karena dapat dilakukan dengan kecepatan

28

prosesnya dan ketelitian yang cukup akurat, efisien dan efektif antara administrasi, inventory dan pimpinan. Pada Skripsi Partono (2009) ” Rekayasa Perangkat Lunak Pembelian dan Penjualan Barang pada Koperasi Karyawan Listrik Negara ” Studi Kasus ”PT. PLN (Persero)” Skripsi ini memiliki Masalah utamanya adalah Sering terlambatnya dalam penyajian informasi stok barang yang mengakibatkan terlambatnya untuk pembelian (order) barang, sehingga barang yang akan dijual tidak ada., Aplikasi yang ada sekarang tidak menyediakan aplikasi keuangan sehingga tidak bisa memberikan laporan rugi-laba. Skripsi ini memiliki tujuan untuk merancang dan mengimplementasikan sistem perangkat lunak pembelian dan penjualan barang dengan menggunakan Visual Basic 6.0 dan SQL Server 2000.. Metode yang di pakai disini terdiri dari metode pengumpulan data dan pengembangan sistem. Metode pengembangan data dilakukan dengan wawancara dan kuisioner. Sedangkan metode pengembangan sistem dilakukan dengan System Development Live Cycle (SDLC). Kesimpulan dari skripsi ini adalah dengan adanya sistem pembelian dan penjualan barang diharapkan dapat memberikan informasi stok barang dengan cepat sehingga dapat menentukan keputusan untuk melakukan pembelian (pemesanan) dengan cepat dan aplikasi perangkat lunak sistem pembelian dan penjualan barang relatif lebih mudah untuk digunakan oleh pengguna (user).

29

BAB III METODOLOGI DAN PENELITIAN

Metodologi yang digunakan oleh penulis dalam pembuatan sistem bidang peminatan ini meliputi dua metode, yaitu metode pengumpulan data dan metodologi pengembangan sistem. 3.1. Metode Pengumpulan Informasi dan Data

Untuk penyusunan skripsi ini, diperlukan data dan informasi yang berkaitan sesuai judul yaitu ”Aplikasi Pembelian Jenis Plastik Dengan Borland Delphi 7” disini penulis melakukan: 1. Studi Pustaka Dalam studi pustaka ini, penulis melakukan pengamatan dari buku-buku dan situs dari internet yang berkaitan dalam penulisan ini untuk menunjang segala aspek yang dibutuhkan dalam pembuatan aplikasi yang sesuai. Bukunya di antara lain : 1. Didik

Dwi

Prasetyo.

2004.

Aplikasi

Database

Client/Server

menggunakan Delphi dan MySQL. Elex Media Komputindo. 2. Roger S. Pressman, Ph.D.2002 Rekayasa Perangkat Lunak. Andi Yogyakarta. 3. Bambang Hariyanto, Ir, MT Sistem Basis Data. Informatika Bandung.

2.

Studi Lapangan Penulis melakukan beberapa hal :

30

a) Observasi Dalam observasi, penulis melihat langsung tempat pengelolaan sampah daur ulang plastik di CV.Indolatief. Penulis melihat dari awal hingga akhir distribusi sampah dari tingkat penerimaan sampai tingkat pengeluaran keuangan dan pengolahan. Dimana penulis melihat jalur keuangan dan manajemen yang kurang tertata dengan rapi dan penempatan barang yang asal-asalan. Observasi dilakukan pada tanggal 10 Februari 2010. b) Wawancara Sedangkan pada wawancara, penulis menanyakan langsung kepada pihak pemilik yaitu Bapak H.latief dan bagian keuangan yaitu Bapak Wangsa. Wawancara pertama kali dilakukan pada tanggal 15 Februari 2010, bertujuan untuk menanyakan sistem yang dibutuhkan guna kepentingan penyimpanan data. Wawancara selanjutnya dilakukan tanggal 25 Februari 2010, bertujuan untuk mendapatkan data dan informasi. c) Literatur Sejenis Penulis mencari dan mendapatkan skripsi sebelumnya yang sejenis untuk perbandingan sebagai masukan atau referensi pada sistem yang di usulkan, untuk bisa mencapai hasil yang maksimal dalam perancangan aplikasi yang di buat. Agar memiliki kompleksitas yang sesuai dengan kebutuhan observasi pada CV.Indolatief sebagai sarana penelitian. Referensi untuk literatur sejenisnya ada pada Bab 2 Sub 10.

31

3. Waktu dan Lokasi Penelitian Waktu penelitian ini dilakukan selama 1 bulan, mulai dari 10 Februari 2010 sampai dengan 10 Maret 2010 dengan lokasi penelitiannya adalah CV. Indolatief Jl. Mad Noer No.2 Jampang-Bogor.

4. Hipotesis Penelitian Hipotesis yang akan digunakan dalam penelitian ini adalah bagaimana cara untuk memudahkan CV.Indolatief dalam perdagangan dan pencaraian informasi mulai dari informasi laporan penjualan sampai pembelian, pencarian data barang sampai data supplier dan relasi.. Pada penelitian ini, penulis akan menggunakan pendekatan pengembangan sistem berbasis client server.

3.2. Metode Pegembangan Sistem Dalam melakukan perancangan sistem ini penulis menggunakan metodologi SDLC (System Development Life Cycle) atau daur hidup pengembangan sistem, bisa juga disebut paradigma air terjun (waterfall). Paradigma ini sangat sistematis dalam urutan proses pembuatan perangkat lunak. Paradigma air terjun (waterfall) dapat digambarkan sebagai berikut :

32

Gambar 3.1. Paradigma SDLC (Waterfall) (Sumber : Pressman, 2002 : 37)

Langkah-langkah paradigma waterfall dapat dijelaskan sebagai berikut : 1. Rekayasa Perangkat Lunak (Software Engineering) Tahapan ini untuk mengetahui secara jelas dasar dan batasan dari masalah yang dihadapi, dan alasan mengapa perangkat lunak yang akan dibuat. Dan tahapan diatas mempunyai beberapa tahapan lagi : a). Merumuskan Masalah. Langkah selanjutnya adalah merumuskan masalah dan menentukan batasan masalah yang akan dikerjakan. Penjelasan tentang perumusan masalah ini telah dijelaskan pada Bab1 Sub 2. b) Menyusun Rencana. Pada tahap ini peneliti akan menyusun rencana, baik jadwal maupun target yang akan dicapai, yang sesuai dengan kemampuan dari peneliti.

33

2. Analisa Sistem (System Analysis) Tujuan dari tahapan ini adalah mempelajari bagaimana menyelesaikan permasalahan-permasalahan yang ada. Hal ini penting dilakukan agar dapat meminimalisasi kesalahan-kesalahan yang mungkin akan terjadi, sehingga pengulangan ke tahap sebelumnya tidak terjadi. Terdapat Bab 4 Sub 2. 2. Perancangan Perangkat Lunak (Software Design) Tahapan ini untuk merancang dan membangun sistem dari perangkat lunak yang akan dibuat untuk dapat menyelesaikan permasalahan yang telah ditentukan. Penulis akan merancang arus data, database, dan antarmuka. Terdapat di Bab 4. 3. Pengkodean (Coding) Dalam

melakukan

pengkodean,

penulis

menggunakan

bahasa

pemrograman Borland Delphi 7.0 dan program aplikasi database Microsoft Access 2003. Terdapat di Lampiran 2. 4. Uji Coba (Testing) Tahap ini memfokuskan pada logika internal perangkat lunak, memastikan semua statement telah diuji, mencari kemungkinan kesalahan, dan memastikan bahwa input akan diproses menjadi output yang sesuai dengan kebutuhan. Pengujian yang dilakukan terhadap sistem informasi yang akan dirancang dengan pengujian Black Box dan White Box Testing ( penulis dalam hal ini menggunakan pengujian Black Box ).

34

a) Black Box Testing adalah metoda pengujian yang memfokuskan pada syarat fungsional dari software yang dibuat. Black Box Testing membolehkan software engineering untuk memperoleh kondisi input yang betul-betul teruji pada semua keadaan yang diinginkan. Black Box Testing bukan merupakan pengujian alternative dari White Box Testing. Mereka saling melengkapi dimana masing-masing test tidak mencakup semua kelas-kelas kesalahan. b) White Box Testing adalah metoda pengujian dengan mengontrol struktur procedure atau fungsi untuk

mendapatkan keadaan yang

teruji. Dengan menggunakan White Box Testing, software engineering akan mendapatkan keadaan yang teruji yaitu : 1. Menjamin semua bagian dalam modul telah diuji minimal sekali. 2. Menguji semua keputusan logika yang bernilai benar atau salah. 3. Manjalankan semua pengulangan pada batasan-batasan yang telah ditentukan dan dalam batasan operasional. 4. Menjalankan internal struktur data untuk meyakinkan bahwa struktur data itu benar. Pengujian Black Box Testing berusaha menemukan kesalahan dalam kategori : fungsi-fungsi yang tidak benar atau hilang, kesalahan antar muka, kesalahan dalam struktur data atau pengaksesan basis data eksternal, kesalahan kinerja dan inisial dan kesalahan terminasi. Pengujian Black Box Testing ini cenderung dilakukan pada tahap akhir pengujian. (Pressman, Edisi V. Hal 459 ).

35

5. Perawatan (Maintenance) Tahapan ini dapat dilaksanakan setelah diberikan kepada user, dan mungkin dapat terjadi perubahan ataupun penambahan fungsi dari perangkat lunak ini. Dengan demikian tahapan ini termasuk aktivitas pengembangan perangkat lunak.

3.3. Analisa Kebutuhan Analisa kebutuhan yang dibutuhkan untuk merancang sistem pengolahan data daur ulang sampah di CV. Indolatief adalah sebagai berikut :

1. Analisa Kebutuhan Sistem Lama atau yang sedang berjalan. Dalam analisis aplikasi pembelian, penjualan dan inventory perdagangan daur ulang sampah plastik yang sedang berjalan saat ini yaitu dengan menggunakan manual, oleh karena itu penulis membuat aplikasi sebagai solusi

pendataan

secara

terkomputersasi

dengan

database

sehingga

memonitoring terhadap inventory gudang dapat dilakukan secara baik. Sehingga keputusan yang diambil terhadap pembelian barang saat ini tidak ada atau 0. 2. Perangkat lunak yang digunakan CV Indolatief : a) Sistem Operasi Windows /XP. b) Microsoft Office 2003. c) Microsof Access 2003. d) Borland Delphi 7.0.

36

3.

Perangkat Keras yang digunakan CV. Indolatief : a) Prosesor minimal Pentium IV 1,8 Ghz. b) RAM minimal 128 Mb. c) Floppy disk 1.44 Mb. d) CD-ROM. e) Keyboard , mouse. f)

Monitor VGA.

g) Printer.

3.4. Perancangan Sistem Pada tahap berikut mengenai perancang sistem pendukung keputusan yang akan dirancang terdiri dari beberapa perancangan yaitu : a) Bagan alir. b) Diagram Konteks. c) Data Flow Diagram. d) Kamus Data. e) Database. f) Sistem Menu. g) Tampilan. Untuk penjelasannya akan dijelaskan lebih rinci pada Bab IV.

37

BAB IV ANALISIS PERANCANGAN

4.1. Gambaran Umum Perusahaan 4.1.1. Profil CV. Indolatief CV. Indolatief merupakan tempat pengumpulan sekaligus tempat pembelian bahan mentah daur ulang sampah dan menjualnya dalam bentuk bahan setengah jadi yang terletak di Jl.Mad Noer No.2 Jampang-Bogor. CV. Indolatief berdiri pada tahun 1990, didirikan oleh Bapak. H. Abdul Latief. Perusahaan ini bergerak dalam bidang pengolahan daur ulang sampah plastik menjadi bahan setengah jadi yang nantinya akan di jual kepada pabrik produksi. Untuk pembelian bahan daur ulang di beli dari supplier-supplier dan dari pihak warga sekitar yang menjualnya.

4.1.2. Visi dan Misi CV. Indolatief a. Visi Mewujudkan pengurangan sampah plastik dan menjaga kelestarian alam yang mampu memberikan kontribusi positif pada pemerintah dan pengembangan bisnis berskala daerah yang efektif dan berdaya saing dibidangnya.

38

b. Misi Terus berupaya untuk maju dan tetap mengembangkan usaha dengan cara

mengurangi beban sampah plastik dan membuka

lapangan pekerjaan.

4.1.3. Struktur Organisasi CV. Indolatief Pimpinan Utama

Keuangan

Pembelian

Kasir

Penjualan

Gudang

Gambar 4.1 Struktur Organisasi (Sumber : Data diolah oleh penulis)

4.1.4. Fungsi dan Tugas 1. Pimpinan Utama

a. Membuat kebijakan yang berhubungan dengan arah dan tujuan perusahaan yang akan dicapai pada masa yang akan datang. b. Mengusahakan

tercapainya

tujuan

perusahaan

secara

maksimal dan seluruh kegiatan tiap - tiap bidang agar tidak terjadi penyimpangan - penyimpangan dalam melaksanakan tugas masing - masing. c. Melakukan rapat koordinasi dan evaluasi setiap bulannya.

39

d. Menyusun rencana strategis bisnis dalam jangka pendek dan jangka panjang. e. Bertanggung jawab terhadap semua bidang didalam struktur organisasi. f. Mengambil keputusan-keputusan strategis dan pertimbanganpertimbangan yang matang dalam meningkatkan kinerja perusahaan. 2. Bagian Pembelian a. Mengenali, mengidentifikasi, dan menganalisa situasi pasar. b. Menerima pesanan selama proses penjualan berlangsung. c. Bertanggung jawab pada pimpinan utama. d. Bertanggung jawab atas pemesanan persediaan barang. e. Membuat order f. Bekerja sama dengan bagian-bagian yang terkait. 3.

Bagian Keuangan a. Bersama staff melaksanakan kegiatan pengelolaan keuangan harian perusahaan. b. Penerimaan kas keuangan. c. Menyimpan pemasukan ke rekening bank. d. Memberikan laporan e. Bertanggung jawab atas pemasukan penjualan barang.

4. Bagian Gudang a. Mencatat setiap penerimaan dan pengeluaran barang

40

b. Berhubungan dengan mitra terkait dengan pengadaan stok barang. c. Mengeluarkan barang dari gudang untuk display ke bagian penjualan ke pabrik/relasi d. Memasukkan barang ke gudang dari pembelian barang. 5. Bagian Penjualan a. Melakukan penjualan barang. b. Bekerja sama dengan bagian terkait. c. Mengatur jumlah barang yang akan di jual. 6. Bagian Kasir a. Melayani transaksi pembelian barang. b. Bertanggung jawab atas keuangan pembelian barang dengan harga yang telah di tentukan.

4.2. Perancangan Perangkat Lunak Perancangan perangkat lunak akan dijelaskan secara terinci melalui alat bantu teknik yang digunakan didalam analisa dan perancangan sistem sebagai berikut : 1. Perancangan Bagan Alir. Pada tahap ini dilakukan perancangan bagan alir usulan yang akan menggambarkan aliran sistem yang akan dirancang.

41

2. Perancangan Diagram Arus Data. Perancangan Diagram Arus Data terdiri dari Perancangan Diagram konteks, dimana gambaran dari bagan alir akan diturunkan kedalam diagram konteks, dan Perancangan Data Flow Diagram yaitu Penurunan dari diagram konteks disebut dengan data flow diagram (DFD). 3. Perancangan Database. Perancangan Database terdiri dari Perancangan Kamus Data, Perancangan kamus data diperlukan untuk mendefinisikan field-field yang digunakan dalam perancangan perangkat lunak system informasi, dan Perancangan Relasi Antar Tabel, yaitu dengan mempresentasikan keterhubungan (relasi) antar table untuk membentuk sebuah basis data. 4. Rancangan Menu. Rancangan Menu terdiri dari Rancangan Bagan Alir dan Rancangan Tampilan Aplikasi.

4.2.1. Analisis Sistem 4.2.1.1. Analisis Sistem Lama Setelah penulis mengamati dan manganalisa terhadap kinerja aplikasi pembelian jenis plastik, masih banyak memiliki kekurangan dan kelemahan, diantaranya : a. Pembuatan

Laporan

tidak

membutuhkan waktu yang lama.

efektif

dan

efisien

karena

42

b. Pengiriman Laporan antara bagian yang satu dengan yang lain mengalami proses yang lama dikarenakan setiap laporan yang dibuat harus di cek satu persatu dikarenakan tidak mempunyai database sendiri-sendiri. c. Pecarian data – data barang yang mengalami kenaikan harga masih menggunakan buku besar pembantu sehingga proses-proses kenaikan harga menjadi lama. Penyebab dari kondisi tersebut antara lain sebagai berikut : Belum adanya aplikasi yang terintegrasi antar Bagian. Pengolahan data seperti proses pencatatan data, dan proses pencarian data masih dalam keadaan manual atau buku besar dan tidak memiliki proses yang setiap data tidak terkoneksi antara satu client dengan client lainnya. Tabel 4.1 Perangkat Lunak Pendukung Nama Sistem Operasi Windows XP Software Borland Delphi 7.0

Database Microsoft Access

Komponen ADOConection

Keterangan Sistem operasi yang bertindak sebagai client/server. Bahasa pemrograman yang dipergunakan untuk membangun perangkat lunak sistem informasi Perdagangan Jamu Tradisional. Database yang berfungsi sebagai database server dipergunakan untuk meletakkan / menyimpan data-data yang dibutuhkan. Komponen tambahan yang menghubungkan aplikasi Delphi dengan Database Microsoft Access

43

Tabel 4.2 Perangkat Keras Pendukung. Nama

Keterangan

4 Unit Komputer

Komputer yang terhubung ke dalam suatu jaringan komputer yang dibagi 1 server dan 3 client.

1 Unit HUB

Berfungsi sebagai media transfer data antara komputer server dan client.

Lan Card

Kartu Jaringan.

Kabel RJ-45

Kabel dan RJ-45

Hard Disk

Hard Disk dipergunakan 40 GB untuk server dan 20 GB untuk client

4 Unit Printer

3 Unit Epson LX-300, 1 Unit Canon HP Deksjet 2466

Diagram alir sistem merupakan diagram yang menunjukan arus pekerjaan secara keseluruhan dari sistem atau mendefinisikan bagian (pelaku proses), proses (manual atau berbasis komputer) dan aliran data (dokumen keluaran dan masukan). Diagram alir sistem ini juga menjelaskan urutan-urutan dari prosedur-prosedur yang terdapat di dalam sistem. Berikut akan digambarkan sistem prosedur pengolahan data pembelian dan penjualan barang yang ada di CV. Indolatief.

44

Supplier

Bag. Administrasi

DataDetail Barang Supplier DataSupplier DataPemesanan BarangSupplier

DataDetail Barang Lap. DataBarang Yangsudahdi cek

Inventory

Pimpinan

Lap. DataBarang Yangsudahdi cek

DataBeli Barang

DataJual Barang Input danCetak (DaftardanLap. StockBarang)

DataRetur Supplier DataUtang

Relasi

DataRelasi DataPemesanan BarangRelasi DataPiutang

Input

Input DaftarData Barang

DaftarData Barang

Lap. DaftarBarang

Lap. DaftarBarang Beli Dan StockBarangBeli

Jual Dan StockBarangJual Proses Pengecekan Barang

Pembuatan FakturdanDaftarBeli

Faktur Pembelian DaftarRetur Penjualan Daftar Utang Daftar Pemesanan Barang DaftarData Supplier

Faktur Pembelian DaftarRetur Penjualan Daftar Utang Daftar Pemesanan Barang DaftarData Supplier

Pembuatan Lap. Beli dan Lap. StockBarangBeli

Lap. DaftarRetur Pembelian Lap. Faktur Pembelian Lap. Daftar Utang Lap. Daftar Pemesanan Barang Lap. DaftarData Supplier Lap. Stock Barang Pembelian

Pembuatan Lap. Jual dan Lap. StockBarangJual

Lap. Faktur Penjualan Lap. Daftar Piutang Lap. DaftarData Relasi Lap. Stock Barang Penjualan

Pembuatan FakturdanDaftarJual

Faktur Penjualan Daftar Piutang DaftarData Relasi

Faktur Penjualan Daftar Piutang DaftarData Relasi Lap. Stock Barang Penjualan

Lap. Stock Barang Pembelian

Gambar 4.2 Diagram Alir Sistem Lama (Sumber : Data diolah oleh penulis)

Lap. Faktur Penjualan Lap. Daftar Piutang Lap. DaftarData Relasi Lap. DaftarRetur Pembelian Lap. Faktur Pembelian Lap. Daftar Utang Lap. Daftar Pemesanan Barang Lap. DaftarData Supplier

45

Sebelum suatu sistem itu kerjakan, umumnya terlebih dahulu dilakukan suatu analisa terhadap sistem yang sedang berjalan. Tanpa adanya analisa terlebih dahulu, maka pembuatan sistem tidak dapat berjalan dengan baik. Analisa tersebut dilakukan dengan cara mengidentifikasikan suatu permasalahan, mengetahui permasalahanpermasalan yang ada dan mengetahui kebutuhan atau keinginan terhadap sistem tersebut. Setelah itu dapat ditarik suatu kesimpulan terhadap sistem yang diinginkan, sehingga sistem tersebut diharapkan akan menjadi suatu sistem yang lebih baik. Dalam analisa sistem pembelian dan penjualan barang yang sedang berjalan yaitu dengan menggunakan cara manual terdapat suatu kekurangan yaitu yang pertama adalah belum bersifat jaringan (personal) sehingga monitoring terhadap gudang (persedian barang) masih dilakukan secara manual. Sehingga keputusan yang diambil terhadap pembelian barang terlambat yang menyebabkan persedian barang tidak ada atau 0. Dan yang kedua adalah data keuangan yang ada tidak bisa memberikan informasi laba-rugi secara tepat dan akurat.

46

4.2.1.2. Analisa Sistem Usulan

Supplier

Bag. Administrasi

Relasi

DataDetail Barang Supplier DataSupplier

Inventory

Pimpinan

DataDetail Relasi DataJual Relasi

DataBeli Barang

DataPemesanan BarangSupplier

DataRelasi DataPemesanan Barang

DataRetur Supplier

DataReturRelasi Input

Input

DataUtang

DataPiutang Input

ProsesHitung Beli

ProsesHitung Jual

Beli

StockBarang

Jual

Pembuatan FakturdanDaftar

Pembuatan Lap. Beli, Lap. Jual danLap. Inventory DaftarData Barang

Faktur Pembelian Daftar Utang Daftar DataSupplier DaftarRetur Penjualan Daftar Pemesanan Barang

Faktur Pembelian Daftar Utang Daftar DataSupplier DaftarRetur Pembelian Daftar Pemesanan Barang

Faktur Penjualan Daftar Piutang Daftar DataRelasi

Lap. Faktur Pembelian Lap. Faktur Penjualan Lap. Daftar Utang Lap. Daftar Piutang Lap. Daftar DataSupplier Lap. Daftar DataRelasi Lap. DaftarRetur Pembelian Lap. Daftar Pemesanan Barang

Faktur Penjualan Daftar Piutang Daftar DataRelasi

Gambar 4.3 Diagram Alir Sistem Baru.

Lap. Daftar Barang

Lap. Daftar Barang

Lap. Faktur Pembelian Lap. Faktur Penjualan Lap. Utang Lap. Daftar Piutang Lap. Daftar DataSupplier Lap. Daftar DataRelasi Lap. DaftarRetur Pembelian Lap. Daftar Pemesanan Barang

47

4.2.1.3. Kegiatan-Kegiatan Dari Sistem Kegiatan-kegiatan sistem perdagangan / pembelian dan penjualan yang akan dibuat dalam sistem ini akan saling terhubung satu sama lainnya dan juga akan jelas siapa penanggung jawab masing-masing tugasnya. Kegiatan tersebut terdiri dari : kegiatan pembelian barang, penjualan barang dan pembuatan laporan gudang. 1. Kegiatan Pembelian Barang Kegiatan ini dimulai dengan pengecekan keuangan pada kas dan pengecekan barang yang ada. Setiap supplier yang melakukan transaksi penjualan akan di timbang jumlah barang dan jenis plastic apa yang akan di jual oleh supplier. Saat pengecekan barang, apakah jumlah barang tersedia atau tidak? apabila tidak maka akan melakukan

pencarian

barang

ke

supplier-supplier.

Setelah

mendapatkan order maka bagian gudang akan mengirim barang yang telah dipesan oleh cv.indolatief. pembayaran akan dilakukan ditempat supplier atau langsung dibagian keuangan. Setelah itu bagian pembelian akan membuat laporan daftar pembelian, laporan daftar pemesanan barang, laporan daftar retur pembelian dan laporan daftar piutang apabila bagian keuangan belum bisa melakukan pembayaran secara tunai.

48

2. Kegiatan Penjualan Barang Kegiatan ini dimulai dengan melihat stok barang yang telah diolah menjadi barang setengah jadi atau bubur plastik dan bagian gudang akan memberikan data barang yang siap di jual. Setelah melakukan pengecekan jenis plastik apa saja yang akan dijual, maka barang yang di sudah diolah siap untuk dipaketkan. 3. Kegiatan Gudang Barang Kegiatan ini dimulai dengan mencatat data dari setiap barang yang akan dijual atau dibeli dan melaporkan kepada pimpinan berupa laporan stock barang.

4.2.2. Perancangan Diagram Arus Data 4.2.2.1. Perancangan Diagram Konteks Adapun perancangan diagram konteks merupakan gambaran bentuk proses dari bagan alir, dan perancangan ini merupakan landasan untuk perancangan selanjutnya yaitu perancangan diagram konteks dan data flow diagram. Perancangan diagram konteksnya adalah sebagai berikut :

49

Gambar 4.4 Diagram Konteks Aplikasi Pembelian Jenis Plastik (Sumber : Data diolah oleh penulis)

Supplier memberikan data barang, data supplier dan data pembelian barang ke dalam sistem untuk selanjutnya data supplier dan data pembelian barang tersebut diserahkan ke bagian ADM kemudian bagian ADM memberikan berkas data supplier dan data pembelian barang tersebut kembali ke sistem pengolahan data. Relasi memberikan data relasi dan data penjualan barang ke dalam sistem tersebut diteruskan ke ADM yang berupa daftar data relasi dan data penjualan barang tersebut yang nantinya akan diberikan kepada Relasi.

50

Berkas data supplier dan data pembelian barang serta data relasi dan data penjualan barang yang ada pada sistem diolah menjadi laporan yang nantinya akan diserahkan kepada pimpinan.

4.2.2.2. Perancangan Data Flow Diagram (DFD) 4.2.2.2.1. Data Flow Diagram Level 1 Faktur Penjua,Daftar lan Piutang dan Daftar Data Relasi Daftar Data Barang Faktur Pembelian , Daftar Pemesa,nan Daftar Retur Pemb,elian Daftar Hutang dan Daftar Data Supplier Data Beli Barang

PEMBELIAN

Data Supplier 1 Detail Data Retur Supplier Manipulasi Data Beli Data Hutang Data Beli Barang Barang Data Pemesanan Barang Supplier

Data Detaill Barang Supplier

6 Proses Hitung Beli

Faktur Pembelian Faktur Penjualan Daftar Pemesanan Barang 4 Daftar Retur Pembelian BAG. Pembuatan ADMINISTRASI Faktur dan Daftar Daftar Piutang Daftar Hutang Daftar Data Supplier Daftar Data Relasi

Lap.Faktur Pembelian Lap.Faktur Penjualan GUDANG

Data Detail Barang

2 Manipulasi Data Relasi

7 Proses Hitung Jual

PENJUALAN

Lap.Daftar Hutang Lap.Daftar Piutang Lap.Daftar Retur Pembelian Lap.Daftar Pemesanan Barang Lap.Daftar Data Supplier Lap.Daftar Data Relasi

Detail Data Detail Relasi

3 Detail Data Relasi Manipulasi Data Jual Data Piutang Data Jual Barang Relasi Data Pemesanan Barang Relasi

5 Pembuatan Laporan

Lap.Faktur Pembelian Lap.Faktur Penjualan Lap.Daftar Hutang PIMPINAN Lap.Daftar Piutang Lap.Daftar Barang Lap. Daftar Pemesanan Lap.Daftar Retur Pembelian Lap. Daftar Data Supplier Lap. Daftar Data Relasi

Data Jual Relasi Lap. Daftar Relasi

Gambar 4.5 Data Flow Diagram Level 1.

51

(Sumber : Data diolah oleh penulis)

4.2.2.2.2. Data

Flow

Diagram

Level

2

Proses

1

Manipulasi Data Sistem Pembelian

1.1 Catat Data Jenis Supplier

Jenis Pembelian

Informasi Data Jenis Supplier

Informasi Data Jenis Supplier Jenis

Pembeian

1.2 Catat Data Supplier

Informasi Data Supplier

Supplier

Pembelian

Informasi Data Supplier Informasi Data Detail Barang

Pemesanan Barang

1.3 Informasi Catat Data Pemesanan Data Pemesanan Barang Pembelian Pembelian

Pemesanan Barang

Informasi Data Pemesanan Barang Informasi Data Supplier Informasi Data Detail Barang BAG. ADMINISTRASI

Pembelian

1.4 Catat Data Pembelian

Informasi Data Pembelian

Pembelian

Informasi Data Pembelian Informasi Data Supplier

Retur Supplier

1.5 Catat Data Retur Supplier

Informasi Data Detail Barang Informasi Data Retur Pembelian

Retur Pembelian

Informasi Data Pembelian Informasi Data Supplier

Hutang 1.6 Catat Data Hutang

Informasi Data Hutang

Hutang

Barang

52

Gambar 4.6 Data Flow Diagram Level 2 Proses 1, Manipulasi Data Sistem Pembelian. (Sumber : Data diolah oleh penulis) 4.2.2.2.3. Data Flow Diagram Level 2 Proses 2 Manipulasi Data Sistem Gudang

53

Gambar 4.7 Data Flow Diagram Level 2 Proses 2, Manipulasi Data Sistem Gudang. (Sumber : Data diolah oleh penulis) 4.2.2.2.4. Data Flow Diagram Level 2 Proses

3

Manipulasi Data Sistem Penjualan

3.1 Catat DataJenisRelasi

Jenis Relasi

Informasi Data JenisRelasi

Jenis Relasi

Barang

Informasi DataJenis Relasi

Relasi

3.2 Catat DataRelasi

Informasi Data Relasi

Relasi

Informasi DataRelasi

BAG. ADMINISTRASI

Informasi DataDetail Barang

Penjualan

3.3 Catat DataPenjualan

Informasi Data Penjualan

Penjualan

Informasi DataPenjualan Informasi DataRelasi

Piutang

3.4 Catat DataPiutang

Informasi Data Piutang

Piutang Informasi DataDetail Barang

54

Gambar 4.8 Data Flow Diagram Level 2 Proses 3, Manipulasi Data Sistem Penjualan. (Sumber : Data diolah oleh penulis) 4.2.2.2.5. Data Flow Diagram Level 2 Proses 4 Pembuatan Daftar dan Faktur, Di Dalam Sistem Perdagangan 4.2.2.2.5.1. Data

Flow

Diagram

level

2

Proses

4

Pembuatan Daftar dan Faktur, Di Dalam Sistem Pembelian

Supplier

Pemesanan Barang


4.1 Cetak Daftar Data Supplier

4.2 Cetak Informasi Data Pemesanan Daftar Pemesanan JBarang Pembelian Barang Pembelian

Daftar Data Supplier Daftar Data Supplier

Daftar Pemesanan Barang Pembelian Daftar Pemesanan Barang Pembelian

SUPLLIER

Pembelian


4.3 Cetak Faktur Pembelian

Faktur Pembelian Faktur Pembelian

BAG. ADMINISTRASI

Retur Pembelian

Utang

Informasi Data Retur Pembelian


4.4 Cetak Daftar Retur Pembelian

4.5 Cetak Daftar Utang

Daftar Retur Pembelian Daftar Retur Pembelian

Daftar Utang

Gambar 4.9 Data Flow Diagram Level 2 Proses 4,

D aftar Utang

55

Pembuatan Faktur Pembelian, Daftar Data Supplier, Daftar Retur Pembelian, Daftar Pemesanan Barang, dan Daftar Hutang, Di Dalam Sistem Pembelian. (Sumber : Data diolah oleh penulis) 4.2.2.2.5.2. Data Flow Diagram level 2 Proses 4 Pembuatan Daftar, Di Dalam Sistem Gudang.

Barang

Informasi Data Detail Barang

4.6 Cetak Daftar Data Barang

Daftar Data Barang

Gudang

Gambar 4.10 Data Flow Diagram Level 2 Proses 4, Pembuatan Daftar Data Barang, Di Dalam Sistem Gudang. (Sumber : Data diolah oleh penulis)

4.2.2.2.5.3. Data

Flow

Diagram

level

2

Proses

4

Pembuatan Daftar dan Faktur, Di Dalam Sistem Penjualan.

Relasi


4.7 Cetak Daftar Data Relasi

Daftar Data Relasi Daftar Data Relasi

RELASI

Penjualan


4.8 Cetak Faktur Penjualan

Faktur Penjualan Faktur Penjualan

BAG. ADMINISTRASI

Barang


4.9 Cetak Daftar Piutang

Daftar Piutang Daftar Piutang

56

Gambar 4.11 Data Flow Diagram Level 2 Proses 4, Pembuatan Faktur Penjualan, Daftar Data Relasi, dan Daftar Piutang, Di Dalam Sistem Penjualan (Sumber : Data diolah oleh penulis) 4.2.2.2.6. Data

Flow

Diagram

Level

2

Proses

5

Pembuatan Laporan Daftar dan Faktur, Di Dalam Sistem Perdagangan 4.2.2.2.6.1. Data

Flow

Diagram

level

2

Proses

4

Pembuatan Laporan Daftar dan Faktur, Di Dalam Sistem Pembelian

Supplier

Pemesanan Barang


5.1 Cetak Lap . Daftar Data Supplier

5.2 Cetak Lap . Informasi Data Pemesanan Daftar Pemesanan Barang Pembelian Barang Pembelian

Lap . Daftar Data Supplier Lap . Daftar Data Supplier

Lap. Daftar Pemesanan Jamu Pembelian Lap. Daftar Pemesanan Barang Pembelian

PIMPINAN

Pembelian


5.3 Cetak Lap . Faktur Pembelian

Lap . Faktur Pembelian Lap. Faktur Pembelian

BAG . ADMINISTRASI

Retur Pembelian

Utang

Informasi Data Retur Pembelian


5.4 Cetak Lap . Daftar Retur Pembelian

5.5 Cetak Lap . Daftar Utang

Lap. Daftar Retur Pembelian Lap. Daftar Retur Pembelian

Lap. Daftar Utang Lap . Daftar Utang

57

Gambar 4.12 Data Flow Diagram Level 2 Proses 5, Pembuatan Lap. Faktur Pembelian, Lap. Daftar Data Supplier, Lap. Daftar Retur Pembelian, Lap. Daftar Pemesanan Barang, dan Lap. Daftar Hutang,Di Dalam Sistem Pembelian. (Sumber : Data diolah oleh penulis) 4.2.2.2.6.2. Data Flow Diagram level 2 Proses 4 Pembuatan Laporan Daftar, Di Dalam Sistem Gudang.

Gambar 4.13 Data Flow Diagram Level 2 Proses 5, Pembuatan Lap. Daftar Barang, Di Dalam Sistem Gudang. (Sumber : Data diolah oleh penulis)

4.2.2.2.6.3. Data

Flow

Diagram

level

2

Proses

4

Pembuatan Laporan Daftar dan Faktur, Di Dalam Sistem Penjualan.

Relasi


5.7 Cetak Lap. Daftar Data Relasi

Lap. Daftar Data Relasi Lap. Daftar Data Relasi

PIMPINAN

Penjualan


5.8 Cetak Lap. Faktur Penjualan

Lap. Faktur Penjualan Lap. Faktur Penjualan

BAG. ADMINISTRASI

Barang


5.9 Cetak Lap. Daftar Piutang

Lap. Daftar Piutang Lap. Daftar Piutang

58

Gambar 4.14 Data Flow Diagram Level 2 Proses 5, Pembuatan Lap. Faktur Penjualan, Lap. Daftar Data Relasi, dan Lap. Daftar Piutang, Di Dalam Sistem Penjualan. (Sumber : Data diolah oleh penulis)

4.2.2.2.7. Data Flow Diagram Level 2 Proses 6 Proses Hitung Beli

Gambar 4.15 Data Flow Diagram Level 2 Proses 6 Proses Hitung Beli. (Sumber : Data diolah oleh penulis)

4.2.2.2.8. Data Flow Diagram Level 2 Proses 7 Proses Hitung Jual.

Gambar 4.16 Data Flow Diagram Level 2 Proses 7 Proses Hitung Jual. (Sumber : Data diolah oleh penulis)

4.2.3. Software Desain 4.2.3.1. Desain Database

59

Dalam membuat suatu database haruslah didahului dengan tahap mendesain terlebih dahulu. Hal ini dimaksudkan untuk memudahkan dalam tahap implementasi.

4.2.3.2. Normalisasi Menurut Ir. Fathansah (2002:39) Perancangan basis data diperlukan, agar kita bisa memiliki basis data yang kompak dan efisien dalam penggunaan ruang penyimpanan, cepat dalam pengaksesan dan mudah dalam pemanipulasian data. Normalisasi sendiri merupakan salah satu cara pendekatan lain dalam membangun desain logic basis data relasional yang tidak secara langsung berkaitan dengan model data, tetapi dengan menerapkan sejumlah aturan dan kriteria standar untuk menghasilkan struktur tabel yang normal. 1. Tidak Normal D a t a P e r d a g a n g a n U n t u k C V . I n d o la t ie f N a m a _ b a ra n g J e n is _ B a r a n g H a r g a _ p e m b e lia n H a r g a _ p e n ju a la n K e n a ik a n _ h a r g a Tgl Q u a n t it y Lokasi T g l _ f a k t u r _ b e li K o d e _ s u p p lie r H a r g a _ p e m b e lia n Q u a n t it y _ b e li Tgl S u b _ t o t a l_ p e m b e lia n H a r g a _ t o t a l_ p e m b e lia n K e t _ k o n d is i T g l _ f a k t u r _ ju a l K o d e _ r e la s i H a r g a _ p e n ju a la n Q u a n t it y _ ju a l P o t _ d is k o n S u b _ t o t a l_ p e n ju a la n H a r g a _ t o t a l_ p e n ju a la n K e t _ k o n d is i T g l_ P J N a m a _ s u p p lie r T g l_ d a t a n g _ b a r a n g H a rg a _ P J

T g l_ a n g s u r a n _ p iu t a n g Q u a n t it y _ P J A n g s u r a n _ p iu t a n g S u b _ t o t a l_ P J S is a _ t o t a l_ p iu t a n g T o t a l_ P J T g l_ ja t u h _ t e m p o _ d e b it T g l_ r e t u r _ b e li Q u a n t it y _ r e t u r N a m a _ s u p p lie r A la m a t T lp 1 T lp 2 K o ta P r o p in s i T o t a l_ h u t a n g J e n is _ s u p p lie r N a m a _ r e la s i A la m a t T lp 1 T lp 2 K o ta P r o p in s i T o t a l_ P iu t a n g J e n is _ r e la s i J e n is _ h u t a n g T g l_ a n g s u r a n _ h u t a n g A n g s u r a n _ h u ta n g S is a _ t o t a l_ h u t a n g T g l_ ja t u h _ t e m p o _ k r e d it J e n is _ p iu t a n g

60

Gambar 4.17 Data Perdagangan

2. Normal Ke Satu (1NF)

Gambar 4.18 Normalisasi ke Satu (1NF)

61

3. Normal Ke Dua (2NF)

Gambar 4.19 Normalisasi MasterBarang

Penjualan No_faktur_jual Tgl_faktur_jual Kode_relasi Kode_nama_barang Nama_barang Harga_penjualan Quantity_ jual Pot_diskon Sub_total_penjualan Harga_total_penjualan Ket_kondisi

Piutang Kode_piutang Jenis_piutang No_faktur_jual Kode_relasi Tgl_angsuran_piutang Angsuran_piutang Sisa_total_piutang Tgl_jatuh_tempo_debit

Gambar 4.20 Normalisasi Penjualan

62

Gambar 4.21 Normalisasi Pembelian

Gambar 4.22 Normalisasi Supplier

Gambar 4.23 Normalisasi Relasi

4.2.3.3.

Perancangan ER-D (Entity Relationship Diagram)

63

Perancangan perancangan

ini

basis

dilakukan

data

untuk

relational

memudahkan

dalam

perancangan

ER-D

karena

menggambarkan hubungan antara file-file yang dibutuhkan dalam perancangan perangkat lunak ini. Notasi ER-D menyediakan sebuah mekanisme yang mewakili hubungan–hubungan antar objek–objek. Diagram ER-D menyediakan analisa perancangan notasi singkat untuk menguji data didalam konteks aplikasi pemrosesan data. ER-D Sistem Perdagangan Daur Ulang Sampah Plastik adalah sebagai berikut :

Total Piutang Total Hutang Propinsi

Propinsi Kota

Kota

Tlp2

Retur Pembelian

1

Tlp2

Tlp1

Tlp1 JenisSupplier

Memiliki

Alamat

Memiliki

KodeJenis

HargaPembelian

KodeJenis Supplier

Barang

KodeLokasi

1 1 1

KodeJenis Supplier

Tgl

HargaPenjualan KodeSupplier

NamaSupplier

Memiliki

Quantity

Dipesan

Alamat

1

NamaSupplier

Diretur

JenisRelasi

1

KodeRelasi

1

KenaikanHarga SUPPLIER

RELASI

Pemesanan Barang

KodeHargaJual

1 1

Memiliki Dibeli

1 1

1

1 PLASTIK

1

Dijual

Penjualan

1 1 1 Dibayar

NoFakturBeli

1

Pembelian

1

1

Memiliki

NoFakturJual

Dibayar

Tgl Faktur Beli

1

Memiliki DiKelola

NoPJ

Disimpan

Tgl FakturJual Piutang

KodeRelasi Hutang

KodeSupplier

Memiliki

1 1

1

1 HargaPenjualan

HargaPembelian

Indolatief

Jenis

Lokasi

QuantityJual Quantity beli

Potongan (diskon)

Tgl

SubTotal SubTotal Pembelian

Penjualan

HargaTotal Penjualan

64

Gambar 4.24 Entity Relationship Diagram (ERD)

4.2.3.4. Perancangan Database 4.2.3.4.1. Perancangan Kamus Data Kamus data berfungsi untuk mendefinisikan data dan aliran informasi yang ada pada Diagram Flow Data (DFD). Dari DFD diatas dapat diperoleh entity-entitynya sebagai berikut : a. Tabel Barang Tabel 4.3 Tabel Barang File Name Type Kode_nama_barang Text Nama Barang Text Harga_pembelian Number Harga_penjualan Number Kenaikan_harga Number Tgl Date/Time Quantity Number Kode_jenis_barang Text Kode_lokasi Text (Sumber : Data diolah oleh penulis)

b. Tabel Jenis Barang

Panjang 8 20 Double Double Double Double 4 4

65

Tabel 4.4 Tabel Jenis barang File Name

Type

Kode_jenis_barang Text Jenis_barang Text (Sumber : Data diolah oleh penulis)

Panjang 4 20

c. Tabel Lokasi Tabel 4.5 Tabel Lokasi File Name Type Panjang Kode_lokasi Text 4 Nama_lokasi Text 20 No_lokasi Text 20 Max_quantity Number Double (Sumber : Data diolah oleh penulis)

d. Tabel Supplier Tabel 4.6 Tabel Supplier File Name Type Kode_supplier Text Nama_supplier Text Alamat Text Tlp1 Text Tlp2 Text Kota Text Propinsi Text Total_hutang Number Kode_jenis_supplier Text (Sumber : Data diolah oleh penulis)

Panjang 4 30 50 30 30 20 20 Double 4

e. Tabel Jenis Supplier Tabel 4.7 Tabel Jenis Supplier File Name Type Kode_jenis_supplier Text Jenis_supplier Text (Sumber : Data diolah oleh penulis)

Panjang 4 20

f. Tabel Relasi Tabel 4.8 Tabel Relasi File Name Kode_relasi

Type Text

Panjang 4

66

Nama_relasi Text Alamat Text Tlp1 Text Tlp2 Text Kota Text Propinsi Text Total_piutang Number Kode_jenis_relasi Text (Sumber : Data diolah oleh penulis)

30 50 30 30 20 20 Double 4

g. Tabel Jenis Relasi Tabel 4.9 Tabel Jenis Relasi File Name Type Panjang Kode_jenis_relasi Text 4 Jenis_relasi Text 20 Persen_harga_jual Number Double (Sumber : Data diolah oleh penulis)

h. Tabel Pembelian Tabel 4.10 Tabel Pembelian File Name Type No_faktur_beli Text Tgl_faktur_beli Date/Time No_PJ Text Kode_supplier Text Kode_nama_barang Text Nama_barang Text Harga_pembelian Number Quantity_beli Number Tgl Date/Time Sub_total_pembelian Number Harga_total_pembelian Number Ket_kondisi Text (Sumber : Data diolah oleh penulis)

i. Tabel Hutang Tabel 4.11 Tabel Hutang

Panjang 12 12 4 8 20 Double Double Double Double 10

67

File Name Type Kode_hutang Text Jenis_hutang Text No_faktur_beli Text Kode_supplier Text Tgl_angsuran_hutang Date/Time Angsuran_hutang Number Sisa_total_hutang Number Tgl_jatuh_tempo_kredit Date/Time (Sumber : Data diolah oleh penulis)

Panjang 12 10 12 4 Double Double -

j. Tabel Penjualan Tabel 4.12 Tabel Penjualan File Name No_faktur_jual Tgl_faktur_jual Kode_relasi Kode_nama_barang Nama_barang Harga_penjualan Quantity_jual Pot_Diskon Sub_total_penjualan Harga_total_penjualan Ket_kondisi

Type Text Date/Time Text Text Text Number Number Number Number Number Text

Panjang 12 4 8 20 Double Double Double Double Double 10

k. Tabel Piutang Tabel 4.13 Tabel Piutang File Name Kode_piutang Jenis_piutang No_faktur_jual Kode_supplier Tgl_angsuran_piutang Angsuran_piutang Sisa_total_piutang Tgl_jatuh_tempo_debit

Type Text Text Text Text Date/Time Number Number Date/Time

Panjang 12 10 12 4 Double Double -

68


l. Tabel Retur Pembelian Tabel 4.14 Tabel Retur Pembelian File Name Type No_retur_beli Text Tgl_retur_beli Date/Time No_faktur_beli Text Kode_supplier Text Kode_Nama_Barang Text Nama_barang Text Quantity_retur Number (Sumber : Data diolah oleh penulis)

Panjang 12 12 4 8 20 Double

m. Tabel Pesanan Barang Tabel 4.15 Tabel Pemesanan Barang File Name Type No_PB Text Tgl_PB Date/Time Kode_nama_barang Text Nama_barang Text Kode_supplier Text Tgl_datang_Barang Date/Time Harga_PB Number Quantity_PB Number Sub_total_PB Number Total_PB Number (Sumber : Data diolah oleh penulis)

Panjang 12 8 20 4 Double Double Double Double

4.2.3.5. Rancangan Menu Rancangan Menu digunakan untuk mempermudah melihat menu– menu yang ada dalam aplikasi sistem informasi pembelian dan penjualan daur ulang sampah plastik yang diracang untuk CV. Indolatief. Struktur rancangan menu program adalah sebagai berikut :

69

Gambar 4.25 Rancangan Menu 4.2.3.6. Rancangan Bagan Alir Adapun maksud penentuan bagan alir sistem adalah untuk mempemudah memahami urutan proses dalam database dari sistem yang sedang

berjalan.

Berikut

adalah

menggunakan bagan alir (flowchart).

perancangan

model

dengan

70

Gambar 4.26 Flow Chart Menu Utama Gambar 4.20 merupakan model struktur menu utama dari sistem informasi Pembelian, Penjualan dan Inventory. Pada sistem ini memiliki 8 item menu utama yaitu Menu, Setting, Master Data, Transaksi, Pencarian, Cetak, dan Informasi.

71

Menu Pertama adalah Menu terdiri dari sub menu input. Untuk masukkan sendiri terdiri dari masukkan Log In, Log Out, dan Keluar. Menu Kedua adalah Menu Master Data terdiri dari sub menu input, yang terdiri dari masukkan Barang, Supplier dan Relasi. Barang mempunyai sub lagi yang terdiri dari Data Barang dan Editor Barang, Editor Barang mempunyai sub menu lagi terdiri dari Data Jenis barang, dan Lokasi. Sedangkan Supplier terdiri dari masukkan Data Supplier dan Editor Supplier, Editor Supplier mempunyai sub menu lagi terdiri dari Jenis Supplier. Sedangkan Relasi terdiri dari masukkan Data Relasi dan Editor Relasi, Editor Relasi mempunyai sub menu lagi terdiri dari Jenis Relasi. Menu Ketiga adalah Menu Transaksi yang terdiri dari sub menu input, dan Pembuatan struk faktur dan daftar. Untuk sub masukkan sendiri terdiri dari Pembelian dan Penjualan. Untuk masukkan Pembelian terdiri dari data pembelian, retur pembelian, pemesanan barang, dan hutang. Dan untuk masukkan penjualan terdiri dari data penjualan dan piutang. Dan untuk pembuatan struk faktur dan daftar, sub menu pembelian membuat struk faktur pembelian, struk daftar retur pembelian, struk daftar pemesanan barang, dan struk daftar hutang, sedangkan untuk sub menu penjualan membuat struk faktur penjualan dan struk daftar piutang. Menu Keempat adalah Menu Pencarian terdiri dari tiga jenis pencarian yaitu berdasarkan kode master data dan transaksi.

72

Menu Kelima adalah Menu Cetak terdiri dari sub menu cetak laporan pembelian, penjualan dan inventory. sub menu cetak laporan pembelian terdiri dari sub menu laporan faktur pembelian, laporan daftar pemesanan barang, laporan daftar retur pembelian, laporan daftar hutang dan laporan daftar data supplier, sedangkan sub menu cetak laporan penjualan terdiri dari sub menu laporan faktur penjualan, laporan daftar piutang dan laporan daftar data relasi, sedangkan sub menu cetak laporan inventory terdiri dari sub menu laporan daftar barang. Mulai

Pilih Laporan

Selesai

Tampilan Laporan

Cetak

TIdak

Ya

Print Out

Gambar 4.27 Flowchart Menu Report

Gambar 4.21 diatas merupakan model dari sistem informasi untuk menampilkan laporan dari setiap informasi yang kita, dimana laporan yang terdapat di dalam sistem informasi ini yaitu laporan pembelian, laporan penjualan, dan laporan inventory. Laporan pembelian terdiri dari

73

laporan faktur pembelian, laporan daftar pemesanan barang, laporan daftar retur pembelian, daftar hutang, dan laporan daftar data supplier, sedangkan laporan penjualan terdiri dari laporan faktur penjualan, laporan daftar piutang, dan laporan daftar data relasi, sedangkan laporan inventory terdiri dari laporan daftar barang.

4.2.3.7. Rancangan Tampilan Aplikasi Rancangan

tampilan

aplikasi

bertujuan

untuk

menentukan

rancangan tampilan menu – menu yang terdapat pada aplikasi yang dibuat oleh penulis. Rancangan tampilan aplikasi programnya adalah sebagai berikut : 4.2.3.7.1. Rancangan Form Tampilan Menu Utama

Gambar 4.28 Tampilan Form Menu Utama

74

4.2.3.7.2. Rancangan Tampilan Pencarian Database

Gambar 4.29 Tampilan Pencarian Database 4.2.3.7.3. Rancangan Form Login Tabel : Log In (CV. Indolatief.mdb) Log In User ID Password Cancel

Ok

Gambar 4.30 Form Log In 4.2.3.7.4. Rancangan Form Jenis Barang Tabel : Jenis (CV. Indolatief.mdb) Jenis Barang Kode Jenis Barang

Baru Hapus

Jenis Barang Kode Jenis Barang

Ubah

Jenis Barang

Simpan Batal

I>

Keluar

Gambar 4.31 Form Editor Data Jenis Barang

75

4.2.3.7.5. Rancangan Form Lokasi Tabel : Lokasi (CV. Indolatief.mdb) Lokasi Kode Lokasi

Baru

Nama Lokasi

Hapus

No. Lokasi

Ubah

Max Quantity Kode Lokasi

Simpan Nama Lokasi

No. Lokasi

Max Quantity

Batal

I>

Keluar

Gambar 4.32 Form Editor Data Lokasi

4.2.3.7.6. Rancangan Form Jenis Supplier Tabel : Jenis Supplier (CV. Indolatief.mdb) Jenis Supplier Kode Jenis Supplier

Baru Hapus

Jenis Supplier Kode Jenis Supplier

Ubah

Jenis Supplier

Simpan Batal

I>

Gambar 4.33 Form Editor Data Jenis Supplier

Keluar

76

4.2.3.7.7. Rancangan Form Jenis Relasi Tabel : Jenis Relasi (CV. Indolatief.mdb) Jenis Relasi Kode Jenis Relasi

Baru

Jenis Relasi

Hapus

Persen Harga Jual

Ubah

Kode Jenis Relasi

Jenis Relasi

Simpan

Persen Harga Jual

Batal

Keluar

I>

Gambar 4.34 Form Editor Data Jenis Relasi

4.2.3.7.8. Rancangan Form Master Data Barang Tabel : Barang (CV. Indolatief.mdb) Master Data Baang Data Barang Kode

Kode_Barang

Jenis_Barang

Nama_Barang

Kode_Lokasi

Nama_Lokasi

Harga_Pembelian

Harga_Penjualan

No_Lokasi

Kenaikan_Harga

Tgl

Max_Qty

Quantity_Barang Hapus

Baru

I<

<

Ubah

>

Simpan

>I

Batal

Screen Kd

NB

H_Bl

H_Jl

K_Hrg

tgl

qyt_Brg

I>

Cetak

Gambar 4.35 Form Master Data Barang

KELUAR

77

4.2.3.7.9. Rancangan Form Master Data Supplier Tabel : Supplier (CV. Indolatief. mdb)

Gambar 4.36 Form Master Data Supplier

4.2.3.7.10. Rancangan Form Master Data Relasi Tabel : Relasi (CV. Indolatief.mdb) Master Data Relasi Data Relasi Kode_Relasi

Kota

Propinsi

Nama_Relasi

Kode_Jenis_Relasi

Jenis_Relasi

Alamat

Total Piutang Baru I<

Tlp2

Tlp1

Persen_Harga_Jual Hapus

<

Ubah

>

Simpan

>I

Batal

Screen Kd_ctmr

Nm_ctmr

almt

tlp1

tlp2

kota

prop

I> Cetak

Gambar 4.37 Form Master Data Relasi

KELUAR

78

4.2.3.7.11. Rancangan Form Transaksi Pembelian Tabel : Pembelian (CV. Indolatief.mdb)

Gambar 4.38 Form Transaksi Pembelian

4.2.3.7.12. Rancangan Form Transaksi Penjualan Tabel : Penjualan (CV. Indolatief. mdb)

Gambar 4.39 Form Transaksi Penjualan

79

4.2.3.7.13. Rancangan Form Transaksi Hutang Tabel : Hutang (CV. Indolatief. mdb)

Gambar 4.40 Form Transaksi Hutang

4.2.3.7.14. Rancangan Form Transaksi Piutang Tabel : Piutang (CV. Indolatief. mdb) Transaksi_Piutang Transaksi Piutang Kode_Piutang

No_Faktur_Penjualan

Jenis_Piutang

Kode_Relasi

Tgl_Jatuh_Tempo

Sisa_Total_Piutang Rp. Add

Input Transaksi Hutang Tgl_Angsuran Print Screen Kd_pitg

Angsuran

No_Fktr_Jl

Kd_ctmr

Rp.

Sisa_ttl_pitg

tgl_agsrn_pitg

agsrn_pitg I>

Simpan

Baru

I<

<

>

>I

Hapus

Update Data

Gambar 4.41 Form Transaksi Piutang

Batal

KELUAR

80

4.2.3.7.15. Rancangan Form Transaksi Pemesanan Barang Tabel : Pemesanan_Barang (CV. Indolatief.mdb) Transaksi Pemesanan Barang Transaksi Pemesanan Barang No_PJ

Kode_Supplier

Tgl_PJ

Nama_Supplier

Tgl_Datang_Barang

Input Kode Kode_Nama_Barang

Nama_Barang

Kd_NB

Nm_NB

jj

Add lks

I >

Quantity_ PJ /kg

Harga_PJ

Rp.

Sub_Total

/kg

Rp.

Print Screen qty_PJ

H_PJ

Sub_ttl_PJ

Nm_MJ

Kd_MJ

I<

< Cetak

>

Harga Total Rp.

>I Simpan

Baru

Hapus

Update Data

Batal

Gambar 4.42 Form Transaksi Pemesanan Barang

4.2.3.7.16. Rancangan Form Transaksi Retur Pembelian Tabel : Retur_Pembelian (CV. Indolatief.mdb)

Gambar 4.43 Form Transaksi Retur Pembelian

KELUAR

81

4.2.3.7.17. Rancangan Form Pencarian

Gambar 4.44 Form Pencarian

4.2.3.7.18. Rancangan Form Lap. Faktur Pembelian. Laporan Faktur Pembelian Tgl Lap. Faktur Pembelian Bln Lap. Faktur Pembelian Cetak

Keluar

Gambar 4.45 Form Laporan Faktur Pembelian

4.2.3.7.19. Rancangan Form Lap. Faktur Penjualan Laporan Faktur Penjualan Tgl Lap. Faktur Penjualan Bln Lap. Faktur Penjualan Cetak

Keluar

Gambar 4.46 Form Laporan Faktur Penjualan

82

4.2.3.7.20. Rancangan Form Lap. Daftar Pemesanan Barang Laporan Daftar Pemesanan Barang Tgl Lap. Daftar Pemesanan Barang Bln Lap. Daftar Pemesanan Barang Cetak

Keluar

Gambar 4.47 Form Laporan Daftar Pemesanan Barang

4.2.3.7.21. Rancangan Form Lap. Daftar Retur Pembelian Laporan Daftar Retur Pembelian Tgl Lap. Daftar Retur Pembelian Bln Lap. Daftar Retur Pembelian Cetak

Keluar

Gambar 4.48 Form Laporan Daftar Retur Pembelian

4.2.3.7.22. Rancangan Form Lap. Daftar Hutang Laporan Daftar Hutang Tgl Lap. Daftar Hutang Bln Lap. Daftar Hutang Cetak

Keluar

Gambar 4.49 Form Laporan Daftar Hutang

4.2.3.7.23. Rancangan Form Lap. Daftar Piutang Laporan Daftar Piutang Tgl Lap. Daftar Piutang Bln Lap. Daftar Piutang Cetak

Keluar

Gambar 4.50 Form Laporan Daftar Piutang 4.2.3.7.24. Rancangan Form Lap. Daftar Barang Laporan Daftar Barang

Item Nama Produksi

Cetak

Keluar

Gambar 4.51 Form Laporan Daftar Barang

83

4.2.3.7.25. Rancangan Form Lap. Daftar Data Supplier Laporan Daftar Data Supplier

Item_Jenis_Supplier

Cetak

Keluar

Gambar 4.52 Form Laporan Daftar Data barang

4.2.3.7.26. Rancangan Form Lap. Daftar Data Relasi Laporan Daftar Data Relasi

Item_Jenis_Relasi

Cetak

Keluar

Gambar 4.53 Form Laporan Daftar Data Relasi

4.2.3.7.27. Rancangan Form User Account Tabel : Password (CV. Indolatief. db) User_Account User ID Password Hak_Akses Setting

User ID

Master Data Barang Supplier Relasi

Transaksi Pembelian Penjualan

Password

I>

Cetak Lap. Pembelian Lap. Penjualan Lap. Inventory

Baru

Ubah

Hapus

Simpan

Batal

Keluar

Gambar 4.54 Form User Account

84

4.2.3.7.28. Rancangan Report Data Barang

Logo

CV. INDOLATIEF Jl. MAD NOER NO.2 JAMPANGDATA Tlp. (0251) 6012477 - 6032256

BARANG

Kode_Nama_Barang : ……………………………………………. Nama_Barang

: …………………………………………….

Harga_Pembelian

: ……..

Harga_Penjualan : …………….

Tgl

: ……..

Quantity

: …………….

Kode_Lokasi

: ……..

Jenis_Barang

: …………….

Nama_Lokasi

: …………….

No_Lokasi

: …………….

Max_Qty

: …………….

Gambar 4.55 Report Data Barang

4.2.3.7.29. Rancangan Report Daftar Data Relasi

Logo

CV. INDOLATIEF DAFTAR DATA Jl. MAD NOER NO.2 JAMPANG Tlp. (0251) 6012477 - 6032256 RELASI

Kode_Relasi

: …………………………………………….

Nama_Relasi

: …………………………………………….

Alamat

: ……………………………………………. ……………………………………………. …………………………………………….

Tlp Kota

: …………………………………………….

Kode_Jenis_Relasi

: ……………………………………………. : …………………………………………….

Jenis_Relasi

Tanda Tangan ( Relasi )

Tanda Tangan ( User Name )

Gambar 4.56 Report Daftar Data Relasi

85

4.2.3.7.30. Rancangan Report Faktur Pembelian

Ket_kondisi No_Faktur_Pembelian Tgl_Faktur_Pembelian No

Hal : …..

CV. INDOLATIEF Jl. MAD NOER NO.2 JAMPANG Tlp. (0251) 6012477 - 6032256

Logo

Kode_Nama Barang

Faktur Pembelian

: …………. : …………. : ………….

: ………………. : ……………….. : ………………..

No_PJ Kode_Supplier Nama_Supplier QTY Beli

Nama_Nama_Barang

Tgl

Harga Satuan

Jumlah

Harga Total Rp.

Tanda Terima

Hormat Kami

( Supplier )

( User Name )

Gambar 4.57 Report Faktur Pembelian

4.2.3.7.31. Rancangan Report Faktur Penjualan Hal : …..

Logo


Ket_kondisi No_Faktur_Penjualan Tgl_Faktur_Penjualan No

Kode_Nama_Barang

Tanda Terima ( Relasi )

: …………. : …………. : …………. Nama_Barang

Faktur Penjualan Kode_Relasi Nama_Relasi QTY Jual

Hormat Kami

: ……………….. : ……………….. Harga Satuan

Harga Total Rp.

( User Name )

Gambar 4.58 Report Faktur Penjualan

Jumlah

86

4.2.3.7.32. Rancangan Report Daftar Hutang

Kode_Supplier Nama_Supplier No

Hal : …..


Logo

: ……………….. : ………………..

Tgl_Angsuran

No_Faktur_Pembelian

Daftar Hutang : ……………….. : ………………..

Tgl_Jatuh_tempo Kode_Hutang Angsuran

Cash

Tanda Terima

Hormat Kami

( Supplier )

( User Name )

Credit

Gambar 4.59 Report Daftar Hutang

4.2.3.7.33. Rancangan Report Daftar Piutang Hal : …..

Logo


Kode_Relasi Nama_Relasi No

: ……………….. : ………………..

Tgl_Angsuran

No_Faktur_Pembelian

Tanda Terima ( Relasi )

Daftar Piutang : ……………….. : ………………..

Tgl_Jatuh_tempo Kode_Piutang Angsuran

Cash

Hormat Kami ( User Name )

Gambar 4.60 Report Daftar Piutang

Credit

87

4.2.3.7.34. Rancangan Report Daftar Pemesanan Barang

Logo

No_PJ Tgl_PJ Tgl_Datang_Barang No

Hal : …..


: …………. : …………. : ………….

Kode_Barang

Nama_Barang

Daftar Pemesanan Barang : ……………….. : ………………..

Kode_Supplier Nama_Supplier QTY Beli

Tgl_Exp

Tanda Terima

Hormat Kami

( Supplier )

( User Name )

Harga Satuan

Jumlah

Harga Total Rp.

Gambar 4.61 Report Daftar Pemesanan Barang

4.2.3.7.35. Rancangan Report Daftar Retur Pembelian

Logo


No_Retur_Pembelian Tgl_Retur_Pembelian No_Faktur_Pembelian No

: …………. : …………. : ………….

Kode_Barang

Hal : ….. Daftar Retur Pembelian Kode_Supplier Nama_Supplier

: ……………….. : ……………….. QTY Retur

Nama_Barang

Tanda Terima

Hormat Kami

( Supplier )

( User Name )

Gambar 4.62 Report Daftar Retur Pembelian

88

4.2.3.7.36. Rancangan Report Lap. Daftar Faktur Pembelian Harian.

Logo

No

LAPORAN DAFTAR FAKTUR PEMBELIAN HARIAN


No_Faktur_Pembelian

Tgl_Faktur_Pembelian

Hal : …..

Tgl : ………………..….

Kode_Supplier

Nama_Supplier

Ket_Kondisi

Jumlah

Total Pengeluaran Rp.

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

Gambar 4.63 Report Laporan Daftar Faktur Pembelian Harian

4.2.3.7.37. Rancangan Report Lap. Daftar Faktur Pembelian Bulanan.

Logo

No

LAPORAN DAFTAR FAKTUR PEMBELIAN BULANAN


Tgl_faktur_pembelian

Hal : …..

Bln : ………………..….

Jenis_Supplier

Ket_Kondisi

Total Pengeluaran Rp.

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

Gambar 4.64 Report Laporan Daftar Faktur Pembelian Bulanan

Jumlah

89

4.2.3.7.38. Rancangan Report Lap. Daftar Faktur Penjualan Harian

Gambar 4.65 Report Laporan Daftar Faktur Penjualan Harian

4.2.3.7.39. Rancangan Report Lap. Daftar Faktur Penjualan Bulanan

Logo

No

LAPORAN DAFTAR FAKTUR PENJUALAN BULANAN


Tgl_faktur_penjualan

Hal : …..

Bln : ………………..….

Jenis_Relasi

Ket Kondisi

Total Pemasukan Rp.

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

Gambar 4.66 Report Laporan Daftar Faktur Pembelian Bulanan

Jumlah

90

4.2.3.7.40. Rancangan Report Lap. Daftar Retur Pembelian Harian

Logo

No

Hal : …..

LAPORAN DAFTAR RETUR PEMBELIAN HARIAN


Tgl : ………………..….

No_Retur_Pembelian

Kode_Nama_Barang

Nama_Barang

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

QTY_Retur

Gambar 4.67 Report Laporan Daftar Retur Pembelian Harian

4.2.3.7.41. Rancangan Report Lap. Daftar Hutang Harian

Logo

No

LAPORAN DAFTAR HUTANG HARIAN


Tgl_Angsuran_Hutang

Kode_Hutang

Hal : …..

Tgl : ………………..….

Kode_Supplier

Nama_Supplier

Tgl_Jth_Tempo

Angsuran

Total Hutang Rp.

Sisa_Ttl_Hutang

…………………...

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

Gambar 4.68 Report Laporan Daftar Hutang Harian

91

4.2.3.7.42. Rancangan Report Lap. Daftar Hutang Bulanan

Logo

No

LAPORAN DAFTAR HUTANG BULANAN


Hal : …..

Bln : ………………..….

Kode_Supplier

Nama_Supplier

Kode_Hutang

Total Hutang Rp.

Sisa_Ttl_Hutang

…………………...

Tanda Terima

Tanda Terima

( Pimpinan )

( User Name )

Gambar 4.69 Report Laporan Daftar Hutang Bulanan

4.2.3.7.43. Rancangan Form Informasi About

Gambar 4.70 Form Informasi About

92

4.2.4. Coding Coding merupakan langkah keempat dari proses pengembangan sistem informasi, dalam hal ini coding dilakukan dengan menggunakan bahasa pemograman Delphi 7.0 dan untuk database nya menggunakan SQL Server 2000. Untuk lebih jelasnya proses coding ini dapat dilihat dalam lampiran.

4.2.5. Testing Program Pada langkah selanjutnya adalah testing program, pada langkah ini perancangan sistem diuji dengan menggunakan metoda black box testing. Proses testing ini menguji bahwa semua operasi yang berada didalam sistem yang dibuat dapat berjalan sesuai dengan tujuan pembuatan sistem. Ini dapat dilihat dalam lampiran.

4.2.6. Maintenance Tahap ini dilakukan untuk menjamin bahwa program dapat berjalan sesuai dengan yang diharapkan. Tahap ini juga berfungsi untuk memantau adanya kesalahan-kesalahan yang disebabkan dari kesalahan pada tahap perancangan aplikasi. Karena perancangan sistem ini belum sampai pada implementasi di tempat aplikasi ini dibuat (perancangan sistem terintegrasi daur ulang sampah plastik berbasis client server) maka tahapan maintenance ini belum dilakukan.

BAB V

KESIMPULAN DAN SARAN

5.1. Kesimpulan

Berdasarkan analisis sistem yang telah yang telah dilakukan oleh penulis pada CV. Indolatief maka dapat diambil kesimpulan sebagai berikut:

a. Proses dalam penerimaan, pengeluaran, dan rekaptulasi data yang di lakukan secara berulang-ulang sangat potensial apabila dilakukan dengan komputerisasi karena dapat dilakukan dengan kecepatan prosesnya dan ketelitian yang cukup akurat, efisien dan efektif antara administrasi dan pimpinan.

5.2. Saran

Dengan melihat kesimpualan yang di kemukakan, maka penulis mempunyai beberapa saran yang diharapkan dapat menjadi masukan dan dorongan yang bermanfaat. Adapun saran-saran tersebut sebagai berikut: a. Aplikasi dapat dikembangkan lebih lanjut dengan berbasiskan web agar terintegrasi antara perusahaan dan supplier. b. Agar

perusahaan

dapat

lebih

berkembang

perlu

dilakukan

pengembangan pada pemasaran lainnya seperti menentukan harga pokok penjualan dan menentukan media promosinya. 93

DAFTAR PUSTAKA

Bambang Hariyanto, Ir., MT. (2004). Sistem Basis Data. Bandung. Informatika. Dedi TP, (2006), Cara Mudah Belajar Delphi Semarang. Neomedia. Didik Dwi Prasetyo. (2004). Aplikasi Database Client/Server menggunakan Delphi dan MySQL. Jakarta : Elex Media Komputindo. Fathansyah,

(2002).

Buku Teks Ilmu Komputer Basis Data. Bandung.

CV.Informatika. Jaja Jamaludin Malik, (2006). Kumpulan Latihan Pemograman Delphi, (Yogyakarta: ANDI). Jogiyanto H.M. (2005). Analisis & Desain Sistem Informasi. Andi Offset Yogyakarta. Yogyakarta. Kadir, Abdul. (2009). Dasar Perancangan & Implementasi Database Relasional. Yogyakarta : Penerbit Andi. Kurniawan, Yahya (2004) Beajar Sendiri Micrsoft Access 2003. Jakarta : Elex Media Komputindo. Ladjamuddin, Al Bahra Bin. (2005). Analisis dan Desain Sistem Informasi. Jakarta : Graha Ilmu. McLeod dan P.Schell. (2007). Sistem Informasi Manajemen. Edisi Kesembilan. Jakarta : PT. Indeks. Roger S. Pressman, Ph.D.(2002) Rekayasa Perangkat Lunak. Andi Yogyakarta. Siswoutomo, Wiwit. 2006. Kiat Jitu Membangun Software dan Website. Jakarta. PT. Elex Media Koputindo. Sopandi. Dede. (2006) Instalasi dan Konfigurasi Jaringan Komputer Edisi Revisi. Bandung. Informatika.

94

Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7 Studi Kasus CV. Indolatief (1)

Setiajid, (2)Herlino Nanang, (3) Zainuddin Bey Fananie (1)

Mahasiswa Fakultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta Telp. 085694281877 e-mail : [email protected] (2)

Dosen Fakultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta (3)

Dosen Fakultas Sains dan Teknologi Universitas Islam Negeri Syarif Hidayatullah Jakarta ABSTRAK Pengolahan data di suatu perusahaan adalah suatu permasalahan yang dapat dikatakan penting karena penyimpanan data yang tidak teratur, pencarian data yang lambat akan sangat merepotkan yang dalam hal ini akan cukup menyita banyak waktu yang seharusnya tidak terbuang percuma begitu saja. Permasalahan pengolahan data ini sebenarnya dapat di atasi dengan solusi yaitu dengan membuat suatu perangkat lunak yang dibuat sedemikian rupa untuk membantu menyelesaikan masalah secara cepat, tepat guna dan efisien . Hasil pengujian yang dilakukan di CV. INDOLATIEF membuktikan bahwa dengan adanya sistem informasi dan perangkat lunak pengolahan data Perdagangan Daur Ulang Sampah Plastik ini dapat menyelesaikan permasalahan yang ada dengan baik.

Kata Kunci : Delphi, Aplikasi, Pembelian Jenis Plastik

1.

sistem

PENDAHULUAN Dalam

suatu

perusahaan

pengolahan

kerja

dan

kinerja

menurun,

pengelolaan informasi yang baik sedikit atau banyak

informasi yang baik menjadi suatu kebutuhan yang

dapat membantu meningkatkan

dapat dikatakan penting, baik perusahaan–perusahaan

kinerja sistem dalam suatu organisasi.

swasta maupun di lembaga–lembaga pemerintahan

adanya

Dalam

hal

pengelolaan

produktifitas dan

suatu

informasi

yang ada di Indonesia. Pengelolaan informasi yang

dibutuhkan suatu perangkat lunak yang mendukung

baik menjadi amat sangat penting saat produktifitas,

sistem informasi tersebut dan diakses dengan sistem

komputerisasi. Kebutuhan akan pelayanan informasi

kesulitan untuk mengelola dan menghitung transaksi

yang cepat, tepat dan akurat merupakan hal yang

secara cepat, tepat, dan efisien. Serta masih bersifat

sangat penting dalam pengaksesan suatu perangkat

manual dan tidak memiliki jaringan sehingga waktu

lunak sistem informasi.

pengerjaan atau waktu pencarian data memerlukan

Pada CV. Indolatief , suatu perusahaan

waktu yang lumayan lama.

swasta dalam bidang wiraswasta ini berusaha menerapkan suatu sistem informasi perangkat lunak yang akan membantu proses pengolahan data perdagangan daur ulang sampah plastik. Pengolahan data perdagangan daur ulang sampah plastik ini terdiri dari

layanan transaksi seperti: daftar dan

jumlah stock barang, penjualan dan pembelian, mengetahui tanggal dan waktu pemesanan atau

Agar permasalahan tersebut di atas dapat diatasi maka penulis mencoba membangun “Aplikasi Pembelian Jenis Plastik Dengan Menggunakan Borland Delphi 7” Study Kasus CV.Indolatief. Agar lebih efisien dan efektif dalam pengerjaan ataupun pencarian data yang bersangkutan dan memudahkan

penyampaian

data-data

yang

dibutuhkan oleh pihak-pihak yang terkait.

nama-nama dan alamat pelanggan dan suplier, dan lain-lain,

sehingga

mempermudah

dalam 2.

penyampaian laporan dari pihak keuangan kepada pimpinan pengolahan

atau

pihak

Pencatatan

Perdagangan adalah

suatu kegiatan jual beli

barang, perniagaan dengan menukarkan suatu alat

Penjualan. Serta laporan data

pembayaran (uang) dengan barang yang akan

pembelian dan penjualan serta rekapitulasi ini masih

ditukarkan sampai menemukan kesepakatan harga

dilakukan dengan menggunakan tulisan tangan. Hal

antara satu orang/instansi/perusahaan dengan banyak

ini dapat dikatakan kurang efektif dan efisien,

orang/instansi/supplier lainnya. Perdagangan dibagi

dikarenakan sulit untuk mencatat dan menghitung

menjadi tiga kategori yaitu pembelian, penjualan, dan

banyaknya jenis pengeluaran yang ada, banyaknya

inventory. (Bahagia,2006:2)

dan

Penjualan,

dan

2.1. Definisi Perdagangan

Transaksi

Pembelian

Pembelian,

terkait.

LANDASAN TEORI

jumlah barang, maupun besarnya jumlah harga. Banyaknya

jumlah

laporan

yang

ada

dapat

mengakibatkan penjualan dan pembelian mengalami

“Inventori adalah sumber daya menganggur

2.1.1. Definisi Pembelian Pembelian adalah suatu kegiatan yang sifatnya

(idle resources) yang keberadaannya menunggu

menukarkan suatu alat pembayaran (uang) dengan

proses yang lebih lanjut.” (Bahagia. 2006:7)

barang yang akan ditukarkan sampai menemukan

2.2

suatu kesepakatan harga antara satu orang / instansi /

2.

METODOLOGI PENELITIAN

2.1.

Pengumpulan Informasi dan Data

perusahaan dengan banyak orang / instansi /

Untuk penyusunan skripsi ini, diperlukan data dan perusahaan / supplier lainnya. (Bahagia,2006:6) informasi yang berkaitan sesuai judul yaitu ”Aplikasi 2.1.2. Definisi Penjualan Pembelian Jenis Plastik Dengan Borland Delphi 7” Penjualan adalah suatu usaha yang terpadu disini penulis melakukan: untuk mengembangkan rencana-rencana strategis 1.

Studi Pustaka

yang diarahkan pada usaha pemuasan kebutuhan dan Dalam studi pustaka ini, penulis melakukan keinginan pembeli, guna mendapatkan penjualan pengamatan dari buku-buku dan situs dari yang menghasilkan laba. (Bahagia,2006:7) internet yang berkaitan dalam penulisan ini 2.1.3.

Definisi Inventory untuk menunjang segala aspek yang dibutuhkan Salah satu elemen dalam perusahaan yang dalam pembuatan aplikasi yang sesuai. Bukunya

sangat penting dalam bidang Inventori sangat di antara lain : mempengarui banyak aspek penentu keberhasilan 1. Didik

Dwi

Prasetyo.

2004.

Aplikasi

kerja dari perusahaan atau suatu instasi tersebut. Jika Database

Client/Server

menggunakan

inventori dapat di organisir dengan baik, maka di Delphi

dan

MySQL.

Elex

Media

harapkan perusahaan dapat menjalankan semua Komputindo. proses pekerjaanya dengan baik. Terdapat beberapa 2. Roger S. Pressman, Ph.D.2002 Rekayasa kendala dalam pengelelolaan inventori, salah satunya Perangkat Lunak. Andi Yogyakarta. adalah apabila perusahaan atau instansi yang 3. Bambang Hariyanto, Ir, MT Sistem Basis mengelola semua aset belum menggunakan sistem Data. Informatika Bandung. informasi dalam hal manipulasi data.

2.

Studi Lapangan

Penulis mencari dan mendapatkan skripsi

Penulis melakukan beberapa hal :

sebelumnya yang sejenis untuk perbandingan

a)

Observasi

sebagai masukan atau referensi pada sistem

Dalam observasi, penulis melihat langsung

yang di usulkan, untuk bisa mencapai hasil

tempat pengelolaan sampah daur ulang

yang maksimal dalam perancangan aplikasi

plastik di CV.Indolatief. Penulis melihat

yang di buat. Agar memiliki kompleksitas

dari awal hingga akhir distribusi sampah

yang sesuai dengan kebutuhan observasi

dari tingkat penerimaan sampai tingkat

pada CV.Indolatief sebagai sarana penelitian.

pengeluaran keuangan dan pengolahan.

Referensi untuk literatur sejenisnya ada pada

Dimana penulis melihat jalur keuangan dan

Bab 2 Sub 10.

manajemen yang kurang tertata dengan rapi dan penempatan barang yang asal-asalan. Observasi dilakukan pada tanggal 10

Maret 2010 dengan lokasi penelitiannya adalah

Wawancara Sedangkan

Waktu penelitian ini dilakukan selama 1 bulan, mulai dari 10 Februari 2010 sampai dengan 10

Februari 2010. b)

3. Waktu dan Lokasi Penelitian

pada

menanyakan

wawancara,

langsung

kepada

penulis pihak

CV. Indolatief

Jl. Mad Noer No.2 Jampang-

Bogor.

pemilik yaitu Bapak H.latief dan bagian keuangan yaitu Bapak Wangsa. Wawancara pertama kali dilakukan pada tanggal 15 Februari

2010,

bertujuan

untuk

menanyakan sistem yang dibutuhkan guna kepentingan penyimpanan data. Wawancara selanjutnya dilakukan tanggal 25 Februari 2010, bertujuan untuk mendapatkan data dan informasi. c) Literatur Sejenis

4. Hipotesis Penelitian Hipotesis yang akan digunakan dalam penelitian ini adalah bagaimana cara untuk memudahkan CV.Indolatief dalam perdagangan dan pencaraian informasi mulai dari informasi laporan penjualan sampai pembelian, pencarian data barang sampai data supplier dan relasi.. Pada penelitian ini, penulis

akan

menggunakan

pendekatan

pengembangan sistem berbasis client server.

pembelian bahan mentah daur ulang

3.2. Metode Pegembangan Sistem Dalam melakukan perancangan sistem ini

sampah dan menjualnya dalam bentuk

penulis menggunakan metodologi SDLC (System

bahan setengah jadi yang terletak di

Development

hidup

Jl.Mad Noer No.2 Jampang-Bogor. CV.

pengembangan sistem, bisa juga disebut paradigma

Indolatief berdiri pada tahun 1990,

air terjun (waterfall).

didirikan oleh Bapak. H. Abdul Latief.

Life

Cycle)

atau

daur

Paradigma ini sangat sistematis dalam urutan

Perusahaan ini bergerak dalam bidang

proses pembuatan perangkat lunak. Paradigma air

pengolahan daur ulang sampah plastik

terjun (waterfall) dapat digambarkan sebagai berikut

menjadi

:

nantinya akan di jual kepada pabrik

bahan

setengah

jadi

yang

produksi. Untuk pembelian bahan daur ulang di beli dari supplier-supplier dan dari

pihak

warga

sekitar

yang

menjualnya.

4.1.2. Visi dan Misi CV. Indolatief a. Visi Mewujudkan pengurangan sampah plastik dan menjaga kelestarian alam Gambar 3.1. Paradigma SDLC (Waterfall) (Sumber : Pressman, 2002 : 37)

yang mampu memberikan kontribusi positif

pada

pemerintah

dan

pengembangan bisnis berskala daerah 4. 4.1.

yang

ANALISIS DAN PEMBAHASAN

efektif

dan

berdaya

saing

dibidangnya.

Gambaran Umum Perusahaaan

b. Misi

4.1.1. Profil CV. Indolatief merupakan

Terus berupaya untuk maju dan tetap

tempat pengumpulan sekaligus tempat

mengembangkan usaha dengan cara

CV.

Indolatief

mengurangi beban sampah plastik dan

c. Melakukan rapat koordinasi dan evaluasi setiap bulannya.

membuka lapangan pekerjaan.

d. Menyusun rencana strategis bisnis dalam jangka pendek

4.1.3. Struktur Organisasi CV. Indolatief

dan jangka panjang.

Pimpinan Utama

e. Bertanggung jawab terhadap

Pembelian

Keuangan Kasir

Gudang

semua bidang didalam struktur organisasi.

Penjualan f.

Gambar 4.1 Struktur Organisasi

Mengambil

keputusan-

keputusan


strategis

dan

pertimbangan-pertimbangan yang

4.1.4. Fungsi dan Tugas

meningkatkan

1. Pimpinan Utama a. Membuat

kebijakan

tujuan perusahaan yang akan

a. Mengenali,

secara

c. Bertanggung

terjadi

penyimpangan

penyimpangan

-

dalam

melaksanakan tugas masing masing.

selama

jawab

pada

pimpinan utama.

maksimal dan seluruh kegiatan tiap - tiap bidang agar tidak

pesanan

proses penjualan berlangsung.

tercapainya

perusahaan

mengidentifikasi,

dan menganalisa situasi pasar. b. Menerima

b. Mengusahakan

kinerja

2. Bagian Pembelian

dicapai pada masa yang akan datang.

dalam

perusahaan.

yang

berhubungan dengan arah dan

tujuan

matang

d.

Bertanggung

jawab

atas

pemesanan persediaan barang. e. Membuat order f. Bekerja sama dengan bagianbagian yang terkait.

3.

c. Mengatur jumlah barang yang

Bagian Keuangan

akan di jual.

a. Bersama staff melaksanakan kegiatan pengelolaan keuangan

6. Bagian Kasir a. Melayani transaksi pembelian

harian perusahaan.

barang.

b. Penerimaan kas keuangan. c. Menyimpan

pemasukan

b. Bertanggung

ke

dengan harga yang telah di

d. Memberikan laporan jawab

tentukan.

atas

pemasukan penjualan barang.

4.2. Perancangan Perangkat Lunak Perancangan perangkat lunak akan dijelaskan

4. Bagian Gudang a. Mencatat setiap penerimaan

secara terinci melalui alat bantu teknik yang digunakan didalam analisa dan perancangan sistem

dan pengeluaran barang b. Berhubungan dengan mitra terkait dengan pengadaan stok barang.

sebagai berikut : 1. Perancangan Bagan Alir. Pada tahap ini dilakukan perancangan bagan

c. Mengeluarkan gudang

atas

keuangan pembelian barang

rekening bank.

e. Bertanggung

jawab

untuk

bagian

barang display

penjualan

dari ke

alir usulan yang akan menggambarkan aliran sistem yang akan dirancang.

ke 2. Perancangan Diagram Arus Data.

pabrik/relasi Perancangan Diagram Arus Data terdiri dari d. Memasukkan

barang

ke Perancangan

gudang

dari

Diagram

konteks,

dimana

pembelian gambaran dari bagan alir akan diturunkan

barang. kedalam diagram konteks, dan Perancangan 5. Bagian Penjualan Data Flow Diagram yaitu Penurunan dari a. Melakukan penjualan barang. diagram konteks disebut dengan data flow b. Bekerja sama dengan bagian diagram (DFD). terkait.

b. Pengiriman Laporan antara bagian

3. Perancangan Database. Perancangan Database terdiri dari Perancangan

yang

Kamus

mengalami

Data,

Perancangan

kamus

data

satu

dengan proses

yang yang

lain lama

diperlukan untuk mendefinisikan field-field

dikarenakan setiap laporan yang

yang digunakan dalam perancangan perangkat

dibuat harus di cek satu persatu

lunak system informasi, dan Perancangan

dikarenakan

Relasi

database sendiri-sendiri.

Antar

Tabel,

yaitu

dengan

mempresentasikan keterhubungan (relasi) antar table untuk membentuk sebuah basis data.

tidak

mempunyai

c. Pecarian data – data barang yang mengalami kenaikan harga masih menggunakan buku besar pembantu

4. Rancangan Menu. Rancangan Menu terdiri dari Rancangan Bagan

sehingga proses-proses kenaikan

Alir dan Rancangan Tampilan Aplikasi.

harga menjadi lama. Penyebab dari kondisi tersebut antara

4.2.1.

lain sebagai berikut :

Analisis Sistem 4.2.1.1. Analisis Sistem Lama Setelah

penulis

mengamati

Belum adanya aplikasi yang terintegrasi dan

manganalisa terhadap kinerja aplikasi pembelian jenis plastik, masih banyak memiliki kekurangan dan kelemahan, diantaranya : a. Pembuatan Laporan tidak efektif

antar Bagian. Pengolahan data seperti proses pencatatan data, dan proses pencarian data masih dalam keadaan manual atau buku besar dan tidak memiliki proses yang setiap data tidak terkoneksi antara satu client dengan

dan efisien karena membutuhkan

client lainnya.

waktu yang lama.

Tabel 4.1 Perangkat Lunak Pendukung

NAMA

atau mendefinisikan bagian (pelaku proses),

KETERANGAN

Sistem Operasi

proses (manual atau berbasis komputer) dan aliran

Sistem operasi yang bertindak sebagai client/server. Windows XP

data (dokumen keluaran dan masukan). Diagram Bahasa pemrograman yang dipergunakan untuk membangun

Software

perangkat

Borland Delphi 7.0

lunak

sistem

informasi

Perdagangan

Jamu

alir sistem ini juga menjelaskan urutan-urutan dari

Tradisional.

prosedur-prosedur yang terdapat di dalam sistem.

Database yang berfungsi sebagai database server dipergunakan

Berikut

Database Microsoft

akan

digambarkan

sistem

prosedur

untuk meletakkan / menyimpan data-data yang dibutuhkan.

pengolahan data pembelian dan penjualan barang

Access

Komponen

Komponen tambahan yang menghubungkan aplikasi Delphi

ADOConection

yang ada di CV. Indolatief.

dengan Database Microsoft Access

Tabel 4.2 Perangkat Keras Pendukung

5.

PENUTUP

5.1.

Kesimpulan

Berdasarkan analisis sistem yang telah NAMA

KETERANGAN

4 Unit

Komputer yang terhubung ke dalam suatu jaringan

Komputer

yang telah dilakukan oleh penulis pada CV. Indolatief maka dapat diambil kesimpulan

komputer yang dibagi 1 server dan 3 client. Berfungsi sebagai media transfer data antara

sebagai berikut:

1 Unit HUB komputer server dan client.

a. Lan Card

Kartu Jaringan.

Kabel RJ-45

Kabel dan RJ-45

Proses dalam penerimaan, pengeluaran, dan rekaptulasi data yang di lakukan secara berulang-ulang

Hard Disk dipergunakan 40 GB untuk server dan Hard Disk

sangat

potensial

apabila

20 GB untuk client

dilakukan dengan komputerisasi karena dapat

3 Unit Epson LX-300, 1 Unit Canon HP Deksjet

dilakukan dengan kecepatan prosesnya dan

2466

ketelitian yang cukup akurat, efisien dan

4 Unit Printer

.

efektif antara administrasi dan pimpinan.

Diagram diagram

alir

yang

sistem

merupakan

menunjukan

arus

pekerjaan secara keseluruhan dari sistem

5.2.

Saran

Dengan melihat kesimpualan yang di

Kurniawan, Yahya (2004) Beajar Sendiri Micrsoft Access

kemukakan, maka penulis mempunyai beberapa

2003.

Jakarta

:

Elex

Media

Komputindo. saran yang diharapkan dapat menjadi masukan dan dorongan yang bermanfaat. Adapun saran-saran

Ladjamuddin, Al Bahra Bin. (2005). Analisis dan Desain Sistem Informasi. Jakarta : Graha Ilmu.

tersebut sebagai berikut:

McLeod dan P.Schell. (2007). Sistem Informasi a. Aplikasi dapat dikembangkan lebih lanjut dengan berbasiskan

web

agar

terintegrasi

antara

Manajemen. Edisi Kesembilan. Jakarta : PT. Indeks. Roger S. Pressman, Ph.D.(2002) Rekayasa Perangkat

perusahaan dan supplier.

Lunak. Andi Yogyakarta.

b. Agar perusahaan dapat lebih berkembang perlu dilakukan pengembangan pada pemasaran lainnya

Siswoutomo, Wiwit. 2006. Kiat Jitu Membangun Software dan Website. Jakarta. PT. Elex Media Koputindo.

seperti menentukan harga pokok penjualan dan menentukan media promosinya.

Sopandi. Dede. (2006) Instalasi dan Konfigurasi Jaringan Komputer Edisi Revisi. Bandung. Informatika.

DAFTAR PUSTAKA Bambang Hariyanto, Ir., MT. (2004). Sistem Basis Data. Bandung. Informatika. Dedi TP, (2006), Cara Mudah Belajar Delphi Semarang. Neomedia. Didik Dwi Prasetyo. (2004). Aplikasi Database Client/Server

menggunakan

Delphi

dan

MySQL. Jakarta : Elex Media Komputindo. Fathansyah,

(2002).

Buku Teks Ilmu Komputer

Basis Data. Bandung. CV.Informatika. Jaja Jamaludin Malik, (2006). Kumpulan Latihan Pemograman Delphi, (Yogyakarta: ANDI). Jogiyanto H.M. (2005). Analisis & Desain Sistem Informasi.

Andi

Offset

Yogyakarta.

Yogyakarta. Kadir, Abdul. (2009). Dasar Perancangan & Implementasi

Database

Yogyakarta : Penerbit Andi.

Relasional.

LAMPIRAN PROGRAM

DataBarang1: TMenuItem; Editor2: TMenuItem;

MENU UTAMA unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus, Grids, Calendar, jpeg, ImgList, XPMan;

type TForm1 = class(TForm) MainMenu1: TMainMenu; Menu1: TMenuItem; Keluar1: TMenuItem; Login1: TMenuItem; Logout1: TMenuItem; N1: TMenuItem; Setting1: TMenuItem; UserSetting1: TMenuItem; MasterData1: TMenuItem; ransaksi1: TMenuItem; Laporan1: TMenuItem; Informasi1: TMenuItem; Barang1: TMenuItem;

JenisBarang1: TMenuItem; Lokasi1: TMenuItem; Supplier1: TMenuItem;

Inventory1: TMenuItem; Laporan2: TMenuItem; LapDaftarBarang1: TMenuItem; Lapretur1: TMenuItem; LapHutang1: TMenuItem;

Relasi1: TMenuItem; DataSupplier1: TMenuItem; DataRelasi1: TMenuItem; Editor3: TMenuItem; JenisSupplier1: TMenuItem; Edittor1: TMenuItem; JenisRelasi1: TMenuItem; Pembelian1: TMenuItem;

LapPenjualan2: TMenuItem; LapPiutang1: TMenuItem; DaftarSupplier1: TMenuItem; N2: TMenuItem; DaftarRelasi1: TMenuItem; N3: TMenuItem; DaftarBarang1: TMenuItem; Panel1: TPanel;

Penjualan1: TMenuItem; DataPembelian1: TMenuItem;

Panel2: TPanel; Panel3: TPanel; Panel4: TPanel;

PemesananBarang1: TMenuItem; ReturPembelian1: TMenuItem; Htang1: TMenuItem; AplikasiPenjualan1: TMenuItem; Piutang1: TMenuItem;

Timer1: TTimer; Calendar1: TCalendar; About1: TMenuItem; Image1: TImage; Pencarian1: TMenuItem; Data1: TMenuItem;

LapPembelian1: TMenuItem; LapPenjualan1: TMenuItem;

procedure Keluar1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure JenisRelasi1Click(Sender: TObject);

procedure DaftarBarang1Click(Send er: TObject);

procedure Login1Click(Sender: TObject);

procedure DataPembelian1Click(Sen der: TObject);

procedure DaftarSupplier1Click(Sen der: TObject);

procedure Logout1Click(Sender: TObject);

procedure PemesananBarang1Click( Sender: TObject);

procedure Pencarian1Click(Sender: TObject);

procedure UserSetting1Click(Sender: TObject);

procedure ReturPembelian1Click(Se nder: TObject);

procedure Data1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Htang1Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure DataBarang1Click(Sender: TObject);

procedure AplikasiPenjualan1Click( Sender: TObject);

procedure ype1Click(Sender: TObject);

procedure Piutang1Click(Sender: TObject);

procedure Produsen1Click(Sender: TObject);

procedure Laporan2Click(Sender: TObject);

procedure JenisBarang1Click(Sender : TObject);

procedure LapDaftarBarang1Click(S ender: TObject);

procedure Kemasan1Click(Sender: TObject);

procedure Lapretur1Click(Sender: TObject);

procedure Lokasi1Click(Sender: TObject);

procedure LapHutang1Click(Sender: TObject);

procedure DataSupplier1Click(Sende r: TObject);

procedure LapPenjualan2Click(Send er: TObject);

procedure JenisSupplier1Click(Send er: TObject);

procedure LapPiutang1Click(Sender: TObject);

procedure DataRelasi1Click(Sender: TObject);

procedure DaftarRelasi1Click(Sender : TObject);

private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit4, Unit3, Unit6, Unit5, Unit9, Unit10, Unit11, Unit12, Unit13, Unit7, Unit14, Unit8, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20, Unit23, Unit21, Unit24, Unit25, Unit27, Unit28, Unit29, Unit30, Unit26, Unit32, Unit33;

{$R *.dfm}

procedure TForm1.Keluar1Click(Sen der: TObject); begin //dm.ADOConnection1.Cl ose;

//form2.Close; panel3.Caption:=inttostr(c alendar1.Day)+' '+s+' '+inttostr(calendar1.Year) +' ';

procedure TForm1.Logout1Click(Se nder: TObject); begin //logout1.Enabled:=false;

panel2.Caption:=timetostr( now)+ ' ';

//login1.Enabled:=true;

//form2.Left:=400;

form2.FormStyle:=fsMDI Child;

close; end; //form2.top:=250; form2.Left:=400; procedure TForm1.FormActivate(Se nder: TObject);

{form1.Setting1.Visible:=f alse; form1.MasterData1.Visibl e:=false;

var i:integer; s:string; begin

form1.ransaksi1.Visible:=f alse; form1.Laporan1.Visible:= false;

i:=calendar1.Month;

form1.Informasi1.Visible: =false; }

case i of

end;

1 : s:='Januari'; 2 : s:='Pebruari';

form2.top:=250; form2.Visible:=true; form2.MaskEdit1.Clear; form1.Setting1.Visible:=fa lse; form1.MasterData1.Visibl e:=false; form1.ransaksi1.Visible:=f alse; form1.Laporan1.Visible:= false; end;

3 : s:='Maret';

procedure TForm1.Login1Click(Sen der: TObject);

4 : s:='April';

begin

5 : s:='Mei';

logout1.Enabled:=true;

procedure TForm1.UserSetting1Clic k(Sender: TObject);

6 : s:='Juni';

login1.Enabled:=false;

begin

7 : s:='Juli';

form2.FormStyle:=fsMDI Child;

User_edit.ShowModal;

8 : s:='Agustus'; 9 : s:='September'; 10 : s:='Oktober'; 11 : s:='Nevember'; 12 : s:='Desember'; end; //form2.FormStyle:=fsnor mal;

end;

form2.Left:=400; form2.top:=250; form2.Visible:=true;

procedure TForm1.Timer1Timer(Sen der: TObject);

form2.MaskEdit1.Clear; begin end; panel2.Caption:=timetostr( now)+' ';

end;

fprodusen.ShowModal;

form1.ransaksi1.Enabled: =false;

end; procedure TForm1.DataBarang1Clic k(Sender: TObject); begin form1.Menu1.Enabled:=fa lse;

form1.Pencarian1.Enabled :=false; procedure TForm1.JenisBarang1Clic k(Sender: TObject);

form1.Laporan1.Enabled: =false;

begin

form1.Informasi1.Enabled :=false;

fjenisbarang.ShowModal; form1.Setting1.Enabled:=f alse;

end;

fsupplier.FormStyle:=fsM DIChild; fsupplier.Visible:=true;

form1.MasterData1.Enabl ed:=false; form1.ransaksi1.Enabled: =false; form1.Pencarian1.Enabled :=false; form1.Laporan1.Enabled: =false; form1.Informasi1.Enabled :=false;

procedure TForm1.Kemasan1Click(S ender: TObject); begin fkemasan.ShowModal; end;

end;

procedure TForm1.JenisSupplier1Cli ck(Sender: TObject); begin fjenissupplier.ShowModal ;

procedure TForm1.Lokasi1Click(Sen der: TObject);

end;

fjamu.FormStyle:=fsMDI Child; fjamu.Visible:=true;

begin

end;

flokasi.ShowModal;

procedure TForm1.DataRelasi1Click (Sender: TObject);

end;

begin

procedure TForm1.ype1Click(Sender : TObject); begin

procedure TForm1.DataSupplier1Cli ck(Sender: TObject);

ftype.ShowModal;

begin

end;

form1.Menu1.Enabled:=fa lse;

procedure TForm1.Produsen1Click(S ender: TObject); begin

form1.Setting1.Enabled:=f alse; form1.MasterData1.Enabl ed:=false;

form1.Menu1.Enabled:=fa lse; form1.Setting1.Enabled:=f alse; form1.MasterData1.Enabl ed:=false; form1.ransaksi1.Enabled: =false; form1.Pencarian1.Enabled :=false; form1.Laporan1.Enabled: =false;

form1.Informasi1.Enabled :=false; fcostumer.FormStyle:=fs MDIChild; fcostumer.Visible:=true;

procedure TForm1.PemesananBaran g1Click(Sender: TObject);


begin



freturbeli.FormStyle:=fsM DIChild;

form1.Setting1.Enabled:=f alse;

freturbeli.Visible:=true;

end; procedure TForm1.JenisRelasi1Click (Sender: TObject);

end; form1.MasterData1.Enabl ed:=false;

begin fjenisrelasi.ShowModal; end;

procedure TForm1.DataPembelian1C lick(Sender: TObject); begin form1.Menu1.Enabled:=fa lse; form1.Setting1.Enabled:=f alse; form1.MasterData1.Enabl ed:=false; form1.ransaksi1.Enabled: =false; form1.Pencarian1.Enabled :=false;


procedure TForm1.Htang1Click(Sen der: TObject);

form1.Pencarian1.Enabled :=false;

begin





fpesanbarang.FormStyle:= fsMDIChild;

form1.MasterData1.Enabl ed:=false;

fpesanbarang.Visible:=tru e;


end;


procedure TForm1.ReturPembelian1 Click(Sender: TObject);

form1.Laporan1.Enabled: =false; form1.Informasi1.Enabled :=false;

begin





fpembelian.FormStyle:=fs MDIChild;


fpembelian.Visible:=true;


fhutang.FormStyle:=fsMD IChild; fhutang.Visible:=true;

end;


end;

procedure TForm1.AplikasiPenjuala n1Click(Sender: TObject); begin


fpiutang.FormStyle:=fsM DIChild;


fpiutang.Visible:=true;

flapretur.QRLabel11.Capti on:=form2.DBLookupCo mboBox1.Text; flapretur.ShowModal;

end; form1.MasterData1.Enabl ed:=false; form1.ransaksi1.Enabled: =false;

//flapretur.FormStyle:=fs MDIChild; procedure TForm1.Laporan2Click(S ender: TObject);

//flapretur.Visible:=true; end;


begin


flapbeli.QRLabel11.Capti on:=form2.DBLookupCo mboBox1.Text;

procedure TForm1.LapHutang1Click (Sender: TObject);


flapbeli.ShowModal;

begin

fdatajual.FormStyle:=fsM DIChild;

//flapbeli.FormStyle:=fsM DIChild;

flaphutang.QRLabel11.Ca ption:=form2.DBLookupC omboBox1.Text;

fdatajual.Visible:=true;

//flapbeli.Visible:=true;

end;

end;

flaphutang.ShowModal; //flaphutang.FormStyle:=f sMDIChild; procedure TForm1.Piutang1Click(Se nder: TObject);

procedure TForm1.LapDaftarJamu1 Click(Sender: TObject);

begin

begin


flappesanjamu.QRLabel11 .Caption:=form2.DBLook upComboBox1.Text;

procedure TForm1.LapPenjualan2Cli ck(Sender: TObject);

flappesanbarang.ShowMo dal;

begin

form1.Setting1.Enabled:=f alse; form1.MasterData1.Enabl ed:=false; form1.ransaksi1.Enabled: =false; form1.Pencarian1.Enabled :=false; form1.Laporan1.Enabled: =false; form1.Informasi1.Enabled :=false;

//flaphutang.Visible:=true; end;

//flappesanbarang.FormSt yle:=fsMDIChild;

flappenjualan.QRLabel11. Caption:=form2.DBLooku pComboBox1.Text;

//flappesanbarang.Visible: =true;

flappenjualan.ShowModal ;

end;

//flappenjualan.FormStyle: =fsMDIChild;

procedure TForm1.Lapretur1Click(S ender: TObject); begin

//flappenjualan.Visible:=tr ue; end;

procedure TForm1.LapPiutang1Click (Sender: TObject);

end;

begin

procedure TForm1.DaftarSupplier1C lick(Sender: TObject);

flappiutang.QRLabel11.C aption:=form2.DBLookup ComboBox1.Text;

form1.ransaksi1.Enabled: =false; form1.Pencarian1.Enabled :=false; form1.Laporan1.Enabled: =false;

begin

flappiutang.ShowModal;

fdaftarsupplier.Show;


//flappiutang.FormStyle:=f sMDIChild;

//fdaftarsupplier.FormStyl e:=fsMDIChild;

fpencarian.FormStyle:=fs MDIChild;

//flappiutang.Visible:=true ;

//fdaftarsupplier.Visible:=t rue;

fpencarian.Visible:=true;

end;

end;

if dm.ADOConnection1.Con nectionString='' then

procedure TForm1.DaftarRelasi1Clic k(Sender: TObject);

procedure TForm1.Pencarian1Click( Sender: TObject);

begin

begin

application.MessageBox(' Error','Database belum terhubung') else fpencarian.Show;

fdaftarcost.Show; //fdaftarcost.FormStyle:=f sMDIChild;

//pencarian.ShowModal; end;

//fdaftarcost.Visible:=true; end;

procedure TForm1.DaftarBarang1Cli ck(Sender: TObject); begin //fdaftarjamu.QRLabel11. Caption:=form2.DBLooku pComboBox1.Text; fdaftarjamu.QuickRep1.Pr eview; //fdaftarjamu.FormStyle:= fsMDIChild; //fdaftarjamu.Visible:=true ;

procedure TForm1.Data1Click(Send er: TObject); begin //form1.Menu1.Enabled:=f alse; //fpencarian.FormStyle:=fs MDIChild;

end; procedure TForm1.About1Click(Sen der: TObject); begin //form1.Menu1.Enabled:=f alse; //about.FormStyle:=fsMDI Child; if dm.ADOConnection1.Con nectionString='' then


application.MessageBox(' Error','Database belum terhubung')


else


fabout.Showmodal; end; end.

end LOGIN

DataSource = dm.DataSource1

object Label3: TLabel TabOrder = 1

object Form2: TForm2

Left = 16 Visible = False

Left = 377

Top = 48

Top = 292

Width = 60

Align = alCustom

Height = 16

BorderIcons = []

Caption = 'Password'

end object BitBtn1: TBitBtn Left = 176 Top = 80 BorderStyle = bsSingle

end Width = 75

Caption = 'Login' ClientHeight = 119

object DBLookupComboBox1: TDBLookupComboBox

Height = 25 TabOrder = 2

ClientWidth = 262

Left = 96 OnClick = BitBtn1Click

Color = clGradientInactiveCaption

Top = 16 Kind = bkOK Width = 153

Font.Charset = DEFAULT_CHARSET

end Height = 24 object BitBtn2: TBitBtn

Font.Color = clWindowText

KeyField = 'id' Left = 96 ListField = 'id' Top = 80

Font.Height = -13 Font.Name = 'MS Sans Serif'

ListSource = dm.DataSource1

Width = 75

TabOrder = 0

Height = 25

Font.Style = [] OldCreateOrder = False Position = poMainFormCenter PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 16 Top = 16 Width = 45 Height = 16 Caption = 'User ID'

OnKeyPress = DBLookupComboBox1Ke yPress

TabOrder = 3

OnMouseMove = DBLookupComboBox1M ouseMove

Kind = bkCancel

end object DBEdit2: TDBEdit

OnClick = BitBtn2Click

end object MaskEdit1: TMaskEdit Left = 96

Left = 272

Top = 48

Top = 80

Width = 153

Width = 121

Height = 24

Height = 24

PasswordChar = '#'

DataField = 'pass'

TabOrder = 4

OnKeyPress = MaskEdit1KeyPress end

DataField = 'c3' DataSource = dm.DataSource1

Top = 207 Width = 121 Height = 24

object DBEdit3: TDBEdit

TabOrder = 7 DataField = 'c6' Visible = False

Left = 24 end


Top = 160 Width = 121


TabOrder = 10 Visible = False

Height = 24

Left = 184

DataField = 'c1'

Top = 160

end DataSource = dm.DataSource1

Width = 121


Height = 24

Left = 167

DataField = 'c4'

Top = 240

TabOrder = 5 Visible = False end


Width = 121 Height = 24



Left = 24 end


Top = 184 Width = 121



Height = 24

Left = 184

DataField = 'c2'

Top = 184

end DataSource = dm.DataSource1

Width = 121


Height = 24

Left = 167

DataField = 'c5'

Top = 264

TabOrder = 6 Visible = False end


Width = 121 Height = 24



Left = 24 end


Top = 207 Width = 121



Height = 24

Left = 184

end object DBEdit11: TDBEdit

OldCreateOrder = False

object jamu: TADOQuery

Left = 269 Top = 193

Connection = ADOConnection1

Left = 167 Height = 371

Parameters = <>

Width = 679

SQL.Strings = (

Top = 287 Width = 121 Height = 24

object ADOConnection1: TADOConnection

'select * from Barang') Left = 112

DataField = 'c9'

LoginPrompt = False Top = 56

DataSource = dm.DataSource1 TabOrder = 13

Mode = cmShareDenyNone Provider = 'Microsoft.Jet.OLEDB.4.0'

end object supplier: TADOQuery

Visible = False Left = 32 end


Top = 8 object OpenDialog1: TOpenDialog

Parameters = <> end SQL.Strings = (

DefaultExt = '*.mdb' FileName = 'D:\EAjid\TA Program\TA Program Setiajid\Database\Indolatie f.mdb'

object ADOQuery1: TADOQuery Connection = ADOConnection1 CursorType = ctStatic

Filter = '*.db|*.db'

Parameters = <>

Options = [ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]

SQL.Strings = (

OnCanClose = OpenDialog1CanClose Left = 32 Top = 80 end end

'select * from Supplier') Left = 112 Top = 104 end object costumer: TADOQuery

'select * from Passw') Left = 112 Top = 8 end object DataSource1: TDataSource

Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Relasi') Left = 112

DataSet = ADOQuery1 Top = 152 Left = 184 end Top = 8

ADMIN object dm: Tdm

end

object produsen: TADOQuery

Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Produsen')

SQL.Strings = ( 'select * from Jenis_Barang') Left = 248 Top = 104 end

Left = 248 Top = 56 end object lokasi: TADOQuery Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Lokasi') Left = 248 Top = 200

object kemasan: TADOQuery Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Kemasan') Left = 248 Top = 152 end object jenissupplier: TADOQuery

end object typej: TADOQuery Connection = ADOConnection1 Parameters = <>


'select * from Jenis_Relasi') Left = 376 Top = 56 end object pembelian: TADOQuery Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Pembelian') Left = 536 Top = 8 end object pemesanan: TADOQuery Connection = ADOConnection1 Parameters = <>

Parameters = <>

SQL.Strings = (

SQL.Strings = (

'select * from Pemesanan_Barang')

'select * from Jenis_Supplier')

Left = 536

SQL.Strings = ( Left = 376

Top = 56

'select * from Typej') Top = 8

end

Left = 248 end Top = 8 end object jenisbarang: TADOQuery Connection = ADOConnection1 Parameters = <>

object jeniscostumer: TADOQuery Connection = ADOConnection1

object retur: TADOQuery Connection = ADOConnection1 CursorType = ctStatic

Parameters = <>

Parameters = <>

SQL.Strings = (

SQL.Strings = (

'select * from Retur_Pembelian')

Top = 248

object dsjenisjamu: TDataSource

end Left = 536 Top = 104 end object hutang: TADOQuery

DataSet = jenisbarang object dsjamu: TDataSource DataSet = barang Left = 184 Top = 56


Left = 312 Top = 104 end object dskemasan: TDataSource

end DataSet = kemasan

Parameters = <>

object dssupplier: TDataSource

Left = 312

SQL.Strings = ( DataSet = supplier

Top = 152

'select * from Hutang') Left = 184

end

Left = 536 Top = 104 Top = 152

object dslokasi: TDataSource

end end object penjualan: TADOQuery Connection = ADOConnection1 Parameters = <> SQL.Strings = (

DataSet = lokasi object dscostumer: TDataSource

Left = 312

DataSet = relasi

Top = 200

Left = 184 Top = 152

end object dsjenissupplier: TDataSource

end DataSet = jenissupplier

'select * from Penjualan')

object dstype: TDataSource

Left = 536

DataSet = typej

Top = 200

Left = 312

end object piutang: TADOQuery Connection = ADOConnection1 Parameters = <> SQL.Strings = ( 'select * from Piutang') Left = 536

Top = 8

Left = 456 Top = 8 end object dsjenisrelasi: TDataSource

end DataSet = jenisrelasi object dsprodusen: TDataSource DataSet = produsen Left = 312 Top = 56

Left = 456 Top = 56 end object dspembelian: TDataSource

end DataSet = pembelian

Left = 608 Top = 8

end end

end object dspemesanan: TDataSource

DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit;

USER

DBEdit9: TDBEdit;

unit Unit4;

DBEdit10: TDBEdit;

interface

DBEdit11: TDBEdit;

uses

DBGrid1: TDBGrid;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Button2: TButton;

DataSet = pemesanan Left = 608 Top = 56 end object dsretur: TDataSource DataSet = retur Left = 608

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;

object dshutang: TDataSource DataSet = hutang

type TUser_Edit = class(TForm) GroupBox1: TGroupBox;

Left = 608

Button1: TButton;

Top = 152

c1: TDBCheckBox;

end object dspenjualan: TDataSource DataSet = penjualan Left = 608 Top = 200 end object dspiutang: TDataSource

Button4: TButton; Button5: TButton; Button6: TButton; DBEdit1: TDBEdit;

Top = 104 end

Button3: TButton;

c2: TDBCheckBox; c3: TDBCheckBox; c4: TDBCheckBox; c5: TDBCheckBox; c6: TDBCheckBox; c7: TDBCheckBox; c8: TDBCheckBox;

Label4: TLabel; Label5: TLabel; DBEdit2: TDBEdit; Label6: TLabel; c10: TDBCheckBox; c11: TDBCheckBox; c12: TDBCheckBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject);

c9: TDBCheckBox;

DataSet = piutang

DBEdit3: TDBEdit;

Left = 608

DBEdit4: TDBEdit;

Top = 248

DBEdit5: TDBEdit;

procedure Button3Click(Sender: TObject); procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject); procedure c10Click(Sender: TObject); procedure c11Click(Sender: TObject); procedure c12Click(Sender: TObject);

form1.Pembelian1.Enable d:=user_edit.c5.Checked;

c9.Checked:=false; form1.Penjualan1.Enabled :=user_edit.c6.Checked;

c10.Checked:=false;

form1.LapPembelian1.Ena bled:=user_edit.c7.Checke d;

c11.Checked:=false;

form1.LapPenjualan1.Ena bled:=user_edit.c8.Checke d;

groupbox1.Enabled:=true;

form1.Inventory1.Enabled :=user_edit.c9.Checked;}

button3.Enabled:=false;

private dm.ADOQuery1.Post; { Private declarations } public

c8.Checked:=false;

groupbox1.Enabled:=false ;

{ Public declarations }

button2.Enabled:=true;

end;


c12.Checked:=false;


button4.Enabled:=false; button6.Enabled:=false; button1.Enabled:=true; button5.Enabled:=true; end;



procedure TUser_Edit.Button4Click( Sender: TObject);

implementation


begin

uses Unit3, Unit1;

end;

dm.ADOQuery1.edit;

var User_Edit: TUser_Edit;



{$R *.dfm}


procedure TUser_Edit.Button2Click( Sender: TObject); begin

begin

dm.ADOQuery1.Append;

{form1.Setting1.Enabled: =user_edit.c1.Checked;

c1.Checked:=false; c2.Checked:=false;

form1. Barang1.Enabled:=user_e dit.c2.Checked;

c3.Checked:=false;

form1.Supplier1.Enabled: =user_edit.c3.Checked;

c5.Checked:=false;

form1.Costumer1.Enabled :=user_edit.c4.Checked;

button2.Enabled:=false; button3.Enabled:=false; button4.Enabled:=false; button6.Enabled:=false; button1.Enabled:=true; button5.Enabled:=true; end;

c4.Checked:=false;

c6.Checked:=false;


c7.Checked:=false;

begin

dm.ADOQuery1.Delete;

c3.Enabled:=true;

c8.Enabled:=true;

end;

c4.Enabled:=true;

c9.Enabled:=true;

end else

end else


begin

begin

c2.Enabled:=false;

c7.Enabled:=false;

begin

c3.Enabled:=false;

c8.Enabled:=false;

dm.ADOQuery1.Cancel;

c4.Enabled:=false;

c9.Enabled:=false;


end;

end;

end;

end;

button2.Enabled:=true; button3.Enabled:=true; button4.Enabled:=true;

end. procedure TUser_Edit.c11Click(Sen der: TObject);

DATA BARANG

begin

unit Unit5;

if c11.Checked then

interface

begin

uses

c5.Enabled:=true;


button6.Enabled:=true; button1.Enabled:=false; button5.Enabled:=false; end; c6.Enabled:=true; procedure TUser_Edit.Button6Click( Sender: TObject); begin FormStyle:=fsnormal; close; end;

end else begin c5.Enabled:=false;

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask;

c6.Enabled:=false; end; end;

type Tfjamu = class(TForm) GroupBox1: TGroupBox;

procedure TUser_Edit.c10Click(Sen der: TObject); begin if c10.Checked then begin c2.Enabled:=true;

procedure TUser_Edit.c12Click(Sen der: TObject);

Label2: TLabel;

begin

Label4: TLabel;

if c12.Checked then

Label5: TLabel;

begin

Label6: TLabel;

c7.Enabled:=true;

Label7: TLabel;

Label3: TLabel;

Label13: TLabel; Label15: TLabel;

Button5: TButton; DBNavigator1: TDBNavigator;

Label16: TLabel;

var fbarang: Tfbarang;

Button7: TButton; Label18: TLabel;

implementation Button6: TButton;

Label19: TLabel; Label1: TLabel; Label20: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit7: TDBEdit; DBLookupComboBox3: TDBLookupComboBox; DBLookupComboBox5: TDBLookupComboBox; DBEdit11: TDBEdit; DBEdit13: TDBEdit; DBEdit14: TDBEdit; DBEdit15: TDBEdit; GroupBox3: TGroupBox;

procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure DBEdit1Exit(Sender: TObject); procedure Button7Click(Sender: TObject);

DBGrid1: TDBGrid; DBNavigator2: TDBNavigator; GroupBox2: TGroupBox;

procedure FormActivate(Sender: TObject); private

uses Unit1, Unit3, Unit26, Unit30; {$R *.dfm}

procedure Tfbarang.Button6Click(Se nder: TObject); begin form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true; formstyle:=fsnormal; close; end;

{ Private declarations } Button1: TButton; public Button2: TButton; { Public declarations } Button3: TButton; a:integer; Button4: TButton; end;

procedure Tfjamu.Button1Click(Sen der: TObject); begin

a:=1;


groupbox1.Enabled:=true; dbnavigator2.BtnClick(nbi nsert);

dbnavigator2.BtnClick(nb post); a:=0;

end; end; end; procedure Tfbarang.Button2Click(Se nder: TObject);

dm. barang.SQL.Add('where Kd_MJ like:a'); dm. barang.Parameters.Param ByName('a').Value:=

procedure Tfbarang.Button5Click(Se nder: TObject);

dbedit1.Text;

begin

dm. barang.Open; }


fdaftarbarang.QuickRep1. Preview;

dbnavigator2.BtnClick(nb cancel);

//form1. Barang 1.Click;

begin dbnavigator2.BtnClick(nb delete);

dm. barang.SQL.Add('select * from Barang');

end;

dm. barang.Prepared;

end;

procedure Tfbarang.Button3Click(Se nder: TObject);

end;

begin a:=1;

procedure Tfbarang.DBEdit1Exit(Se nder: TObject);


var

dbnavigator2.BtnClick(nb edit);

a : string;

procedure Tf barang.FormActivate(Sen der: TObject); begin a:=0; end;

begin end;

end. a:=dbedit1.Text; end;

procedure Tfbarang.Button4Click(Se nder: TObject); begin

LAPORAN PEMESANAN procedure Tfbarang.Button7Click(Se nder: TObject);

unit Unit6;

begin

uses

{with dm.barang do


interface

if a <1 then application.MessageBox(' Tekan Tombol TAMBAH/EDIT','Error',0 ) else begin

dm. barang.SQL.Clear; dm. barang.Close;

Dialogs, ExtCtrls, QuickRpt, QRCtrls,

StdCtrls, ComCtrls, Grids, Calendar,

QRBand4: TQRBand; QRLabel2: TQRLabel;

private { Private declarations }

jpeg; QRLabel3: TQRLabel; QRLabel10: TQRLabel;

public { Public declarations }

type QRLabel11: TQRLabel; Tflappesanbarang = class(TForm) Button37: TButton;

QRLabel12: TQRLabel; ComboBox1: TComboBox;

end; var flappesanbarang: Tflappesanbarang;

Button40: TButton; Edit1: TEdit;

implementation

Label1: TLabel;

uses Unit3;

Label2: TLabel;

{$R *.dfm}

Button38: TButton; Button39: TButton; Button41: TButton; Button1: TButton; Button42: TButton; Button2: TButton; QuickRep1: TQuickRep; QRBand1: TQRBand; QRMemo1: TQRMemo; QRLabel9: TQRLabel; QRExpr1: TQRExpr; QRBand2: TQRBand;

Calendar1: TCalendar;

procedure Tflappesanbarang.Button4 2Click(Sender: TObject);

QRLabel7: TQRLabel;

begin

QRLabel8: TQRLabel;

formstyle:=fsnormal;

QRImage1: TQRImage;

close;

DateTimePicker1: TDateTimePicker; CheckBox2: TCheckBox;

QRLabel1: TQRLabel; QRLabel4: TQRLabel;

CheckBox1: TCheckBox;

end;

procedure Tflappesanbarang.Button2 Click(Sender: TObject); begin


procedure Button42Click(Sender: TObject);

close; end;

QRBand3: TQRBand; QRDBText1: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText;

procedure Button2Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject);

procedure Tflappesanbarang.FormAc tivate(Sender: TObject); begin calendar1.CalendarDate:= now;

edit1.Text:=inttostr(calend ar1.Year); combobox1.ItemIndex:=(c alendar1.Month - 1); end;

procedure Tflappesanbarang.Button1 Click(Sender: TObject); begin qrlabel8.Caption:=combob ox1.Text+' Tahun '+edit1.Text;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, Mask, DB, ADODB;

Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; DBEdit30: TDBEdit; GroupBox1: TGroupBox;

type Tfsupplier = class(TForm) GroupBox3: TGroupBox;

dm.pemesanan.SQL.Clear;

Label21: TLabel;

dm.pemesanan.Close;

Label22: TLabel;

dm.pemesanan.SQL.Add(' select * from Pemesanan_Barang');

Label23: TLabel;

dm.pemesanan.SQL.Add(' where tgl_PJ like:a');

Label36: TLabel;

Label25: TLabel;

Label37: TLabel;

DBGrid2: TDBGrid; DBMemo1: TDBMemo; DBNavigator1: TDBNavigator; DBEdit9: TDBEdit; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button1: TButton; Button2: TButton;

dm.pemesanan.Parameters .ParamByName('a').Value: =

Label24: TLabel;

combobox1.Text+'%'+edit 1.Text;

Label35: TLabel;

dm.pemesanan.Prepared;

DBEdit16: TDBEdit;

dm.pemesanan.Open;

DBEdit17: TDBEdit;

flappesanbarang.QuickRe p1.Preview;

DBEdit19: TDBEdit;


DBLookupComboBox6: TDBLookupComboBox;


end; end.

Label26: TLabel;

DBEdit20: TDBEdit; DBEdit21: TDBEdit;

DATA SUPPLIER unit Unit7; interface uses

DBEdit22: TDBEdit; GroupBox4: TGroupBox; Button8: TButton;

DBEdit1: TDBEdit; Label1: TLabel; DBNavigator2: TDBNavigator;



form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true;

begin DBNavigator1.BtnClick(n bedit); end;

form1.Informasi1.Enabled :=true;


formstyle:=fsnormal; close;

procedure Tfsupplier.Button3Click(S ender: TObject);


end;

begin

private { Private declarations } public { Public declarations } end;

fhutang.ShowModal; procedure Tfsupplier.Button1Click(S ender: TObject);

end;

begin

procedure Tfsupplier.Button11Click( Sender: TObject);

fdaftarsupplier.QuickRep1 .Preview;

begin end; dbedit30.Text:=dbedit9.Te xt;

var fsupplier: Tfsupplier; implementation


DBNavigator1.BtnClick(n bpost); end;

uses Unit1, Unit19, Unit26; {$R *.dfm}

begin DBNavigator1.BtnClick(n bdelete); end;

procedure Tfsupplier.Button2Click(S ender: TObject); begin

procedure Tfsupplier.Button12Click( Sender: TObject); begin


DBNavigator1.BtnClick(n bcancel); end;

form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true;

begin end. DBNavigator1.BtnClick(n binsert); end;

DATA RELASI

procedure Tfsupplier.Button10Click( Sender: TObject);

unit Unit8; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Mask, DB, ADODB;

Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; DBNavigator2: TDBNavigator;

type Tfcostumer = class(TForm) GroupBox5: TGroupBox; Label27: TLabel; Label28: TLabel; Label29: TLabel; Label30: TLabel; Label31: TLabel;

DBMemo1: TDBMemo;

procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button1Click(Sender: TObject);

GroupBox1: TGroupBox; DBGrid3: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; ADOQuery1: TADOQuery;

private { Private declarations } public { Public declarations } end;

Label32: TLabel;

DBEdit9: TDBEdit;

Label33: TLabel;

Button2: TButton;

Label34: TLabel;

Button1: TButton;

implementation

Label38: TLabel;

DBEdit1: TDBEdit;

uses Unit3, Unit1, Unit29;

DBEdit23: TDBEdit;

Label1: TLabel;

{$R *.dfm}

DBEdit24: TDBEdit;

DBEdit2: TDBEdit;

DBEdit26: TDBEdit;

Label2: TLabel;

procedure Tfrelasi.Button2Click(Sen der: TObject);



DBEdit27: TDBEdit; DBEdit28: TDBEdit; DBEdit29: TDBEdit; DBEdit31: TDBEdit; GroupBox4: TGroupBox;


var frelasi: Tfrelasi;

begin form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true;

form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true;

begin dbedit31.Text:=dbedit9.Te xt;

unit Unit9; dbnavigator1.BtnClick(nb post);

interface

end;

uses

formstyle:=fsnormal; close; end;

procedure Tfrelasi.Button12Click(Se nder: TObject);

procedure Tfrelasi.Button8Click(Sen der: TObject);

begin

begin dbnavigator1.BtnClick(nbi nsert); end;

DATA TIPE BARANG

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;

dbnavigator1.BtnClick(nb cancel); end; procedure Tfrelasi.Button1Click(Sen der: TObject);

type Tftype = class(TForm) GroupBox1: TGroupBox;

begin procedure Tfrelasi.Button9Click(Sen der: TObject);

Label1: TLabel; {dm.relasi.SQL.Clear; Label2: TLabel; dmrelasi.Close; DBEdit1: TDBEdit;

begin dbnavigator1.BtnClick(nb delete); end;

procedure Tfrelasi.Button10Click(Se nder: TObject);

dm.relasi.SQL.Add('select * from Relasi'); dm.relasi.SQL.Add('where Kd_ctmr like:a');

Button1: TButton; Button2: TButton;

dbedit23.Text;

Button3: TButton;

dm.costumer.Prepared;

Button4: TButton;

dm.costumer.Open;}

Button5: TButton;

//fdaftarcost.qrlabel8.Visib le:=false;

Button6: TButton;

end; fdaftarcost.QuickRep1.Pre view; procedure Tfrelasi.Button11Click(Se nder: TObject);

DBGrid1: TDBGrid;

dm.relasi.Parameters.Para mByName('a').Value:=

begin dbnavigator1.BtnClick(nb Edit);

DBEdit2: TDBEdit;

end; end.

DBNavigator1: TDBNavigator; procedure Button6Click(Sender: TObject);


formstyle:=fsnormal; close;

procedure Tftype.Button3Click(Send er: TObject);


end;

begin




begin


dbedit1.Enabled:=true;


if a <1 then

a:=1;

public { Public declarations } a:integer; end;

dbnavigator1.BtnClick(nbi nsert);

dbedit1.Enabled:=false;

end;


end;

dbnavigator1.BtnClick(nb delete);


end;

begin

uses Unit1;

begin

{$R *.dfm}

a:=1;

dbnavigator1.BtnClick(nb cancel); dbedit1.Enabled:=false; dbedit2.Enabled:=false; end;


form1.Menu1.Enabled:=tr ue;

end;

begin

implementation

begin

dbedit2.Enabled:=false; a:=0;



begin dbnavigator1.BtnClick(nb post);

var ftype: Tftype;

else



application.MessageBox(' Tekan Tombol TAMBAH/EDIT','Error',0 )

dbedit2.Enabled:=true; dbnavigator1.BtnClick(nb edit); end;

procedure Tftype.FormActivate(Send er: TObject); begin a:=0; end; end.

DATA JENIS BARANG unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;

type Tfjenisbarang = class(TForm) GroupBox3: TGroupBox; Label5: TLabel; Label6: TLabel;


end;


procedure Tfjenisbarang.Button13Cli ck(Sender: TObject);


begin





a:=1;


end;

private { Private declarations } public { Public declarations } a:integer; end;

procedure Tfjenisbarang.Button16Cli ck(Sender: TObject); begin dbnavigator1.BtnClick(nb delete); end;


var

DBGrid3: TDBGrid;

fjenisbarang: Tfjenisbarang;

Button13: TButton;

implementation

Button14: TButton;

uses Unit1;

procedure Tfjenisbarang.Button14Cli ck(Sender: TObject); begin a:=1;

Button15: TButton; dbedit5.Enabled:=true; Button16: TButton;

{$R *.dfm}


Button17: TButton; Button18: TButton; DBNavigator1: TDBNavigator; procedure Button18Click(Sender: TObject);


dbnavigator1.BtnClick(nb edit); end;

begin formstyle:=fsnormal; close;


begin if a <1 then application.MessageBox(' Tekan Tombol TAMBAH/EDIT','Error',0 ) else

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;


type


Tflokasi = class(TForm) GroupBox5: TGroupBox;

begin

Label9: TLabel;

dbnavigator1.BtnClick(nb post);


dbedit5.Enabled:=false; Label18: TLabel; dbedit6.Enabled:=false; DBEdit9: TDBEdit; a:=0; DBEdit10: TDBEdit; end; DBGrid5: TDBGrid; Button25: TButton; end; Button26: TButton; procedure Tfjenisbarang.Button17Cli ck(Sender: TObject); begin

Button27: TButton; Button28: TButton; Button29: TButton;


Button30: TButton;

end;

DBEdit17: TDBEdit;

end.

DBEdit18: TDBEdit; DBNavigator1: TDBNavigator;

DATA LOKASI

procedure Button29Click(Sender: TObject); private { Private declarations } public { Public declarations } a:integer; end; var flokasi: Tflokasi; implementation uses Unit1; {$R *.dfm}

procedure Tflokasi.Button30Click(Se nder: TObject); begin formstyle:=fsnormal;


close;


procedure Tflokasi.Button25Click(Se nder: TObject);


begin

end;

unit Unit13; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

a:=1; dbedit17.Enabled:=true; dbedit18.Enabled:=true;


else


begin



end;


Tfjenissupplier = class(TForm) GroupBox6: TGroupBox; Label11: TLabel; Label12: TLabel;

dbedit18.Enabled:=false; DBEdit11: TDBEdit; procedure Tflokasi.Button28Click(Se nder: TObject);


begin

a:=0;

dbnavigator1.BtnClick(nb delete);

end;

DBEdit12: TDBEdit; dbedit10.Enabled:=false; DBGrid6: TDBGrid; Button31: TButton; Button32: TButton; end; Button33: TButton;

end;

Button34: TButton; procedure Tflokasi.Button26Click(Se nder: TObject); begin


Button36: TButton; begin

a:=1;



end;


end.

dbedit9.Enabled:=true; dbedit10.Enabled:=true;

DATA JENIS SUPPLIER


unit Unit14;

end;

interface


uses

begin


if a <1 then application.MessageBox(' Tekan Tombol TAMBAH/EDIT','Error',0 )

Button35: TButton;

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls; type

DBNavigator1: TDBNavigator; procedure Button36Click(Sender: TObject); procedure Button31Click(Sender: TObject); procedure Button34Click(Sender: TObject); procedure Button32Click(Sender: TObject); procedure Button33Click(Sender: TObject); procedure Button35Click(Sender: TObject); private { Private declarations }

public { Public declarations } end; var fjenissupplier: Tfjenissupplier;

implementation

procedure Tfjenissupplier.Button32C lick(Sender: TObject);

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;

begin

type


Tfjenisrelasi = class(TForm)

end;

GroupBox7: TGroupBox; Label13: TLabel;

uses Unit1;


{$R *.dfm}

begin

Label14: TLabel; Label15: TLabel; DBEdit13: TDBEdit;

procedure Tfjenissupplier.Button36C lick(Sender: TObject); begin formstyle:=fsnormal; close; end; procedure Tfjenissupplier.Button31C lick(Sender: TObject);


DBEdit14: TDBEdit;

end;

DBGrid7: TDBGrid;


Button37: TButton;

begin

Button39: TButton;


Button40: TButton;

end; end.

Button38: TButton;

Button41: TButton; Button42: TButton; DBEdit15: TDBEdit;

begin dbnavigator1.BtnClick(nbi nsert); end;


DATA JENIS RELASI unit Unit15;


interface


uses


begin dbnavigator1.BtnClick(nb delete); end;

DBNavigator1: TDBNavigator;




procedure Tfjenisrelasi.Button40Clic k(Sender: TObject);


begin dbnavigator1.BtnClick(nb Delete);

private end;

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls;

{ Private declarations } public { Public declarations }


end;

type Tfpembelian = class(TForm)

begin Button37: TButton; var fjenisrelasi: Tfjenisrelasi;


Button40: TButton;

end;


implementation uses Unit1;


{$R *.dfm}

begin



begin formstyle:=fsnormal; close; end;


Button41: TButton; Button42: TButton; GroupBox1: TGroupBox; GroupBox4: TGroupBox;

end; DBGrid2: TDBGrid; procedure Tfjenisrelasi.Button41Clic k(Sender: TObject);

GroupBox3: TGroupBox;

begin

Label7: TLabel;


Label8: TLabel;

end; end.

Label9: TLabel; Label10: TLabel; Label11: TLabel;

begin Label12: TLabel; dbnavigator1.BtnClick(nbi nsert); end;

DATA PEMBELIAN unit Unit16; interface

DBGrid1: TDBGrid; Edit3: TEdit; DateTimePicker1: TDateTimePicker;

Edit4: TEdit;

DBEdit12: TDBEdit;

Edit5: TEdit;

DBEdit13: TDBEdit;

Button1: TButton;

Label13: TLabel;


DBEdit6: TDBEdit; Button2: TButton;

private { Private declarations } public { Public declarations }



Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Label14: TLabel;

Label5: TLabel;

Label15: TLabel;

Label6: TLabel;


ht:longint; end;

var

DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DateTimePicker2: TDateTimePicker; ComboBox1: TComboBox; Edit6: TEdit; DBEdit5: TDBEdit; Edit7: TEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBLookupComboBox2: TDBLookupComboBox; DBEdit9: TDBEdit;

procedure Button37Click(Sender: TObject); procedure Button39Click(Sender: TObject); procedure Button41Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button40Click(Sender: TObject); procedure Button38Click(Sender: TObject); procedure Edit5Enter(Sender: TObject); procedure Button2Click(Sender: TObject);



fpembelian: Tfpembelian; implementation uses Unit3, Unit22, Unit2, Unit20, Unit1; {$R *.dfm}

procedure Tfpembelian.Button42Clic k(Sender: TObject); begin form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true; formstyle:=fsnormal;

close;

end;

dbedit9.Text:=dblookupco mbobox2.Text;

end; dbedit10.Text:=edit3.Text; procedure Tfpembelian.Button1Click (Sender: TObject);

dbedit11.Text:=datetostr(d atetimepicker1.Date);

var

dbedit12.Text:=edit4.Text;

begin

a:longint;


with dm.pembelian do

begin

ht:=ht+strtoint(edit5.text);

begin

dm.jamu.Edit;

dbedit6.Text:=inttostr(ht);

sql.Clear;

a:=strtoint(dbedit8.Text)+ strtoint(edit3.Text);

dm.pembelian.Post;

procedure Tfpembelian.Button37Clic k(Sender: TObject);

close;

with dm.pembelian do dbedit8.Text:=inttostr(a);

sql.Add('select * from Pembelian');

dm.jamu.Post;

prepared;

dm.pembelian.Append;

open;

dbedit1.Text:='';

end;

dbedit2.Text:='';


dbedit3.Text:='';

ht:=0;

dbedit4.Text:='';

end;

dbedit7.Text:='';

Parameters.ParamByName ('b').Value:=


dbedit9.Text:='';

Edit6.Text;

dbedit10.Text:='';

prepared;

begin

dbedit11.Text:='';

open;


dbedit12.Text:='';

end;

dbedit13.Text:='';

end;

begin sql.Clear; close;

end;

procedure Tfpembelian.Button41Clic k(Sender: TObject); begin dm.pembelian.Cancel;

sql.Add('select * from Pembelian'); sql.Add(' where No_Fktr_Bl =:b');

dbedit1.Text:=combobox1 .Text; dbedit2.Text:=edit6.Text; dbedit3.Text:=datetostr(da tetimepicker2.Date); dbedit4.Text:=dblookupco mbobox1.Text;

procedure Tfpembelian.Button40Clic k(Sender: TObject); begin dm.pembelian.Delete; end;




//cetak_pembelian.QRLab el11.Caption:=form2.DBL ookupComboBox1.Text;

Button38: TButton;

begin

cetak_pembelian.QuickRe p1.Preview;

Button41: TButton;

dm.pembelian.Edit; end; end;

procedure Tfpembelian.Edit5Enter(S ender: TObject);

procedure Tfpembelian.FormActivat e(Sender: TObject); begin

var b:longint; begin b:=strtoint(edit4.Text)*strt oint(edit3.Text); edit5.Text:=inttostr(b);

datetimepicker2.DateTime :=now;

sql.Add(' where No_Fktr_Bl =:b'); Parameters.ParamByName ('b').Value:= fpembelian.Edit6.Text; prepared; open; end; }

DBGrid2: TDBGrid; GroupBox3: TGroupBox; Label7: TLabel;

DBGrid1: TDBGrid;

end.

Edit1: TEdit; Button1: TButton;

DATA PEMESANAN BARANG


unit Unit17;

Label1: TLabel;

interface

Label2: TLabel;

uses

Label4: TLabel;


Label6: TLabel;

begin

sql.Add('select * from Pembelian');


end;

{with dm.pembelian do

close;


Label10: TLabel;

begin

sql.Clear;

Button42: TButton;


end; procedure Tfpembelian.Button2Click (Sender: TObject);

Button39: TButton;

Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ComCtrls, ExtCtrls;

type Tfpesanjamu = class(TForm) Button37: TButton; Button40: TButton;

DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; DBLookupComboBox2: TDBLookupComboBox; DBEdit5: TDBEdit; DBEdit6: TDBEdit; Edit4: TEdit;

DateTimePicker2: TDateTimePicker; DBEdit9: TDBEdit;

form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue;

end; procedure Tfpesanbarang.FormActiv ate(Sender: TObject);

Button2: TButton; DBNavigator1: TDBNavigator; Edit2: TEdit;

form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true;

begin datetimepicker2.DateTime :=now; end;

Label3: TLabel; procedure Button42Click(Sender: TObject); procedure Button1Click(Sender: TObject);

form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true; formstyle:=fsnormal;


close; end;


procedure Tfpesanbarang.Button1Cli ck(Sender: TObject);

public begin

end.

DATA RETUR PEMBELIAN unit Unit18; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls;

{ Public declarations } dm.pemesanan.Append; end; dbedit1.Text:=edit4.Text;

type

dbedit2.Text:=datetostr(da tetimepicker2.Date);

Tfreturbeli = class(TForm)

var fpesanbarang: Tfpesanbarang; implementation



uses Unit3, Unit1; {$R *.dfm}

procedure Tfpesanbarang.Button42C lick(Sender: TObject); begin


Button38: TButton;


Button39: TButton;

//dbedit7.Text:=edit2.Text ;

Button41: TButton;

//dbedit8.Text:=edit3.Text ; dm.pemesanan.Post;

Button42: TButton; GroupBox1: TGroupBox;



procedure Tfreturbeli.Button42Click( Sender: TObject);

DBGrid2: TDBGrid; GroupBox2: TGroupBox; Label1: TLabel; Label2: TLabel;

Button2: TButton;

begin

Edit1: TEdit;


Label3: TLabel; DBNavigator1: TDBNavigator;

Label4: TLabel; Label5: TLabel; Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DateTimePicker2: TDateTimePicker; DBEdit5: TDBEdit; GroupBox3: TGroupBox; Label7: TLabel; Label10: TLabel; DBGrid1: TDBGrid; Edit2: TEdit; Button1: TButton;

procedure Button42Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button40Click(Sender: TObject); procedure Button2Click(Sender: TObject);

DBLookupComboBox2: TDBLookupComboBox; DBEdit7: TDBEdit;

form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true; formstyle:=fsnormal; close; end;

private { Private declarations } public { Public declarations } end; var freturbeli: Tfreturbeli;

Edit3: TEdit; DBEdit6: TDBEdit;

form1.Setting1.Enabled:=t rue;

procedure Tfreturbeli.Button1Click( Sender: TObject); begin dm.retur.Append; dbedit1.Text:=edit3.Text; dbedit2.Text:=datetostr(da tetimepicker2.Date);

implementation


uses Unit3, Unit1, Unit34, Unit22, Unit2;


{$R *.dfm}

dbedit6.Text:=dblookupco mbobox2.Text; dbedit7.Text:=edit2.Text;

dm.retur.Post; end;

procedure Tfreturbeli.FormActivate( Sender: TObject);

Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, DB, ADODB,

Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit;

ExtCtrls; DBLookupComboBox1: TDBLookupComboBox; type

begin

DBEdit3: TDBEdit; Tfhutang = class(TForm)


Button37: TButton;

end;

Button40: TButton;

DBEdit4: TDBEdit; DateTimePicker2: TDateTimePicker;

Button38: TButton;

Edit6: TEdit;


Button39: TButton;

DBEdit5: TDBEdit;

Button41: TButton;

DBEdit6: TDBEdit;

begin

Button42: TButton;

dm.retur.Delete;


end;

Edit2: TEdit; GroupBox4: TGroupBox;



DBGrid2: TDBGrid; GroupBox3: TGroupBox;

DBEdit7: TDBEdit; DBEdit8: TDBEdit; Label25: TLabel; Label8: TLabel;

begin Label7: TLabel;

Button2: TButton;

form34.QuickRep1.Previe w;

Label10: TLabel;

end;

Edit1: TEdit;

end.

DateTimePicker1: TDateTimePicker;

DBNavigator1: TDBNavigator; procedure Button42Click(Sender: TObject);

Button1: TButton; DATA HUTANG unit Unit19;


interface

Label1: TLabel;

uses

Label2: TLabel;



procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations }

public { Public declarations } end;

procedure Tfhutang.Button1Click(Se nder: TObject);

begin datetimepicker2.DateTime :=now;

begin end; dm.hutang.Append; end.

var fhutang: Tfhutang;

dbedit1.Text:=edit2.Text; dbedit2.Text:=edit6.Text; DATA PENJUALAN

implementation uses Unit3, Unit1; {$R *.dfm}

procedure Tfhutang.Button42Click(S ender: TObject);

dbedit3.Text:=datetostr(da tetimepicker2.Date); dbedit4.Text:=dblookupco mbobox1.Text; dbedit5.Text:=dblookupco mbobox2.Text; dbedit7.Text:=datetostr(da tetimepicker1.Date); dbedit8.Text:=edit1.Text;

begin

dm.hutang.Post;


with dm.hutang do

form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true;

unit Unit20; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls;

begin

type

sql.Clear;

Tfdatajual = class(TForm)

close; Button37: TButton; sql.Add('select * from Hutang');

Button40: TButton;

sql.Add(' Kd_htg =:b');

Button38: TButton;



Edit6.Text; Button42: TButton;


prepared; open;


formstyle:=fsnormal; end; close;


end; end;

DBGrid2: TDBGrid; procedure Tfhutang.FormActivate(Se nder: TObject);


Label8: TLabel;

Edit8: TEdit;

Label10: TLabel;

Label13: TLabel;

Label11: TLabel;

DBEdit7: TDBEdit;

Label12: TLabel; DBGrid1: TDBGrid;

{ Private declarations } public { Public declarations }


Edit3: TEdit;

DBEdit8: TDBEdit;

Edit4: TEdit;

DBEdit9: TDBEdit;

Edit5: TEdit;

DBEdit10: TDBEdit;

Button1: TButton;

DBEdit11: TDBEdit;


private

ht:longint; end;

var fdatajual: Tfdatajual;

DBEdit12: TDBEdit; Button2: TButton;

implementation



Label3: TLabel;

Label14: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

Label15: TLabel;

Label6: TLabel;


DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DateTimePicker2: TDateTimePicker; ComboBox1: TComboBox; Edit6: TEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; Label9: TLabel;

procedure Button1Click(Sender: TObject); procedure Button37Click(Sender: TObject); procedure Button39Click(Sender: TObject); procedure Button40Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormActivate(Sender: TObject);

uses Unit3, Unit31, Unit2, Unit1; {$R *.dfm}

procedure Tfdatajual.Button42Click( Sender: TObject); begin form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true; form1.Informasi1.Enabled :=true; formstyle:=fsnormal; close;

end; procedure Tfdatajual.Button1Click(S ender: TObject); var

sql.Add('select * from Penjualan'); sql.Add(' where No_Fktr_Jl =:b'); Parameters.ParamByName ('b').Value:=

a:integer;

procedure Tfdatajual.Button2Click(S ender: TObject); begin with dm.penjualan do begin

fdatajual.Edit6.Text; begin

sql.Clear; prepared;

dm. barang.Edit;

close; open;

a:=strtoint(dbedit10.Text)strtoint(edit3.Text);

end;

dbedit10.Text:=inttostr(a);

end;

sql.Add('select * from Penjualan'); sql.Add(' where No_Fktr_Jl =:b');

dm. barang.Post; dm.penjualan.Append; dbedit1.Text:=combobox1 .Text;

procedure Tfdatajual.Button37Click( Sender: TObject);

Parameters.ParamByName ('b').Value:= fdatajual.Edit6.Text;

begin

prepared;


open;

ht:=0;

end;

end;

cetak_penjualan.QRLabel 11.Caption:=form2.DBLo okupComboBox1.Text;

dbedit2.Text:=edit6.Text; dbedit3.Text:=datetostr(da tetimepicker2.Date); dbedit4.Text:=dblookupco mbobox1.Text; dbedit8.Text:=dblookupco mbobox2.Text;



begin



cetak_penjualan.QuickRep 1.Preview; end;

ht:=0;

procedure Tfdatajual.FormActivate(S ender: TObject);

end;

begin

dbedit12.Text:=edit8.Text; ht:=ht+strtoint(edit8.Text); dbedit7.Text:=inttostr(ht); dm.penjualan.Post;

with dm.penjualan do begin sql.Clear; close;


datetimepicker2.DateTime :=now; end; end.

begin dm.penjualan.Delete; end;

LAPORAN PEMBELIAN

unit Unit21; interface

QRLabel5: TQRLabel; QRDBText5: TQRDBText;

uses QRLabel6: TQRLabel; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

QRDBText6: TQRDBText; QRLabel7: TQRLabel;

Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, ADODB, ComCtrls, jpeg;

QRDBText7: TQRDBText; QRBand4: TQRBand; QRLabel8: TQRLabel;

type Tflapbeli = class(TForm)

QRDBText8: TQRDBText;

Button37: TButton;

QRLabel9: TQRLabel;

Button40: TButton;

QRExpr1: TQRExpr;

Button38: TButton;

QRLabel2: TQRLabel;

Button39: TButton;

QRLabel3: TQRLabel;

Button41: TButton;

QRLabel10: TQRLabel;

Button42: TButton;


QuickRep1: TQuickRep; QRBand1: TQRBand; QRMemo1: TQRMemo; QRMemo2: TQRMemo; QRBand2: TQRBand; QRLabel1: TQRLabel; QRLabel4: TQRLabel; QRBand3: TQRBand; QRDBText1: TQRDBText; QRDBText4: TQRDBText;


ComboBox1: TComboBox; procedure Button42Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var flapbeli: Tflapbeli;

Button1: TButton;

implementation


uses Unit3;


{$R *.dfm}

Label1: TLabel; Button2: TButton; QRImage1: TQRImage; Label2: TLabel; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Edit1: TEdit;

procedure Tflapbeli.Button42Click(S ender: TObject); begin formstyle:=fsnormal; close; end;

procedure Tflapbeli.Button1Click(Se nder: TObject);

CETAK PEMBELIAN

begin

unit Unit22;

dm.pembelian.SQL.Clear;

interface

dm.pembelian.Close;

uses

dm.pembelian.SQL.Add('s elect * from Pembelian');


QRBand4: TQRBand; QRLabel8: TQRLabel; QRDBText8: TQRDBText; QRLabel2: TQRLabel; QRLabel3: TQRLabel;

dm.pembelian.SQL.Add(' where tgl_Fktr_Bl =:a'); dm.pembelian.Parameters. ParamByName('a').Value: = datetostr(datetimepicker1. DateTime); dm.pembelian.SQL.Add('o rder by tgl_Fktr_Bl'); dm.pembelian.Prepared; dm.pembelian.Open; QuickRep1.Preview;

Dialogs, QRCtrls, QuickRpt, ExtCtrls, jpeg;

type Tcetak_pembelian = class(TForm) QuickRep1: TQuickRep; QRBand1: TQRBand; QRMemo1: TQRMemo;

end; QRLabel9: TQRLabel; QRExpr1: TQRExpr; procedure Tflapbeli.FormActivate(Se nder: TObject); begin

QRBand2: TQRBand; QRLabel1: TQRLabel; QRLabel4: TQRLabel;

DateTimePicker1.DateTi me:=now;

QRLabel5: TQRLabel;

end;

QRBand3: TQRBand;

procedure Tflapbeli.Button2Click(Se nder: TObject); begin Close; end; end.

QRLabel10: TQRLabel; QRLabel11: TQRLabel; QRLabel12: TQRLabel; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText10: TQRDBText; QRLabel6: TQRLabel; QRLabel7: TQRLabel; QRLabel13: TQRLabel; QRLabel15: TQRLabel; QRLabel16: TQRLabel; QRImage1: TQRImage; private { Private declarations } public { Public declarations } end;

QRDBText1: TQRDBText; QRDBText4: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText;

var cetak_pembelian: Tcetak_pembelian;

implementation

{$R *.dfm}


end.


Button1: TButton; DATA PIUTANG


unit Unit23;

Label1: TLabel;

interface

Label2: TLabel;

uses

Label3: TLabel;



Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls;

type Tfpiutang = class(TForm) Button37: TButton; Button40: TButton;

DBEdit1: TDBEdit;

procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;

DBEdit2: TDBEdit; DBLookupComboBox1: TDBLookupComboBox;

var fpiutang: Tfpiutang;

DBEdit3: TDBEdit; DBEdit4: TDBEdit; DateTimePicker2: TDateTimePicker;

Button38: TButton;

implementation uses Unit3, Unit1; {$R *.dfm}

Edit6: TEdit; Button39: TButton; DBEdit5: TDBEdit; Button41: TButton; DBEdit6: TDBEdit; Button42: TButton; Edit7: TEdit; GroupBox1: TGroupBox; GroupBox4: TGroupBox;

begin DBLookupComboBox2: TDBLookupComboBox; Edit2: TEdit;

DBGrid2: TDBGrid; DBEdit7: TDBEdit; GroupBox3: TGroupBox; Label7: TLabel; Label10: TLabel; Edit1: TEdit;

procedure Tfpiutang.Button42Click( Sender: TObject);

DBEdit8: TDBEdit; Button2: TButton; DBNavigator1: TDBNavigator;

form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue; form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true; form1.Pencarian1.Enabled :=true;

form1.Laporan1.Enabled: =true;

Edit6.Text;

Button38: TButton;

prepared;

Button39: TButton;


open;

Button41: TButton;


end;

Button42: TButton;

close;

end;

QuickRep1: TQuickRep;

end; QRBand1: TQRBand; procedure Tfpiutang.Button1Click(S ender: TObject); begin

procedure Tfpiutang.FormActivate(S ender: TObject);

QRMemo1: TQRMemo;

begin

QRLabel9: TQRLabel;


QRExpr1: TQRExpr; QRLabel12: TQRLabel;

dm.piutang.Append; dbedit1.Text:=edit2.Text;


QRBand2: TQRBand;


end;

QRLabel1: TQRLabel;

dbedit3.Text:=datetostr(da tetimepicker2.Date);

end.

QRLabel4: TQRLabel;

dbedit4.Text:=dblookupco mbobox1.Text; dbedit5.Text:=dblookupco mbobox2.Text; dbedit6.Text:=edit7.Text; dbedit7.Text:=datetostr(da tetimepicker1.Date); dbedit8.Text:=edit1.Text;

QRLabel5: TQRLabel; LAPORAN RETUR

QRLabel6: TQRLabel;

unit Unit24;

QRBand3: TQRBand;

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

dm.piutang.Post; with dm.piutang do begin sql.Clear;


Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, Grids, Calendar, jpeg, ComCtrls;

QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRBand4: TQRBand; QRLabel2: TQRLabel;

close;

type

QRLabel3: TQRLabel;

sql.Add('select * from Piutang');

Tflapretur = class(TForm)


sql.Add(' Kd_pitg =:b');

Button37: TButton;


Button40: TButton;

QRLabel11: TQRLabel; Calendar1: TCalendar; Edit1: TEdit;

ComboBox1: TComboBox;

implementation uses Unit3;

qrlabel8.Caption:=combob ox1.Text+' Tahun '+edit1.Text;

{$R *.dfm}

dm.retur.SQL.Clear;

procedure Tflapretur.Button42Click( Sender: TObject);

dm.retur.Close;

Label1: TLabel; Label2: TLabel; Button2: TButton; Button1: TButton;

dm.retur.SQL.Add('select * from Retur_Pembelian');

begin QRLabel7: TQRLabel; formstyle:=fsnormal; QRLabel8: TQRLabel; close; QRImage1: TQRImage; end; DateTimePicker1: TDateTimePicker; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure Button42Click(Sender: TObject);

dm.retur.SQL.Add('where tgl_rtr_Bl like:a'); dm.retur.Parameters.Para mByName('a').Value:= combobox1.Text+'%'+edit 1.Text;

procedure Tflapretur.Button2Click(S ender: TObject);

dm.retur.Prepared;

begin

flapretur.QuickRep1.Previ ew;

close; end;

dm.retur.Open;

end; end.

procedure Button2Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public

procedure Tflapretur.FormActivate(S ender: TObject);

unit Unit25; begin interface calendar1.CalendarDate:= now; edit1.Text:=inttostr(calend ar1.Year); combobox1.ItemIndex:=(c alendar1.Month - 1); end;

{ Public declarations } end;

LAPORAN HUTANG

procedure Tflapretur.Button1Click(S ender: TObject);

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, Grids, Calendar, jpeg, ComCtrls;

var begin flapretur: Tflapretur;

type

Tflaphutang = class(TForm)


Button37: TButton;

QRLabel2: TQRLabel;

Button40: TButton;

QRLabel3: TQRLabel;

Button38: TButton;


Button39: TButton;


Button41: TButton;


Button42: TButton;

Label1: TLabel;

QuickRep1: TQuickRep; QRBand1: TQRBand; QRMemo1: TQRMemo;


procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

Edit1: TEdit; Label2: TLabel; Button1: TButton;

var flaphutang: Tflaphutang;

QRLabel9: TQRLabel; Button2: TButton;

implementation


uses Unit3;


{$R *.dfm}


procedure Tflaphutang.Button42Clic k(Sender: TObject);

QRExpr1: TQRExpr; QRBand2: TQRBand; QRLabel1: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel;


QRLabel6: TQRLabel;


QRLabel7: TQRLabel;

QRImage1: TQRImage;

QRBand3: TQRBand; QRDBText1: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRBand4: TQRBand; QRLabel8: TQRLabel;


begin formstyle:=fsnormal; close; end;

CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure Button42Click(Sender: TObject); procedure FormActivate(Sender: TObject);

procedure Tflaphutang.FormActivate (Sender: TObject); begin calendar1.CalendarDate:= now; edit1.Text:=inttostr(calend ar1.Year); combobox1.ItemIndex:=(c alendar1.Month - 1);

end;

interface

QRLabel7: TQRLabel; QRBand3: TQRBand;

procedure Tflaphutang.Button1Click (Sender: TObject); begin qrlabel14.Caption:=combo box1.Text+' Tahun '+edit1.Text; dm.hutang.SQL.Clear; dm.hutang.Close; dm.hutang.SQL.Add('sele ct * from Hutang'); dm.hutang.SQL.Add('whe re Tgl_agsrn_htg like:a');

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, Grids, Calendar, ComCtrls, jpeg;

QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText;

type QRBand4: TQRBand; Tflappenjualan = class(TForm) Button37: TButton;

dm.hutang.Parameters.Par amByName('a').Value:=


QRLabel8: TQRLabel; QRDBText8: TQRDBText;

Button40: TButton; QRLabel2: TQRLabel;

combobox1.Text+'%'+edit 1.Text;

Button38: TButton; QRLabel3: TQRLabel; Button39: TButton; QRLabel10: TQRLabel;

dm.hutang.Prepared; Button41: TButton;


dm.hutang.Open; Button42: TButton; flaphutang.QuickRep1.Pre view;

Label1: TLabel; QuickRep1: TQuickRep;

end;


QRBand1: TQRBand; Button1: TButton;

procedure Tflaphutang.Button2Click (Sender: TObject);

QRMemo1: TQRMemo;

begin

QRMemo2: TQRMemo;

close; QRLabel9: TQRLabel; end; QRExpr1: TQRExpr; end. QRBand2: TQRBand; QRLabel1: TQRLabel; LAPORAN PENJUALAN

QRLabel4: TQRLabel;

unit Unit27;


Button2: TButton; QRImage1: TQRImage; Label2: TLabel; ComboBox1: TComboBox; Edit1: TEdit; CheckBox2: TCheckBox; CheckBox1: TCheckBox;


procedure Tflappenjualan.Button2Cli ck(Sender: TObject);

LAPORAN PIUTANG


begin

interface

close;

uses


end;


procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;

procedure Tflappenjualan.Button1Cli ck(Sender: TObject); begin dm.penjualan.SQL.Clear; dm.penjualan.Close; dm.penjualan.SQL.Add('s elect * from Penjualan'); dm.penjualan.SQL.Add('w here tgl_Fktr_Jl =:a');

unit Unit28;

Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, Grids, Calendar, jpeg, ComCtrls; type Tflappiutang = class(TForm) Button37: TButton;

var

dm.penjualan.Parameters. ParamByName('a').Value: =

flappenjualan: Tflappenjualan;

datetostr(datetimepicker1. DateTime);

Button39: TButton;

dm.penjualan.Prepared;

Button41: TButton;

implementation

dm.penjualan.Open;

Button42: TButton;

uses Unit3;

flappenjualan.QuickRep1. Preview;



{$R *.dfm} end; procedure Tflappenjualan.Button42C lick(Sender: TObject);

QRBand1: TQRBand; QRMemo1: TQRMemo;

procedure Tflappenjualan.FormActiv ate(Sender: TObject);

begin begin formstyle:=fsnormal;

QRLabel9: TQRLabel; QRExpr1: TQRExpr; QRLabel12: TQRLabel;

close;

DateTimePicker1.DateTi me:=now;

QRBand2: TQRBand;

end;

end;

QRLabel1: TQRLabel;

end.



QRImage1: TQRImage; DateTimePicker1: TDateTimePicker;

QRBand3: TQRBand; QRDBText1: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRBand4: TQRBand; QRLabel8: TQRLabel; QRDBText8: TQRDBText; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel10: TQRLabel; QRLabel11: TQRLabel; QRLabel15: TQRLabel; QRDBText2: TQRDBText; QRLabel13: TQRLabel; QRLabel14: TQRLabel; Label1: TLabel; Label2: TLabel; ComboBox1: TComboBox; Edit1: TEdit;

close; end;

CheckBox1: TCheckBox; CheckBox2: TCheckBox;

procedure Tflappiutang.FormActivat e(Sender: TObject);


begin

procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

calendar1.CalendarDate:= now; edit1.Text:=inttostr(calend ar1.Year); combobox1.ItemIndex:=(c alendar1.Month - 1); end;

procedure Tflappiutang.Button1Click (Sender: TObject); begin qrlabel14.Caption:=combo box1.Text+' Tahun '+edit1.Text; dm.piutang.SQL.Clear;

var

dm.piutang.Close;

flappiutang: Tflappiutang;

dm.piutang.SQL.Add('sele ct * from Piutang');

implementation

dm.piutang.SQL.Add('whe re tgl_agsrn_pitg like:a');

uses Unit3, Unit25; {$R *.dfm}

dm.piutang.Parameters.Par amByName('a').Value:= combobox1.Text+'%'+edit 1.Text;

Button1: TButton;

procedure Tflappiutang.Button42Clic k(Sender: TObject);

Button2: TButton;

begin



dm.piutang.Prepared; dm.piutang.Open;

flappiutang.QuickRep1.Pr eview;


public { Public declarations }

end; QRLabel5: TQRLabel; procedure Tflappiutang.Button2Click (Sender: TObject);

QRDBText2: TQRDBText; var QRDBText3: TQRDBText;

begin close;

end;

cetak_penjualan: Tcetak_penjualan;


end;

QRLabel6: TQRLabel;

implementation

end.

QRLabel7: TQRLabel;

{$R *.dfm}


end.

CETAK PENJUALAN


unit Unit31;


PENCARIAN DATA

interface

QRBand3: TQRBand;

unit Unit32;

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QRCtrls, QuickRpt, ExtCtrls, jpeg;

QRDBText1: TQRDBText; QRDBText4: TQRDBText;

uses




Dialogs, Grids, DBGrids, StdCtrls;

type

QRBand4: TQRBand;

Tcetak_penjualan = class(TForm)

QRLabel8: TQRLabel;


interface

QRDBText8: TQRDBText; QRLabel2: TQRLabel;

QRBand1: TQRBand;

type Tfpencarian = class(TForm) GroupBox2: TGroupBox;

QRLabel3: TQRLabel; QRMemo1: TQRMemo;



QRLabel9: TQRLabel;


Label3: TLabel;

QRExpr1: TQRExpr;

QRImage1: TQRImage;

Label4: TLabel;

QRLabel12: TQRLabel; QRBand2: TQRBand;


Edit3: TEdit;


form1.Menu1.Enabled:=tr ue; form1.Setting1.Enabled:=t rue;

Edit1: TEdit; Button1: TButton; Button2: TButton; DBGrid1: TDBGrid; Button3: TButton; Label2: TLabel; procedure Button3Click(Sender: TObject);

form1.MasterData1.Enabl ed:=true; form1.ransaksi1.Enabled: =true;

dm.barang.Close; dm.barang.SQL.Add('sele ct * from Barang’); dm.barang.SQL.Add('whe re Kd_MJ like:a'); dm.barang.Parameters.Par amByName('a').Value:= '%'+edit3.Text+'%';

form1.Pencarian1.Enabled :=true; form1.Laporan1.Enabled: =true;

dm.barang.SQL.Add(' and Qty_Jm <=:b'); dm.barang.Parameters.Par amByName('b').Value:=


edit1.Text;

procedure ComboBox1Change(Send er: TObject);


dm.barang.Prepared;

close;

dm.barang.Open;


end;

if dm.barang.RecordCount >0 then

procedure Tfpencarian.ComboBox1 Change(Sender: TObject);

dbgrid1.DataSource:=dm. dsbarang

begin

else

if combobox1.Text = 'Barang ' then

application.MessageBox(' Data Kosong','tidak ada',0);

procedure Button2Click(Sender: TObject); private { Private declarations }

groupbox1.Visible:=true public else

label2.Caption:=inttostr(d m.barang.RecordCount);

groupbox1.Visible:=false;

end;

end;

if combobox1.Text = 'Supplier' then

{ Public declarations } end; var fpencarian: Tfpencarian; implementation uses Unit3, Unit1; {$R *.dfm} procedure Tfpencarian.Button3Click( Sender: TObject); begin

begin procedure Tfpencarian.Button1Click( Sender: TObject);

dm.supplier.SQL.Clear; dm.supplier.Close;

begin if combobox1.Text = 'Barang' then begin dm.barang.SQL.Clear;

dm.supplier.SQL.Add('sel ect * from Supplier'); dm.supplier.SQL.Add('wh ere Kd_spr like:a');

dm.supplier.Parameters.Pa ramByName('a').Value:=

application.MessageBox(' Data Kosong','tidak ada',0);

'%'+edit3.Text+'%';

dm.supplier.Open; dbgrid1.DataSource:=dm. dssupplier;

dm.supplier.Prepared;

label2.Caption:=inttostr(d m.relasi.RecordCount);

dm.supplier.Open;

end;

if dm.supplier.RecordCount >0 then

end;

dbgrid1.DataSource:=dm. dssupplier

procedure Tfpencarian.Button2Click( Sender: TObject);

begin

begin

dm.relasi.Close;

label2.Caption:=inttostr(d m.supplier.RecordCount); end; if combobox1.Text = 'Relasi' then

dm.relasi.SQL.Clear;

else application.MessageBox(' Data Kosong','tidak ada',0); label2.Caption:=inttostr(d m.supplier.RecordCount);

dm.relasi.SQL.Add('select * from Relasi'); if combobox1.Text = 'Barang' then

dm.relasi.Prepared;

begin

dm.relasi.Open;

dm.barang.SQL.Clear;

dbgrid1.DataSource:=dm. dsrelasi;

end; if combobox1.Text = 'Relasi' then

dm.barang.Close;

begin

dm.barang.SQL.Add('sele ct * from Barang ');

label2.Caption:=inttostr(d m.relasi.RecordCount); end;

dm.relasi.SQL.Clear; dm.barang.Prepared;

end;

dm.relasi.Close; dm.barang.Open; dm.relasi.SQL.Add('select * from Relasi'); dm.relasi.SQL.Add('where Kd_ctmr like:a');

end. dbgrid1.DataSource:=dm. dsbarang; label2.Caption:=inttostr(d m.barang.RecordCount);

dm.relasi.Parameters.Para mByName('a').Value:=

end;

'%'+edit3.Text+'%';

if combobox1.Text = 'Supplier' then

dm.relasi.Prepared; begin dm.relasi.Open; dm.supplier.SQL.Clear; if dm.relasi.RecordCount >0 then

dm.supplier.Close;

dbgrid1.DataSource:=dm. drelasi

dm.supplier.SQL.Add('sel ect * from Supplier');

else

dm.supplier.Prepared;

ABOUT unit Unit33; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;

type

Tfabout = class(TForm) GroupBox1: TGroupBox; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Image1: TImage; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var fabout: Tfabout; implementation {$R *.dfm}

procedure Tfabout.Button1Click(Sen der: TObject); begin close; end; end.

APLIKASI PEMBELIAN JENIS PLASTIK DENGAN MENGGUNAKAN BORLAND DELPHI 7

Recommend Documents