VFP口令代码

来源：百度知道 编辑：UC知道 时间：2024/05/12 00:37:37
我要做一个VFP作业但是口令问题还没解决。谁能帮我下。
要一个口令程序大致就是下面的意思
用一个表建立用户名和密码，然后在登陆界面时的用户名和密码去与这个表对比。输入用户和密码时一样的就通过不一样的就不可进入。
还有口令修改命令
用户名：
原始密码：
请输入新密码：
再次输入新密码：
这个结构的，这个修改成功后可以将表中的原始密码和用户改了

呵呵，你比较幸运，我正无聊这，给你写段代码吧，不懂问我。如下，新建一个程序，贴进去就OK了

SET TALK OFF
SET SAFETY OFF
CLEAR MEMORY
CLOSE DATABASES all
IF !FILE("user.dbf") &&user.dbf为你的用户名、密码表，字段usnm C(15) 表示登录名,psw C（20）表示密码，这个表你可以手工建立，并存放于当前目录
=crtdbf()
ENDIF
USE user.dbf ALIAS us IN 0
l_chioce=chioce()
IF l_chioce=1
=login()
ELSE
=modpsw()
ENDIF
CLOSE DATABASES all
CLEAR MEMORY
WAIT WINDOW "程序运行完成！"
RETURN

***************以下是主程序用到的函数**************
FUNCTION crtdbf() &&创建用户数据表，并输入一条记录测试
CREATE TABLE user.dbf (usnm C(15),PSW C(20))
APPEND BLANK
replace usnm WITH "test", psw WITH "123456"
CLOSE DATABASES ALL
WAIT WINDOW "重新创建用户数据表，并建立测试用户，用户名：test，密码：123456"
RETURN
ENDFUNC

FUNCTION chioce() &&初始化界面，选择登陆或者修改口令
CLEAR
?REPLICATE("*",30)
?"1. 用户登录 2. 修改密码"
input "请选择：