frmmain.frm

学生成绩管理系统,学生成绩的增删改查功能,学期管理功能

VERSION 5.00
Begin VB.MDIForm frmmain 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   6465
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9795
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmmain.frx":0000
   StartUpPosition =   2  'CenterScreen
   Begin VB.Menu m_system 
      Caption         =   "系统管理"
      Begin VB.Menu m_s_adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu m_S_modi 
         Caption         =   "修改密码"
      End
      Begin VB.Menu m_s_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu m_manger 
      Caption         =   "学籍管理"
      Begin VB.Menu m_x_add 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu m_x_modifier 
         Caption         =   "修改学籍信息"
      End
      Begin VB.Menu m_x_query 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu x_c_manager 
      Caption         =   "课程管理"
      Begin VB.Menu m_c_add 
         Caption         =   "添加课程信息"
      End
      Begin VB.Menu m_c_modify 
         Caption         =   "修改课程信息"
      End
      Begin VB.Menu m_c_query 
         Caption         =   "查询课程信息"
      End
   End
   Begin VB.Menu m_cj_manager 
      Caption         =   "成绩管理"
      Begin VB.Menu m_cj_add 
         Caption         =   "添加成绩信息"
      End
      Begin VB.Menu m_cj_modify 
         Caption         =   "修改成绩信息"
      End
      Begin VB.Menu m_cj_query 
         Caption         =   "查询成绩信息"
      End
   End
   Begin VB.Menu m_help 
      Caption         =   "帮助"
      Begin VB.Menu m_use 
         Caption         =   "使用说明"
      End
      Begin VB.Menu m_about 
         Caption         =   "关于"
      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 m_cj_add_Click()
  frmcjadd.Show 1
End Sub

Private Sub m_cj_query_Click()
 Form1.Show 1
End Sub

Private Sub m_s_adduser_Click()
    frmadduser.Show 1
End Sub

Private Sub m_s_exit_Click()
 End
End Sub

Private Sub m_S_modi_Click()
  frmmodify.Show 1
End Sub

Private Sub m_x_add_Click()
  frmxjadd.Show 1
End Sub

Private Sub m_x_modifier_Click()
  frmxjmodify.Show 1
End Sub

Private Sub m_x_query_Click()
 frmxjquery.Show 1
End Sub