sumber bahan baku utama adalah bersalah dari hasil budidaya ataupun dari hasil

niversitas Wijaya Putra

PENDAHULUAN 1. ATAR BELAKANG Dalam dunia Industri hal utama yang paling mendasar adalah masalah perencanaan produksi, dimana perencanaan meliputi dari persiapan bahan

sampai

perencanaan

persiapan

pack

perencanaan material.

Di

pabrik/perusahaan yang bergerak dalam bidang pengolahan makanan yang mana sumber bahan baku utama adalah bersalah dari hasil budidaya ataupun dari hasil penangkapan laut yang berupa udang, ikan, cumi-cumi dan lain sebagainya. Yang mana secara quantity dan mutu bisa kita control tapi untuk kelanjutan bahan itu akan diolah menjadi bahan baku semi jadi dibutuhan datadata yang akurat guna proses berikutnya, adapun data-data yang dibutuhkan adalah berupa berapa banyak dari bahan tersebut untuk diolah menjadi produk yang secara spesifikasinya harus standart. Sering kali kita dibinggungkan dengan keadaan ini karena kita tidak tahu berapa banyak dari bahan yang menurut jumlah dan sizenya campur atau kata lain bahan bakunya mix. Mungkin hal yang bisa dilakukan hanya melakukan tahap sampling, yang mana sampling hanya bisa dilakukan terbatas akan quantity yang disampling dan waktu yang dibutuhkan sangat lama dan itu pun hasil dari sampling sering tidak sesuai dari apa yang direncanakan. Di sisni maka dari apa yang dialami dari parbrik tersebut saya mempunyai suatu ide yang mana mungkin bisa bermamfaat bagi setiap perusahaa ataupun bagi diri saya pribadi.

Fakultas Teknik Industri

Page 1


Dimana lokasi menjadi penelitian dari proyek kami ada sebuah perusahaan yang bergerak dalam bidang pengolahan hasil laut yang sumber bahan baku utamanyaadalah perikanan budidaya tambak yang berupa udang, yang bertempat di wilayah tandes surabaya. Adapun hal-hal yang mendorong saya dalam melakukan penelitian ini adalah karena dalam proses perencanaan persiapan bahan dibutuhkan keputusan yang

cepat dan tepat, untuk menghasilkan keputusan yang cepat dan tepat

dibutuhakan data-data yang akurat juga. Dalam hal ini dalam yang akan saya coba terapkan guna mendukung dari keputusan yang tepat dan akurat tersebut, adalah sebuah soft ware mini plant yang bisa menganalisa data secara cepat, tepat dan tingkat akurasinya 80 - 90 %. Untuk software ini tetap yang dibutuhkan adalah tahap sampling bahan dari perdelapan dari jumlah penerimaan bahan, software ini data yang diambil adalah gram / pcs dari tiap bahan udang yang masuk ke proses penerimaan. Atau bahan akandiproses esok bisa dianalisa dengan software dan untuk data akurasinya supaya bisa mencapai 75 – 85%.

2. Perumusan Masalah Dari sering terjadi waktu tunggu dalam pengambilan keputusan karena harus menunggu barang/raw material diproses dulu, untuk mengetahui seberapa banyak sebaran size yang terdapat pada bahan tersebut, maka saya merumuskan


Page 2


kalau permasalahan yang akan saya teliti adalah bagaimana cara mebuat suatu alat bantu agar dalam mengambil suatu keputusan biasa secara cepat, akurat, dan efesien. Dimana natinya saya akan mebuat suatu software yang memudahkan dalam pengambilan keputusan yang mana dari keputusan tesebut bergunauntuk menentukan planing/rencana berikutnya. Dimana untuk sistem pengambilan datanya tetap yang dibutuhkan adalah sampling material awal, yang berguna untuk mengidentifikasi data

dari

sebaran size atau gram/pcs dari bahan atau raw material tersebut.

3. Ruang Lingkup Penelitian Dimana obyek yang akan teliti tersebut melingkupi hanya terbatas pada perencanaan bahan baku dari bahan bahan belum jadi produk menjadi bahan baku semi jadi produk, yang mana bahan tersebut akan diolah kembali menjadi bahan jadi produk yang siap untuk di export dalam

dan keluar negeri.

Adapun data yang akan saya ambil adalah data yang berasal dari hasil sampling gram / pcs dari tiap raw material yang berasal dari berbagai macam suplier dan size penerimaan. Yang nantinya data tersebut akan saya masukkan kedalam suatu sistem / software yang nantinya dari data tersebut akan diolah menjadi suatu rangkuman. Yang mana rangkuman ini berisi tentang laporan sebaran size yang sudah direncanakan dari pihak pembuat rencana dan rencana tersebut


Page 3


berdasarkan dari kebutuhan pemenuhan kwbutuhan bahan dari tiap produk export. Adapun batasan dalam penelitian ini terdapat batasan, yaitu : 1. pencatatan bahan / raw material yang masuk,yang meliputi size mix bahan, quantity, suplier dan tanggal terima bahan. 2. Sampling gram / pcs udang dari tiap penerimana berdasarkan size dan suplier. 3. Membuat laporan hasil dari analisa bahan / raw material. 4. Membuat data / laporan akurasi perencanaan dengan realisasi hasil perencanaan. 5. Perangkat lunak atau software untuk menunjang pekerjaan adalah visual basic.

4. Tujuan Penelitian Hasil penelitian ini saya harapkan agar menghasilkan suatu sistem atau software perencanaan bahan baku yang dapat mempermudah

dalam

pengambilan data guna perencanaan berikutnya dan juga lebih cepat secara data / jumlah dalam pengambilan keputusan dan bisa diukur secara detail atas perencanaan yang sudah dibuat.


Page 4


Sistem atau soft ware ini dibuat juga diharapkan mampu memberi solusi pihak pembelian agar mendapatkan data lebih cepat guna mengetahui profit and losse dari setiap pembelian bahan baku.

5. Manfaat Penelitian Sistem

atau

software

hasil

penelitian

ini

diharapkan

agar

menghasilkan suatu sistem atau software perencanaan bahan baku yang dapat mempermudah dalam

pengambilan data guna perencanaan berikutnya dan

juga lebih cepat secara data / jumlah dalam pengambilan keputusan dan bisa diukur secara detail atas perencanaan yang sudah dibuat. Sistem atau software ini dibuat juga diharapkan mampu memberi solusi pihak pembelian agar mendapatkan data lebih cepat guna mengetahui profit and losse dari setiap pembelian bahan baku .

1.6

Ruang Lingkup Pembahasan Dalam penelitian ini terdapat batasan , yaitu : •

Pencatatan barang berdasarkan surat jalan yang masuk

•

Laporan berupa hasil dari proses

•

Laporan akurasi Rencana dan Realisasi planing

•

Pemberian solusi jika terjadi ketidak sesuaian pada saat rencana kerja berjalan


Page 5


•

Menyediakan informasi berapa rencana barang yang akan diproses menjadi barang semi finish good.

•

Data base yang digunakan adala Vsual Basic 6.

•

Visualisasi pengunaan Soft ware.

•

Sistem informasi mengunakan Microsoft Windows Xp

1.7 Sistematika Penulisan Laporan Laporan penelitian ini secara keseluruan terdiri dari lima bab, dimana secaragaris besar masing-masing bab membahas hal- hal sebagai berikut : BAB 1 Pendahuluan: berisi latar belakang, permasalahan, tujuan penelitian, manfaat penelitian, ruang lingkup permasalahan, sistematika penyususnan laporan. BAB 2 Tinjuan Pustaka: membahas tentang teori-teori dasar yang relevan yang digunakan unutk memecahkan persoalan yang dibahas pada penelitian. BAB 3 Metodelogi Penelitian: membahas metode penelitian yang digunakan dalam perancangan aplikasi BAB 4 Hasil Penelitin dan Pembahasan: berisi tentang hasil dari penelitian, berupa aplikasi yang telah dikembangkan beserta dengan pengujian padaaplikasi tersebut.


Page 6


BAB 5 Kesimpulan dan Saran: berisi tentang kesimpulan yang mencakup beberapa hal penting pada hasil yang didapat dari penelitian dan saran-saran yang diajukan bagi penyempurnannya.

BAB 2. TINJAUAN PUSTAKA 2.1 Perancangan Sistem Dalam melakukan perancangan sistem, ada dua model yang digunakan yaitu proses modeling dengan mengunakan data Data Flow Diagram (DFD) dan data modeling dengan mengunakan Entity Relationship Diagram (ERD). Untuk memperjelas detail dari proses digunakan Flow chart.

2.1.1 Data Flow Diagram (DFD) DFD merupakan pengambaran sistem yang mengunakan bentuk simbol untuk mngambarkan aliran data dalam suatu proses yang

saling berhubungan(Gregorius SB dan Liliana,

2004). Beberapa simbol yang digunakan untuk mengambarkan suatu sistem antara lain :

Enternal Entity Fakultas Teknik Industri

Enternal Entity,merupakan simbol yang mewakili elemen yang berada di luar sistem,

Page 7


tetapi mempuyai hubungan interaksi dengan system. Gambar 2.1 External entity

Proses, merupakan simbol yang mewakili kegiatan untuk mengubah data menjadi informasi atau masukan untuk data lain. Gambar 2.2 Proses

