mdiform1.frm

从别处拿来感觉还可以 内容比较多且完备值得大家看一看

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000003&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   3030
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9150
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   2730
      Width           =   9150
      _ExtentX        =   16140
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "学 生 信 息 管 理 系 统 .."
            TextSave        =   "学 生 信 息 管 理 系 统 .."
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4304
            MinWidth        =   4304
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5293
            MinWidth        =   5293
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理(&O)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu useradd 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu usermodi 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu denglu2 
         Caption         =   "重新登陆"
         Shortcut        =   ^{F1}
      End
   End
   Begin VB.Menu class 
      Caption         =   "班级管理(&P)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu classbrowse 
         Caption         =   "班级浏览"
         Shortcut        =   ^C
      End
      Begin VB.Menu classapp 
         Caption         =   "添加班级"
         Shortcut        =   ^D
      End
      Begin VB.Menu classfind 
         Caption         =   "班级查询"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu 退出系统 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim find1 As Integer
Dim liulan1 As Integer
Private Sub classapp_Click()
    '添加班级
    qxstr = Executeqx(2)
    If qxstr = "false" Or qxstr = "readonly" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Formclass1.Show
    classmodi = False
    Formclass1.classload
    Formclass1.ZOrder (0)
End Sub
Public Sub clabrowse()
    '浏览班级设置
    txtsql = "select * from class"
    Formclass2.ZOrder (0)
    Formclass2.Caption = "浏览班级设置"
    Formclass2.classshowtitle
    Formclass2.classshowdata
End Sub
Private Sub classbrowse_Click()
    '班级浏览
    qxstr = Executeqx(2)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Formclass2.Show
End Sub
Private Sub classfind_Click()
    '班级查询
    qxstr = Executeqx(2)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Formclass3.Show
    Formclass3.ZOrder (0)
End Sub

Private Sub denglu2_Click()
    ' 重新登录
    Frmdenlu.Show
    Unload Me
End Sub
Private Sub MDIForm_Load()
    DataEnv1.Connection1.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 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 usermodi_Click()
    '修改密码
    qxstr = Executeqx(1)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
    Exit Sub
    End If
End Sub




Private Sub 退出系统_Click()
Unload Me
ss = MsgBox("欢迎使用本系统！", vbInformation + vbOKOnly, " 结束")

End Sub