Scrapt Project Part 1 - 6

Button Cancel

#Region "button cancel"

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click

btnadd.Enabled = True

btnkoreksi.Enabled = False

Button1.Enabled = False

End Sub

#End Region

Cari WO Master

#Region "cari wo_master"

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

objdatatable.Clear()

ListView2.Refresh()

ListView2.Items.Clear()

If rbitemwo.Checked = False And rbprodwo.Checked = False And rbwomaster.Checked = False Then

MsgBox("Pilih dasar pencarian", MsgBoxStyle.Exclamation, "Informasi")

ElseIf rbitemwo.Checked = True And rbprodwo.Checked = False And rbwomaster.Checked = False Then

Try

cariwo(txtcariwo.Text, "itemno")

Catch ex As Exception

MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

ElseIf rbitemwo.Checked = False And rbprodwo.Checked = True And rbwomaster.Checked = False Then

Try

cariprodwo(txtcariwo.Text)

Catch ex As Exception

MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

ElseIf rbitemwo.Checked = False And rbprodwo.Checked = False And rbwomaster.Checked = True Then

Dim s1 As String = txtcariwo.Text

Dim s2 As Double = Integer.Parse(s1)

Try objcommand = New OleDbCommand

("select wono,docty,itemno,prodno,itemdes,model,color,xsize,brandname,qtyord from [VI_WOMASTER] where wono = " & s2 & "")

objcommand.Connection = mykoneksi.open

objdataadapter = New OleDbDataAdapter(objcommand)

objdataadapter.Fill(objdataset, "brand")

objdatatable = objdataset.Tables("brand")

objdatareaer = objcommand.ExecuteReader

For I = 0 To objdatatable.Rows.Count - 1

objdatareaer.Read()

With ListView2.Items.Add(objdatatable.Rows(I).Item(0))

.SubItems.Add(objdatatable.Rows(I).Item(1))

.SubItems.Add(objdatatable.Rows(I).Item(2))

.SubItems.Add(objdatatable.Rows(I).Item(3))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(4)), "", objdatatable.Rows(I).Item(4)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(5)), "", objdatatable.Rows(I).Item(5)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(6)), "", objdatatable.Rows(I).Item(6)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(7)), "", objdatatable.Rows(I).Item(7)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(8)), "", objdatatable.Rows(I).Item(8)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(9)), "", objdatatable.Rows(I).Item(9))) End With

Next I

objdatatable.Clear()

ListView2.Refresh()

ListView2.ResetText()

mykoneksi.close()

Catch ex As Exception

MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

End If Button1.Enabled = True

End Sub

#End Region