Data Store, merupakan simbol yang Data Store

memiliki tempat penyimpanandaridata dan dapat digunakan bila dibutuhkan. Gambar 2.3 Datra Store

Data Flow, merupakan simbol yang mewakili arah aliran data yang berasal dari satu proses,data store atau elemen lingkungan menuju kesatu proses, data store atau enviromental elemen lainnya Gambar 2.4 Data Flow


Page 8


Pemodelan sistem dengan mengunakan DFD memiliki level yang menandai pangambaran sistem mulai dari umum hingga detail. Level yang

menandai

hubungan

yang

paling

umum

dan

mengambarkan sistem secara keseluruan disebut Contex diagram. Dari contex diagram dapat diuraikan dalama DFD level 0,1hingga level dimana proses diangap cukup detail. Dalam pengambaran proses perlu dilakukan penomeran,

(Gregorius

SB dan Liliana, 2004). Demikian juga dari level uraian

proses tersebut.

Contohnya proses dengan nomer “1” pada DFD level

“0” bila diuraikan

pada level “1”, maka penomeran perlu dididahului dengan nomer proses yang diuraikan ,yaitu “1.1”, “1.2”, “1.3” dan

seterusnya. Hal yang

sama juga berlaku pada penomeran DFD level

selanjutnya.

2.1.2 Entity Relationship Diagram (ERD) Merupakan data modeling yang dipergunakan mendokumentasikan data sistem. Dokumentasi dilakukan dengan cara menentukan kelompok data apa saja yang terdapat pada entity satu dengan yang lainnya. Entity dapat berupa enviromental elemen, resource dan transaksi yang sangat diperlukan untuk didokumentasikan dalam bentuk data. Simbol – simbol yang dipergunakan dalam ERD antara lain :


Page 9


Entity, yang termasuk kedalam entyti antara lain enviromental elemen, resource, dan transaksi yang sangat penting bagi sistem. Setiap entity mempunyai atribut yang merupakan kateristik yang menandai atau yang dimiliki oleh entity tersebut. Gambar 2.5 Entity

Relationship, menandakan hubungan antara entity, simbol relationship kadang diwakili sebagai garis yang menghubungkan antar entity Gambar 2.6 Relationship

Selain simbol dan istilah tersebut masih ada istilah lain yang menggambarkan hubungan relasi yang dilakukan antar entity dengan entity yang a.

lainnya, yaitu :

Cardinality, menandai jumlah entity yang muncul dalam

relasi dengan entity yang lainnya. Nilai cardinality ada dua yaitu “1” atau “many” . Bentuk relasi yang dihasilkan ada tiga yaitu :


Page 10


1.

One to one relationship, merupakan relasi antar entity yang

dimana tiap satu entity hanya dapat berpasangan dengan satu entity pasangannya. Contoh relasi antar departemen (entity 1) dengan kepala departemen (entity 2), dimana satu departemen hanya mempunyai satu kepala departemen, demikian juga sebaliknya (lihat gambar 2.7)

Gambar 2.7One to One Relationship

2.

One to many Relationship, merupakan relasi antar entity

dimana tiap satu entity dapat berpasangan dengan lebih dari satu entity lainnya. Contohnya Adminitrasi (entity1), dengan proses imput data (entity 2). satu input data hanya dapat dilakukan oleh Adminitrasi sedangkan adminitrasi dapat terlibat pada beberapa input data. (Lihat gambar 2.8)

Gambar 2.8 One to Many Relationship


Page 11


3.

Many to Many Relationship, merupakan relasi antar entity

dimana beberapa entity dapat berpasangan lebih dari satu pasangan entity yang lain. Contohnya relasi Kepala regu (entiy1) dengan PPIC perencanaan (entity2), satu adm sampling bisa terlibat dengan PPIC perencanaan sementara PPIC perencanaan bisa melibatkan beberapa kepala regu untuk sosialisasi

perencanaan yang berbeda (Lihat gambar 2.9)

Gambar 2.9 Many to Many Relationship

b.

Mandotary, menandai apakah semua anggota entity yang lain

harus berelasi dengan anggota entity yang lain atau tidak. Bilamana semua anggota entity berrelasi dengan yang lainnya maka diberi simbol “I” atau disebut obligatory/mandatory dan bila semua anggota relasi tidak berpasangan dengan anggota relasi yang lain maka diberikan simbol “O” atau disebut sebagai non mandatory/non obligatory. Contoh mandatory entity 1 dengan entity 2 dengan one to one relationship (Lihat gambar 2.10)


Page 12


Gambar 2.10 Mandatory Dari gambar tersebut berarti semua anggota dari entity satu harus berelasi dengan entity 2, dengan memberi simbol “I” didepan entity 2. sementara dari entity 2 diberi simbol “0” didepan entity 1, berarti anggota dari entity 2 tidak harus seluruhnya berelasi dengan anggota entity 1.

2.1.3 Flowchat Merupakan diagram yang mengambarkan langkah dari sebuah proses. Dengan mengunakan flowchat maka kerja dari suatu proses dapat dipantau untuk pengembangan atau perbaikan. Beberapa simbol yang dipergunakan dapat dilihat pada gambar 2.11(Supardi dan yuniar, 2001) 2.

Pembuatan Sistem 2.2.1 Database Management System (DBMS) Database ditunjukkan pada semua data yang tersimpan

mengunakan sumber daya komputer di dalam organisasi, sementara DBMS merupakan perangkat lunak aplikasi yang menyimpan dari data base,data dan relasi data dalam database termasuk form laporan yang berhubungan dengan database (Mc Leod, Jr., Schell, 2002). Dalam mendesain database, perlu ditentukan jenis server databese untuk mekanisme kerja yang baik (Gregorius SB danLiliana,


Page 13


2004). Oleh karena itu perlu dipertimbangkan kelemahan dan keungulan dari masing - masing server tersebut. Secara umum, perlu relational database server yang sering kita pakai yaitu ; a. Remote Database Server, berada mesin yang terpisah dengan client bahkan data juga dapat terpisah dengan client bahkan data juga bisa terpisah pada beberapa server lain yang berbeda jenis.

Walaupun

database server memiliki beberapa cara dalam peletakan data, mereka memiliki logika interfrace yang umum pada client yaitu Structure Query Language (SQL).

Karena akses dilakukan dengan SQL server atau

Remote Database ManagementSystem (RDBMS). Setiap SQL server memiliki sintaks

tersendiri

untuk SQL. Contoh dari SQL server

antara lain: Interbase, Oracle, Sysbase, Infomix, Microsoft SQL server, dan MySQL. b. Lokal databases, berada pada satu sistem atau Lokal Area Network (LAN)

yang sama. Umumnya memiliki API (Aplicatioan

Programing Interfrace) yang sama. Bila memiliki beberapa user maka lokal database sering menggunakan mekanisme file-base locking(mengunci tabel yang dignakan untuk akses oleh

user lain), oleh karena itu sering disebut

juga sebagai file-base database.

Contoh dari lokal dari database adalah

paradox, dBASE,Foxpro dan Axcess. Aplikasi yang mengunakan lokal database, sering juga disebut sebagi single-tiered applicatioan karena aplikasi database membagi sistem file yang sama. Sementara aplikasi yang menggunakan remote


Page 14

database


server

disebut

sebagai

two-tiered

applicatioans karena aplikasi database

applicatioans beroperasi

atau pada

multi-tiered sistem

yang

berbeda. Beberapa pertimbangan dalam menentukan jenis database server adalah sebagai berikut: a.

Jumlah user pengguna database, dengan menggunakan

remote

database,dapat

dilakukan

akses

oleh

usersekaligus melalui mekanisme yang disebut sebagai tetapi lebih

banyak menggunakan file-

beberapa transaction,

based locking

mechanism.Dan beberapa tidak mendukung multi-user sama sekali. b.

Jumlah data yang akan disimpan oleh database. Remote

databasedapat menyimpan lebih banyak dari pada lokal Beberapa Remot databasedidesain untuk

database.

warehousing dari data dan

jumlah besar sementara yang lainnya dioptimalkan untuk hal lain seperti kecepatan update. c.

Performa dari database, local database umumnya lebih

cepat dari Remote database server, karena server berada dalam sistem yang sama dengan aplikasi database. d.

Biaya dari pengunaan database ,local database memiliki

biaya yang


jauhlebih murah dari Remote database server

Page 15


yang perlu menyediakan server yang terpisah atau biaya operasional server seperti peggunaan jaringan internet atau e.

Pengembanga

database,seiring

dengan

satelit. perkembangan

yang terus berubah,tidak menutup kemungkina suatu saat perlu dilakukan perubahan atau pengembangan dari database yang telah ada.

Terminator, menandai awal atau akhir da suatu proses

Decision, untuk menandai percabangan dalam proses

Input/output, menggambarkan adanya inpu atau output dari sistem

Process, menggambarkan proses yang dilakukan


Page 16


Flow, menggambarkan arah urutan proses yang dilakukan Preparation, simbol untuk dimulainya proses looping

Predefined process, untuk menggambarkan proses yang telah dimasukkan sebelumnya

Stored procedure, simbol untuk mewakili proses yang dilakukan pada data yang tersimpan, seperti insert, delete dan update

