frmmainuser.frm

来自「本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大」· FRM 代码 · 共 61 行

VERSION 5.00
Begin VB.Form frmmainuser 
   Caption         =   "学生查询"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu sysMenu 
      Caption         =   "系统"
      Begin VB.Menu modifypwdMenu2 
         Caption         =   "修改密码"
      End
      Begin VB.Menu exitMenu 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu sinfoMenu 
      Caption         =   "学籍信息"
      Begin VB.Menu inquiresinfoMenu 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu resultMenu 
      Caption         =   "成绩信息"
      Begin VB.Menu inquireresultMenu 
         Caption         =   "查询成绩信息"
      End
   End
End
Attribute VB_Name = "frmmainuser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub adduserMenu2_Click()
    frmAdduser.Show
    sbStatusBar.Panels(1).Text = "添加学生"
End Sub

Private Sub exitMenu_Click()
    End
End Sub

Private Sub inquireresultMenu_Click()
    frmInquiresinfo.Show
End Sub

Private Sub inquiresinfoMenu_Click()
    frmInquiresinfo.Show
End Sub

Private Sub modifypwdMenu2_Click()
    frmModifyuserinfo.Show
End Sub