Question

delphi成功更改数据库中用户表中的密码后，想显示更新后的密码，为啥显示的还是旧密码呢？

procedure TForm2.Button1Click(Sender: TObject);
var
is_name :string;
is_mm :string;
is_newmm:string;
begin
is_name:=edit1.Text;
is_mm:=edit2.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from sys_czy where name ='''+is_name+''' and '
+'mm='''+is_mm+'''') ;//代码换行写：上一行最后处多加了一个逗号，本行最开始处多加了二个符号：加号和逗号
adoquery1.Open;
if adoquery1.IsEmpty then
begin
showmessage('用户名或密码错误') ;
close; //关闭窗体
end
else
if edit3.Text =edit4.Text then
begin
adoquery1.SQL.Add('update sys_czy set mm ='''+edit3.text+''' ') ;
adoquery1.Open;
adoquery1.SQL.Add('select * from sys_czy where name ='''+is_name+''' and '
+'mm='''+is_mm+'''');
adoquery1.Open;
is_newmm :=ADOQuery1.FieldByName('mm').AsString; //把字段“mm”赋值给变量“is_newmm”
showmessage(is_newmm); //想显示变量“is_newmm”的值 ，可是值不对啊，还是旧密码
close;
end
else
showmessage('两次密码不一致');
close;
end;
end.

Answer 1

if adoquery1.IsEmpty then
begin
showmessage('用户名或密码错误') ;
close; //关闭窗体
end
else
if edit3.Text =edit4.Text then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update sys_czy set mm ='''+edit3.text+''' where name ='''+is_name
+'''') ;
ADOQuery1.ExecSQL;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from sys_czy where name ='''+is_name+''' and mm = ''' +edit3.text+'''');
adoquery1.Open;
is_newmm :=ADOQuery1.FieldByName('mm').AsString; //把字段“mm”赋值给变量“is_newmm”
showmessage(is_newmm); //想显示变量“is_newmm”的值 ，可是值不对啊，还是旧密码
close;
end
else
showmessage('两次密码不一致');
close;
end;