Gambar 2.11 Simbol Flowchat

2.2.2

Structure Query Language (SQL) SQL merupakan bahasa yang memungkinkan pemakainya untuk

melakukan akses data ke DBMS dan pemakai dapat mengambarkan data yang ingin diperolehnya (Hoffman, 2007). SQL juga memungkinkan pula untuk melakukan manipulasi data ( input, edit, dan delete). Dalam perkembangannya, SQL telah menjadi bahasa standart dalam kegiatan manipulasi data pada database berbagai vendor yang ada di dunia. Pada subbab ini akan diberikan penjelasan tentang dasar dari perintah SQL. Tabel dan data yang akan dipergunakan sebagai contoh dapat dilihat pada tabel 2.1 untuk tabel cek bahan dan Tabel 2.2 untuk tabel size bahan Fakultas Teknik Industri

Page 17


Tabel 2.1 . Contoh Tabel Suplier

ID SUPLIER

NAMA SUPLIER

1

Handoko Harsono

2

Ashari Nasrullah

3

Johan Agusinta

4

Wigih Didin

Tabel 2.2. Contoh Tabel Petak Petambak

ID PETAK

DS PETAK

1

P.B5

2

P..K1

3

P.2

4

P.7

Beberapa perintah yang umum dipergunakan dalam SQL adalah sebagaiberikut (Belkin, 2003):


Page 18


a.

SELECT, merupakan perintah untuk melakukan pengambilan data yang berada di dalam tabel. Bila ingin melakukan pengambilan data yang berada di dalam: •

Tabel barang secara keseluruhan SELECT * from suplier

•

Tabel barang untuk field 'ID suplier' dan 'Kode Umum'

SELECT id_suplier,kode_umum FROM suplier b.

Conditional, merupakan perintah untuk mengambil data dengan kondisi tertentu, mengunakan

“WHERE” dan

Relational Operator seperti “<” , “>”, “=”, “<>”. Berikut pengambilan data dengan “ID_Nama Suplier” c.

Joins, merupakan bentuk perintah untuk melakukan pengambilan data dari dua atau lebih tabel sekaligus. Berikut adalah carauntuk pengambilan untuk field ID_Raw Material, nama_Suplier yang berasal dari Raw material dan tabel kelompoknya.

d.

Aggregate Fuction seperti Sum(), Count(), Avg(), Max(), Min(). Bila ingin mengetahui berapa jumlah “id_Raw material” dengan “ID_Suplier pada tabel Raw material maka perintah yang diberikan :


Page 19

saja


e.

CREATE TABLE , perintah ini dipergunakan untuk membuat sebuah tabel baru dengan fieldnya. Contoh: untuk membuat table suplier dengan field “id_suplier” d“nama suplier”

f.

ALTER TABLE, perintah ini berfungsi melakukan perubahan pada struktur tabel (bukan isi tabel).

g.

INSERT, merupakan perintah yang dipergunakan untuk menambahkan data pada tabel. Untuk menambah data suplier dengan nama “Kopsah” maka perintah yang dipergunakan.

h.

UPDATE, berfungsi untuk mengubah data pada tabel. Bila nama suplier pada tabel suplier dengan kode “0281” ingin diganti dengan “makasar”

I.

DELETE, merupakan perintah untuk menghapus data pada tabel baik satu atau seluruhnya. Untuk menghapus data tertentu maka dipergunakan WHERE sedangkan untuk menghapus isi seluruh tabel maka WHERE tidak dipergunakan lagi. Contoh untuk menghapus isi seluruh tabel sampling gram/pcs.

Secara keseluruhan perintah SQL sangatlahberagam dan dapat dipergunakan sesuai dengan kebutuhan manipulasi data pada aplikasi


Page 20


database.

Untuk setiap database server akan terdapat beberapa

perintah SQL dengan sintaks tersendiri.

2.2.3 MySQL MySQL merupakan produk dari MySQL AB yang merupakan database server yang cepat, multi-tiered, multi user dan robust.Software MySQL memiliki dual Licensed dimana user bisa memilih untuk mengunakan MySQL sebagai open source berdasarkan persyaratan dari GNU(General Public Licence) atau membeli standart comercial licence dari MySQL. Beberapa kateristik dari MySQL adalah sebagai berikut: a.

Kode pemograman ditulis dalam bahasa C dan C++

b.

Fully multi-tiereded,dapat mengunakan Multiple CPU jika tersedia

c.

MySQL mendukung multi-platform ingga cross-platform. Beberapa operating system dimana MySQL dapat berjalan dengan baik antara lain: Linux, Max OSX, Net BSD, Solaris2.5, Windows 9.x, Me, NT, XP.

d.

Prefilege dan security yang terjamin karena pengiriman data antar client dan server harus melalui enkripsi terlebih dahulu.

e.

Mendukung database terdistribusi dengan kemampuan replikasi. Suatu kemampuan dimana master server dapat menyimpan semua


Page 21


perubahan database yang terjadi kedalam binari log dan mengirimkan nya ke slave serveruntuk melakukan perubahan yang sama pada master server f.

Memiliki banyak tipe kolom seperti float, double, char, varchar, text, BLOD, date, time, datetime, timestamp, year, set, dan enum.

g.

mampu menangani database dalam jumlah besar hingga 60.000 tabel dan 5.000.000 baris record.

2.2.4 Visual Basic 6 Visual basic merupakan bahasa pemograman yang dapat membantu mengaplikasikan suatu ide kedalam bahasa komputer

BAB 3.

METODE PENELITIAN 3.1

Metodelogi Penelitian Penelitian ini dilaksanakan berdasarkan metodelogi

penelitian sebagai berikut: a.

Studi Literatur Mempelajari berbagai teknologi yang akan dipergunakan

dalam penelitian, seperti: database, alogaritma genetika, dan penggunaan Visual basic 6 dalam aplikasi.


Page 22


b.

Pengumpulan data Cara pengumpulan data yang dilakukan sebagai berikut:

•

Wawancara,dilakukan

untuk

mengumpulkan

data

mengenai

kebutuhan dari perusahaan terhadap sistem, mempelajari sistem perencanaan persiapan bahan baku yang dipergunakan perusahaan, memperoleh data jumlah dan jenis barang. •

Pengamatan,dilakukan

dengan

melihat

kondisi

perencanaan

sekarang yang nantinya akan mengunakan sistem dan cara kerja yang akan dilakukan nantinya. c.

Analisa kebutuhan Melakukan analisa terhadap hasil wawancara dan

pengamatan. Menentukan teknologi yang akan dipergunakan. d.

Desain perangkat lunak Pada tahap ini dilakukan desain terhadap sistem perencanaan

persiapan bahan baku yang akan diterapkan dalam perangkat lunak dengan mengunakan Data Flow Digram dan EntityRelationship Diagram. Selain itu juga dibuat perencanaan dan desain terhadap cara optimasi,visualisasi dan interfrace dari perangkat lunak. e.

Pembuatan perangkat lunak


Page 23


Pada pembuatan perangkat lunak, dilakukan pemograman terhadap hasil perencanaan dan desain. Selain itu juga dilakukan dokumentasi selama tahap pemebuatan. f.

Pengujian perangkat lunak Dalam proses pengujian, perangkat lunak dipastikan bebas

error dan mulai diuji pada gudang tempat sistem akan diterapkan. Bila ternyata program belum selesai dengan kebutuhan, maka dilakukan perbaikan pada desain sistem atau perubahan pada pemograman dan pada akhirnya mengalami pengujian sekali lagi, sehingga program dianggap layak untuk dipergunakan. g.

Kesimpulan Dari hasil pengujian dilakukan pengambilan kesimpulan

terhadap hasil pembuatan tugas akhir.

3.2

Analisa Sistem Lama Hal-hal yang perlu diperhatikan dalam perencanaan

persiapan bahan perusahaan adalah sistem sampling raw material awal yang berasal dari bongkaran tiap suplier dan kondisi dari raw material tersebut.


Page 24


• Proses Penerimaan raw material Pada tahap penerimaan ini raw material bersal dari pembelian yang mana proses pemasukan raw material disertai dengan surat jalan dan raw material untuk sampling size dan mutu. Proses ini dilakukan untuk mengetahui raw material sesuai apatidak dari apa yang diperlukan oleh perusahaan guna pemenuhan kebutuhan export. • Proses Sampling Proses sampling dilakukan dengan cara pencatatan manual dan proses sampling ini dilakukan lebih detail lagi. Karena proses sampling ini dilakukan bertujuan untuk perencanaan dari penentuan raw material itu harus diolah menjadi produk apa saja dan harus sesuai dengan kebutuhan export. • Pembuatan Juklak / Petunjuk Kerja Proses pembuatan juklak dilakukan dengan cara penulisan manual disuatu form kosong, yang mana nantinya dari juklak tersebuat produksi akan memproseskan sesuai dengan seperti apa yang ada dijuklak. Untuk pembuatan juklak ini biasanya membutuhkan waktu agak lama ( 5 jam ) dikarenakan pada tahap sampling untuk analisa datanya membutuhkan waktu yang lama karena untuk analisanya masih mengunakan manual. • Pembutan Laporan


Page 25


Laporan

dibuat

bertujuan

untuk

mengetahui

berapa

