738 lines
24 KiB
Plaintext
738 lines
24 KiB
Plaintext
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.IO
|
|
Public Class mountingForm
|
|
|
|
Public mountStart As Boolean = False
|
|
Public status As Boolean = False
|
|
Public mountAfter As Boolean = False
|
|
Public reload As Boolean = False
|
|
Public qacheck As Boolean = False
|
|
Private sequence As New Sequence()
|
|
Private currentsequence As String
|
|
Private currentrev As String
|
|
Private currentline As String
|
|
Private currentmodel As String
|
|
Private currenttype As String
|
|
Private isQA As Boolean = False
|
|
Private kseqno As String
|
|
Private Sub mountingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.MdiParent = mainForm
|
|
Control.CheckForIllegalCrossThreadCalls = False
|
|
getSequence()
|
|
Timer1.Interval = 500
|
|
Timer1.Start()
|
|
Timer1.Enabled = False
|
|
btn_reload.Enabled = False
|
|
btn_Check.Enabled = False
|
|
btnComplete.Visible = False
|
|
dg.Visible = False
|
|
|
|
initializeDG()
|
|
|
|
End Sub
|
|
|
|
Private Sub getSequence()
|
|
Dim sequence As New Sequence
|
|
Dim sequenceList As New List(Of String)
|
|
Dim i As Integer = 0
|
|
|
|
cmbRev.Items.Clear()
|
|
sequenceList = sequence.getValidSequence()
|
|
cmbSeq.Items.Clear()
|
|
While i < sequenceList.Count
|
|
cmbSeq.Items.Add(sequenceList(i))
|
|
i = i + 1
|
|
End While
|
|
End Sub
|
|
|
|
Public Sub getRevisions()
|
|
Dim rev As New Sequence
|
|
Dim revList As New List(Of String)
|
|
Dim i As Integer = 0
|
|
|
|
revList = rev.getRevisions(cmbSeq.SelectedItem, cmbLine.SelectedItem, cmbModel.SelectedItem, cmbType.SelectedItem)
|
|
cmbRev.Items.Clear()
|
|
While i < revList.Count
|
|
cmbRev.Items.Add(revList(i))
|
|
i = i + 1
|
|
End While
|
|
End Sub
|
|
|
|
Public Sub getModels()
|
|
Dim rev As New Sequence
|
|
Dim revList As New List(Of String)
|
|
Dim i As Integer = 0
|
|
|
|
revList = rev.getModel(cmbSeq.SelectedItem, cmbLine.SelectedItem)
|
|
cmbModel.Items.Clear()
|
|
While i < revList.Count
|
|
cmbModel.Items.Add(revList(i))
|
|
i = i + 1
|
|
End While
|
|
End Sub
|
|
|
|
Public Sub getTypes()
|
|
Dim rev As New Sequence
|
|
Dim revList As New List(Of String)
|
|
Dim i As Integer = 0
|
|
|
|
revList = rev.getTypes(cmbSeq.SelectedItem, cmbLine.SelectedItem, cmbModel.SelectedItem)
|
|
cmbType.Items.Clear()
|
|
While i < revList.Count
|
|
cmbType.Items.Add(revList(i))
|
|
i = i + 1
|
|
End While
|
|
End Sub
|
|
|
|
Public Sub getLines()
|
|
Dim rev As New Sequence
|
|
Dim revList As New List(Of String)
|
|
Dim i As Integer = 0
|
|
|
|
revList = rev.getLines(cmbSeq.SelectedItem)
|
|
cmbLine.Items.Clear()
|
|
While i < revList.Count
|
|
cmbLine.Items.Add(revList(i))
|
|
i = i + 1
|
|
End While
|
|
End Sub
|
|
|
|
Private Sub txtStart_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtStart.KeyUp
|
|
If e.KeyCode = Keys.Enter Then
|
|
Dim fChar As String = String.Empty
|
|
Dim entry As String = txtStart.Text
|
|
Dim str() As String
|
|
|
|
If mountAfter = True Then
|
|
clear()
|
|
mountAfter = False
|
|
Timer1.Enabled = False
|
|
lbl_Pass.Visible = False
|
|
lbl_fail.Visible = False
|
|
End If
|
|
|
|
fChar = Mid(entry, 1, 1)
|
|
If entry.Contains("*") Then
|
|
txtFeeder.Text = entry.Replace("*", "")
|
|
txtStart.Text = String.Empty
|
|
txtStart.Focus()
|
|
ElseIf fChar = "@" Then
|
|
txtOperator.Text = Mid(entry, 2, Len(entry))
|
|
txtStart.Text = String.Empty
|
|
txtStart.Focus()
|
|
' ElseIf (IsNumeric(entry) And Len(entry) <> 15) Then
|
|
' txtQuantity.Text = entry
|
|
' txtStart.Text = String.Empty
|
|
' txtStart.Focus()
|
|
ElseIf IsSerialNumber(entry) Then
|
|
txtSerial.Text = entry
|
|
Dim parts As New PartsRecords(entry)
|
|
txtPartNo.Text = parts.IonicsPN
|
|
txtPartDesc.Text = parts.Description
|
|
txtLotNum.Text = parts.LotNo
|
|
txtQuantity.Text = parts.Quantity
|
|
txtStart.Text = String.Empty
|
|
txtStart.Focus()
|
|
End If
|
|
|
|
'validate inputs
|
|
If validateInput() Then
|
|
str = Split(txtFeeder.Text, "-")
|
|
If isQA = True Then txtQuantity.Text = "0"
|
|
|
|
Dim mounting As New Mounting
|
|
|
|
mounting.mDate = DateTime.Now
|
|
mounting.machine = str(0)
|
|
mounting.revision = sequence.revision
|
|
mounting.feeder = str(1)
|
|
mounting.partno = txtPartNo.Text
|
|
mounting.quantity = CDbl(txtQuantity.Text)
|
|
mounting.lotNumber = txtLotNum.Text
|
|
mounting.mOperator = txtOperator.Text
|
|
mounting.lblserial = txtSerial.Text
|
|
mounting.sequenceno = kseqno
|
|
mounting.threePL = 0
|
|
sequence.sequenceno = kseqno
|
|
|
|
If sequence.verify(txtPartNo.Text, str(0), str(1)) = True Then
|
|
lbl_Pass.Visible = True
|
|
lbl_fail.Visible = False
|
|
mounting.verify = 1
|
|
status = True
|
|
mountAfter = True
|
|
Timer1.Enabled = True
|
|
updateDGPass(txtFeeder.Text)
|
|
|
|
If loginForm.userType = "Operator" Then
|
|
If Not isQA Then
|
|
Dim parts As New PartsRecords
|
|
parts.mount(txtSerial.Text)
|
|
End If
|
|
Else
|
|
'mounting.add_hist(reload, qacheck, status)
|
|
End If
|
|
Else
|
|
lbl_Pass.Visible = False
|
|
lbl_fail.Visible = True
|
|
mounting.verify = 0
|
|
status = False
|
|
mountAfter = True
|
|
Timer1.Enabled = True
|
|
updateDGFail(txtFeeder.Text)
|
|
End If
|
|
|
|
mounting.add(reload, isQA, status)
|
|
|
|
|
|
|
|
checkComplete()
|
|
Else
|
|
txtStart.Text = String.Empty
|
|
txtStart.Focus()
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Public Shared Function IsNumeric(ByVal sText As String) As Boolean
|
|
If Double.TryParse(sText, Globalization.NumberStyles.AllowDecimalPoint) Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function IsSerialNumber(ByVal sText As String) As Boolean
|
|
Dim isPartNo As Boolean = False
|
|
Dim cnstr = mainForm.cnstr
|
|
Dim conn As New SqlConnection(cnstr)
|
|
|
|
Dim myQuery As String
|
|
myQuery = "SELECT * FROM PartsRecords WHERE SerialNum = '" & sText & "' AND (Status = 'PDN' OR Status = 'SMT')"
|
|
|
|
Dim mycommand As SqlCommand
|
|
mycommand = New SqlCommand(myQuery, conn)
|
|
|
|
Try
|
|
conn.Open()
|
|
Dim reader As SqlDataReader = mycommand.ExecuteReader()
|
|
If reader.HasRows Then
|
|
reader.Read()
|
|
If (reader("Status") = "SMT") Then
|
|
mountingForm.reload = True
|
|
Else
|
|
mountingForm.reload = False
|
|
End If
|
|
isPartNo = True
|
|
End If
|
|
reader.Close()
|
|
conn.Close()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
conn.Close()
|
|
End Try
|
|
Return isPartNo
|
|
End Function
|
|
|
|
Public Shared Function getDesc(ByVal partNum As String) As String
|
|
Dim desc As String = String.Empty
|
|
|
|
Dim cnstr = mainForm.cnstr
|
|
Dim conn As New SqlConnection(cnstr)
|
|
|
|
Dim myQuery As String
|
|
myQuery = "SELECT * FROM KPARTS WHERE KPTPARTNUM = '" & partNum & "'"
|
|
|
|
Dim mycommand As SqlCommand
|
|
mycommand = New SqlCommand(myQuery, conn)
|
|
|
|
Try
|
|
conn.Open()
|
|
Dim reader As SqlDataReader = mycommand.ExecuteReader()
|
|
reader.Read()
|
|
desc = reader("KPTDESCRIPTION")
|
|
conn.Close()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
conn.Close()
|
|
End Try
|
|
|
|
Return desc
|
|
End Function
|
|
|
|
Private Function validateInput() As Boolean
|
|
Dim valid As Boolean = False
|
|
|
|
If qacheck = True Then
|
|
If txtPartNo.Text <> "" And txtFeeder.Text <> "" And txtOperator.Text <> "" Then
|
|
valid = True
|
|
End If
|
|
Else
|
|
If txtPartNo.Text <> "" And txtFeeder.Text <> "" And txtLotNum.Text <> "" And txtQuantity.Text <> "" And txtOperator.Text <> "" Then
|
|
valid = True
|
|
End If
|
|
End If
|
|
|
|
Return valid
|
|
End Function
|
|
|
|
Private Sub clear()
|
|
txtSerial.Text = String.Empty
|
|
txtFeeder.Text = String.Empty
|
|
txtPartNo.Text = String.Empty
|
|
txtPartDesc.Text = String.Empty
|
|
txtQuantity.Text = String.Empty
|
|
txtLotNum.Text = String.Empty
|
|
txtOperator.Text = String.Empty
|
|
txtStart.Text = String.Empty
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
|
If Timer1.Enabled = True Then
|
|
If Timer1.Tag = True Then
|
|
If status = True Then
|
|
lbl_Pass.Visible = True
|
|
Else
|
|
lbl_fail.Visible = True
|
|
End If
|
|
Timer1.Tag = False
|
|
Else
|
|
If status = True Then
|
|
lbl_Pass.Visible = False
|
|
Else
|
|
lbl_fail.Visible = False
|
|
End If
|
|
Timer1.Tag = True
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btn_setSequence_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_setSequence.Click
|
|
If mountStart = False Then
|
|
If cmbSeq.SelectedItem <> "" And cmbRev.SelectedItem <> "" And cmbModel.SelectedItem <> "" And cmbLine.SelectedItem <> "" And cmbType.SelectedItem <> "" Then
|
|
kseqno = sequence.getSequenceNo(cmbSeq.SelectedItem, cmbLine.SelectedItem, cmbModel.SelectedItem, cmbType.SelectedItem, cmbRev.SelectedItem)
|
|
|
|
sequence.account = cmbSeq.SelectedItem
|
|
sequence.revision = cmbRev.SelectedItem
|
|
cmbSeq.Enabled = False
|
|
cmbRev.Enabled = False
|
|
cmbModel.Enabled = False
|
|
cmbLine.Enabled = False
|
|
cmbType.Enabled = False
|
|
btn_reload.Enabled = True
|
|
btn_Check.Enabled = True
|
|
|
|
If isQA Then
|
|
btnReload.Visible = True
|
|
Else
|
|
btnQA.Visible = True
|
|
End If
|
|
btn_setSequence.Text = "Change Sequence"
|
|
txtStart.Focus()
|
|
|
|
'If (Not currentsequence = sequence.account Or Not currentrev = sequence.revision Or Not currentmodel = sequence.model Or Not currentline = sequence.line Or Not currenttype = sequence.pcbside) Then
|
|
' qaMode()
|
|
' clear()
|
|
' Timer1.Stop()
|
|
' lbl_fail.Visible = False
|
|
' lbl_Pass.Visible = False
|
|
' btnReload.Visible = False
|
|
'Else
|
|
' checkComplete()
|
|
'End If
|
|
|
|
If (MessageBox.Show("Do you want to resume mounting sequence?", "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
|
|
checkComplete()
|
|
Else
|
|
qaMode()
|
|
clear()
|
|
Timer1.Stop()
|
|
lbl_fail.Visible = False
|
|
lbl_Pass.Visible = False
|
|
btnReload.Visible = False
|
|
End If
|
|
|
|
currentsequence = sequence.account
|
|
currentrev = sequence.revision
|
|
currentline = sequence.line
|
|
currentmodel = sequence.model
|
|
currenttype = sequence.pcbside
|
|
mountStart = True
|
|
|
|
Else
|
|
MessageBox.Show("Please select the machine and revision to use.", "Set Machine", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End If
|
|
|
|
Else
|
|
|
|
btn_setSequence.Text = "Set Sequence"
|
|
btnQA.Visible = False
|
|
cmbSeq.Enabled = True
|
|
cmbRev.Enabled = True
|
|
cmbModel.Enabled = True
|
|
cmbLine.Enabled = True
|
|
cmbType.Enabled = True
|
|
btn_reload.Enabled = False
|
|
btn_Check.Enabled = False
|
|
btnReload.Visible = False
|
|
mountStart = False
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmbSeq_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSeq.SelectedIndexChanged
|
|
getLines()
|
|
|
|
btn_reload.Enabled = False
|
|
btn_Check.Enabled = False
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_reload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reload.Click
|
|
|
|
If reload = False Then
|
|
btn_reload.Text = "Set Normal Mode"
|
|
reload = True
|
|
btn_Check.Visible = False
|
|
txtStart.Focus()
|
|
Me.BackColor = Color.HotPink
|
|
Else
|
|
btn_reload.Text = "Set Reload Mode"
|
|
reload = False
|
|
btn_Check.Visible = False
|
|
txtStart.Focus()
|
|
Me.BackColor = System.Drawing.SystemColors.Control
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
|
|
|
|
End Sub
|
|
|
|
Public Sub qaMode()
|
|
btnReload.Text = "Normal Mode"
|
|
btnComplete.Visible = True
|
|
qacheck = True
|
|
btnQA.Visible = False
|
|
btnReload.Visible = False
|
|
btn_reload.Visible = False
|
|
txtLotNum.Visible = False
|
|
Label8.Visible = False
|
|
txtQuantity.Visible = False
|
|
Label7.Visible = False
|
|
Me.BackColor = Color.Goldenrod
|
|
dg.Visible = True
|
|
fillDataSet()
|
|
fillDataGridView()
|
|
txtStart.Focus()
|
|
End Sub
|
|
|
|
Private Sub btn_Check_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Check.Click
|
|
|
|
If qacheck = False Then
|
|
qaMode()
|
|
Else
|
|
reloadMode()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub reloadMode()
|
|
btnReload.Text = "Normal Mode"
|
|
btnComplete.Visible = False
|
|
btnQA.Visible = True
|
|
btnReload.Visible = False
|
|
qacheck = False
|
|
btn_reload.Visible = False
|
|
txtLotNum.Visible = True
|
|
Label8.Visible = True
|
|
txtQuantity.Visible = True
|
|
Label7.Visible = True
|
|
Me.BackColor = System.Drawing.SystemColors.Control
|
|
dg.Visible = False
|
|
txtStart.Focus()
|
|
Dim m As New Mounting
|
|
m.addSettings(cmbLine.SelectedItem.ToString, kseqno)
|
|
End Sub
|
|
|
|
|
|
Private Sub initializeDG()
|
|
|
|
Dim Serial As New DataGridViewTextBoxColumn
|
|
Dim Feeder As New DataGridViewTextBoxColumn
|
|
Dim PartNo As New DataGridViewTextBoxColumn
|
|
Dim Status As New DataGridViewTextBoxColumn
|
|
|
|
|
|
Serial.HeaderText = "Serial"
|
|
Feeder.HeaderText = "Feeder"
|
|
PartNo.HeaderText = "PartNumber"
|
|
Status.HeaderText = "Status"
|
|
|
|
|
|
|
|
dg.Columns.Add(Feeder)
|
|
dg.Columns.Add(PartNo)
|
|
dg.Columns.Add(Status)
|
|
dg.Columns.Add(Serial)
|
|
|
|
dg.Columns(0).ReadOnly = True
|
|
dg.Columns(1).ReadOnly = True
|
|
dg.Columns(2).ReadOnly = True
|
|
dg.Columns(3).ReadOnly = True
|
|
|
|
dg.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.None
|
|
|
|
dg.Columns(0).Width = 75
|
|
dg.Columns(1).Width = 180
|
|
dg.Columns(2).Width = 100
|
|
dg.Columns(3).Width = 150
|
|
|
|
|
|
|
|
dg.Columns(0).SortMode = DataGridViewColumnSortMode.Programmatic
|
|
dg.Columns(1).SortMode = DataGridViewColumnSortMode.Programmatic
|
|
dg.Columns(2).SortMode = DataGridViewColumnSortMode.Programmatic
|
|
dg.Columns(3).SortMode = DataGridViewColumnSortMode.Programmatic
|
|
|
|
End Sub
|
|
|
|
Private Sub fillDataSet()
|
|
Dim i As Integer
|
|
Dim limit As Integer
|
|
Dim cnstr = mainForm.cnstr
|
|
Dim conn As New SqlConnection(cnstr)
|
|
Dim adapter As New SqlDataAdapter
|
|
kseqno = sequence.getSequenceNo(cmbSeq.SelectedItem, cmbLine.SelectedItem, cmbModel.SelectedItem, cmbType.SelectedItem, cmbRev.SelectedItem)
|
|
Dim myQuery As String
|
|
myQuery = "SELECT * FROM KSEQUENCE_DETAIL WHERE KSEQUENCENO = '" & kseqno & "'"
|
|
|
|
Dim mycommand As SqlCommand
|
|
mycommand = New SqlCommand(myQuery, conn)
|
|
|
|
Try
|
|
conn.Open()
|
|
adapter.SelectCommand = mycommand
|
|
ds.Clear()
|
|
adapter.Fill(ds)
|
|
i = 0
|
|
limit = ds.Tables(0).Rows.Count - 1
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
Finally
|
|
conn.Close()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub fillDataGridView()
|
|
Dim i As Integer = 0
|
|
|
|
dg.Rows.Clear()
|
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
|
dg.Rows.Add()
|
|
dg.Rows(i).Cells(0).Value = ds.Tables(0).Rows(i).Item("KSQMODULE") + "-" + ds.Tables(0).Rows(i).Item("KSQFEEDERNO")
|
|
dg.Rows(i).Cells(1).Value = ds.Tables(0).Rows(i).Item("KSQPARTNO")
|
|
dg.Rows(i).Cells(2).Value = ""
|
|
dg.Rows(i).Cells(3).Value = ""
|
|
Next
|
|
End Sub
|
|
|
|
|
|
Private Sub updateDGPass(ByVal Feeder As String)
|
|
|
|
Dim i As Integer = 0
|
|
|
|
If dg.Rows.Count > 0 Then
|
|
While i < dg.Rows.Count
|
|
If dg.Rows(i).Cells(0).Value = Feeder Then
|
|
dg.Rows(i).Cells(2).Value = "PASS"
|
|
dg.Rows(i).Cells(3).Value = txtSerial.Text
|
|
|
|
dg.Rows(i).Cells(0).Style.BackColor = Color.Green
|
|
dg.Rows(i).Cells(1).Style.BackColor = Color.Green
|
|
dg.Rows(i).Cells(2).Style.BackColor = Color.Green
|
|
dg.Rows(i).Cells(3).Style.BackColor = Color.Green
|
|
|
|
'dg.Rows(i).Selected = True
|
|
'dg.Rows(i).Cells(0).Selected = True
|
|
dg.CurrentCell = dg(0, i)
|
|
|
|
End If
|
|
i = i + 1
|
|
End While
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private sub updateDGFail(ByVal Feeder As String)
|
|
|
|
Dim i As Integer = 0
|
|
|
|
If dg.Rows.Count > 0 Then
|
|
While i < dg.Rows.Count
|
|
If dg.Rows(i).Cells(0).Value = Feeder Then
|
|
dg.Rows(i).Cells(2).Value = "FAIL"
|
|
dg.Rows(i).Cells(3).Value = txtSerial.Text
|
|
|
|
dg.Rows(i).Cells(0).Style.BackColor = Color.Red
|
|
dg.Rows(i).Cells(1).Style.BackColor = Color.Red
|
|
dg.Rows(i).Cells(2).Style.BackColor = Color.Red
|
|
dg.Rows(i).Cells(3).Style.BackColor = Color.Red
|
|
|
|
'dg.Rows(i).Selected = True
|
|
'dg.Rows(i).Cells(0).Selected = True
|
|
dg.CurrentCell = dg(0, i)
|
|
|
|
|
|
End If
|
|
i = i + 1
|
|
End While
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub btnComplete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnComplete.Click
|
|
|
|
Dim msg As String = ""
|
|
Dim i As Integer = 0
|
|
Dim t As Integer = 0
|
|
Dim p As Integer = 0
|
|
Dim f As Integer = 0
|
|
|
|
If dg.Rows.Count > 0 Then
|
|
While i < dg.Rows.Count - 1
|
|
If dg.Rows(i).Cells(2).Value <> "" Then
|
|
If dg.Rows(i).Cells(2).Value = "PASS" Then
|
|
p = p + 1
|
|
End If
|
|
If dg.Rows(i).Cells(2).Value = "FAIL" Then
|
|
f = f + 1
|
|
End If
|
|
t = t + 1
|
|
End If
|
|
i = i + 1
|
|
End While
|
|
End If
|
|
|
|
msg = vbCrLf + "RESULT :" + vbCrLf + t.ToString + " of " + i.ToString + " checked" + vbCrLf + vbCrLf + "PASSED = " + p.ToString + vbCrLf + "FAILED = " + f.ToString
|
|
myMessageBox.Show(msg)
|
|
txtStart.Focus()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub checkComplete()
|
|
|
|
Dim i As Integer = 0
|
|
Dim t As Integer = 0
|
|
|
|
|
|
If dg.Rows.Count > 0 Then
|
|
While i < dg.Rows.Count - 1
|
|
If dg.Rows(i).Cells(2).Value <> "" Then
|
|
t = t + 1
|
|
End If
|
|
i = i + 1
|
|
End While
|
|
End If
|
|
|
|
If i = t Then
|
|
'If btnComplete.Visible = False Then
|
|
'btnComplete_Click(Me, EventArgs.Empty)
|
|
' End If
|
|
|
|
If qacheck Then
|
|
btnComplete_Click(Me, EventArgs.Empty)
|
|
Dim p As Integer = 0
|
|
Dim f As Integer = 0
|
|
i = 0
|
|
t = 0
|
|
If dg.Rows.Count > 0 Then
|
|
While i < dg.Rows.Count - 1
|
|
If dg.Rows(i).Cells(2).Value <> "" Then
|
|
If dg.Rows(i).Cells(2).Value = "PASS" Then
|
|
p = p + 1
|
|
End If
|
|
If dg.Rows(i).Cells(2).Value = "FAIL" Then
|
|
f = f + 1
|
|
End If
|
|
t = t + 1
|
|
End If
|
|
i = i + 1
|
|
End While
|
|
End If
|
|
|
|
If f = 0 Then
|
|
MsgBox("Complete!", MsgBoxStyle.OkOnly)
|
|
clear()
|
|
reloadMode()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub dg_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg.CellContentClick
|
|
txtStart.Focus()
|
|
End Sub
|
|
|
|
Private Sub dg_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg.CellClick
|
|
txtStart.Focus()
|
|
End Sub
|
|
|
|
Private Sub dg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg.Click
|
|
txtStart.Focus()
|
|
End Sub
|
|
|
|
|
|
Private Sub cmbPlant_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
getSequence()
|
|
End Sub
|
|
|
|
Private Sub chkstart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkstart.CheckedChanged
|
|
If chkstart.Checked = True Then
|
|
fillDataSet()
|
|
fillDataGridView()
|
|
txtStart.Focus()
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
|
|
'qacheck = False
|
|
isQA = False
|
|
reloadMode()
|
|
clear()
|
|
End Sub
|
|
|
|
Private Sub btnQA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQA.Click
|
|
isQA = True
|
|
qaMode()
|
|
clear()
|
|
btnReload.Visible = True
|
|
End Sub
|
|
|
|
Private Sub cmbLine_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLine.SelectedIndexChanged
|
|
getModels()
|
|
End Sub
|
|
|
|
Private Sub cmbRev_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRev.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub cmbModel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbModel.SelectedIndexChanged
|
|
getTypes()
|
|
End Sub
|
|
|
|
Private Sub cmbType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbType.SelectedIndexChanged
|
|
getRevisions()
|
|
End Sub
|
|
End Class |