patch

Author: NickVolynkin

Delphi/StoreReportInDB.dpr

@@ -12,7 +12,7 @@ begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   Application.Title := 'DevExpress Example: Store Report in a Database';
-  Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TDataModule1, DataModule1);
+  Application.CreateForm(TMainForm, MainForm);
   Application.Run;
 end.

Delphi/uMainForm.pas

@@ -111,16 +111,11 @@ procedure TMainForm.gvLayoutsEditValueChanged(Sender: TcxCustomGridTableView;
 // To create a new report layout, create a new dataset record
 procedure TMainForm.btnNewClick(Sender: TObject);
 begin
-  DataModule1.mdLayouts.Append
+  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;