persentase cek size yang keluar dari setiap suplier. Dimana data-data tersebut nantinya yang dipakai sebagi acuan untuk membuat juklak atau petunjuk kerja persiapan bahan baku. Laporan dibuat dengan pencatatan manual, yaitu: 

Laporan penerimanan setiap suplier yang berupa quantity, size

raw material dan kualitas dari raw material tersebut. 

Laporan Sebaran Size dari setiap suplier dengan merekap

quantity keseluruan. 

Laporan Alokasi size / cek untuk orderan yang ada.

3.2.1 Analisa permasalahan Beberapa permasalahan yang sering muncul pada sistem manual pada PT. X adalah: •

Banyaknya produk yang menyebabkan lamanya waktu dalam mengambil keputusan.

•

Banyaknya sebaran size dari tiap suplier sehingga membutuhkan waktu yang cukup lama.

•

Sering terjadinya perubahan rencana yang berasal dari marketing karena perubahan order / pesanan.

•

Pekerja yang sering melakukan kesalahan planing karena keterlambatan dalam pembutan juklak / putujuk kerja.


Page 26


•

Sering terjadi pemandingan oleh raw material akibat keputusan yang tidak cepat, dikarenakan laporan kesimpulan dari sampling raw material terlambat.

•

Tingkat akurasi terhadap realisasi proses rendah dan hanya bisa mencapai angka 50% - 60%.

3.2.2 Analisa Kebutuhan Dari permasalahn yang muncul,perusahaan membutuhkan sistem perencanaan persiapan bahan baku baru yang : •

Terkomputerisasi untuk memudahkan dalam mengambil keputusan dan mencatat semua sebaran dari size setiap suplier yang datang pada hari itu dikerjakan.

•

Dapat mempermudah dan dapat memberi solusi tentang alokasi terhadap order yang ada.

•

Lebih cepat dalam melakukan identefiksi masalah dan keakurasian terhadap realisasi proses mencapai 75% - 85%.

3.3

Desain Sistem Desain sistem dimulai dengan mengambarkan Data Flow

Diagram dan Entity Relationalship Diagram kemudian dilanjutkan dengan membuat aplikasi.


Page 27


3.3.1 Desain Data Flow Diagram (DFD) Pengambaran sistem kerja diawali dari penerimaan raw material yang akan dilanjutkan dengan proses pengambilan data yang meliputi quantity , cek ,size , asal suplier dan mutu. Kemudian akan dilakukan tahap sampling yang mana ini akan

dilakukan oleh adminitrasi sampling dan dilanjutkan dengan input

data ke software yang nantinya data tersebut akan diolah menjadi suatu kesimpulan yang mana data tersebut bisa dipakai sebagai petujuk

untuk

pembuatan juklak (Gambar 3.1) DFD analisa sampling mempunyai empat proses utama yang

meliputi: Pengambilan data dari penerimaan,sampling raw material,

input hasil dari sampling raw material dan analisa

data

untuk

kesimpulan. Tahap Pengambilan data,merupakan proses yang mengambil data-data yang berasal dari suplier yang meliputi: size ,quatity dan mutu dari suplier. Pada tahap ini diperlukan kebenaran dalam melakukan pengambilan data karena tahap ini yang menentukan kebenaran / keakurasian dari hasil analisa. Tahap Sampling, dimana proses ini dilakukan timbang gram/pcs dari setiap ekor udang yang nantinya dari timbangan

itu yang

dibuat sebagia acuan untuk proses berikutnya. Hal-hal yang perlu


Page 28


diperhatikan pada tahap ini adalah keakurasian imbangan/timbangan harus sering ditara. Tahap entri data, dalam tahap ini akan dilakukan oleh PPIC online yang mana dari hasil sampling tadi dimasukkan pada program software,kemudian kita menentukan settingan dari gram/pcs tersebut untuk menentukan akan dijadikan cek berapa saja. Tahap analisa data, pada tahjap ini akan dianalisa data dari tahap awal sampai tahap terakhir yang mana pada tahap ini akan diaplikasikan dari juklak yang akan dibuat.

BAB 4.

HASIL PENELITIAN DAN PEMBAHASAN

1. Perancangan Data Base Perancangan ini dugunakan sebagai dasar untuk bagaimana suatu software akan digunakan dan

memudahkan

membuat dalam

penyusunan data-data berikutnya. 4.1.1 Perancangan Tabel Perancangan tabel ini digunakan sebagai tampilan awal untuk menentukan / memudahkan dalam melakukan pilihanpilihan terhadap apa yang nanti kita inginkan. •

Desain Tabel Suplier


Page 29


Nama Suplier

Asal Suplier

Handoko Harsono

Tuban

Ashari Nasrullah

Probolinggo

Wigih Didin

Denpasar Bali

Johan Agusinta

Tulungagung

Hj.Rohama

Gresik

Kadafi

Tuban

Tabel 4.1 Desain Tabel supplier

•

Desain Tabel Planing Gram / Pcs

Gram Besar

Gram Kecil

Cek /Lbs

20,5

18,5

23 - 24

18,5

14,5

27 - 28

14,5

12,5

33 - 34

12,5

8,5

43 - 44

8,5

6,5

59 - 60

Tabel 4.2 Desain tabel Planing Gram/pcs

•

Desain Tabel Sampling Gram / Pcs

NO.

Hasil Sampling Gram / Mutu

Samplin pcs

Material

g 1

10,5

Scred Sell 5%

2

11,5

Broken 2%

3

12,5

4

13,5

Tabel 4.3 DesainTabel Sampling Gram/pcs


Page 30

Ram


4.2

Perancangan Relasi Perancangan Relasi digunakan sebagai petunjuk

hubungan antara entity yang satu dengan yang lain. Karena Relasi akan berhubungan dengan cara program tersebut diaplikasikan, berikutnyaadalah hubungan relasi antara entity satu dengan yang lainnya.

Gambar 4.1 Relasi (Conseptual data model)


Page 31


4.3

Perancangan PDM (Physical Data Model) Perancangan ini mengambarkan secara umum dari

alur proses pengolahan data pada software yang mana nantinya data akan dioleh suplier yang datang,ke,uduan banyaknya barang,mutu barang dan kualitas dari bahan baku tersebut. Adapun gambar dari PDM (Phisical Data Model) bisa dilihat pada gambar 4.2 Gambar 4.2 Desain PDM ( Phisical Data Model)

4.4

Perancangan Form Layout

4.4.1 Gambar Form Master Suplier Fakultas Teknik Industri

Page 32


4.4.2 Form Master Petak Bahan Baku


Page 33


4.4.3 Form Planning Sample

4.4.4 Form Hasil Sample


Page 34


4.4.5 Form Edit Gram / Pcs


Page 35


4.5

Cara Kera Program Untuk mengoperasikan program sampling bahan

baku, hal – hal yang harus dilakukan antara lain: 

Pertama buka program visual basic



Setelah menjalankan program visual basic maka anda

akan diminta memasukkan user dan pasword unutk memasuki perintah selanjutnya, sebagai contoh saya akanmengunakan user Mas Baim dan Paswordnya......%$#^#$... lalu tekan enter (maaf Pasword tidak saya tampilkan,silahkan hubungi PPIC Departement). Lihat Gambar 4.5.1


Page 36




Setelah itu anda akan dibawah masuk untuk mengisi /

menulis perintah yang ingin anda jalankan di kotak pojok atas sebelah kiri. Dalam hal ini saya akan membuka perintah diForm Sampling 1, yang berfungsi

sebagai informasi

penerimaan, monitor akan menampilkan beberapa kotak kosong yang perlu diisikan untuk menambahkan data penerimaan bahan baku yaitu : 1. Kotak Nama Suplier ----> Masukkan Nama suplier yang datang 2. Kotak Petak Tambak ----> Masukkan Petak Tambak 3. Kotak Size HO

----> Masukkan Size HO

4. Kotak Quantity

----> Masukkan Quantity

bahan baku Setelah selesai mengisikan semua kemudian tekan save tekan save,lihat Gambar 4.5.2


Page 37




Setelah itu pilih buka Form sampling bahan baku tekan

enter,

monitor akan menampilkan kotak bisa dilihat pada

gambar 4.5.3. Disini kita diminta mengisikan hasil sampling gram / pcs dari bahan baku yang sudah kita sampling,setelah selesai kemudian tekan save.



Setelah itu kita pilih Form planing Gram / pcs tekan

enter, disini monitor akan menampilkan kotak planing gram / pcs. Disini kita diminta mengisikan planing yang akan dibuat nanti kedalam software,setelah diisikan semua makan kita save tekan. Lihar Gambar 4.5.4


Page 38




Setelah semua Form sudah kita isi,maka kita bisa

melihat dari hasil analisa dari software dengan cara membuka pada Form Hasil analisa bahan baku, pilih Form Hasil Analisa Bahan baku kemudian tekan enter. Monitor akan menampilkan kotak yang mana kotak tersebut berisi tentang laporan hasil Analisa bahan baku dari planing yang sudah kita buat. Lihat gambar 4.5.5

4.6

Hasil Kerja Program dan Analisa dari Program 4.6.1 Implementasi Aplikasi Aplikasi ini dikembangkan dengan Visual Basic 6 sebagai bahasa pemograman dan MySQL sebagai basis data.

