qreport.preview nicht aktuell??

[dragi]

Hallo,

bin neu hier,newbie und brauche mal professionelle Hilfe. Irgendwie konnte mir bis jetzt niemand helfen.

Ich habe ein kleines Programm das über 2 Edit Felder daten in eine access Datenbank schreibt. Das geht auch einwandfrei. Auf dem 2ten Formular liegt mein Quickrep da ich die Daten gerne Ausdrucken möchte. Print und preview funktioniert auch, nur wenn ich während der Laufzeit neue Daten eingebe erscheinen diese weder im preview noch im Ausdruck? Die Daten sind nur soweit vorhanden wie die Tabelle beim Start auch aussah!? Wenn ich dann das Programm beende und neu Starte sind auch die geänderten daten drin.

Habt ihr eine Idee?

Danke

dragi

[Nalincah]

Wie in etwa sieht denn dein Quellcode aus fürs reinschreiben in die tabelle?

[dragi]

Klar, hier die beiden Units

Unit1:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask, Db, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.quickrep1.preview;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.QuickRep1.print;
end;

end.

Unit2:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Qrctrls, QuickRpt, ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    DetailBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

end.

[Nalincah]

Wo wird denn denn der Text vom Edit in die Datenbank geschrieben?

[Nalincah]

Probiers mal hiermit. Vielleicht hilft das

QuickReport Tutorial