frmmain.frm

毕业设计的学生成绩管理

      Stretch         =   -1  'True
      Top             =   840
      Width           =   12060
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu mmsz 
         Caption         =   "密码设置(&P)"
      End
      Begin VB.Menu xtxx 
         Caption         =   "系统参数设置(&A)"
      End
      Begin VB.Menu sep1 
         Caption         =   "-"
      End
      Begin VB.Menu logout 
         Caption         =   "注销(&L)"
      End
      Begin VB.Menu tc 
         Caption         =   "退出(&X)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu dagl 
      Caption         =   "档案管理(&A)"
      Begin VB.Menu dalr 
         Caption         =   "档案录入(&I)"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu dzcxwh 
         Caption         =   "档案查询与维护(&Q)"
         Begin VB.Menu xhcxda 
            Caption         =   "按学号查询(&C)"
            Shortcut        =   ^{F3}
         End
         Begin VB.Menu xmcxda 
            Caption         =   "按姓名查询(&N)"
            Shortcut        =   ^{F4}
         End
         Begin VB.Menu xbzycxda 
            Caption         =   "按系别专业查询(&S)"
            Shortcut        =   ^{F5}
         End
         Begin VB.Menu zhcxda 
            Caption         =   "组合查询(&B)"
            Shortcut        =   ^{F6}
         End
      End
   End
   Begin VB.Menu cjgl 
      Caption         =   "成绩管理(&G)"
      Begin VB.Menu cjlr 
         Caption         =   "成绩录入与修改(&I)"
         Shortcut        =   {F2}
      End
      Begin VB.Menu cjcxwh 
         Caption         =   "成绩查询(&Q)"
         Begin VB.Menu chcxcj 
            Caption         =   "按学号查询(&C)"
            Shortcut        =   {F3}
         End
         Begin VB.Menu xmcxcj 
            Caption         =   "按姓名查询(&N)"
            Shortcut        =   {F4}
         End
         Begin VB.Menu xbzycxcj 
            Caption         =   "按系别专业查询(&S)"
            Shortcut        =   {F5}
         End
         Begin VB.Menu kccxcj 
            Caption         =   "按课程查询(&R)"
            Shortcut        =   {F6}
         End
      End
      Begin VB.Menu cjpb 
         Caption         =   "成绩排榜(&O)"
         Shortcut        =   {F7}
      End
   End
   Begin VB.Menu qt 
      Caption         =   "其它(&O)"
      Begin VB.Menu kcxxwh 
         Caption         =   "课程信息维护(&R)"
      End
      Begin VB.Menu kcap 
         Caption         =   "课程安排(&P)"
      End
      Begin VB.Menu xbgl 
         Caption         =   "-"
      End
      Begin VB.Menu xbxxwh 
         Caption         =   "系别信息维护(&D)"
      End
      Begin VB.Menu zyxxwh 
         Caption         =   "专业信息维护(&S)"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助(&H)"
      Begin VB.Menu nr 
         Caption         =   "帮助内容(&H)..."
         Shortcut        =   {F1}
      End
      Begin VB.Menu sep2 
         Caption         =   "-"
      End
      Begin VB.Menu gy 
         Caption         =   "关于(&A)..."
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub chcxcj_Click()
    Load FrmCjxhcx
    FrmCjxhcx.Show
    FrmMain.Enabled = False
End Sub

Private Sub cjlr_Click()
    Load FrmCjlr
    FrmCjlr.Show
    FrmMain.Enabled = False
End Sub

Private Sub cjpb_Click()
    Load FrmCjpb
    FrmCjpb.Show
    FrmMain.Enabled = False
End Sub

Private Sub dalr_Click()
    Load FrmDalr
    FrmDalr.Show
    FrmMain.Enabled = False
End Sub

