cpp-builder: Extract data components to a data module

Author: NickVolynkin

CPB/ReportFilter.cbproj

@@ -199,12 +199,20 @@ $(PostBuildEvent)]]></PostBuildEvent>
             <BuildOrder>1</BuildOrder>
             <PCH>true</PCH>
         </PCHCompile>
+        <CppCompile Include="uData.cpp">
+            <Form>DataModule1</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+            <DependentOn>uData.h</DependentOn>
+            <BuildOrder>4</BuildOrder>
+        </CppCompile>
         <CppCompile Include="uMainForm.cpp">
             <Form>MainForm</Form>
             <FormType>dfm</FormType>
             <DependentOn>uMainForm.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
+        <FormResources Include="uData.dfm"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

CPB/ReportFilter.cpp

@@ -3,8 +3,10 @@
 #include <vcl.h>
 #pragma hdrstop
 #include <tchar.h>
-//---------------------------------------------------------------------------
 USEFORM("uMainForm.cpp", MainForm);
+USEFORM("uData.cpp", DataModule1);
+
+//---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
 int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
 {
@@ -13,6 +15,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
 		Application->Initialize();
 		Application->MainFormOnTaskBar = true;
 		Application->Title = "DevExpress Example - Filter Data Records in a Report";
+		Application->CreateForm(__classid(TDataModule1), &DataModule1);
 		Application->CreateForm(__classid(TMainForm), &MainForm);
 		Application->Run();
 	}

CPB/uData.cpp

@@ -0,0 +1,22 @@
+//---------------------------------------------------------------------------
+
+
+#pragma hdrstop
+
+#include "uData.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma classgroup "Vcl.Controls.TControl"
+#pragma link "dxmdaset"
+#pragma link "cxClasses"
+#pragma link "dxBackend"
+#pragma link "dxBackend.ConnectionString.JSON"
+#pragma link "dxBackend.ConnectionString.JSON.DataSet"
+#pragma resource "*.dfm"
+TDataModule1 *DataModule1;
+//---------------------------------------------------------------------------
+__fastcall TDataModule1::TDataModule1(TComponent* Owner)
+	: TDataModule(Owner)
+{
+}
+//---------------------------------------------------------------------------

CPB/uData.dfm

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#ifndef uDataH
+#define uDataH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include "dxmdaset.hpp"
+#include <Data.DB.hpp>
+#include "cxClasses.hpp"
+#include "dxBackend.ConnectionString.JSON.DataSet.hpp"
+#include "dxBackend.ConnectionString.JSON.hpp"
+#include "dxBackend.hpp"
+//---------------------------------------------------------------------------
+class TDataModule1 : public TDataModule
+{
+__published:	// IDE-managed Components
+	TdxMemData *mdProducts;
+	TIntegerField *mdProductsProductID;
+	TWideStringField *mdProductsProductName;
+	TWideStringField *mdProductsQuantityPerUnit;
+	TSmallintField *mdProductsUnitsInStock;
+	TIntegerField *mdProductsCategoryID;
+	TWideStringField *mdProductsCategoryName;
+	TDataSource *dsProducts;
+	TdxBackendDataConnectionManager *dxReportDataConnectionManager;
+	TdxBackendDataSetJSONConnection *NWindMemDataConnection;
+	TdxBackendDataSetCollectionItem *NWindMemDataConnectionItem1;
+private:	// User declarations
+public:		// User declarations
+	__fastcall TDataModule1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TDataModule1 *DataModule1;
+//---------------------------------------------------------------------------
+#endif