Add files via upload

Author: CrystalNet-Tech2

Demos/Odbc/CSV/TOdbcDataReader/Main/DataReader.dpr

@@ -0,0 +1,19 @@
+program DataReader;
+
+uses
+  Forms,
+  fDataReader in 'fDataReader.pas' {frmDataReader},
+  fODBCMainCompBase in '..\..\fODBCMainCompBase.pas' {frmODBCMainCompBase},
+  ADONetUtils in '..\..\..\..\Utils\ADONetUtils.pas',
+  uDatSUtils in '..\..\..\..\VirtualTables\uDatSUtils.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmDataReader, frmDataReader);
+  Application.CreateForm(TfrmODBCMainCompBase, frmODBCMainCompBase);
+  Application.Run;
+end.
+

Demos/Odbc/CSV/TOdbcDataReader/Main/DataReader.dproj

@@ -0,0 +1,38 @@
+inherited frmDataReader: TfrmDataReader
+  Caption = 'Data Reader'
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited pnlTitle: TPanel
+    inherited lblTitle: TLabel
+      Width = 131
+      Caption = 'Data Reader'
+      ExplicitWidth = 131
+    end
+  end
+  inherited pnlMain: TPanel
+    inherited pnl1: TPanel
+      object mmoConsole: TMemo
+        Left = -5
+        Top = 0
+        Width = 591
+        Height = 293
+        Align = alCustom
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -13
+        Font.Name = 'Courier New'
+        Font.Style = []
+        ParentFont = False
+        ScrollBars = ssBoth
+        TabOrder = 0
+      end
+    end
+  end
+  object OdbcDataReader1: TOdbcDataReader
+    Connection = OdbcConnection1
+    Parameters = <>
+    Left = 328
+    Top = 312
+  end
+end

Demos/Odbc/CSV/TOdbcDataReader/Main/fDataReader.dfm

@@ -0,0 +1,82 @@
+unit fDataReader;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics,
+  Controls, Forms, Dialogs, fODBCMainCompBase,
+  CNClrLib.ADONet.Enums, CNClrLib.ADONet.Error, CNClrLib.ADONet.EventArgs,
+  CNClrLib.ADONet.OdbcEventArgs, CNClrLib.ADONet.Client, CNClrLib.ADONet.Odbc,
+  StdCtrls, DB, Buttons, ExtCtrls;
+
+type
+  TfrmDataReader = class(TfrmODBCMainCompBase)
+    mmoConsole: TMemo;
+    OdbcDataReader1: TOdbcDataReader;
+    procedure btnConnectClick(Sender: TObject);
+  public
+    { Public declarations }
+  end;
+
+var
+  frmDataReader: TfrmDataReader;
+
+implementation
+
+{$R *.dfm}
+
+uses uDatSUtils, CNClrLib.ADONetWrapper;
+
+procedure PrintHeader(Reader: TOdbcDataReader; AConsole: TStrings;
+  const ALabel: String = ''; AWithState: Boolean = False);
+var
+  i: Integer;
+  s: String;
+begin
+  if ALabel <> '' then
+    AConsole.Add(ALabel);
+  with Reader do
+  begin
+    s := '';
+    for i := 0 to VisibleFieldCount - 1 do
+      s := s + '      '  + GetName(i);
+    AConsole.Add(s);
+  end;
+end;
+
+procedure PrintRow(Reader: TOdbcDataReader; AConsole: TStrings);
+var
+  i: Integer;
+  s: String;
+begin
+  with Reader do
+  begin
+    s := '';
+    for i := 0 to VisibleFieldCount - 1 do
+      s := s + '      ' + VarToWideStr(GetValue(i));
+    AConsole.Add(s);
+  end;
+end;
+
+procedure TfrmDataReader.btnConnectClick(Sender: TObject);
+var
+  i: Integer;
+  newRow: _DataRow;
+begin
+  inherited;
+  // Setup data read and forward only read data from the database
+  OdbcDataReader1.CommandText.Text := 'select * from Customers.csv';
+  OdbcDataReader1.Open;
+  PrintHeader(OdbcDataReader1, mmoConsole.Lines, 'Fetched rows ----------------');
+
+  while OdbcDataReader1.Read do
+    PrintRow(OdbcDataReader1, mmoConsole.Lines);
+
+  OdbcDataReader1.Close;
+end;
+
+end.
+
+
+
+

Demos/Odbc/CSV/TOdbcDataReader/Main/fDataReader.pas

@@ -0,0 +1,19 @@
+program Filter;
+
+uses
+  Forms,
+  fMainQueryBase in '..\fMainQueryBase.pas' {frmMainQueryBase},
+  fFilter in 'fFilter.pas' {frmFilter},
+  fODBCMainCompBase in '..\..\fODBCMainCompBase.pas' {frmODBCMainCompBase},
+  ADONetUtils in '..\..\..\..\Utils\ADONetUtils.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmFilter, frmFilter);
+  Application.CreateForm(TfrmMainQueryBase, frmMainQueryBase);
+  Application.CreateForm(TfrmODBCMainCompBase, frmODBCMainCompBase);
+  Application.Run;
+end.