delphi ADOQuery 쿼리 변경 사용자

737 단어 Delphi
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;

모두 하나의 방법으로, 이해하면 곧 쓸 수 있다

좋은 웹페이지 즐겨찾기