Refactor : Changed ShotSearch() condition from False to 0

This commit is contained in:
jiwonRepair 2025-07-31 15:38:41 +09:00
parent 5bd867e735
commit 3fe99e62ef
3 changed files with 6 additions and 4 deletions

View File

@ -559,7 +559,7 @@ Public Class MainForm
Private Sub FormSetting() Private Sub FormSetting()
Const ProgramName As String = "Product Program Ver_" 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.Text = ProgramName & VersionNum
Me.Size = New Size(1920, 1050) Me.Size = New Size(1920, 1050)
@ -1259,7 +1259,7 @@ FinishFunc:
If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then
If ShotReg(0) 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 DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then
If TraySuccess() Then If TraySuccess() Then

View File

@ -65,7 +65,7 @@ Module mySQLModule
Return True Return True
Catch ex As Exception Catch ex As Exception
MsgBox("MySQL Command Error:" + vbCrLf + Err.Description) MsgBox("MySQL Command Error:" + vbCrLf + Err.Description + "debug : " + cmdStr)
DBClose() DBClose()
Return False Return False
End Try End Try

View File

@ -1 +1,3 @@
1. program ver 1.1.8 1. program ver 1.1.9
2. 샷 수 검색 조건 변경
- If ShotSearch() = "0" Then