MyBase | Daten zur Tabelle hinzufügen und in der Tabelle suchen

[Luki206]

Ohh Danke, danke, danke :D

Ich glaub jetzt kapier ichs :-D

[MrSpock]

Zitat:

Zitat von Luki206 (Beitrag 1232644)

Also wenn ich das richtig gelesen und verstanden habe, geht es in dem Tutorial nur um das erstellen einer Tabelle zur Laufzeit oder?

Habe mich, glaub ich, wieder zu unverständlich ausgedrückt :DD

Ich möchte in die Tabelle zur Laufzeit eine OnClick Action einbinden die Daten in diese Tabelle einfügt ;)

Und dann ist da die Sache mit dem 'in der Tabelle suchen' :)

Danke

Luki :)

Der Artikel enthält zwei Methoden, eine Tabelle zu erzeugen. Am Anfang wird erklärt wie man über den Objektinspektor Felder zu einem Dataset hinzufügt und den Typ auswählt und dann über das Kontextmenue die Tabelle erzeugt. Die zweite Methode erzeugt die Tabellenstruktur zur Laufzeit. Wähle also die erste und dann kannst du die Datei über ein TDatasource Komponente mit einem DBGrid verbinden. Wichtig ist noch, am Ende die Daten wieder zu sichern. Das passiert hier nämlich nicht automatisch.

Suchen geht dann über Locate.

[Luki206]

Nur habe ich jetzt noch ein Problem, kann ich die CDS Tabelle in eine Excel Tabelle speichern oder die Tabelle ausdrucken?
Ich habe schon wieder nichts gefunden.. Langsam denk ich ich bin zu dumm zu googlen..

Danke
Luki

[Sir Rufo]

Da ein ClientDataSet auch nur ein DataSet ist, solltest du nach "DataSet Export Excel" oder "DataSet Drucken".

Niemand kommt auf die Idee nach einem "Jona Gold Kuchen" zu suchen, sonder nach "Apfel Kuchen" ;)

[MrSpock]

Zum Drucken einer Datenmenge würde ich einen Reportgenerator benutzen. Export nach Excel wird (meine ich) von einer TClientDataset Komponente nicht direkt unterstützt und müsste ggf. "händisch" programmiert werden.

[Luki206]

Bitte nicht denken dass ich zu faul bin zu suchen, aber ich finde wirklich nichts wenn ich Google...
Wenn ich google bekomm ich 50 verschiedene Versionen.

@MrSpock: Wie würde ich das anstellen wenn ich einen Reportgenerator beutzen würde, weil dazu hatte ich auch nichts gefunden?

Danke
Luki :)

[MrSpock]

Das kommt darauf an, welche Delphi Version du hast und welcher Reportgenerator da mitgeliefert wird. Ich nutze FastReport (als Kaufkomponente) und habe früher QuickReport und in einem Bericht auch mal Rave Report benutzt. Welchen hast du?

P.S.: Hab gerade gesehen, dass du XE5 Starter hast. Laut Feature Matrix ist das "FastReport VCL 4 RAD Edition reporting tool" nicht dabei. :-(

[Luki206]

Gäbe es dann noch eine andere Möglichkeit die Daten von CDS in eine Excel Tabelle zuspeichern, wenn ja könnte man das auch mit Word machen? Also dass es dann in Word so aussieht:

Eintrag 24.10.13 # Name: # Vorname: # Adresse:

Ginge etwas so in der Art?

:)

[MrSpock]

Fastreport kann auch nach Excel exportieren. Die günstigste Version kosten 79 US$. Aber wie gesagt, du kannst es auch "händisch" machen, z.B. so ähnlich wie:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  LCID : Integer;
begin
   LCID := LOCALE_USER_DEFAULT;

   try
      ExcelApplication1.Visible[LCID] := True;
      ExcelApplication1.Workbooks.Open('C:\Lokal\ClientDSExcel.xls',
        EmptyParam, // UpdateLinks: OleVariant
        EmptyParam, // ReadOnly: OleVariant
        EmptyParam, // Format: OleVariant
        EmptyParam, // Password: OleVariant
        EmptyParam, // WriteResPassword: OleVariant
        EmptyParam, // IgnoreReadOnlyRecommended: OleVariant
        EmptyParam, // Orign: OleVariant
        EmptyParam, // Delimiter: OleVariant
        EmptyParam, // Editable: OleVariant
        EmptyParam, // Notify: OleVariant
        EmptyParam, // Converter: OleVariant
        EmptyParam, // AddToMru: OleVariant
        EmptyParam, // Local: OleVariant
        EmptyParam, // CorruptLoad: OleVariant
        LCID);
      ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveSheet as _Worksheet);
      ExcelApplication1.Range['A1','A1'].Select;
      ExcelApplication1.ActiveCell.Value2  := ClientDataSet1ID.Value;
      ExcelApplication1.Range['B1','B1'].Select;
      ExcelApplication1.ActiveCell.Value2  := ClientDataSet1Name.Value;
   except

   end;
end;

[Furtbichler]

Geht das nicht auch mit ADO?