Discussion :

[sofianoo]

slt tlm,
j'utilise un dbgrid pour afficher les données d'une table,mais le pb c'est au niveau de l'impréssion qd je point la souris vers un enregistrement ça n'imprime pas la ligne souhaité.

[evarisnea]

déjà pourrait on savoir comment tu procèdes, quel générateur d'état tu utilises?
je n'ai pas compris ce que tu désires réaliser: imprimer uniquement la ligne pointée par la souris ?

quelques précisions s'imposent

[sofianoo]

j'utilise le Quickreport, je t'explique j'ai 2form,dans la 1ére j'utilise un dbgrid pour saisir les produit et ad je veux imprimer ça marche bien.dans l

[sofianoo]

j'utilise le Quickreport, je t'explique j'ai 2form,dans la 1ére j'utilise un dbgrid pour saisir les produit et ad je veux imprimer ça marche bien.dans la 2éme form je l'ai consacré pour la recherche il ya aussi un dbgrid ou il est affiché le numéro,la date et le nom du client, donc l'utilisateur a deux possibilité soit le filtre par nom ou par Numéro,j'ai utiliser le code suivant

Code :

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

1
2
3
4
5
6
7
procedure TForm3.Edit2Change(Sender: TObject);
begin
if Edit2.Text<>'' then
begin
TABLE1.Locate('Numoffre',Edit2.Text,[Lopartialkey]);
end;
end;

et pour le filtre par nom

Code :

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

1
2
3
4
procedure TForm3.Edit1Change(Sender: TObject);
begin
Table1.Locate('Client',Edit1.Text,[LopartialKey]);
end;

voici le pb quand j'execute un des filtre la fléche du dbgrid point bien sur le client voulu mais qd je veux imprimer ,ça imprime le dernir etat de la form1(je sais pas si je me suis fais bien comprendre!!!)
voici le code pour l'impression

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
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
table1.Edit;
table1.Post;
table2.Edit;
table2.Post;
QuickReport4.Query1.active:=false;
QuickReport4.Query1.Params[0].value:=strtoint(form1.DBEdit7.Text);
QuickReport4.Query1.active:=true;
QuickReport4.Prepare;
NombrePages:=QuickReport4.QRPrinter.PageCount;
QuickReport4.QRPrinter.Free;
QuickReport4.QRPrinter := nil;
QuickReport4.PREVIEW;
end;

remarque: ce code est le méme que celui utilisé pour l'impréssion dans la form1

[evarisnea]

à quoi correspond DBEdit7 ?
et QuickReport4.Query1.Params[0] ?
pourquoi ce code ?

Code :

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

1
2
3
4
table1.Edit;
table1.Post;
table2.Edit;
table2.Post;

[sofianoo]

ce code parce que j'avais ce message d'erreur " la table n'est pas en mode edition"

[sofianoo]

dbedit7 c'est ou il ya le Numéro d'offre ( la clé)