1] 시리얼번호 입력창에 영문 입력되지 않는 문제 수정

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,87 +206,20 @@ Public Class mainForm
     Private dataOkNg(dbRegList.DBALL) As Boolean
 
     Private Enum prodTypeList
-        cartSet_V1
+        cartSet
-        cartFace_V2
+        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 searchType As String
-    Private Enum maxAlphaColorList
+    Private colorType As String
-        Ruby_Red = 0
+    Private deviceType As String
-        Topaz_Orange = 2
-        Emerald_Green = 3
-        Sapphire_Blue = 4
-        Topaz_Brown = 5
-        Sitrin_Gold = 6
-    End Enum
-    Private colorTypeMaxAlpha As Int16
-
-    Private Enum maxColorList
-        White = 0
-        ShineMint = 2
-        Pink = 3
-        Black = 4
-        Yellow = 5
-        Mint = 7
-        Purple = 8
-        Black_Gold = 9
-    End Enum
-    Private colorTypeMax As Int16
-
-    Private Enum altoColorList
-        White = 0
-        Purple = 8
-        Black_Gold = 9
-    End Enum
-    Private colorTypeAlto As Int16
-
-    Private Enum eftColorList
-        White_Pink = 1
-        White_Sky = 2
-        White_Brown = 3
-        LineFriends_Brown = 4
-        LineFriends_Sally = 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 colorTypePro As Int16
-
-    Private Enum prodModelList
-        prodPro = 1
-        prodLux
-        prodMax
-        prodAlpha
-        prodAlto
-        prodEffect
-        prodMaxAlpha
-    End Enum
     Private modelType As Int16
 
     Private Enum csvDataList
@@ -304,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
@@ -328,6 +263,7 @@ Public Class mainForm
         startSetting()
         formFullReset() '메인 화면 청소
         dataSetting()
+        ComboBoxSetting()
         configLoad()
     End Sub
 
@@ -367,7 +303,7 @@ Public Class mainForm
 
     Private Sub startSetting()
         Const programName As String = "MAXIMUM FUNCTION DATA INFO VER."
-        Const programVer As String = "1.1.7"
+        Const programVer As String = "2.0.0"
         Me.Text = programName & programVer
         Me.Size = New Size(1920, 1060)
         Me.Location = New Point(0, 0)
@@ -445,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
@@ -633,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
@@ -645,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
@@ -691,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"
 
@@ -702,18 +638,7 @@ Public Class mainForm
                 Dim modelName As String = fileModelCompare()
                 Dim typeName As String = fileTypeCompare()
 
-                Dim colorName As String
+                Dim colorName As String = fileColorCompare()
-                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 fileName As String = filePath & "\" & saveYear & "-" & saveMonth & "-" & saveDay & "(" & modelName & "_" & typeName & "_" & colorName & ")" & ".csv"
 
@@ -739,17 +664,15 @@ Public Class mainForm
 
                         Dim chkSerial As Int16 = 0
 
-                        Select Case searchType
+                        Select Case typeCompare()
-                            Case prodTypeList.cartSet_V1
+                            Case "FACE"
-                                chkSerial = csvDataList.csvSetSr
-                            Case prodTypeList.cartFace_V2
                                 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
@@ -822,156 +745,33 @@ Public Class mainForm
     End Function
 
     Private Function fileTypeCompare() As String
-        Select Case searchType
+        DBCmd = "SELECT CartTypeName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' AND CartTypeCode = '" & searchType & "' LIMIT 1"
-            Case prodTypeList.cartSet_V1
+
-                Return "SET_V1"
+        If DBQueryReader(DBCmd) Then
-            Case prodTypeList.cartFace_V2
+            Return sqlDataQuery(0)
-                Return "FACE_V2"
+        Else
-            Case prodTypeList.cartEye
+            Return "ETC"
-                Return "EYE"
+        End If
-            Case prodTypeList.cartBody
-                Return "BODY_V3" 'BODY
-            Case Else
-                Return "ETC"
-        End Select
     End Function
 
     Private Function fileModelCompare() As String
