本文整理自网络,侵删。
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 分解时间 �cdecodedate、decodetime … decodedatetime …
Delphi 解决“richedit line insertion error”错误
更多相关阅读请进入《Delphi》频道 >>