draft

Author: NickVolynkin

Delphi/StoreReportInDB.res

@@ -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
@@ -44,6 +45,8 @@ object MainForm: TMainForm
       Height = 133
       TabOrder = 3
       object gvLayouts: TcxGridDBTableView
+        OnEditValueChanged = gvLayoutsEditValueChanged
+        OnFocusedItemChanged = gvLayoutsFocusedItemChanged
         DataController.DataSource = DataModule1.dsLayouts
         OptionsData.CancelOnExit = False
         OptionsData.Deleting = False

Delphi/example.dat

@@ -9,7 +9,8 @@ interface
   cxStyles, Data.DB, cxDBData, dxLayoutControlAdapters,
   dxLayoutContainer, dxReport, cxGridLevel, cxGridCustomTableView,
   cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
-  cxButtons, dxLayoutControl;
+  cxButtons, dxLayoutControl, cxCustomData, cxFilter, cxData, cxDataStorage,
+  cxEdit, cxNavigator, dxDateRanges, dxScrollbarAnnotations, uData;
 
 type
   TMainForm = class(TForm)
@@ -29,11 +30,18 @@   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);
+    procedure gvLayoutsEditValueChanged(Sender: TcxCustomGridTableView; AItem:
+        TcxCustomGridTableItem);
+    procedure gvLayoutsFocusedItemChanged(Sender: TcxCustomGridTableView;
+        APrevFocusedItem, AFocusedItem: TcxCustomGridTableItem);
   private
+    procedure LoadReportNameAndLayout;
+    procedure SaveReportNameAndLayout;
     { Private declarations }
   public
     { Public declarations }
@@ -46,45 +54,85 @@ implementation
 
 {$R *.dfm}
 
-uses uData;
+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;
+
+// Handle the OnFormCreate event called when the application starts
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  LoadReportNameAndLayout;
+end;
+
+// Handle the OnLayoutChanged event called when a user saves a report layout in the Report Designer
+procedure TMainForm.dxReport1LayoutChanged(ASender: TdxReport);
+begin
+  SaveReportNameAndLayout;
+end;
+
+// Handle the OnFocusedItemChanged event called when a user selects a different row
+// in the Grid Table View
+procedure TMainForm.gvLayoutsFocusedItemChanged(Sender: TcxCustomGridTableView;
+    APrevFocusedItem, AFocusedItem: TcxCustomGridTableItem);
+begin
+  LoadReportNameAndLayout;
+end;
 
+// Handle the OnEditValueChanged event called when a user edits the layout name
+// in the Grid Table View
+procedure TMainForm.gvLayoutsEditValueChanged(Sender: TcxCustomGridTableView;
+    AItem: TcxCustomGridTableItem);
+begin
+  LoadReportNameAndLayout;
+end;
 
+// To create a new report layout, create a new dataset record
 procedure TMainForm.btnNewClick(Sender: TObject);
 begin
   DataModule1.mdLayouts.Append
 end;
 
 procedure TMainForm.btnDesignClick(Sender: TObject);
 begin
-  if (DataModule1.mdLayouts.RecordCount = 0) and not (DataModule1.mdLayouts.State = dsInsert)  then
+  if (dxReport1.ReportName = '') then
   begin
-    ShowMessage('The database is empty');
+    ShowMessage('The report is not specified');
     Exit;
   end;
-  dxReport1.ReportName := DataModule1.mdLayoutsName.AsString;
-  dxReport1.Layout.Assign(DataModule1.mdLayoutsLayout);
   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;
 
-procedure TMainForm.dxReport1LayoutChanged(ASender: TdxReport);
-begin
-  DataModule1.mdLayouts.Edit;
-  DataModule1.mdLayoutsLayout.Assign(dxReport1.Layout);
-  DataModule1.mdLayoutsName.AsString := dxReport1.ReportName;
-  DataModule1.mdLayouts.Post;
-end;
+
 
 end.