직원근무형태 UI 저장 로직은 없음

source/MainUnit.dfm

@@ -63,13 +63,14 @@ object frmMain: TfrmMain
     end
     object grdEmployee: TcxGrid
       Left = 12
-      Top = 175
+      Top = 249
       Width = 792
-      Height = 478
-      TabOrder = 10
+      Height = 404
+      TabOrder = 11
       object dbtvEmployee: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
+        OnCellClick = dbtvEmployeeCellClick
         DataController.DataSource = dmData.dsEmployee
         DataController.Summary.DefaultGroupSummaryItems = <>
         DataController.Summary.FooterSummaryItems = <>
@@ -114,6 +115,11 @@ object frmMain: TfrmMain
           PropertiesClassName = 'TcxCurrencyEditProperties'
           HeaderAlignmentHorz = taCenter
         end
+        object dbtvEmployeeColumn1: TcxGridDBColumn
+          Caption = #44540#47924#54805#53468
+          DataBinding.FieldName = 'worktype'
+          HeaderAlignmentHorz = taCenter
+        end
         object dbtvEmployeeaddress: TcxGridDBColumn
           Caption = #51452#49548
           DataBinding.FieldName = 'address'
@@ -134,10 +140,10 @@ object frmMain: TfrmMain
       Style.TransparentBorder = False
       TabOrder = 5
       Height = 27
-      Width = 157
+      Width = 350
     end
     object dbseAge: TcxDBSpinEdit
-      Left = 248
+      Left = 441
       Top = 93
       AutoSize = False
       DataBinding.DataField = 'age'
@@ -146,42 +152,82 @@ object frmMain: TfrmMain
       Style.TransparentBorder = False
       TabOrder = 6
       Height = 27
-      Width = 157
+      Width = 349
     end
     object dbtePosition: TcxDBTextEdit
-      Left = 441
-      Top = 93
+      Left = 55
+      Top = 127
       AutoSize = False
       DataBinding.DataField = 'position'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
       TabOrder = 7
-      Height = 27
-      Width = 156
+      Height = 30
+      Width = 379
     end
     object dbseSalary: TcxDBSpinEdit
-      Left = 633
-      Top = 93
+      Left = 55
+      Top = 164
       AutoSize = False
       DataBinding.DataField = 'salary'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
       TabOrder = 8
-      Height = 27
-      Width = 157
+      Height = 30
+      Width = 379
     end
     object dbteAddress: TcxDBTextEdit
       Left = 55
-      Top = 127
+      Top = 201
       DataBinding.DataField = 'address'
       DataBinding.DataSource = dmData.dsEmployee
       Style.HotTrack = False
       Style.TransparentBorder = False
-      TabOrder = 9
+      TabOrder = 10
       Width = 735
     end
+    object cxRadioGroup1: TcxRadioGroup
+      Left = 441
+      Top = 127
+      Caption = #44540#47924#54805#53468
+      ParentBackground = False
+      ParentColor = False
+      Properties.Items = <>
+      Style.Color = 16053492
+      Style.TransparentBorder = False
+      TabOrder = 9
+      Height = 67
+      Width = 349
+      object rbWorkType1: TcxRadioButton
+        Left = 56
+        Top = 32
+        Width = 80
+        Height = 20
+        Caption = ' '#49888#51077
+        TabOrder = 0
+        Transparent = True
+      end
+      object rbWorkType2: TcxRadioButton
+        Left = 126
+        Top = 32
+        Width = 80
+        Height = 20
+        Caption = #44540#49549#51088
+        TabOrder = 1
+        Transparent = True
+      end
+      object rbWorkType3: TcxRadioButton
+        Left = 212
+        Top = 32
+        Width = 80
+        Height = 20
+        Caption = #53748#49324#51088
+        TabOrder = 2
+        Transparent = True
+      end
+    end
     object lgRoot: TdxLayoutGroup
       AlignHorz = ahClient
       AlignVert = avClient
@@ -302,24 +348,26 @@ object frmMain: TfrmMain
       Index = 1
     end
     object dxLayoutItem4: TdxLayoutItem
-      Parent = dxLayoutAutoCreatedGroup1
+      Parent = dxLayoutAutoCreatedGroup3
       AlignHorz = ahClient
+      AlignVert = avClient
       CaptionOptions.Text = #51649#50948
       Control = dbtePosition
       ControlOptions.OriginalHeight = 27
       ControlOptions.OriginalWidth = 121
       ControlOptions.ShowBorder = False
-      Index = 2
+      Index = 0
     end
     object dxLayoutItem5: TdxLayoutItem
-      Parent = dxLayoutAutoCreatedGroup1
+      Parent = dxLayoutAutoCreatedGroup3
       AlignHorz = ahClient
+      AlignVert = avClient
       CaptionOptions.Text = #44553#50668
       Control = dbseSalary
       ControlOptions.OriginalHeight = 27
       ControlOptions.OriginalWidth = 121
       ControlOptions.ShowBorder = False
-      Index = 3
+      Index = 1
     end
     object dxLayoutItem6: TdxLayoutItem
       Parent = lgInput
@@ -328,13 +376,35 @@ object frmMain: TfrmMain
       ControlOptions.OriginalHeight = 27
       ControlOptions.OriginalWidth = 121
       ControlOptions.ShowBorder = False
-      Index = 1
+      Index = 2
     end
     object dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup
       Parent = lgInput
       LayoutDirection = ldHorizontal
       Index = 0
     end
+    object dxLayoutItem1: TdxLayoutItem
+      Parent = dxLayoutAutoCreatedGroup2
+      AlignHorz = ahRight
+      CaptionOptions.Text = 'cxRadioGroup1'
+      CaptionOptions.Visible = False
+      Control = cxRadioGroup1
+      ControlOptions.AutoColor = True
+      ControlOptions.OriginalHeight = 67
+      ControlOptions.OriginalWidth = 349
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+    object dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup
+      Parent = lgInput
+      LayoutDirection = ldHorizontal
+      Index = 1
+    end
+    object dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup
+      Parent = dxLayoutAutoCreatedGroup2
+      AlignHorz = ahClient
+      Index = 0
+    end
   end
   object sbMain: TdxStatusBar
     Left = 0
@@ -352,7 +422,7 @@ object frmMain: TfrmMain
     Top = 8
     object acAdd: TAction
       Tag = 1
-      Caption = #52628#44032#51077#45768#45796
+      Caption = #52628#44032
       ImageIndex = 0
       OnExecute = DataSetCRUD
     end