4.6.2 Pengujian Aplikasi


Page 39


dilakukan terhadap planing kerja selama 7 hari guna mengetahui seberapa besar dari akurasinya kebenaran datanya dan bisa digunakan apa tidak. Pengujian tersebut bisa dilihat ditabel 4.4 sampai dengan Tabel 4.15.

Tabel 4.4 Akurasi Rencana Sampling dengan Realisasi Proses 1


Page 40


Tabel 4.5 Akurasi Rencana Sampling dengan Realisasi Proses hari 2


Page 41




Page 42




Page 43




Page 44




Page 45




Page 46




Page 47



Page 48





Page 49




Page 50




Page 51


Grafik 4.1 Akurasi Sofware dengan Real data proses


Page 52


Secara grafik bisa dilihat pada grafik 4.1 yang mana grafik tersebut menunjukkan berapa besar akurasi dan rata-rata keakurasian dari program software yang

digunakandengan realisasi dari hasil

sesungguhnya yang ada diproses.

4.6.3 Pengujian Oleh User Pengujian terhadap kelayakan aplikasi program untuk dipergunakan pada sistem informasi perencanaan persiapan bahan bakudi PT.X. Pengujian ini dilakukan dengan mengujicobakan program pada user (Responden). Data transaksi adalah data suatu hari yang dianggap bisa mewakili seluruh transaksi yang dapat didukung oleh aplikasi program (sebanyak 7 transaksi). Selaian data yang digunakan data transaksi sebenarnya, juga dilakukan pengujian dengan dengan mengunakan kasus–kasus khusus yang jarang atau tidak perna terjadi (bukan transaksi sebenarnya). User terlebih dahulu diperlihatkan cara pengunaan dari aplikasi program secara keseluruhan dari aplikasi program secara bergantian. Setelah user dianggap mulai mengerti pengunaan dari sistem selanjutnya user diberikan angketuntuk meberikan penilaan Responden dalam penelitian ini dapat dilihat pada Tabel 4.11. nilai


Page 53


interval untuk penilaian kuisioner berada dalam

kisaran interval 1-5 .

penjelasan nilai dapat dilihat pada Tabel 4.12

Tabel 4.11 Data Responden Nama

Jabatan

Agus Subekti

Manager

Ridwan

Supervisor PPIC

Nita Vebriyanti

PPIC

Anugrah

PPIC Tabel 4.12 Penjelasan Penilaian Nilai

Keterangan

1

Sangat Buruk

2

Buruk

3

Cukup Baik

4

Baik

5

Sangat Baik

Hasil akumulasi dari angket hasil pengujian adalah dapat dilihat pada Tabel 4.13 .Nilai rata-rata keseluruhan aplikasi program yaitu 3,95dari nilai maksimum (terbaik) yaitu 5. Dengan demikian aplikasi program dapat dikatakan cukup baikdan layak untuk mulai digunakan. Namun untuk pengunaan akan terlebih dahulu melalui ujicoba lapangan penuh (beta test).


Page 54


Sistem akan digunakan semua transaksi selama satu bulan bersama dengan pencatatan transaksi manual untuk menjaga kemungkinanerror atau bug yang tidak diketahui selama pembuatan dan pengujian sistem pada penelitian. Tabel 4.13. Hasil Akumulasi Angket Respond

Kriteria

en I

II

III

IV

Efisiensi waktu yang diperoleh

5

5

5

4

Efisiensi pengunaan tenaga kerja

3

4

4

4

Dukungan terhadap kerja perencanaan

4

5

4

5

Kemudahan mempelajari Program

5

4

4

4

Kenyamanan Pengunaan

4

4

5

4

Tampilan Fisik dari sistem

3

4

4

3

5

4

5

4

Permasalahan 4

4

4

3

Kemampuan memperoleh solusi terhadap perubahan 4

4

5

3

Manfaat

Nilai Rata-rata Manfaat

Interface

Nilai Rata-rata Interface

Kinerja Sistem Kecepatan Kerja sistem Kemampuan

menaggani

kasus

dala

perencanaan dilapangan

rencana kerja

Nilai Rata-rata Kinerja Sistem Total Nilai Rata-rata keseluruhan


Page 55


BAB 5.

KESIMPULAN DAN SARAN

5.1 Kesimpulan Berdasarkan hasil pengujian dapat disimpulkan beberapa hal sebagai berikut : 

Manfaat yang diperoleh dari penerapan aplikasi program

secara keseluruhan adalah baik. Hal itu dapat dilihat dari rata-rata penilian sebesar 4,33 dengan nilai tertinggi sebesar 5. Dimana sistem sistem dapat memberikan bantuan dalam hal efisiensi waktu kegiatan pencatatan dan pelaporan (4,75) serta efisiensi pengunaan tenaga kerja (3,75). Untuk dukungan terhadap perencanaan persiapan bahan baku responden merasa sangat baik (4,5). 

Dalam segi interface sistem dinyatakan sangat baik dalam

kenyamanan pengunaan (4,25) dan kemudahan pembelajaran (4,25). Yang paling rendah dari keseluruhan adalah penampilan dari sistem tersebut(3,5). Dan secara keseluruhan sistem dianggap sangat baik. 

Dalam segi kinerja sistem dianggap sangat baik terutama

dalam kecepatan menyanpilkan data (4,5), serta diangap baik dalam hal menangani kasus perencanaan yang ada dilapangan(3,75). Untuk kecepatan dan kemampuan dalam memberikan solusi responden menyatakan baik(4). 

Secara keseluruhan sistem diangap baik dan layak untuk

dipergunakan di perusahan X.


Page 56


5.2 Saran Secara melakukan evaluasi terhadap kerja sistem secara keseluruhan, diharapkan penelitian ini dapat dikembangkan lebih lanjut denga saransaran pengembangan sebagai berikut: 

Agar hasil sampling mendekati keakurasian yang baik, samplig

dilakukan sebanyak mungkin karena tingkat kombinasi udang yang sangat bervariasi dengan uniformity/keseragam yang lebar. 

Program perlu untuk terus dipantau kinerjanya pada saat

pengujian dilapangan secara penuh, hingga dapat diyakini tidak terdapat dalam masalah penerapan sistem.

DAFTAR PUSTAKA

1. Axmark, David. MySQL Manual version 4.0.5. MySQL AB, 2002. 2. Laxxuss. Delphi 7 Developer’s Guide. Borland Software Corporation. 2002 3. Byelkin, Oleksandr. Subqueries in MySQL. MySQL AB, 2003. 4. Hoffman, James. Introduction to Structure Query language version 4.66 . 4 July 2001. 5. McLeod, Jr., Raymond and Schell, George. International Edition Management Information Systems (eight edition). Prenhall, 1979. 6. Oursland, Allan. Using OpenGL in Visual C++. Interface Technologies, 2000 7. Gregorius and SB Liliana. Sistem Informasi Inventari Control,2004 8. Supardi, Yuniar, Ir. C & Flowchart Lewat Praktek. Dinastindo. Jakarta, 2001


Page 57


LAMPIRAN Form Add Gram Head On Option Explicit

Dim I As Integer

Private Sub cmdCancel_Click() TxtGr.Text = "" TxtWarna.Text = "" End Sub

Private Sub cmdClose_Click() If TxtEdt.Text = "0" Then Unload Me Load FrmProses FrmProses.Show Set FrmProses.DataGrid1.DataSource = grho


Page 58


Exit Sub Else Unload Me Load FrmEditProses2 FrmEditProses2.Show Set FrmEditProses2.DataGrid1.DataSource = grho Exit Sub End If End Sub

Private Sub cmdSave_Click() With FrmAddGrHo If .TxtNo.Text = "" And .TxtGr.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then grho.AddNew On Error Resume Next With FrmAddGrHo If grho.RecordCount = 0 Then


Page 59


xCount = 1 Else grho.MoveLast xCount = Val(grho!nogrr) + 1 End If grho!nogrr = .TxtSample & "-" & xCount grho!nogr = .TxtNo grho!IdSample = .TxtSample grho!grsplgho = .TxtGr grho!warna = .TxtWarna For N = 0 To 8 Call Cari_Help(N, TxtGr.Text) Next grho!Helpcode = .TxtHp End With grho.Update Call Refresh_DataGRK With grho .Requery With Sgrho .Requery If TxtEdt.Text = "0" Then FrmProses.TxtJmlgrho.Text = Sgrho!sumgrho ElseIf TxtEdt.Text = "1" Then FrmEditProses2.TxtJmlgrho.Text = Sgrho!sumgrho End If MsgBox "successfully !!!!", vbInformation, "GR HO" Call cmdClose_Click End With


Page 60


End With Else Exit Sub End If End Sub

Private Sub Refresh_DataGRK() If TxtHp.Text = "" Then Exit Sub Else If TxtEdt.Text = "0" Then Call rs_Sgrho(TxtSample.Text) With Sgrho .Requery FrmProses.TxtJmlgrho.Text = Sgrho!sumgrho End With For N = 0 To 8 If FrmProses.TxtGrK(N) = "" Or FrmProses.TxtGrB(N).Text = "" Then Exit Sub End If Call rs_S2grho(TxtSample.Text, FrmProses.TxtHelpCode(N).Text) With S2grho If S2grho.RecordCount = 0 Then FrmProses.Noll (N) Else If S2grho!sumhl> 0 Then FrmProses.Txtjmlgr(N).Text = S2grho!sumhl For I = 0 To 8


