关于数据库编程的一个问题(50分)

本人想编写一个人事管理系统，里面加入改变密码模块，可是，调试中，发现不管旧密码
正确与否，它都将新密码写入数据库。请指教。程序如下：

procedure Tfrmchangepassword.Button1Click(Sender: TObject);
begin
with ChangepasswordQuery do
begin
if Edit3.Text<>Edit4.Text
then Application.MessageBox('您输入的密码不匹配。请在两个文本框内输入新密码','警告',mb_ok+mb_iconexclamation)
else
begin
SQL.Clear;
SQL.Add('Select Name From Quanxian Where (name=_a) and (mima=_b)');
ParamByName('p_a').Asstring:=Edit1.Text;
ParamByName('p_b').Asstring:=Edit2.Text;
ChangepasswordQuery.ExecSQL;
if changepasswordquery.IsEmpty
then
begin
SQL.Clear;
SQL.Add('UPDATE QUANXIAN SET MIMA=_c WHERE (NAME=_a)');
ParamByName('p_a').Asstring:=Edit1.Text;
ParamByName('p_c').Asstring:=Edit3.Text;
ChangepasswordQuery.ExecSQL;
end
else
begin
Application.MessageBox('您输入的旧密码不正确，请重新输入。','警告',mb_ok+mb_iconexclamation)
end;
end;
end;
end;

你加一个临时变量 = 密码，再判断是否相等即可

procedure Tfrmchangepassword.Button1Click(Sender: TObject);
begin
with ChangepasswordQuery do
begin
if Edit3.Text<>Edit4.Text
then Application.MessageBox('您输入的密码不匹配。请在两个文本框内输入新密码','警告',mb_ok+mb_iconexclamation)
else
begin
SQL.Clear;
SQL.Add('Select Name From Quanxian Where (name=_a) and (mima=_b)');
ParamByName('p_a').Asstring:=Edit1.Text;
ParamByName('p_b').Asstring:=Edit2.Text;
ChangepasswordQuery.ExecSQL; // ChangepasswordQuery.Open;
if changepasswordquery.IsEmpty // 没找到..更新？
then
begin
SQL.Clear;
SQL.Add('UPDATE QUANXIAN SET MIMA=_c WHERE (NAME=_a)');
ParamByName('p_a').Asstring:=Edit1.Text;
ParamByName('p_c').Asstring:=Edit3.Text;
ChangepasswordQuery.ExecSQL;
end
else
begin
Application.MessageBox('您输入的旧密码不正确，请重新输入。','警告',mb_ok+mb_iconexclamation)
end;
end;
end;
end;

逻辑根本就是错的，上面的已说过了。

这个问题我建议你去看一本书，书店里去翻一下，肯定有的。
《DELPHI5。0应用程序设计实例》王小华编著；电子工业出版社发行。

接受答案了.