Attribute VB_Name = "ModMain"
Option Explicit
Public DBCON As New ADODB.Connection
Public UserName As String
Public PassWord As String
Public Group As String
Public RsLoginCheck As New ADODB.Recordset
Public RsUnlock As New ADODB.Recordset
Public RsAddUser As New ADODB.Recordset
Public RsModPwd As New ADODB.Recordset
Public RsDelUser As New ADODB.Recordset
Public RsDept As New ADODB.Recordset
Public RsTitle As New ADODB.Recordset
Public RsRecord As New ADODB.Recordset
Public RsQRecord As New ADODB.Recordset
Public RstQRecord As New ADODB.Recordset
Public RsAddPay As New ADODB.Recordset
Public RsPayRecord As New ADODB.Recordset
Public RstPayRecord As New ADODB.Recordset
Public RsQPay As New ADODB.Recordset
Public RstQPay As New ADODB.Recordset
Public RstQueryPay As New ADODB.Recordset
Public RsQueryPay As New ADODB.Recordset
Public RsAddCheck As New ADODB.Recordset
Public RsRecordCheck As New ADODB.Recordset
Public RstRecordCheck As New ADODB.Recordset
Public RsAddmove As New ADODB.Recordset
Public RsCode As New ADODB.Recordset
Public RstName As New ADODB.Recordset
Public RsBranch As New ADODB.Recordset
Public RstBranch As New ADODB.Recordset
Public RstTitle As New ADODB.Recordset
Public RsCheckCode As New ADODB.Recordset
Public RsMoveTitle As New ADODB.Recordset
Public RsWorkRecord As New ADODB.Recordset
Public RstWorkRecord As New ADODB.Recordset
Public RstWorkCode As New ADODB.Recordset
Public RsModMove As New ADODB.Recordset
Public RsModPay As New ADODB.Recordset
Public RsMoveBranch As New ADODB.Recordset
Public RstMoveTitle As New ADODB.Recordset
Public RsQCheck As New ADODB.Recordset
Public RstQCheck As New ADODB.Recordset
Public RstQueryCheck As New ADODB.Recordset
Public RsQueryCheck As New ADODB.Recordset
Public RsQComment As New ADODB.Recordset
Public RstQComment As New ADODB.Recordset
Public RstQueryComment As New ADODB.Recordset
Public RsQueryComment As New ADODB.Recordset
Public RsQMove As New ADODB.Recordset
Public RstQMove As New ADODB.Recordset
Public RstQueryMove As New ADODB.Recordset
Public RsQueryMove As New ADODB.Recordset
'//SUB Main啟動(dòng)
Sub main()
    DBCON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DateBase\DateBase.mdb;Persist Security Info=False"
    DBCON.Open
    FrmSystemLoad.Show
End Sub
Public Function CheckLogin()
Frmmdimain.mnuAdduser.Enabled = False
Frmmdimain.mnuDeptManage.Enabled = False
Frmmdimain.mnuAddRecord.Enabled = False
Frmmdimain.mnuUpdateRecord.Enabled = False
Frmmdimain.mnuDeleteRecord.Enabled = False
Frmmdimain.mnuAddCheck.Enabled = False
Frmmdimain.mnuModifyCheck.Enabled = False
Frmmdimain.mnuDeleteCheck.Enabled = False
Frmmdimain.mnuAddComment.Enabled = False
Frmmdimain.mnuModifyComment.Enabled = False
Frmmdimain.mnuDeleteComment.Enabled = False
Frmmdimain.mnuAddMove.Enabled = False
Frmmdimain.mnuModifyMove.Enabled = False
Frmmdimain.mnuDeleteMove.Enabled = False
Frmmdimain.mnuPlanPay.Enabled = False
Frmmdimain.mnuUpdatePay.Enabled = False
Frmmdimain.CmdTool(5).Enabled = False
End Function