Example using direct usage of TDataSelect class (non-summary queries)

Steema · Aug 3, 2016 · 7bf8dab · 7bf8dab
1 parent 9eef8cf
commit 7bf8dab
Show file tree

Hide file tree

Showing 5 changed files with 1,515 additions and 0 deletions.
diff --git a/demos/delphi/vcl/Query/Select_Queries/TeeBI_Select_Queries.dpr b/demos/delphi/vcl/Query/Select_Queries/TeeBI_Select_Queries.dpr
@@ -0,0 +1,30 @@
+program TeeBI_Select_Queries;
+
+{.$DEFINE FASTMM}
+{.$DEFINE LEAKCHECK}
+
+uses
+  {$IFDEF FASTMM}
+  FastMM4,
+  {$ENDIF }
+  {$IFDEF LEAKCHECK}
+  LeakCheck,
+  {$ENDIF }
+  Vcl.Forms,
+  Unit24 in 'Unit24.pas' {Form24},
+  BI.Tests.SelectSamples in '..\..\..\..\..\tests\BI.Tests.SelectSamples.pas',
+  BI.Tests.SummarySamples in '..\..\..\..\..\tests\BI.Tests.SummarySamples.pas';
+
+{$R *.res}
+
+begin
+  {$IFOPT D+}
+  ReportMemoryLeaksOnShutdown:=True;
+  {$ENDIF}
+  //NeverSleepOnMMThreadContention:=True;
+
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TForm24, Form24);
+  Application.Run;
+end.