Discussion :

[rvzip64]

salus à tous

Je vous explique mon probleme, je fais une requete dans un "Query".
J'ai connecté une dbgrid au query par le biais d'un datasource.

Grace a cette requete j'affiche un historique que j ai dans ma base de données. Quand l'utilisateur veut rentrer sur une nouvelle ligne, il doit cliquer sur un bouton qui appele la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Query.append

puis il fait la modification dans des dbedits (qui sont eux aussi connecté a la datasource.

L'utilisateur dispose d'un autre bouton s'il veut annuler le travail qui est en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Query.cancel

Le probleme que j'ai , c est que si l'utilisateur clique dans la dbgrid pendant l'édition d'un champ, le champ est automatiquement validé...Moi, je voudrais que l'utilisateur clique sur un bouton pour que la mise a jour soit prise en compte.

Comment puis-je faire pour résoudre mes problèmes. Merci d'avance.

[Invité1]

bonsoir

la solution que tu peux faire a mon avis c'est de mettre la propriété

READONLY du DBGRID à false quand il fait un append, et la remettre à true

quand il fait un CANCEL ou bien quand il clique sur le bouton de validation.

bonne chance

[Andnotor]

Les données seront toujours validées au changement de ligne.
Il n'y a que l'édition de l'enregistrement en cours sur une fiche indépendante qui te permettra de mettre deux boutons de validation et d'annulation.

[Invité1]

sinon tu utilises l'evenement BEFORESCROLL c.à.d

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.Query1BeforeScroll(DataSet: TDataSet);
begin
Query1.cancel
end;

BEFORESCROLL se produit quand une application va passer d'un enregistrement à un autre.

ce qui a pour resultat d'annuler les modifiactions

[rvzip64]

Désolé, mais la solution avec beforescroll ne fonctionne pas, cela valide la ligne quand meme.

[Cl@udius]

Salut

C'est plutôt dans le BeforePost que je ferais le traitement avec un MessageDlg, pour confirmer le Post ou non, que j'annulerais le cas échéant avec un Cancel sur le DataSet.

@+ Claudius

[rvzip64]

Perdu ça ne fonctionne pas non plus.

[Cl@udius]

Montre-nous le code que tu as mis en place dans le OnBeforePost.

[rvzip64]

Le voila:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TFrmGstnArbre.MyQueryhistoriqueSpecBeforePost(DataSet: TDataSet);
begin
  if dataset.State in [dsInsert, dsEdit, dsSetKey] then
    DataSet.Cancel;
end;

[Cl@udius]

Je voyais plus quelque chose comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TFrmGstnArbre.MyQueryhistoriqueSpecBeforePost(DataSet: TDataSet);
begin
  if MessageDlg('Valider votre saisie ?', mtConfirmation, mbOkCancel, 0) <> mrOk   then
    Abort;
end;

Inutile de tester l'état du DataSet puisqu'il est forcément différent de dsBrowse si on entre dans le BeforePost.
Puis il est préférable d'utiliser Abort (au lieu de Cancel qui va annuler la saisie) pour forcer l'utilisateur à cliquer sur les boutons Valider ou Annuler.

@+ Claudius

[rvzip64]

Oui je suis d acord , faut pas que jeteste l'état du dataset.

Par contre chez moi la méthode abort n'est pas disponible dans mon dataset.

[Cl@udius]

Abort n'est pas une méthode du TDataSet, mais une procédure de SysUtils qui annule l'envoi (cad le Post) avant qu'il ne soit effectif.

@+

[rvzip64]

Désolé mais cette méthode ne fonctionne pas non plus

[Invité1]

Bonjour

J’ai trouvé cette solution, j’espère qu’elle marchera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var validation:boolean;
 
 
procedure TForm1.validerClick(Sender: TObject); //j'utilse un bouton valider
begin
validation:=true;
table1.post;
end;
 
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
if  not validation then
begin
table1.Cancel;
table1.Delete;// j'ai remarqué qu'il y a insertion du meme enregistrement alors je le supprime
end;
validation:=false;
end;

bonne journée

[rvzip64]

Merci samy larson
J'essaye de tester ça dans la journée