大神帮忙看一下代码有什么错误
delphi吧
全部回复
仅看楼主
level 1
我这个是修改密码的代码,但是运行的时候总是说旧密码错误(我输入没错)
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from users where 用户名='+quotedstr(FrmLogin.EdtUsrName.text));
adoquery1.Open;
if adoquery1.FieldValues['口令']=edit1.Text then
begin
if Edit2.Text=Edit3.Text then
begin
with adoquery1 do
begin
edit;
adoquery1.FieldValues['口令']:=edit2.Text;
adoquery1.post;
refresh;
showmessage('口令修改成功');
end;
end
else
begin
showmessage('两次口令输入不一样!');
end;
end
else
showmessage('旧口令错误,请重新输入');
2014年12月02日 07点12分 1
level 10
不会 DEBUG,就去看书。
2014年12月02日 07点12分 2
1