-        Select Case modelType
+        DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
-            Case prodModelList.prodPro
+
-                Return "PRO"
+        If DBQueryReader(DBCmd) Then
-            Case prodModelList.prodLux
+            Return sqlDataQuery(0)
-                Return "LUX"
+        Else
-            Case prodModelList.prodMax
+            Return "ETC"
-                Return "MAXIMUM"
+        End If
-            Case prodModelList.prodAlpha
-                Return "ALPHA"
-            Case prodModelList.prodAlto
-                Return "ALTO"
-            Case prodModelList.prodEffect
-                Return "EFFECT"
-            Case prodModelList.prodMaxAlpha
-                Return "MAXIMUM ALPHA"
-            Case Else
-                Return "ETC"
-        End Select
     End Function
 
-    Private Function fileColorComareForAltoModel() As String 'Alto model color'
+    Private Function fileColorCompare() As String
-        Select Case colorTypeAlto
+        DBCmd = "SELECT ColorName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' AND CartTypeCode = '" & searchType & "' AND ColorCode = '" & colorType & "'"
-            Case altoColorList.White
-                Return "White"
-            Case altoColorList.Purple
-                Return "Purple"
-            Case altoColorList.Black_Gold
-                Return "BlackGold"
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
 
-    Private Function fileColorComareForEffectModel() As String 'effect model color'
+        If DBQueryReader(DBCmd) Then
-        Select Case colorTypeEft
+            Return sqlDataQuery(0)
-            Case eftColorList.White_Pink
+        Else
-                Return "WhitePink"
+            Return "ETC"
-            Case eftColorList.White_Sky
+        End If
-                Return "WhiteSky"
-            Case eftColorList.White_Brown
-                Return "WhiteBrown"
-            Case eftColorList.White_Brown
-                Return "WhiteBrown"
-            Case eftColorList.LineFriends_Brown
-                Return "LineFriendsBrown"
-            Case eftColorList.LineFriends_Sally
-                Return "LineFriendsSally"
-            Case Else
-                Return "ETC"
-        End Select
-    End Function
-    Private Function fileColorComareForMaxAlphaModel() As String 'Maximum alpha model color'
-        Select Case colorTypeMaxAlpha
-            Case maxAlphaColorList.Ruby_Red
-                Return "RubyRed"
-            Case maxAlphaColorList.Topaz_Orange
-                Return "TopazOrange"
-            Case maxAlphaColorList.Emerald_Green
-                Return "EmeraldGreen"
-            Case maxAlphaColorList.Sapphire_Blue
-                Return "SapphireBlue"
-            Case maxAlphaColorList.Topaz_Brown
-                Return "TopazBrown"
-            Case maxAlphaColorList.Sitrin_Gold
-                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.ShineMint
-                Return "ShineMint"
-            Case maxColorList.Pink
-                Return "Pink"
-            Case maxColorList.Black
-                Return "Black"
-            Case maxColorList.Yellow
-                Return "Yellow"
-            Case maxColorList.Mint
-                Return "Mint"
-            Case maxColorList.Purple
-                Return "Purple"
-            Case maxColorList.Black_Gold
-                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.Black_Gold
-                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 lastQCDBReg(prodSerial As String) As Boolean
@@ -1525,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
@@ -1558,10 +1358,8 @@ DataFail:
             End If
 
             If pd2ReadData(pd2DataList.pd2Type) <> typeCompare() Then
-                If pd2ReadData(pd2DataList.pd2Type) <> typeDifferent() Then
+                pd2ReadTxb(pd2DataList.pd2Type).BackColor = Color.Red
-                    pd2ReadTxb(pd2DataList.pd2Type).BackColor = Color.Red
+                dataOkNg(dbRegList.dbInfo) = False
-                    dataOkNg(dbRegList.dbInfo) = False
-                End If
             End If
 
             Return False
