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

source/MainUnit.pas

@@ -17,7 +17,7 @@ uses
   { DevExpress Skin }
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinWXI, dxLayoutLookAndFeels, dxSkinsForm,
   { Custom }
-  DataUnit;
+  DataUnit, cxRadioGroup, cxGroupBox;
 
 type
   TfrmMain = class(TdxForm, IDataStateNotifier)
@@ -67,14 +67,27 @@ type
     dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList;
     dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
     sbMain: TdxStatusBar;
+    dbtvEmployeeColumn1: TcxGridDBColumn;
+    cxRadioGroup1: TcxRadioGroup;
+    dxLayoutItem1: TdxLayoutItem;
+    rbWorkType1: TcxRadioButton;
+    rbWorkType2: TcxRadioButton;
+    rbWorkType3: TcxRadioButton;
+    dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup;
+    dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup;
     procedure DataSetCRUD(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure dbtvEmployeeCellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
   private
     procedure NotifyDataSetStateChange(const AState: TDataSetState);
   public
     { Public declarations }
   end;
 
+  TWorkType = (신입, 근속자, 퇴사자);
+
 var
   frmMain: TfrmMain;
 
@@ -99,6 +112,32 @@ begin
   End;
 end;
 
+procedure TfrmMain.dbtvEmployeeCellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+var
+  RecInx, ColInx: integer;
+begin
+  var Controller:= TcxGridDBTableView(Sender).DataController;
+  RecInx:= ACellViewInfo.RecordViewInfo.Index;
+  ColInx:= Controller.GetItemByFieldName('worktype').Index;
+  var WorkType:= Controller.Values[RecInx, ColInx];
+  if WorkType = 신입 then
+    rbWorkType1.Checked:= True
+  else if WorkType = 근속자 then
+    rbWorkType2.Checked:= True
+  else if WorkType = 퇴사자 then
+    rbWorkType3.Checked:= True;
+
+{ Case문을 활용한 아래 코드
+  case VarAsType(WorkType, varInteger) of
+    0: rbWorkType1.Checked:= True;
+    1: rbWorkType2.Checked:= True;
+    2: rbWorkType3.Checked:= True;
+  end;
+}
+end;
+
 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
   // DataSet State를 DataUnit으로 분리(유닛간 결합도를 분리) 리펙토링