frmmain.frm

该系统是一个学生信息管理系统

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "学生信息管理系统"
   ClientHeight    =   5100
   ClientLeft      =   1875
   ClientTop       =   1980
   ClientWidth     =   7200
   LinkTopic       =   "Form1"
   Picture         =   "frmMain.frx":0000
   ScaleHeight     =   5100
   ScaleWidth      =   7200
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "学生信息管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   22.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   465
      Left            =   1320
      TabIndex        =   1
      Top             =   2160
      Width           =   3555
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎使用"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   22.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   450
      Left            =   2160
      TabIndex        =   0
      Top             =   1320
      Width           =   1830
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   6885
      Y1              =   0
      Y2              =   15
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      BorderWidth     =   3
      X1              =   0
      X2              =   6360
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      Height          =   2175
      Left            =   960
      Shape           =   4  'Rounded Rectangle
      Top             =   960
      Width           =   4305
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00404040&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      Height          =   2175
      Left            =   1050
      Shape           =   4  'Rounded Rectangle
      Top             =   1050
      Width           =   4305
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统(&S)"
      Begin VB.Menu mnuAddUser 
         Caption         =   "添加用户(&A)"
      End
      Begin VB.Menu mnuDelUser 
         Caption         =   "删除用户(&D)"
      End
      Begin VB.Menu mnuModiPow 
         Caption         =   "更改权限(&R)"
      End
      Begin VB.Menu mnumodipass 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu BarS1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu mnuEss 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu mnuAddEss 
         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 mnuInGrade 
         Caption         =   "输入成绩(&I)"
      End
      Begin VB.Menu mnuModiGrade 
         Caption         =   "修改成绩(&M)"
      End
      Begin VB.Menu mnuQueryGrade 
         Caption         =   "查询成绩(&Q)"
      End
   End
   Begin VB.Menu Report 
      Caption         =   "报表(&R)"
      Begin VB.Menu mnudpess 
         Caption         =   "学籍报表(&E)"
      End
      Begin VB.Menu mnudpgrade 
         Caption         =   "成绩报表(&G)"
      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
    Call MySize                 '调整控件位置
End Sub

Private Sub Form_Load()
    '根据用户权限确定是否显示用户管理各菜单项
    mnuAddUser.Visible = gblnPow
    mnuDelUser.Visible = gblnPow
    mnuModiPow.Visible = gblnPow
    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
    Call MySize             '调整控件位置
    Me.Refresh
End Sub

Private Sub mnudpess_Click()
Dpess.Refresh
Dpess.Show
End Sub

Private Sub mnudpgrade_Click()
Dpgrade.Refresh
Dpgrade.Show
End Sub

Private Sub mnuAbout_Click() '关于
    MsgBox Space(6) & "学生信息管理系统" & Space(6) & vbCr & vbCr & Space(9) & "版本： 1.0"
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 mnuInGrade_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 mnuModiPow_Click()
    frmDelUser.Caption = "更改用户权限"
    frmDelUser.Show
    Me.Hide
End Sub

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

Private Sub mnumodiPass_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

Private Sub MySize() '自定义过程，窗体改变大小时调整控件位置
    Dim FW As Long
    Line1.X1 = 0: Line1.X2 = Me.ScaleWidth
    Line2.X1 = 0: Line2.X2 = Me.ScaleWidth
    FW = Me.ScaleWidth * 0.98
    Shape1.Left = (FW - Shape1.Width) \ 2
    Shape2.Left = (FW - Shape2.Width) \ 2 + 96
    Label1.Left = (FW - Label1.Width) \ 2
    Label2.Left = (FW - Label2.Width) \ 2
End Sub