From 1b81964399aa9be3b6f50a4ac558a54be46aefbe Mon Sep 17 00:00:00 2001
From: jiwonRepair <ahrns1@naver.com>
Date: Tue, 5 Aug 2025 09:58:27 +0900
Subject: [PATCH] fix : DBQueryScalar(DBCmd) Change return variable to Integer
 for COUNT result

---
 MAXIMUM_Product_Program/MainForm.vb | 30 ++++++-----------------------
 업데이트 내역.txt             |  5 +++--
 2 files changed, 9 insertions(+), 26 deletions(-)

diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb
index ad9fd72..f9ce618 100644
--- a/MAXIMUM_Product_Program/MainForm.vb
+++ b/MAXIMUM_Product_Program/MainForm.vb
@@ -560,7 +560,7 @@ Public Class MainForm
 
     Private Sub FormSetting()
         Const ProgramName As String = "Product Program Ver_"
-        Const VersionNum As String = "1.1.11"
+        Const VersionNum As String = "1.1.12"
 
         Me.Text = ProgramName & VersionNum
         Me.Size = New Size(1920, 1050)
@@ -890,7 +890,7 @@ FailFunc:
             DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyNonTDDB & " WHERE Product_SN = '" & SerialNum & "'"
         End If
 
-        Dim UseCheck As String = DBQueryScalar(DBCmd)
+        Dim UseCheck As Integer = DBQueryScalar(DBCmd)
 
         If UseCheck = 0 Then
             Return True
@@ -952,24 +952,6 @@ FailFunc:
     Private Sub ProdInputFunc(sender As Object, e As EventArgs, SearchData As String)
         Dim userID As String = ""
 
-        ' info1 또는 info2 중 NowState가 1인 사용자 조회
-        DBCmd = "SELECT UserID FROM " & LoginDB & " WHERE NowState = '1' AND (UserID = 'info1' OR UserID = 'info2')"
-
-        If DBQueryReader(DBCmd) Then
-            userID = sqlDataQuery(0)
-        Else
-            MsgBox("사용자 정보 읽기 실패", vbExclamation)
-            GoTo FailFunc
-        End If
-
-        If userID = "info1" Or userID = "info2" Then
-            ' PASS
-        Else
-            MsgBox("info1 또는 info2 계정을 사용하세요", vbExclamation)
-            GoTo FailFunc
-        End If
-
-
         StepReset()
         ValueReset()
 
@@ -1484,7 +1466,7 @@ FinishFunc:
 
     Private Function CreateSerialCompare(SerialNum As String) As Boolean
         DBCmd = "SELECT COUNT(NUMBER) FROM " & ApplyCartDB & " WHERE Product_SN = '" & SerialNum & "'"
-        Dim CompareData As String = DBQueryScalar(DBCmd)
+        Dim CompareData As Integer = DBQueryScalar(DBCmd)
         If CompareData > "False" Then
             Return False
         End If
@@ -2922,7 +2904,7 @@ FailLoad:
             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
 
-        Dim CtMaxResult As String = DBQueryScalar(DBCmd)
+        Dim CtMaxResult As Integer = DBQueryScalar(DBCmd)
 
         If CtMaxResult = "False" Then
             MsgBox("최대값을 불러올 수 없습니다.", vbCritical)
@@ -3175,8 +3157,8 @@ FailLoad:
 
     Private Function BeforeTrayData(NowYear As Int16, NowMonth As Int16) As Boolean
         DBCmd = "SELECT COUNT(UserID) FROM " & InfoRegStateDB & " WHERE UserID= '" & IDName & "' AND ModelNum = '" & ModelCode & "' AND TypeNum = '" & TypeCode & "' AND ColorNum = '" & ColorCode & "' AND UsageNum = '" & ClassCode & "' AND CreateYear = '" & NowYear & "' AND CreateMonth = '" & NowMonth & "'"
-        Dim BeforeData As String = DBQueryScalar(DBCmd)
-        If BeforeData > "0" Then
+        Dim BeforeData As Integer = DBQueryScalar(DBCmd)
+        If BeforeData > 0 Then
             Return True  ''있을 경우
         Else
             Return False  '' 없을 경우
diff --git a/업데이트 내역.txt b/업데이트 내역.txt
index b6214a0..661ddf9 100644
--- a/업데이트 내역.txt	
+++ b/업데이트 내역.txt	
@@ -1,2 +1,3 @@
-1. program ver 1.1.11
-2. BeforeTrayData fucntion fix ( BeforeData > "0" )
\ No newline at end of file
+1. program ver 1.1.12
+2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정
+3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제
\ No newline at end of file