Caption         =   "班級(jí)事務(wù)"
      Begin VB.Menu Menu_CPYD 
         Caption         =   "車票預(yù)訂"
      End
      Begin VB.Menu Menu_BJCWGL 
         Caption         =   "班級(jí)財(cái)務(wù)"
      End
      Begin VB.Menu Menu_BJHDGL 
         Caption         =   "班級(jí)活動(dòng)"
      End
      Begin VB.Menu Menu_JCGL 
         Caption         =   "獎(jiǎng)懲管理"
      End
   End
   Begin VB.Menu menu_GRPS 
      Caption         =   "綜合測(cè)評(píng)"
      Begin VB.Menu Menu_TXPSB 
         Caption         =   "個(gè)人評(píng)審"
      End
      Begin VB.Menu Menu_DYBJHZB 
         Caption         =   "打印某學(xué)年班級(jí)匯總表"
         Begin VB.Menu Menu_DYXNHZ 
            Caption         =   "第一學(xué)年"
         End
         Begin VB.Menu Menu_DEXNHZ 
            Caption         =   "第二學(xué)年"
         End
         Begin VB.Menu Menu_DSXNHZ 
            Caption         =   "第三學(xué)年"
         End
         Begin VB.Menu Menu_DSIXNHZ 
            Caption         =   "第四學(xué)年"
         End
      End
      Begin VB.Menu Menu_LXZYDY 
         Caption         =   "打印某學(xué)年全部評(píng)審表"
         Begin VB.Menu Menu_DYXN 
            Caption         =   "第一學(xué)年"
         End
         Begin VB.Menu Menu_DEXN 
            Caption         =   "第二學(xué)年"
         End
         Begin VB.Menu Menu_DSXN 
            Caption         =   "第三學(xué)年"
         End
         Begin VB.Menu Menu_DSIXN 
            Caption         =   "第四學(xué)年"
         End
      End
   End
   Begin VB.Menu menu_XTAQ 
      Caption         =   "系統(tǒng)安全"
      Begin VB.Menu Menu_CXDL 
         Caption         =   "重新登錄"
      End
      Begin VB.Menu Menu_XGMM 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu Menu_TJCZY 
         Caption         =   "添加操作員"
      End
   End
   Begin VB.Menu Menu_TC 
      Caption         =   "退出"
   End
   Begin VB.Menu Menu_BZ 
      Caption         =   "幫助"
      Begin VB.Menu Menu_F1 
         Caption         =   "請(qǐng)按“F1”鍵獲取幫助"
      End
   End
End
Attribute VB_Name = "MAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
    '加載背景圖片
    MAIN.Picture = LoadPicture(App.Path & "/photos/mainbg.jpg")
    '設(shè)置系統(tǒng)操作員
    StatusBar_MAIN.Panels(3).Text = "操作員： " & g_XTCZY
    StatusBar_MAIN.Panels(4).Text = "班級(jí)管理系統(tǒng) V 1.00"
End Sub

Private Sub menu_BJCJ_Click()
    MAIN.Show
End Sub

Private Sub menu_BJCJLR_Click()
    MAIN.Show
End Sub

Private Sub Menu_BJCWGL_Click()
    MAIN.Show
End Sub

Private Sub Menu_BJCWXX_Click()
    MAIN.Show
End Sub

Private Sub Menu_BJHDGL_Click()
    MAIN.Show
End Sub

Private Sub Menu_BJHDXX_Click()
    MAIN.Show
End Sub

Private Sub Menu_CPYD_Click()
    MAIN.Show
End Sub

Private Sub Menu_CPYDXX_Click()
    MAIN.Show
End Sub

Private Sub Menu_CXDL_Click()
    Unload Me
    FRM_DL.Show
End Sub

Private Sub Menu_DEXN_Click()
    MAIN.Show
End Sub

Private Sub Menu_DEXNHZ_Click()
    MAIN.Show
End Sub

Private Sub Menu_DSIXN_Click()
    MAIN.Show
End Sub

Private Sub Menu_DSIXNHZ_Click()
    MAIN.Show
