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

1] 프로그램 버전 2.0.0 업데이트

Browse Source 
2] jomtModelInfoTbl 테이블 참조 변수명 수정
This commit is contained in:
KwakJooYoung 2025-11-21 08:14:23 +09:00
parent 2ed5840a3e
commit b32997eb5b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
MAXIMUM_Product_Program/MainForm.vb
View File

@ -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)