const.bas

NBA的部分球员

Attribute VB_Name = "const"
Public dbpath As String         '数据库文件路径
Public exepath As String        '文件夹路径
Public status As Integer        '权限级别

Public PlayerSQLStr As String   '队员搜索串
Public TeamSQLStr As String     '球队搜索串
Public CoachSQLStr As String    '教练搜索串

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Sub root()
'权限分类处理
Select Case status
    Case 0
        MainForm.data.Enabled = False
        MainForm.search.Enabled = False
        MainForm.order.Enabled = False
        MainForm.statistics.Enabled = False
        MainForm.manage.Enabled = False
        MainForm.advance.Enabled = False
    Case 1
        MainForm.data.Enabled = True
        MainForm.search.Enabled = True
        MainForm.order.Enabled = True
        MainForm.manage.Enabled = False
        MainForm.statistics.Enabled = True
        MainForm.advance.Enabled = False
    Case 2
        MainForm.data.Enabled = True
        MainForm.search.Enabled = True
        MainForm.order.Enabled = True
        MainForm.manage.Enabled = True
        MainForm.statistics.Enabled = True
        MainForm.advance.Enabled = True
End Select
End Sub

Public Function GetID(str As String) As Integer
'从ComboText中提取出id
Dim iPeriod As Integer

iPeriod = InStr(str, "-")
GetID = Val(Right$(str, Len(str) - iPeriod))
End Function