fix : BeforeTrayData fucntion fix ( BeforeData > 0 )
This commit is contained in:
parent
2e69b395cd
commit
fbbd9bbe34
@ -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 '' 없을 경우
|
||||||
|
@ -1 +1,2 @@
|
|||||||
1. program ver 1.1.10
|
1. program ver 1.1.10
|
||||||
|
2. BeforeTrayData fucntion fix ( BeforeData > "0" )
|
Loading…
x
Reference in New Issue
Block a user