formmain.frm

来自「vb数据库编程资料」· FRM 代码 · 共 107 行

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "课程管理系统"
   ClientHeight    =   5145
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7695
   LinkTopic       =   "Form1"
   ScaleHeight     =   5145
   ScaleWidth      =   7695
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mntCourse 
      Caption         =   "课程管理(&C)"
      Begin VB.Menu mntCourseMaint 
         Caption         =   "课程库管理(&M)"
      End
      Begin VB.Menu mntCourseArrange 
         Caption         =   "课程安排(&A)"
      End
      Begin VB.Menu mntCourseQeury 
         Caption         =   "课程安排查询(&Q)"
      End
      Begin VB.Menu mntCourseClass 
         Caption         =   "班级课表(&T)"
      End
   End
   Begin VB.Menu mntScore 
      Caption         =   "成绩管理(&S)"
      Begin VB.Menu mntScoreManage 
         Caption         =   "成绩库管理(&M)"
      End
      Begin VB.Menu mntScoreSP 
         Caption         =   "-"
      End
      Begin VB.Menu mntScoreStudent 
         Caption         =   "学生成绩查询(&Q)"
      End
      Begin VB.Menu mntScoreClass 
         Caption         =   "班级成绩分析(&A)"
      End
   End
   Begin VB.Menu mntSystem 
      Caption         =   "系统维护(&M)"
      Begin VB.Menu mntSysUsers 
         Caption         =   "用户管理(&U)"
      End
      Begin VB.Menu mntSysSP1 
         Caption         =   "-"
      End
      Begin VB.Menu mntSysAbout 
         Caption         =   "关于(&A)"
      End
      Begin VB.Menu mntSysSP2 
         Caption         =   "-"
      End
      Begin VB.Menu mntSysQuit 
         Caption         =   "退出系统(&Q)"
      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 Form_Load()
  Caption = "课程管理系统 - [" & UserName & "]"
End Sub

Private Sub mntCourseArrange_Click()
  frmCourseArrange.Show vbModal
End Sub

Private Sub mntCourseClass_Click()
  frmCourseClass.Show vbModal
End Sub

Private Sub mntCourseMaint_Click()
  frmCourseManage.Show vbModal
End Sub

Private Sub mntCourseQeury_Click()
  frmCourseQuery.Show vbModal
End Sub

Private Sub mntScoreClass_Click()
  frmScoreClass.Show vbModal
End Sub

Private Sub mntScoreManage_Click()
  frmScoreManage.Show vbModal
End Sub

Private Sub mntScoreStudent_Click()
  frmScoreStudent.Show vbModal
End Sub

Private Sub mntSysQuit_Click()
  End
End Sub

Private Sub mntSysUsers_Click()
  frmUsers.Show vbModal
End Sub