Public Sub menu_setup()
'menu系统设置
   frmMain.menu登录.Enabled = True
   frmMain.menu修改密码.Enabled = True
   frmMain.menu数据备份.Enabled = False
   frmMain.menu数据恢复.Enabled = False
   frmMain.menu系统参数.Enabled = False
   frmMain.menu设置密码.Enabled = False
   frmMain.menu用户信息维护.Enabled = False
   frmMain.menu退出系统.Enabled = True
'menu公共信息
   frmMain.menu学院信息表维护.Enabled = False
   frmMain.menu系部信息表维护.Enabled = False

   frmMain.menu专业信息表维护.Enabled = False
   frmMain.menu教研室信息表维护.Enabled = False
   frmMain.menu课程信息表维护.Enabled = False
   frmMain.menu班级信息表维护.Enabled = False
   frmMain.menu学院信息表查询.Enabled = True
   frmMain.menu系部信息表查询.Enabled = True
   frmMain.menu专业信息表查询.Enabled = True
   frmMain.menu教研室信息表查询.Enabled = True
   frmMain.menu课程信息表查询.Enabled = True
   frmMain.menu班级信息表查询.Enabled = True
'menu师资管理
   frmMain.menu教师档案表录入.Enabled = False
   frmMain.menu教师档案表查询.Enabled = True
'menu学籍管理
   frmMain.menu学生信息表录入.Enabled = False
   frmMain.menu查询学生_按学号.Enabled = True
   frmMain.menu查询学生_按姓名.Enabled = True
   frmMain.menu查询学生_按班级.Enabled = False
   frmMain.menu查询学生_组合.Enabled = False
'menu课程设置
   frmMain.menu班级课程表录入.Enabled = False
   frmMain.menu班级课程表查询.Enabled = True
   frmMain.menu教师教学工作量查询.Enabled = False
'menu成绩管理
   frmMain.menu成绩录入.Enabled = False
   frmMain.menu补考成绩录入.Enabled = False
   frmMain.menu成绩修改.Enabled = False
   frmMain.menu按学号查询成绩.Enabled = True
   frmMain.menu按姓名查询成绩.Enabled = True
   frmMain.menu查询成绩_按课程.Enabled = False
   frmMain.menu查询成绩_按班级.Enabled = False
'menu帮助
   frmMain.menu帮助内容.Enabled = True
   frmMain.menu关于.Enabled = True

'Tb工具
   frmMain.Tb工具.Buttons.Item(1).Enabled = True
   frmMain.Tb工具.Buttons.Item(2).Enabled = True
   frmMain.Tb工具.Buttons.Item(3).Enabled = False
   frmMain.Tb工具.Buttons.Item(4).Enabled = False
   frmMain.Tb工具.Buttons.Item(6).Enabled = True
   frmMain.Tb工具.Buttons.Item(7).Enabled = True
   frmMain.Tb工具.Buttons.Item(8).Enabled = False
   frmMain.Tb工具.Buttons.Item(9).Enabled = False
   frmMain.Tb工具.Buttons.Item(11).Enabled = True
   frmMain.Tb工具.Buttons.Item(12).Enabled = True

    Select Case frmLogin.Cmb用户类型.Text
        Case "学生"
            ConnectUserName = "SQL_学生"
            ConnectPassWord = "111"
        Case "教师"
            ConnectUserName = "SQL_教师"
            ConnectPassWord = "222"
        
            frmMain.menu查询学生_按班级.Enabled = True
            frmMain.menu查询学生_组合.Enabled = True

            frmMain.menu班级课程表查询.Enabled = True
            frmMain.menu教师教学工作量查询.Enabled = True

            frmMain.menu成绩录入.Enabled = True
            
            frmMain.menu查询成绩_按课程.Enabled = True
            frmMain.menu查询成绩_按班级.Enabled = True
        
            frmMain.Tb工具.Buttons.Item(3).Enabled = True
            frmMain.Tb工具.Buttons.Item(4).Enabled = True
            frmMain.Tb工具.Buttons.Item(7).Enabled = True
            frmMain.Tb工具.Buttons.Item(8).Enabled = True
        
        Case "班主任"
            ConnectUserName = "SQL_班主任"
            ConnectPassWord = "333"
        
            frmMain.menu学生信息表录入.Enabled = True
            
            frmMain.menu查询学生_按班级.Enabled = True
            frmMain.menu查询学生_组合.Enabled = True

            frmMain.menu班级课程表查询.Enabled = True
            
            frmMain.menu查询成绩_按课程.Enabled = True
            frmMain.menu查询成绩_按班级.Enabled = True
            
            frmMain.Tb工具.Buttons.Item(2).Enabled = True
            frmMain.Tb工具.Buttons.Item(3).Enabled = True
            frmMain.Tb工具.Buttons.Item(6).Enabled = True
            frmMain.Tb工具.Buttons.Item(7).Enabled = True
        
        Case "学校领导"
            ConnectUserName = "SQL_领导"
            ConnectPassWord = "444"
            
            frmMain.menu查询学生_按班级.Enabled = True
            frmMain.menu查询学生_组合.Enabled = True

            frmMain.menu班级课程表查询.Enabled = True
            frmMain.menu教师教学工作量查询.Enabled = True

            frmMain.menu查询成绩_按课程.Enabled = True
            frmMain.menu查询成绩_按班级.Enabled = True
        
            frmMain.Tb工具.Buttons.Item(3).Enabled = True
            frmMain.Tb工具.Buttons.Item(4).Enabled = True
            frmMain.Tb工具.Buttons.Item(8).Enabled = True
            frmMain.Tb工具.Buttons.Item(9).Enabled = True
        
        Case "教务管理员"
            ConnectUserName = "SQL_管理员"
            ConnectPassWord = "555"
   
            frmMain.menu数据备份.Enabled = True
            frmMain.menu数据恢复.Enabled = True
            frmMain.menu系统参数.Enabled = True
            frmMain.menu设置密码.Enabled = True
            frmMain.menu用户信息维护.Enabled = True
            
            frmMain.menu学院信息表维护.Enabled = True
            frmMain.menu系部信息表维护.Enabled = True
            frmMain.menu专业信息表维护.Enabled = True
            frmMain.menu教研室信息表维护.Enabled = True
            frmMain.menu课程信息表维护.Enabled = True
            frmMain.menu班级信息表维护.Enabled = True

            frmMain.menu教师档案表录入.Enabled = True

            frmMain.menu学生信息表录入.Enabled = True
            
            frmMain.menu查询学生_按班级.Enabled = True
            frmMain.menu查询学生_组合.Enabled = True

            frmMain.menu班级课程表录入.Enabled = True
            frmMain.menu班级课程表查询.Enabled = True
            frmMain.menu教师教学工作量查询.Enabled = True

            frmMain.menu补考成绩录入.Enabled = True
            frmMain.menu成绩修改.Enabled = True
            frmMain.menu查询成绩_按课程.Enabled = True
            frmMain.menu查询成绩_按班级.Enabled = True
            
            frmMain.Tb工具.Buttons.Item(3).Enabled = True
            frmMain.Tb工具.Buttons.Item(4).Enabled = True
            frmMain.Tb工具.Buttons.Item(8).Enabled = True
            frmMain.Tb工具.Buttons.Item(9).Enabled = True
        
    End Select
End Sub

