mdiform1.frm

vb精彩编程希望大家有用

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       =   735
   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 dangan 
      Caption         =   "学生档案管理(&T)"
      Begin VB.Menu add 
         Caption         =   "档案添加"
         Shortcut        =   ^F
      End
      Begin VB.Menu liulan 
         Caption         =   "档案浏览"
         Shortcut        =   ^G
      End
      Begin VB.Menu claasfind 
         Caption         =   "档案查询"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu jiaofei 
      Caption         =   "学生交费管理(&M)"
      Begin VB.Menu xuefei 
         Caption         =   "基本学费设置"
         Begin VB.Menu xuefeibrowse 
            Caption         =   "学费设置浏览"
            Shortcut        =   ^J
         End
         Begin VB.Menu xuefeiadd 
            Caption         =   "学费设置添加"
            Shortcut        =   ^K
         End
         Begin VB.Menu xuefeifind 
            Caption         =   "学费设置查询 "
            Shortcut        =   ^L
         End
      End
      Begin VB.Menu ee 
         Caption         =   "-"
      End
      Begin VB.Menu jiaofeibrowse 
         Caption         =   "学生交费浏览"
         Shortcut        =   ^M
      End
      Begin VB.Menu jiaofeiadd 
         Caption         =   "学生交费添加"
         Shortcut        =   ^N
      End
      Begin VB.Menu jiaofeifind 
         Caption         =   "学生交费查询"
         Shortcut        =   ^O
      End
   End
   Begin VB.Menu kechengguanli 
      Caption         =   "课程管理(&R)"
      Begin VB.Menu jibenkecheng 
         Caption         =   "基本课程设置"
         Shortcut        =   ^P
      End
      Begin VB.Menu qw 
         Caption         =   "-"
      End
      Begin VB.Menu classkecheng 
         Caption         =   "班级课程设置"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu cjguanli 
      Caption         =   "成绩管理(&F)"
      Begin VB.Menu leixing 
         Caption         =   "考试类型设置"
         Shortcut        =   ^R
      End
      Begin VB.Menu cjadd 
         Caption         =   "成绩添加"
         Shortcut        =   ^S
      End
      Begin VB.Menu cjbrowse 
         Caption         =   "成绩浏览"
         Shortcut        =   ^T
      End
      Begin VB.Menu cjfind 
         Caption         =   "成绩查询"
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu baobiao 
      Caption         =   "打印报表(&H)"
   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 add_Click()
    '档案添加
    qxstr = Executeqx(2)
    If qxstr = "false" Or qxstr = "readonly" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Form1.Show
    modi = False
    Form1.ZOrder (0)
End Sub

Private Sub cjadd_Click()
    '成绩添加
    qxstr = Executeqx(4)
    If qxstr = "false" Or qxstr = "readonly" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    frmcj2.Show
    frmcj2.ZOrder 0
End Sub
Private Sub cjbrowse_Click()
    '成绩浏览
    qxstr = Executeqx(4)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    frmcj1.Show
    frmcj1.ZOrder 0
End Sub
Private Sub cjfind_Click()
    '成绩查询
    qxstr = Executeqx(4)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
End Sub
Private Sub claasfind_Click()
    '档案查询
    qxstr = Executeqx(2)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Form4.Show
    Form4.ZOrder (0)
    i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
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 classkecheng_Click()
    '班级课程设置
    qxstr = Executeqx(4)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Frmclasskecheng1.Show
    Frmclasskecheng1.ZOrder
End Sub
Private Sub denglu2_Click()
    ' 重新登录
    Frmdenlu.Show
    Unload Me
End Sub
Private Sub jiaofeiadd_Click()
    '学生交费添加
    qxstr = Executeqx(3)
    If qxstr = "false" Or qxstr = "readonly" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Frmjf1.Show
    Frmjf1.ZOrder 0
End Sub
Private Sub jiaofeibrowse_Click()
    '学生交费浏览
    qxstr = Executeqx(3)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    frmjf2.Show
    frmjf2.ZOrder 0
End Sub
Private Sub jiaofeifind_Click()
    '学生交费查询
    qxstr = Executeqx(3)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
End Sub
Private Sub jibenkecheng_Click()
    '基本课程程设置
    qxstr = Executeqx(4)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    frmjiben.Show
    frmjiben.ZOrder 0
End Sub
Private Sub leixing_Click()
    '考试类型设置
    qxstr = Executeqx(4)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Frmleixing.Show
    Frmleixing.ZOrder 0
End Sub
Private Sub liulan_Click()
    '档案浏览
    qxstr = Executeqx(2)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    find = False
    Form3.Show
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 xuefeiadd_Click()
    '学费设置添加
    qxstr = Executeqx(3)
    If qxstr = "false" Or qxstr = "readonly" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    xuefeimodi = False
    Dim i As Integer
    For i = 0 To 3
        frmxuefei1.Combo1(i).Enabled = True
    Next i
    Me.Caption = "添加班级设置"
    For i = 0 To 3
        frmxuefei1.Combo1(i).Text = ""
    Next i
    frmxuefei1.Text1.Text = ""
    frmxuefei1.Show
    frmxuefei1.ZOrder 0
End Sub
Public Sub xfbrowse()
    '浏览学费设置
    txtsql = "select * from xuefei order by 学期 desc, 年级 desc,专业 desc"
    Frmxuefei2.ZOrder (0)
    Frmxuefei2.Caption = "浏览学费设置"
    Frmxuefei2.xuefeishowtitle
    Frmxuefei2.xuefeishowdata
End Sub
Private Sub xuefeibrowse_Click()
    '学费设置浏览
    qxstr = Executeqx(3)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Frmxuefei2.Show
End Sub
Private Sub xuefeifind_Click()
    '学费设置查询
    qxstr = Executeqx(3)
    If qxstr = "false" Then
        ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", _
            vbInformation + vbOKOnly, " 警告")
        Exit Sub
    End If
    Frmxuefei3.Show
    Frmxuefei3.ZOrder (0)
    i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3)
End Sub