Discussion :

[casa88]

bjr a tous le monde,
j'ai une db grid dans lequel je veux désactiver la touche bas du clavier s'il y a un condition précise

voila le code

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
20
procedure Tfrmmouvement.GrilleKeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
 
if key=VK_DOWN then 
begin//7 
VOILA La CONDITION 
 
if (grille.DataSource.DataSet.FieldValues['MVT_N_DEBIT']='0,00') and (grille.DataSource.DataSet.FieldValues['MVT_N_CREDIT']='0,00') then 
begin //9 
//VOILA LE CODE DE D2SACTIVER LA TOUCHE BAS 
 
Beep; 
key:=0; 
Exit; 
 
end // 
end;//7 
 
end;

mais ce code ca marche pas,et merci d'avance

[Just-Soft]

Salut;

Je crois avoir compris ton soucis, tu veux n'autoriser l'ajout d'une nouvelle ligne que si la condition est remplie ! si c'est ça alors la bonne solution consiste à faire le test dans l'évènement OnNewRecord, si le résultat est vrai alors le dbgrid est en mode écriture sinon il reste en mode lecture seulement. Et comme ça tu n'as pas à gérer le KeyDown du clavier.

[casa88]

bjr a tous,
wé Just-Soft mon probleme c'est ,si par exemple je suis dans la 3éme ligne d'un dbgrid et je clicke sur la touche bas du clavier pour passer a la 4eme ligne si ma condition est true((grille.DataSource.DataSet.FieldValues['MVT_N_DEBIT']='0,00') je veux que mon curseur reste sur la meme ligne(desactiver l'action de la touche) si nn(grille.DataSource.DataSet.FieldValues['MVT_N_DEBIT']<>'0,00') il va passer a la 4eme ligne

[Just-Soft]

ah ok, dans ce cas là tu n'as qu'à faire le test dans le BeforeScrol de ton dbgrid

[casa88]

bjr Just-Soft,merci mais j'ai pas trouver la propriété BeforeScrol de mon dbgrid

[Just-Soft]

bjr Just-Soft,merci mais j'ai pas trouver la propriété BeforeScrol de mon dbgrid

pardon j'ai fais une gaffe c'est une méthode propre aux composants Table et Query. Donc faut faire le test sur le composant que tu utilise.

[casa88]

bjr a tous
merci Just-Soft, je pense que la seule propriété c'est on keydown le problémé que j'ai fais le meme code pour la toche entrer(vk_return) et il marche bien mais pour la touche bas non
plz aidez_moi

[Cl@udius]

Salut casa

Il faut que tu sépares ce qui concerne l'affichage des données (le DBGrid) et les données elles-mêmes (le DataSet). C'est une règle d'or.

Si j'ai bien compris tu souhaites simplement effectuer un contrôle de validité sur les données saisies. Donc ce traitement doit s'effectuer au niveau du DataSet, le DBGrid n'étant pas (et ne devant pas être) concerné.

Tu veux t'assurer que les champs DEBIT et CREDIT ne sont pas tous les deux à 0.
Effectue ce contrôle sur l'évènement BeforePost du DataSet. Ce qui donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.DataSet1BeforePost(DataSet: TDataSet);
begin
  if (DataSet.FieldByName('MVT_N_DEBIT').AsCurrency = 0) and
     (DataSet.FieldByName('MVT_N_CREDIT').AsCurrency = 0) then
  begin
    MessageBox(Application.Handle,
      'L''un des champs CREDIT ou DEBIT doit être renseigné.',
      'Saisie incomplète',
      MB_OK or MB_ICONWARNING);
    Abort; // Annuler le post
  end;
end;

@+ Claudius

[casa88]

bonjour

merci Claudius, maintenant ça marche bien