Sistem Informasi Usaha Konveksi

BAB I PENDAHULUAN 1.1 Latar Latar Belakan Belakang g Perkembangan usaha dibidang konveksi batik dan pemasaran yang merupakan salah satu penunjang suksesnya peningkatan ekonomi masyarakat di Kota Malang. karena Kota Malang merupakan kota mode dan trend center batik di wilayah jawa timur serta Kota malang merupakan salah satu produsen terbesar bahkan hasil produksi konveksi disebar diseluruh kota-kota besar di Indonesia. Sistem informasi yang ada pada saat ini banyak pengusaha industri konveksi di Kota Malang Malang masih masih belum belum terko terkompu mputer terisa isasi. si. Para Para pelak pelaku u usaha usaha yang yang ada saat saat ini masih masih menggunakan cara manual atau dicatat pada buku kas pengeluaran dan pemasukan serta pembukua pembukuan n omset omset tiap bulan dan pendataan pendataan bahan bahan baku. baku. Begitu Begitu pula data-data data-data para distributo distributorr yang menyalurkan menyalurkan hasil produksi produksi dari industri industri konveksi konveksi,, yang mana cara tersebut belum bisa dikatakan maksimal secara keefektifan waktu serta efisiensi biaya.

1.2 Rumusan Rumusan Masala Masalah h Dari latar belakang tersebut dapat diambil rumusan masalah yaitu apakah proses pemasukan data produksi menjadi efisien dalam segi waktu?

1.3 Tujuan ujuan Adapun Adapun tujuan tujuan dari pembuatan pembuatan sistem sistem informasi informasi ini adalah adalah untuk untuk memudahk memudahkan an proses pemasukkan data-data dalam konveksi, semisal data produksi, data harga, data barang, serta data pengeluaran. Pembuatan Sistem Informasi ini juga bertujuan agar dapat memperbaiki metode atau cara yang digunakan sebelumnya, dan lebih mengefektifkan waktu, serta biaya yang diperlukan dalam pendataan dan pencetakan.

1.4 Batasan Batasan Masala Masalah h Ruang lingkup pada pembahasan tugas ini antara lain: 1. Sistem Sistem informasi informasi ini dibuat berdasa berdasarkan rkan keadaan keadaan didalam didalam konveks konveksii batik erlangga. erlangga. 2. Sistem Sistem informas informasii ini membaha membahass tentan tentang g proses proses produks produksii usaha usaha konvek konveksi si batik batik erlangga dengan menggunakan bahasa pemrograman VB.Net. 3. Sistem Sistem informasi informasi ini menggu menggunaka nakan n database database pada pada SQL-Serv SQL-Server er.. Laporan Praktikum Sistem Informasi - 2011

1

1.5 Desain Sistem Informasi Dalam sistem informasi ini nantinya akan terdapat dua macam proses yaitu, proses pendataan dan pencetakan yang menggunakan dapat diakses oleh pihak Erlangga yang terlibat didalamnya.

1.5.1

Standart Operating Procedures 

SOP bahan baku. a. Desk Deskri rips psi. i. Sistem informasi ini menguraikan pendataan bahan baku pada sistem. b. Pihak Pihak yang yang terkai terkait. t. 1. Admi Admin n. 2. Kary Karyaw awan an.. c. Form Form yang yang digun digunaka akan. n. Form bahan baku dari gudang. d. Prosed Prosedur ur kerja kerja.. 1. Karyawan bagian bagian gudang mengisi form daftar daftar stok bahan bahan baku untuk untuk acuan pada sistem. 2. Form diserahka diserahkan n pada pada admin admin 3. Bagian Bagian admin memas memasukka ukkan n data sesuai sesuai form form isian 4. Pros Proses es sel seles esai ai..

Laporan Praktikum Sistem Informasi - 2011

2

e. Baga Bagan n Aru Aruss Tata Cara Pendataan Bahan Baku Karyawan

Admin

Mulai

Mengisi Form Daftar Bahan Baku

Memasukan daftar bahan baku sesuai form isian

Daftar Bahan Baku

Selesai



SOP bahan pelengkap a. Desk Deskri rips psi. i. Sistem informasi ini menguraikan pendataan bahan pelengkap pada sistem. b. Pihak Pihak yang yang terkai terkait. t. 1. Admi Admin n. 2. Kary Karyaw awan an.. c. Form Form yang yang digu diguna naka kan. n. Form bahan pelengkap dari gudang.


3

d. Pros rosedur edur ke kerja rja 1. Karyawan Karyawan bagian bagian gudang gudang mengi mengisi si form daftar daftar stok bahan bahan pelen pelengkap gkap untuk acuan pada sistem. 2. Form Form disera diserahka hkan n pada pada admin admin 3. Bagian Bagian admin memas memasukka ukkan n data sesuai sesuai form form isian 4. Pros Proses es sel seles esai ai.. e.

Bagan Arus Tata Cara Pendataan Bahan Pelengkap Karyawan

Admin

Mulai

Mengisi Form Daftar Bahan Pelen ka

Memasukan daftar bahan pelengkap sesuai form isian

Daftar Bahan Pelengkap

Selesai



SOP stok hasil produksi

a. Deskripsi. Sistem informasi ini menguraikan pendataan stok hasil produksi pada sistem. b. Pihak yang terkait.


4

1. Admin. 2. Karyawan. c. Form yang digunakan. Form stok hasil produksi. d. Prosedur kerja 1. Karyawan bagian gudang mengisi form daftar stok hasil produksi untuk acuan pada sistem. 2. Form diserahkan pada admin 3. Bagian admin memasukkan data sesuai form isian 4. Proses selesai. e. Bagan Arus Tata Cara Pendataan Bahan Pelengkap Karyawan

Admin

Mulai

Mengisi Form Daftar Stok Hasil Produksi

Memasukan daftar stok hasil produksi sesuai form isian

Daftar Stok Hasil Produksi

Selesai


5



SOP distributor a. Desk Deskri rips psi. i. Sistem informasi ini menguraikan pendataan distributor pada sistem. b. Pihak Pihak yang yang terkai terkait. t. 1. Admi Admin n. 2. Kary Karyaw awan an.. c. Form Form yang yang digu diguna naka kan. n. Form data diri distributor. distributor. d. Pros Prosed edur ur kerj kerja. a. 1. Distributo Distributorr mengisi mengisi form nformasi nformasi distribu distributor tor,, sebagai sebagai acuan acuan untuk memasukkan data kedalam sistem. 2. Form Form disera diserahka hkan n pada pada bagia bagian n admin. admin. 3. Bagian Bagian admin admin memasukk memasukkan an data data sesuai sesuai dengan dengan form form isian. isian. 4. Bagian Bagian admin admin mencetak mencetak kartu kartu tanda tanda pengen pengenal al distribut distributor or.. 5. Pros Proses es prod produk uksi si..


6

e. Bagan Arus Tata Cara Pendataan Distributor Karyawan

Admin

Mulai

Mengisi Form Data Diri Distributor

Memasukan data sesuai form isian

Kartu Tanda Distributor

Selesai



SOP omset a. Desk Deskri rips psi. i. Sistem informasi ini menguraikan tentang omset hasil penjualan pada sistem. b. Pihak Pihak yang yang terkai terkait. t. 1. Admi Admin n. 2. Kary Karyaw awan an.. c. Form Form yang yang digun digunaka akan. n. Form omset hasil penjualan perbulan. d. Prosed Prosedur ur kerja kerja..


7

1. Karyawan Karyawan bagian bagian gudang gudang mengisi mengisi form form omset omset hasil penjual penjualan an perbulan perbulan untuk acuan pada sistem. 2. Form Form dise diserah rahkan kan pada pada admi admin. n. 3. Bagian Bagian admin admin memas memasukka ukkan n data data sesuai sesuai form isian. isian. 4. Pros Proses es sele selesa sai. i. e. Baga Bagan n Aru Aruss Tata Cara Pendataan Bahan Omset Karyawan

