form3.frm

学籍信息管理系统 基本的学生管理功能都实现了

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form3 
   AutoRedraw      =   -1  'True
   Caption         =   "学籍管理系统"
   ClientHeight    =   9480
   ClientLeft      =   675
   ClientTop       =   300
   ClientWidth     =   13935
   LockControls    =   -1  'True
   ScaleHeight     =   9480
   ScaleWidth      =   13935
   StartUpPosition =   1  '所有者中心
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   2055
      Left            =   0
      TabIndex        =   0
      Top             =   7425
      Width           =   13935
      _ExtentX        =   24580
      _ExtentY        =   3625
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6630
      Top             =   180
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   8595
      Left            =   0
      Picture         =   "Form3.frx":0000
      Stretch         =   -1  'True
      Top             =   630
      Width           =   13905
   End
   Begin VB.Menu menu1 
      Caption         =   "系统设置(&P)"
      Begin VB.Menu menu11 
         Caption         =   "用户管理"
      End
      Begin VB.Menu menu12 
         Caption         =   "重新登录(&R)"
      End
      Begin VB.Menu menu13 
         Caption         =   "系统日志(&L)"
      End
      Begin VB.Menu menu14 
         Caption         =   "-"
      End
      Begin VB.Menu menu15 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu menu21 
         Caption         =   "添加学生学籍(&A)"
      End
      Begin VB.Menu menu22 
         Caption         =   "查询修改学生信息(&F)"
      End
      Begin VB.Menu menu23 
         Caption         =   "注销学生学籍(&D)"
      End
      Begin VB.Menu menu24 
         Caption         =   "学生信息打印(&P)"
      End
      Begin VB.Menu menu25 
         Caption         =   "管理日志"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "班级管理(&C)"
      Begin VB.Menu menu31 
         Caption         =   "添加班级"
      End
      Begin VB.Menu menu32 
         Caption         =   "查询班级"
      End
      Begin VB.Menu menu33 
         Caption         =   "注销班级"
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "专业课程管理(&I)"
      Begin VB.Menu menu41 
         Caption         =   "设置专业"
      End
      Begin VB.Menu menu42 
         Caption         =   "设置课程"
      End
      Begin VB.Menu menu43 
         Caption         =   "查询修改"
      End
   End
   Begin VB.Menu menu5 
      Caption         =   "成绩管理(&S)"
      Begin VB.Menu menu51 
         Caption         =   "添加成绩"
      End
      Begin VB.Menu menu52 
         Caption         =   "查询修改"
      End
      Begin VB.Menu menu53 
         Caption         =   "打印成绩"
      End
   End
   Begin VB.Menu menu7 
      Caption         =   "常用工具(&T)"
      Begin VB.Menu menu71 
         Caption         =   "计算器"
      End
      Begin VB.Menu menu72 
         Caption         =   "记事本"
      End
   End
   Begin VB.Menu menu6 
      Caption         =   "帮助(&H)"
      Begin VB.Menu menu61 
         Caption         =   "帮助"
      End
      Begin VB.Menu menu62 
         Caption         =   "关于"
      End
      Begin VB.Menu menu63 
         Caption         =   "系统信息"
      End
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
Form3.Icon = LoadPicture(App.Path + "\tupian\1.ico")
Image1.Picture = LoadPicture(App.Path + "\tupian\face.jpg")
Me.StatusBar1.Panels(1).Text = "高校学籍管理系统"
Me.StatusBar1.Panels(2).Text = "日期：" + Format(Date, "yyyy年mm月dd日")
End Sub
Private Sub menu11_Click()
Form8.Show
End Sub

Private Sub menu12_Click()
Unload Me
Form1.Show
End Sub
Private Sub menu15_Click()
End
End Sub
Private Sub menu62_Click()
frmAbout.Show
End Sub

Private Sub menu71_Click()
Dim a As Integer
a = Shell(App.Path + "\calc.exe", 1)
End Sub

Private Sub menu72_Click()
Dim b As Integer
b = Shell(App.Path + "\notepad.exe", 1)
End Sub

Private Sub Timer1_Timer()
Me.StatusBar1.Panels(3).Text = "现在时间：" + Time$
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "m1"
Form8.Show
Case "m2"
Form4.Show
Case "m3"
Form5.Show
Case "m4"
Form6.Show
Case "m5"
Form7.Show
End Select
End Sub