From 3fe99e62ef543c65af09b9611655fc8cde22a72b Mon Sep 17 00:00:00 2001 From: jiwonRepair Date: Thu, 31 Jul 2025 15:38:41 +0900 Subject: [PATCH] Refactor : Changed ShotSearch() condition from False to 0 --- MAXIMUM_Product_Program/MainForm.vb | 4 ++-- MAXIMUM_Product_Program/mySQLModule.vb | 2 +- 업데이트 내역.txt | 4 +++- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index ac023c7..0717170 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/MAXIMUM_Product_Program/MainForm.vb @@ -559,7 +559,7 @@ Public Class MainForm Private Sub FormSetting() Const ProgramName As String = "Product Program Ver_" - Const VersionNum As String = "1.1.8" + Const VersionNum As String = "1.1.9" Me.Text = ProgramName & VersionNum Me.Size = New Size(1920, 1050) @@ -1259,7 +1259,7 @@ FinishFunc: If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then If ShotReg(0) Then - If ShotSearch() = "False" Then + If ShotSearch() = "0" Then 'If ShotSearch() = "False" Then 'hjw test If DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then If TraySuccess() Then diff --git a/MAXIMUM_Product_Program/mySQLModule.vb b/MAXIMUM_Product_Program/mySQLModule.vb index e085587..37f8e9a 100644 --- a/MAXIMUM_Product_Program/mySQLModule.vb +++ b/MAXIMUM_Product_Program/mySQLModule.vb @@ -65,7 +65,7 @@ Module mySQLModule Return True Catch ex As Exception - MsgBox("MySQL Command Error:" + vbCrLf + Err.Description) + MsgBox("MySQL Command Error:" + vbCrLf + Err.Description + "debug : " + cmdStr) DBClose() Return False End Try diff --git a/업데이트 내역.txt b/업데이트 내역.txt index ee11517..6148598 100644 --- a/업데이트 내역.txt +++ b/업데이트 내역.txt @@ -1 +1,3 @@ -1. program ver 1.1.8 \ No newline at end of file +1. program ver 1.1.9 +2. 샷 수 검색 조건 변경 + - If ShotSearch() = "0" Then \ No newline at end of file