Page 61


FrmProses.Txtpersen(I).Text = Format(Val(FrmProses.Txtjmlgr(I).Text) Val(FrmProses.TxtTotalGropingHl.Text), "###.#0%") 'persen

/

If FrmProses.Txtkghl.Text = "" Or FrmProses.Txtkghl.Text = 0 Then FrmProses.TxtEstKgHl(I).Text = 0 Else FrmProses.TxtEstKgHl(I).Text = Format(FrmProses.Txtkghl.Text * Val(Format(Replace(FrmProses.Txtpersen(I).Text, "%", ""), "###.##")) / 100, "#,###.0") 'est kg hl End If Next Call rs_S3grho(TxtSample.Text, FrmProses.TxtHelpCode(N).Text) 'Txtcekhl(N).Text = Format((454 / Val(Txtpk.Text))) * 100, "#.0") 'cek hl

((Val(Txtjmlgr(N).Text)

/

S3grho!sumhlp)

*

FrmProses.Txtcekhl(N).Text = Format((454 / ((Val(FrmProses.Txtjmlgr(N).Text) / S3grho! sumhlp) * 1)), "#.0") 'cek hl Else FrmProses.Noll (N) End If End If End With Next ElseIf TxtEdt.Text = "1" Then Call rs_Sgrho(TxtSample.Text) With Sgrho .Requery FrmEditProses2.TxtJmlgrho.Text = Sgrho!sumgrho End With For N = 0 To 8 If FrmEditProses2.TxtGrK(N) = "" Or FrmEditProses2.TxtGrB(N).Text = "" Then Exit Sub End If


Page 62


Call rs_S2grho(TxtSample.Text, FrmEditProses2.TxtHelpCode(N).Text) With S2grho If S2grho.RecordCount = 0 Then FrmEditProses2.Noll (N) Else If S2grho!sumhl> 0 Then FrmEditProses2.Txtjmlgr(N).Text = S2grho!sumhl For I = 0 To 8 FrmEditProses2.Txtpersen(I).Text = Format(Val(FrmEditProses2.Txtjmlgr(I).Text) Val(FrmEditProses2.TxtTotalGropingHl.Text), "###.#0%") 'persen

/

If FrmEditProses2.Txtkghl.Text = "" Or FrmEditProses2.Txtkghl.Text = 0 Then FrmEditProses2.TxtEstKgHl(I).Text = 0 Else FrmEditProses2.TxtEstKgHl(I).Text = Format(FrmEditProses2.Txtkghl.Text * Val(Format(Replace(FrmEditProses2.Txtpersen(I).Text, "%", ""), "###.##")) / 100, "#,###.0") 'est kg hl End If Next Call rs_S3grho(TxtSample.Text, FrmEditProses2.TxtHelpCode(N).Text) 'Txtcekhl(N).Text = Format((454 / Val(Txtpk.Text))) * 100, "#.0") 'cek hl


/

S3grho!sumhlp)

FrmEditProses2.Txtcekhl(N).Text = Format((454 ((Val(FrmEditProses2.Txtjmlgr(N).Text) / S3grho!sumhlp) * 1)), "#.0") 'cek hl Else FrmEditProses2.Noll (N) End If End If End With Next End If End If


Page 63

* /


End Sub

Private Sub Cari_Help(Index As Integer, Gr As Double) If TxtEdt.Text = "0" Then If Gr = FrmProses.TxtGrK(Index).Text Or Gr = FrmProses.TxtGrB(Index).Text Then TxtHp.Text = FrmProses.TxtHelpCode(Index).Text ElseIf Gr >FrmProses.TxtGrK(Index).Text And Gr < FrmProses.TxtGrB(Index).Text Then TxtHp.Text = FrmProses.TxtHelpCode(Index).Text Else Exit Sub End If ElseIf TxtEdt.Text = "1" Then If Gr = FrmEditProses2.TxtGrK(Index).Text FrmEditProses2.TxtGrB(Index).Text Then

Or

Gr

=

And

Gr

<

TxtHp.Text = FrmEditProses2.TxtHelpCode(Index).Text ElseIf Gr >FrmEditProses2.TxtGrK(Index).Text FrmEditProses2.TxtGrB(Index).Text Then TxtHp.Text = FrmEditProses2.TxtHelpCode(Index).Text Else Exit Sub End If End If End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()


Page 64


If TxtEdt.Text = "0" Then TxtSample.Text = FrmProses.TxtSample.Text ElseIf TxtEdt.Text = "1" Then TxtSample.Text = FrmEditProses2.Lblsample.Caption End If If grho.RecordCount = 0 Then xCount = 1 Else grho.MoveLast xCount = Val(grho!nogr) + 1 End If TxtNo.Text = xCount End Sub

Private Sub Label1_Click()

End Sub

Private Sub Picture3_Click()

End Sub

Private Sub TxtGr_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii) End Sub

Private Sub TxtNo_KeyPress(KeyAscii As Integer) Call input_integer(KeyAscii) End Sub


Page 65


Private Sub txtSample_Change()

End Sub

Private Sub TxtWarna_Change()

End Sub

Private Sub TxtWarna_LinkNotify()

Form Add Gruping Head Less (HL) Option Explicit Private Sub cmdCancel_Click() TxtHelp.Text = "" TxtGrK.Text = "" TxtGrB.Text = "" End Sub Private Sub cmdClose_Click() Unload Me Load FrmProses FrmProses.Show FrmProses.Txtaddn.Text = 1 End Sub Private Sub cmdSave_Click() With FrmAddGroupHl If .TxtHelp.Text = "" And .TxtGrK.Text = "" And .TxtGrB.Text = "" Then


Page 66


MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then grouphl.AddNew On Error Resume Next With FrmAddGroupHl grouphl!Helpcode = .TxtHelp grouphl!IdSample = .TxtidSample grouphl!grk = .TxtGrK grouphl!grb = .TxtGrB End With grouphl.Update MsgBox "successfully !!!!", vbInformation, "GR HL" Call cmdClose_Click Else Exit Sub End If End Sub Private Sub TxtGrB_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii)


Page 67


End Sub Private Sub TxtGrK_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii) End Sub

Form Add Petak Option Explicit Private Sub cmdCancel_Click() txtPetak.Text = "" End Sub Private Sub cmdClose_Click() Unload Me Load FrmPetak FrmPetak.Show Set FrmPetak.DataGrid1.DataSource = petak End Sub Private Sub cmdSave_Click() With FrmAddPetak If .txtPetak.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With


Page 68


continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then petak.AddNew On Error Resume Next With FrmAddPetak petak!idpetak = .Txtidpetak.Text petak!dspetak = .txtPetak.Text End With petak.Update With petak .Requery MsgBox "successfully !!!!", vbInformation, "Petak" End With Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Form_Load() Call rs_petak With petak If petak.RecordCount = 0 Then xCount = 1 Else petak.MoveLast xCount = Val(petak!idpetak) + 1 End If


Page 69


Txtidpetak.Text = xCount End With End Sub

Form Add Suplyer Option Explicit Private Sub cmdCancel_Click() TxtSuplyer.Text = "" End Sub Private Sub cmdClose_Click() Unload Me Load FrmSuplyer FrmSuplyer.Show Set FrmSuplyer.DataGrid1.DataSource = suplyer End Sub Private Sub cmdSave_Click() With FrmAddSuplyer If .TxtSuplyer.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue:


Page 70


Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then suplyer.AddNew On Error Resume Next With FrmAddSuplyer suplyer!idsuplyer = .Txtidsuplyer suplyer!nmsuplyer = .TxtSuplyer End With suplyer.Update With suplyer .Requery MsgBox "successfully !!!!", vbInformation, "Suplyer" End With Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Form_Load() Call rs_suplyer With suplyer If suplyer.RecordCount = 0 Then xCount = 1 Else suplyer.MoveLast xCount = Val(suplyer!idsuplyer) + 1 End If Txtidsuplyer.Text = xCount


Page 71


End With End Sub

Edit Gram HO Option Explicit Dim I As Integer Private Sub cmdCancel_Click() TxtSample.Text = grho!IdSample TxtNo.Text = grho!nogr TxtGr.Text = grho!grsplgho TxtWarna.Text = grho!warna TxtHp.Text = grho!Helpcode End Sub Private Sub cmdSave_Click() Dim resp As VbMsgBoxResult With FrmEditGrHo If .TxtNo.Text = "" And .TxtGr.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation")


Page 72


If res = vbYes Then On Error Resume Next With FrmEditGrHo grho!IdSample = .TxtSample grho!nogr = .TxtNo grho!grsplgho = .TxtGr.Text grho!warna = .TxtWarna.Text For N = 0 To 8 Call Cari_Help(N, TxtGr.Text) Next grho!Helpcode = .TxtHp.Text grho.UpdateBatch adAffectCurrent End With Call Refresh_DataGRK With Sgrho .Requery End With Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Refresh_DataGRK() If TxtHp.Text = "" Then Exit Sub Else If TxtEdt.Text = "0" Then Call rs_Sgrho(TxtSample.Text) With Sgrho


