ratatouille5330
Messages postés lundi 11 janvier 2016Date d'inscription
10 décembre 2017
Dernière intervention
-
24 oct. 2017 à 00:23 - Dernière réponse : Pierrotk10d
- 31 oct. 2017 à 08:31
Bonjour,
Il y a plusieurs solutions comme souvent.
1 - Mettre la propriété Multiselect du TDBGrid à True, sélectionner les enregistrements à supprimer. Voici un bout de code qui devait aller
procedure TForm1.Button1Click(Sender: TObject); Var i: Integer; begin // Propriété MuliSelect du DBGrid1 est à True if DBGrid1.SelectedRows.Count > 0 then begin for i := 0 To DBGrid1.SelectedRows.Count -1 do begin Table1.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i])); Table1.Delete; end; end; end;
2 - Saisir la date de début et de fin des dates à supprimer et faire une requete SQL. A adapter à ton désir
Delete from Table1 where (DateResa > 'DateDebut') and (DateResa < 'DateFin');
pour le bouton ok ca peu être utile mais la dans mon cas cela m obligerais a sélectionné manuellement les lignes .
après je ne sais pas utilisé les autres codes et serait p être trop long a apprendre pour moi je suis pas un pro !! et ne suis pas assez souvent a programmé .
auriez vous une autre solution ? en restant axé sur paradox et delphi
ce que je voudrais cet juste qu avec une date donnée que la fonction puisse allez rechercher tous les lignes ayant cette date et les sélectionnés automatiquement et les supprimer et cela sur un seul clic ;-)
si merci pour votre première réponse je garde sous le coude le petit code pour le bouton ca pourra me servir ultérieurement .
Bonjour,
Pour la suppression des enregistrements sans les sélectionner manuellement la solution requête SQL me semble la meilleure. Il faut saisir la date à supprimer dans une fiche de dialogue ( à créer), avec un Edit et un bouton pour valider la date et lancer la requête.
Bonjour,
Si tu ne veux pas utiliser SQL c'est dommage. Tu peux faire une boucle While comme ceci qui va supprimer tous les enregistrements qui ne seront differents du jour ou la procédure sera lancée (tous les jours différents du 28/10/2017 pour aujourd'hui par exemple).
A toi d'adapter quels jours tu veux supprimer dans la boucle.
Tu peux indexer ta table sur le champs DateResa ça ira plus vite!
procedure TForm1.Button2Click(Sender: TObject); Var DateJ: TDateTime; begin DateJ := Date(); With Table1 do begin First; While (FieldByName('DateResa').AsDateTime < DateJ) and (not Eof) do Delete; end; end;
cela ne fonctionne pas!! car cela ne m efface tous !!
jai essayer de faire cela mais idem :
procedure TForm1.DateTimePicker1Change(Sender: TObject);
Var
DateJ: TDateTime;
begin
DateJ := DateTimePicker1.Date;
With Table1 do begin
first;
While (FieldByName('Date').AsDateTime < datej) and (not Eof) do
PierrotK10d
>
ratatouille5330
Messages postés lundi 11 janvier 2016Date d'inscription
10 décembre 2017
Dernière intervention -30 oct. 2017 à 09:31
Bonjour,
J'ai testé la procédure elle fonctionne parfaitement chez moi. Avec la date du jour DateJ := Date(); ou en sélectionnant une date dans un TMonthCalendar DateJ := MonthCalendar1.Date;
Fait le test suivant dans l'événement OnChange du TDateTimePicker remplace Delete par le remplissage d'un TMemo (avec scrollbar vertical) et regardes ce qui se passe! Avec TDateTime Picker la transformation de DateJ en String donne un meilleur résultat lors de la comparaison.
Bonne journée
pour le bouton ok ca peu être utile mais la dans mon cas cela m obligerais a sélectionné manuellement les lignes .
après je ne sais pas utilisé les autres codes et serait p être trop long a apprendre pour moi je suis pas un pro !! et ne suis pas assez souvent a programmé .
auriez vous une autre solution ? en restant axé sur paradox et delphi
ce que je voudrais cet juste qu avec une date donnée que la fonction puisse allez rechercher tous les lignes ayant cette date et les sélectionnés automatiquement et les supprimer et cela sur un seul clic ;-)
si merci pour votre première réponse je garde sous le coude le petit code pour le bouton ca pourra me servir ultérieurement .