用户管理系统说明书.docx
《用户管理系统说明书.docx》由会员分享，可在线阅读，更多相关《用户管理系统说明书.docx（16页珍藏版）》请在冰点文库上搜索。
用户管理系统说明书
用户管理系统说明书
一,系统概述
●系统名称:
用户管理系统
●开发环境:
Visualfoxpro9.0
●数据库环境:
VFP9.0自带的数据库
●默认管理员:
administrator
●默认密码:
admin
●目的和作用:
对系统用户进行系统管理,具备添加,删除,修改,查询的功能.（其他详细内容,后面有描述.）
二,系统使用说明
1）使用流程及说明
1登录
双击”用户管理系统.exe”,会弹出如下窗口
默认用户名:
administrator密码:
admin
若填写错误,可以单击[重填]按钮,用户名及密码会清空.
单击[退出],即可退出登录.
单击[登录]按钮,若密码或用户名连续输入错误3次,本窗口将会关闭.若用户名及密码正确,将会打开系统主表单窗口.
2主表单
在主表单窗口的菜单中,有用户添加,用户删除,信息修改,用户查询,系统推出及帮助菜单.单击菜单（或按住Alt+括弧中相应字母）便可实现相应功能.
3用户添加
单击菜单[用户添加]会首先弹出权限验证窗口,以防非管理员身份的用户添加用户.出密码机管理员用户名要填写正确外,用户类别必须是”超级用户”,才能通过认证.
通过认证后,才会打开用户添加的窗口:
●用户编号不能手动输入,系统会按照加1递增的规则分配!
而且普通用户编号以”1”开头,超级用户编号以”2”开头.
●默认的用户类型为”普通用户”,用户密码为”123456”,用户名称无比自己填写,不能为空!
●用户信息填写无误后,单击[添加]按钮,若添加成功,会有提示.即可完成用户添加.
●单击[退出]即可关闭本窗口.
4用户删除
单击菜单[用户删除]会首先弹出权限验证窗口,以防非管理员身份的用户添加用户.出密码机管理员用户名要填写正确外,用户类别必须是”超级用户”,才能通过认证.
通过认证后,才会打开[用户删除]的窗口:
●只有准确输入要删除的用户名及密码,才能将其删除.
5信息修改
单击[信息修改],便会打开用户信息修改窗口.
在左侧输入用户名及原密码,右侧输入新的用户名及密码,单击[应用]完成修改,并可继续修改下一条信息,单击[确认]按钮,完成修改并关闭窗口.
6用户查询
单击[用户查询],便会打开用户查询窗口.
本系统提供两种查询方式:
按照用户编号查询及按照用户名查询,这两种查询均支持模糊查询!
7退出
单击[退出]菜单,系统会提示是否退出,以免误操作.确认退出后,系统将关闭!
2）数据库概述
表的结构如下图所示:
主码为”用户编号”,主索引为”用户编号”
默认信息如下:
3）主要设计代码
1用户登录表单
[登录]按钮的[Click]:
closeall
*打开数据表
usedata\用户管理表.dbf
IFbo1.value=""
messagebox（"用户名不能为空！
",0+16+0,"错误提示"）
ELSE
*验证用户名及密码
locatefor用户管理表.用户名称=alltrim（bo1.value）.and.用户管理表.用户密码=alltrim（thisform.text1.value）
iffound（）
*验证通过,登录次数加一,修改[最后登录时间]
REPLACE总登录次数WITH总登录次数+1
REPLACE最后登录时间WITHDATETIME（）
*打开主表单
DOFORMforms\主表单.scx
*清理内存
USE
closetablesALL
thisform.release
ELSE
*验证失败,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
bo1.value=""
thisform.text1.value=""
*登录错误超过三次,关闭登录表单
n=n+1
IFn==3
thisform.release
ENDIF
ENDIF
ENDIF
[重填]按钮的[Click]:
bo1.value=""
thisform.text1.value=""
[表单]的[init]:
*声明变量n,用来标记登录错误次数
PUBLICn
n=1
[退出]按钮的[Click]:
thisform.Release
2主表单
[主表单]的[load]:
CLOSEALL
*加载菜单
DOmenus\主菜单.MPRWITHthis,.t.
3“添加权限确认”表单
[确认]的[Click]:
closeall
*打开数据表
usedata\用户管理表.dbf
*验证用户名及密码
locatefor用户名称=alltrim（bo1.value）.and.用户密码=alltrim（thisform.text1.value）.and.用户类型="超级用户"
iffound（）
*若通过,打开[用户删除]表单
DOFORMforms\用户添加.scx
thisform.release
ELSE
*若不通过,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
bo1.value=""
thisform.text1.value=""
ENDIF
4“删除权限确认”表单
[确认]的[Click]:
closeall
*打开数据表
usedata\用户管理表.dbf
*验证用户名及密码
locatefor用户名称=alltrim（bo1.value）.and.用户密码=alltrim（thisform.text1.value）.and.用户类型="超级用户"
iffound（）
*若通过,打开[用户删除]表单
DOFORMforms\用户删除
thisform.release
ELSE
*若不通过,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
bo1.value=""
thisform.text1.value=""
ENDIF
5“用户查询”表单
[Text1]的[InteractiveChange]:
docase
*若{选项按钮]选择了"按用户编号查询",则按照用户编号查询
casethisform.optiongroup1.value=1
setfilterto用户编号=alltrim（thisform.text1.value）
*若{选项按钮]选择了"按用户名称查询",则按照用户姓名查询
casethisform.optiongroup1.value=2
setfilterto用户名称=alltrim（thisform.text1.value）
ENDCASE
*将指针移至符合查询条件记录的第一条记录
GOTOP
thisform.refresh
6“用户删除”表单
[Command1]的[Click];
gotop&&移动指针到第一行
locatefor用户名称=alltrim（bo1.value）.and.用户密码=alltrim（thisform.text2.value）
&&定位记录
if.not.found（）&&判断条件
*验证失败,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
ELSE
IFMESSAGEBOX（"真的不要我了吗？
",4+32+256,"提示"）=6
delete&&给记录标注删除符号
pack&&物理删除有删除标记的记录
MESSAGEBOX（"删除成功!
",0+48+0,"提示"）
ENDIF
ENDIF
*bo1.value=""
thisform.text2.value=""
7“用户添加”表单
[Commbo1]的[InteractiveChange]:
*如果选择用户类型为"超级用户",将用户编号改为以2打头
*如果选择用户类型为"普通用户",将用户编号改为以1打头
docase
caseVAL（alltrim（thisform.text1.Value））>199999ANDthis.Value="普通用户"
thisform.text1.Value=ALLTRIM（STR（VAL（thisform.text1.Value）-100000））
caseVAL（alltrim（thisform.text1.Value））<200000ANDthis.Value="超级用户"
thisform.text1.Value=ALLTRIM（STR（VAL（thisform.text1.Value）+100000））
ENDCASE
*从而保证以1打头的为普通用户,以2打头的为超级用户.
[Command1]的[Click];
*添加空记录
APPENDBLANK
*赋值
REPLACE用户编号WITHalltrim（STR（VAL（thisform.text1.Value）+1））
REPLACE用户名称WITHalltrim（thisform.text2.Value）
REPLACE用户密码WITHalltrim（thisform.text3.Value）
REPLACE用户类型WITHalltrim（bo1.Value）
*提示操作成功
MESSAGEBOX（"恭喜,添加成功!
",4+32+256,"提示"）
*关闭表单
thisform.Release
8“用户修改”表单
[Command1]的[Click];
*打开数据表
closeall
usedata\用户管理表.dbf
*验证密码
locatefor用户名称=alltrim（bo1.value）.and.用户密码=alltrim（thisform.text2.value）
iffound（）
*若验证成功,修改用户名称及密码
REPLACE用户名称WITHalltrim（thisform.text3.value）
REPLACE用户密码WITHalltrim（thisform.text4.value）
*关闭表单
thisform.release
ELSE
*若验证失败,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
bo1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=""
*连续验证失败超过三次,关闭表单
n=n+1
IFn==3
thisform.release
ENDIF
ENDIF
[Command4]的[Click];
*打开数据表
closeall
usedata\用户管理表.dbf
*验证密码
locatefor用户名称=alltrim（bo1.value）.and.用户密码=alltrim（thisform.text2.value）
iffound（）
*若验证成功,修改用户名称及密码
REPLACE用户名称WITHalltrim（thisform.text3.value）
REPLACE用户密码WITHalltrim（thisform.text4.value）
*关闭表单
ELSE
*若验证失败,提示并清空文本框
messagebox（"您的用户名或密码不正确，请重新输入！
",0+16+0,"错误提示"）
bo1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=""
*连续验证失败超过三次,关闭表单
n=n+1
IFn==3
thisform.release
ENDIF
ENDIF
升级会员 