1] Optimum 모델 이후부터 신규 시리얼번호 부여 체계 적용

2] 버전 2.0.0 업데이트

MAXIMUM_FUNCTION_PROGRAM/mainForm.vb

@@ -1,7 +1,8 @@
-Imports System.Math
+Imports System.Drawing.Imaging
 Imports System.IO
-Imports System.Threading
 Imports System.IO.Ports
+Imports System.Math
+Imports System.Threading
 
 Public Class mainForm
     Private Enum formModList
@@ -205,92 +206,20 @@ Public Class mainForm
     Private dataOkNg(dbRegList.DBALL) As Boolean
 
     Private Enum prodTypeList
-        cartSet_V1
-        cartFace_V2
+        cartSet
+        cartFace
         cartEye
         cartBody
+        device
+        allInOne
         cartEtc
     End Enum
 
-    Private Enum prodVersionList
-        cartSet_V2
-        cart_V1
-        cart_V2
-        cart_V3
-    End Enum
-
     Private cartSerial(prodTypeList.cartEtc) As String
     Private TDUseCompare As Boolean
-    Private searchType As Int16
-    Private Enum maxAlphaColorList
-        RubyRed = 1
-        TopazOrange = 2
-        EmeraldGreen = 3
-        SapphireBlue = 4
-        TopazBrown = 5
-        SitrinGold = 6
-    End Enum
-    Private colorTypeMaxAlpha As Int16
-
-    Private Enum maxColorList
-        White = 0
-        Black = 1
-        ShineMint = 2
-        Pink = 3
-        Yellow = 5
-        Peach = 6
-        Mint = 7
-        Purple = 8
-        BlackGold = 9
-    End Enum
-    Private colorTypeMax As Int16
-
-    Private Enum altoColorList
-        White = 0
-        Purple = 8
-        BlackGold = 9
-    End Enum
-    Private colorTypeAlto As Int16
-
-    Private Enum eftColorList
-        WhitePink = 1
-        WhiteSky = 2
-        WhiteBrown = 3
-        LineFriendsBrown = 4
-        LineFriendsSally = 5
-    End Enum
-    Private colorTypeEft As Int16
-
-    Private Enum alphaColorList
-        Black = 1
-    End Enum
-    Private colorTypeAlpha As Int16
-
-    Private Enum luxColorList
-        White = 0
-        Black = 1
-    End Enum
-    Private colorTypeLux As Int16
-
-    Private Enum proColorList
-        White = 0
-        Black = 1
-    End Enum
-    Private Enum proSColorList
-        Gold = 0
-    End Enum
-
-    Private colorTypePro As Int16
-
-    Private Enum prodModelList
-        prodPro = 1
-        prodLux
-        prodMax
-        prodAlpha
-        prodAlto
-        prodEffect
-        prodMaxAlpha
-    End Enum
+    Private searchType As String
+    Private colorType As String
+    Private deviceType As String
     Private modelType As Int16
 
     Private Enum csvDataList
@@ -309,7 +238,8 @@ Public Class mainForm
         csvRefer
     End Enum
 
-    Private Const prodLength As Int16 = 12
+    Private Const oldProdLength As Int16 = 12
+    Private Const newProdLength As Int16 = 16
 
     Private monCalNum As String
     Private monCalTime As Boolean
@@ -333,6 +263,7 @@ Public Class mainForm
         startSetting()
         formFullReset() '메인 화면 청소
         dataSetting()
+        ComboBoxSetting()
         configLoad()
     End Sub
 
@@ -450,7 +381,7 @@ Public Class mainForm
             Exit Sub
         End If
 
-        If txbProdSerial.Text.Length <> prodLength Then
+        If txbProdSerial.Text.Length <> oldProdLength And txbProdSerial.Text.Length <> newProdLength Then
             MsgBox("잘못된 시리얼 번호를 입력하였습니다.", vbExclamation)
             Exit Sub
         End If
@@ -638,7 +569,7 @@ Public Class mainForm
             Return False
         End If
 
-        If ckbopV1.Checked = True And modelType <> prodModelList.prodAlto Then
+        If ckbopV1.Checked = True And modelCompare() <> "ALTO" Then
             If v1BeforeHifu() Then
                 Return False
             End If
@@ -650,7 +581,7 @@ Public Class mainForm
             If prodSerialHIFU() Then   '' hifu 테스트 결과 검색
                 Return False
             End If
