频道分类

delphi ADOQuery查询更改用户

作者:admin 来源: 日期:2020/3/23 12:45:34 人气: 标签:

 

procedure TForm1.bt_deleteClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete from user where id='''+Edit1.Text+''' and password='''+Edit2.Text+'''');
  ADOQuery1.ExecSQL;
  Edit1.Clear;
  Edit2.Clear;
  showMessage('删除成功');
end;
 
 
procedure TForm1.bt_changeClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('update user set password='''+Edit2.Text+''' where id='''+Edit1.Text+'''');
  ADOQuery1.ExecSQL;
  Edit1.Clear;
  Edit2.Clear;
  showMessage('更改成功');
end;
都是一个套路,理解了就会写了?
————————————————

原文链接:https://blog.csdn.net/kisssfish/article/details/88746065

上一篇:delphi ADOQuery添加用户及密码下一篇:没有资料