main.bas

一个用VB6.0开发的简单餐会管理系统。在WIN2K

Attribute VB_Name = "MainPro"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''生日餐会系统''''''''''''''''''''
''''''''''''''''''''''   Jamthband 2004.4   ''''''''''''''''''''
''''''''''''''''''''''   版本号VER：1.0v   '''''''''''''''''''''
'''添加删除功能。
'''增加报表功能。
''''''''''''''''''''''   版本号VER：1.1v   '''''''''''''''''''''
'''添加登录用户
''''''''''''''''''''''   版本号VER：1.2v   '''''''''''''''''''''
'''添加登录用户游览及权限 2004.8.12
''''''''''''''''''''''   版本号VER：1.3v   '''''''''''''''''''''
'''添加“最近提醒”功能，打印功能，平均AC 2004.9.9
''''''''''''''''''''''   版本号VER：1.4v   '''''''''''''''''''''
'''添加“删除信息”功能， 2004.9.15
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''   版本号VER：1.5v   '''''''''''''''''''''
'''添加基本表中“社区”字段，2004.11.10,增加DBCOMBO控件
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''   版本号VER：1.6v   '''''''''''''''''''''
'''添加查寻中“按社区、按年龄段”查寻的功能，2004.11.11
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''   版本号VER：1.7v   '''''''''''''''''''''
'''更正删除数据中的BUG，2005.4.7
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''   版本号VER：1.8v   '''''''''''''''''''''
'''增加餐会内容的字段到150，特殊内容字段到30，2005.8.4，ACCESS库中还没有改





Sub Main()
InitPublicPara
LoadForm.Show
LoadForm.Enabled = True         '登录框可用


'BookInfo.Show
'ViewForm.Show
End Sub


Public Function InitPublicPara()



''用户变量初始为空
'{
tyUserStru.sUserName = ""
'tyUserStru.sUserPaw = ""
tyUserStru.sUserLev = ""
'}


'''''是否使用该权限-用户职级数组
strJPsetUserArray(JP_SET_USER_LEVEL1) = JP_SET_USER_ON
strJPsetUserArray(JP_SET_USER_LEVEL2) = JP_SET_USER_ON
strJPsetUserArray(JP_SET_USER_LEVEL3) = JP_SET_USER_OFF
strJPsetUserArray(JP_SET_USER_LEVEL4) = JP_SET_USER_OFF
strJPsetUserArray(JP_SET_USER_LEVEL5) = JP_SET_USER_OFF


End Function



Public Function ButtonCheckStatus(flag As Boolean)
If flag Then
ButtonCheckStatus = Checked
Else
ButtonCheckStatus = Unchecked
End If
End Function

Public Function SetNullToZero(text As String)
If text = "" Then
SetNullToZero = 0
Else
SetNullToZero = CInt(text)
End If
End Function

Public Function SetNullToZeroSng(text As String)
If text = "" Then
SetNullToZeroSng = 0
Else
SetNullToZeroSng = CSng(text)
End If
End Function