-            If modelType = prodModelList.prodMax Then
+            If modelCompare() = "MAXIMUM" Then
                 If prodSerialRF() Then   '' rf 테스트 결과 검색
                     Return False
                 End If
@@ -696,7 +627,7 @@ Public Class mainForm
                 If pd2ReadData(pd2DataList.pd2Face) = "0" And pd2ReadData(pd2DataList.pd2Eye) = "0" Then
                     shotData = "무제한"
                 End If
-                Dim saveRowData As String = pd2ReadData(pd2DataList.pd2Model) & "," & shotData & "," & hifuReadData(hifuDataList.hifuFW) & ",,,해당,합격," & cartSerial(prodTypeList.cartSet_V1) & "," & cartSerial(prodTypeList.cartFace_V2) & "," & cartSerial(prodTypeList.cartEye) & "," & cartSerial(prodTypeList.cartBody) & "," & cartSerial(prodTypeList.cartEtc) & "," & "" & vbLf
+                Dim saveRowData As String = pd2ReadData(pd2DataList.pd2Model) & "," & shotData & "," & hifuReadData(hifuDataList.hifuFW) & ",,,해당,합격," & cartSerial(prodTypeList.cartSet) & "," & cartSerial(prodTypeList.cartFace) & "," & cartSerial(prodTypeList.cartEye) & "," & cartSerial(prodTypeList.cartBody) & "," & cartSerial(prodTypeList.cartEtc) & "," & "" & vbLf
 
                 Dim filePath As String = System.AppDomain.CurrentDomain.BaseDirectory & "\SaveData"
 
@@ -707,18 +638,7 @@ Public Class mainForm
                 Dim modelName As String = fileModelCompare()
                 Dim typeName As String = fileTypeCompare()
 
-                Dim colorName As String
-                If modelName = "EFFECT" Then
-                    colorName = fileColorComareForEffectModel()
-                ElseIf modelName = "ALTO" Then
-                    colorName = fileColorComareForAltoModel()
-                ElseIf modelName = "MAXIMUM" Then
-                    colorName = fileColorComareForMaxModel()
-                ElseIf modelName = "MAXIMUM ALPHA" Then
-                    colorName = fileColorComareForMaxAlphaModel()
-                Else
-                    MsgBox("모델이 없습니다.")
-                End If
+                Dim colorName As String = fileColorCompare()
 
                 Dim fileName As String = filePath & "\" & saveYear & "-" & saveMonth & "-" & saveDay & "(" & modelName & "_" & typeName & "_" & colorName & ")" & ".csv"
 
@@ -744,17 +664,15 @@ Public Class mainForm
 
                         Dim chkSerial As Int16 = 0
 
-                        Select Case searchType
-                            Case prodTypeList.cartSet_V1
-                                chkSerial = csvDataList.csvSetSr
-                            Case prodTypeList.cartFace_V2
+                        Select Case typeCompare()
+                            Case "FACE"
                                 chkSerial = csvDataList.csvFaceSr
-                            Case prodTypeList.cartEye
+                            Case "EYE"
                                 chkSerial = csvDataList.csvEyeSr
-                            Case prodTypeList.cartBody
+                            Case "BODY"
                                 chkSerial = csvDataList.csvBodySr
                             Case Else
-                                chkSerial = csvDataList.csvEtcSr
+                                chkSerial = csvDataList.csvSetSr
                         End Select
 
                         Dim delSwitch As Boolean = False
@@ -827,164 +745,33 @@ Public Class mainForm
     End Function
 
     Private Function fileTypeCompare() As String
-        Select Case searchType
-            Case prodTypeList.cartSet_V1
-                Return "SET_V1"
-            Case prodTypeList.cartFace_V2
-                Return "FACE_V2"
-            Case prodTypeList.cartEye
-                Return "EYE"
-            Case prodTypeList.cartBody
-                Return "BODY_V3" 'BODY
-            Case Else
+        DBCmd = "SELECT CartTypeName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' AND CartTypeCode = '" & searchType & "' LIMIT 1"
+
+        If DBQueryReader(DBCmd) Then
+            Return sqlDataQuery(0)
+        Else
             Return "ETC"
-        End Select
+        End If
     End Function
 
     Private Function fileModelCompare() As String
