frmmain.frm

来自「一个用vb做的课程设计,功能强大.基本上包括实际应用的所有功能,当时也是得分很高」· FRM 代码 · 共 152 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00FFC0C0&
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11880
   LinkTopic       =   "MDIForm1"
   Picture         =   "FrmMain.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu System 
      Caption         =   "系统管理"
      Index           =   1
      NegotiatePosition=   1  'Left
      Begin VB.Menu Add_User 
         Caption         =   "添加用户"
         Index           =   2
         Shortcut        =   ^A
      End
      Begin VB.Menu Chang_PWD 
         Caption         =   "修改密码"
         Index           =   3
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu StudentBasic_Info 
      Caption         =   "学生基本信息管理"
      Begin VB.Menu StudentBasic 
         Caption         =   "显示学生基本信息"
         Shortcut        =   ^I
      End
      Begin VB.Menu Add_Student 
         Caption         =   "学生基本信息管理"
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu Student_Class 
      Caption         =   "课程基本信息管理"
      Begin VB.Menu ShowProf 
         Caption         =   "显示专业课基本信息"
         Shortcut        =   ^M
      End
      Begin VB.Menu Profession_Info 
         Caption         =   "专业课程信息管理"
         Shortcut        =   ^P
      End
      Begin VB.Menu ShowSelect 
         Caption         =   "显示学生选修课信息"
         Shortcut        =   ^Z
      End
      Begin VB.Menu Select_Info 
         Caption         =   "选修课程信息管理"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu Student_Grade 
      Caption         =   "学生成绩管理"
      Begin VB.Menu Profession_Grade 
         Caption         =   "专业课成绩管理"
         Shortcut        =   ^K
      End
      Begin VB.Menu Select_Grade 
         Caption         =   "选修课成绩管理"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu Student_Help 
      Caption         =   "帮助"
      Begin VB.Menu Help 
         Caption         =   "帮助内容"
         Shortcut        =   {F1}
      End
   End
   Begin VB.Menu Exit 
      Caption         =   "退出"
      Begin VB.Menu Exit_sys 
         Caption         =   "退出系统"
         Shortcut        =   {F4}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Add_Student_Click()
FrmStudent_Manage.Show

End Sub

Private Sub Add_User_Click(Index As Integer)
FrmModUserName.Show
End Sub

Private Sub Chang_PWD_Click(Index As Integer)
FrmModPWD.Show
End Sub

Private Sub Check_Student_Click()
FrmQury.Show
End Sub

Private Sub StudentInfo_Click()

End Sub

Private Sub Exit_sys_Click()
If MsgBox("确定要退出该学生成绩管理系统吗？", vbOKCancel + vbExclamation, "提示！") = vbOK Then
End
End If
End Sub

Private Sub Help_Click()
FrmContenHelp.Show
End Sub

Private Sub Profession_Grade_Click()
FrmProGrade_Manage.Show
End Sub

Private Sub Profession_Info_Click()
FrmProCs_Manage.Show
End Sub

Private Sub Select_Grade_Click()
FrmSelGrade_Manage.Show
End Sub

Private Sub Select_Info_Click()
FrmSelectCs_Manage.Show
End Sub

Private Sub ShowProf_Click()
  FrmProfession_Course.Show
End Sub

Private Sub ShowSelect_Click()
FrmSelect_Course.Show
End Sub

Private Sub StudentBasic_Click()
FrmBasic_Student.Show
End Sub

Private Sub System_Exit_Click(Index As Integer)
 Unload Me
End Sub