fix : BeforeTrayData fucntion fix ( BeforeData > 0 )

This commit is contained in:
jiwonRepair 2025-07-31 17:44:21 +09:00
parent 2e69b395cd
commit fbbd9bbe34
2 changed files with 3 additions and 2 deletions

View File

@ -560,7 +560,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.10" Const VersionNum As String = "1.1.11"
Me.Text = ProgramName & VersionNum Me.Text = ProgramName & VersionNum
Me.Size = New Size(1920, 1050) Me.Size = New Size(1920, 1050)
@ -3176,7 +3176,7 @@ FailLoad:
Private Function BeforeTrayData(NowYear As Int16, NowMonth As Int16) As Boolean 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 & "'" 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) Dim BeforeData As String = DBQueryScalar(DBCmd)
If BeforeData > "False" Then If BeforeData > "0" Then
Return True ''있을 경우 Return True ''있을 경우
Else Else
Return False '' 없을 경우 Return False '' 없을 경우

View File

@ -1 +1,2 @@
1. program ver 1.1.10 1. program ver 1.1.10
2. BeforeTrayData fucntion fix ( BeforeData > "0" )