学生档案管理系统的设计与开发 - 图文(8)

江西蓝天学院毕业论文

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

警告\

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生档案管理系统的设计与开发 - 图文(8)在线全文阅读。