Question

求个delphi删除数据库的按钮代码

我想在窗体内加入一个删除按钮。删除当前这条记录。代码怎么写？
下面是的“修改”按钮代码:
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='Update Sale Set M1=:M1,M2=:M2,M3=:M3,M4=:M4,M5=:M5,M6=:M6,N1=:N1,N2=:N2,N3=:N3,N4=:N4,N5=:N5,N6=:N6,ND=:ND where 日期=:日期';
ADOQuery1.Parameters.ParamByName('M1').Value:=cxCurrencyEdit1.Value;
ADOQuery1.Parameters.ParamByName('M2').Value:=cxCurrencyEdit2.Value;
ADOQuery1.Parameters.ParamByName('M3').Value:=cxCurrencyEdit3.Value;
ADOQuery1.Parameters.ParamByName('M4').Value:=cxCurrencyEdit4.Value;
ADOQuery1.Parameters.ParamByName('M5').Value:=cxCurrencyEdit5.Value;
ADOQuery1.Parameters.ParamByName('M6').Value:=cxCurrencyEdit6.Value;
ADOQuery1.Parameters.ParamByName('N1').Value:=Edit1.Text;
ADOQuery1.Parameters.ParamByName('N2').Value:=Edit2.Text;
ADOQuery1.Parameters.ParamByName('N3').Value:=Edit3.Text;
ADOQuery1.Parameters.ParamByName('N4').Value:=Edit4.Text;
ADOQuery1.Parameters.ParamByName('N5').Value:=Edit5.Text;
ADOQuery1.Parameters.ParamByName('N6').Value:=Edit6.Text;
ADOQuery1.Parameters.ParamByName('ND').Value:=Edit7.Text;
ADOQuery1.Parameters.ParamByName('日期').Value:=DateTimePicker1.DateTime;
ADOQuery1.ExecSQL;
end;

Answer 1

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='Delete from Sale where 日期=:日期'
ADOQuery1.ExecSQL;

就这么写。

Answer 2

begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='delete from Sale where 日期=:日期';
ADOQuery1.Parameters.ParamByName('日期').Value:=DateTimePicker1.DateTime;
ADOQuery1.ExecSQL;
end;

Answer 3

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='Delete Sale where 日期=:日期';
ADOQuery1.Parameters.ParamByName('日期').Value:=DateTimePicker1.DateTime;
ADOQuery1.ExecSQL;
end;