-        Select Case modelType
-            Case prodModelList.prodPro
-                Return "PRO"
-            Case prodModelList.prodLux
-                Return "LUX"
-            Case prodModelList.prodMax
-                Return "MAXIMUM"
-            Case prodModelList.prodAlpha
-                Return "ALPHA"
-            Case prodModelList.prodAlto
-                Return "ALTO"
-            Case prodModelList.prodEffect
-                Return "EFFECT"
-            Case prodModelList.prodMaxAlpha
-                Return "MAXIMUM ALPHA"
-            Case Else
+        DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
+
+        If DBQueryReader(DBCmd) Then
+            Return sqlDataQuery(0)
+        Else
             Return "ETC"
-        End Select
+        End If
     End Function
 
-    Private Function fileColorComareForAltoModel() As String 'Alto model color'
-        Select Case colorTypeAlto
-            Case altoColorList.White
-                Return "White"
-            Case altoColorList.Purple
-                Return "Purple"
-            Case altoColorList.BlackGold
-                Return "BlackGold"
-            Case Else
+    Private Function fileColorCompare() As String
+        DBCmd = "SELECT ColorName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' AND CartTypeCode = '" & searchType & "' AND ColorCode = '" & colorType & "'"
+
+        If DBQueryReader(DBCmd) Then
+            Return sqlDataQuery(0)
+        Else
             Return "ETC"
-        End Select
-    End Function
-
-    Private Function fileColorComareForEffectModel() As String 'effect model color'
-        Select Case colorTypeEft
-            Case eftColorList.WhitePink
-                Return "WhitePink"
-            Case eftColorList.WhiteSky
-                Return "WhiteSky"
-            Case eftColorList.WhiteBrown
-                Return "WhiteBrown"
-            Case eftColorList.LineFriendsBrown
-                Return "LineFriendsBrown"
-            Case eftColorList.LineFriendsSally
-                Return "LineFriendsSally"
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
-    Private Function fileColorComareForMaxAlphaModel() As String 'Maximum alpha model color'
-        Select Case colorTypeMaxAlpha
-            Case maxAlphaColorList.RubyRed
-                Return "RubyRed"
-            Case maxAlphaColorList.TopazOrange
-                Return "TopazOrange"
-            Case maxAlphaColorList.EmeraldGreen
-                Return "EmeraldGreen"
-            Case maxAlphaColorList.SapphireBlue
-                Return "SapphireBlue"
-            Case maxAlphaColorList.TopazBrown
-                Return "TopazBrown"
-            Case maxAlphaColorList.SitrinGold
-                Return "SitrinGold"
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
-
-    Private Function fileColorComareForMaxModel() As String 'Maximum model color'
-        Select Case colorTypeMax
-            Case maxColorList.White
-                Return "White"
-            Case maxColorList.Black
-                Return "Black"
-            Case maxColorList.ShineMint
-                Return "ShineMint"
-            Case maxColorList.Pink
-                Return "Pink"
-            Case maxColorList.Yellow
-                Return "Yellow"
-            Case maxColorList.Peach
-                Return "Peach"
-            Case maxColorList.Mint
-                Return "Mint"
-            Case maxColorList.Purple
-                Return "Purple"
-            Case maxColorList.BlackGold
-                Return "BlackGold"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-
-    Private Function fileColorCompareAltoModel() As String
-        Select Case colorTypeAlto
-            Case altoColorList.White
-                Return "White"
-            Case altoColorList.Purple
-                Return "Purple"
-            Case altoColorList.BlackGold
-                Return "BlackGold"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-
-    Private Function fileColorCompareAlphaModel() As String
-        Select Case colorTypeAlpha
-            Case alphaColorList.Black
-                Return "Black"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-
-    Private Function fileColorCompareLuxModel() As String
-        Select Case colorTypeLux
-            Case luxColorList.White
-                Return "White"
-            Case luxColorList.Black
-                Return "Black"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-
-    Private Function fileColorCompareProModel() As String
-        Select Case colorTypePro
-            Case proColorList.White
-                Return "White"
-            Case proColorList.Black
-                Return "Black"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-    Private Function fileColorCompareProSModel() As String
-        Select Case colorTypePro
-            Case proSColorList.Gold
-                Return "Gold"
-            Case Else
-                Return "etc"
-        End Select
+        End If
     End Function
 
     Private Function lastQCDBReg(prodSerial As String) As Boolean
