mdimain.frm

源码+论文 vB+access的毕业设计,请大家参考

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form MDIMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "学籍管理系统"
   ClientHeight    =   9570
   ClientLeft      =   1350
   ClientTop       =   810
   ClientWidth     =   11970
   HasDC           =   0   'False
   LinkTopic       =   "Form"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "MDIMain.frx":0000
   ScaleHeight     =   9570
   ScaleWidth      =   11970
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   9270
      Width           =   11970
      _ExtentX        =   21114
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   7
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "学 生 信 息 管 理 系 统 ..zzh"
            TextSave        =   "学 生 信 息 管 理 系 统 ..zzh"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2647
            MinWidth        =   2647
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4304
            MinWidth        =   4304
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理 &(F1)"
      Begin VB.Menu useradd 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu upadmin 
         Caption         =   "修改用户"
         Shortcut        =   ^G
      End
      Begin VB.Menu quit 
         Caption         =   "重新登陆"
         Shortcut        =   ^Q
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu stu 
      Caption         =   "学生信息管理&(F2)"
      Begin VB.Menu xueji 
         Caption         =   "学籍管理"
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu class 
      Caption         =   "学生课程管理&(F3)"
      Begin VB.Menu book 
         Caption         =   "课程管理"
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu chongji 
      Caption         =   "学生成绩管理&(F4)"
      Begin VB.Menu cj 
         Caption         =   "成绩查询"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助&(F5)"
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^H
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

'Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

'Private Const MF_REMOVE = &H1000&
'Private Const SC_COLSE = &HF060

Private Sub about_Click()
frmAbout.Show
End Sub



Private Sub book_Click()
frmjiben.Show
End Sub



Private Sub cj_Click()
frmcj.Show
End Sub


Private Sub exit_Click()
End
Unload Me
End Sub

Private Sub Form_Load()
'RemoveMenu GetSystemMenu(MDIMain.hWnd, 0), SC_COLSE, MF_REMOVE
'username = "0001"
DataEnv.Con.ConnectionString = connstring
StatusBar1.Panels(2).Text = Now
StatusBar1.Panels(3).Text = "当前操作员：    " & username
Dim aa As String
Select Case Executeqx(1)
Case "admin"
  aa = "超级管理员"
Case "readonly"
  aa = "只读管理员"
Case Else
  aa = "普通管理员"
End Select
StatusBar1.Panels(4).Text = "状态：   " & aa
End Sub

Private Sub quit_Click()
  If MsgBox("若重新登录，所有窗体都将关闭！是否重新登录？", _
    vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then
     Unload MDIMain
     frmlogin.Show
  End If
End Sub

Private Sub upadmin_Click()
frmuse.Show
End Sub



Private Sub updatecj_Click()
 frmcj1.Show
End Sub

Private Sub useradd_Click()
qxstr = Executeqx(1)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmuser1.Show
frmuser1.ZOrder 0
End Sub

Private Sub xueji_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If

  frmstudent.Show
  frmstudent.ZOrder 0
End Sub