delphi: Migrate to SQLite and remove INI config file

- Use the SQLite database connection.
- Provide the sample Northwind database in the `nwind.db` file.
- Remove dependency on the INI file, hardcode most configuration values.
- Rename dashboard file to CountrySalesDashboard.

Author: NickVolynkin

Delphi/ConsoleDashboards.dpr

@@ -5,70 +5,40 @@ program ConsoleDashboards;
 {$R *.res}
 
 uses
-  System.SysUtils,
-  System.Classes,
-  System.IniFiles,
-  dxBackend,
-  dxBackend.Bundled,
-  dxBackend.ConnectionString.SQL,
-  dxDashboard;
+  System.SysUtils, System.Classes, dxBackend, dxBackend.Bundled,
+  dxBackend.ConnectionString.SQL, dxDashboard;
 
 procedure ExportDashboardToPdf;
 var
   AManager: TdxBackendDataConnectionManager;
   AConnection: TdxBackendDatabaseSQLConnection;
   ADashboard: TdxDashboard;
-
   AStream: TMemoryStream;
-
-  AIni: TIniFile;
-
-  AParamName: string;
-  AKeys: TStringList;
-  I: Integer;
 begin
   TdxBackend.Instance.Start; // Start the backend
 
   AManager := TdxBackendDataConnectionManager.Create(nil);
-  AIni := TIniFile.Create('..\PDFDashboardGenerator.ini');
   try
-    AConnection := TdxBackendDatabaseSQLConnection(AManager.DataConnections.
-      Add(TdxBackendDatabaseSQLConnection));
+    AConnection := TdxBackendDatabaseSQLConnection(AManager.DataConnections.Add(TdxBackendDatabaseSQLConnection));
 
-    AConnection.ClassName;
-    AConnection.DisplayName := AIni.ReadString('Connection', 'Name', '');
-    AConnection.ConnectionString :=
-      AIni.ReadString('Connection', 'ConnectionString', '');
+    // Set up SQLite database connection
+    AConnection.DisplayName := 'NWindConnectionString';
+    AConnection.ConnectionString := 'XpoProvider=SQLite; Data Source=..\nwind.db; Mode=ReadOnly';
     AConnection.Active := True;
 
     ADashboard := TdxDashboard.Create(nil);
     try
-      ADashboard.Layout.LoadFromFile(AIni.ReadString('Dashboard', 'LayoutFileName', ''));
-      ADashboard.Name := 'Dashboard';
+      ADashboard.Layout.LoadFromFile('CountrySalesDashboard.xml');
+      ADashboard.Name := 'Country Sales';
 
       ADashboard.LoadParametersFromDashboard;
-
-      AKeys := TStringList.Create;
-      AIni.ReadSection('Parameters', AKeys);
-      try
-        for I := 0 to AKeys.Count - 1 do
-        begin
-          AParamName := AKeys[I];
-
-          if ADashboard.Parameters.ParamByName[AParamName] <> nil then
-            ADashboard.Parameters
-              .ParamByName[AKeys[I]]
-              .Value := AIni.ReadString('Parameters', AParamName, '');
-        end;
-        ADashboard.ApplyParametersToState;
-      finally
-        AKeys.Free;
-      end;
+      ADashboard.Parameters['CountryDashboardParameter'].Value := 'USA';
+      ADashboard.ApplyParametersToState;
 
       AStream := TMemoryStream.Create;
       try
-        ADashboard.ExportTo(TdxDashboardExportFormat.PDF, AStream);//probably, we can add an overload
-        AStream.SaveToFile(AIni.ReadString('Dashboard', 'OutputFileName', ''))
+        ADashboard.ExportTo(TdxDashboardExportFormat.PDF, AStream);
+        AStream.SaveToFile('Sales_USA.pdf');
       finally
         AStream.Free;
       end;
@@ -77,14 +47,12 @@ begin
     end;
   finally
     AManager.Free;
-    AIni.Free;
   end;
 end;
 
 begin
   try
     ExportDashboardToPdf;
