Problème de visualisation d'enregistrement avec Tquickreport

**ingelman** · 04/12/2005, 11h34

salut a tous j'ai cree un petit programme delphi qui consiste en deux etape
1- de remplire une table avec des donneé comme numero , monsieur , fonction ..... (il s'agit d'un ordre de mission) que j'ai fait avec une table (Ttable) un dbgrid un datasource et un dbnavigator
2- de selectionner un enregistrement et de le previsualiser dans une fenetre Tquickreport
le programme marche bien mais il ya un pb au moment de la selection il m'affiche toujour le meme enregistrement
comment faire pour resoudre ce probleme
merci
voila son code source

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
unit ingel; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  QuickRpt, Qrctrls, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, 
  DBTables,unit2; 
 
type 
  TForm1 = class(TForm) 
    DataSource1: TDataSource; 
    Table1: TTable; 
    DBGrid1: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button2Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
  private 
    { Déclarations privées } 
  public 
    { Déclarations publiques } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
uses ingel2; 
 
{$R *.DFM} 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
application.Terminate; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
form2.QuickRep1.preview; 
end; 
 
end. 
unit ingel2; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Db, DBTables, Qrctrls, QuickRpt, ExtCtrls; 
 
type 
  TForm2 = class(TForm) 
    QuickRep1: TQuickRep; 
    QRLabel1: TQRLabel; 
    QRLabel2: TQRLabel; 
    QRLabel3: TQRLabel; 
    QRLabel4: TQRLabel; 
    QRLabel5: TQRLabel; 
    QRLabel6: TQRLabel; 
    QRLabel7: TQRLabel; 
    QRLabel8: TQRLabel; 
    QRLabel9: TQRLabel; 
    QRLabel10: TQRLabel; 
    QRLabel11: TQRLabel; 
    QRLabel12: TQRLabel; 
    QRLabel13: TQRLabel; 
    QRLabel14: TQRLabel; 
    QRLabel15: TQRLabel; 
    QRDBText1: TQRDBText; 
    QRDBText2: TQRDBText; 
    QRDBText3: TQRDBText; 
    QRDBText4: TQRDBText; 
    QRDBText5: TQRDBText; 
    QRDBText6: TQRDBText; 
    QRDBText7: TQRDBText; 
    QRDBText8: TQRDBText; 
    QRDBText9: TQRDBText; 
    QRDBText10: TQRDBText; 
    QRDBText11: TQRDBText; 
    Table1: TTable; 
    DetailBand1: TQRBand; 
  private 
    { Déclarations privées } 
  public 
    { Déclarations publiques } 
  end; 
 
var 
  Form2: TForm2; 
 
implementation 
 
{$R *.DFM} 
 
end.

[Modération]
Merci d'utiliser :
- les balises code ou quote
- un titre plus explicite. Ancien titre : Problème Delphi urgent
Laurent Dardenne
[/Modération]