string name,psd, tx1,tx2
tx1=trim(sle_1.text)
tx2=trim(sle_2.text)
if tx1='' then
messagebox('警告','请输入用户！',stopsign!)
return;
end if
if tx2='' then
messagebox('警告','请输入密码！',stopsign!)
return;
end if
SELECT yonghu,
mima,
into :name,:psd from " baohai"
where baohai.yonghu=:tx1 and baohai.mima=:tx2;
if trim(name)<>trim(tx1) and trim(psd)<>trim(tx2) then
messagebox('警告','请输入正确的用户或密码！',stopsign!)
else
open(w_main)
close(w_login)
运行警告database:c0038:sqlstate=37000[sybase][odbc drive]]{sql anywhere。。1.。‘from’}
------解决方案--------------------
//上面那个错了，这个为准
string is_id, is_password,user_id,pass_word
int try_time
is_id=trim(sle_1.text)
is_password=trim(sle_2.text)
if len(is_id) > 0 then
else
messagebox('提示信息','用户名不能为空!')
return
end if
if len(is_password) > 0 then
else
messagebox('提示信息','密码不能为空！')
return
end if
select password
into :pass_word
from baohai
where id=:is_id;
if len(password) > 0 then
if password = is_password then
open(w_main)
close(w_splash)
else
messagebox('提示信息','密码错误！')
try_time++
if try_time >= 3 then
messagebox('提示信息','错误密码已达到3次，本系统将自动关闭！')
Halt close;
end if
end if
else
messagebox('提示信息','用户名不存在！')
try_time++
if try_time >= 3 then
messagebox('提示信息','用户名及密码错误已达到3次，本系统将自动关闭！')
Halt close;
end if
end if
if try_time>=3 then
messagebox('提示信息','用户名及密码错误已达到3次，本系统将自动关闭！')
Halt close;
end if
if trim(user_id)<>trim(sle_1.text) and trim(pass_word)<>trim(sle_2.text) then
messagebox('提示信息','请输入正确的用户名密码！')
sle_2.setfocus ()
sle_2.selecttext(1,len(sle_2.text))
try_time++
return;
else
open(w_main)
close(w_splash)
end if
------解决方案--------------------
应该是pass_word，呵呵。