@@ -1583,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
+        If DBQueryReader(DBCmd) Then
-            Case prodTypeList.cartSet_V1, prodTypeList.cartFace_V2
+            Return sqlDataQuery(0)
-                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
         Else
-            Select Case searchType
+            Return "FAIL"
-                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
+        DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
-            Case prodModelList.prodPro
+
-                Return "PRO"
+        If DBQueryReader(DBCmd) Then
-            Case prodModelList.prodLux
+            Return sqlDataQuery(0)
-                Return "LUX"
+        Else
-            Case prodModelList.prodMax
+            Return "FAIL"
-                Return "MAXIMUM"
+        End If
-            Case prodModelList.prodAlpha
-                Return "ALPHA"
-            Case prodModelList.prodAlto
-                Return "ALTO"
-            Case prodModelList.prodEffect
-                Return "EFFECT"
-            Case prodModelList.prodMaxAlpha
-                Return "MAXIMUM ALPHA"
-            Case Else
-                Return "FAIL"
-        End Select
     End Function
 
     Private Function prodSerialDot(prodSerial As String) As Boolean
@@ -1722,82 +1487,33 @@ DataFail:
     End Function
 
     Private Sub prodSerialType(prodSerial As String)
-        modelType = Mid(prodSerial, 1, 1)
+        If prodSerial.Length = oldProdLength Then       '12자리 시리얼번호
-        searchType = Mid(prodSerial, 2, 1)
+            modelType = Mid(prodSerial, 1, 1)
-
+            searchType = Mid(prodSerial, 2, 1)
-        Dim tmpColor = Mid(prodSerial, 11, 1)
+            colorType = Mid(prodSerial, 11, 1)
-        If (modelType = prodModelList.prodEffect) Then
+        ElseIf prodSerial.Length = newProdLength Then   '16자리 시리얼번호
-            colorTypeEft = tmpColor
+            modelType = Mid(prodSerial, 1, 2)
-        ElseIf (modelType = prodModelList.prodMaxAlpha) Then
+            searchType = Mid(prodSerial, 15, 1)
-            colorTypeMaxAlpha = tmpColor
+            colorType = Mid(prodSerial, 3, 1)
-        ElseIf (modelType = prodModelList.prodMax) Then
-            colorTypeMax = tmpColor
-        ElseIf (modelType = prodModelList.prodAlto) Then
-            colorTypeAlto = tmpColor
-        Else
-            MsgBox("시리얼 넘버 확인")
         End If
 
-        If modelType = prodModelList.prodPro Or modelType = prodModelList.prodLux Or modelType = prodModelList.prodAlpha Then
+        DBCmd = "SELECT DeviceTypeCode, TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelType & "' LIMIT 1"
-            TDUseCompare = True
+
-            Select Case searchType
+        If DBQueryReader(DBCmd) Then
-                Case prodTypeList.cartSet_V1
+            deviceType = sqlDataQuery(0)
-                    cartSerial(prodTypeList.cartSet_V1) = prodSerial
+            If sqlDataQuery(1) <> "Y" Then
-                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
                 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
+                TDUseCompare = True
-                Select Case searchType
-                    Case prodTypeList.cartSet_V1
-                        cartSerial(prodTypeList.cartSet_V1) = prodSerial
-                    Case Else
-                        cartSerial(prodTypeList.cartEtc) = prodSerial
-                End Select
             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
@@ -1832,9 +1548,9 @@ DataFail:
                     Exit Sub
                 End If
 
-                Dim modelText As String = loadCsvModel()
+                Dim modelText As String = cboCsvProd.SelectedItem
-                Dim typeText As String = loadCsvType()
+                Dim typeText As String = cboCsvType.SelectedItem
-                Dim colorText As String = loadCsvColor()
+                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)
@@ -1876,9 +1592,9 @@ DataFail:
                     Exit Sub
                 End If
 
