vcl-reports-store-layout-template-database/CPB/uData.cpp at 25.2.3+ · DevExpress-Examples/vcl-reports-store-layout-template-database · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
//---------------------------------------------------------------------------


#pragma hdrstop

#include "uData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "Vcl.Controls.TControl"
#pragma link "dxmdaset"
#pragma link "cxClasses"
#pragma link "cxLookAndFeels"
#pragma link "dxCore"
#pragma link "dxSkinsForm"
#pragma link "dxBackend"

#if defined(_WIN64)
  #pragma link "dxBackend.ConnectionString.SQL.O"
#else
  #pragma link "dxBackend.ConnectionString.SQL.OBJ"
#endif

#pragma resource "*.dfm"
TDataModule1 *DataModule1;
//---------------------------------------------------------------------------
const String DataFileName = "data.dat";


__fastcall TDataModule1::TDataModule1(TComponent* Owner)
	: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDataModule1::DataModuleCreate(TObject *Sender)
{
    if (FileExists(DataFileName))
		mdLayouts->LoadFromBinaryFile(DataFileName);
}
//---------------------------------------------------------------------------

void __fastcall TDataModule1::DataModuleDestroy(TObject *Sender)
{
    if (mdLayouts->RecordCount > 0)
        mdLayouts->SaveToBinaryFile(DataFileName);
}
//---------------------------------------------------------------------------