Attribute VB_Name = "const"
Public dbpath As String         '數(shù)據(jù)庫文件路徑
Public exepath As String        '文件夾路徑
Public status As Integer        '權(quán)限級(jí)別

Public PlayerSQLStr As String   '隊(duì)員搜索串
Public TeamSQLStr As String     '球隊(duì)搜索串
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()
'權(quán)限分類處理
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