@@ -1538,7 +1325,7 @@ DataFail:
     Private Function prodSerialPD2(prodSerial As String) As Boolean
 
         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_Max_ShotCnt,Ct_Remain_ShotCnt,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
+            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 & "'"
         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
@@ -1571,11 +1358,9 @@ DataFail:
             End If
 
             If pd2ReadData(pd2DataList.pd2Type) <> typeCompare() Then
-                If pd2ReadData(pd2DataList.pd2Type) <> typeDifferent() Then
                 pd2ReadTxb(pd2DataList.pd2Type).BackColor = Color.Red
                 dataOkNg(dbRegList.dbInfo) = False
             End If
-            End If
 
             Return False
         Else
@@ -1596,56 +1381,23 @@ DataFail:
     End Function
 
     Private Function typeCompare() As String
+        DBCmd = "SELECT CartTypeName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' AND CartTypeCode = '" & searchType & "' LIMIT 1"
 
-        Select Case searchType
-            Case prodTypeList.cartSet_V1, prodTypeList.cartFace_V2
-                Return "SET"
-            Case Else
-                Return "FAIL"
-        End Select
-    End Function
-
-    Private Function typeDifferent() As String
-        If modelType = prodModelList.prodEffect Then
-            Select Case searchType
-                Case prodVersionList.cartSet_V2
-                    Return "V2"
-                Case prodVersionList.cart_V3
-                    Return "V3"
-                Case Else
-                    Return "FAIL"
-            End Select
+        If DBQueryReader(DBCmd) Then
+            Return sqlDataQuery(0)
         Else
-            Select Case searchType
-                Case prodTypeList.cartSet_V1
-                    Return "V1"
-                Case prodTypeList.cartFace_V2
-                    Return "V2"
-                Case Else
             Return "FAIL"
-            End Select
         End If
     End Function
 
     Private Function modelCompare() As String
-        Select Case modelType
-            Case prodModelList.prodPro
-                Return "PRO"
-            Case prodModelList.prodLux
-                Return "LUX"
-            Case prodModelList.prodMax
-                Return "MAXIMUM"
-            Case prodModelList.prodAlpha
-                Return "ALPHA"
-            Case prodModelList.prodAlto
-                Return "ALTO"
-            Case prodModelList.prodEffect
-                Return "EFFECT"
-            Case prodModelList.prodMaxAlpha
-                Return "MAXIMUM ALPHA"
-            Case Else
+        DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
+
+        If DBQueryReader(DBCmd) Then
+            Return sqlDataQuery(0)
+        Else
             Return "FAIL"
-        End Select
+        End If
     End Function
 
     Private Function prodSerialDot(prodSerial As String) As Boolean
@@ -1735,82 +1487,33 @@ DataFail:
     End Function
 
     Private Sub prodSerialType(prodSerial As String)
+        If prodSerial.Length = oldProdLength Then       '12자리 시리얼번호
             modelType = Mid(prodSerial, 1, 1)
             searchType = Mid(prodSerial, 2, 1)
-
-        Dim tmpColor = Mid(prodSerial, 11, 1)
-        If (modelType = prodModelList.prodEffect) Then
-            colorTypeEft = tmpColor
-        ElseIf (modelType = prodModelList.prodMaxAlpha) Then
-            colorTypeMaxAlpha = tmpColor
-        ElseIf (modelType = prodModelList.prodMax) Then
-            colorTypeMax = tmpColor
-        ElseIf (modelType = prodModelList.prodAlto) Then
-            colorTypeAlto = tmpColor
-        Else
-            MsgBox("시리얼 넘버 확인")
+            colorType = Mid(prodSerial, 11, 1)
+        ElseIf prodSerial.Length = newProdLength Then   '16자리 시리얼번호
+            modelType = Mid(prodSerial, 1, 2)
+            searchType = Mid(prodSerial, 15, 1)
+            colorType = Mid(prodSerial, 3, 1)
         End If
 
