Scrapt Project Part 1 - 5

Button Pilih

#Region "button pilih"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If tp2.Visible = True And tp3.Visible = False Then

Dim str As String = ListView1.SelectedItems(0).SubItems.Item(1).Text

txtwo.Text = ListView1.SelectedItems(0).SubItems.Item(1).Text

'txt(xrecno)wono,itemno,prodno,datein,prio,depsend,qtydest,qtysf,qtyinst,qtyqa,

'other(, depcause),remark,hapus

txtitem.Text = ListView1.SelectedItems(0).SubItems.Item(2).Text

txtprod.Text = ListView1.SelectedItems(0).SubItems.Item(3).Text

txtdate.Text = ListView1.SelectedItems(0).SubItems.Item(4).Text

cbprioritas.Text = ListView1.SelectedItems(0).SubItems.Item(5).Text

cbdept.Text = ListView1.SelectedItems(0).SubItems.Item(6).Text

txtdestroy.Text = ListView1.SelectedItems(0).SubItems.Item(7).Text

txtsf.Text = ListView1.SelectedItems(0).SubItems.Item(8).Text

txtinstan.Text = ListView1.SelectedItems(0).SubItems.Item(9).Text

txtqa.Text = ListView1.SelectedItems(0).SubItems.Item(10).Text

txtother.Text = ListView1.SelectedItems(0).SubItems.Item(11).Text

cbdepcause.Text = ListView1.SelectedItems(0).SubItems.Item(12).Text

txtremark.Text = ListView1.SelectedItems(0).SubItems.Item(13).Text

tp2.SendToBack()

tp1.BringToFront()

tp1.Show()

btnadd.Text = "Koreksi"

ElseIf tp2.Visible = False And tp3.Visible = True Then

txtwo.Text = ListView2.SelectedItems(0).SubItems.Item(0).Text

txtwo1.Text = ListView2.SelectedItems(0).SubItems.Item(1).Text

txtitem.Text = ListView2.SelectedItems(0).SubItems.Item(2).Text

txtprod.Text = ListView2.SelectedItems(0).SubItems.Item(3).Text

txtdesc.Text = ListView2.SelectedItems(0).SubItems.Item(4).Text

txtmodel.Text = ListView2.SelectedItems(0).SubItems.Item(5).Text

txtcolor.Text = ListView2.SelectedItems(0).SubItems.Item(6).Text

txtsize.Text = ListView2.SelectedItems(0).SubItems.Item(7).Text

txtcollec.Text = ListView2.SelectedItems(0).SubItems.Item(8).Text

txtqty.Text = ListView2.SelectedItems(0).SubItems.Item(9).Text

tp3.SendToBack()

tp1.BringToFront()

tp1.Show()

btnadd.Text = "Add"

End If End Sub

#End Region

Button Add

#Region "button add"

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click

If btnadd.Text = "Koreksi" Then

txtwo.ReadOnly = True

txtwo1.ReadOnly = True

txtitem.ReadOnly = True

txtprod.ReadOnly = True

txtdesc.ReadOnly = True

txtmodel.ReadOnly = True

txtcolor.ReadOnly = True

txtsize.ReadOnly = True

txtcollec.ReadOnly = True

txtqty.ReadOnly = True

txtdate.Enabled = True

cbprioritas.Enabled = True

cbdepcause.Enabled = True

txttotal.Enabled = True

txttotal.Enabled = True

txtdestroy.Enabled = True

txtsf.Enabled = True

txtinstan.Enabled = True

txtqa.Enabled = True

txtother.Enabled = True

cbdepcause.Enabled = True

txtremark.Enabled = True

cbdept.Enabled = True

txtwo.Focus()

btnkoreksi.Text = "Update"

Else txtwo.ReadOnly = True

txtwo1.ReadOnly = True

txtitem.ReadOnly = True

txtprod.ReadOnly = True

txtdesc.ReadOnly = True

txtmodel.ReadOnly = True

txtcolor.ReadOnly = True

txtsize.ReadOnly = True

txtcollec.ReadOnly = True

txtqty.ReadOnly = True

txtdate.Enabled = True

cbprioritas.Enabled = True

cbdepcause.Enabled = True

txttotal.Enabled = True

txttotal.Enabled = True

txtdestroy.Enabled = True

txtsf.Enabled = True

txtinstan.Enabled = True

txtqa.Enabled = True

txtother.Enabled = True

cbdepcause.Enabled = True

txtremark.Enabled = True

cbdept.Enabled = True

txtdate.Focus()

btnkoreksi.Enabled = True

btnkoreksi.Text = "Save"

btnadd.Enabled = False

End If

Button Koreksi

#Region "button koreksi"

Private Sub btnkoreksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoreksi.Click

Try

If btnkoreksi.Text = "Update" Then

myinsert.updatescrapt(txtwo.Text, txtitem.Text, txtprod.Text, txtdate.Text, cbprioritas.Text, cbdept.Text, txtdestroy.Text, txtsf.Text, txtinstan.Text, txtqa.Text, txtother.Text, cbdepcause.Text, txtremark.Text, "F")

MsgBox("Sukses melakukan Update")

ElseIf btnkoreksi.Text = "Save" Then

myinsert.insertscrapt(txtwo.Text, txtitem.Text, txtprod.Text, txtdate.Text, cbprioritas.Text, cbdept.Text, txtdestroy.Text, txtsf.Text, txtinstan.Text, txtqa.Text, txtother.Text, cbdepcause.Text, txtremark.Text, "F")

MsgBox("Sukses melakukan simpan")

End If

Catch ex As Exception

MsgBox("Konek ke databse gagal" & vbCrLf & ex.Message)

End Try

End Sub

#End Region

Button WO

#Region "buttonwo"

Private Sub btnwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnwo.Click

tp1.SendToBack()

tp2.SendToBack()

tp1.Visible = False

tp2.Visible = False

tp3.BringToFront()

tp3.Visible = True

tp3.Show()

rbwomaster.Checked = True

txtcariwo.Focus()

End Sub

#End Region