LAMPIRAN 1 BRAINSTORMING PEMBUATAN FISHBONE DIAGRAM

228   

LAMPIRAN 1 BRAINSTORMING PEMBUATAN FISHBONE DIAGRAM

1. Jenis Cacat Ripping Material P : Dari hasil pengamatan dan perhitungan, jenis cacat terbesar adalah cacat Ripping material. Menurut Anda, apa saja penyebab terjadinya cacat tersebut bila dilihat dari berbagai faktor, misalnya faktor manusia? A : Dari faktor manusia, cacat potong itu bisa karena budaya kerja dan tanggung jawab operator yang kurang baik. Misalnya mereka saling mengobrol dengan teman sesama pekerja atau bisa juga mereka kurang teliti. B : Kadang-kadang juga mereka tidak konsentrasi, sehingga cacat tersebut bisa terjadi. P : Oh begitu. Bagaimana kalau dari faktor mesin? A : Dari faktor mesin, biasanya karena mesin macet atau rusak. Maklum, di sini mesinnya sudah banyak yang tua, apalagi kalau perawatan mesin tidak rutin. Mesin baru juga kalau perawatan tidak rutin, mesin bisa gampang rusak. P : Bagaimana kalau dari faktor material, apa penyebab cacat potong dari faktor ini? C : Faktor cukup pengaruh, apalagi kalau supplier mengirimkan bahan baku yang kualitasnya sudah buruk, ya kita tidak bisa protes karena dari awal tidak ada permintaan rinci. P : Bagaimana dari segi lingkungan, lingkungan kerjanya mungkin menyebabkan cacat ini terjadi? A : Kalau dari lingkungan, paling ya berdebu. Lingkungan kerjanya memang berdebu, baik dari benang ataupun serat-serat kain, bisa juga dari udaranya. P : Kalau dari segi metode, misalnya perpindahan materialnya atau metode kerja lainnya, apakah ada yang bisa menyebabkan cacat potong?

229   

B : bisa aja sih, tapi kemungkinannya kecil. P : Baik, kayaknya cukup untuk cacat potong. Terima kasih atas informasinya.

2. Jenis Cacat Missing Sewing P : Jenis cacat lainnya dengan jumlah cukup besar adalah cacat salah jahit. Menurut Anda, apa saja penyebab terjadinya cacat tersebut bila dilihat dari faktor manusia? B : Tampaknya manusia menjadi penyebab utama untuk jenis cacat ini. Penyebabnya ya karena pekerja bekerja dengan buru-buru, tidak teliti, suka ngobrol, tidak bersemangat, dan lainnya yang merupakan masalah klasik manusia. P : Bagaimana pengaruh skill, apakah ada hubungan antara skill rendah dengan cacat salah jahit? B : Mungkin saja P : Bagaimana kalau dari faktor mesin? C : Sebenarnya mesin cukup berpengaruh. Bisa saja umur mesin yang sudah tua mempengaruhi kualitas hasil jahit. Adanya patah jarum juga mempengaruhi, kain bisa jadi terlihat bolong sehingga tentu jadi kurang baik. P : Selain itu, dari material yang lain seperti benang jahit atau jarum jahit, ada pengaruh atau tidak? A : Dari jarum jahit sih tidak pengaruh, itu lebih ke faktor mesin. Kalau dari benang jahit berpengaruh, kalau kualitas benag jahitnya jelek jadi sering putus dan mempengaruhi hasil jahitan. P : Oh... Lalu bagaimana jika dilihat dari faktor lingkungan kerja? A: Lingkungan kerja sih cukup baik, penerangan juga cukup. Tapi agak panas dan berisik, mungkin ini bisa menurunkan semangat kerja. Belum lagi kalau ada tekanan karena order sedang banyak, mereka jadi buru-buru dan banyak BS.

230   

P : Yang terakhir, apa penyebab cacat salah jahit dari segi metode kerjanya? Apakah metode kerja juga mempengaruhi timbulnya cacat? C : Metode kerja itu contohnya bagaimana? P : Misalnya dari proses penjahitan atau urutan proses kerja yang benar. C : Ya bisa. Dari proses penjahitan, untuk proses jahit yang sulit biasanya lebih sering terjadi cacat. Untuk urutan proses kerja sudah benar dan tidak berpengaruh pada cacat. P : Baiklah, cukup sekian dulu. Terima kasih banyak atas informasi dan waktu yang disediakan. A, B, C : Sama-sama, semoga sukses.

 

231   

LAMPIRAN 2 CONTOH LAPORAN SISTEM INFORMASI PENGENDALIAN KUALITAS 1. Contoh Laporan Data Reject Harian

232   

LAMPIRAN 3 Form Pilih Private Sub Command1_Click() login.Show End Sub

Private Sub Command2_Click() login1.Show End Sub

Private Sub Command3_Click() login2.Show End Sub

Private Sub mne_Click() Unload Me End Sub

