资源描述
-用户管理系统说明书一,系统概述l 系统名称:用户管理系统l 开发环境:Visual fo*pro 9.0l 数据库环境:VFP9.0自带的数据库l 默认管理员:administratorl 默认密码:adminl 目的和作用:对系统用户进展系统管理,具备添加,删除,修改,查询的功能.(其他详细容,后面有描述.)二,系统使用说明1) 使用流程及说明 登录双击用户管理系统.e*e,会弹出如下窗口默认用户名:administrator密码:admin假设填写错误,可以单击 重填 按钮,用户名及密码会清空.单击 退出 ,即可退出登录.单击 登录 按钮,假设密码或用户名连续输入错误3次,本窗口将会关闭. 假设用户名及密码正确,将会翻开系统主表单窗口. 主表单在主表单窗口的菜单中,有 用户添加,用户删除,信息修改,用户查询,系统推出及帮助 菜单.单击菜单(或按住Alt+括弧中相应字母)便可实现相应功能. 用户添加单击菜单 用户添加 会首先弹出权限验证窗口,以防非管理员身份的用户添加用户.出密码机管理员用户名要填写正确外,用户类别必须是超级用户,才能通过认证.通过认证后,才会翻开用户添加的窗口:l 用户编号不能手动输入,系统会按照加1递增的规则分配!而且普通用户编号以1开头,超级用户编号以2开头.l 默认的用户类型为普通用户,用户密码为123456,用户名称无比自己填写,不能为空!l 用户信息填写无误后,单击 添加 按钮,假设添加成功,会有提示.即可完成用户添加.l 单击 退出 即可关闭本窗口. 用户删除单击菜单 用户删除 会首先弹出权限验证窗口,以防非管理员身份的用户添加用户.出密码机管理员用户名要填写正确外,用户类别必须是超级用户,才能通过认证.通过认证后,才会翻开 用户删除 的窗口:l 只有准确输入要删除的用户名及密码,才能将其删除. 信息修改单击 信息修改,便会翻开用户信息修改窗口.在左侧输入用户名及原密码,右侧输入新的用户名及密码,单击 应用 完成修改,并可继续修改下一条信息,单击 确认 按钮,完成修改并关闭窗口. 用户查询单击 用户查询,便会翻开用户查询窗口.本系统提供两种查询式:按照用户编号查询及按照用户名查询,这两种查询均支持模糊查询! 退出单击 退出 菜单,系统会提示是否退出,以免误操作.确认退出后,系统将关闭!2) 数据库概述表的构造如以下图所示:主码为用户编号,主索引为用户编号默认信息如下:,3) 主要设计代码 用户登录表单登录 按钮 的Click :close all*翻开数据表use data用户管理表.dbfIF thisform.bo1.value=messagebo*(用户名不能为空!,0+16+0,错误提示)ELSE *验证用户名及密码locate for 用户管理表.用户名称=alltrim(thisform.bo1.value) .and. 用户管理表.用户密码=alltrim(thisform.te*t1.value)if found()*验证通过,登录次数加一,修改最后登录时间REPLACE 总登录次数 WITH 总登录次数+1REPLACE 最后登录时间 WITH DATETIME()*翻开主表单DO FORM forms主表单.sc*清理存USE close tables ALL thisform.release ELSE *验证失败,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示)thisform.bo1.value=thisform.te*t1.value=*登录错误超过三次,关闭登录表单n=n+1 IF n=3thisform.release ENDIFENDIF ENDIF 重填 按钮 的Click :thisform.bo1.value=thisform.te*t1.value=表单 的init:*声明变量n,用来标记登录错误次数PUBLIC nn=1退出 按钮 的Click :thisform.Release 主表单主表单 的load:CLOSE ALL*加载菜单DO menus主菜单.MPR WITH this ,.t. “添加权限确认表单确认 的Click:close all*翻开数据表use data用户管理表.dbf*验证用户名及密码locate for 用户名称=alltrim(thisform.bo1.value) .and. 用户密码=alltrim(thisform.te*t1.value).and.用户类型=超级用户if found()*假设通过,翻开用户删除表单DO FORM forms用户添加.sc*thisform.release ELSE*假设不通过,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示)thisform.bo1.value=thisform.te*t1.value=ENDIF “删除权限确认表单确认 的 Click:close all*翻开数据表use data用户管理表.dbf*验证用户名及密码locate for 用户名称=alltrim(thisform.bo1.value) .and. 用户密码=alltrim(thisform.te*t1.value).and.用户类型=超级用户if found()*假设通过,翻开用户删除表单DO FORM forms用户删除thisform.release ELSE*假设不通过,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示)thisform.bo1.value=thisform.te*t1.value=ENDIF “用户查询表单Te*t1 的 InteractiveChange:do case*假设选项按钮选择了按用户编号查询,则按照用户编号查询case thisform.optiongroup1.value=1set filter to 用户编号=alltrim(thisform.te*t1.value)*假设选项按钮选择了按用户名称查询,则按照用户*查询case thisform.optiongroup1.value=2set filter to 用户名称=alltrim(thisform.te*t1.value)ENDCASE*将指针移至符合查询条件记录的第一条记录GO TOP thisform.refresh “用户删除表单mand1 的 Click;go top &移动指针到第一行locate for 用户名称=alltrim(thisform.bo1.value) .and. 用户密码=alltrim(thisform.te*t2.value)&定位记录if .not.found() &判断条件*验证失败,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示) ELSE IF MESSAGEBO*(真的不要我了吗.,4+32+256,提示)=6 delete &给记录标注删除符号pack &物理删除有删除标记的记录MESSAGEBO*(删除成功!,0+48+0,提示)ENDIF ENDIF* thisform.bo1.value=thisform.te*t2.value= “用户添加表单mbo1 的 InteractiveChange:*如果选择用户类型为超级用户,将 用户编号 改为以 2 打头*如果选择用户类型为普通用户,将 用户编号 改为以 1 打头do casecase VAL(alltrim(thisform.te*t1.Value)199999 AND this.Value=普通用户thisform.te*t1.Value=ALLTRIM(STR(VAL(thisform.te*t1.Value)-100000)case VAL(alltrim(thisform.te*t1.Value)200000 AND this.Value=超级用户thisform.te*t1.Value=ALLTRIM(STR(VAL(thisform.te*t1.Value)+100000)ENDCASE*从而保证以 1 打头的为 普通用户 ,以 2 打头的为 超级用户 .mand1 的 Click;*添加空记录APPEND BLANK*赋值REPLACE 用户编号 WITH alltrim(STR(VAL(thisform.te*t1.Value)+1)REPLACE 用户名称 WITH alltrim(thisform.te*t2.Value)REPLACE 用户密码 WITH alltrim(thisform.te*t3.Value)REPLACE 用户类型 WITH alltrim(thisform.bo1.Value)*提示操作成功MESSAGEBO*(恭喜,添加成功!,4+32+256,提示)*关闭表单thisform.Release “用户修改表单mand1 的 Click;*翻开数据表close alluse data用户管理表.dbf*验证密码locate for 用户名称=alltrim(thisform.bo1.value) .and. 用户密码=alltrim(thisform.te*t2.value)if found()*假设验证成功,修改用户名称及密码REPLACE 用户名称 WITH alltrim(thisform.te*t3.value)REPLACE 用户密码 WITH alltrim(thisform.te*t4.value)*关闭表单thisform.release ELSE*假设验证失败,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示)thisform.bo1.Value=thisform.te*t2.Value=thisform.te*t3.Value=thisform.te*t4.Value=*连续验证失败超过三次,关闭表单 n=n+1 IF n=3thisform.release ENDIF ENDIFmand4 的 Click;*翻开数据表close alluse data用户管理表.dbf*验证密码locate for 用户名称=alltrim(thisform.bo1.value) .and. 用户密码=alltrim(thisform.te*t2.value)if found()*假设验证成功,修改用户名称及密码REPLACE 用户名称 WITH alltrim(thisform.te*t3.value)REPLACE 用户密码 WITH alltrim(thisform.te*t4.value)*关闭表单ELSE*假设验证失败,提示并清空文本框messagebo*(您的用户名或密码不正确,请重新输入!,0+16+0,错误提示)thisform.bo1.Value=thisform.te*t2.Value=thisform.te*t3.Value=thisform.te*t4.Value=*连续验证失败超过三次,关闭表单 n=n+1 IF n=3thisform.release ENDIFENDIF. z.
展开阅读全文