frmmain.frm

大学数据库原理的课程设计

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "学生信息管理系统"
   ClientHeight    =   4530
   ClientLeft      =   1875
   ClientTop       =   1980
   ClientWidth     =   6360
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MouseIcon       =   "frmMain.frx":030A
   Picture         =   "frmMain.frx":0614
   ScaleHeight     =   4530
   ScaleWidth      =   6360
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   6360
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统(&S)"
      Begin VB.Menu mnuAddUser 
         Caption         =   "添加用户(&A)"
      End
      Begin VB.Menu mnuDelUser 
         Caption         =   "删除用户(&D)"
      End
      Begin VB.Menu mnuModiPurview 
         Caption         =   "更改权限(&R)"
      End
      Begin VB.Menu mnuPassWord 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu BarS1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu mnuEssential 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu mnuNew 
         Caption         =   "添加学籍信息(&N)"
      End
      Begin VB.Menu mnuModiEss 
         Caption         =   "修改学籍信息(&M)"
      End
      Begin VB.Menu mnuQueryEss 
         Caption         =   "查询学籍信息(&Q)"
      End
   End
   Begin VB.Menu mnuCourse 
      Caption         =   "课程管理(&C)"
      Begin VB.Menu mnuAddCourse 
         Caption         =   "添加课程(&A)"
      End
      Begin VB.Menu mnuModiCourse 
         Caption         =   "修改课程(&M)"
      End
   End
   Begin VB.Menu mnuGrade 
      Caption         =   "成绩管理(&G)"
      Begin VB.Menu mnuInputGrade 
         Caption         =   "输入成绩(&I)"
      End
      Begin VB.Menu mnuModiGrade 
         Caption         =   "修改成绩(&M)"
      End
      Begin VB.Menu mnuQueryGrade 
         Caption         =   "查询成绩(&Q)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'主窗体frmMain
Option Explicit

Private Sub Form_Initialize()
    ChDrive App.Path
    ChDir App.Path
    Me.WindowState = vbMaximized
              
End Sub

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
    If Me.Width < 6000 Then Me.Width = 6000
    If Me.Height < 5000 Then Me.Height = 5000
             
    Me.Refresh
End Sub

Private Sub mnuAbout_Click() '关于
    MsgBox Space(6) & "数据库课程试验" & Space(6) & vbCr & vbCr & Space(9) & "NO.47 孙永胜"
End Sub

Private Sub mnuAddCourse_Click() '添加课程
    frmAddCourse.Show
    Me.Hide
End Sub

Private Sub mnuAddUser_Click() '添加用户
    frmUser.Show
    Me.Hide
End Sub

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

Private Sub mnuExit_Click() '退出
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer) '主窗体卸载
    On Error GoTo Quit
    Dim i As Integer
    Set pubCnn = Nothing
   
    For i = Forms.Count - 1 To 0 Step -1
       Unload Forms(i)
    Next
    Exit Sub
Quit:
    End '出错时强制退出
End Sub

Private Sub mnuInputGrade_Click() '输入成绩
    frmInGrade.Show
    Me.Hide
End Sub

Private Sub mnuModiCourse_Click() '修改课程信息
    frmModiCourse.Show
    Me.Hide
End Sub

Private Sub mnuModiEss_Click() '修改学籍信息
    frmModiEss.Show
    Me.Hide
End Sub

Private Sub mnuModiGrade_Click() '修改成绩
    frmModiGrade.Show
    Me.Hide
End Sub

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

Private Sub mnuNew_Click() '添加学籍信息
    frmAddEss.Show
    Me.Hide
End Sub

Private Sub mnuPassWord_Click() '修改密码
    frmModiPass.Show
    Me.Hide
End Sub

Private Sub mnuQueryEss_Click() '查询学籍信息
    frmQueryEss.Show
    Me.Hide
End Sub

Private Sub mnuQueryGrade_Click() '查询成绩信息
    frmQueryGrade.Show
    Me.Hide
End Sub