Login Staff QC Private Sub Command1_Click() If Text1.Text = Data1.Recordset!User_ID And Text2.Text = Data1.Recordset!Password Then menu.Show

233   

Unload Me Else X = MsgBox("Password Salah....", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load()

End Sub

Login Manager Private Sub Command1_Click() If Text1.Text = Data1.Recordset!User_ID And Text2.Text = Data1.Recordset!Password Then menu1.Show Unload Me Else

234   

X = MsgBox("Password Salah....", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If

End Sub

Private Sub Command2_Click() Unload Me End Sub

Login Staff Produksi Private Sub Command1_Click() If Text1.Text = Data1.Recordset!User_ID And Text2.Text = Data1.Recordset!Password Then menu2.Show Unload Me Else X = MsgBox("Password Salah....", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If

235   

End Sub

Private Sub Command2_Click() Unload Me End Sub

Menu Utama Private Sub mc_Click() change_password.Show End Sub

Private Sub mnd_Click() master_defect.Show End Sub

Private Sub mndf_Click() search_defect.Show End Sub

Private Sub mne_Click() Unload Me End Sub

236   

Private Sub mnfb_Click() fishbone.Show End Sub

Menu Utama 1 Private Sub mc_Click() change_password2.Show End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub mnu_Click() master_user1.Show End Sub

Private Sub mp_Click() master_product.Show End Sub

Private Sub mp1_Click() search_product.Show End Sub

237   

Menu Utama 2 Private Sub mc_Click() change_password1.Show End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub mp_Click() input_production.Show End Sub

Private Sub mu_Click() master_user2.Show End Sub

Master User Private Sub Form_Load() Combo1.AddItem "Staff QC" Combo1.AddItem "Manager" Combo1.AddItem "Staff Production" End Sub

238   

Private Sub mnc_Click() X = MsgBox("Yakin tidak ingin menyimpan data?", vbQuestion, "Warning") If X = vbOK Then bersih End If End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub mne_Click() Unload Me End Sub Sub bersih() Text1.Text = "" Text2.Text = "" Combo1.Text = "" Text1.SetFocus End Sub

239   

Private Sub mns_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !User_ID = Text1.Text !Password = Text2.Text !Type = Combo1.Text .Update End With End If bersih End Sub

Master User 1 Private Sub Form_Load() Combo1.AddItem "Staff QC" Combo1.AddItem "Manager" Combo1.AddItem "Staff Production"

End Sub

Private Sub mc_Click() X = MsgBox("Yakin tidak ingin menyimpan data?", vbQuestion, "Warning")

240   

If X = vbOK Then bersih End If End Sub

Private Sub md_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub ms_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !User_ID = Text1.Text !Password = Text2.Text !Type = Combo1.Text

241   

.Update End With End If bersih End Sub Sub bersih() Text1.Text = "" Text2.Text = "" Combo1.Text = "" Text1.SetFocus

Master User 2 Private Sub Form_Load() Combo1.AddItem "Staff QC" Combo1.AddItem "Manager" Combo1.AddItem "Staff Production"

End Sub

Private Sub mc_Click() X = MsgBox("Yakin tidak ingin menyimpan data?", vbQuestion, "Warning") If X = vbOK Then bersih End If

242   

End Sub

Private Sub md_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub ms_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !User_ID = Text1.Text !Password = Text2.Text !Type = Combo1.Text .Update End With End If

243   

bersih End Sub

Master Defect Private Sub mnc_Click() X = MsgBox("Yakin tidak ingin menyimpan data?", vbQuestion, "Warning") If X = vbOK Then bersih End If End Sub Sub bersih() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text1.SetFocus End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If

244   

End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub mns_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !tanggal = Label5.Caption !Defect_ID = Text1.Text !Defect_Description = Text2.Text !Potential_Mode = Text3.Text !Potential_Effect = Text4.Text !Quantity = Text5.Text .Update End With End If bersih End Sub

Private Sub Timer1_Timer()

245   

Dim tanggal As Variant tanggal = Now Label5.Caption = Format(tanggal, "dd-mm-yyyy") End Sub

Input Defect Private Sub maret_Click() Form4.Show End Sub

Private Sub mc_Click() cek.Show End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub mei_Click() Form6.Show End Sub

246   

Private Sub mnc_Click() X = MsgBox("CANCEL", vbOKOnly, "Warning") If X = vbOK Then bersih End If

End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If

End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub mnp_Click() Form1.Show End Sub

247   

Private Sub mns_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !Product_ID = Text1.Text !Defect_ID = Text2.Text !Potential_Cause = Text3.Text !Factor = Text4.Text !Quantity = Text5.Text .Update End With End If bersih

End Sub

Private Sub mr1_Click() Form1.Show End Sub

Search Defect Private Sub mnc_Click()

248   

Text1.Text = "" Label2.Caption = "" Text1.SetFocus End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If

End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub Text2_Click() End Sub

Private Sub mns_Click() cari = "Defect_ID = '" & Text1.Text & "'" Data1.Recordset.FindFirst cari If Data1.Recordset.NoMatch Then

249   

X = MsgBox("Data Tidak Ada", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text1.SetFocus Else Text1.Text = Data1.Recordset!Defect_ID Label2.Caption = Data1.Recordset!Defect_Description End If

End Sub

Form Cek Private Sub Command1_Click() If Text1.Text >= Text2.Text Then X = MsgBox("GOOD !!", vbInformation + vbOKOnly, "WARNING") Else X = MsgBox("REJECT !!", vbInformation + vbOKOnly, "WARNING") Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End If End Sub

Private Sub Form_Load()

250   

End Sub

Private Sub me_Click() Unload Me End Sub

Change Password Private Sub mnd_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .Edit !User_ID = Text1.Text !Password = Text2.Text !Type = Text3.Text .Update End With End If bersih End Sub

Private Sub mne_Click() Unload Me

251   

End Sub

Private Sub mns_Click() cari = "User_ID = '" & Text1.Text & "'" Data1.Recordset.FindFirst cari If Data1.Recordset.NoMatch Then X = MsgBox("Data Tidak Ada", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text1.SetFocus Else Text1.Text = Data1.Recordset!User_ID Text2.Text = Data1.Recordset!Password Text3.Text = Data1.Recordset!Type End If

End Sub

Report Defect Dim Report As New report_defect

Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean)

End Sub

252   

Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth

End Sub

Report Defect 1 Dim Report As New CrystalReport1

Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean)

End Sub

Private Sub Form_Load()

253   

Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth

End Sub

Master Product Private Sub mnc_Click() X = MsgBox("Yakin tidak ingin menyimpan data?", vbQuestion, "Warning") If X = vbOK Then bersih End If End Sub Sub bersih() Text1.Text = ""

254   

Text2.Text = "" Combo1.Text = "" Text3.Text = "" Text1.SetFocus End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub mns_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew !tanggal = Label5.Caption !Product_ID = Text1.Text

255   

!Description = Text2.Text !Size = Combo1.Text !Quantity = Text3.Text .Update End With End If bersih End Sub

Private Sub Timer1_Timer() Dim tanggal As Variant tanggal = Now Label5.Caption = Format(tanggal, "dd-mm-yyyy") End Sub

Input Production Private Sub Form_Load() Combo1.AddItem "Januari" Combo1.AddItem "Februari" Combo1.AddItem "Maret" Combo1.AddItem "April" Combo1.AddItem "Mei" Combo1.AddItem "Juni" Combo1.AddItem "Juli"

256   

Combo1.AddItem "Agustus" Combo1.AddItem "September" Combo1.AddItem "Oktober" Combo1.AddItem "November" Combo1.AddItem "Desember" End Sub

Private Sub maret_Click() Form2.Show End Sub

Private Sub me_Click() Unload Me End Sub

Private Sub mei_Click() Form8.Show End Sub

Private Sub ml_Click() Form3.Show End Sub

257   

Private Sub mnc_Click() X = MsgBox("CLEAR", vbOKOnly, "Warning") If X = vbOK Then bersih End If End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub mns_Click() X = MsgBox("Ingin Simpan Data ?", vbOKCancel + vbQuestion, "Informasi") If X = vbOK Then With Data1.Recordset .AddNew

258   

!tanggal = Label5.Caption !Product_ID = Text2.Text !Month = Text1.Text !Year = Text3.Text !Quantity = Text4.Text .Update End With End If bersih Data1.Refresh End Sub

Private Sub Timer1_Timer() Dim tanggal As Variant tanggal = Now Label5.Caption = Format(tanggal, "dd-mm-yyyy")

End Sub

Search Product Private Sub mnc_Click() Text1.Text = "" Label2.Caption = "" Text1.SetFocus

259   

End Sub

Private Sub mnd_Click() X = MsgBox("Hapus Data !", vbOKCancel + vbQuestion, "Warning") If X = vbOK Then Data1.Recordset.Delete End If End Sub

Private Sub mne_Click() Unload Me End Sub

Private Sub Text2_Click()

End Sub

Private Sub mns_Click() cari = "Product_ID='" & Text1.Text & "'" Data1.Recordset.FindFirst cari If Data1.Recordset.NoMatch Then X = MsgBox("Data Tidak Ada", vbInformation + vbOKOnly, "Warning") Text1.Text = "" Text1.SetFocus

260   

Else Text1.Text = Data1.Recordset!Product_ID Label2.Caption = Data1.Recordset!Description End If End Sub

Report Production Dim Report As New report_production

Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean)

End Sub

Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0

261   

CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth

End Sub

Crystal Report Production Dim Report As New CrystalReport2

Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth

End Sub

262   

SURAT SURVEY

263   

KARTU MATA KULIAH