delphi updateÓï·¨´íÎó£¨ÔÚÏߵȣ©

begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select password from userinfo where username='''+label2.Caption +'''';
Adoquery1.open;
if  edit1.Text <>Adoquery1.Fields[0].AsString then
begin
Application.MessageBox('Ô­ÃÜÂë²»ÕýÈ·','¾¯¸æ',MB_ICONWARNING);
exit;
end;
if ((trim(edit2.Text)='') or (trim(edit3.text)='') )then
begin
Application.MessageBox('ÐÂÃÜÂëºÍÈ·ÈÏÃÜÂë²»ÄÜΪ¿Õ','¾¯¸æ',MB_ICONWARNING);
exit
end;
if edit2.Text <>edit3.text then
begin
Application.MessageBox('Á½´ÎÃÜÂë²»Ò»ÖÂ','¾¯¸æ',MB_ICONWARNING);
exit;
end;
      begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.text:='update userinfo set password='''+edit2.text+''' where username='''+Label2.Caption+'''';
      ADOQuery1.ExecSql;
      application.MessageBox('³É¹¦ÐÞ¸ÄÃÜÂë','³É¹¦',mb_iconwarning);
      exit;
      end;
end;


end.

---

ÇëÇó´óÏÀÃÇ°ïÖú СŮ×Ó³õѧdelhi ¸÷λ×ß¹ý·¹ýµÄ´óÏÀÃÇ °ï°ïÎÒ°É£¡

---

Òѽâ¾ö

---

ADOQuery1.SQL.text:='update