main.frm

用VB语言写的班级管理系统举例,很具有参考价值!

      Caption         =   "班级事务"
      Begin VB.Menu Menu_CPYD 
         Caption         =   "车票预订"
      End
      Begin VB.Menu Menu_BJCWGL 
         Caption         =   "班级财务"
      End
      Begin VB.Menu Menu_BJHDGL 
         Caption         =   "班级活动"
      End
      Begin VB.Menu Menu_JCGL 
         Caption         =   "奖惩管理"
      End
   End
   Begin VB.Menu menu_GRPS 
      Caption         =   "综合测评"
      Begin VB.Menu Menu_TXPSB 
         Caption         =   "个人评审"
      End
      Begin VB.Menu Menu_DYBJHZB 
         Caption         =   "打印某学年班级汇总表"
         Begin VB.Menu Menu_DYXNHZ 
            Caption         =   "第一学年"
         End
         Begin VB.Menu Menu_DEXNHZ 
            Caption         =   "第二学年"
         End
         Begin VB.Menu Menu_DSXNHZ 
            Caption         =   "第三学年"
         End
         Begin VB.Menu Menu_DSIXNHZ 
            Caption         =   "第四学年"
         End
      End
      Begin VB.Menu Menu_LXZYDY 
         Caption         =   "打印某学年全部评审表"
         Begin VB.Menu Menu_DYXN 
            Caption         =   "第一学年"
         End
         Begin VB.Menu Menu_DEXN 
            Caption         =   "第二学年"
         End
         Begin VB.Menu Menu_DSXN 
            Caption         =   "第三学年"
         End
         Begin VB.Menu Menu_DSIXN 
            Caption         =   "第四学年"
         End
      End
   End
   Begin VB.Menu menu_XTAQ 
      Caption         =   "系统安全"
      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         =   "请按“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")
    '设置系统操作员
    StatusBar_MAIN.Panels(3).Text = "操作员： " & g_XTCZY
    StatusBar_MAIN.Panels(4).Text = "班级管理系统 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("确定退出系统吗？", vbYesNo + vbQuestion, "班级综合管理系统") = 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)
    '依据按下按钮的不同，调出不同的窗体
    Select Case Button.Caption
        Case "个人信息"
            MAIN.Show
        
        Case "班级成绩"
            MAIN.Show
        Case "补考名单"
           MAIN.Show
        Case "科目设置"
           MAIN.Show
        Case "车票预订"
            MAIN.Show
        Case "班级财务"
            MAIN.Show
        Case "班级活动"
           MAIN.Show
        Case "奖惩管理"
            MAIN.Show
        Case "综合测评"
           MAIN.Show
        Case "退出"
            If MsgBox("确定退出系统吗？", vbYesNo + vbQuestion) = vbYes Then
                Unload Me
                End
            End If
    End Select
    
End Sub

Private Sub TIM_ZTL_Timer()
    '刷新系统日期和时间
    StatusBar_MAIN.Panels(1).Text = "当前日期： " & Format(Date, "yyyy-mm-dd")
    StatusBar_MAIN.Panels(2).Text = "当前时间： " & Time
    
    '浏览状态下设置相关操作的可用性
    If g_XTCZY = "浏览者" Then
        '权限设置
        '一、菜单权限设置
            '禁用信息录入类功能
        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
            '禁用评审类功能
        Menu_LXZYDY.Enabled = False
        Menu_DYBJHZB.Enabled = False
            '禁用系统管理类功能
        Menu_TJCZY.Enabled = False
        Menu_XGMM.Enabled = False
        
        '二、工具栏权限设置
            '工具栏不可用
        TB_MAIN.Visible = False
    End If
End Sub