-        If modelType = prodModelList.prodPro Or modelType = prodModelList.prodLux Or modelType = prodModelList.prodAlpha Then
-            TDUseCompare = True
-            Select Case searchType
-                Case prodTypeList.cartSet_V1
-                    cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                Case prodTypeList.cartFace_V2
-                    cartSerial(prodTypeList.cartFace_V2) = prodSerial
-                Case prodTypeList.cartEye
-                    cartSerial(prodTypeList.cartEye) = prodSerial
-                Case prodTypeList.cartBody
-                    cartSerial(prodTypeList.cartBody) = prodSerial
-                Case Else
-                    cartSerial(prodTypeList.cartEtc) = prodSerial
-            End Select
-        Else
-            If modelType = prodModelList.prodMax Then
-                TDUseCompare = True
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case prodTypeList.cartFace_V2
-                        cartSerial(prodTypeList.cartFace_V2) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
-            ElseIf modelType = prodModelList.prodEffect Then
-                TDUseCompare = True
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
-            ElseIf modelType = prodModelList.prodMaxAlpha Then
-                TDUseCompare = True
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
-            ElseIf modelType = prodModelList.prodAlto Then
+        DBCmd = "SELECT DeviceTypeCode, TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
+
+        If DBQueryReader(DBCmd) Then
+            deviceType = sqlDataQuery(0)
+            If sqlDataQuery(1) <> "Y" Then
                 TDUseCompare = False
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
             Else
-                TDUseCompare = False
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
+                TDUseCompare = True
             End If
         End If
 
+        If typeCompare() <> "FACE" And typeCompare() <> "EYE" And typeCompare() <> "BODY" Then
+            cartSerial(prodTypeList.cartSet) = prodSerial
+        Else
+            cartSerial(searchType) = prodSerial
+        End If
+
     End Sub
 
     Private Function prodSerialExist(prodSerial As String) As Boolean
@@ -1845,9 +1548,9 @@ DataFail:
                     Exit Sub
                 End If
 
-                Dim modelText As String = loadCsvModel()
-                Dim typeText As String = loadCsvType()
-                Dim colorText As String = loadCsvColor()
+                Dim modelText As String = cboCsvProd.SelectedItem
+                Dim typeText As String = cboCsvType.SelectedItem
+                Dim colorText As String = cboCsvColor.SelectedItem
 
                 Dim openFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "SaveData\" & Format(Now, "yyyy-MM-dd") & "(" & modelText & "_" & typeText & "_" & colorText & ")" & ".csv"
                 Process.Start(openFile)
@@ -1889,9 +1592,9 @@ DataFail:
                     Exit Sub
                 End If
 
-                Dim modelText As String = loadCsvModel()
-                Dim typeText As String = loadCsvType()
-                Dim colorText As String = loadCsvColor()
+                Dim modelText As String = cboCsvProd.SelectedItem
+                Dim typeText As String = cboCsvType.SelectedItem
+                Dim colorText As String = cboCsvColor.SelectedItem
 
                 Dim openFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "SaveData\" & Format(monthCal.SelectionStart, "yyyy-MM-dd") & "(" & modelText & "_" & typeText & "_" & colorText & ")" & ".csv"
                 Process.Start(openFile)
@@ -1932,85 +1635,6 @@ DataFail:
         End Try
     End Sub
 
-    Private Function loadCsvType() As String
-        Select Case cboCsvType.SelectedIndex
-            Case 0
-                Return "SET_V1"
-            Case 1
-                Return "FACE_V2"
-            Case 2
-                Return "EYE"
-            Case 3
-                Return "BODY_V3" 'BODY
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
-
-    Private Function loadCsvColor() As String
-        Select Case cboCsvColor.SelectedIndex
-            Case 0
-                Return "White"
-            Case 1
-                Return "ShineMint"
-            Case 2
-                Return "Pink"
-            Case 3
-                Return "Black"
-            Case 4
-                Return "Mint"
-            Case 5
-                Return "Purple"
-            Case 6
-                Return "BlackGold"
-            Case 7
-                Return "Yellow"
-            Case 8
-                Return "WhitePink"
-            Case 9
-                Return "WhiteSky"
-            Case 10
-                Return "WhiteBrown"
-            Case 11
-                Return "Peach"
-            Case 12
-                Return "LineFriendsBrown"
-            Case 13
-                Return "LineFriendsSally"
-            Case 14
-                Return "RubyRed"
-            Case 15
-                Return "TopazOrange"
-            Case 16
-                Return "EmeraldGreen"
-            Case 17
-                Return "SapphireBlue"
-            Case 18
-                Return "TopazBrown"
-            Case 19
-                Return "SitrinGold"
-            Case 20
-                Return "Gold"
-            Case Else
-                Return "etc"
-        End Select
-    End Function
-
-    Private Function loadCsvModel() As String
-        Select Case cboCsvProd.SelectedIndex
-            Case 0
-                Return "MAXIMUM"
-            Case 1
-                Return "ALTO"
-            Case 2
-                Return "EFFECT"
-            Case 3
-                Return "MAXIMUM ALPHA"
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
-
     Private Sub btnExcelExit_Click(sender As Object, e As EventArgs) Handles btnExcelExit.Click
         btnExcel.Enabled = True
         CalTimer.Enabled = False
