frmmain.frm

校园导游管理系统！！这个应该对很多人都比较有用

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmmain 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   8190
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7875
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.StatusBar StatusBarmy 
      Align           =   2  'Align Bottom
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   7575
      Width           =   7875
      _ExtentX        =   13891
      _ExtentY        =   1085
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu 系统 
      Caption         =   "系统"
      Begin VB.Menu tianjiayonghu 
         Caption         =   "添加用户"
      End
      Begin VB.Menu xiugaimima 
         Caption         =   "修改密码"
      End
      Begin VB.Menu xitongchushihua 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu tuichuxitong 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu xuejiguanli 
      Caption         =   "学籍管理"
      Begin VB.Menu tianjiaxuejixinxi 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu xiugaixuejixinxi 
         Caption         =   "修改学籍信息"
      End
   End
   Begin VB.Menu banjiguanli 
      Caption         =   "班级管理"
   End
   Begin VB.Menu kechengshezhi 
      Caption         =   "课程设置"
   End
   Begin VB.Menu chengjiguanli 
      Caption         =   "成绩管理"
      Begin VB.Menu tianjiachengjixinxi 
         Caption         =   "添加成绩信息"
      End
      Begin VB.Menu xiugaichengjixinxi 
         Caption         =   "修改成绩信息"
      End
      Begin VB.Menu chaxunchengjixinxi 
         Caption         =   "查询成绩信息"
      End
   End
   Begin VB.Menu bangzhu 
      Caption         =   "帮助"
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Load()
frmmain.StatusBarmy.Panels.Item(2).Text = "登录日期：" & Date
frmmain.StatusBarmy.Panels.Item(3).Text = "登录时间：" & Time
End Sub

Private Sub tianjiaxueshengxinxi_Click()

End Sub

Private Sub tianjiaxuejixinxi_Click()
Dim ftianjiaxuejixinxi As New frmtianjiaxuejixinxi
ftianjiaxuejixinxi.Show

End Sub

Private Sub tianjiayonghu_Click()
Dim ftianjiayonghu  As New frmtianjiayonghu
ftianjiayonghu.Show

End Sub

Private Sub xiugaimima_Click()
Dim fxiugaimima As New frmxiugaimima
fxiugaimima.Show
End Sub

Private Sub xiugaixuejixinxi_Click()
Dim fxiugaixuejixinxi As New Frmxiugaixuejixinxi
fxiugaixuejixinxi.Show
End Sub