PB代码,提示name附近有语法错误,帮忙看一下~
stringls_username,ls_passwordls_username=trim(sle_1.text)ls_password=trim(sle_2.text)...
string ls_username,ls_password
ls_username=trim(sle_1.text)
ls_password=trim(sle_2.text)
if ls_username="" or ls_password="" then
messagebox("提示","用户名和密码不能为空")
else
SELECT "users"."name","users"."password","users"."admin"
INTO :gs_username,:gs_password,:gs_admin
FROM "users"
WHERE ("users"."name" = :ls_username ) AND
("users"."password" = :ls_password );
if sqlca.sqlcode=0 then
open(w_main)
close(w_login)
else
li_n=li_n - 1
if li_n<>0 then
messagebox("提示","用户名或密码错误")
else
messagebox("提示","错误超过3次,自动退出")
halt
end if
end if
end if 展开
ls_username=trim(sle_1.text)
ls_password=trim(sle_2.text)
if ls_username="" or ls_password="" then
messagebox("提示","用户名和密码不能为空")
else
SELECT "users"."name","users"."password","users"."admin"
INTO :gs_username,:gs_password,:gs_admin
FROM "users"
WHERE ("users"."name" = :ls_username ) AND
("users"."password" = :ls_password );
if sqlca.sqlcode=0 then
open(w_main)
close(w_login)
else
li_n=li_n - 1
if li_n<>0 then
messagebox("提示","用户名或密码错误")
else
messagebox("提示","错误超过3次,自动退出")
halt
end if
end if
end if 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询