Make sure the connection to SQL demo database is opened

Author: davidberneda

demos/FireMonkey/Database/Master_Detail_FireDAC/Customer_Orders.dfm

@@ -1,11 +1,12 @@
 object SampleData: TSampleData
+  OnCreate = DataModuleCreate
   Height = 337
   Width = 267
   object Sqlite_demoConnection: TFDConnection
     Params.Strings = (
       'ConnectionDef=SQLite_Demo')
     LoginPrompt = False
-    Left = 47
+    Left = 111
     Top = 22
   end
   object CustomersTable: TFDQuery
@@ -14,7 +15,7 @@ object SampleData: TSampleData
     FetchOptions.RecordCountMode = cmTotal
     SQL.Strings = (
       'SELECT * FROM Customers')
-    Left = 47
+    Left = 111
     Top = 85
   end
   object OrdersTable: TFDQuery
@@ -24,7 +25,7 @@ object SampleData: TSampleData
     SQL.Strings = (
       'SELECT * FROM Orders'
       'where CustomerID = :Cust')
-    Left = 49
+    Left = 105
     Top = 147
     ParamData = <
       item
@@ -33,7 +34,7 @@ object SampleData: TSampleData
       end>
   end
   object FDStanStorageBinLink1: TFDStanStorageBinLink
-    Left = 120
+    Left = 104
     Top = 216
   end
 end

demos/FireMonkey/Database/Master_Detail_FireDAC/Customer_Orders.pas

@@ -17,6 +17,7 @@   TSampleData = class(TDataModule)
     CustomersTable: TFDQuery;
     OrdersTable: TFDQuery;
     FDStanStorageBinLink1: TFDStanStorageBinLink;
+    procedure DataModuleCreate(Sender: TObject);
   private
     { Private declarations }
 
@@ -36,6 +37,11 @@ implementation
 
 {$R *.dfm}
 
+procedure TSampleData.DataModuleCreate(Sender: TObject);
+begin
+  Sqlite_demoConnection.Open;
+end;
+
 function TSampleData.OrdersOfCustomer(const ARecNo:Integer):TDataSet;
 
   // Return the CustomerID for row: ARow