Admin

Mulai

Mengisi Form Hasil Penjualan


Daftar Hasil Penjualan

Selesai



SOP Pemasaran a. Desk Deskri rips psi. i. Sistem informasi ini menguraikan tentang hasil pemasaran pada sistem. b. Pihak Pihak yang yang terkai terkait. t. 1. Admin.


8

2. Karyawan. c. Form Form yang yang digu diguna naka kan. n. Form hasil pemasaran barang. d. Prosed Prosedur ur kerja kerja.. 1. Karyawan Karyawan bagian bagian gudang gudang mengisi mengisi form form hasil pemas pemasaran aran untuk untuk acuan acuan pada sistem. 2. Form Form dise diserah rahkan kan pada pada admi admin. n. 3. Bagian Bagian admin admin memas memasukka ukkan n data data sesuai sesuai form isian. isian. 4. Pros Proses es sele selesa sai. i. e. Bagan Arus Tata Cara Pendataan Bahan Omset Karyawan

Admin

Mulai

Mengisi Form Hasil Pemasaran


Daftar Hasil Pemasaran

Selesai


9

1.5.2

Data Flow Digram

Gambar DFD Level 0

Gambar DFD Level 1


10

BAB II TAHAP ANALISA

2.1 Teknik Pengumpulan Pengumpulan Data Data Dalam pengumpulan data untuk sistem informasi ini penulis menggunakan metode survey. survey. Metode ini kami gunakan untuk ketepatan data yang akan penulis gunakan dalam pembuatan sistem informasi ini.

2.2 Analisa Analisa Data 2.2.1 Memahami Kerja Sistem. a) Sistem Informasi yang digunakan adalah Sistem Informasi manual, karena semua proses masih dilakukan dengan melakukan pencatatan data bahan baku, data bahan pelengka pelengkap, p, data stok hasil hasil produksi, produksi, data distributo distributor, r, data omset omset perbulan, data informasi informasi pemasaran. pemasaran. Data bahan baku, data bahan bahan pelengkap, pelengkap, data distributor, data omset perbulan, data informasi pemasaran yang diolahpun juga diproses secara manual, hanya proses pencetakan daftar, baik daftar bahan baku, daftar bahan pelengkap, daftar distributor, daftar omset perbulan maupun daftar daftar informasi informasi pemasaran pemasaran yang dilakukan dilakukan mengguna menggunakan kan komputer komputer.. Proses Proses pencetakan daftar dilakukan dengan menggunakan Ms. Word Word dan Ms. Excel.

b) Pada Sistem Informasi tersebut terdapat beberapa subsistem, diantaranya: diantaranya: •

Pendataan bahan baku

•

Pendataan bahan pelengkap

•

Pendataan stok hasil produksi

•

Pendataan distributor

•

Pendataan omset perbulan

•

Pendataan informasi pasar

c) - Proses pendataan bahan baku: •

Pelaku : Karyawan bagian gudang

•

Data : Data bahan baku

•

Output : laporan bahan baku

Laporan Praktikum Sistem Informasi Informas i - 2011

11

- Proses pendataan bahan pelengkap •


•

Data : Data bahan pelengkap

•

Output : laporan bahan pelengkap

- Proses pendataan stok hasil produksi: •


•

Data : Data stok hasil produksi

•

Output : laporan stok hasil produksi

- Proses pendataan distributor •

Pelaku : Karyawan bagian distribusi

•

Data : Data diri distributor

•

Output : laporan data distributor

- Proses pendataan omset perbulan: •

Pelaku : Bagian administrasi

•

Data : Data omset perbulan

•

Output : laporan hasil omset perbulan

- Proses pendataan informasi pasar:

2.2.2

•

Pelaku : Staf

•

Data : Data pasar

•

Output : laporan informasi pasar

Kelebihan dan Kekurangan Sistem Lama. ▪

Kelebihan - Mudah dalm penerapan cara kerja bagi orang kerja bagi orang awam. - Tidak memerlukan biaya untuk membuat aplikasi.

▪

Kekurangan - Memerlukan waktu yang lama dalam melakukan proses pendataan. pendataan. - Data-data yang ada sangat mungkin untuk tersebar. tersebar. - Dapat menimbulkan ketidak validan data. - Memerlukan banyak biaya untuk kelengkapan pencataan.


12

2.2.3

Mengidentifikasi Masalah. ▪

Mengidentifikasi penyebab masalah: Masala Masalah h yang yang timbul timbul diseba disebabka bkan n oleh oleh sistem sistem yang yang masih masih manual manual dan belum terkomputerisasi dan terintegrasi dengan baik.

▪

Mengidentifikasi pengambilan keputusan yang menyebabkan masalah: Peng Pengam ambi bila lan n kepu keputu tusa san n masi masih h meng menggu guna naka kan n sist sistem em yang yang manu manual al,, sehingga proses pendataan data bahan baku, data bahan pelengkap, data distributor, data omset perbulan, dan data informasi pasar yang dilakukan terasa lebih lama.

2.2.4

Pemecahan Masalah. Dari pengumpulan data yang telah dilakukan dan melakukan proses analisis terhadap sistem yang ada sebelumnya, menurut kami masalah yang ada akan terselesa terselesaikan ikan dengan dengan adanya adanya sebuah sebuah Sistem Informasi Informasi yang dapa dapatt meng mengol olah ah data data deng dengan an baik baik dan dan dapa dapatt memb member erka kan n solu solusi si dala dalam m penghematan biaya dan penghematan waktu.


13

BAB III DESAIN SISTEM INFORMASI 3.1 Desain Spesifikasi System Informasi

DAFTAR BAHAN PELENGKAP

DAFTAR OMSET PERBULAN

DAFTAR BAHAN BAKU

SISTEM INFORMASI USAHA KONVEKSI BATIK BA TIK ERLANGGA E RLANGGA

DAFTAR STOK HASIL PRODUKSI

DAFTAR DISTRIBUTOR

DAFTAR INFORMASI PASAR

Gambar Sistem Informasi

3.2 Akses Kontrol Akse Aksess kont kontro roll meru merupa paka kan n suat suatu u bata batasa san n bagi bagi piha pihak k mana mana saja saja yang yang diperbolehkan untuk mengaksesaplikasi dari sistem informasi yang ada. Dalam hal ini beberapa batasan, diantaranya: Laporan Praktikum Sistem Informasi - 2011

14

3.2.1 Akses Kontrol berdasarkan jabatan. ▪

Manager : dapat dapat mengakses mengakses aplikasi secara menyeluruh.

▪

Staf Data : hanya dapat mengakses data yang berkaitan dengan data yang umum.

3.2.2 Akses Kontrol Berdasarkan Job Disc. ▪

Manager : dapat mengakses semua data yang ada, yang berkaitan dengan proses produksi maupun tentang manajemen sistem.

▪

Staf Data : dapat mengakses semua data yang diinputkan.

3.3 Desain Database Sebelum Sebelum membuat membuat sistem sistem informasi informasi dengan dengan mengguna menggunakan kan VB.Net, VB.Net, terlebih terlebih dahulu membuat database yang nantinya akan dikoneksikan dengan sistem informasi yang dibuat. Dalam pembuatan sistem informasi ini database yang akan dibuat diberi nama DB_proses_produksi dengan menggunakan SQL Server 2005.

3.3.1 Tabel 

Tbl_ Admin (usser, password)



Tbl_ Tbl_Ba Baha han_ n_Ba Baku ku