Page 73


.Requery FrmProses.TxtJmlgrho.Text = Sgrho!sumgrho End With For N = 0 To 8 If FrmProses.TxtGrK(N) = "" Or FrmProses.TxtGrB(N).Text = "" Then Exit Sub End If Call rs_S2grho(TxtSample.Text, FrmProses.TxtHelpCode(N).Text) With S2grho If S2grho.RecordCount = 0 Then FrmProses.Noll (N) Else If S2grho!sumhl> 0 Then FrmProses.Txtjmlgr(N).Text = S2grho!sumhl For I = 0 To 8 FrmProses.Txtpersen(I).Text = Format(Val(FrmProses.Txtjmlgr(I).Text) Val(FrmProses.TxtTotalGropingHl.Text), "###.#0%") 'persen

/

If FrmProses.Txtkghl.Text = "" Or FrmProses.Txtkghl.Text = 0 Then FrmProses.TxtEstKgHl(I).Text = 0 Else FrmProses.TxtEstKgHl(I).Text = Format(FrmProses.Txtkghl.Text * Val(Format(Replace(FrmProses.Txtpersen(I).Text, "%", ""), "###.##")) / 100, "#,###.0") 'est kg hl End If Next Call rs_S3grho(TxtSample.Text, FrmProses.TxtHelpCode(N).Text) 'Txtcekhl(N).Text = Format((454 / Val(Txtpk.Text))) * 100, "#.0") 'cek hl


/

S3grho!sumhlp)

*

FrmProses.Txtcekhl(N).Text = Format((454 / ((Val(FrmProses.Txtjmlgr(N).Text) / S3grho! sumhlp) * 1)), "#.0") 'cek hl Else


Page 74


FrmProses.Noll (N) End If End If End With Next ElseIf TxtEdt.Text = "1" Then Call rs_Sgrho(TxtSample.Text) With Sgrho .Requery FrmEditProses2.TxtJmlgrho.Text = Sgrho!sumgrho End With For N = 0 To 8 If FrmEditProses2.TxtGrK(N) = "" Or FrmEditProses2.TxtGrB(N).Text = "" Then Exit Sub End If Call rs_S2grho(TxtSample.Text, FrmEditProses2.TxtHelpCode(N).Text) With S2grho If S2grho.RecordCount = 0 Then FrmEditProses2.Noll (N) Else If S2grho!sumhl> 0 Then FrmEditProses2.Txtjmlgr(N).Text = S2grho!sumhl For I = 0 To 8 FrmEditProses2.Txtpersen(I).Text = Format(Val(FrmEditProses2.Txtjmlgr(I).Text) Val(FrmEditProses2.TxtTotalGropingHl.Text), "###.#0%") 'persen

/

If FrmEditProses2.Txtkghl.Text = "" Or FrmEditProses2.Txtkghl.Text = 0 Then FrmEditProses2.TxtEstKgHl(I).Text = 0 Else


Page 75


FrmEditProses2.TxtEstKgHl(I).Text = Format(FrmEditProses2.Txtkghl.Text * Val(Format(Replace(FrmEditProses2.Txtpersen(I).Text, "%", ""), "###.##")) / 100, "#,###.0") 'est kg hl End If Next Call rs_S3grho(TxtSample.Text, FrmEditProses2.TxtHelpCode(N).Text) 'Txtcekhl(N).Text = Format((454 / Val(Txtpk.Text))) * 100, "#.0") 'cek hl


/

S3grho!sumhlp)

FrmEditProses2.Txtcekhl(N).Text = Format((454 ((Val(FrmEditProses2.Txtjmlgr(N).Text) / S3grho!sumhlp) * 1)), "#.0") 'cek hl

* /

Else FrmEditProses2.Noll (N) End If End If End With Next End If End If End Sub Private Sub Cari_Help(Index As Integer, Gr As Double) If TxtEdt.Text = "0" Then If Gr = FrmProses.TxtGrK(Index).Text Or Gr = FrmProses.TxtGrB(Index).Text Then TxtHp.Text = FrmProses.TxtHelpCode(Index).Text ElseIf Gr >FrmProses.TxtGrK(Index).Text And Gr < FrmProses.TxtGrB(Index).Text Then TxtHp.Text = FrmProses.TxtHelpCode(Index).Text Else Exit Sub End If ElseIf TxtEdt.Text = "1" Then If Gr = FrmEditProses2.TxtGrK(Index).Text FrmEditProses2.TxtGrB(Index).Text Then


Page 76

Or

Gr

=


TxtHp.Text = FrmEditProses2.TxtHelpCode(Index).Text ElseIf Gr >FrmEditProses2.TxtGrK(Index).Text FrmEditProses2.TxtGrB(Index).Text Then TxtHp.Text = FrmEditProses2.TxtHelpCode(Index).Text Else Exit Sub End If End If End Sub Private Sub cmdClose_Click() If TxtEdt.Text = "0" Then Unload Me Load FrmProses FrmProses.Show Set FrmProses.DataGrid1.DataSource = grho ElseIf TxtEdt.Text = "1" Then Unload Me Load FrmEditProses2 FrmEditProses2.Show Set FrmEditProses2.DataGrid1.DataSource = grho End If End Sub Private Sub Form_Load() Call cmdCancel_Click End Sub Private Sub TxtGr_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii) End Sub Private Sub TxtNo_KeyPress(KeyAscii As Integer)


Page 77

And

Gr

<


Call input_integer(KeyAscii) End Sub

Edit Grouping HL Option Explicit Private Sub cmdCancel_Click() TxtHelp.Text = "" TxtGrK.Text = "" TxtGrB.Text = "" End Sub Private Sub cmdClose_Click() Unload Me Load FrmProses FrmProses.Show End Sub Private Sub cmdSave_Click() Dim resp As VbMsgBoxResult With FrmEditGroupHl If .TxtHelp.Text = "" And .TxtGrK.Text = "" And .TxtGrB.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation")


Page 78


If res = vbYes Then On Error Resume Next With FrmEditGroupHl grouphl!Helpcode = .TxtHelp grouphl!IdSample = .TxtSample grouphl!grk = .TxtGrK.Text grouphl!grb = .TxtGrB.Text grouphl.UpdateBatch adAffectCurrent End With Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Form_Load() TxtHelp.Text = grouphl!Helpcode TxtGrK.Text = grouphl!grk TxtGrB.Text = grouphl!grb TxtSample.Text = grouphl!grb End Sub Private Sub TxtGrB_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii) End Sub Private Sub TxtGrK_KeyPress(KeyAscii As Integer) Call input_numeric(KeyAscii) End Sub Form Edit Petak Option Explicit Private Sub cmdCancel_Click()


Page 79


txtPetak.Text = petak!dspetak Txtidpetak.Text = petak!idpetak End Sub Private Sub cmdClose_Click() Unload Me Load FrmPetak FrmPetak.Show End Sub Private Sub cmdSave_Click() Dim resp As VbMsgBoxResult With FrmEditPetak If .txtPetak.Text = "" Then MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then On Error Resume Next With FrmEditPetak petak!idpetak = .Txtidpetak petak!dspetak = .txtPetak.Text petak.UpdateBatch adAffectCurrent End With


Page 80


Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Form_Load() Call cmdCancel_Click End Sub Private Sub txtid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 44) Then KeyAscii = 0 End If End Sub

Form Edit Supleyer Option Explicit Private Sub cmdCancel_Click() TxtSuplyer.Text = suplyer!nmsuplyer Txtidsuplyer.Text = suplyer!idsuplyer End Sub Private Sub cmdClose_Click() Unload Me Load FrmSuplyer FrmSuplyer.Show End Sub Private Sub cmdSave_Click() Dim resp As VbMsgBoxResult With FrmEditSuplyer If .TxtSuplyer.Text = "" Then


Page 81


MsgBox "Missing Data! Do not leave a blank textfield.", vbInformation, "Information" Exit Sub Else GoTo continue: Exit Sub End If End With continue: Dim res As VbMsgBoxResult res = MsgBox("Save this to Database?", vbYesNo, "Confirmation") If res = vbYes Then On Error Resume Next With FrmEditSuplyer suplyer!nmsuplyer = .TxtSuplyer suplyer!nmsuplyer = .TxtSuplyer.Text suplyer.UpdateBatch adAffectCurrent End With Call cmdClose_Click Else Exit Sub End If End Sub Private Sub Form_Load() Call cmdCancel_Click End Sub


Page 82


Form Hasil Sample Option Explicit Private Sub cmdCancel_Click() Unload Me Load Home End Sub Private Sub cmdPrint_Click() If Optsuplyer.Value = True Then Call rs_suplyeredt(DataCombo1.BoundText) With suplyeredt TxtSuplyer.Text = suplyeredt!nmsuplyer End With 'DataEnvironment1.rsQHASIL_Grouping.Filter = "nmsuplyer<> ''" DataEnvironment1.rsQHASIL_Grouping.Filter = "nmsuplyer<> ''" DataEnvironment1.rsQHASIL_Grouping.Filter = "nmsuplyer= '" & TxtSuplyer.Text & "'" Else DataEnvironment1.rsQHASIL_Grouping.Filter = "nmsuplyer<> ''" End If DataReport2.Show End Sub Private Sub Form_Load() OptAll.Value = True End Sub Private Sub OptAll_Click() Call Optsuplyer_Click End Sub Private Sub Optsuplyer_Click() If Optsuplyer.Value = True Then


