Compare commits
No commits in common. "lowProdBranch" and "master" have entirely different histories.
lowProdBra
...
master
@ -1,9 +1,8 @@
|
||||
Imports System.Drawing.Imaging
|
||||
Imports System.Drawing.Imaging
|
||||
Imports System.IO
|
||||
Imports System.IO.Ports
|
||||
Imports System.Math
|
||||
Imports System.Threading
|
||||
Imports Mysqlx.XDevAPI.Relational
|
||||
|
||||
Public Class mainForm
|
||||
Private Enum formModList
|
||||
@ -218,8 +217,6 @@ Public Class mainForm
|
||||
|
||||
Private cartSerial(prodTypeList.cartEtc) As String
|
||||
Private TDUseCompare As Boolean
|
||||
Private LDMUseCompare As Boolean
|
||||
Private RfEpOnlyCompare As Boolean
|
||||
Private searchType As String
|
||||
Private colorType As String
|
||||
Private deviceType As String
|
||||
@ -306,7 +303,7 @@ Public Class mainForm
|
||||
|
||||
Private Sub startSetting()
|
||||
Const programName As String = "MAXIMUM FUNCTION DATA INFO VER."
|
||||
Const programVer As String = "2.0.3"
|
||||
Const programVer As String = "2.0.1"
|
||||
Me.Text = programName & programVer
|
||||
Me.Size = New Size(1920, 1060)
|
||||
Me.Location = New Point(0, 0)
|
||||
@ -572,7 +569,7 @@ Public Class mainForm
|
||||
Return False
|
||||
End If
|
||||
|
||||
If ckbopV1.Checked = True And modelCompare() <> "ALTO" And modelCompare() <> "NEMO" And modelCompare() <> "MAREUMMO" Then
|
||||
If ckbopV1.Checked = True And modelCompare() <> "ALTO" Then
|
||||
If v1BeforeHifu() Then
|
||||
Return False
|
||||
End If
|
||||
@ -584,7 +581,7 @@ Public Class mainForm
|
||||
If prodSerialHIFU() Then '' hifu 테스트 결과 검색
|
||||
Return False
|
||||
End If
|
||||
If modelCompare() = "MAXIMUM" Or modelCompare() = "OYWON" Or modelCompare() = "WON" Then
|
||||
If modelCompare() = "MAXIMUM" Then
|
||||
If prodSerialRF() Then '' rf 테스트 결과 검색
|
||||
Return False
|
||||
End If
|
||||
@ -615,7 +612,6 @@ Public Class mainForm
|
||||
txbReCount.Text = DBQueryScalar(DBCmd)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function saveCsvData(prodSerial As String) As Boolean '엑셀 파일로 저장'
|
||||
Try
|
||||
If ckbExcel.Checked = True Then
|
||||
@ -818,15 +814,7 @@ Public Class mainForm
|
||||
Dim regDate As String = Format(Now, "yyyy") & "-" & Format(Now, "MM") & "-" & Format(Now, "dd")
|
||||
Dim regTime As String = Format(Now, "HH") & ":" & Format(Now, "mm") & ":" & Format(Now, "ss")
|
||||
|
||||
If TDUseCompare = True Then
|
||||
DBCmd = "UPDATE " & applyCartDB & " SET LastQC_Date = '" & regDate & "', LastQC_Time = '" & regTime & "' WHERE Product_SN = '" & prodSerial & "'"
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "UPDATE " & ApplyLdmDB & " SET LastQC_Date = '" & regDate & "', LastQC_Time = '" & regTime & "' WHERE Product_SN = '" & prodSerial & "'"
|
||||
Else
|
||||
DBCmd = "UPDATE " & applyNonTDDB & " SET LastQC_Date = '" & regDate & "', LastQC_Time = '" & regTime & "' WHERE Product_SN = '" & prodSerial & "'"
|
||||
End If
|
||||
|
||||
|
||||
DBCmd = "UPDATE " & applyCartDB & " SET LastQC_Date = '" & regDate & "', LastQC_Time = '" & regTime & "' WHERE Product_SN = '" & prodSerial & "'"
|
||||
|
||||
If DBCommand(DBCmd) Then
|
||||
dataOkNg(dbRegList.DBALL) = True
|
||||
@ -838,13 +826,7 @@ Public Class mainForm
|
||||
End Function
|
||||
|
||||
Private Function v1BeforeRF() As Boolean
|
||||
Dim table As String
|
||||
If LDMUseCompare Then
|
||||
table = ApplyLdmDB
|
||||
Else
|
||||
table = applyCartDB
|
||||
End If
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,CHAR) FROM " & table & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,CHAR) FROM " & applyCartDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
txbRDate_M1.Text = sqlDataQuery(0)
|
||||
txbRTime_M1.Text = sqlDataQuery(1)
|
||||
@ -873,55 +855,105 @@ DataFail:
|
||||
End Function
|
||||
|
||||
Private Function prodSerialRF() As Boolean
|
||||
DBCmd = "SELECT CONVERT(TestDate,CHAR),CONVERT(TestTime,CHAR),RF_R1Vrms,RF_R1Freq,RF_R2Vrms,RF_R2Freq,RF_R3Vrms,RF_R3Freq,EP_R1Vpp,EP_R1Freq,EP_R1PWidth,EP_R1NWidth,EP_R2Vpp,EP_R2Freq,EP_R2PWidth,EP_R2NWidth,EP_R3Vpp,EP_R3Freq,EP_R3PWidth,EP_R3NWidth,MC_R1Wave,MC_R1Vpp,MC_R1Freq,MC_R2Wave,MC_R2Vpp,MC_R2Freq FROM " & applyRFDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
|
||||
If RfEpOnlyCompare = True Then
|
||||
'' RF, MC 제외 EP 검사만 하는 경우
|
||||
DBCmd = "SELECT CONVERT(TestDate,CHAR),CONVERT(TestTime,CHAR),EP_R1Vpp,EP_R1Freq,EP_R1PWidth,EP_R1NWidth,EP_R2Vpp,EP_R2Freq,EP_R2PWidth,EP_R2NWidth,EP_R3Vpp,EP_R3Freq,EP_R3PWidth,EP_R3NWidth FROM " & applyRFDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
|
||||
If DBQueryReader(DBCmd) Then
|
||||
If sqlDataQuery.Length - 1 = 13 Then
|
||||
rfReadData(0) = sqlDataQuery(0)
|
||||
rfReadData(1) = sqlDataQuery(1)
|
||||
For i = 2 To 7
|
||||
rfReadData(i) = "NULL"
|
||||
Next
|
||||
For i = 0 To 11
|
||||
rfReadData(rfDataList.epR1Vpp + i) = sqlDataQuery(2 + i)
|
||||
Next
|
||||
For i = 20 To 25
|
||||
rfReadData(i) = "NULL"
|
||||
Next
|
||||
If rfDataList.mcR2Freq = sqlDataQuery.Length - 1 Then
|
||||
For i = 0 To rfDataList.mcR2Freq
|
||||
rfReadData(i) = sqlDataQuery(i)
|
||||
Next
|
||||
|
||||
For i = 0 To rfDataList.rfR2Vrms_txb3
|
||||
Dim oKNG As Boolean = False
|
||||
For i = 0 To rfDataList.rfR2Vrms_txb3
|
||||
Dim oKNG As Boolean = False
|
||||
|
||||
If TDUseCompare = True Then
|
||||
|
||||
Select Case i
|
||||
Case rfDataList.rfR1Vrms_txb1
|
||||
rfReadData(i) = "N/A"
|
||||
oKNG = True
|
||||
If Val(rfReadData(rfDataList.rfR1Vrms_txb1)) >= Val(txboptg1_VrMin.Text) And Val(rfReadData(rfDataList.rfR1Vrms_txb1)) <= Val(txboptg1_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR1Freq_txb2)) >= Val(txboptg1_FrMin.Text) And Val(rfReadData(rfDataList.rfR1Freq_txb2)) <= Val(txboptg1_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Vrms_txb3)) >= Val(txboptg2_VrMin.Text) And Val(rfReadData(rfDataList.rfR2Vrms_txb3)) <= Val(txboptg2_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Freq)) >= Val(txboptg2_FrMin.Text) And Val(rfReadData(rfDataList.rfR2Freq)) <= Val(txboptg2_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Vrms)) >= Val(txboptg3_VrMin.Text) And Val(rfReadData(rfDataList.rfR3Vrms)) <= Val(txboptg3_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Freq)) >= Val(txboptg3_FrMin.Text) And Val(rfReadData(rfDataList.rfR3Freq)) <= Val(txboptg3_FrMax.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Case rfDataList.rfR1Freq_txb2
|
||||
rfReadData(i) = "N/A"
|
||||
oKNG = True
|
||||
|
||||
If Val(rfReadData(rfDataList.mcR1Wave)) >= Val(txbopdy1_DtMin.Text) And Val(rfReadData(rfDataList.mcR1Wave)) <= Val(txbopdy1_DtMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR1Vpp)) >= Val(txbopdy1_VpMin.Text) And Val(rfReadData(rfDataList.mcR1Vpp)) <= Val(txbopdy1_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR1Freq)) >= Val(txbopdy1_FrMin.Text) And Val(rfReadData(rfDataList.mcR1Freq)) <= Val(txbopdy1_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Wave)) >= Val(txbopdy2_DtMin.Text) And Val(rfReadData(rfDataList.mcR2Wave)) <= Val(txbopdy2_DtMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Vpp)) >= Val(txbopdy2_VpMin.Text) And Val(rfReadData(rfDataList.mcR2Vpp)) <= Val(txbopdy2_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Freq)) >= Val(txbopdy2_FrMin.Text) And Val(rfReadData(rfDataList.mcR2Freq)) <= Val(txbopdy2_FrMax.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case rfDataList.rfR2Vrms_txb3
|
||||
If TDUseCompare = True Then
|
||||
If Val(rfReadData(rfDataList.epR1Vpp)) >= Val(txbopcs1_VpMin.Text) And Val(rfReadData(rfDataList.epR1Vpp)) <= Val(txbopcs1_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR1Freq)) >= Val(txbopcs1_FrMin.Text) And Val(rfReadData(rfDataList.epR1Freq)) <= Val(txbopcs1_FrMax.Text) Then
|
||||
Dim pnWidth As Single = Val(rfReadData(rfDataList.epR1PWidth)) - Val(rfReadData(rfDataList.epR1NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs1_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Vpp)) >= Val(txbopcs2_VpMin.Text) And Val(rfReadData(rfDataList.epR2Vpp)) <= Val(txbopcs2_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Freq)) >= Val(txbopcs2_FrMin.Text) And Val(rfReadData(rfDataList.epR2Freq)) <= Val(txbopcs2_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR2PWidth)) - Val(rfReadData(rfDataList.epR2NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs2_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Vpp)) >= Val(txbopcs3_VpMin.Text) And Val(rfReadData(rfDataList.epR3Vpp)) <= Val(txbopcs3_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Freq)) >= Val(txbopcs3_FrMin.Text) And Val(rfReadData(rfDataList.epR3Freq)) <= Val(txbopcs3_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR3PWidth)) - Val(rfReadData(rfDataList.epR3NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs3_DyRg.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
If Val(rfReadData(rfDataList.epR1Vpp)) >= Val(txbopcs1_VpMin.Text) And Val(rfReadData(rfDataList.epR1Vpp)) <= Val(txbopcs1_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR1Freq)) >= Val(txbopcs1_FrMin.Text) And Val(rfReadData(rfDataList.epR1Freq)) <= Val(txbopcs1_FrMax.Text) Then
|
||||
Dim pnWidth As Single = Val(rfReadData(rfDataList.epR1PWidth)) - Val(rfReadData(rfDataList.epR1NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs1_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Vpp)) >= Val(txbopcs2_VpMin.Text) And Val(rfReadData(rfDataList.epR2Vpp)) <= Val(txbopcs2_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Freq)) >= Val(txbopcs2_FrMin.Text) And Val(rfReadData(rfDataList.epR2Freq)) <= Val(txbopcs2_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR2PWidth)) - Val(rfReadData(rfDataList.epR2NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs2_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Vpp)) >= Val(txbopcs3_VpMin.Text) And Val(rfReadData(rfDataList.epR3Vpp)) <= Val(txbopcs3_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Freq)) >= Val(txbopcs3_FrMin.Text) And Val(rfReadData(rfDataList.epR3Freq)) <= Val(txbopcs3_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR3PWidth)) - Val(rfReadData(rfDataList.epR3NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs3_DyRg.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
@ -954,275 +986,125 @@ DataFail:
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case Else
|
||||
oKNG = True
|
||||
End Select
|
||||
|
||||
dataResult(rfReadTxb(i), rfReadData(i), oKNG)
|
||||
Next
|
||||
Else
|
||||
|
||||
Select Case i
|
||||
Case rfDataList.rfR1Vrms_txb1
|
||||
If Val(rfReadData(rfDataList.rfR1Vrms_txb1)) >= Val(txboptg1_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR1Vrms_txb1)) <= Val(txboptg1_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR1Freq_txb2)) >= Val(txboptg1_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR1Freq_txb2)) <= Val(txboptg1_FrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Vrms_txb3)) >= Val(txboptg2_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR2Vrms_txb3)) <= Val(txboptg2_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Freq)) >= Val(txboptg2_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR2Freq)) <= Val(txboptg2_FrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Vrms)) >= Val(txboptg3_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR3Vrms)) <= Val(txboptg3_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Freq)) >= Val(txboptg3_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR3Freq)) <= Val(txboptg3_FrMaxAT.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Case rfDataList.rfR1Freq_txb2
|
||||
|
||||
rfReadData(i) = "NULL"
|
||||
oKNG = True
|
||||
|
||||
Case rfDataList.rfR2Vrms_txb3
|
||||
|
||||
If Val(rfReadData(rfDataList.epR1Vpp)) >= Val(txbopcs1_VpMinAT.Text) And Val(rfReadData(rfDataList.epR1Vpp)) <= Val(txbopcs1_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR1Freq)) >= Val(txbopcs1_FrMinAT.Text) And Val(rfReadData(rfDataList.epR1Freq)) <= Val(txbopcs1_FrMaxAT.Text) Then
|
||||
Dim pnWidth As Single = Val(rfReadData(rfDataList.epR1PWidth)) - Val(rfReadData(rfDataList.epR1NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs1_DyRgAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Vpp)) >= Val(txbopcs2_VpMinAT.Text) And Val(rfReadData(rfDataList.epR2Vpp)) <= Val(txbopcs2_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Freq)) >= Val(txbopcs2_FrMinAT.Text) And Val(rfReadData(rfDataList.epR2Freq)) <= Val(txbopcs2_FrMaxAT.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR2PWidth)) - Val(rfReadData(rfDataList.epR2NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs2_DyRgAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Vpp)) >= Val(txbopcs3_VpMinAT.Text) And Val(rfReadData(rfDataList.epR3Vpp)) <= Val(txbopcs3_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Freq)) >= Val(txbopcs3_FrMinAT.Text) And Val(rfReadData(rfDataList.epR3Freq)) <= Val(txbopcs3_FrMaxAT.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR3PWidth)) - Val(rfReadData(rfDataList.epR3NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs3_DyRgAT.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case Else
|
||||
oKNG = True
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
dataResult(rfReadTxb(i), rfReadData(i), oKNG)
|
||||
Next
|
||||
|
||||
Return False
|
||||
Else
|
||||
GoTo FailData
|
||||
End If
|
||||
Else
|
||||
GoTo FailData
|
||||
End If
|
||||
|
||||
Return False
|
||||
Else
|
||||
'' RF + MC + EP 전체 검사
|
||||
DBCmd = "SELECT CONVERT(TestDate,CHAR),CONVERT(TestTime,CHAR),RF_R1Vrms,RF_R1Freq,RF_R2Vrms,RF_R2Freq,RF_R3Vrms,RF_R3Freq,EP_R1Vpp,EP_R1Freq,EP_R1PWidth,EP_R1NWidth,EP_R2Vpp,EP_R2Freq,EP_R2PWidth,EP_R2NWidth,EP_R3Vpp,EP_R3Freq,EP_R3PWidth,EP_R3NWidth,MC_R1Wave,MC_R1Vpp,MC_R1Freq,MC_R2Wave,MC_R2Vpp,MC_R2Freq FROM " & applyRFDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
|
||||
If DBQueryReader(DBCmd) Then
|
||||
|
||||
If rfDataList.mcR2Freq = sqlDataQuery.Length - 1 Then
|
||||
For i = 0 To rfDataList.mcR2Freq
|
||||
rfReadData(i) = sqlDataQuery(i)
|
||||
Next
|
||||
|
||||
For i = 0 To rfDataList.rfR2Vrms_txb3
|
||||
Dim oKNG As Boolean = False
|
||||
|
||||
If TDUseCompare = True Then
|
||||
|
||||
Select Case i
|
||||
Case rfDataList.rfR1Vrms_txb1
|
||||
If Val(rfReadData(rfDataList.rfR1Vrms_txb1)) >= Val(txboptg1_VrMin.Text) And Val(rfReadData(rfDataList.rfR1Vrms_txb1)) <= Val(txboptg1_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR1Freq_txb2)) >= Val(txboptg1_FrMin.Text) And Val(rfReadData(rfDataList.rfR1Freq_txb2)) <= Val(txboptg1_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Vrms_txb3)) >= Val(txboptg2_VrMin.Text) And Val(rfReadData(rfDataList.rfR2Vrms_txb3)) <= Val(txboptg2_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Freq)) >= Val(txboptg2_FrMin.Text) And Val(rfReadData(rfDataList.rfR2Freq)) <= Val(txboptg2_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Vrms)) >= Val(txboptg3_VrMin.Text) And Val(rfReadData(rfDataList.rfR3Vrms)) <= Val(txboptg3_VrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Freq)) >= Val(txboptg3_FrMin.Text) And Val(rfReadData(rfDataList.rfR3Freq)) <= Val(txboptg3_FrMax.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Case rfDataList.rfR1Freq_txb2
|
||||
|
||||
If Val(rfReadData(rfDataList.mcR1Wave)) >= Val(txbopdy1_DtMin.Text) And Val(rfReadData(rfDataList.mcR1Wave)) <= Val(txbopdy1_DtMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR1Vpp)) >= Val(txbopdy1_VpMin.Text) And Val(rfReadData(rfDataList.mcR1Vpp)) <= Val(txbopdy1_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR1Freq)) >= Val(txbopdy1_FrMin.Text) And Val(rfReadData(rfDataList.mcR1Freq)) <= Val(txbopdy1_FrMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Wave)) >= Val(txbopdy2_DtMin.Text) And Val(rfReadData(rfDataList.mcR2Wave)) <= Val(txbopdy2_DtMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Vpp)) >= Val(txbopdy2_VpMin.Text) And Val(rfReadData(rfDataList.mcR2Vpp)) <= Val(txbopdy2_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.mcR2Freq)) >= Val(txbopdy2_FrMin.Text) And Val(rfReadData(rfDataList.mcR2Freq)) <= Val(txbopdy2_FrMax.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case rfDataList.rfR2Vrms_txb3
|
||||
|
||||
If Val(rfReadData(rfDataList.epR1Vpp)) >= Val(txbopcs1_VpMin.Text) And Val(rfReadData(rfDataList.epR1Vpp)) <= Val(txbopcs1_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR1Freq)) >= Val(txbopcs1_FrMin.Text) And Val(rfReadData(rfDataList.epR1Freq)) <= Val(txbopcs1_FrMax.Text) Then
|
||||
Dim pnWidth As Single = Val(rfReadData(rfDataList.epR1PWidth)) - Val(rfReadData(rfDataList.epR1NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs1_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Vpp)) >= Val(txbopcs2_VpMin.Text) And Val(rfReadData(rfDataList.epR2Vpp)) <= Val(txbopcs2_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Freq)) >= Val(txbopcs2_FrMin.Text) And Val(rfReadData(rfDataList.epR2Freq)) <= Val(txbopcs2_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR2PWidth)) - Val(rfReadData(rfDataList.epR2NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs2_DyRg.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Vpp)) >= Val(txbopcs3_VpMin.Text) And Val(rfReadData(rfDataList.epR3Vpp)) <= Val(txbopcs3_VpMax.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Freq)) >= Val(txbopcs3_FrMin.Text) And Val(rfReadData(rfDataList.epR3Freq)) <= Val(txbopcs3_FrMax.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR3PWidth)) - Val(rfReadData(rfDataList.epR3NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs3_DyRg.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case Else
|
||||
oKNG = True
|
||||
End Select
|
||||
|
||||
Else
|
||||
|
||||
Select Case i
|
||||
Case rfDataList.rfR1Vrms_txb1
|
||||
If Val(rfReadData(rfDataList.rfR1Vrms_txb1)) >= Val(txboptg1_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR1Vrms_txb1)) <= Val(txboptg1_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR1Freq_txb2)) >= Val(txboptg1_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR1Freq_txb2)) <= Val(txboptg1_FrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Vrms_txb3)) >= Val(txboptg2_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR2Vrms_txb3)) <= Val(txboptg2_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR2Freq)) >= Val(txboptg2_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR2Freq)) <= Val(txboptg2_FrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Vrms)) >= Val(txboptg3_VrMinAT.Text) And Val(rfReadData(rfDataList.rfR3Vrms)) <= Val(txboptg3_VrMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.rfR3Freq)) >= Val(txboptg3_FrMinAT.Text) And Val(rfReadData(rfDataList.rfR3Freq)) <= Val(txboptg3_FrMaxAT.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Case rfDataList.rfR1Freq_txb2
|
||||
|
||||
rfReadData(i) = "NULL"
|
||||
oKNG = True
|
||||
|
||||
Case rfDataList.rfR2Vrms_txb3
|
||||
|
||||
If Val(rfReadData(rfDataList.epR1Vpp)) >= Val(txbopcs1_VpMinAT.Text) And Val(rfReadData(rfDataList.epR1Vpp)) <= Val(txbopcs1_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR1Freq)) >= Val(txbopcs1_FrMinAT.Text) And Val(rfReadData(rfDataList.epR1Freq)) <= Val(txbopcs1_FrMaxAT.Text) Then
|
||||
Dim pnWidth As Single = Val(rfReadData(rfDataList.epR1PWidth)) - Val(rfReadData(rfDataList.epR1NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs1_DyRgAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Vpp)) >= Val(txbopcs2_VpMinAT.Text) And Val(rfReadData(rfDataList.epR2Vpp)) <= Val(txbopcs2_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR2Freq)) >= Val(txbopcs2_FrMinAT.Text) And Val(rfReadData(rfDataList.epR2Freq)) <= Val(txbopcs2_FrMaxAT.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR2PWidth)) - Val(rfReadData(rfDataList.epR2NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs2_DyRgAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Vpp)) >= Val(txbopcs3_VpMinAT.Text) And Val(rfReadData(rfDataList.epR3Vpp)) <= Val(txbopcs3_VpMaxAT.Text) Then
|
||||
If Val(rfReadData(rfDataList.epR3Freq)) >= Val(txbopcs3_FrMinAT.Text) And Val(rfReadData(rfDataList.epR3Freq)) <= Val(txbopcs3_FrMaxAT.Text) Then
|
||||
pnWidth = Val(rfReadData(rfDataList.epR3PWidth)) - Val(rfReadData(rfDataList.epR3NWidth))
|
||||
If Abs(pnWidth) < Val(txbopcs3_DyRgAT.Text) Then
|
||||
rfReadData(i) = "합격"
|
||||
oKNG = True
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
Else
|
||||
rfReadData(i) = "불합격"
|
||||
dataOkNg(dbRegList.dbWave) = False
|
||||
End If
|
||||
|
||||
Case Else
|
||||
oKNG = True
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
dataResult(rfReadTxb(i), rfReadData(i), oKNG)
|
||||
Next
|
||||
|
||||
Else
|
||||
GoTo FailData
|
||||
End If
|
||||
|
||||
Return False
|
||||
Else
|
||||
GoTo FailData
|
||||
End If
|
||||
GoTo FailData
|
||||
End If
|
||||
|
||||
FailData:
|
||||
@ -1236,14 +1118,7 @@ FailData:
|
||||
End Function
|
||||
|
||||
Private Function v1BeforeHifu()
|
||||
Dim table As String
|
||||
If LDMUseCompare Then
|
||||
table = ApplyLdmDB
|
||||
Else
|
||||
table = applyCartDB
|
||||
End If
|
||||
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,CHAR),P1_Frequency FROM " & table & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,CHAR),P1_Frequency FROM " & applyCartDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
txbHDate_M1.Text = sqlDataQuery(0)
|
||||
txbHTime_M1.Text = sqlDataQuery(1)
|
||||
@ -1300,22 +1175,6 @@ DataFail:
|
||||
Else
|
||||
GoTo DataFail
|
||||
End If
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "SELECT CONVERT(h.TestDate,CHAR),CONVERT(h.TestTime,CHAR),h.FW_Ver,h.BatteryLv,h.DivTemp,h.CtTemp,c.P1_Frequency,h.LDM_R1Value,h.LDM_R2Value,h.LDM_R3Value FROM " & ApplyLdmDB & " AS c INNER JOIN " & ApplyLdmHfDB & " AS h ON c.PV_SN = h.PV_SN WHERE h.PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
ForCnt = hifuDataList.hifuData1_txb
|
||||
If hifuDataList.hifuData3 = sqlDataQuery.Length - 1 Then
|
||||
ReDim hifuReadData(sqlDataQuery.Length - 1)
|
||||
|
||||
For i = 0 To sqlDataQuery.Length - 1
|
||||
hifuReadData(i) = sqlDataQuery(i)
|
||||
Next
|
||||
Else
|
||||
GoTo DataFail
|
||||
End If
|
||||
Else
|
||||
GoTo DataFail
|
||||
End If
|
||||
Else
|
||||
DBCmd = "SELECT DATE_FORMAT(P1_DateTime,'%Y-%m-%d'),DATE_FORMAT(P1_DateTime,'%H:%i:%S'),Fw_Ver,BatteryLv,DivTemp,CtTemp FROM " & applyNonTDDB & " WHERE PV_SN = '" & tdReadData(tdDataList.TDSN) & "'"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
@ -1335,7 +1194,7 @@ DataFail:
|
||||
For i = 0 To ForCnt
|
||||
Dim OkNg As Boolean = False
|
||||
|
||||
If TDUseCompare = True Or LDMUseCompare = True Then
|
||||
If TDUseCompare = True Then
|
||||
Select Case i
|
||||
Case hifuDataList.hifuFW
|
||||
If hifuReadData(i) = txbopFW.Text Then
|
||||
@ -1467,8 +1326,6 @@ DataFail:
|
||||
|
||||
If TDUseCompare = True Then
|
||||
DBCmd = "SELECT CONVERT(P3_DateTime,CHAR), IFNULL(Manufacture_Date,'') as Manufacture_Date, Ct_SN,Ct_Manufacture_Name,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Max_ShotCnt,Ct_Remain_ShotCnt FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "SELECT CONVERT(P3_DateTime,CHAR), IFNULL(Manufacture_Date,'') as Manufacture_Date, Ct_SN,Ct_Manufacture_Name,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Max_ShotCnt,Ct_Remain_ShotCnt FROM " & ApplyLdmDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
Else
|
||||
DBCmd = "SELECT CONVERT(P3_DateTime,CHAR), IFNULL(Manufacture_Date,'') as Manufacture_Date, Ct_SN,Ct_Manufacture_Name,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency FROM " & applyNonTDDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
End If
|
||||
@ -1544,17 +1401,8 @@ DataFail:
|
||||
End Function
|
||||
|
||||
Private Function prodSerialDot(prodSerial As String) As Boolean
|
||||
Dim table As String
|
||||
|
||||
If LDMUseCompare Then
|
||||
table = ApplyLdmDB
|
||||
Else
|
||||
table = applyCartDB
|
||||
End If
|
||||
|
||||
If TDUseCompare = True Or LDMUseCompare = True Then
|
||||
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & table & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
If TDUseCompare = True Then
|
||||
DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
|
||||
If DBQueryReader(DBCmd) Then
|
||||
|
||||
@ -1615,29 +1463,6 @@ DataFail:
|
||||
|
||||
Return True
|
||||
End If
|
||||
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "SELECT PV_SN FROM " & ApplyLdmDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
tdReadData(tdDataList.TDSN) = DBQueryScalar(DBCmd)
|
||||
|
||||
If tdReadData(tdDataList.TDSN) = "False" Then
|
||||
MsgBox("Board 번호를 확인할 수 없습니다.", vbCritical)
|
||||
Return True
|
||||
End If
|
||||
|
||||
For i = 0 To tdDataList.Grade
|
||||
If i <> tdDataList.TDSN Then
|
||||
tdReadData(i) = "N/A"
|
||||
tdReadTxb(i).Text = tdReadData(i)
|
||||
tdReadTxb(i).BackColor = Color.Green
|
||||
Else
|
||||
tdReadTxb(i).Text = tdReadData(i)
|
||||
tdReadTxb(i).BackColor = Color.Green
|
||||
End If
|
||||
Next
|
||||
|
||||
Return False
|
||||
|
||||
Else
|
||||
DBCmd = "SELECT PV_SN FROM " & applyNonTDDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
tdReadData(tdDataList.TDSN) = DBQueryScalar(DBCmd)
|
||||
@ -1672,7 +1497,7 @@ DataFail:
|
||||
colorType = Mid(prodSerial, 3, 1)
|
||||
End If
|
||||
|
||||
DBCmd = "SELECT DeviceTypeCode, TDUseYn ,LdmUseYn, LowPriceUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
|
||||
DBCmd = "SELECT DeviceTypeCode, TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
|
||||
|
||||
If DBQueryReader(DBCmd) Then
|
||||
deviceType = sqlDataQuery(0)
|
||||
@ -1681,17 +1506,6 @@ DataFail:
|
||||
Else
|
||||
TDUseCompare = True
|
||||
End If
|
||||
If sqlDataQuery(2) <> "Y" Then
|
||||
LDMUseCompare = False
|
||||
Else
|
||||
LDMUseCompare = True
|
||||
End If
|
||||
If sqlDataQuery(1) <> "Y" AndAlso sqlDataQuery(3) <> "Y" Then
|
||||
RfEpOnlyCompare = False
|
||||
Else
|
||||
RfEpOnlyCompare = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If typeCompare() <> "FACE" And typeCompare() <> "EYE" And typeCompare() <> "BODY" Then
|
||||
@ -1705,8 +1519,6 @@ DataFail:
|
||||
Private Function prodSerialExist(prodSerial As String) As Boolean
|
||||
If TDUseCompare = True Then
|
||||
DBCmd = "SELECT COUNT(PV_SN) FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "SELECT COUNT(PV_SN) FROM " & ApplyLdmDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
Else
|
||||
DBCmd = "SELECT COUNT(PV_SN) FROM " & applyNonTDDB & " WHERE Product_SN = '" & prodSerial & "'"
|
||||
End If
|
||||
@ -1899,8 +1711,6 @@ finishFunc:
|
||||
|
||||
If TDUseCompare = True Then
|
||||
UseDBName = applyCartDB
|
||||
ElseIf LDMUseCompare = True Then
|
||||
UseDBName = ApplyLdmDB
|
||||
Else
|
||||
UseDBName = applyNonTDDB
|
||||
End If
|
||||
@ -1993,8 +1803,6 @@ FailResult:
|
||||
|
||||
If TDUseCompare = True Then
|
||||
DBCmd = "UPDATE " & applyCartDB & " SET TestStep = '32' ,Product_SN = NULL WHERE Product_SN = '" & txbProdSerial.Text & "'"
|
||||
ElseIf LDMUseCompare = True Then
|
||||
DBCmd = "UPDATE " & ApplyLdmDB & " SET TestStep = '32' ,Product_SN = NULL WHERE Product_SN = '" & txbProdSerial.Text & "'"
|
||||
Else
|
||||
DBCmd = "UPDATE " & applyNonTDDB & " SET TestStep = '32' ,Product_SN = NULL WHERE Product_SN = '" & txbProdSerial.Text & "'"
|
||||
End If
|
||||
@ -2035,10 +1843,10 @@ FailResult:
|
||||
Dim prodFront As String = Mid(txbProdSerial.Text, 10, 3)
|
||||
|
||||
If prodRegData(txbFactory_M1.Text.ToLower, prodDate & prodFront & prodBack, prodCode, Val(txbCountry_M1.Text), Val(txbAgency_M1.Text)) Then
|
||||
If prodRegFreq(Val(txbHFreq_M1.Text), Val(txbDotPower_M1.Text)) Then ''입력주파수 및 파워
|
||||
If prodRegFreq(Val(txbHFreq_M1.Text), Val(txbDotPower_M1.Text)) Then
|
||||
If prodRegTD(txbTDSN.Text) Then
|
||||
If prodRegMotor(Val(txbDotDepth_M1.Text)) Then ''모터
|
||||
If prodRegShot(Val(txbFace_M1.Text)) Then ''페이스샷
|
||||
If prodRegMotor(Val(txbDotDepth_M1.Text)) Then
|
||||
If prodRegShot(Val(txbFace_M1.Text)) Then
|
||||
GoTo successFunc
|
||||
Else
|
||||
errorStr = "샷실패"
|
||||
@ -2449,7 +2257,7 @@ finishFunc:
|
||||
psData = Mid(readData, 1, InStr(readData, "^") - 1)
|
||||
readData = Mid(readData, InStr(readData, "^") + 1, readData.Length)
|
||||
Else
|
||||
MsgBox("불량 데이터가 존재합니다." & vbCrLf & "합격기준 데이터 개수가 맞지 않습니다. 초기화 후 저장을 진행하여 주십시오.", vbCritical)
|
||||
MsgBox("불량 데이터가 존재합니다.", vbCritical)
|
||||
optionAllReset()
|
||||
Exit For
|
||||
End If
|
||||
@ -2460,7 +2268,7 @@ finishFunc:
|
||||
dbCheckSetting(readData)
|
||||
|
||||
Else
|
||||
MsgBox("불량 데이터가 존재합니다." & vbCrLf & "합격기준 데이터 개수가 맞지 않습니다. 초기화 후 저장을 진행하여 주십시오.", vbCritical)
|
||||
MsgBox("불량 데이터가 존재합니다.", vbCritical)
|
||||
optionAllReset()
|
||||
End If
|
||||
End If
|
||||
@ -3137,10 +2945,10 @@ finishFunc:
|
||||
dataSetting()
|
||||
configLoad()
|
||||
|
||||
DBCmd = "SELECT HifuUseYn, LdmUseYn FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & ModelName & "' LIMIT 1"
|
||||
DBCmd = "SELECT HifuUseYn FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & ModelName & "' LIMIT 1"
|
||||
|
||||
If DBQueryReader(DBCmd) Then
|
||||
If sqlDataQuery(0) = "Y" Or sqlDataQuery(1) = "Y" Then
|
||||
If sqlDataQuery(0) = "Y" Then
|
||||
gbStandard.Visible = True
|
||||
gbStandard_AT.Visible = False
|
||||
Else
|
||||
|
||||
@ -18,10 +18,6 @@ Module mySqlModule
|
||||
Private Const mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl"
|
||||
Private Const testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl"
|
||||
|
||||
Private Const mainLdmDB As String = "jomtTesterDB.jomtLDMTbl"
|
||||
Private Const LdmHfDB As String = "jomtTesterDB.jomtLDMTestTbl"
|
||||
Private Const LdmRfDB As String = "jomtTesterDB.jomtLDMRfTestTbl"
|
||||
|
||||
Private Const mainHIFUDB As String = "jomtTesterDB.jomtHFTestTbl"
|
||||
Private Const testHIFUDB As String = "jomtTesterServerDB.jomtHFTestTbl"
|
||||
|
||||
@ -36,15 +32,13 @@ Module mySqlModule
|
||||
|
||||
Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl"
|
||||
Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl"
|
||||
|
||||
Public applyCartDB As String = mainCartDB
|
||||
Public applyHIFUDB As String = mainHIFUDB
|
||||
Public applyRFDB As String = mainRFDB
|
||||
Public applyNonTDDB As String = mainNonTDDB
|
||||
Public ApplyReturnDB As String = MainReturnDB
|
||||
Public ApplyModelInfoDB As String = mainModelInfoDB
|
||||
Public ApplyLdmDB As String = mainLdmDB
|
||||
Public ApplyLdmHfDB As String = LdmHfDB
|
||||
Public ApplyLdmRfDB As String = LdmRfDB
|
||||
|
||||
Private Function DBOpen() As Boolean
|
||||
Try
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user