Private Sub Form_Load()
    Image1.Left = 45
    Image1.Top = 600
    Image1.Width = Me.Width - 120
    Image1.Height = Me.Height - 1400
    StatusBar1.Panels(5).Enabled = True
    StatusBar1.Panels(6).Enabled = True
    Me.Enabled = False
    Load FrmDlck
    FrmDlck.Show
End Sub

Private Sub gy_Click()
    Load frmAbout
    frmAbout.Show
    FrmMain.Enabled = False
End Sub

Private Sub kcap_Click()
    Load FrmKcap
    FrmKcap.Show
    FrmMain.Enabled = False
End Sub

Private Sub kccxcj_Click()
    Load FrmCjkccx
    FrmCjkccx.Show
    FrmMain.Enabled = False
End Sub

Private Sub kcxxwh_Click()
    Load FrmKcxxgl
    FrmKcxxgl.Show
    FrmMain.Enabled = False
End Sub

Private Sub logout_Click()
    If MsgBox("您确实要注销本次登录吗？", vbYesNo, "系统信息") = vbYes Then
        Form_Load
    End If
End Sub

Private Sub mmsz_Click()
    Load FrmMmsz
    FrmMmsz.Show
    FrmMain.Enabled = False
End Sub

Private Sub nr_Click()
    Shell "hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub tc_Click()
    End
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.index
        Case 1
            Load FrmDalr
            FrmDalr.Show
            FrmMain.Enabled = False
        Case 2
            Load frmdaxhcx
            frmdaxhcx.Show
            FrmMain.Enabled = False
        Case 3
            Load frmdaxmcx
            frmdaxmcx.Show
            FrmMain.Enabled = False
        Case 4
            Load frmDaxbzycx
            frmDaxbzycx.Show
            FrmMain.Enabled = False
        Case 5
            Load frmDazhcx
            frmDazhcx.Show
            FrmMain.Enabled = False
        Case 7
            Load FrmCjlr
            FrmCjlr.Show
            FrmMain.Enabled = False
        Case 8
            Load frmCjxmcx
            frmCjxmcx.Show
            FrmMain.Enabled = False
        Case 9
            Load FrmCjxhcx
            FrmCjxhcx.Show
            FrmMain.Enabled = False
        Case 10
            Load FrmCjxbzycx
            FrmCjxbzycx.Show
            FrmMain.Enabled = False
        Case 11
            Load FrmCjkccx
            FrmCjkccx.Show
            FrmMain.Enabled = False
        Case 13
            Shell "hh.exe " & App.Path & "\help.chm", vbNormalFocus
        Case 14
            End
    End Select
End Sub

Private Sub xbxxwh_Click()
    Load FrmXbxxwh
    FrmXbxxwh.Show
    FrmMain.Enabled = False
End Sub

Private Sub xbzycxcj_Click()
    Load FrmCjxbzycx
    FrmCjxbzycx.Show
    FrmMain.Enabled = False
End Sub

Private Sub xbzycxda_Click()
    Load frmDaxbzycx
    frmDaxbzycx.Show
    FrmMain.Enabled = False
End Sub

Private Sub xhcxda_Click()
    Load frmdaxhcx
    frmdaxhcx.Show
    FrmMain.Enabled = False
End Sub

Private Sub xmcxcj_Click()
    Load frmCjxmcx
    frmCjxmcx.Show
    FrmMain.Enabled = False
End Sub

Private Sub xmcxda_Click()
    Load frmdaxmcx
    frmdaxmcx.Show
    FrmMain.Enabled = False
End Sub

Private Sub xtxx_Click()
    Load FrmXtsz
    FrmXtsz.Show
    FrmMain.Enabled = False
End Sub

Private Sub zhcxda_Click()
    Load frmDazhcx
    frmDazhcx.Show
    FrmMain.Enabled = False
End Sub

Private Sub zyxxwh_Click()
    Load FrmZyxxwh
    FrmZyxxwh.Show
    FrmMain.Enabled = False
End Sub