Page 83


DataCombo1.Visible = True Call rs_suplyer Set DataCombo1.RowSource = suplyer DataCombo1.ListField = "nmsuplyer" DataCombo1.BoundColumn = "idsuplyer" Set DataCombo1.DataSource = suplyer DataCombo1.DataField = "idsuplyer" TxtSuplyer.Text = DataCombo1.BoundText ElseIf OptAll.Value = True Then DataCombo1.Visible = False DataCombo2.Visible = True End If End Sub

Form Petak Option Explicit Private Sub cmdClose_Click() Unload Me Load Home End Sub Private Sub cmdDelete_Click()


Page 84


Dim res As VbMsgBoxResult With petak If .BOF And .EOF = True Then MsgBox "Empty Database", vbInformation, "Delete Petak Record" Exit Sub Else res = MsgBox("Are you sure you want to Delete " & petak!idpetak & ", " & petak!dspetak, vbYesNo + vbQuestion, "Confirmation") If res = vbYes Then .Delete .Requery Else Exit Sub End If End If End With End Sub Private Sub cmdEdit_Click() On Error Resume Next With petak If .BOF = True And .EOF = True Then MsgBox "Empty Database", vbInformation, "Edit Petak Record" Exit Sub Else FrmPetak.Hide Load FrmEditPetak FrmEditPetak.Show End If End With


Page 85


End Sub Private Sub cmdMoveFirst_Click() If petak.RecordCount <= 1 Then Exit Sub petak.MoveFirst End Sub Private Sub cmdMoveLast_Click() If petak.RecordCount <= 1 Then Exit Sub petak.MoveLast End Sub Private Sub cmdMoveNext_Click() On Error Resume Next If petak.AbsolutePosition >= petak.RecordCount Or petak.RecordCount <= 1 Then Exit Sub petak.MoveNext On Error GoTo 0 End Sub Private Sub cmdMovePrevious_Click() If petak.AbsolutePosition <= 1 Then Exit Sub petak.MovePrevious End Sub Private Sub cmdNew_Click() FrmPetak.Hide Load FrmAddPetak FrmAddPetak.Show End Sub Private Sub Form_Load() Call rs_petak Set FrmPetak.DataGrid1.DataSource = petak End Sub


Page 86


Private Sub optid_Click() If optid.Value = True Then txtPetak.Text = "" txtPetak.Locked = True txtid.Locked = False txtid.SetFocus End If End Sub Private Sub optPetak_Click() If optPetak.Value = True Then txtid.Text = "" txtid.Locked = True txtPetak.Locked = False txtPetak.SetFocus End If End Sub Private Sub txtid_Change() If txtid.Text = "" Then petak.Filter = "" Set DataGrid1.DataSource = petak Else petak.Filter = "IDPETAK LIKE *" & txtid.Text & "*" DataGrid1.ReBind End If End Sub Private Sub txtid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 44) Then KeyAscii = 0 End If


Page 87


End Sub Private Sub txtPetak_Change() If txtPetak.Text = "" Then petak.Filter = "" Set DataGrid1.DataSource = petak Else petak.Filter = "DSPETAK LIKE '*" & txtPetak.Text & "*'" DataGrid1.ReBind End If End Sub

Form Sample Option Explicit Private Sub cmdClose_Click() Unload Me Load Home End Sub Private Sub cmdDelete_Click() Dim res As VbMsgBoxResult With sample If .BOF And .EOF = True Then MsgBox "Empty Database", vbInformation, "Delete Sample Record"


Page 88


Exit Sub Else res = MsgBox("Are you sure you want to Delete " & sample!IdSample & ", " & sample! idsuplyer, vbYesNo + vbQuestion, "Confirmation") If res = vbYes Then With FrmSample cnn.Execute ("DELETE FROM GRHO WHERE IDSAMPLE=" & sample! IdSample& "") cnn.Execute ("DELETE FROM GROUPHL WHERE IDSAMPLE=" & sample! IdSample& "") End With .Delete .Requery Set FrmSample.DataGrid1.DataSource = sample Else Exit Sub End If End If End With End Sub Private Sub cmdEdit_Click() On Error Resume Next With sample If .BOF = True And .EOF = True Then MsgBox "Empty Database", vbInformation, "Edit Sample Record" Exit Sub Else FrmSample.Hide Load FrmEditProses2 FrmEditProses2.Show


Page 89


End If End With End Sub Private Sub cmdMoveFirst_Click() If sample.RecordCount <= 1 Then Exit Sub sample.MoveFirst End Sub Private Sub cmdMoveLast_Click() If sample.RecordCount <= 1 Then Exit Sub sample.MoveLast End Sub Private Sub cmdMoveNext_Click() On Error Resume Next If sample.AbsolutePosition >= sample.RecordCount Or sample.RecordCount <= 1 Then Exit Sub sample.MoveNext On Error GoTo 0 End Sub Private Sub cmdMovePrevious_Click() If sample.AbsolutePosition <= 1 Then Exit Sub sample.MovePrevious End Sub Private Sub cmdNew_Click() FrmSample.Hide Load FrmProses FrmProses.Show End Sub Private Sub Form_Load() Call rs_sample


Page 90


Set FrmSample.DataGrid1.DataSource = sample End Sub Private Sub optSample_Click() If optSample.Value = True Then txtid.Text = "" txtid.Locked = True TxtSample.Locked = False TxtSample.SetFocus End If End Sub Private Sub txtid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 44) Then KeyAscii = 0 End If End Sub Private Sub txtSample_Change() With sample If TxtSample.Text = "" Then sample.Filter = "" Set DataGrid1.DataSource = sample Else sample.Filter = "IDSAMPLE = " & TxtSample.Text & "" FrmSample.DataGrid1.ReBind End If End With End Sub Private Sub TxtSample_KeyPress(KeyAscii As Integer) Call input_integer(KeyAscii) End Sub


Page 91


Form Supleyer Option Explicit Private Sub cmdClose_Click() Unload Me Load Home End Sub Private Sub cmdDelete_Click() Dim res As VbMsgBoxResult With suplyer If .BOF And .EOF = True Then MsgBox "Empty Database", vbInformation, "Delete Suplyer Record" Exit Sub Else res = MsgBox("Are you sure you want to Delete " & suplyer!idsuplyer & ", " & suplyer! nmsuplyer, vbYesNo + vbQuestion, "Confirmation") If res = vbYes Then .Delete .Requery Else Exit Sub End If End If End With End Sub Private Sub cmdEdit_Click() On Error Resume Next With suplyer If .BOF = True And .EOF = True Then


Page 92


MsgBox "Empty Database", vbInformation, "Edit Suplyer Record" Exit Sub Else FrmSuplyer.Hide Load FrmEditSuplyer FrmEditSuplyer.Show End If End With End Sub Private Sub cmdMoveFirst_Click() If suplyer.RecordCount <= 1 Then Exit Sub suplyer.MoveFirst End Sub Private Sub cmdMoveLast_Click() If suplyer.RecordCount <= 1 Then Exit Sub suplyer.MoveLast End Sub Private Sub cmdMoveNext_Click() On Error Resume Next If suplyer.AbsolutePosition >= suplyer.RecordCount Or suplyer.RecordCount <= 1 Then Exit Sub suplyer.MoveNext On Error GoTo 0 End Sub Private Sub cmdMovePrevious_Click() If suplyer.AbsolutePosition <= 1 Then Exit Sub suplyer.MovePrevious End Sub Private Sub cmdNew_Click()


Page 93


FrmSuplyer.Hide Load FrmAddSuplyer FrmAddSuplyer.Show End Sub Private Sub Form_Load() Call rs_suplyer Set FrmSuplyer.DataGrid1.DataSource = suplyer End Sub Private Sub optid_Click() If optid.Value = True Then txtNama.Text = "" txtNama.Locked = True txtid.Locked = False txtid.SetFocus End If End Sub Private Sub optNama_Click() If optNama.Value = True Then txtid.Text = "" txtid.Locked = True txtNama.Locked = False txtNama.SetFocus End If End Sub Private Sub txtid_Change() If txtid.Text = "" Then suplyer.Filter = "" Set DataGrid1.DataSource = suplyer Else


Page 94


suplyer.Filter = "IDSUPLYER LIKE *" & txtid.Text & "*" DataGrid1.ReBind End If End Sub Private Sub txtNama_Change() If txtNama.Text = "" Then suplyer.Filter = "" Set DataGrid1.DataSource = suplyer Else suplyer.Filter = "NMSUPLYER LIKE '*" & txtNama.Text & "*'" DataGrid1.ReBind End If End Sub

Home Option Explicit Private Sub exit_Click() End End Sub Private Sub hssample_Click() Call QHasil FrmHasilSample.Show End Sub Private Sub petak_Click() FrmPetak.Show End Sub Private Sub sample_Click() FrmSample.Show


Page 95


End Sub Private Sub Suplyer_Click() FrmSuplyer.Show End Sub


Page 96

sumber bahan baku utama adalah bersalah dari hasil budidaya ataupun dari hasil

Recommend Documents