pb 一段代码错了,能帮我改改吗

来源:百度知道 编辑:UC知道 时间:2024/09/21 15:46:37
string id
date id2
connect;
select d_user."用户名"
into :id
from d_user
where d_user.用户名= :sle_1.text;
if sle_1.text=""or sle_3.text="" or sle_4.text="" or sle_3.text<>sle_4.text then
messagebox("错误!","用户名不能为空,且两次输入密码必须一样!",exclamation!,ok!,2)
else
if id=sle_1.text then
update "d_user"
set "出生日期" =: date(sle_3.text)
set "姓名" =: sle_4.text
if rb_1.checked=true then
set "性别" =: "rb_1.text" else
set "性别" =:"rb_2.text"
where "d_user"."用户名"=: sle_1.text ;
messagebox("成功!","密码修改成功,下次登录请用新密码!",information!,ok!,2)
else
messagebox("错误!","用户名或密码错误!",exclamation!,ok!,2)
end if
end if

分太少了,还好我热情
if id=sle_1.text then
update "d_user"
set "出生日期" =: date(sle_3.text)
set "姓名" =: sle_4.text
if rb_1.checked=true then
set "性别" =: "rb_1.text" else
set "性别" =:"rb_2.text"
where "d_user"."用户名"=: sle_1.text ;
改成
string xb
if rb_1.checked=true then
xb=rb_1.text
else
xb=rb_2.text
end if
update d_user set 出生日期" =date(:sle_3.text),"姓名" =: sle_4.text,"性别" =:xb where "d_user"."用户名"=:sle_1.text