데이타셋 데모

1. Tag를 활용한 리펙토링 2. Interface를 활용한 DataSet State 분리
2024-11-19 10:52:51 +09:00
commit de67a00e75
11 changed files with 2287 additions and 0 deletions
@@ -0,0 +1,114 @@
+unit MainUnit;
+
+interface
+
+uses
+  { Delphi }
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Actions, Vcl.ActnList, System.ImageList, Vcl.ImgList,
+  Vcl.Menus, Vcl.StdCtrls, Data.DB,
+  { DevExpress }
+  dxForms, cxGraphics, dxUIAClasses, cxControls, dxLayoutControlAdapters,  dxLayoutContainer,
+  cxButtons, cxClasses, dxLayoutControl, cxStyles, cxCustomData, cxFilter, cxData,
+  cxDataStorage, cxEdit, cxNavigator, dxDateRanges, dxScrollbarAnnotations, cxDBData,
+  cxGridLevel, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, dxmdaset, dxLayoutcxEditAdapters, cxTextEdit, cxCurrencyEdit, cxContainer,
+  cxImageList, cxMaskEdit, cxSpinEdit, cxDBEdit, dxCore, dxStatusBar,
+  { DevExpress Skin }
+  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinWXI, dxLayoutLookAndFeels, dxSkinsForm,
+  { Custom }
+  DataUnit;
+
+type
+  TfrmMain = class(TdxForm, IDataStateNotifier)
+    lgRoot: TdxLayoutGroup;
+    lcMain: TdxLayoutControl;
+    lgToolbar: TdxLayoutGroup;
+    lgInput: TdxLayoutGroup;
+    lgGrid: TdxLayoutGroup;
+    btnAdd: TcxButton;
+    liAdd: TdxLayoutItem;
+    btnEdit: TcxButton;
+    liEdit: TdxLayoutItem;
+    btnDelete: TcxButton;
+    liDelete: TdxLayoutItem;
+    btnPost: TcxButton;
+    liSave: TdxLayoutItem;
+    btnCancel: TcxButton;
+    liCancel: TdxLayoutItem;
+    dbtvEmployee: TcxGridDBTableView;
+    grdEmployeeLevel1: TcxGridLevel;
+    grdEmployee: TcxGrid;
+    liGird: TdxLayoutItem;
+    dbtvEmployeeRecId: TcxGridDBColumn;
+    dbtvEmployeename: TcxGridDBColumn;
+    dbtvEmployeeage: TcxGridDBColumn;
+    dbtvEmployeeposition: TcxGridDBColumn;
+    dbtvEmployeesalary: TcxGridDBColumn;
+    dbtvEmployeeaddress: TcxGridDBColumn;
+    dbteName: TcxDBTextEdit;
+    dxLayoutItem2: TdxLayoutItem;
+    dbseAge: TcxDBSpinEdit;
+    dxLayoutItem3: TdxLayoutItem;
+    dbtePosition: TcxDBTextEdit;
+    dxLayoutItem4: TdxLayoutItem;
+    dbseSalary: TcxDBSpinEdit;
+    dxLayoutItem5: TdxLayoutItem;
+    dbteAddress: TcxDBTextEdit;
+    dxLayoutItem6: TdxLayoutItem;
+    dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup;
+    acToolbar: TActionList;
+    acAdd: TAction;
+    acEdit: TAction;
+    acDelete: TAction;
+    acSave: TAction;
+    acCancel: TAction;
+    scTheme: TdxSkinController;
+    dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList;
+    dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
+    sbMain: TdxStatusBar;
+    procedure DataSetCRUD(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    procedure NotifyDataSetStateChange(const AState: TDataSetState);
+  public
+    { Public declarations }
+  end;
+
+var
+  frmMain: TfrmMain;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmMain.DataSetCRUD(Sender: TObject);
+// action에 Tag로 하나의 함수로 리펙토링
+begin
+  var Tag:= TAction(Sender).Tag;
+  Case Tag of
+    1:                             // 추가
+      begin
+        dmData.mdEmployee.Append;
+        dbteName.SetFocus;
+      end;
+    2: dmData.mdEmployee.Edit;     // 수정
+    3: dmData.mdEmployee.Delete;   // 삭제
+    4: dmData.mdEmployee.Post;     // 저장
+    5: dmData.mdEmployee.Cancel;   // 취소
+  End;
+end;
+
+procedure TfrmMain.FormCreate(Sender: TObject);
+begin
+  // DataSet State를 DataUnit으로 분리(유닛간 결합도를 분리) 리펙토링
+  if Assigned(dmData) then
+    dmData.SetNotifier(Self);
+end;
+
+procedure TfrmMain.NotifyDataSetStateChange(const AState: TDataSetState);
+begin
+  acSave.Enabled:= Not(AState in [dsBrowse]);
+end;
+
+end.