没空间写说明
SELECT student
GO top
LOCATE FOR ALLTRIM(学号)=ALLTRIM(M_xh) .and. ALLTRIM(姓名)=ALLTRIM(M_xm)
IF EOF()
jpm=MESSAGEBOX("不能登录!")
ELSE
jpm=MESSAGEBOX("成功登陆!")
ENDIF
select student
locate all for 用户名==lcname and 密码==lcpass
if found()
do form 下一个表单
thisform.release
else
wait '验证信息错误!' window
endif
*字数不够精简很多,完整写一表单100分,嘿嘿~
不好意思 我忘了
〔thisform.text2.value="你是"+a+"点。"〕这句中,〔"你是"〕及〔"点。"〕的类型是字符型;
而变量〔a〕却是数字型的,这两类不能直接相加(合并)!
后面的:
〔thisform.text2.value=thisform.text2.value+chr(13)+"我得了"+b+"点。"〕错误情况同上!
这种错误类型的语句还有:
〔 thisform.lable2.value=c+":"+d〕。。。。太多了,我没有一一列举了。
总之,数字型的变量,要先变成字符型的,然后才能和字符型的常量/变量相加(合并),如第一句就要这样:
〔thisform.text2.value="你是"+ALLTRIM(STR(a))+"点。"〕;
后面的:
〔thisform.text2.value=thisform.text2.value+chr(13)+"我得了"+ALLTRIM(STR(b))+"点。"〕
其它地方的,你要自己根据这个样式改过来。