-                Dim modelText As String = loadCsvModel()
+                Dim modelText As String = cboCsvProd.SelectedItem
-                Dim typeText As String = loadCsvType()
+                Dim typeText As String = cboCsvType.SelectedItem
-                Dim colorText As String = loadCsvColor()
+                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)
@@ -1919,83 +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 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
@@ -2022,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
@@ -2550,19 +2189,7 @@ finishFunc:
                 MkDir(filePath)
             End If
 
-            Dim fileName As String
+            Dim fileName As String = filePath & "\Standard_" & comboBoxModel.SelectedItem.ToString.Replace(" ", "") & ".ini"
-
-            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 saveData As String = String.Empty
 
@@ -2599,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
 
@@ -2615,19 +2242,7 @@ finishFunc:
                 MkDir(filePath)
             End If
 
-            Dim fileName As String
+            Dim fileName As String = filePath & "\Standard_" & comboBoxModel.SelectedItem.ToString.Replace(" ", "") & ".ini"
-
-            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
 
             If File.Exists(fileName) Then
                 Dim readData As String = File.ReadAllText(fileName, System.Text.Encoding.UTF8)
@@ -2780,12 +2395,6 @@ WR_File_Error:
         txbProdSerial.Focus()
     End Sub
 
-    Private Sub txbProdSerial_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txbProdSerial.KeyPress
-        If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
-            e.Handled = True
-        End If
-    End Sub
-
     Private Sub txbopFW_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txbopFW.KeyPress, txbOpFreq_RgMax.KeyPress, txbOpFreq_RgMin.KeyPress, txbopBat_RgMax.KeyPress, txbopBat_RgMin.KeyPress, txbopDiv_TpMax.KeyPress, txbopDiv_TpMin.KeyPress, txbopCt_TpMax.KeyPress, txbopCt_TpMin.KeyPress, txbopHF1_TpMax.KeyPress, txbopHF1_TpMin.KeyPress, txbopHF2_TpMax.KeyPress, txbopHF2_TpMin.KeyPress, txbopHF3_TpMax.KeyPress, txbopHF3_TpMin.KeyPress, txbopHF12_Tp.KeyPress, txbopHF23_Tp.KeyPress, txboptg1_FrMax.KeyPress, txboptg1_FrMin.KeyPress, txboptg1_VrMax.KeyPress, txboptg1_VrMin.KeyPress, txboptg2_FrMax.KeyPress, txboptg2_FrMin.KeyPress, txboptg2_VrMax.KeyPress, txboptg2_VrMin.KeyPress, txboptg3_FrMax.KeyPress, txboptg3_FrMin.KeyPress, txboptg3_VrMax.KeyPress, txboptg3_VrMin.KeyPress, txbopdy1_DtMax.KeyPress, txbopdy1_DtMin.KeyPress, txbopdy1_FrMax.KeyPress, txbopdy1_FrMin.KeyPress, txbopdy1_VpMax.KeyPress, txbopdy1_VpMin.KeyPress, txbopdy2_DtMax.KeyPress, txbopdy2_DtMin.KeyPress, txbopdy2_FrMax.KeyPress, txbopdy2_FrMin.KeyPress, txbopdy2_VpMax.KeyPress, txbopdy2_VpMin.KeyPress, txbopcs1_DyRg.KeyPress, txbopcs1_FrMax.KeyPress, txbopcs1_FrMin.KeyPress, txbopcs1_VpMax.KeyPress, txbopcs1_VpMin.KeyPress, txbopcs2_DyRg.KeyPress, txbopcs2_FrMax.KeyPress, txbopcs2_FrMin.KeyPress, txbopcs2_VpMax.KeyPress, txbopcs2_VpMin.KeyPress, txbopcs3_DyRg.KeyPress, txbopcs3_FrMax.KeyPress, txbopcs3_FrMin.KeyPress, txbopcs3_VpMax.KeyPress, txbopcs3_VpMin.KeyPress
         If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) And Not e.KeyChar = "." Then
             e.Handled = True
@@ -3112,6 +2721,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()
@@ -3275,61 +2914,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
@@ -3347,6 +2938,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