DBGrid ausdrucken als Beispiel mit Quelltext

[pol0815]

Hallo,

ich suche ein Beispielprogramm mit Quelltext vwmit ich ein DBGrid audrucken kann.
Meine Datenbank hat die Felder:

Personnummer
Name
Vorname
Straße
Wohnort
gebmonat

Nun möchte ich ich alle Daten anzeigen und ausdrucken welche zum beispiel
im gebmonat eine 5 haben.

Kann mir da jemand helfen, habe zwar die Datenbank erstellen können auch die
Verknüpfung funktionert alles nur die eingabe der Zahl in einem Feld und den Button
habe ich noch nicht geschafft ich bekomme nur alle Daten anzegeigt.

[eddy]

Hallo pol0815,

filtere Deine Datenbank nach gebmonat = 5

Wenn Du richtig filterst, siehst Du alle Datensätze mit dem gewünschten Monat.

Zum Drucken gibt es dann diverse Möglichkeiten.

mfg
eddy

[pol0815]

benötige dafür ein Beispiel damit ich es verstehen kann.

Auch mit den Drucken je einfacher je besser

[eddy]

Hallo pol0815,

wofür genau brauchst Du ein Beispiel?

- das Filtern Deiner Datenbank
- das Übertragen der Feldinhalte in ein TMemo
- das Drucken

Ich nehme mal an, daß Du in der Lage bist, Deine Datenbank zu filtern und definierte Feldinhalte zeilenweise in ein Memofeld zu schreiben. Ausgehend von einem Memo verwende ich folgende einfache Variante zum Drucken:

Delphi-Quellcode:

procedure TFABTools.sbPrintInfoClick(Sender: TObject);
var
  i : integer;
  PrintText: TextFile;   //Deklaration einer Dateivariablen
begin
  if PrintDialog1.Execute then begin
    AssignPrn(PrintText);   //Zuweisung von PrintText an den Drucker - uses Printers
    Rewrite(PrintText);     //Erzeugen und Öffnen der Ausgabedatei
    Printer.Canvas.Font := minfo.Font; //Zuweisung der eingestellten Schriftart an die Leinwand
    //Schreiben des Inhalts von Memo1 in das Druckerobjekt
    for i := 0 to minfo.Lines.Count - 1
      do Writeln(PrintText, minfo.Lines[i]);
    CloseFile(PrintText); //Schließen der Druckervariablen
  end;
end;

Macht sich gut, wenn man nur schnell mal einen Ausdruck von einem Text, einer Tabelle oder ähnliches benötigt. Ich drucke mir so meist die Struktur von Datenbanken aus, die natürlich zuvor in das Memo übertragen habe (siehe Anlage).

mfg
eddy