主mdi窗体.frm

用VB写的学生成绩管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   6555
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   8625
   Icon            =   "主MDI窗体.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Menu Flie 
      Caption         =   "文件(&F)"
      Begin VB.Menu HuanShenFenDengLu 
         Caption         =   "换身份登陆"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu XiTongWeiHu 
      Caption         =   "系统维护"
      Begin VB.Menu XiuGai 
         Caption         =   "修改..."
         Begin VB.Menu XiuGaiXueShengXinXi 
            Caption         =   "修改学生信息"
         End
         Begin VB.Menu XiuGaiKeChengXinXi 
            Caption         =   "修改课程信息"
         End
         Begin VB.Menu XiuGaiChengJiXinXi 
            Caption         =   "修改成绩信息"
         End
      End
      Begin VB.Menu XiuGaiDengLuXinXi 
         Caption         =   "修改登陆信息"
      End
   End
   Begin VB.Menu ChaXun 
      Caption         =   "查询"
      Begin VB.Menu ZongChaXun 
         Caption         =   "总查询"
         Begin VB.Menu XueShengBiao 
            Caption         =   "学生表"
         End
         Begin VB.Menu ChengJiBiao 
            Caption         =   "成绩表"
         End
         Begin VB.Menu KeChengBiao 
            Caption         =   "课程表"
         End
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Begin VB.Menu BangZhu 
         Caption         =   "帮助"
      End
      Begin VB.Menu GuanYu 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub ChengJiBiao_Click()
QJBL_2 = 3
MDI_ZongChaXun.Show
MDI_ZongChaXun.Form_Ref
End Sub

Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub HuanShenFenDengLu_Click()
    QJBL_1 = 1
    frmDenglu.Show vbModal
End Sub

Private Sub KeChengBiao_Click()
QJBL_2 = 2
MDI_ZongChaXun.Show
MDI_ZongChaXun.Form_Ref
End Sub

Private Sub XiuGaiChengJiXinXi_Click()
    MDI_TianJia.Show
    MDI_TianJia.SSTab1.Tab = 2
End Sub

Private Sub XiuGaiDengLuXinXi_Click()
    MDI_XiuGai_DengLuYongHu.Show
End Sub

Private Sub XiuGaiKeChengXinXi_Click()
    MDI_TianJia.Show
    MDI_TianJia.SSTab1.Tab = 1
End Sub

Private Sub XiuGaiXueShengXinXi_Click()
    MDI_TianJia.Show
    MDI_TianJia.SSTab1.Tab = 0
End Sub

Private Sub XueShengBiao_Click()
    QJBL_2 = 1
    MDI_ZongChaXun.Show
    MDI_ZongChaXun.Form_Ref
End Sub