delphi ADOQuery查询更改用户

最新推荐文章于 2024-05-30 09:20:17 发布

kisssfish

最新推荐文章于 2024-05-30 09:20:17 发布

阅读量306

点赞数

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/kisssfish/article/details/88746065

版权

Delphi 专栏收录该内容

7 篇文章

订阅专栏

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;

都是一个套路，理解了就会写了?