基于Delphi7的图书信息管理系统 修改密码 应该怎么做到

Question

基于Delphi7的图书信息管理系统 修改密码 应该怎么做到

Answer 1

数据库是 SQL server 2000

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('Select * from User Where UserName=:UserName AND PassWord=:PassWord');
   ADOQuery1.Parameters.Items[0].Value := Edit1.Text;
   ADOQuery1.Parameters.Items[1].Value := Edit2.Text;
   ADOQuery1.Open;
   if ADOQuery1.RecordCount >0 then begin
      ADOQuery1.FieldByName('PassWord').AsString := Edit3.Text;
      Showmessage('密码修改成功！');
   end else begin
      Showmessage('用户名或密码错误，请确认后重新输入！');
   end;
end;

Answer 3

ADOQuery1.Edit;
      ADOQuery1.FieldByName('PassWord').AsString := Edit3.Text;
ADOQuery1.Post;