برنامج شخصي للتخزين

[S.FATEH]

السلام عليكم
الحقيقة ليس لدي office منصب على الجهاز
على العموم بدل من استخدام

PHP كود :

ADOQuery1.Delete; 


يمكنك استخدام الـ SQL مباشرة

PHP كود :

procedure TForm1.DeleteClient(Sender: TObject);
var Qry: TADOQuery;
begin
  Qry := TADOQuery.Create(nil);
  try
    Qry.Connection := ADOConnection1;
    Qry.SQL.Text := 'delete from client where id_client = :id_client';
    Qry.Parameters.ParamByName('id_client').Value := ADOQuery1.Fields[0].AsInteger;
    Qry.ExecSQL;
    ADOQuery1.Refresh;
  finally
    Qry.Free;
  end;
end;