frmmdimain.frm

我就不做什么介绍了.你们打家假如要管理系统的话就下下来自己看吧

VERSION 5.00
Begin VB.MDIForm frmMDIMain 
   BackColor       =   &H00C0C0C0&
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   13800
   Icon            =   "frmMDIMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuSystemSet 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu mnuSchoolSet 
         Caption         =   "学校信息(&L)"
      End
      Begin VB.Menu mnuClassSet 
         Caption         =   "班级设置(&A)"
      End
      Begin VB.Menu mnuCourseSet 
         Caption         =   "课程设置(&U)"
      End
      Begin VB.Menu mnuExamTypeSet 
         Caption         =   "考试类型(&T)"
      End
      Begin VB.Menu mnuSeparator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuOperator 
         Caption         =   "操作员设置(&o)"
      End
      Begin VB.Menu mnuSeparator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDataBackup 
         Caption         =   "数据备份(&B)"
      End
      Begin VB.Menu mnuDataRestore 
         Caption         =   "数据恢复(&R)"
      End
      Begin VB.Menu mnuSeparator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQuit 
         Caption         =   "退出系统(&Q)"
      End
   End
   Begin VB.Menu mnuDailyManage 
      Caption         =   "日常管理(&M)"
      Begin VB.Menu mnuStudentManage 
         Caption         =   "学生信息管理(&T)"
      End
      Begin VB.Menu mnuSeparator5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuScoreManage 
         Caption         =   "学生成绩管理(&O)"
      End
   End
   Begin VB.Menu mnuDataQuery 
      Caption         =   "数据查询(&R)"
      Begin VB.Menu mnuStudentQuery 
         Caption         =   "学生信息查询"
      End
      Begin VB.Menu mnuScoreQuery 
         Caption         =   "成绩信息查询"
      End
      Begin VB.Menu mnuSeparator6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCourseQuery 
         Caption         =   "课程信息查询"
      End
      Begin VB.Menu mnuClassQuery 
         Caption         =   "班级信息查询"
      End
   End
   Begin VB.Menu mnuDataPrint 
      Caption         =   "打印输出(&P)"
      Begin VB.Menu mnuStudentPrint 
         Caption         =   "学生信息打印"
      End
      Begin VB.Menu mnuScorePrint 
         Caption         =   "成绩信息打印"
      End
      Begin VB.Menu mnuSeparator7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCoursePrint 
         Caption         =   "课程信息打印"
      End
      Begin VB.Menu mnuClassPrint 
         Caption         =   "班级信息打印"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuHorizontal 
         Caption         =   "水平平铺(&H)"
      End
      Begin VB.Menu mnuVertical 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu mnuCasCade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuArrageIcon 
         Caption         =   "排列图标(&A)"
      End
      Begin VB.Menu mnuSeparator4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCalc 
         Caption         =   "计算器"
      End
      Begin VB.Menu mnuNotepad 
         Caption         =   "计事本"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuContent 
         Caption         =   "内容(&C)..."
      End
      Begin VB.Menu mnuSeparator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于成绩管理系统(&A)..."
      End
   End
End
Attribute VB_Name = "frmMDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuArrageIcon_Click()
   Me.Arrange vbArrangeIcons
End Sub

Private Sub mnuCalc_Click()
   Call ShellExecute(hwnd, "Open", WinDir & "\system32\calc.exe", "", App.Path, 1)
End Sub

Private Sub mnuCasCade_Click()
   Me.Arrange vbCascade
End Sub
 
Private Sub mnuClassSet_Click()
   frmClassSet.Show
End Sub

Private Sub mnuCourseSet_Click()
   frmCourseSet.Show
End Sub

Private Sub mnuDataBackup_Click()
    frmDatabaseBackup.Show
End Sub

Private Sub mnuDataRestore_Click()
    frmDatabaseRestore.Show
End Sub

Private Sub mnuExamTypeSet_Click()
   frmExamTypeSet.Show
End Sub

Private Sub mnuHorizontal_Click()
   Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuNotepad_Click()
   Call ShellExecute(hwnd, "Open", WinDir & "\Notepad.exe", "", App.Path, 1)
End Sub

Private Sub mnuOperator_Click()
   frmUserSetup.Show
End Sub

Private Sub mnuSchoolSet_Click()
   frmSchoolSet.Show
End Sub

Private Sub mnuStudentManage_Click()
   frmStudentInfo.Show
End Sub

Private Sub mnuVertical_Click()
   Me.Arrange vbTileVertical
End Sub

'Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
'    On Error Resume Next
'    Select Case Button.Key
'        Case "Print"
'            'ToDo: Add 'Print' button code.
'            MsgBox "Add 'Print' button code."
'        Case "Help"
'            'ToDo: Add 'Help' button code.
'            MsgBox "Add 'Help' button code."
'    End Select
'End Sub

Private Sub MDIForm_Load()
  If UserName <> "" Then
   StatusBar1.Panels(1).Text = "操作用户: " & UserName
  Else
   StatusBar1.Panels(1).Text = "操作用户: 没有用户登录"
  End If
  StatusBar1.Panels(2).Text = Format(Date, "Long Date")
  StatusBar1.Panels(3).Text = Time
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   Call mnuQuit_Click
End Sub

Private Sub mnuAbout_Click()
   frmAbout.Show
End Sub

Private Sub mnuQuit_Click()
   End
End Sub

'Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
'    On Error Resume Next
'    Select Case Button.Key
'        Case "Print"
'            'ToDo: Add 'Print' button code.
'            MsgBox "Add 'Print' button code."
'        Case "Help"
'            'ToDo: Add 'Help' button code.
'            MsgBox "Add 'Help' button code."
'    End Select
'End Sub