这个怎么写哦。。
我只是把表单做好了 但是不知道
各位。。。帮我。。。
首先建立一个表（比如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属性：应是模式表单
建立一个登录表单，放上三个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属性：应是模式表单
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-09-11
简一点这样写:
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
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
第2个回答 2019-12-21
首先建立一个表（比如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属性：应是模式表单
建立一个登录表单，放上三个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属性：应是模式表单