@@ -2037,7 +1661,7 @@ DataFail:
             GoTo failFunc
         End If
 
-        If txbProdSerial.Text.Length <> prodLength Then
+        If txbProdSerial.Text.Length <> oldProdLength And txbProdSerial.Text.Length <> newProdLength Then
             MsgBox("잘못된 시리얼 번호를 입력하였습니다.", vbExclamation)
             errStr = "정보불량"
             GoTo failFunc
@@ -2565,19 +2189,7 @@ finishFunc:
                 MkDir(filePath)
             End If
 
-            Dim fileName As String
-
-            If rdbEffect.Checked = True Then
-                fileName = filePath & "\Standard_EFFECT.ini"
-            ElseIf rdbMaxAlpha.Checked = True Then
-                fileName = filePath & "\Standard_MaxAlpha.ini"
-            ElseIf rdbMax.Checked = True Then
-                fileName = filePath & "\Standard_Max.ini"
-            ElseIf rdbAlto.Checked = True Then
-                fileName = filePath & "\Standard_Alto.ini"
-            Else
-                fileName = filePath & "\Standard.ini"
-            End If
+            Dim fileName As String = filePath & "\Standard_" & comboBoxModel.SelectedItem.ToString.Replace(" ", "") & ".ini"
 
             Dim saveData As String = String.Empty
 
@@ -2614,7 +2226,7 @@ finishFunc:
             End If
         Next
 
-        If ckbopV1.Checked = True And modelType <> prodModelList.prodAlto Then
+        If ckbopV1.Checked = True And modelCompare() <> "ALTO" Then
             dbRegStr = dbRegStr & "5"
         End If
 
@@ -2630,19 +2242,7 @@ finishFunc:
                 MkDir(filePath)
             End If
 
-            Dim fileName As String
-
-            If rdbEffect.Checked = True Then
-                fileName = filePath & "\Standard_EFFECT.ini"
-            ElseIf rdbMaxAlpha.Checked = True Then
-                fileName = filePath & "\Standard_MaxAlpha.ini"
-            ElseIf rdbMax.Checked = True Then
-                fileName = filePath & "\Standard_Max.ini"
-            ElseIf rdbAlto.Checked = True Then
-                fileName = filePath & "\Standard_Alto.ini"
-            Else
-                fileName = filePath & "\Standard.ini"
-            End If
+            Dim fileName As String = filePath & "\Standard_" & comboBoxModel.SelectedItem.ToString.Replace(" ", "") & ".ini"
 
             If File.Exists(fileName) Then
                 Dim readData As String = File.ReadAllText(fileName, System.Text.Encoding.UTF8)
@@ -3127,6 +2727,36 @@ WR_File_Error:
         saveDBCkb(dbRegList.dbInfo) = ckbopInfo
     End Sub
 
+    Private Sub ComboBoxSetting()
+        comboBoxModel.Items.Clear()
+        cboCsvProd.Items.Clear()
+        DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY ModelName"
+        If DBQueryReader(DBCmd) Then
+            For i = 0 To sqlDataQuery.Length - 1
+                comboBoxModel.Items.Add(sqlDataQuery(i))
+                cboCsvProd.Items.Add(sqlDataQuery(i))
+            Next
+        End If
+        comboBoxModel.SelectedItem = "MAXIMUM"
+
+        cboCsvType.Items.Clear()
+        DBCmd = "SELECT CartTypeName FROM " & ApplyModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY CartTypeName"
+        If DBQueryReader(DBCmd) Then
+            For i = 0 To sqlDataQuery.Length - 1
+                cboCsvType.Items.Add(sqlDataQuery(i))
+            Next
+        End If
+
+        cboCsvColor.Items.Clear()
+        DBCmd = "SELECT ColorName FROM " & ApplyModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY ColorName"
+        If DBQueryReader(DBCmd) Then
+            For i = 0 To sqlDataQuery.Length - 1
+                cboCsvColor.Items.Add(sqlDataQuery(i))
+            Next
+        End If
+
+    End Sub
+
     Private Sub optionAllReset()
         optionClear()
         optionRefresh()
