modmain.bas

人事工资管理系统应包含对员工档案、员工培训、员工调动、员工职称评定、员工奖惩的管理和工资的查询与管理等诸多模块。员工档案管理模块对员工信息进行添加、修改、删除和查询；员工培训管理模块可增加

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 RstQueryRecord As New ADODB.Recordset
Public RsQueryRecord 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
Public RsModityPay As New ADODB.Recordset
'//SUB Main启动
Sub main()
    DBCON.ConnectionString = "FileDSN=data.dsn;UID=sa;PWD="
    DBCON.Open
    FrmSystemLoad.Show
End Sub
Public Function CheckLogin()
Frmmdimain.mnuAdduser.Enabled = False
Frmmdimain.mnuAddRecord.Enabled = False
Frmmdimain.mnuModifyRecord.Enabled = False
Frmmdimain.mnuDeleteRecord.Enabled = False
Frmmdimain.mnuAddTraining.Enabled = False
Frmmdimain.mnuModifyTraining.Enabled = False
Frmmdimain.mnuDeleteTraining.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.mnuAddDeal.Enabled = False
Frmmdimain.mnuModifyDeal.Enabled = False
Frmmdimain.mnuDeleteDeal.Enabled = False
Frmmdimain.mnuModifyPay.Enabled = False
Frmmdimain.mnuPlanPay.Enabled = False
End Function