(kod (kode_ e_ba baha han, n,

tang tangga gal_ l_be beli li,,

juml jumlah ah_b _bar aran ang, g,

jumlah_keluar, sisa_bahan) 

Tbl_ Tbl_Ba Baha han_ n_Pe Pele leng ngka kap p

(kod (kode_ e_ba baha han_ n_pe pele leng ngka kap, p,

jeni jenis_ s_ba baha han, n,

tanggal_beli, jumlah_barang, jumlah_keluar, sisa_bahan, satuan) 

Tbl_Stok (kode_stok, tanggal_produksi, harga_barang, stok_barang, jumlah_barang_masuk, jumlah_barang_keluar, total_barang)



Tbl_Distributor

(kode_distributor,

nama_distributor,

alamat_distributor, no_telfon, kode_pasar, ambil_barang) 

Tbl_ Tbl_Om Omse sett

(no_ (no_om omse set, t,

kode kode_d _dis istr trib ibut utor or,,

kode kode_p _pas asar ar,,

bula bulan, n,

jumlah_pemasukkan) 

Tbl_Pasar (alamat_pasar, jumlah_distributor)

Dari Dari desai desain n di atas, atas, maka maka strukt struktur ur tabel tabel yang yang dibuat dibuat pada pada datab database ase adalah adalah


15

sebagai berikut:

Tbl_Admin NO

FIELD

TIPE DATA

KETERANGAN

1

usser

VARCHAR (50)

NOT NULL

2

password

VARCHAR (50)

NOT NULL (PK)

Tbl_Bahan_Baku NO

FIELD

TIPE DATA

KETERANGAN

1

kode_bahan

VARCHAR (50)

NOT NULL (PK)

2

tanggal_beli

VARCHAR (50)

NOT NULL

3

julmah_barang

VARCHAR (50)

NOT NULL

4

jumlah_keluar

VARCHAR (50)

NOT NULL

5

sisa_bahan

VARCHAR (50)

NOT NULL

Tbl_Bahan_Pelengkap NO

FIELD

TIPE DATA

KETERANGAN

1

kode kode_ _baha bahan_ n_pe pele leng ngka kap p

VARCHAR (50)

NOT NULL (PK)

2

jenis_bahan

VARCHAR (50)

NOT NULL

3

tanggal_beli

VARCHAR (50)

NOT NULL

4

jumlah_barang

VARCHAR (50)

NOT NULL

5

jumlah_keluar

VARCHAR (50)

NOT NULL

6

sisa_bahan

VARCHAR (50)

NOT NULL

7

satuan

VARCHAR (50)

NOT NULL

Tbl_Stok NO

FIELD

TIPE DATA

KETERANGAN

1

kode_stok

VARCHAR (50)

NOT NULL (PK)

2

tanggal_produksi

VARCHAR (50)

NOT NULL

3

harga_barang

VARCHAR (50)

NOT NULL

4

stok_barang

VARCHAR (50)

NOT NULL

5

jumlah_baran rang_masuk

VARCHAR (50)

NOT NULL

6

jumlah_baran rang_keluar

VARCHAR (50)

NOT NULL

7

total_barang

VARCHAR (50)

NOT NULL


16

Tbl_Distributor NO

FIELD

TIPE DATA

KETERANGAN

1

kode_distributor

VARCHAR (50)

NOT NULL (PK)

2

nama_distributor

VARCHAR (50)

NOT NULL

3

alam lamat_distributor

VARCHAR (50)

NOT NULL

4

no_telfon

VARCHAR (50)

NOT NULL

5

kode_pasar

VARCHAR (50)

NOT NULL

6

kode_pasar

VARCHAR (50)

NOT NULL

Tbl_Omset NO

FIELD

TIPE DATA

KETERANGAN

1

no_omset

VARCHAR (50)

NOT NULL (PK)

2

kode_distributor

VARCHAR (50)

NOT NULL

3

kode_pasar

VARCHAR (50)

NOT NULL

4

bulan

VARCHAR (50)

NOT NULL

5

jumlah_pemasukkan

VARCHAR (50)

NOT NULL

Tbl_Pasar NO

FIELD

TIPE DATA

KETERANGAN

1

kode_pasar

VARCHAR (50)

NOT NULL (PK)

2

alamat_pasar

VARCHAR (50)

NOT NULL

3

jumlah_distrib ributor

VARCHAR (50)

NOT NULL


17

3.3.2

Desain Diagram Relasi antar Tabel


18

3.3.3

Proses Modeling (DFD)

Gambar DFD Level 0


19

Gambar DFD Level 1

BAB IV IMPLEMENTASI

4.1 Integrated Development Environment

Gambar tampilan awal vb



Baris Menu Menyediakan beberapa menu seperti File, Edit, Search, View, Project dll. Seperti gambar berikut ini.



Toolbar Tombol-tombol pada Toolbar sebenarnya merupakan tombol speed dari menu-menu yang terdapat pada baris Menu diatas.


20



Toolbox Merupakan komponen yang digunakan untuk membuat sebuah program sistem informasi, pada toolbox ini komponen komponen diklasifikasikan berdasarkan beberapa kategori.



Solution Exploler Merupakan daftar dari komponen-komponen apa saja yang telah kitapergunakan kitapergunakan dan juga merupakan peta dari program yang kita buat.



Propertise Digunakan untuk merubah properti dan even dari objek objek yang terdapat pada program yang dibuat.


21



Form Form merupakan tampilan yang akan disajikan pada saat program kita jalankan, dimana sebelumnya telah dimasukkan komponen yang diinginkan sesuai dengan kebutuhan dari program yang dibuat.



Code Editor Code Editor berfungsi sebagai tempat untuk mengetikkan atau memasukkan source code.


22

4.2 Proses Pembuatan Form 4.2.1 Pembuatan Form Utama Form utama digunakan sebagai tampilan utama, dimana form ini nantinya sebagai penghubung form-form lainnya. Berikut ini gambaran form utama

Gambar Tampilan Form Utama Komponen-komponen yang digunakan dalam pembuatan form utama.

Object Name

Propertise

Value

Jbutton1

Text name

Informasi bahan baku BBahan

JButton2

Text name

Informasi bahan pelengkap BPelengkap

JButton3

Text name

Informasi Distributor BDist

JButton4

Text name

Informasi Stok Produksi BStok

JButton5

Text name

Informasi Omset BOmset

JButton6

Text name

Informasi Pemasaran BPemasaran


23

4.2.2

Pembuatan Form Bahan Baku Form Data Bahan Baku ini digunakan untuk me-manage data bahan baku yang terdapat terdapat pada Usaha Konveksi Konveksi Batik Erlangga. Erlangga. Berikut Berikut ini merupakan merupakan tampilan tampilan Form Data Bahan baku.

Gambar Tampilan Form Bahan Baku

Komponen-komponen yang digunakan dalam pembuatan form bahan baku.

Object Name

Propertise

Value

Label1

text

Kode Bahan

Label2

text

Tanggal Beli

Label3

text

Jumlah Barang

Label4

text

Jumlah Keluar

Label5

text

Sisa Bahan

TextBox1

name

txt_kd_bahan

TextBox2

name

txt_tanggal_beli

TextBox3

name

txt_jumlah_barang

textBox4

name

txt_jumlah_keluar

TextBox5

name

txt_sisa_bahan


24

JButton1

Text name

Cari BCari

JButton2

Text name

Tambah BTambah

JButton3

Text name

Hapus BHapus

Jbutton4

Text name

Keluar Bkeluar

Panel1

Name

db_proses_produksi

Label6

Text

INFORMASI BAHAN BAKU

Source Code untuk Form Bahan Baku Imports System.Data.SqlClient System.Data.SqlClient Public Class Bahan_Baku

Private

Sub

BHapus_Click(ByVal

sender

As

System.Object, ByVal e As System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_bahan As String conn.ConnectionString="server=ANDALUFC503FF5;Database=db_proses FC503FF5;Database=db_proses_produksi;integ _produksi;integrated rated security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim Dim

pesa pesan n

As

Dial Dialog ogRe Resu sult lt

=

MsgB MsgBox ox(" ("Ap Apak akah ah

anda anda

yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_bahan var_kode_bahan = TextBox1.Text sql = "delete from table_bahan_baku where kode_bahan = '" +

var_kode_bahan + "' "


25

cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TextBox1.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'memnersihkan tampilan edit TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() 'merefresh data grid view Bahan_Baku_Load(sender, Bahan_Baku_Load(sender, e) End Sub

Private Sub BCari_Click(ByVal sender As System.Object, System.Object, ByVal e As

System.EventArgs) System.EventArgs)

Handles BCari.Click Dim con As New SqlConnection Dim cmd As New SqlCommand("select * from table_bahan_baku table_bahan_baku

where kode_bahan= '" +

TextBox1.Text + "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentR db_proses_produksi.CurrentRow.Index ow.Index con.ConnectionString con.ConnectionString = "server = ANDALUFC503FF5;Database FC503FF5;Database =db_proses_produksi;integra =db_proses_produksi;integrated ted security=true" Try Laporan Praktikum Sistem Informasi - 2011

26

con.Open() cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kode_bahan") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce = ds.Tables(0) Try TextBox2.Text = db_proses_produksi.Item(1, db_proses_produksi.Item(1, i).Value TextBox3.Text = db_proses_produksi.Item(2, db_proses_produksi.Item(2, i).Value TextBox4.Text = db_proses_produksi.Item(3, db_proses_produksi.Item(3, i).Value TextBox5.Text = db_proses_produksi.Item(4, db_proses_produksi.Item(4, i).Value Catch ex As Exception MsgBox("data

ada")

End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") End Try End Sub Private

Sub

BCetak_Click(ByVal

sender

As

System.Object, System.Object, ByVal e As System.EventArgs) System.EventArgs) Me.Hide() End Sub Private

Sub

Bahan_Baku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) System.EventArgs) Handles MyBase.Load Dim con As New SqlConnection SqlConnection Dim Dim cmd cmd As New New SqlCommand("select SqlCommand("select * from table_bahan_baku ") Dim ds As New DataSet()

con.ConnectionString FC503F FC503FF5; F5;Dat Databa abase se

=

"server

=

ANDALU-

=db_pr =db_prose oses_p s_prod roduks uksi;i i;inte ntegra grated ted

security=true" Laporan Praktikum Sistem Informasi - 2011

27

Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "table_bahan_baku") "table_bahan_baku") Me.db_proses_produksi.DataS Me.db_proses_produksi.DataSource ource = ds.Tables(0) Catch

ex

As

Exception

MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Private

Sub

BKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click Me.Hide() End Sub

Private Sub BTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection SqlConnection Dim

var_kode_bahan,

var_tanggal_beli,

var_jumlah_barang,

var_jumlah_keluar, var_jumlah_keluar, var_sisa_bahan var_sisa_bahan

As String

var_kode_bahan var_kode_bahan = TextBox1.Text var_tanggal_beli var_tanggal_beli = TextBox2.Text var_jumlah_barang var_jumlah_barang = TextBox3.Text var_jumlah_keluar var_jumlah_keluar = TextBox4.Text var_sisa_bahan var_sisa_bahan = TextBox5.Text


28

con.ConnectionString

=

FC503F FC503FF5; F5;Dat Databa abase se

"server

=

ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd. cmd.Co Comm mman andT dTex ext t

=

"ins "inser ert t

into into

tabl table_ e_ba baha han_ n_ba baku ku

values ('" + var_kode_bahan + _ "','" + var_tanggal_beli + _ "','" + var_jumlah_barang + _ "','" + var_jumlah_keluar + _ "','" + var_sisa_bahan + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() 'merefresh data grid view' Bahan_Baku_Load(sender, Bahan_Baku_Load(sender, e) End Sub End Class


29

2.4.3 2.4.3 Pembu Pembuata atan n Form Form Bahan Bahan Pelen Pelengka gkap p Form Form Data Data Baha Bahan n Pele Pelenk nkap ap ini ini digu diguna naka kan n untu untuk k me-m me-man anag agee data data baha bahan n peleng pelengka kap p yang yang terdap terdapat at pada pada Usaha Usaha Konve Konveksi ksi Batik Batik Erlang Erlangga. ga. Beriku Berikutt ini merupakan tampilan Form Data Bahan pelengkap.

Gambar Tampilan Tampilan Form Bahan Pelengkap

Komponen-komponen yang digunakan dalam pembuatan form bahan pelengkap

Object Name

Propertise

Value

Label1

Text

Informasi Bahan Pelengkap

Label2

Text

Kode Bahan Pelengkap

Label3

Text

Jenis Bahan

Label4

Text

Tanggal Beli

Label5

Text

Jumlah Barang

Label6

Text

Jumlah Keluar

Label7

Text

Sisa Bahan


30

Label8

Text

Satuan

TextBox1

name

txt_kode_bahan

Textbox2

Name

txt_jenis_bahan

Textbox3

Name

txt_tanggal

Textbox4

Name

txt_jumlah_barang

Textbox5

Name

txt_jumlah_keluar

Textbox6

Name

txt_sisa

Textbox7

Name

txt_satuan

Panel1

Name

db_proses_produksi

Button1

Text name

Cari Bcari

Button2

Text name

Tambah Btambah

Button3

Text name

Hapus Bhapus

Button4

Text name

Keluar BKeluar

Source Code untuk Form Bahan Pelengkap

Imports System.Data.SqlClient System.Data.SqlClient Public Class bahan_pelengkap bahan_pelengkap

Private Private

Sub

bahan_pe bahan_pelengk lengkap_Lo ap_Load(By ad(ByVal Val

sender sender

As

System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As New SqlConnection Dim Dim

cmd cmd

As

New New

SqlC SqlCom omma mand nd(" ("se sele lect ct

*

from from

table_bahan_pelengkap") Dim ds As New DataSet() con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Laporan Praktikum Sistem Informasi - 2011

31

Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "table_bahan_pelengkap") "table_bahan_pelengkap") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=

ds.Tables(0) Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Priva rivat te

Sub Sub

BCar BCari_ i_C Click lick(B (By yVal Val

send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim Dim

cmd cmd

As

table_bahan_pelengkap table_bahan_pelengkap

New New


*

from from

where kd_bahan_pelengkap kd_bahan_pelengkap = '"

+ KD_BAHAN_PELENGKAP.Text + "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentRo db_proses_produksi.CurrentRow.Index w.Index con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kd_bahan_pelengkap") "kd_bahan_pelengkap") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=

KD_BAHAN_ KD_BAHAN_PELEN PELENGKAP. GKAP.Text Text

=

ds.Tables(0) Try

db_proses_produksi.Item(0, db_proses_produksi.Item(0, i).Value Laporan Praktikum Sistem Informasi - 2011

32

JNIS JNIS_B _BHA HAN. N.Te Text xt

=

TGL_ TGL_BE BELI LI.T .Tex ext t

=

db_proses_produksi.Item(1, db_proses_produksi.Item(1, i).Value

db_proses_produksi.Item(2, db_proses_produksi.Item(2, i).Value JML_BRG.Text = db_proses_produksi.Item(3, db_proses_produksi.Item(3, i).Value JML_ JML_kl klua uar. r.Te Text xt

=

SISA SISA_B _BRG RG.T .Tex ext t

=


db_proses_produksi.Item(5, db_proses_produksi.Item(5, i).Value SATUAN.Text = db_proses_produksi.Item(6, db_proses_produksi.Item(6, i).Value Catch ex As Exception MsgBox("data tak ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Priv Privat ate e

Sub Sub

BTam BTamba bah_ h_Cl Clic ick( k(By ByVa Val l

send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim var_kd_bahan_pelengkap, var_kd_bahan_pelengkap, var_jenis_bahan, var_tanggal_beli, var_ var_ju juml mlah ah_k _kel elua uar, r,

var_jumlah_barang, var_ var_si sisa sa_b _bah ahan an, ,

var_ var_Sa Satu tuan an

As

String var_kd_bahan_pelengkap var_kd_bahan_pelengkap = KD_BAHAN_PELENGKAP.Text KD_BAHAN_PELENGKAP.Text var_jenis_bahan var_jenis_bahan = JNIS_BHAN.Text var_tanggal_beli var_tanggal_beli = TGL_BELI.Text var_jumlah_barang var_jumlah_barang = JML_BRG.Text Laporan Praktikum Sistem Informasi - 2011

33

var_jumlah_keluar var_jumlah_keluar = JML_kluar.Text var_sisa_bahan var_sisa_bahan = SISA_BRG.Text var_Satuan = SATUAN.Text

con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd. cmd.Co Com mmand mandT Text ext table_bahan_pelengkap

=

"inse inser rt

values

('"

into into +

var_kd_bahan_pelengkap var_kd_bahan_pelengkap + _ "','" + var_jenis_bahan + _ "','" + var_tanggal_beli + _ "','" + var_jumlah_barang + _ "','" + var_jumlah_keluar + _ "','" + var_sisa_bahan + _ "','" + var_Satuan + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") KD_BAHAN_PELENGKAP.Clear() JNIS_BHAN.Clear() TGL_BELI.Clear() JML_BRG.Clear() JML_kluar.Clear() SISA_BRG.Clear() SATUAN.Clear() 'merefresh data grid view' bahan_pelengkap_Load(sender bahan_pelengkap_Load(sender, , e) End Sub

Pri Private vate

Sub Sub

BHap BHapu us_Cl s_Clic ick k(ByV (ByVa al

send sende er

As

System.Object, ByVal e As System.EventArgs) Handles Laporan Praktikum Sistem Informasi - 2011

34

BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_stok As String conn.C conn.Conn onnect ection ionStr String ing FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_stok = KD_BAHAN_PELENGKAP.Text KD_BAHAN_PELENGKAP.Text sql = "delete from table_bahan_pelengkap where

kd_bahan_pelengkap

=

'"

+

KD_BAHAN_PELENGKAP.Text KD_BAHAN_PELENGKAP.Text + "'" cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else KD_BAHAN_PELENGKAP.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'memnersihkan tampilan edit KD_BAHAN_PELENGKAP.Clear() JNIS_BHAN.Clear() TGL_BELI.Clear() JML_BRG.Clear() JML_kluar.Clear() SISA_BRG.Clear() SATUAN.Clear() Laporan Praktikum Sistem Informasi - 2011

35

'merefresh data grid view bahan_pelengkap_Load(sender bahan_pelengkap_Load(sender, , e) End Sub

Priv Privat ate e

Sub Sub

BKel BKelua uar_ r_Cl Clic ick( k(By ByVa Val l

send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click Me.Hide() End Sub End Class

4.2.4

Pembuatan Form Stok Hasil Produksi Form Stok Hasil produksi ini digunakan untuk me-manage data hasil produksi yang yang terdap terdapat at pada pada Usaha Usaha Konve Konveksi ksi Batik Batik Erlang Erlangga. ga. Beriku Berikutt ini merup merupaka akan n tampilan Form Data Stok Hasil Produksi.

Gambar Tampilan Form Stok Hasil produksi Komponen-komponen yang digunakan dalam pembuatan form stok hasil produksi.

Object Name

Propertise

Value

Label1

Text

Informasi Stok Produksi

Label2

Text

Kode stok


36

Label3

Text

Tanggal produksi

Label4

Text

Harga barang

Label5

Text

Stok Barang

Label6

Text

Jumlah Barang Masuk

Label7

Text

Jumlah Barang keluar

Label8

Text

Total barang

Panel1

Name

db_proses_produksi

Button1

Text name

Cari Bcari

Button2

Text name

Tambah Btambah

Button3

Text name

Hapus Bhapus

Button4

Text name

Keluar BKeluar

Source Code untuk Form Stok Hasil Produksi Imports System.Data.SqlClient System.Data.SqlClient Public Class hasilproduksi

Priv Privat ate e

Sub Sub

hasi hasilp lpro rodu duks ksi_ i_Lo Load ad(B (ByV yVal al

send sender er

As


cmd cmd

As

New New


*

from from

table_stok") Dim ds As New DataSet() con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd)


37

dataRead.Fill(ds, dataRead.Fill(ds, "table_stok") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=


Priv Privat ate e

Sub Sub


send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click Me.Hide() End Sub

Priva rivat te

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim Dim table_stok

cmd cmd

As

New New


*

from from

where kode_stok = '" + TEXT_kd_stok.Text TEXT_kd_stok.Text

+ "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentRo db_proses_produksi.CurrentRow.Index w.Index con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kode_stok") Laporan Praktikum Sistem Informasi - 2011

38

Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=

TEXT_k TEXT_kd_s d_stok tok.Te .Text xt

=

ds.Tables(0) Try

db_proses_produksi.Item(1, db_proses_produksi.Item(1, i).Value text text_t _tgl gl.T .Tex ext t

=

text_s text_stok tok_br _brg.T g.Text ext

=


db_proses_produksi.Item(3, db_proses_produksi.Item(3, i).Value text_j text_jml_ ml_msu msuk.T k.Text ext

=

db_proses_produksi.Item(4, db_proses_produksi.Item(4, i).Value text_k text_klua luar.T r.Text ext

=

db_proses_produksi.Item(5, db_proses_produksi.Item(5, i).Value text text_t _tot ot.T .Tex ext t

=

text_h text_hrg_ rg_brg brg.Te .Text xt

=


db_proses_produksi.Item(7, db_proses_produksi.Item(7, i).Value Catch ex As Exception MsgBox("data tak ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Priv Privat ate e

Sub Sub


send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim

var_kode var_kode_sto _stok, k,

var_harga_barang, var_jumla var_jumlah_ba h_barang_ rang_masuk masuk, , Laporan Praktikum Sistem Informasi - 2011

var_tangg var_tanggal_pr al_produk oduksi, si, var_stok_barang,

var_jumla var_jumlah_ba h_barang_ rang_kelua keluar, r, 39

var_total_barang var_total_barang As String var_kode_stok = TEXT_kd_stok.Text TEXT_kd_stok.Text var_tanggal_produksi var_tanggal_produksi = text_tgl.Text var_harga_barang var_harga_barang = text_hrg_brg.Text text_hrg_brg.Text var_stok_barang var_stok_barang = text_stok_brg.Text text_stok_brg.Text var_jumlah_barang_masuk var_jumlah_barang_masuk = text_jml_msuk.Text text_jml_msuk.Text var_jumlah_barang_keluar var_jumlah_barang_keluar = text_kluar.Text text_kluar.Text var_total_barang var_total_barang = text_tot.Text

con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd.CommandText = "insert into table_stok values ('" + var_kode_stok + _ "','" + var_tanggal_produksi + _ "','" + var_harga_barang + _ "','" + var_stok_barang + _ "','" + var_jumlah_barang_masuk + _ "','" + var_jumlah_barang_keluar + _ "','" + var_total_barang + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TEXT_kd_stok.Clear() text_tgl.Clear() text_stok_brg.Clear() text_jml_msuk.Clear() text_kluar.Clear() text_tot.Clear() text_hrg_brg.Clear() 'merefresh data grid view' hasilproduksi_Load(sender, hasilproduksi_Load(sender, e) Laporan Praktikum Sistem Informasi - 2011

40

End Sub Pri Private vate

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_stok As String conn.C conn.Conn onnect ection ionStr String ing FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_stok = TEXT_kd_stok.Text TEXT_kd_stok.Text sql = "delete from table_stok where kode_stok = '" + var_kode_stok + "'" cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TEXT_kd_stok.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'memnersihkan tampilan edit TEXT_kd_stok.Clear() text_tgl.Clear() text_stok_brg.Clear() text_jml_msuk.Clear() text_kluar.Clear() Laporan Praktikum Sistem Informasi - 2011

41

text_tot.Clear() text_hrg_brg.Clear() 'merefresh data grid view hasilproduksi_Load(sender, hasilproduksi_Load(sender, e) End Sub

Private Sub db_proses_produksi_CellConten db_proses_produksi_CellContentClick(ByVal tClick(ByVal sender

As

System.Object,

ByVal

e

As

System.Windows.Forms.DataGr System.Windows.Forms.DataGridViewCellEvent idViewCellEventArgs) Args) Handles db_proses_produksi.CellCont db_proses_produksi.CellContentClick entClick End Sub Pri Private vate

Sub Sub

BCet BCeta ak_Cl k_Clic ick k(ByV (ByVa al

send sende er

As

System.Object, System.Object, ByVal e As System.EventArgs) System.EventArgs) End Sub End Class

4.2.5

Pembuatan Form Distributor Form Distributor ini digunakan untuk me-manage data distributor yang terdapat pada Usaha Konveksi Konveksi Batik Erlangga. Erlangga. Berikut Berikut ini merupaka merupakan n tampilan tampilan Form Distributor.


42

Gambar Tampilan Tampilan Form Distributor

Komponen-komponen yang digunakan dalam pembuatan form distributor. distributor.

Object Name

Propertise

Value

Label1

Text

Informasi Daftar Distributor

Label2

Text

Kode distributor

Label3

Text

Nama distributor

Label4

Text

Alamat

Label5

Text

no.telfon

Label6

Text

Kode pasar

Label7

Text

Ambil barang

Textbox1

Name

txt_kode_distributor

Textbox2

Name

txt_nama_distributor

Textbox3

Name

txt_alamat

Textbox4

Name

txt_no.telfon

Textbox5

Name

txt_kode_pasar

Textbox6

Name

txt_ambil_barang

Panel1

Name

db_proses_produksi

Button1

Text name

Cari Bcari

Button2

Text name

Tambah Btambah

Button3

Text name

Hapus Bhapus

Button4

Text name

Keluar BKeluar

Source Code untuk Form Distributor Imports System.Data.SqlClient System.Data.SqlClient Public Class daftardistributor daftardistributor

Private Private

Sub

daftardi daftardistrib stributor utor_Load _Load(ByVa (ByVal l


sender sender

As

43


cmd cmd

As

New New


*

from from

table_distributor") Dim ds As New DataSet() con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "table_distributor") "table_distributor") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=


Priv Privat ate e

Sub Sub


send sender er

As


Priva rivat te

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim Dim

cmd cmd

As

tabl table_ e_di dist stri ribu buto tor r Laporan Praktikum Sistem Informasi - 2011

New New wher where e

SqlC SqlCom omma mand nd(" ("se sele lect ct kode_ kode_di dist stri ribu buto tor= r=

*

from from '"

+ 44

TextBox1.Text + "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentRo db_proses_produksi.CurrentRow.Index w.Index con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kode_distributor") "kode_distributor") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=

ds.Tables(0) Try Text TextBo Box1 x1.T .Tex ext t

=

Text TextBo Box2 x2.T .Tex ext t

=


=


=


=


=






db_proses_produksi.Item(6, db_proses_produksi.Item(6, i).Value Catch ex As Exception MsgBox("data ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") Laporan Praktikum Sistem Informasi - 2011

45

End Try End Sub Priv Privat ate e

Sub Sub


send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim var_kode_distributor, var_nama_distributor, var_alamat_distributor,

var_no_telfon,

var_kode_pasar, var_kode_pasar, var_ambil_barang As String var_kode_distributor var_kode_distributor = TextBox1.Text var_nama_distributor var_nama_distributor = TextBox2.Text var_alamat_distributor var_alamat_distributor = TextBox3.Text var_no_telfon = TextBox4.Text var_kode_pasar var_kode_pasar = TextBox5.Text var_ambil_barang var_ambil_barang = TextBox6.Text con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd.CommandText = "insert into table_distributor values ('" + var_kode_distributor + _ "','" + var_nama_distributor + _ "','" + var_alamat_distributor + _ "','" + var_no_telfon + _ "','" + var_kode_pasar + _ "','" + var_ambil_barang + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() Laporan Praktikum Sistem Informasi - 2011

46

TextBox4.Clear() TextBox6.Clear() 'merefresh data grid view' daftardistributor_Load(send daftardistributor_Load(sender, er, e) End Sub

Pri Private vate

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_distributor As String conn.C conn.Conn onnect ection ionStr String ing FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_distributor var_kode_distributor = TextBox1.Text TextBox1.Text sql = "delete from table_distributor where kode_distributor = '" + var_kode_distributor + "' " cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TextBox1.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try Laporan Praktikum Sistem Informasi - 2011

47

'memnersihkan tampilan edit TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() 'merefresh data grid view daftardistributor_Load(send daftardistributor_Load(sender, er, e) End Sub

Private Sub db_proses_produksi_CellConten db_proses_produksi_CellContentClick(ByVal tClick(ByVal sender

As

System.Object,

ByVal

e

As

System.Windows.Forms.DataGr System.Windows.Forms.DataGridViewCellEvent idViewCellEventArgs) Args) Handles db_proses_produksi.CellCont db_proses_produksi.CellContentClick entClick

End Sub End Class

4.2.6

Pembuatan Form Omset Form Omset ini digunakan untuk me-manage data omset perbulan yang terdapat pada Usaha Konveksi Konveksi Batik Erlangga. Erlangga. Berikut Berikut ini merupaka merupakan n tampilan tampilan Form omset.


48

Gambar Tampilan Form omset Komponen-komponen yang digunakan dalam pembuatan form omset.

Object Name

Propertise

Value

Label1

Text

Informasi Omset

Label2

Text

No.Omset

Label3

Text

Kode distributor

Label3

Text

Kode pasar

Label4

Text

Bulan

Label5

Text

Jumlah pemasukan

Textbox1

Name

txt_no_omset

Textbox2

Name

txt_kode_distributor

Textbox3

Name

txt_kode_pasar

Textbox4

Name

txt_bulan

Textbox5

Name

txt_jumlah_pemasukan

Panel1

Name

db_proses_produksi

Button1

Text name

Cari Bcari

Button2

Text name

Tambah Btambah

Button3

Text name

Hapus Bhapus

Button4

Text name

Keluar BKeluar

Source Code untuk Form Omset Imports System.Data.SqlClient System.Data.SqlClient Public Class omset Private Sub omset_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) System.EventArgs) Handles MyBase.Load Dim con As New SqlConnection Dim Dim

cmd cmd

As

New New


*

from from

table_omset ") Dim ds As New DataSet() con.Co con.Conne nnecti ctionS onStri tring ng Laporan Praktikum Sistem Informasi - 2011

=

"serve "server r

=

ANDALU ANDALU49

FC503F FC503FF5; F5;Dat Databa abase se


security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "table_omset") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=


Priv Privat ate e

Sub Sub


send sender er

As


Priva rivat te

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim Dim tabl table_ e_om omse set t

cmd cmd

As

wher where e

New New


no_o no_oms mset et= =

'"

+

*

from from


+

"'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentRo db_proses_produksi.CurrentRow.Index w.Index con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se Laporan Praktikum Sistem Informasi - 2011

=

"serve "server r

=

ANDALU ANDALU-

=db_pr =db_prose oses_p s_prod roduks uksi;i i;inte ntegra grated ted 50

security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "no_omset") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=


=


=


=


=


=





db_proses_produksi.Item(4, db_proses_produksi.Item(4, i).Value Catch ex As Exception MsgBox("data tidak ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Priv Privat ate e

Sub Sub


send sender er

As

System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim

var_no_o var_no_omset mset, ,


var_kode var_kode_dis _distribu tributor, tor, 51

var_kode_ var_kode_pasa pasar, r, var_bula var_bulan, n, var_juml var_jumlah_pe ah_pemasuk masukkan kan As String var_no_omset = TextBox1.Text var_kode_distributor var_kode_distributor = TextBox2.Text var_kode_pasar var_kode_pasar = TextBox3.Text var_bulan = TextBox4.Text TextBox4.Text var_jumlah_pemasukkan var_jumlah_pemasukkan = TextBox5.Text con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd.CommandText cmd.CommandText = "insert into table_omset values ('" + var_no_omset + _ "','" + var_kode_distributor + _ "','" + var_kode_pasar + _ "','" + var_bulan + _ "','" + var_jumlah_pemasukkan + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() 'merefresh data grid view' omset_Load(sender, omset_Load(sender, e) End Sub

Pri Private vate

Sub Sub


send sende er

As

System.Object, ByVal e As System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Laporan Praktikum Sistem Informasi - 2011

52

Dim cmd As New SqlCommand Dim sql, var_no_omset As String conn.C conn.Conn onnect ection ionStr String ing FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_no_omset = TextBox1.Text sql = "delete from table_omset where no_omset = '" + var_no_omset + "' " cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TextBox1.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'memnersihkan tampilan edit TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() 'merefresh data grid view omset_Load(sender, omset_Load(sender, e) End Sub End Class


53

4.2. 4.2.7 7

Pemb Pembua uata tan n Fo Form rm Pa Pasa sarr Form pasar ini digunakan untuk me-manage informasi pasar yang menjadi tempat distributor pada Usaha Konveksi Batik Erlangga. Berikut ini merupakan tampilan Form Data Pasar.

Gambar Tampilan Form Pasar Komponen-komponen yang digunakan dalam pembuatan form pasar. pasar.

Object Name

Propertise

Value

Label1

Text

Informasi Pasar

Label2

Text

Kode pasar

Label3

Text

Alamat pasar

Label4

Text

Jumlah distributor

Textbox1

Name

txt_kode_pasar

Textbox2

Name

txt_alamat_pasar

Textbox3

Name

txt_jumlah_distributor

Panel1

Name

db_proses_produksi

Button1

Text name

Cari Bcari

Button2

Text name

Tambah Btambah


54

Button3

Text name

Hapus Bhapus

Button4

Text name

Keluar BKeluar

Source Code untuk Form Pasar Imports System.Data.SqlClient System.Data.SqlClient Public Class pasar Private Sub pasar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As New SqlConnection Dim cmd As New SqlCommand("select * from table_pasar ") Dim ds As New DataSet() con.ConnectionString con.ConnectionString = "server = ANDALUFC503FF5;Database FC503FF5;Database =db_proses_produksi;integra =db_proses_produksi;integrated ted security=true" Try con.Open() cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "table_pasar") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce = ds.Tables(0) Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub Private Sub BKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click Me.Hide() End Sub


55

Private Sub BCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim cmd As New SqlCommand("select * from table_pasar where kode_pasar= '" + TextBox1.Text + "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentR db_proses_produksi.CurrentRow.Index ow.Index con.ConnectionString con.ConnectionString = "server = ANDALUFC503FF5;Database FC503FF5;Database =db_proses_produksi;integra =db_proses_produksi;integrated ted security=true" Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kode_pasar") Me.db_proses_produksi.DataS Me.db_proses_produksi.DataSource ource = ds.Tables(0) Try TextBox1.Text = db_proses_produksi.Item(0, db_proses_produksi.Item(0, i).Value TextBox2.Text = db_proses_produksi.Item(1, db_proses_produksi.Item(1, i).Value TextBox3.Text = db_proses_produksi.Item(2, db_proses_produksi.Item(2, i).Value Catch ex As Exception MsgBox("data tak ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Private Sub BTambah_Click(ByVal sender As Laporan Praktikum Sistem Informasi - 2011

56

System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim var_kode_pasar, var_kode_pasar, var_alamat_pasar, var_alamat_pasar, var_jumlah_distributor var_jumlah_distributor As String var_kode_pasar var_kode_pasar = TextBox1.Text var_alamat_pasar var_alamat_pasar = TextBox2.Text TextBox2.Text var_jumlah_distributor var_jumlah_distributor = TextBox3.Text con.ConnectionString con.ConnectionString = "server = ANDALUFC503FF5;Database FC503FF5;Database =db_proses_produksi;integra =db_proses_produksi;integrated ted security=true" con.Open() cmd.Connection cmd.Connection = con cmd.Comm cmd.CommandTe andText xt = "insert "insert into table_pas table_pasar ar values values ('" + var_kode_pasar + _ "','" + var_alamat_pasar + _ "','" + var_jumlah_distributor + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() 'merefresh data grid view' pasar_Load(sender, pasar_Load(sender, e) End Sub

Private Sub BHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_pasar As String Laporan Praktikum Sistem Informasi - 2011

57

conn.ConnectionString conn.ConnectionString = "server = ANDALUFC503FF5;Database FC503FF5;Database =db_proses_produksi;integra =db_proses_produksi;integrated ted security=true" Try conn.Open() cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo) If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_pasar = TextBox1.Text sql = "delete from table_pasar where kode_pasar = '" + var_kode_pasar + "' " cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TextBox1.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'membersihkan tampilan edit TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() 'merefresh data grid view pasar_Load(sender, pasar_Load(sender, e) End Sub End Class


58

4.3 CRUD Via Software 

Create Berfungsi untuk menambahkan data pada tabel atau DBGrid pada pendataan bahan baku.

Souce code dari prosedur tambah: Private Sub BTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTambah.Click Dim cmd As New SqlCommand Dim con As New SqlConnection Dim var_kode_distributor, var_nama_distributor, var_alamat_distributor,

var_no_telfon,

var_kode_pasar, var_kode_pasar, var_ambil_barang As String var_kode_distributor var_kode_distributor = TextBox1.Text var_nama_distributor var_nama_distributor = TextBox2.Text var_alamat_distributor var_alamat_distributor = TextBox3.Text var_no_telfon = TextBox4.Text var_kode_pasar var_kode_pasar = TextBox5.Text var_ambil_barang var_ambil_barang = TextBox6.Text con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" con.Open() cmd.Connection cmd.Connection = con cmd.CommandText = "insert into table_distributor values ('" + var_kode_distributor + _ "','" + var_nama_distributor + _ "','" + var_alamat_distributor + _ "','" + var_no_telfon + _ "','" + var_kode_pasar + _ Laporan Praktikum Sistem Informasi - 2011

59

"','" + var_ambil_barang + "')" cmd.ExecuteNonQuery() MsgBox("New data wes added") TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox6.Clear() 'merefresh data grid view' daftardistributor_Load(send daftardistributor_Load(sender, er, e) End Sub

Langkah-langkah Langkah-langkah pengisian form: 1. Isi semua semua form form yang yang dised disediak iakan. an. 2. Setelah Setelah terisi terisi kemudia kemudian n tekan tekan tombol tombol tambah tambah.. 3. Secara Secara otom otomati atiss DBGrid DBGrid akan akan teri terisi. si.

Gambar Form sebelum di isikan data


60

Gambar Form Form setelah di isikan data



Delete Berfungsi untuk menghapus data yang telah disimpan pada tabel atau DBGrid pada pendataan bahan baku.

Souce code dari prosedur hapus: Private Private Sub BHapus_C BHapus_Click lick(ByVa (ByVal l sender sender As System.Ob System.Object, ject, ByVal e As System.EventArgs) System.EventArgs) Handles BHapus.Click Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim sql, var_kode_distributor As String conn.C conn.Conn onnect ection ionStr String ing FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true" Try conn.Open() cmd.Connection cmd.Connection = conn Dim pesan As DialogResult = MsgBox("Apakah anda yakin Menghapus data ini", MsgBoxStyle.YesNo)


61

If pesan = DialogResult.Yes DialogResult.Yes Then var_kode_distributor var_kode_distributor = TextBox1.Text TextBox1.Text sql = "delete from table_distributor where kode_distributor = '" + var_kode_distributor + "' " cmd.CommandText cmd.CommandText = sql cmd.ExecuteNonQuery() Else TextBox1.Clear() End If Catch ex As Exception MsgBox("cek lagi") End Try 'memnersihkan tampilan edit TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() 'merefresh data grid view daftardistributor_Load(send daftardistributor_Load(sender, er, e) End Sub

Langkah-langkah Langkah-langkah Delete: 1. Pilih data yang akan dihapus, dengan cara klik baris pada DBGrid, kemudian tekan tombol hapus. 2. Secara otomatis data pada baris yang telah dipilih akan terhapus.


62

Gambar Form Form setelah menghapus menghapus suatu data



Cari Berfungsi untuk mencari data yang telah disimpan pada tabel atau DBGrid pada pendataan bahan baku.

Souce code dari prosedur cari: Privat Private e

Sub

BCari_ BCari_Cli Click( ck(ByV ByVal al

sender sender

As

System System.Ob .Objec ject, t,

ByVal e As System.EventArgs) System.EventArgs) Handles BCari.Click Dim con As New SqlConnection Dim Dim

cmd cmd

As

tabl table_ e_di dist stri ribu buto tor r

New New wher where e

SqlC SqlCom omma mand nd(" ("se sele lect ct kode_ kode_di dist stri ribu buto tor= r=

*

from from '"

+

TextBox1.Text + "'") Dim ds As New DataSet() Dim i As Integer db_proses_produksi.Refresh() i = db_proses_produksi.CurrentRo db_proses_produksi.CurrentRow.Index w.Index con.Co con.Conne nnecti ctionS onStri tring ng FC503F FC503FF5; F5;Dat Databa abase se

=

"serve "server r

=

ANDALU ANDALU-


security=true"


63

Try con.Open() cmd.Connection cmd.Connection = con Dim dataRead As New SqlDataAdapter(cmd) SqlDataAdapter(cmd) dataRead.Fill(ds, dataRead.Fill(ds, "kode_distributor") "kode_distributor") Me.db_proses_produksi.DataSo Me.db_proses_produksi.DataSource urce

=


=


=


=


=


=


=






db_proses_produksi.Item(6, db_proses_produksi.Item(6, i).Value Catch ex As Exception MsgBox("data ada") End Try Catch ex As Exception MsgBox("Database MsgBox("Database disconnected") disconnected") End Try End Sub

Langkah-langkah Langkah-langkah Cari: 1. Ketikkan kode bahan baku pada form isian, kemudian tekan tombol cari. 2. Apabila data ada maka secara otomatis data akan ditampilkan.


64

Gambar Form Form setelah mencari mencari suatu data data

4.4 CRUD Via Database Pada kegiatan pengisian yang dilakukan secara langsung di databasenya langsung juga akan secara otomatis akan tersimpan pada tabel atau form yang terdapat pada aplikasi yang ada. Jadi semua yang terdapat pada database juga akan tampil pada program aplikasinya. Beriku Berikutt bebera beberapa pa conto contoh h hasil hasil pengis pengisian ian tabel tabel yang yang dilaku dilakukan kan secara secara langsu langsung ng pada pada databasenya: 

Tbl_Bahan_Baku

Gambar dari tabel bahan baku


65



Tbl_Bahan_Pelengkap

Gambar dari tabel bahan pelengkap



Tbl_Stok

Gambar dari tabel stok hasil produksi



Tbl_Distributor

Gambar dari tabel distributor


66



Tbl_Omset

Gambar dari tabel omset perbulan 

Tbl_Pasar

Gambar dari tabel informasi pasar

4.5 Pembuatan Tampilan Login Form ini digunakan sebagai jembatan untuk menuju aplikasi, dimana setipa user akan dilihat hak aksesnya.


67

Gambar tampilan untuk login Komponen-komponen Komponen-komponen yang digunakan dalam pembuatan form login. Object Name

Propertise

Value

Label1

Text

LOGIN ADMINISTRATOR

Label2

Text

Admin

Label3

Text

Password

Textbox1

Name

user

Textbox2

Name

password

Button1

Text name

Login txt_login

Procedures Log In Prosed Prosedur ur ini diguna digunakan kan untuk untuk masuk masuk kedala kedalam m progra program m utama utama dari dari sistem sistem inform informasi asi ini dengan memasukkan nama usser dan password. Berikut Source codenya:

Procedures Password On key Press Prosed Prosedur ur ini keguna kegunaan anya ya sama sama denga dengan n prosed prosedur ur log in, hanya hanya saja saja kondis kondisii pemaka pemakainy inyaa berbeda, yaitu pada saat ditekan enter pada field password. Berikut source codenya:

Source Code untuk form login: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As New SqlConnection Dim cmd As New SqlCommand("select SqlCommand("select * from table_admin table_admin ") Dim ds As New DataSet() con.ConnectionString = "server = ANDALU-FC503FF5;Database =db_proses_produksi;integrated security=true" Dim var_user, var_password As String var_user = login.Text() var_password var_password = password.Text() password.Text() If (login.Text = var_user) Then password.Text = var_password Form1.Show() Me.Hide() Else MsgBox("Maaf MsgBox("Maaf user name atau Password Salah") End If End Sub


68

BAB V PENUTUP

KESIMPULAN Pada penggunaan aplikasi Visual Basic Studio dan SQL Server 2005 dalam pembuatan analisis kebutuhan pada sistem informasi produksi usaha konveksi batik Erlangga ,maka dapat disimpulkan sebagai berikut : 1. Dengan Dengan mengggun mengggunakan akan visual visual basic basic tersebut tersebut memudahka memudahkan n kita untuk membuat membuat tampilan sistem informasi produksi usaha konveksi konveksi batik Erlangga secara secara baik dan tepat penggunanya . 2.

Deng Dengan an men mengg ggun unak akan an SQL SQL Serv Server er 200 2005 5 dapa dapatt meny menyim impa pan n data data-d -dat ataa dari dari prod produk uksi si

batik tersebut dengan lebih otomatis dan tepat ke dalam database sehingga membantu kerja dalam proses administrasi.

SARAN 1.

Dalam Dalam sistem sistem inform informasi asi produk produksi si usaha usaha konvek konveksi si batik batik Erlan Erlangga gga,ma ,maka ka dibutu dibutuhka hkan n

penambahan aplikasi-aplikasi aplikasi-aplikasi lain yang dapat menyempurnakan proses dalam sistem informasi tersebut. 2.

Dika Dikare rena naka kan n meng menggu guna naka kan n soft softwa ware re mic micro roso soft ft vis visua uall basi basicc 8 dan dan micr micros osof oftt SQL SQL

Server 2005, maka di butuhkan ketelitian bagi penggunanya. penggunanya.


69

Sistem Informasi Usaha Konveksi

Recommend Documents