Attribute VB_Name = "Mod1"
Public adoCon As New ADODB.Connection      '定義一個數據連接
Public adoRs As New ADODB.Recordset        '定義一個數據集對象
Public adoRs1 As New ADODB.Recordset       '定義一個數據集對象

Public bQx(1 To 24) As Boolean             '權限


Public Name1 As String
Public StrNums As Integer
Public Temps    '定義一個變體類型的公共變量
'聲明一個API函數，用于實現使窗體置前還是取消窗體置前的功能
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public rtn
Public CnnStr As String

Public Sub Main()            '定義一個公共主函數，用于連接數據庫
    CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SPJXC;Data Source=."
    adoCon.Open (CnnStr)
End Sub