delphi 7 ADOQuery读取数据并修改密码

Question

delphi 7 ADOQuery读取数据并修改密码

Answer 1

procedure TForm6.suiButton1Click(Sender: TObject);
var
s: string;
begin
with Data.ADO_user do begin
close;
SQL.Clear;
SQL.Add('select * from 操作员表 where 用户名=''' + Edit1.text + ''' and 姓名=''' + suiEdit1.text + '''');
Open;
s := fieldbyname('密码').AsString;
end;
if suiEdit2.text <> s then begin
suiMessageDialog1.text := '输入的原密码不正确，请重新输入！';
suiMessageDialog1.ShowModal;
suiEdit2.text := '';
suiEdit3.text := '';
suiEdit4.text := '';
suiEdit2.setfocus;
Exit;
end;
if suiEdit3.text <> suiEdit4.text then begin
suiMessageDialog1.text := '两次输入的密码不一致！';
suiMessageDialog1.ShowModal;
suiEdit2.text := '';
suiEdit3.text := '';
suiEdit4.text := '';
suiEdit2.setfocus;
Exit;
end;
Data.ADO_user.Edit;
Data.ADO_user.fieldbyname('密码').AsString := suiEdit3.text;
Data.ADO_user.Post;
suiMessageDialog1.text := '密码修改成功！';
suiMessageDialog1.ShowModal;
suiEdit2.text := '';
suiEdit3.text := '';
suiEdit4.text := '';
close;
end;