readme: draft

Author: NickVolynkin

Delphi/uData.dfm

@@ -5,7 +5,6 @@ object DataModule1: TDataModule1
   Width = 740
   PixelsPerInch = 192
   object mdLayouts: TdxMemData
-    Active = True
     Indexes = <>
     Persistent.Data = {
       5665728FC2F5285C8FFE3F02000000000000000D0007004C61796F7574001400
@@ -791,11 +790,11 @@ object DataModule1: TDataModule1
       5265663D22352220436F6E74656E743D2253797374656D2E496E743332222054
       7970653D2253797374656D2E5479706522202F3E0D0A20203C2F4F626A656374
       53746F726167653E0D0A3C2F587472615265706F7274734C61796F7574536572
-      69616C697A65723E0D0A010B0000005400610062006C0065005200650070006F
-      0072007400}
+      69616C697A65723E0D0A010C0000005400610062006C00650020005200650070
+      006F0072007400}
     SortOptions = []
-    Left = 408
-    Top = 112
+    Left = 416
+    Top = 104
     object mdLayoutsLayout: TBlobField
       FieldName = 'Layout'
     end

Delphi/uMainForm.dfm

@@ -11,6 +11,7 @@ object MainForm: TMainForm
   Font.Height = -12
   Font.Name = 'Segoe UI'
   Font.Style = []
+  OnCreate = FormCreate
   TextHeight = 15
   object dxLayoutControl1: TdxLayoutControl
     Left = 0

Delphi/uMainForm.pas

@@ -29,11 +29,14 @@   TMainForm = class(TForm)
     liShowDesigner: TdxLayoutItem;
     liViewReport: TdxLayoutItem;
     liGrid: TdxLayoutItem;
+    procedure FormCreate(Sender: TObject);
     procedure btnDesignClick(Sender: TObject);
     procedure btnPreviewClick(Sender: TObject);
     procedure btnNewClick(Sender: TObject);
     procedure dxReport1LayoutChanged(ASender: TdxReport);
   private
+    procedure LoadReportNameAndLayout;
+    procedure SaveReportNameAndLayout;
     { Private declarations }
   public
     { Public declarations }
@@ -49,41 +52,70 @@ implementation
 uses uData;
 
 
-procedure TMainForm.btnNewClick(Sender: TObject);
+procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  DataModule1.mdLayouts.Append
+  LoadReportNameAndLayout;
 end;
 
-procedure TMainForm.btnDesignClick(Sender: TObject);
+procedure TMainForm.LoadReportNameAndLayout();
 begin
   if (DataModule1.mdLayouts.RecordCount = 0) and not (DataModule1.mdLayouts.State = dsInsert)  then
   begin
     ShowMessage('The database is empty');
     Exit;
   end;
+  // Load the report name from the database
   dxReport1.ReportName := DataModule1.mdLayoutsName.AsString;
+  // Load the report layout from the database
   dxReport1.Layout.Assign(DataModule1.mdLayoutsLayout);
+end;
+
+procedure TMainForm.SaveReportNameAndLayout();
+begin
+  // Start editing the active dataset record
+  DataModule1.mdLayouts.Edit;
+  // Save the report name
+  DataModule1.mdLayoutsName.AsString := dxReport1.ReportName;
+  // Save the report layout
+  DataModule1.mdLayoutsLayout.Assign(dxReport1.Layout);
+  // Finish editing and write a modified record
+  DataModule1.mdLayouts.Post;
+end;
+
+
+procedure TMainForm.btnNewClick(Sender: TObject);
+begin
+  DataModule1.mdLayouts.Append
+end;
+
+procedure TMainForm.btnDesignClick(Sender: TObject);
+begin
+  if (dxReport1.ReportName = '') then
+  begin
+    ShowMessage('The report is not specified');
+    Exit;
+  end;
   dxReport1.ShowDesigner;
 end;
 
 procedure TMainForm.btnPreviewClick(Sender: TObject);
 begin
-  if (DataModule1.mdLayoutsName.AsString = '')  then
+  if (dxReport1.ReportName = '') then
   begin
     ShowMessage('The report is not specified');
     Exit;
   end;
-
-  dxReport1.ReportName := DataModule1.mdLayoutsName.AsString;
-  dxReport1.Layout.Assign(DataModule1.mdLayoutsLayout);
   dxReport1.ShowViewer;
 end;
 
+// Event that is called when a user saves a report layout in the Report Designer
 procedure TMainForm.dxReport1LayoutChanged(ASender: TdxReport);
 begin
   DataModule1.mdLayouts.Edit;
-  DataModule1.mdLayoutsLayout.Assign(dxReport1.Layout);
+  // Save the report name in the database
   DataModule1.mdLayoutsName.AsString := dxReport1.ReportName;
+  // Copy the report layout to the BLOB field
+  DataModule1.mdLayoutsLayout.Assign(dxReport1.Layout);
   DataModule1.mdLayouts.Post;
 end;