aa = \普通管理员\End Select
StatusBar1.Panels(4).Text = \状态： \End Sub
Private Sub useradd_Click() qxstr = Executeqx(1)
If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmuser1.Show frmuser1.ZOrder 0 End Sub
Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmcpass.Show
32
End Sub
Private Sub xuefeiadd_Click() qxstr = Executeqx(3)
If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ 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 = \学期 desc, 年级 desc,专
33
业 desc\
Frmxuefei2.ZOrder (0)
Frmxuefei2.Caption = \浏览学费设置\Frmxuefei2.xuefeishowtitle Frmxuefei2.xuefeishowdata End Sub
Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
Frmxuefei2.Show End Sub
Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
Frmxuefei3.Show
34
Frmxuefei3.ZOrder (0)
i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3) End Sub
4．3用户管理模块：
本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。
Private Sub Command1_Click() If Trim(Text1(0).Text) = \
MsgBox \用户名不能为空！\警告\
35
Text1(0).SetFocus Exit Sub End If
If Trim(Text1(1).Text) = \
MsgBox \密码不能为空！\警告\ Text1(1).SetFocus Exit Sub End If
If Trim(Text1(2).Text) = \
MsgBox \确认密码不能为空！\警告\ Text1(2).SetFocus Exit Sub End If
If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
MsgBox \确认密码不正确！\警告\ Text1(2).SetFocus Exit Sub End If
Dim aa As Integer aa = 0
If Option1(2).Value = True Then For i = 0 To 3
If Check1(i).Value = 1 Then aa = 1 Exit For
36