帮忙修改密码！！

[dpzhou]

为什么下面这段代码，修改不了，SQL server2000中建立的表的密码！
procedure Tpasswordchangefrm.BitBtn1Click(Sender: TObject);
var
asql:string;
begin
if trim(edit1.Text)='' then
begin
messagedlg('请输入新密码！',mtinformation,[mbok],0);
edit1.SetFocus;
end
else
if trim(edit2.Text)='' then
begin
messagedlg('请确认新密码!',mtinformation,[mbok],0);
edit2.SetFocus;
end
else
if trim(edit1.Text)<>trim(edit2.Text) then
begin
messagedlg('两次输入结果不一致!',mterror,[mbok],0);
edit1.SetFocus;
end
else
begin

query1.Close;
query1.sql.clear;
asql:=' update passcheck set password='''+passwordchangefrm.Edit1.Text+''' where (username='''+trim(loginfrm.ComboBox1.Text)+''') and (password='''+passwordchangefrm.Edit1.Text+''')';
query1.SQL.Text:=asql;
try
query1.ExecSQL;
messagedlg('密码修改成功!请记住新密码.',mtinformation,[mbok],0);
edit1.Clear;
edit2.Clear;
passwordchangefrm.Hide;
except
messagedlg('密码修改失败!',mtinformation,[mbok],0);
abort;
end;
end;
end;

[王集鹄]

asql:=
'update passcheck'#13#10 +
'set password=''' + passwordchangefrm.Edit1.Text + ''''#13#10 +
'where (username=''' + Trim(loginfrm.ComboBox1.Text) + '''';

[tommychim]

SQL语句错
update passcheck set password='''+passwordchangefrm.Edit1.Text+''' where (username='''+trim(loginfrm.ComboBox1.Text)+''') 后面的条件不能写

[wwwwwwww]

procedure Tf_passdlg.Button1Click(Sender: TObject);
var sUser,oldpass,newpass,firm_pass:string;
begin
if old_pass.Text = '' then
begin
MsgBox(f_passdlg.Handle,
'请输入旧密码!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
old_pass.SetFocus;
exit;
end;
oldpass := trim(old_pass.Text);
if new_pass.Text = '' then
begin
MsgBox(f_passdlg.Handle,
'请输入新密码!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
new_pass.SetFocus;
exit;
end;
newpass := trim(new_pass.Text);
if firmpass.Text = '' then
begin
MsgBox(f_passdlg.Handle,
'请输入验证密码!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
firmpass.SetFocus;
exit;
end;
firm_pass := trim(firmpass.Text);
sUser:= g_tsUserInfo.aryBsName;
if CheckUser(sUser, oldpass) =2 then
begin
MsgBox(f_passdlg.Handle,
'你输入的密码有误!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
old_pass.Text := '';
old_pass.SetFocus;
exit;
end;
if newpass <> firm_pass then
begin
MsgBox(f_passdlg.Handle,
'验证密码不正确,请重新输入密码!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
new_pass.Text:='';
firmpass.Text:='';
new_pass.SetFocus;
exit;
end;
if updatepass(sUser,newpass) then
begin
MsgBox(f_passdlg.Handle,
'密码修改成功!!', '提示',
mb_ok+MB_ICONWARNING+MB_DEFBUTTON1+MB_APPLMODAL);
new_pass.Text:='';
old_pass.Text:='';
firmpass.Text:='';
close;
end;

end;
function Updatepass(
i_User, i_Pwd : string
) : boolean;
var
sSql, sDbPwd : string;
begin
// construct sql sentence
sSql := 'update oadbo.oc_dlgl set pwd='''+ i_pwd + '''' +
'where bsname = ''' + i_User + '''';
try
frmComm.comQry.close;
frmComm.comQry.sql.clear;
frmComm.comQry.sql.add(sSql);
frmComm.comQry.ExecSQL;
Result:=true;
except
Result := false;
end;

end;