jionmt-sw/prod-SerialAssigner
6
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 11 Wiki Activity

Compare commits

base: jionmt-sw:lowProdBranch
Branches Tags
jionmt-sw:master
jionmt-sw:lowProdBranch
jionmt-sw:1.1.13
jionmt-sw:1.1.12
jionmt-sw:1.1.11
jionmt-sw:1.1.10
jionmt-sw:1.1.9
jionmt-sw:1.1.8
jionmt-sw:1.1.7
jionmt-sw:1.1.6
jionmt-sw:1.1.5
jionmt-sw:1.1.4
jionmt-sw:1.1.3
..
compare: jionmt-sw:master
Branches Tags
jionmt-sw:lowProdBranch
jionmt-sw:master
jionmt-sw:1.1.13
jionmt-sw:1.1.12
jionmt-sw:1.1.11
jionmt-sw:1.1.10
jionmt-sw:1.1.9
jionmt-sw:1.1.8
jionmt-sw:1.1.7
jionmt-sw:1.1.6
jionmt-sw:1.1.5
jionmt-sw:1.1.4
jionmt-sw:1.1.3

No commits in common. "lowProdBranch" and "master" have entirely different histories.
lowProdBra ... master

2 changed files with 37 additions and 368 deletions
Show Stats Expand all files Collapse all files

398
MAXIMUM_Product_Program/MainForm.vb
View File

