From b32997eb5bd5c2257e48fa9287a9e3e4f538667f Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Fri, 21 Nov 2025 08:14:23 +0900 Subject: [PATCH] =?UTF-8?q?1]=20=ED=94=84=EB=A1=9C=EA=B7=B8=EB=9E=A8=20?= =?UTF-8?q?=EB=B2=84=EC=A0=84=202.0.0=20=EC=97=85=EB=8D=B0=EC=9D=B4?= =?UTF-8?q?=ED=8A=B8=202]=20jomtModelInfoTbl=20=ED=85=8C=EC=9D=B4=EB=B8=94?= =?UTF-8?q?=20=EC=B0=B8=EC=A1=B0=20=EB=B3=80=EC=88=98=EB=AA=85=20=EC=88=98?= =?UTF-8?q?=EC=A0=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MAXIMUM_Product_Program/MainForm.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index 8fda14e..6b91c4e 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/MAXIMUM_Product_Program/MainForm.vb @@ -237,7 +237,7 @@ Public Class MainForm Private Sub ModelCboSetting() cboRegModel.Items.Clear() - DBCmd = "SELECT ModelName FROM " & ModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY ModelName" + DBCmd = "SELECT ModelName FROM " & ApplyModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY ModelName" If DBQueryReader(DBCmd) Then For i = 0 To sqlDataQuery.Length - 1 cboRegModel.Items.Add(sqlDataQuery(i)) @@ -249,7 +249,7 @@ Public Class MainForm If cboRegModel.SelectedIndex > -1 Then cboRegType.Items.Clear() - DBCmd = "SELECT CartTypeName FROM " & ModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' GROUP BY CartTypeCode ORDER BY CartTypeCode ASC" + DBCmd = "SELECT CartTypeName FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' GROUP BY CartTypeCode ORDER BY CartTypeCode ASC" If DBQueryReader(DBCmd) Then For i = 0 To sqlDataQuery.Length - 1 cboRegType.Items.Add(sqlDataQuery(i)) @@ -266,7 +266,7 @@ Public Class MainForm If cboRegType.SelectedIndex > -1 Then cboRegColor.Items.Clear() - DBCmd = "SELECT ColorName FROM " & ModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' AND CartTypeName = '" & cboRegType.SelectedItem & "' ORDER BY ColorCode ASC" + DBCmd = "SELECT ColorName FROM " & ApplyModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' AND CartTypeName = '" & cboRegType.SelectedItem & "' ORDER BY ColorCode ASC" If DBQueryReader(DBCmd) Then For i = 0 To sqlDataQuery.Length - 1 cboRegColor.Items.Add(sqlDataQuery(i)) @@ -284,7 +284,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 FROM " & ModelInfoDB & " 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) @@ -398,7 +398,7 @@ Public Class MainForm Private Sub FormSetting() Const ProgramName As String = "Product Program Ver_" - Const VersionNum As String = "1.1.13" + Const VersionNum As String = "2.0.0" Me.Text = ProgramName & VersionNum Me.Size = New Size(1920, 1050) @@ -1020,7 +1020,7 @@ FinishFunc: End Sub Private Function CheckRfUse() As Boolean - DBCmd = "SELECT RfUseYn FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' AND CartTypeCode = '" & TypeCode & "' AND ColorCode = '" & ColorCode & "'" + DBCmd = "SELECT RfUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' AND CartTypeCode = '" & TypeCode & "' AND ColorCode = '" & ColorCode & "'" If DBQueryReader(DBCmd) Then If sqlDataQuery(0) = "Y" Then @@ -1936,7 +1936,7 @@ FailFunc: Select Case NowMode Case ModeList.Prod_Input - DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1" + DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1" If DBQueryReader(DBCmd) Then Dim InfoRegOkCntColumnName As String = sqlDataQuery(0) @@ -1966,7 +1966,7 @@ FailFunc: Select Case NowMode Case ModeList.Prod_Input - DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1" + DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1" If DBQueryReader(DBCmd) Then Dim InfoRegOkCntColumnName As String = sqlDataQuery(0)