【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:adduser.PRG绩等信息,祝愿广大网友取得需要的信息,参考学习。
SET TALK OFF
SET EXACT OFF &&设置字符比较方式
SELECT A
USE account &&打开表
ACCEPT ":" To hName &&输入
ACCEPT "部门:" To hDept &&输入部门
ACCEPT "用户名:" To hUserName &&输入用户名
ACCEPT "口令:" To hPassword &&输入口令
LOCATE FOR username=hUserName &&查找username表字段
IF NOT FOUND() &&如果没有找到
APPEND BLANK &&添加空记录
REPLACE Name WITH hName &&替换Name字段
REPLACE Dept WITH hDept &&替换Dept字段
REPLACE username WITH hUserName &&替换UserName字段
REPLACE password WITH hPass
word &&替换Password字段
REPLACE role WITH REPLICATE('*',20) &&设置默认权限
ENDIF
CLOSE ALL &&关闭表
RETURN &&返回