UI 추가 및 데이타셋 추가

form/MainUnit.dfm

@@ -1,9 +1,9 @@
-object Form1: TForm1
+object frmMain: TfrmMain
   Left = 0
   Top = 0
   Caption = #47700#51064#54268
-  ClientHeight = 441
-  ClientWidth = 624
+  ClientHeight = 601
+  ClientWidth = 752
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -11,4 +11,145 @@ object Form1: TForm1
   Font.Name = 'Segoe UI'
   Font.Style = []
   TextHeight = 15
+  object lcMain: TdxLayoutControl
+    Left = 0
+    Top = 0
+    Width = 752
+    Height = 601
+    Align = alClient
+    TabOrder = 0
+    ExplicitLeft = 104
+    ExplicitTop = 72
+    ExplicitWidth = 300
+    ExplicitHeight = 250
+    object btnAdd: TcxButton
+      Left = 405
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnAdd'
+      TabOrder = 0
+    end
+    object btnSave: TcxButton
+      Left = 487
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnSave'
+      TabOrder = 1
+    end
+    object btnDelete: TcxButton
+      Left = 569
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnDelete'
+      TabOrder = 2
+    end
+    object btnCancel: TcxButton
+      Left = 651
+      Top = 33
+      Width = 75
+      Height = 35
+      Caption = 'btnCancel'
+      TabOrder = 3
+    end
+    object grdEmployee: TcxGrid
+      Left = 26
+      Top = 152
+      Width = 700
+      Height = 200
+      TabOrder = 4
+      object dbtvEmployee: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsView.GroupByBox = False
+      end
+      object grdEmployeeLevel1: TcxGridLevel
+        GridView = dbtvEmployee
+      end
+    end
+    object lgRoot: TdxLayoutGroup
+      AlignHorz = ahParentManaged
+      AlignVert = avParentManaged
+      Hidden = True
+      ItemIndex = 2
+      ShowBorder = False
+      Index = -1
+    end
+    object lgToolbar: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      ItemIndex = 3
+      LayoutDirection = ldHorizontal
+      Index = 0
+    end
+    object lgInput: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      Index = 1
+    end
+    object lgGrid: TdxLayoutGroup
+      Parent = lgRoot
+      CaptionOptions.Text = 'New Group'
+      Index = 2
+    end
+    object liAdd: TdxLayoutItem
+      Parent = lgToolbar
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton1'
+      CaptionOptions.Visible = False
+      Control = btnAdd
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+    object liSave: TdxLayoutItem
+      Parent = lgToolbar
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton2'
+      CaptionOptions.Visible = False
+      Control = btnSave
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+    object liDelete: TdxLayoutItem
+      Parent = lgToolbar
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton3'
+      CaptionOptions.Visible = False
+      Control = btnDelete
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 2
+    end
+    object liCancel: TdxLayoutItem
+      Parent = lgToolbar
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxButton4'
+      CaptionOptions.Visible = False
+      Control = btnCancel
+      ControlOptions.OriginalHeight = 35
+      ControlOptions.OriginalWidth = 75
+      ControlOptions.ShowBorder = False
+      Index = 3
+    end
+    object liGrid: TdxLayoutItem
+      Parent = lgGrid
+      CaptionOptions.Text = 'cxGrid2'
+      CaptionOptions.Visible = False
+      Control = grdEmployee
+      ControlOptions.OriginalHeight = 200
+      ControlOptions.OriginalWidth = 250
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+  end
 end

form/MainUnit.pas

@@ -4,10 +4,33 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, dxUIAClasses, cxControls,
+  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinWXI,
+  dxLayoutControlAdapters, dxLayoutContainer, Vcl.Menus, cxStyles, cxCustomData,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges,
+  dxScrollbarAnnotations, Data.DB, cxDBData, cxGridLevel, cxClasses,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, Vcl.StdCtrls, cxButtons, dxLayoutControl;
 
 type
-  TForm1 = class(TForm)
+  TfrmMain = class(TForm)
+    lgRoot: TdxLayoutGroup;
+    lcMain: TdxLayoutControl;
+    lgToolbar: TdxLayoutGroup;
+    lgInput: TdxLayoutGroup;
+    lgGrid: TdxLayoutGroup;
+    btnAdd: TcxButton;
+    liAdd: TdxLayoutItem;
+    btnSave: TcxButton;
+    liSave: TdxLayoutItem;
+    btnDelete: TcxButton;
+    liDelete: TdxLayoutItem;
+    btnCancel: TcxButton;
+    liCancel: TdxLayoutItem;
+    dbtvEmployee: TcxGridDBTableView;
+    grdEmployeeLevel1: TcxGridLevel;
+    grdEmployee: TcxGrid;
+    liGrid: TdxLayoutItem;
   private
     { Private declarations }
   public
@@ -15,7 +38,7 @@ type
   end;
 
 var
-  Form1: TForm1;
+  frmMain: TfrmMain;
 
 implementation
 

form/데이타셋데모.dproj.local

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.571,D:\Embarcadero\projects\Project1.dproj=D:\Embarcadero\projects\스터디\2024.12.01.dataset_demo\soruce\데이타셋데모.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.855,D:\Embarcadero\projects\Unit1.pas=D:\Embarcadero\projects\스터디\2024.12.01.dataset_demo\soruce\form\MainUnit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.354,=D:\Embarcadero\projects\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.855,D:\Embarcadero\projects\Unit1.dfm=D:\Embarcadero\projects\스터디\2024.12.01.dataset_demo\soruce\form\MainUnit.dfm</Transaction>
+  </Transactions>
+</BorlandProject>