frmmain.frm

VB ACCESSS数据库课程设计

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "学生信息管理系统"
   ClientHeight    =   5385
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7830
   LinkTopic       =   "Form1"
   Picture         =   "frmMain.frx":0000
   ScaleHeight     =   5385
   ScaleWidth      =   7830
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu system 
      Caption         =   "系统(&S)"
      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 emana 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu mnunew 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu mnumodiess 
         Caption         =   "修改学籍信息"
      End
      Begin VB.Menu mnuqueryess 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu cmana 
      Caption         =   "课程管理(&C)"
      Begin VB.Menu mnuaddcourse 
         Caption         =   "添加课程"
      End
      Begin VB.Menu mnumodicourse 
         Caption         =   "修改课程"
      End
   End
   Begin VB.Menu gmana 
      Caption         =   "成绩管理(&G)"
      Begin VB.Menu mnuinputgrade 
         Caption         =   "输入成绩"
      End
      Begin VB.Menu mnumodigrade 
         Caption         =   "修改成绩"
      End
      Begin VB.Menu mnuquerygrade 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      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 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
'Label4.Left = (fw - Label4.Width) \ 2
'Label5.Left = fw - Label5.Width - 400
End Sub

Private Sub Form_Initialize()
ChDrive App.Path
ChDir App.Path
Me.WindowState = vbMaximized
Call mysize
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
Call mysize
Me.Refresh
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 mnuabout_Click()
MsgBox Space(6) & "学生信息管理系统" & Space(6) & vbCr & vbCr & Space(9) & "计机031班 谭日立 31号!!!!"
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 mnuinputgrade_Click()
frmInGride.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

Private Sub R_Click()
MsgBox "建设中.....", vbInformation
End Sub

Private Sub W_Click()
MsgBox "建设中.....", vbInformation
End Sub