江西蓝天学院毕业论文
Frmxuefei2.Show End Sub
Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
Frmxuefei3.Show
Frmxuefei3.ZOrder (0)
i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3) End Sub
4.3用户管理模块
本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。
33
江西蓝天学院毕业论文
图4.3 新曾用户界面
Private Sub Command1_Click() If Trim(Text1(0).Text) = \
MsgBox \用户名不能为空！\警告\ 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
34
江西蓝天学院毕业论文
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 End If Next i If aa = 0 Then
MsgBox \普通用户至少要有一项权限！\\警告\Exit Sub End If End If
Dim mrc As ADODB.Recordset
txtsql = \* from use where username='\& Trim(Text1(0).Text) & \
Set mrc = ExecuteSQL(txtsql)
35
江西蓝天学院毕业论文
If mrc.EOF = False Then
MsgBox \已存在该用户！\警告\ Text1(0).SetFocus Text1(0).SelStart = 0
Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If
txtsql = \Set mrc = ExecuteSQL(txtsql) mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) For i = 0 To 2
If Option1(i).Value = True Then Select Case i Case 0
mrc.Fields(\ Case 1
mrc.Fields(\ Case 2
For j = 0 To 3
If Check1(j).Value = 1 Then Select Case j Case 0
mrc.Fields(\
36
江西蓝天学院毕业论文
Case 1
mrc.Fields(\ Case 2
mrc.Fields(\ Case 3
mrc.Fields(\ End Select End If Next j End Select
End If Next i mrc.Update
MsgBox \用户添加成功！\ Text1(0).Text = \ Text1(1).Text = \ Text1(2).Text = \End Sub
Private Sub Command2_Click() Unload Me End Sub
37
警告\