登录代码问题求助

#2

qin200820122011-09-01 19:46

高手们，快啊

#3

qin200820122011-09-01 20:40

各位大侠，赶紧的

#4

xjyang_yang2011-12-19 18:26

这是我的登录代码，看一下：
string ls_username,ls_password

ls_username=sle_username.text
ls_password=sle_password.text

string ls_sql

select top 1 usermessage.username
    into :gs_operator
    from usermessage
    where usermessage.username=:ls_username and usermessage.password=:ls_password;


if sqlca.sqlcode =0 then
    ii_close = 1
    open(w_main)
    close(parent)
else
    ii_number =ii_number+1
    if ii_number<3 then
        sle_username.text=""
        sle_password.text=""
        sle_username.setfocus()
    else
        messagebox("系统提示","您已经尝试登陆三次，系统自动退出。")
        ii_close = 1
        close(parent)
    end if
end if

登录代码问题 求助