@@ -3290,61 +2920,13 @@ WR_File_Error:
         End If
     End Sub
 
-    Private Sub rdbMax_CheckedChanged(sender As Object, e As EventArgs) Handles rdbMax.CheckedChanged
-        If rdbMax.Checked = True Then
-            gbStandard.Text = "MAXIMUM 합격기준"
-
-            dataSetting()
-            configLoad()
-
-            gbStandard.Visible = True
-            gbStandard_AT.Visible = False
-        End If
-    End Sub
-
-    Private Sub rdbAlto_CheckedChanged(sender As Object, e As EventArgs) Handles rdbAlto.CheckedChanged
-        If rdbAlto.Checked = True Then
-            gbStandard.Text = "Alto 합격기준"
-
-            dataSetting()
-            configLoad()
-
-            gbStandard.Visible = False
-            gbStandard_AT.Visible = True
-        End If
-    End Sub
-
-    Private Sub rdbEffect_CheckedChanged(sender As Object, e As EventArgs) Handles rdbEffect.CheckedChanged
-        If rdbEffect.Checked = True Then
-            gbStandard.Text = "EFFECT 합격기준"
-
-            dataSetting()
-            configLoad()
-
-            gbStandard.Visible = True
-            gbStandard_AT.Visible = False
-        End If
-    End Sub
-
-    Private Sub rdbMaxAlpha_CheckedChanged(sender As Object, e As EventArgs) Handles rdbMaxAlpha.CheckedChanged
-        If rdbMaxAlpha.Checked = True Then
-            gbStandard.Text = "MAXIMUM ALPHA 합격기준"
-
-            dataSetting()
-            configLoad()
-
-            gbStandard.Visible = True
-            gbStandard_AT.Visible = False
-        End If
-    End Sub
-
     Private Sub btnReturn_Click(sender As Object, e As EventArgs) Handles btnReturn.Click
         If txbProdSerial.Text = String.Empty Then
             MsgBox("입력할 정보가 존재하지 않습니다. 데이터를 읽어주십시오,", vbExclamation)
             GoTo finishFunc
         End If
 
-        If txbProdSerial.Text.Length <> prodLength Then
+        If txbProdSerial.Text.Length <> oldProdLength And txbProdSerial.Text.Length <> newProdLength Then
             MsgBox("잘못된 시리얼 번호를 입력하였습니다.", vbExclamation)
             GoTo finishFunc
         End If
@@ -3362,6 +2944,26 @@ finishFunc:
         txbProdSerial.Focus()
     End Sub
 
+    Private Sub comboBoxModel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboBoxModel.SelectedIndexChanged
+        Dim ModelName As String = comboBoxModel.SelectedItem
+
+        gbStandard.Text = ModelName & " 합격기준"
+        dataSetting()
+        configLoad()
+
+        DBCmd = "SELECT HifuUseYn FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & ModelName & "' LIMIT 1"
+
+        If DBQueryReader(DBCmd) Then
+            If sqlDataQuery(0) = "Y" Then
+                gbStandard.Visible = True
+                gbStandard_AT.Visible = False
+            Else
+                gbStandard.Visible = False
+                gbStandard_AT.Visible = True
+            End If
+        End If
+    End Sub
+
     Private Sub txbProdSerial_GotFocus(sender As Object, e As EventArgs) Handles txbProdSerial.GotFocus
         txbProdSerial.Select(txbProdSerial.MaxLength, 0)
     End Sub

MAXIMUM_FUNCTION_PROGRAM/mySqlModule.vb

@@ -1,4 +1,5 @@
 Imports MySql.Data.MySqlClient
+Imports MySqlConnector
 
 Module mySqlModule
     Private Const LocalHostIP As String = "192.168.0.250"
@@ -29,11 +30,15 @@ Module mySqlModule
     Private Const MainReturnDB As String = "jomtTesterDB.jomtReturnTbl"
     Private Const TestReturnDB As String = "jomtTesterServerDB.jomtReturnTbl"
 
+    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
 
     Private Function DBOpen() As Boolean
         Try