VFP里面登陆账号和密码的代码编写

Question

这个怎么写哦。。
我只是把表单做好了 但是不知道
各位。。。帮我。。。

Answer 1

首先建立一个表（比如PASS.DBF），字段：用户号，用户名，密码，权限等。
建立一个登录表单，放上三个TEXT、一个COMBO、两个按钮“确定”、“退出”。
表单的INIT事件：
PUBLIC CS,pa
CS=0 &&定义全局变量，控制登录次数
pa=.f. && 登录是否成功
use pass

“确定”的click:
IF CS<3
locate 用户号=trim(text1.value)
if found()
text2.value=用户名
else
messagebox('无此用户！',0+16)
return
endif
if allt(密码)==allt(text3.value)
pa=.t.
else
messagebox('密码错！',0+16)
endif
CS=CS+1
ESLE
RELEASE THISFORM
ENDIF
IF pa
RELEASE THISFORM
ENDIF

表单UNLOAD：
RETURN PA

调用登录表单：
DO FORM PASS TO ABC
IF NOT ABC
MESSAGEBOX('抱歉不能运行系统',0)
quie
ENDIF
...

登录表单的windowstype属性：应是模式表单

Answer 2

简一点这样写:
Local lcID, lcPswd
lcID = NVL(oPubTool.getCID('SYSU'),'ABCD')
liPswd = NVL(oPubTool.getVID('SYSU'),65535)
llOK = Thisform.txtCode.Value==lcID AND Val(Sys(2018,Thisform.txtPwd.Value))==liPswd
IF llOK
oPubTool.OpID = Thisform.txtCode.Value
oPubTool.OpRght = 'A'
oPubTool.OpName = 'System'
EndIF

Answer 3

首先建立一个表（比如PASS.DBF），字段：用户号，用户名，密码，权限等。
建立一个登录表单，放上三个TEXT、一个COMBO、两个按钮“确定”、“退出”。
表单的INIT事件：
PUBLIC
CS,pa
CS=0
&&定义全局变量，控制登录次数
pa=.f.
&&
登录是否成功
use
pass
“确定”的click:
IF
CS<3
locate
用户号=trim(text1.value)
if
found()
text2.value=用户名
else
messagebox('无此用户！',0+16)
return
endif
if
allt(密码)==allt(text3.value)
pa=.t.
else
messagebox('密码错！',0+16)
endif
CS=CS+1
ESLE
RELEASE
THISFORM
ENDIF
IF
pa
RELEASE
THISFORM
ENDIF
表单UNLOAD：
RETURN
PA
调用登录表单：
DO
FORM
PASS
TO
ABC
IF
NOT
ABC
MESSAGEBOX('抱歉不能运行系统',0)
quie
ENDIF
...
登录表单的windowstype属性：应是模式表单