End Sub

Private Sub Menu_DSXN_Click()
    MAIN.Show
End Sub


Private Sub Menu_DSXNHZ_Click()
    MAIN.Show
End Sub

Private Sub Menu_DYXN_Click()
    MAIN.Show
End Sub

Private Sub Menu_DYXNHZ_Click()
    MAIN.Show
End Sub


Private Sub menu_GRXX_Click()
    MAIN.Show
End Sub


Private Sub menu_GRXXLR_Click()
    MAIN.Show
End Sub

Private Sub Menu_JCGL_Click()
    MAIN.Show
End Sub

Private Sub Menu_JCXX_Click()
    MAIN.Show
End Sub

Private Sub menu_JCXXLR_Click()
    MAIN.Show
End Sub

Private Sub menu_KMXXLR_Click()
    MAIN.Show
End Sub

Private Sub menu_TC_Click()
    If MsgBox("確定退出系統(tǒng)嗎？", vbYesNo + vbQuestion, "班級(jí)綜合管理系統(tǒng)") = vbYes Then
        Unload Me
        End
    End If
End Sub

Private Sub menu_TJCZY_Click()
    FRM_TJCZY.Show
End Sub

Private Sub menu_TJDPJL_Click()
    MAIN.Show
End Sub

Private Sub menu_TJHDJL_Click()
     MAIN.Show
End Sub

Private Sub menu_TJXFJL_Click()
    MAIN.Show
End Sub

Private Sub menu_TXPSB_Click()
    MAIN.Show
End Sub

Private Sub menu_XGMM_Click()
    FRM_XGMM.Show
End Sub

Private Sub TB_MAIN_ButtonClick(ByVal Button As ComctlLib.Button)
    '依據(jù)按下按鈕的不同，調(diào)出不同的窗體
    Select Case Button.Caption
        Case "個(gè)人信息"
            MAIN.Show
        
        Case "班級(jí)成績(jī)"
            MAIN.Show
        Case "補(bǔ)考名單"
           MAIN.Show
        Case "科目設(shè)置"
           MAIN.Show
        Case "車票預(yù)訂"
            MAIN.Show
        Case "班級(jí)財(cái)務(wù)"
            MAIN.Show
        Case "班級(jí)活動(dòng)"
           MAIN.Show
        Case "獎(jiǎng)懲管理"
            MAIN.Show
        Case "綜合測(cè)評(píng)"
           MAIN.Show
        Case "退出"
            If MsgBox("確定退出系統(tǒng)嗎？", vbYesNo + vbQuestion) = vbYes Then
                Unload Me
                End
            End If
    End Select
    
End Sub

Private Sub TIM_ZTL_Timer()
    '刷新系統(tǒng)日期和時(shí)間
    StatusBar_MAIN.Panels(1).Text = "當(dāng)前日期： " & Format(Date, "yyyy-mm-dd")
    StatusBar_MAIN.Panels(2).Text = "當(dāng)前時(shí)間： " & Time
    
    '瀏覽狀態(tài)下設(shè)置相關(guān)操作的可用性
    If g_XTCZY = "瀏覽者" Then
        '權(quán)限設(shè)置
        '一、菜單權(quán)限設(shè)置
            '禁用信息錄入類功能
        menu_GRXXLR.Enabled = False
        menu_BJCJLR.Enabled = False
        menu_KMXXLR.Enabled = False
        menu_JCXXLR.Enabled = False
            '禁用管理類功能
        Menu_CPYD.Enabled = False
        Menu_BJCWGL.Enabled = False
        Menu_BJHDGL.Enabled = False
        Menu_JCGL.Enabled = False
            '禁用評(píng)審類功能
        Menu_LXZYDY.Enabled = False
        Menu_DYBJHZB.Enabled = False
            '禁用系統(tǒng)管理類功能
        Menu_TJCZY.Enabled = False
        Menu_XGMM.Enabled = False
        
        '二、工具欄權(quán)限設(shè)置
            '工具欄不可用
        TB_MAIN.Visible = False
    End If
End Sub