Question

求解释pb 登陆界面代码！

部分代码：
event clicked;call super::clicked;string ls_user,ls_password
int ii
ls_user=upper(trim(sle_uid.text))
ls_password=upper(trim(sle_pwd.text))
if times=3 then
messagebox("警告","你已达到最大登录次数，不能登录！")
close(w_login)
return
end if
if len(ls_user)=0 and len(ls_password)=0 then
messagebox("你还有"+string(2-times)+"次登录机会！","没有输入用户名和密码，请重新输入")
sle_uid.setfocus()
times=times+1
end if
if len(ls_user)=0 and len(ls_password)<>0 then
messagebox("你还有"+string(2-times)+"次登录机会！","没有输入用户名，请重新输入")
sle_uid.setfocus()
times=times+1
end if
if len(ls_password)=0 and len(ls_user)<>0 then
messagebox("你还有"+string(2-times)+"次登录机会！","没有输入用户密码，请重新输入")
sle_pwd.setfocus()
times=times+1
end if
if len(ls_password)<>0 and len(ls_user)<>0 then
select count(user_id) into :ii from id_password where upper(user_id)=:ls_user and
upper(password)=:ls_password;
if isnull(ii) or ii=0 then
messagebox("你还有"+string(2-times)+"次登录机会！","用户名和用户密码不匹配，请检查输入")
sle_uid.setfocus()
times=times+1
return
else
select identityid into :identitynumber from id_password where upper(user_id)=:ls_user and upper(password)=:ls_password;
user=ls_user
open(w_frame)
close(w_login)
end if
end if
我要更改这个用户id和密码，请问怎么改？

Answer 1

你是指在後台修改？
主要在以下这句，表为id_password存的是用户id和密码。
select count(user_id) into :ii from id_password where upper(user_id)=:ls_user and
upper(password)=:ls_password;

追问

问我就是要改登陆密码。。。。id改为123，密码也123，求方法。。。

追答

id应该有很多个吧，你可以新插入一笔123的id 到id_password表就可以了

追问

大哥。。这是别人的代码 ，我只想把id密码神马的改一下就行，求最简单攻略，可以在上面几行代码中改最好！

追答

那你把那些判断注释掉不就进去了吗或者加个当id = 123时不用检测密码直接进入

追问

规定必须要id跟密码。。。大哥你帮我改下嘛