frmmain.frm

这是一个VB+ACCESS开发的学生信息管理系统,我是用了一个多月才弄出来的嘎,界面美观,功能使用,你感觉好的话,那你要支持我的嘎!

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   $"frmmain.frx":0000
   ClientHeight    =   8925
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   13215
   Icon            =   "frmmain.frx":03F0
   LinkTopic       =   "Form2"
   ScaleHeight     =   8925
   ScaleWidth      =   13215
   StartUpPosition =   3  '窗口缺省
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   8985
      Left            =   -120
      Picture         =   "frmmain.frx":0CBA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   13380
   End
   Begin VB.Menu mnusystem 
      Caption         =   "系统"
      Begin VB.Menu mnuAddUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mnuDelUser 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnuModiPurview 
         Caption         =   "更改权限"
      End
      Begin VB.Menu mnuPassword 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuXJGL 
      Caption         =   "学籍管理"
      Begin VB.Menu mnuAddModiEss 
         Caption         =   "添加或修改学籍信息"
      End
      Begin VB.Menu mnuQueryEss 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu mnuBLGL 
      Caption         =   "班级管理"
      Begin VB.Menu mnuDeparment 
         Caption         =   "添加或修改系"
      End
      Begin VB.Menu mnuSpecialty 
         Caption         =   "添加或修改专业"
      End
      Begin VB.Menu mnuClassInfo 
         Caption         =   "添加或修改班级"
      End
   End
   Begin VB.Menu mnuCLKC 
      Caption         =   "成绩与课程管理"
      Begin VB.Menu mnuInModiGrade 
         Caption         =   "输入或修改成绩"
      End
      Begin VB.Menu mnuQueryGrade 
         Caption         =   "查询成绩"
      End
      Begin VB.Menu mnuAddModiCourse 
         Caption         =   "添加或修改课程"
      End
   End
   Begin VB.Menu mnuHELP 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  mnuAddUser.Visible = gblnPurview
  mnuDelUser.Visible = gblnPurview
  mnuModiPurview.Visible = gblnPurview
  Call CreateConnection
End Sub

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then Exit Sub
Image1.Left = 0
Image1.Top = 0
Image1.Width = Me.ScaleWidth
Image1.Height = Me.ScaleHeight
End Sub

Private Sub mnuAbout_Click()
MsgBox Space(2) & "昆明理工大学楚雄应用技术学院" & Space(2) & vbCr & vbCr & Space(9) & "计算机网络05级" & Space(9) & vbCr & vbCr & Space(13) & "李卫东", vbOKOnly, "学生信息管理系统"
End Sub

Private Sub mnuAddModiCourse_Click()
frmCourse.Show 1
End Sub

Private Sub mnuAddModiEss_Click()
frmEss.SSTab1.Tab = 0
frmEss.Show 1
End Sub

Private Sub mnuAddUser_Click()
frmUser.Show 1
End Sub

Private Sub mnuClassInfo_Click()
frmClass.SSTab1.Tab = 2
frmClass.Show 1
End Sub

Private Sub mnuDelUser_Click()
frmDelUser.Caption = "删除用户"
frmDelUser.Show 1
End Sub

Private Sub mnuDeparment_Click()
frmClass.SSTab1.Tab = 0
frmClass.Show 1
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuInModiGrade_Click()
frmGrade.SSTab1.Tab = 0
frmGrade.Show 1
End Sub

Private Sub mnuModiPurview_Click()
frmDelUser.Caption = "更改用户权限"
frmDelUser.Show 1
End Sub

Private Sub mnuPassword_Click()
frmModiPass.Show 1
End Sub

Private Sub mnuQueryEss_Click()
frmEss.SSTab1.Tab = 1
frmEss.Show 1
End Sub

Private Sub mnuQueryGrade_Click()
frmGrade.SSTab1.Tab = 1
frmGrade.Show 1
End Sub

Private Sub mnuSpecialty_Click()
frmClass.SSTab1.Tab = 1
frmClass.Show 1
End Sub