login.txt

login window for powerbuilder and sql

string correct_pswd
if sle_1.text="" then
messagebox("Error!","The user name cannot be null!")
sle_1.setfocus()
elseif sle_2.text= "" then
messagebox("Error!","The password cannot be null!")
sle_2.setfocus()
else
g_input_time=g_input_time+1
g_user=trim(sle_1.text)
g_pwd=sle_2.text
select user_pwd
into :correct_pswd
from user_info
where user_id=:g_user;
if g_pwd = correct_pswd then
open(w_main)
close(w_login)
else
if g_input_time=3 then
messagebox("Error","错误次数太多！")
close(w_login)
else
messagebox("Error","密码错误，请重新输入！")
end if
end if
end if
//清清同学的登录按钮
//dw_1.setTransObject(sqlca)
//string qy
//qy="(" + "USR" + "=" + "'" + sle_1.text + "'" + ")" + "and" + "(" + "pwd" + "=" + "'" + sle_2.text + "'" + ")"
//dw_1.setfilter(qy)
//filter(dw_1)
//dw_1.retrieve(1)
//sle_1.text=string(dw_1.rowcount())
//if dw_1.rowcount()=0 then
//messagebox("警告","你是合法的用户么？请重新输入",stopsign!) 
//else
//open(w_inwindow)
//close(w_password)
//end if