alse
    Public Sub SetOK()
        Dim flag As Boolean
        If User_Type = "教师" Then
            flag = False
        Else
            flag = True
        End If
        '设置权限,教师权限为 查询打印 密码维护 重新登录
        conditionInstall.Enabled = flag
        timetableSet.Enabled = flag
        timetableChange.Enabled = flag
        userAdmin.Enabled = flag
        inlitialize.Enabled = flag
        Toolbar1.Buttons(2).Enabled = flag
        Toolbar1.Buttons(4).Enabled = flag
        Toolbar1.Buttons(6).Enabled = flag
    End Sub
    
    
    
    
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
        Select Case Button.index
        Case 2:
            Call courseInstall_Click         '调入课程设置
        Case 4:
            Call timetableSet_Click         '调入课表安排
        Case 6:
            Call timetableChange_Click         '调入课表调整
        Case 8:
            Call searchPrint_Click         '调入查询打印
        Case 10
            Call newLogin_Click         '调入重新登录
        End Select
    End Sub
    
    
    Private Sub classInstall_Click()            '调入班级设置界面
        frmclassInstall.Show
        frmOCSS.Enabled = False
    End Sub
    Private Sub courseInstall_Click()          '调入课程设置界面
        frmcourseInstall.Show
        frmOCSS.Enabled = False
    End Sub
    Private Sub teacherInstall_Click()          '调入教师设置界面
       frmteacherInstall.Show
        frmOCSS.Enabled = False
    End Sub
    Private Sub timeInstall_Click()                '调入时间设置界面
        frmtimeInstall.Show
        frmOCSS.Enabled = False
    End Sub
    Private Sub timetableSet_Click()            '调入课表安排界面
        frmtimetableSet.Show