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’}