-    { TODO -oUser -cConsole Main : Insert code here }
   except
     on E: Exception do
       Writeln(E.ClassName, ': ', E.Message);

Delphi/ConsoleDashboards.res

@@ -1,28 +1,33 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Dashboard>
-  <Title Text="Dashboard" />
+<Dashboard RequestParameters="false">
+  <Title Text="Country Sales" />
   <DataSources>
     <SqlDataSource Name="SQL Data Source" ComponentName="sqlDataSource1">
-      <Connection Name="MS SQL Connection" FromAppConfig="true" />
-      <Query Type="CustomSqlQuery" Name="CustomSqlQuery">
-        <Parameter Name="CountryParameter" Type="DevExpress.DataAccess.Expression">(System.String)(?CountryDashboardParameter)</Parameter>
-        <Sql>select * from [Invoices] 
-where ([Invoices].[Country] = @CountryParameter)</Sql>
+      <Connection Name="NWindConnectionString" FromAppConfig="true" />
+      <Query Type="SelectQuery" Name="Invoices">
+        <Parameter Name="CountryFilter" Type="DevExpress.DataAccess.Expression">(System.String)(?CountryDashboardParameter )</Parameter>
+        <Tables>
+          <Table Name="Invoices" />
+        </Tables>
+        <Columns>
+          <AllColumns Table="Invoices" />
+        </Columns>
+        <Filter>[Invoices.Country] = ?CountryFilter</Filter>
       </Query>
       <ConnectionOptions CloseConnection="true" />
       <CalculatedFields>
-        <CalculatedField Name="Date" Expression="[OrderDate] " DataType="DateTime" DataMember="CustomSqlQuery" />
-        <CalculatedField Name="Price" Expression="[ExtendedPrice]" DataType="Double" DataMember="CustomSqlQuery" />
+        <CalculatedField Name="Price" Expression="ToDouble( [ExtendedPrice] ) " DataType="Auto" DataMember="Invoices" />
+        <CalculatedField Name="Calculated Field 1" Expression="ToDouble( [Invoices.ExtendedPrice] ) " DataType="Auto" />
       </CalculatedFields>
     </SqlDataSource>
   </DataSources>
   <Parameters>
     <Parameter Name="CountryDashboardParameter" Value="France" Visible="false" />
   </Parameters>
   <Items>
-    <Chart ComponentName="chartDashboardItem1" Name="Chart 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="CustomSqlQuery">
+    <Chart ComponentName="chartDashboardItem1" Name="Chart 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="Invoices">
       <DataItems>
-        <Dimension DataMember="Date" DateTimeGroupInterval="MonthYear" DefaultId="DataItem1" />
+        <Dimension DataMember="OrderDate" DateTimeGroupInterval="MonthYear" DefaultId="DataItem1" />
         <Measure DataMember="Price" DefaultId="DataItem0">
           <NumericFormat FormatType="Currency" />
         </Measure>
@@ -41,7 +46,7 @@ where ([Invoices].[Country] = @CountryParameter)</Sql>
         </Pane>
       </Panes>
     </Chart>
-    <Card ComponentName="cardDashboardItem1" Name="Card 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="CustomSqlQuery">
+    <Card ComponentName="cardDashboardItem1" Name="Card 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="Invoices">
       <DataItems>
         <Measure DataMember="ExtendedPrice" DefaultId="DataItem0" />
         <Dimension DataMember="CustomerName" DefaultId="DataItem1" />
@@ -65,7 +70,7 @@ where ([Invoices].[Country] = @CountryParameter)</Sql>
         </LayoutTemplate>
       </Card>
     </Card>
-    <Grid ComponentName="gridDashboardItem1" Name="Grid 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="CustomSqlQuery">
+    <Grid ComponentName="gridDashboardItem1" Name="Grid 1" ShowCaption="false" DataSource="sqlDataSource1" DataMember="Invoices">
       <DataItems>
         <Dimension DataMember="Address" DefaultId="DataItem0" />
         <Dimension DataMember="City" DefaultId="DataItem1" />