Discussion :

[Socrat]

Bon soir tt le monde,

Je saisie mes données dans un DBGrid, le problème que j'ai c'est :
comment empêcher l'insertion d'un enregistrement que si une condition est valable. (Exemple : prix non valid!!)

Je veux que le curseur de la DBGrid ne pass pas à la ligne insérée que si il véfirife la condition.

Merci.

[dekalima]

Salut,
Je te conseillerais plutôt d'attendre que les pro répondent mais intuitivement j'aurais fait un truc du genre:

(si la donnée que tu veux mettre en base de donnée est dans un TEdit )

Code :

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

1
2
3
4
5
6
7
8
9
if (Edit1->Text ==prix)
{
 // ta condition en fait, si tu veux un entier, si ça doit etre inf ou sup à telle ou telle valeur ...ect
Form1->Query1->SQL->Clear();
Form1->Query1->SQL->Add( "INSERT INTO table (champ)" );
Form1->Query1->SQL->Add( "VALUES ( " );
Form1->Query1->SQL->Add( QuotedStr( Form1->Edit1->Text ) + " ) " );
Form1->Query1->ExecSQL();
}

[Socrat]

non, je travaille avec une DBGrid

[ShaiLeTroll]

Si le Prix est Global (vient d'ailleurs)
voir BeforeInsert du DataSet lié au DBGrid !
Provoqué un Abort annulera l'insertion

Si le Prix est saisie dans la Grille
voir BeforeInsert...

[Socrat]

Merci ShaiLeTroll,

Oui c'est juste ce que tu dit, mais le problème c'est que :
l'utilisateur peut appuyer sur la touche vers le bas, ou sur la touche tabulation, dans ce cas la ligne précédente et accptée même
si la condition n'est pas vérifiée.

Ce que je veux moi, c'est :
est=ce qu'il y a une possibilité de bloquer le (bookmark) de la ligne jusqu'à ce que la condition soit vérifié;

J'est essayé avec la boucle infinie ()

while (true)
{

}

[Socrat]

mais ça marche pas.

[ShaiLeTroll]

En même temps, j'ai écrit n'importe quoi !
Pour le second cas, c'est BeforePost pas BeforeInsert ...

Si le Prix est saisie dans la Grille
voir BeforePost...

[Socrat]

Même BeforePost ne bloque pas l'enregistrement.

Code :

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

1
2
3
4
5
if (Table1PV->Value < Table1PA->Value)
{
         ShowMessage("Prix de vente non valid");
         Table1->Cancel();
}

Etant donnée que :
Table1PV->Value : est le prix de vente saisie dans la dbgrid
Table1PA->Value : est le prix d'achat de la table

Les deux champs PV et PA sont dans la même table Table1;

A l'execution de la commande cancel :

Code :

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

Table1->Cancel();

Tout les anciens lignes saisies sont perdues!

[ShaiLeTroll]

les Anciennes Lignes ?
Cela n'annule que la ligne en cours !

Perso, je ne fais pas Cancel dans BeforePost mais un throw !

Une application peut utiliser BeforePost pour effectuer des contrôles de validité sur les modifications de données avant de les valider. En cas de problème de validité, il suffit d'appeler Abort pour annuler l'opération de validation (Delphi) ou de déclencher une exception (C++).

[Socrat]

Merci,
Je vais essayer throw;

Mais, Comment peut-on utilser throw ?

Merci encore

[ShaiLeTroll]

Faudrait pas pousser quand même !throw : Comment lever une exception ?
C'est quand même les bases du langage !

[Socrat]

Merci,

Je sais bien comment ça marche le throw; mais comment on peut l'utiliser à l'interieur d'un dbgrid :

L'evenement = saisir le prix de vente PV
La condition = PV > PA (Prix d'Achat)

Comment peut-on utiliser try catch throw dans ce cas ?
Etant donnée que je veut pas que l'index de la ligne en cours de DBGrid ne soit pas changée soit vers le haut soit vers le bas (c.à.d bloquage de Bookmark) que si le PV > PA.

J'espère que tu ma bien compris Monsieur ShaiLeTroll.

[ShaiLeTroll]

le plus simplement du Monde

Code :

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

1
2
3
4
5
if (Table1PV->Value < Table1PA->Value)
{
  ShowMessage("Prix de vente non valide");
  throw Exception();
}

Pour cette histoire de curseur, tu veux empêcher le déplacement, as-tu consulté l'aide pour voir les autres évènements ?
Effectivement BeforePost n'est peut-être pas le bon choix
Comme BeforeScroll mais je n'ai jamais tenter d'empecher le déplacement, à voir !
Voir aussi dans quel ordre se produit BeforePost et BeforeScroll, avec de la chance, d'abord BeforeScroll si OK, cela Post donc BeforePost, si NOK cela ne Scroll pas donc pas de Post...
Si pas de chance, tu n'auras surement pas le comportement que tu souhaites!
Sinon la Saisie directement dans les Grilles c'est pas le truc le plus ergonomiques ! c'est souvent une uzinagaz pour un ressenti utilisateur médiocre

[Socrat]

Merci ShaiLeTroll,

Mais s.t.p sans commentaires.

Ce qui est merveilleux dans ce site c'est qu'il est fait pour tout le monde, pour les médiocres, même pour les nuls, et aussi pour les super-pros (comme vous ...).

Propose ta solutions mais sans commentaires, et merci.


Même BeforeScroll ne marche pas.

[ShaiLeTroll]

le médiocre ne s'appliquait pas aux membres du forum, tu t'es senti visé ?
mais à l'ergonomie d'une saisie directement depuis une grille !
relit bien

c'est souvent une uzinagaz pour un ressenti utilisateur médiocre

c'est le ressenti utilisateur qui est médiocre, l'utilsateur qui va utiliser ton appli qui va pester parce qu'il est compliqué de l'utiliser
Tu commence une ligne de saisie, tant qu'elle n'est pas correcte tu ne peux pas en sortir, il faut penser alors au bouton echap que peu de monde connait finalement !

désolé, si tu l'as mal pris (et mal compris) !

Je préfère avoir un Formulaire de saisie indépendant accessible via la Double-Clic ou un Bouton Modifier
En fait, très proche de ce que génère l'Expert de Fiche Bases de Données !
La Saisie directe dans une grille pose toujours énormément de problème !
J'ai été aussi forcé de le faire et j'ai parfois galéré !

Perso, je viens de tester, un TTable, un TDataSource, un TDBGrid
une table Paradox avec Champ1 et Champ2
Je vais dans le TTable, F11, Evènements, DoubleClic sur BeforePost

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::Table1BeforePost(TDataSet *DataSet)
{
  if (Table1->FieldByName("Champ1 ")->AsInteger <= Table1->FieldByName("Champ2")->AsInteger)
  {
    Abort();
  }
}

et Tant que Champ1 est inférieur à Champ2, je ne peux pas me déplacer dans la Grille ni avec les flèches ni avec la souris
Cela ressemble à ce que tu voulais !
Créer un petit projet de test, juste pour avoir ce comportement, une fois fonctionnelle dans le petit projet de test, reporte le dans le vrai projet

Tu dois avec un code parallèle qui provoque un effet de bord

[Socrat]

Merci ShaiLeTroll,

Merci pour ton aide, je vais essayer cette solution.

Merci encore.