Saisie dans DbGrid et impression dans QReport

Bonjour,

Depuis toujours, j'utilise la DbGrid pour afficher les données utilisant une table, un Dataset, ou un Query.
Voilà ce que je veux faire : Permettre a un utilisateur de saisir les données dans un DbGrid vide lié à une table, par exemple Qte, Prix unitaire et un calcul de qte * pu dans une colonne montant et ensuite enregistrer les données saisies dans la table.
Enfin je veux imprimer la DbGrid dans un Qreport dans un tableau que j'ai déjà tracer avec des QRShape.

Merci pour toutes interventions...

et alors ? quel est le soucis ?

Pouvez-vous me montrer comment après la saisie de qte * pu le résultat est calculer automatiquement dans la cellule montant ?.
Pour l'impression dans QReport je veux savoir comment imprimer la ligne sélectionne par un utilisateur.
Merci.

Une précision : Dans la DbGrid, il ya une colonne Numero. Je veux extraire ce numéro et l'utiliser dans la clause where de ma requête SQL.

J'ai pu trouve de l'aide dans un support pour extraire le numéro de ligne sélectionner un utilisateur.
Voici le code :

Code:

---

1 2	Ligne := Format('%2d',[TdrawGrid(DbGrid1).Row]); Line := StrToInt(Ligne);

---

Maintenant le problème que je rencontre c'est avec ma requête sql.
La valeur de Ligne est string, je le converti en integer.
Voici ma requête :

Code:

---

1 2	Form2.Query1.SQL.Add('Select Pd_Date, Pd_Compte, Pd_Dest, Pd_Montant, Pd_Centre, Pd_Libelle from Depense'); Form2.Query1.SQL.Add('Where Pd_Numero = ' + (Line);

---

Ma question qu'est ce qu'il faut mettre avec Line pour que l'exception "[Erreur] : Types incompatibles : 'String' et 'Integer' ne se produise plus?.

Merci.

Citation:

---

Envoyé par sondo

Code:

---

1 2	Ligne := Format('%2d',[TdrawGrid(DbGrid1).Row]); Line := StrToInt(Ligne);

---

---

pourquoi utiliser strtoint ? Line:=DBGrid1.Row est plus simple non ? cependant j'ai des doutes sur cette idée , que va t'il se passer quand le nombre d'enregistrement seras supérieur à la taille de la grille ......

Citation:

---

Envoyé par sondo

Code:

---

1 2	Form2.Query1.SQL.Add('Select Pd_Date, Pd_Compte, Pd_Dest, Pd_Montant, Pd_Centre, Pd_Libelle from Depense'); Form2.Query1.SQL.Add('Where Pd_Numero = ' + (Line);

---

Ma question qu'est ce qu'il faut mettre avec Line pour que l'exception "[Erreur] : Types incompatibles : 'String' et 'Integer' ne se produise plus?.

---

Là justement l'erreur c'est de mettre Line , le SQL est une String donc Form2.Query1.SQL.Add('Where Pd_Numero = ' + Ligne)

Citation:

---

Envoyé par sondo

Pouvez-vous me montrer comment après la saisie de qte * pu le résultat est calculer automatiquement dans la cellule montant ?.

---

vu que c'est un champ calculé , il faut a) empêcher la saisie dans cette zone et b) faire le calcul avant validation de l'enregistrement si la base de données ne le fait pas automatiquement (je pense a paradox)
donc pour le point a il faut gérer l'évènement d'entrée dans la cellule (SelectCell) et pour le point b) L'évènement BeforePost de la Table

bon courage :)

bonjour

j'ai pas trop saisi ton problème (j'ai pas trop lu non plus :mrgreen:)

mais je pense que tu doit utilIser les champs calculés
regarde du coté de l'évenement OncalcField de ton datasET

voila

Merci pour vos différentes interventions.
Pour la requête j'ai fais ceci, mais le pronlème persiste toujours :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.ButtonImprimerClick(Sender: TObject); var Ligne : Integer; begin Depense.Post; ligne := TDrawGrid(DBGRID1).Row; Form2.Query1.SQL.Clear; Form2.Query1.SQL.Clear; Form2.Query1.SQL.Add('Select Pd_Date, pd_Compte, Pd_Dest, Pd_Montant, Pd_Centre, Pd_Libelle from Depense'); Form2.Query1.SQL.Add('Where Pd_Numero =' + QuotedStr(IntToStr(ligne))); Form2.Query1.Open; Form2.QuickRep1.Preview; end;

---

La requête fonctionne bien.
J'ai remarquer qu'après avoir quitter delphi, tous les données de la table s'éffacent. Est-ce que DbGrid fais un Table.post après la saisie de chaque ligne, ou bien y'a t-il un autre moyen?.
Pendant qu'on y est, SergioMaster a dit : que va t'il se passer quand le nombre d'enregistrement seras supérieur à la taille de la grille ......
Combien de ligne un DbGrid peur coctenir?

Merci.