[求助] 急!cb_ok中的clicked事件!
string ls_user,ls_pass,ls_passdata
integer li_count
ls_user = trim(sle_user.text)
ls_pass = trim(sle_pass.text)
if isnull(ls_pass) then ls_pass = ""
select count(*)
into :li_count
from 用户清单表
where 姓名 =:ls_user;
if li_count < 1 then
messagebox("提示信息","请输入正确的用户名!")
sle_user.setfocus()
return
end if
//设置密码
select 密码
into :ls_passdata
from 用户清单表
where 姓名 =:ls_user;
if isnull(ls_passdata) then ls_passdata = ""
end if
if ls_pass <> trim(ls_passdata)
then messagebox("提示信息","请输入正确的密码!")
sle_pass.setfocus()
return
end if
closewithreturn(parent,"Login")
Error c0031:Syntax error