@ -1,4 +1,4 @@
Imports System.IO
Imports System.IO
Imports System.IO.Ports
Imports System.Math
Imports System.Text
@ -13,9 +13,6 @@ Public Class MainForm
Private TDSNHead1 As String = "DIT"
Private TDSNHead2 As String = "J"
Private TDSNHead3 As String = "L"
Private LDMUse As Boolean = False
Const oldSearchLength As Int16 = 12
Const newSearchLength As Int16 = 16
@ -65,25 +62,7 @@ Public Class MainForm
maxList
End Enum
Private Enum ldmSearchList
TestStep
Power
Depth
Serial
InputDate
Frequency
Power2
Power3
Frequency2
Frequency3
maxList
End Enum
Private TDData(SearchList.maxList - 1) As String
Private LDMData(ldmSearchList.maxList - 1) As String
Private TDDataTxb(SearchList.maxList - 1) As TextBox
Private Enum ModeList
@ -288,7 +267,6 @@ Public Class MainForm
Private Sub cboRegType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRegType.SelectedIndexChanged
If cboRegType.SelectedIndex > -1 Then
LDMUse = False
cboRegColor.Items.Clear()
DBCmd = "SELECT ColorName FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' AND CartTypeName = '" & cboRegType.SelectedItem & "' ORDER BY ColorCode ASC"
@ -309,7 +287,7 @@ Public Class MainForm
Dim cartTypeName As String = dgvDataSet.Rows(cboSelect).Cells(2).Value
Dim colorName As String = dgvDataSet.Rows(cboSelect).Cells(5).Value
DBCmd = "SELECT ModelCode, CartTypeCode, ColorCode, TDUseYn, LdmUseYn FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & modelName & "' AND CartTypeName = '" & cartTypeName & "' AND ColorName = '" & colorName & "'"
DBCmd = "SELECT ModelCode, CartTypeCode, ColorCode, TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & modelName & "' AND CartTypeName = '" & cartTypeName & "' AND ColorName = '" & colorName & "'"
If DBQueryReader(DBCmd) Then
ModelCode = sqlDataQuery(0)
@ -320,11 +298,6 @@ Public Class MainForm
Else
TDUseCompare = True
End If
If sqlDataQuery(4) <> "Y" Then
LDMUse = False
Else
LDMUse = True
End If
End If
Return False
@ -428,7 +401,7 @@ Public Class MainForm
Private Sub FormSetting()
Const ProgramName As String = "Product Program Ver_"
Const VersionNum As String = "2.0.7"
Const VersionNum As String = "2.0.3"
Me.Text = ProgramName & VersionNum
Me.Size = New Size(1920, 1050)
@ -759,8 +732,6 @@ FailFunc:
Private Function DBSerialCheck() As Boolean
If TDUseCompare = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyLDMDB & " WHERE Product_SN = '" & SerialNum & "'"
Else
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
End If
@ -775,13 +746,7 @@ FailFunc:
End Function
Private Function SerialCompare(FrontCode As String) As Boolean
If TDUseCompare = True Then
DBCmd = "SELECT COUNT(Ct_SN) FROM " & ApplyCartDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Product_SN LIKE '" & ModelCode & TypeCode & "%' AND Ct_SN LIKE '" & FrontCode & "%'"
ElseIf LDMUse = True Then
DBCmd = "SELECT COUNT(Ct_SN) FROM " & ApplyLDMDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Product_SN LIKE '" & ModelCode & TypeCode & "%' AND Ct_SN LIKE '" & FrontCode & "%'"
Else
DBCmd = "SELECT COUNT(Ct_SN) FROM " & ApplyNonTDDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Product_SN LIKE '" & ModelCode & TypeCode & "%' AND Ct_SN LIKE '" & FrontCode & "%'"
End If
DBCmd = "SELECT COUNT(Ct_SN) FROM " & ApplyCartDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Product_SN LIKE '" & ModelCode & TypeCode & "%' AND Ct_SN LIKE '" & FrontCode & "%'"
RichTextBox1.AppendText("DBCmd FULL :" & DBCmd & vbCrLf)
Dim SerialUse As Integer = DBQueryScalar(DBCmd)
@ -900,8 +865,6 @@ FailFunc:
If TDUseCompare = True Then
DBCmd = "SELECT TestStep FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT TestStep FROM " & ApplyLDMDB & " WHERE Product_SN = '" & SerialNum & "'"
Else
DBCmd = "SELECT TestStep FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
End If
@ -1005,26 +968,6 @@ FailFunc:
TDDataTxb(i).Text = TDData(i)
End If
Next
ElseIf LDMUse = True Then
If LDMSearch(SerialCode) Then
ErrorData = True
GoTo DataErr
End If
TDData(SearchList.TestStep) = LDMData(ldmSearchList.TestStep)
For i = ldmSearchList.TestStep To Math.Min(ldmSearchList.maxList - 1, SearchList.maxList - 1)
If i = ldmSearchList.TestStep Then
TDDataTxb(i).Text = TestStepParsing()
If TDDataTxb(i).Text = "NULL" Then
TDDataTxb(i).BackColor = Color.Red
Else
TDDataTxb(i).BackColor = Color.Green
End If
Else
TDDataTxb(i).Text = LDMData(i)
End If
Next
Else
TDData(SearchList.Serial) = SerialCode
@ -1091,22 +1034,15 @@ FinishFunc:
Private Sub RunTimer_Tick(sender As Object, e As EventArgs) Handles RunTimer.Tick
Dim ConfigStr As String
Dim resultOk = False
If ThreadSwitch = False Then
RunTimer.Enabled = False
If ckbOpAlto.Checked = False Then
If txbTDNum.Text.Length = TDMaxLength Then
Dim currentTestStepVal As Integer
If LDMUse Then
currentTestStepVal = Val(LDMData(ldmSearchList.TestStep))
Else
currentTestStepVal = Val(TDData(SearchList.TestStep))
End If
If Not (CheckRfUse() = False And (currentTestStepVal = 21 Or currentTestStepVal = 25)) Then
If currentTestStepVal <> 23 And currentTestStepVal <> 27 And currentTestStepVal <> 30 And currentTestStepVal <> 32 And currentTestStepVal <> 41 Then
If currentTestStepVal > 29 Then
If Not (CheckRfUse() = False And (Val(TDData(SearchList.TestStep)) = 21 Or Val(TDData(SearchList.TestStep)) = 25)) Then
If Val(TDData(SearchList.TestStep)) <> 23 And Val(TDData(SearchList.TestStep)) <> 27 And Val(TDData(SearchList.TestStep)) <> 30 And Val(TDData(SearchList.TestStep)) <> 32 And Val(TDData(SearchList.TestStep)) <> 41 Then
If Val(TDData(SearchList.TestStep)) > 29 Then
RunStateFunc("중복 처리", Color.Red)
ErrorData = True
GoTo FinishFunc
@ -1148,37 +1084,6 @@ FinishFunc:
TDDataTxb(SearchList.Frequency).BackColor = Color.Green
TDDataTxb(SearchList.Power).BackColor = Color.Green
ElseIf LDMUse = True Then
ConfigStr = ldmFreqPowerSearch()
If ConfigStr = "NULL" Or ConfigStr = "FAIL" Then
ldmFreqPowerReg(LDMData(ldmSearchList.Frequency), LDMData(ldmSearchList.Power), LDMData(ldmSearchList.Frequency2), LDMData(ldmSearchList.Power2), LDMData(ldmSearchList.Frequency3), LDMData(ldmSearchList.Power3))
ConfigStr = ldmFreqPowerSearch()
End If
If ConfigStr = "NULL" Then
ErrorData = True
MsgBox("잘못된 주파수가 입력되어 있습니다. 주파수 값을 확인하여 주십시오.", vbExclamation)
GoTo DataFail
ElseIf ConfigStr = "FAIL" Then
MsgBox("주파수를 읽어오지 못했습니다. 연결을 확인하여 주십시오.", vbExclamation)
GoTo DataFail
End If
If ldmFreqCompare(ConfigStr) Then
ldmFreqPowerReg(LDMData(ldmSearchList.Frequency), LDMData(ldmSearchList.Power), LDMData(ldmSearchList.Frequency2), LDMData(ldmSearchList.Power2), LDMData(ldmSearchList.Frequency3), LDMData(ldmSearchList.Power3))
End If
If ldmFreqCompare(ConfigStr) Then
ErrorData = True
GoTo LoadFail
End If
TDDataTxb(SearchList.Frequency).BackColor = Color.Green
TDDataTxb(SearchList.Power).BackColor = Color.Green
End If
ConfigStr = FirmWareCheck()
@ -1214,24 +1119,7 @@ FinishFunc:
PrintFunc()
If LDMUse Then
If ldmProdRegData() Then
resultOk = True
Else
resultOk = False
MsgBox("ldm 시리얼 정보 입력 실패 !", vbCritical)
GoTo LoadFail
End If
End If
If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then
resultOk = True
Else
resultOk = False
End If
If resultOk Then
If ShotReg(0) Then
If ShotSearch() = "0" Then 'If ShotSearch() = "False" Then 'hjw test
If DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then
@ -1353,19 +1241,11 @@ FinishFunc:
Private Function DBProdReg(Factory As String, Country As String, Agency As String, ShotCount As String) As Boolean
Dim DBCheck As String = String.Empty
Dim currentTestStep As String
If LDMUse Then
currentTestStep = LDMData(ldmSearchList.TestStep)
Else
currentTestStep = TDData(SearchList.TestStep)
End If
If currentTestStep = "41" Then
If TDData(SearchList.TestStep) = "41" Then
If TDUseCompare = True Then
DBCmd = "SELECT PV_SN FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT PV_SN FROM " & ApplyLDMDB & " WHERE Product_SN = '" & SerialNum & "'"
Else
DBCmd = "SELECT PV_SN FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
End If
@ -1377,19 +1257,11 @@ FinishFunc:
Return True
End If
If LDMUse = True Then
If PVSN <> LDMData(ldmSearchList.Serial) Then
MsgBox("제품 시리얼 번호에 등록된 LDM 시리얼 번호가 저장된 시리얼 번호와 다릅니다.", vbCritical)
Return True
End If
Else
If PVSN <> TDData(SearchList.Serial) Then
MsgBox("제품 시리얼 번호에 등록된 TD 시리얼 번호가 저장된 시리얼 번호와 다릅니다.", vbCritical)
Return True
End If
If PVSN <> TDData(SearchList.Serial) Then
MsgBox("제품 시리얼 번호에 등록된 TD 시리얼 번호가 저장된 시리얼 번호와 다릅니다.", vbCritical)
Return True
End If
DBCmd = "UPDATE " & ApplyReturnDB & " SET DataRegDate = '" & Format(Now, "yyyy-MM-dd") & "', DataRegTime = '" & Format(Now, "HH:mm:ss") & "' WHERE Product_SN = '" & SerialNum & "' AND ReturnCount = (SELECT MAX(ReturnCount) FROM " & ApplyReturnDB & " WHERE Product_SN = '" & SerialNum & "')"
If DBCommand(DBCmd) = False Then
@ -1401,9 +1273,6 @@ FinishFunc:
If TDUseCompare = True Then
DBCheck = "UPDATE " & ApplyCartDB & " SET Product_SN = null WHERE PV_SN = '" & txbTDNum.Text & "'"
DBCmd = "UPDATE " & ApplyCartDB & " SET TestStep = '31', Product_SN = '" & SerialNum & "', Ct_Manufacture_Name='" & Factory & "', Ct_Manufacture_Year='" & Format(Now, "yy") & "', Ct_Manufacture_Month='" & Format(Now, "MM") & "', Ct_SN='" & ProdCode & "', Ct_Model='" & txbPDModel.Text & "', Ct_Type='" & txbPDType.Text & "', Ct_Abroad='" & Country & "', Ct_Agency='" & Agency & "',Ct_Max_ShotCnt = '" & ShotCount & "', Ct_Remain_ShotCnt = '" & ShotCount & "', P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "', Manufacture_Date ='" & txtManufactureDate.Text & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
ElseIf LDMUse = True Then
DBCheck = "UPDATE " & ApplyLDMDB & " SET Product_SN = null WHERE PV_SN = '" & txbTDNum.Text & "'"
DBCmd = "UPDATE " & ApplyLDMDB & " SET TestStep = '31', Product_SN = '" & SerialNum & "', Ct_Manufacture_Name='" & Factory & "', Ct_Manufacture_Year='" & Format(Now, "yy") & "', Ct_Manufacture_Month='" & Format(Now, "MM") & "', Ct_SN='" & ProdCode & "', Ct_Model='" & txbPDModel.Text & "', Ct_Type='" & txbPDType.Text & "', Ct_Abroad='" & Country & "', Ct_Agency='" & Agency & "',Ct_Max_ShotCnt = '" & ShotCount & "', Ct_Remain_ShotCnt = '" & ShotCount & "', P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "', Manufacture_Date ='" & txtManufactureDate.Text & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
Else
DBCheck = "UPDATE " & ApplyNonTDDB & " SET Product_SN = null WHERE PV_SN = '" & txbTDNum.Text & "'"
DBCmd = "UPDATE " & ApplyNonTDDB & " SET TestStep = '31', Product_SN = '" & SerialNum & "', Ct_Manufacture_Name='" & Factory & "', Ct_Manufacture_Year='" & Format(Now, "yy") & "', Ct_Manufacture_Month='" & Format(Now, "MM") & "', Ct_SN='" & ProdCode & "', Ct_Model='" & txbPDModel.Text & "', Ct_Type='" & txbPDType.Text & "', Ct_Abroad='" & Country & "', Ct_Agency='" & Agency & "', P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "', Manufacture_Date ='" & txtManufactureDate.Text & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
@ -1413,8 +1282,6 @@ FinishFunc:
If DBCommand(DBCmd) Then
If TDUseCompare = True Then
DBCmd = "SELECT TestStep FROM " & ApplyCartDB & " Where Product_SN = '" & SerialNum & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT TestStep FROM " & ApplyLDMDB & " Where Product_SN = '" & SerialNum & "'"
Else
DBCmd = "SELECT TestStep FROM " & ApplyNonTDDB & " Where Product_SN = '" & SerialNum & "'"
End If
@ -1447,17 +1314,9 @@ FinishFunc:
End Function
Private Function DBProdFailReg() As Boolean
If LDMUse Then
DBCmd = "UPDATE " & ApplyLDMDB & " SET TestStep = '30',Product_SN = NULL, Ct_SN = null, P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
Else
DBCmd = "UPDATE " & ApplyCartDB & " SET TestStep = '30',Product_SN = NULL, Ct_SN = null, P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
End If
DBCmd = "UPDATE " & ApplyCartDB & " SET TestStep = '30',Product_SN = NULL, Ct_SN = null, P3_DateTime = '" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "' WHERE PV_SN = '" & txbTDNum.Text & "'"
If DBCommand(DBCmd) Then
If LDMUse Then
DBCmd = "SELECT TestStep FROM " & ApplyLDMDB & " Where PV_SN = '" & txbTDNum.Text & "'"
Else
DBCmd = "SELECT TestStep FROM " & ApplyCartDB & " Where PV_SN = '" & txbTDNum.Text & "'"
End If
DBCmd = "SELECT TestStep FROM " & ApplyCartDB & " Where PV_SN = '" & txbTDNum.Text & "'"
If DBQueryScalar(DBCmd) = "30" Then
Return True
End If
@ -1466,13 +1325,7 @@ FinishFunc:
End Function
Private Function CreateSerialCompare(SerialNum As String) As Boolean
If TDUseCompare = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyLDMDB & " WHERE Product_SN = '" & SerialNum & "'"
Else
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
End If
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
Dim CompareData As Integer = DBQueryScalar(DBCmd)
If CompareData > 0 Then
Return False
@ -1491,13 +1344,7 @@ FinishFunc:
Return "FAIL"
End If
If TDUseCompare = True Then
DBCmd = "SELECT Ct_SN FROM " & ApplyCartDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Ct_SN LIKE '" & SearchData & "%' ORDER BY Ct_SN DESC LIMIT 1"
ElseIf LDMUse = True Then
DBCmd = "SELECT Ct_SN FROM " & ApplyLDMDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Ct_SN LIKE '" & SearchData & "%' ORDER BY Ct_SN DESC LIMIT 1"
Else
DBCmd = "SELECT Ct_SN FROM " & ApplyNonTDDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Ct_SN LIKE '" & SearchData & "%' ORDER BY Ct_SN DESC LIMIT 1"
End If
DBCmd = "SELECT Ct_SN FROM " & ApplyCartDB & " WHERE Ct_Manufacture_Year = " & Format(Now, "yy") & " AND Ct_Manufacture_Month = " & Format(Now, "MM") & " AND Ct_SN IS not NULL AND Ct_SN LIKE '" & SearchData & "%' ORDER BY Ct_SN DESC LIMIT 1"
Dim ScalarData = DBQueryScalar(DBCmd)
If ScalarData = "False" Then
@ -1514,8 +1361,6 @@ FinishFunc:
Private Function TDStepCheck(TDName As String) As String
If TDUseCompare = True Then
DBCmd = "SELECT TestStep FROM " & ApplyCartDB & " WHERE PV_SN = '" & TDName & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT TestStep FROM " & ApplyLDMDB & " WHERE PV_SN = '" & TDName & "'"
Else
DBCmd = "SELECT TestStep FROM " & ApplyNonTDDB & " WHERE PV_SN = '" & TDName & "'"
End If
@ -1567,30 +1412,6 @@ FinishFunc:
Return True
End Function
Private Function ldmProdRegData() As Boolean
Const Commander As String = "wrsconf9"
Dim retVal As String
If ModelCode.Length = 2 Then '16자리 시리얼번호
tmpCmdMessage = "[" & Commander & " " & LDMData(ldmSearchList.Serial) & "," & LDMData(ldmSearchList.Frequency) & "," & LDMData(ldmSearchList.Frequency2) & "," & LDMData(ldmSearchList.Frequency3) & "," & LDMData(ldmSearchList.Power) & "," & LDMData(ldmSearchList.Power2) & "," & LDMData(ldmSearchList.Power3) & "]" + vbCrLf
If SendData(tmpCmdMessage) Then
Return False
End If
retVal = PollingReceiveData(2000)
Dim temp = LDMData(ldmSearchList.Serial) & "," & LDMData(ldmSearchList.Frequency) & "," & LDMData(ldmSearchList.Frequency2) & "," & LDMData(ldmSearchList.Frequency3) & "," & LDMData(ldmSearchList.Power) & "," & LDMData(ldmSearchList.Power2) & "," & LDMData(ldmSearchList.Power3)
If String.Equals(retVal, temp, StringComparison.OrdinalIgnoreCase) Then
Return True
End If
End If
Return False
End Function
Private Function FirmWareCheck() As String
Const Commander As String = "dsfwver"
Dim retval As String
@ -1628,40 +1449,9 @@ FinishFunc:
End If
End Function
Private Function ldmFreqCompare(FreqData As String) As Boolean
' FreqCompare와 동일: 형식 검증 후 비교, 일치 시 False(OK), 불일치/오류 시 True
If UBound(Split(FreqData, ",")) = 5 Then
Dim result = Split(FreqData, ",")
Dim Freq1 As String = result(0)
Dim Freq2 As String = result(1)
Dim Freq3 As String = result(2)
Dim Power1 As String = result(3)
Dim Power2 As String = result(4)
Dim Power3 As String = result(5)
If Freq1 = LDMData(ldmSearchList.Frequency) And Power1 = LDMData(ldmSearchList.Power) Then
If Freq2 = LDMData(ldmSearchList.Frequency2) And Power2 = LDMData(ldmSearchList.Power2) Then
If Freq3 = LDMData(ldmSearchList.Frequency3) And Power3 = LDMData(ldmSearchList.Power3) Then
Return False
End If
End If
End If
Return True
Else
MsgBox("잘못된 형식의 주파수 값이 들어왔습니다. 연결을 확인하여 주십시오.", vbExclamation)
Return True
End If
End Function
Private Function TDCodeSearch() As String
Dim retVal As String
tmpCmdMessage = "settdsn"
If LDMUse Then
tmpCmdMessage = "setldmsn"
End If
cmdMessage = "[" & tmpCmdMessage & "]" + vbCrLf
If SendData(cmdMessage) Then
Return "1"
@ -1696,26 +1486,6 @@ FinishFunc:
End Function
Private Function ldmFreqPowerReg(Freq As String, Power As String, Freq2 As String, Power2 As String, Freq3 As String, Power3 As String) As String
Const Commander As String = "setldmcnf"
Dim Retval As String
tmpCmdMessage = "[" & Commander & " " & Freq & "," & Freq2 & "," & Freq3 & "," & Power & "," & Power2 & "," & Power3 & "]" + vbCrLf
If SendData(tmpCmdMessage) Then
Return "FAIL"
End If
Retval = PollingReceiveData(500)
If InStr(1, Retval, ",") > 0 Then
Return Retval
Else
Return "NULL"
End If
End Function
Private Function FreqPowerSearch() As String
Const Commander As String = "settdcnf"
Dim Retval As String
@ -1736,26 +1506,6 @@ FinishFunc:
End Function
Private Function ldmFreqPowerSearch() As String
Const Commander As String = "setldmcnf"
Dim Retval As String
tmpCmdMessage = "[" & Commander & "]" + vbCrLf
If SendData(tmpCmdMessage) Then
Return "FAIL"
End If
Retval = PollingReceiveData(500)
If InStr(1, Retval, ",") > 0 Then
Return Retval
Else
Return "NULL"
End If
End Function
Private Function ShotReg(shot As Integer) As String
Const Commander As String = "shotconf"
Dim retval As String
@ -1787,8 +1537,7 @@ FinishFunc:
End If
RetVal = PollingReceiveData(1500)
'Return RetVal
Return "0"
Return RetVal
End Function
@ -1871,15 +1620,6 @@ FinishFunc:
Case "setdepth"
cmdStr = cmdVal(1)
Return cmdStr
Case "setldmsn" ''ldm
cmdStr = cmdVal(1)
Return cmdStr
Case "setldmcnf" ''ldm
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) & "," & cmdVal(6)
Return cmdStr
Case "wrsconf9" ''ldm
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) & "," & cmdVal(6) & "," & cmdVal(7)
Return cmdStr
Case "setmotor"
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5)
Return cmdStr
@ -1936,41 +1676,25 @@ FinishFunc:
GoTo FailFunc
End If
If LDMUse Then
If LDMSearch(SearchData) Then
GoTo FailFunc
End If
TDData(SearchList.TestStep) = LDMData(ldmSearchList.TestStep)
For i = ldmSearchList.TestStep To Math.Min(ldmSearchList.maxList - 1, SearchList.maxList - 1)
If i = ldmSearchList.TestStep Then
TDDataTxb(i).Text = TestStepParsing()
If TDDataTxb(i).Text = "NULL" Then
TDDataTxb(i).BackColor = Color.Red
Else
TDDataTxb(i).BackColor = Color.Green
End If
Else
TDDataTxb(i).Text = LDMData(i)
End If
Next
Else
If TDSearch(SearchData) Then
GoTo FailFunc
End If
For i = SearchList.TestStep To SearchList.maxList - 1
If i = SearchList.TestStep Then
TDDataTxb(i).Text = TestStepParsing()
If TDDataTxb(i).Text = "NULL" Then
TDDataTxb(i).BackColor = Color.Red
Else
TDDataTxb(i).BackColor = Color.Green
End If
Else
TDDataTxb(i).Text = TDData(i)
End If
Next
If TDSearch(SearchData) Then
GoTo FailFunc
End If
For i = SearchList.TestStep To SearchList.maxList - 1
If i = SearchList.TestStep Then
TDDataTxb(i).Text = TestStepParsing()
If TDDataTxb(i).Text = "NULL" Then
TDDataTxb(i).BackColor = Color.Red
Else
TDDataTxb(i).BackColor = Color.Green
End If
Else
TDDataTxb(i).Text = TDData(i)
End If
Next
SerialNum = SearchData
If ckbAutoFunc.Checked = True Then
@ -2006,34 +1730,10 @@ FailFunc:
End Function
Private Function LDMSearch(SearchData As String) As Boolean
Try
DBCmd = "SELECT TestStep,Ct_Power,Ct_Motor_Lv,PV_SN,PV_Date,PV_Frequency,Ct_Power2,Ct_Power3,PV_Frequency2,PV_Frequency3 FROM " & ApplyLDMDB & " WHERE PV_SN = '" & SearchData & "'"
If DBQueryReader(DBCmd) Then
For i = ldmSearchList.TestStep To ldmSearchList.maxList - 1
LDMData(i) = sqlDataQuery(i)
Next
Else
MsgBox("LDM 데이터가 존재하지 않습니다.", vbExclamation)
Return True
End If
Return False
Catch ex As Exception
MsgBox("LDM 데이터를 불러오는 도중 오류가 발생하였습니다. :: " & vbCrLf & ex.Message, vbCritical)
Return True
End Try
End Function
Private Function TDExist(SearchData As String) As Boolean
Try
If TDUseCompare = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE PV_SN = '" & SearchData & "'"
ElseIf LDMUse = True Then
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyLDMDB & " WHERE PV_SN = '" & SearchData & "'"
Else
DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyNonTDDB & " WHERE PV_SN = '" & SearchData & "'"
End If
@ -2171,25 +1871,18 @@ FailFunc:
Private Sub btnReDel_Click(sender As Object, e As EventArgs) Handles btnReDel.Click
NowDate = Format(Now, "yyyy-MM-dd")
NowTime = Format(Now, "HH:mm:ss")
Dim hfTable As String = ApplyHFTestDB
Dim rfTable As String = ApplyRFTestDB
If SerialNum = String.Empty Then
MsgBox("삭제할 데이터가 존재하지 않습니다. TD 데이터를 검색하여 주십시오.", vbExclamation)
GoTo FailFunc
End If
If LDMUse Then
hfTable = ApplyLDMHFDB
rfTable = ApplyLDMRFDB
End If
If TestDelete(hfTable) Then
If TestDelete(ApplyHFTestDB) Then
MsgBox("삭제 도중 문제가 발생했습니다.", vbCritical)
GoTo FailFunc
End If
If TestDelete(rfTable) Then
If TestDelete(ApplyRFTestDB) Then
MsgBox("삭제 도중 문제가 발생했습니다.", vbCritical)
GoTo FailFunc
End If
@ -2235,16 +1928,7 @@ FailFunc:
End Function
Private Function DeleteData() As String
Dim delTable As String
Dim delTestStep As String
If LDMUse Then
delTable = ApplyLDMDB
delTestStep = LDMData(ldmSearchList.TestStep)
Else
delTable = ApplyCartDB
delTestStep = TDData(SearchList.TestStep)
End If
DBCmd = "UPDATE " & delTable & " SET TestStep = '15', Product_SN = NULL, Ct_Manufacture_Name = NULL, Ct_Manufacture_Year = NULL, Ct_Manufacture_Month = NULL, Ct_SN = NULL, Ct_Abroad = NULL, Ct_Agency = NULL, Ct_Frequency = NULL, Ct_Max_ShotCnt = NULL, Ct_Remain_ShotCnt = NULL, P0_Date = NULL, P0_Time = NULL, P0_Model = NULL, P0_Type = NULL, P1_Date = NULL, P1_Time = NULL, P1_Model = NULL, P1_CartType = NULL, P1_Frequency = NULL, P3_DateTime = NULL, LastQC_Date = NULL,LastQC_Time = NULL, Delete_Date = '" & NowDate & "', Delete_Time = '" & NowTime & "', Delete_TestStep = '" & delTestStep & "' WHERE PV_SN = '" & SerialNum & "'"
DBCmd = "UPDATE " & ApplyCartDB & " SET TestStep = '15', Product_SN = NULL, Ct_Manufacture_Name = NULL, Ct_Manufacture_Year = NULL, Ct_Manufacture_Month = NULL, Ct_SN = NULL, Ct_Abroad = NULL, Ct_Agency = NULL, Ct_Frequency = NULL, Ct_Max_ShotCnt = NULL, Ct_Remain_ShotCnt = NULL, P0_Date = NULL, P0_Time = NULL, P0_Model = NULL, P0_Type = NULL, P1_Date = NULL, P1_Time = NULL, P1_Model = NULL, P1_CartType = NULL, P1_Frequency = NULL, P3_DateTime = NULL, LastQC_Date = NULL,LastQC_Time = NULL, Delete_Date = '" & NowDate & "', Delete_Time = '" & NowTime & "', Delete_TestStep = '" & TDData(SearchList.TestStep) & "' WHERE PV_SN = '" & SerialNum & "'"
If DBCommand(DBCmd) Then
Return False
@ -2432,7 +2116,6 @@ FailFunc:
Private Sub cboPDInfo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPDInfo.SelectedIndexChanged
LDMUse = False
Dim SelectData As String = cboPDInfo.SelectedIndex
TimerFalse()
@ -2975,13 +2658,9 @@ FailLoad:
Try
Const LimitCheck As Int16 = 5
Const RowCount As Int16 = 3
Dim table As String = ApplyCartDB
If LDMUse Then
table = ApplyLDMDB
End If
dgvNowReg.Rows.Clear()
DBCmd = "SELECT Product_SN,DATE_FORMAT(P3_DateTime,'%Y-%m-%d') AS d, DATE_FORMAT(P3_DateTime,'%H:%i:%s') AS t FROM " & table & " WHERE TestStep > '30' ORDER BY P3_DateTime DESC LIMIT " & LimitCheck & ""
DBCmd = "SELECT Product_SN,DATE_FORMAT(P3_DateTime,'%Y-%m-%d') AS d, DATE_FORMAT(P3_DateTime,'%H:%i:%s') AS t FROM " & ApplyCartDB & " WHERE TestStep > '30' ORDER BY P3_DateTime DESC LIMIT " & LimitCheck & ""
If DBQueryReader(DBCmd) Then
Dim RunCount As Int32 = 0
Dim dgvData(RowCount - 1) As String
@ -3113,8 +2792,6 @@ FailLoad:
Private Function CtNumMaxSearch(NowYear As Int16, NowMonth As Int16) As String
If TDUseCompare = True Then
DBCmd = "SELECT IFNULL(max(Ct_SN),0) FROM " & ApplyCartDB & " WHERE Ct_Manufacture_Year = '" & NowYear & "' AND Ct_Manufacture_Month = '" & NowMonth & "' AND Ct_SN LIKE '" & ClassCode & ColorCode & "%' AND Ct_Model = '" & txbPDModel.Text & "' AND Ct_SN > 100000 AND (Ct_Type = '" & txbPDType.Text & "' OR Ct_Type = 'SET')"
ElseIf LDMUse = True Then
DBCmd = "SELECT IFNULL(max(Ct_SN),0) FROM " & ApplyLDMDB & " WHERE Ct_Manufacture_Year = '" & NowYear & "' AND Ct_Manufacture_Month = '" & NowMonth & "' AND Ct_SN LIKE '" & ClassCode & ColorCode & "%' AND Ct_Model = '" & txbPDModel.Text & "' AND Ct_SN > 100000 AND (Ct_Type = '" & txbPDType.Text & "' OR Ct_Type = 'SET')"
Else
DBCmd = "SELECT IFNULL(max(Ct_SN),0) FROM " & ApplyNonTDDB & " WHERE Ct_Manufacture_Year = '" & NowYear & "' AND Ct_Manufacture_Month = '" & NowMonth & "' AND Ct_SN LIKE '" & ClassCode & ColorCode & "%' AND Ct_Model = '" & txbPDModel.Text & "' AND Ct_SN > 100000 AND (Ct_Type = '" & txbPDType.Text & "' OR Ct_Type = 'SET')"
End If
@ -3272,7 +2949,6 @@ FailLoad:
End If
If TrayData(TrayDataList.State, i) = 0 Then
Return True '' 한 개라도 처리 안 한 제품이 있을 시
End If

7
MAXIMUM_Product_Program/SqlAddressModule.vb
View File

@ -2,10 +2,6 @@
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 ldmRFMDB As String = "jomtTesterDB.jomtLDMRfTestTbl"
Private Const mainHFTestDB As String = "jomtTesterDB.jomtHFTestTbl"
Private Const testHFTestDB As String = "jomtTesterServerDB.jomtHFTestTbl"
@ -34,9 +30,6 @@
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 = ldmRFMDB
Public Sub ServerChanger(ChangeState As Boolean)
If ChangeState = True Then