근무형태 수동과 자동 예제 추가

source/MainUnit.dfm

@@ -63,10 +63,10 @@ object frmMain: TfrmMain
     end
     object grdEmployee: TcxGrid
       Left = 12
-      Top = 249
+      Top = 286
       Width = 792
-      Height = 404
+      Height = 367
-      TabOrder = 11
+      TabOrder = 12
       object dbtvEmployee: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
@@ -118,7 +118,10 @@ object frmMain: TfrmMain
         object dbtvEmployeeColumn1: TcxGridDBColumn
           Caption = #44540#47924#54805#53468
           DataBinding.FieldName = 'worktype'
+          Visible = False
           HeaderAlignmentHorz = taCenter
+          MinWidth = 0
+          Width = 64
         end
         object dbtvEmployeeaddress: TcxGridDBColumn
           Caption = #51452#49548
@@ -140,37 +143,25 @@ object frmMain: TfrmMain
       Style.TransparentBorder = False
       TabOrder = 5
       Height = 27
-      Width = 350
+      Width = 379
     end
     object dbseAge: TcxDBSpinEdit
-      Left = 441
+      Left = 55
-      Top = 93
+      Top = 127
       AutoSize = False
       DataBinding.DataField = 'age'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
       TabOrder = 6
-      Height = 27
-      Width = 349
-    end
-    object dbtePosition: TcxDBTextEdit
-      Left = 55
-      Top = 127
-      AutoSize = False
-      DataBinding.DataField = 'position'
-      DataBinding.DataSource = dmData.dsEmployee
-      Style.HotTrack = False
-      Style.TransparentBorder = False
-      TabOrder = 7
       Height = 30
       Width = 379
     end
-    object dbseSalary: TcxDBSpinEdit
+    object dbtePosition: TcxDBTextEdit
       Left = 55
       Top = 164
       AutoSize = False
-      DataBinding.DataField = 'salary'
+      DataBinding.DataField = 'position'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
@@ -178,26 +169,38 @@ object frmMain: TfrmMain
       Height = 30
       Width = 379
     end
-    object dbteAddress: TcxDBTextEdit
+    object dbseSalary: TcxDBSpinEdit
       Left = 55
       Top = 201
+      AutoSize = False
+      DataBinding.DataField = 'salary'
+      DataBinding.DataSource = dmData.dsEmployee
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 9
+      Height = 30
+      Width = 379
+    end
+    object dbteAddress: TcxDBTextEdit
+      Left = 55
+      Top = 238
       DataBinding.DataField = 'address'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
-      TabOrder = 10
+      TabOrder = 11
       Width = 735
     end
-    object cxRadioGroup1: TcxRadioGroup
+    object rgWorkType: TcxRadioGroup
       Left = 441
-      Top = 127
+      Top = 164
-      Caption = #44540#47924#54805#53468
+      Caption = #44540#47924#54805#53468' ('#49688#46041')'
       ParentBackground = False
       ParentColor = False
       Properties.Items = <>
       Style.Color = 16053492
       Style.TransparentBorder = False
-      TabOrder = 9
+      TabOrder = 10
       Height = 67
       Width = 349
       object rbWorkType1: TcxRadioButton
@@ -228,6 +231,34 @@ object frmMain: TfrmMain
         Transparent = True
       end
     end
+    object dbrgWorkType: TcxDBRadioGroup
+      Left = 441
+      Top = 93
+      Caption = #44540#47924#54805#53468' ('#51088#46041'-DB'#50672#46041')'
+      DataBinding.DataField = 'worktype'
+      DataBinding.DataSource = dmData.dsEmployee
+      ParentBackground = False
+      ParentColor = False
+      Properties.Columns = 3
+      Properties.Items = <
+        item
+          Caption = #49888#51077
+          Value = 0
+        end
+        item
+          Caption = #44540#49549#51088
+          Value = 1
+        end
+        item
+          Caption = #53748#49324#51088
+          Value = 2
+        end>
+      Style.Color = 16053492
+      Style.TransparentBorder = False
+      TabOrder = 7
+      Height = 64
+      Width = 349
+    end
     object lgRoot: TdxLayoutGroup
       AlignHorz = ahClient
       AlignVert = avClient
@@ -248,7 +279,6 @@ object frmMain: TfrmMain
     object lgInput: TdxLayoutGroup
       Parent = lgRoot
       CaptionOptions.Text = #52628#44032' / '#54200#51665
-      ItemIndex = 1
       Index = 1
     end
     object lgGrid: TdxLayoutGroup
@@ -328,7 +358,7 @@ object frmMain: TfrmMain
       Index = 0
     end
     object dxLayoutItem2: TdxLayoutItem
-      Parent = dxLayoutAutoCreatedGroup1
+      Parent = dxLayoutAutoCreatedGroup4
       AlignHorz = ahClient
       CaptionOptions.Text = #51060#47492
       Control = dbteName
@@ -338,8 +368,8 @@ object frmMain: TfrmMain
       Index = 0
     end
     object dxLayoutItem3: TdxLayoutItem
-      Parent = dxLayoutAutoCreatedGroup1
+      Parent = dxLayoutAutoCreatedGroup4
-      AlignHorz = ahClient
+      AlignVert = avClient
       CaptionOptions.Text = #45208#51060
       Control = dbseAge
       ControlOptions.OriginalHeight = 27
@@ -388,7 +418,7 @@ object frmMain: TfrmMain
       AlignHorz = ahRight
       CaptionOptions.Text = 'cxRadioGroup1'
       CaptionOptions.Visible = False
-      Control = cxRadioGroup1
+      Control = rgWorkType
       ControlOptions.AutoColor = True
       ControlOptions.OriginalHeight = 67
       ControlOptions.OriginalWidth = 349
@@ -405,6 +435,23 @@ object frmMain: TfrmMain
       AlignHorz = ahClient
       Index = 0
     end
+    object dxLayoutItem7: TdxLayoutItem
+      Parent = dxLayoutAutoCreatedGroup1
+      AlignVert = avBottom
+      CaptionOptions.Text = 'cxDBRadioGroup1'
+      CaptionOptions.Visible = False
+      Control = dbrgWorkType
+      ControlOptions.AutoColor = True
+      ControlOptions.OriginalHeight = 64
+      ControlOptions.OriginalWidth = 349
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+    object dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup
+      Parent = dxLayoutAutoCreatedGroup1
+      AlignHorz = ahClient
+      Index = 0
+    end
   end
   object sbMain: TdxStatusBar
     Left = 0

source/MainUnit.pas

@@ -68,13 +68,16 @@ type
     dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
     sbMain: TdxStatusBar;
     dbtvEmployeeColumn1: TcxGridDBColumn;
-    cxRadioGroup1: TcxRadioGroup;
+    rgWorkType: TcxRadioGroup;
     dxLayoutItem1: TdxLayoutItem;
     rbWorkType1: TcxRadioButton;
     rbWorkType2: TcxRadioButton;
     rbWorkType3: TcxRadioButton;
     dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup;
     dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup;
+    dbrgWorkType: TcxDBRadioGroup;
+    dxLayoutItem7: TdxLayoutItem;
+    dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup;
     procedure DataSetCRUD(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure dbtvEmployeeCellClick(Sender: TcxCustomGridTableView;