frmmain.frm

用VB开发的一个学生管理系统

VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   5460
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   7560
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   Picture         =   "FrmMain.frx":0000
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu mn_1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_newuser 
         Caption         =   "注册用户"
      End
      Begin VB.Menu mn_editpwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mn_deluser 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnuBar1 
         Caption         =   "________"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_student 
      Caption         =   "学生管理"
      Begin VB.Menu mn_addstudent 
         Caption         =   "添加学生信息"
      End
      Begin VB.Menu mn_delstudent 
         Caption         =   "删改学生信息"
      End
      Begin VB.Menu mn_searchstudent 
         Caption         =   "查询学生信息"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "学生成绩管理"
      Begin VB.Menu mn_score 
         Caption         =   "添加成绩"
      End
      Begin VB.Menu mn_delscore 
         Caption         =   "删改成绩"
      End
      Begin VB.Menu mn_searchscore 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu mn_lesson 
      Caption         =   "课程管理"
      Begin VB.Menu mn_addlesson 
         Caption         =   "添加课程"
      End
      Begin VB.Menu mn_dellesson 
         Caption         =   "删改课程"
      End
      Begin VB.Menu mn_searchlesson 
         Caption         =   "查询课程"
      End
   End
   Begin VB.Menu mn_class0 
      Caption         =   "班级管理"
      Begin VB.Menu mn_class 
         Caption         =   "班级管理"
      End
      Begin VB.Menu mn_searchclass 
         Caption         =   "查询班级"
      End
   End
   Begin VB.Menu mn_about 
      Caption         =   "关于..."
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
FrmMain.Height = Screen.Height
FrmMain.Width = Screen.Width
FrmMain.Top = 0
FrmMain.Left = 0
End Sub

Private Sub mn_about_Click()
Frmabout.Show
End Sub



Private Sub mn_addlesson_Click()
Frmadd_course.Show
End Sub

Private Sub mn_addstudent_Click()
Frmadd_student.Show
End Sub
Private Sub mn_class_Click()
Frmadmin_class.Show
End Sub

Private Sub mn_dellesson_Click()
Frmdel_course.Show
End Sub

Private Sub mn_delscore_Click()
Frmdel_score.Show
End Sub

Private Sub mn_delstudent_Click()
Frmdel_student.Show
End Sub

Private Sub mn_deluser_Click()
Frmdel_user.Show
End Sub

Private Sub mn_editpwd_Click()
Frmedit_user.Show
End Sub

Private Sub mn_exit_Click()
Unload Me
End Sub


Private Sub mn_newuser_Click()
FrmNew_user.Show
End Sub

Private Sub mn_score_Click()
Frmadd_score.Show
End Sub

Private Sub mn_searchclass_Click()
Frmquery_class.Show
End Sub

Private Sub mn_searchlesson_Click()
Frmquery_course.Show
End Sub

Private Sub mn_searchscore_Click()
Frmquery_score.Show
End Sub

Private Sub mn_searchstudent_Click()
Frmquery_student.Show
End Sub