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

2024-12-04 13:33:14 +09:00
parent d5dbf71944
commit cbd77e174c
4 changed files with 142 additions and 28 deletions
@@ -5,12 +5,13 @@ object dmData: TdmData
  object mdEmployee: TdxMemData
    Indexes = <>
    Persistent.Data = {
-      5665728FC2F5285C8FFE3F050000000A000000010005006E616D650002000000
+      5665728FC2F5285C8FFE3F060000000A000000010005006E616D650002000000
      02000400616765000500000001000900706F736974696F6E0004000000030007
-      0073616C61727900320000000100080061646472657373000106000000C8ABB1
-      E6B5BF011F000104000000B4EBB8AE0140E133000112000000BACEBBEA20B5BF
-      B7A1B1B820B8EDC0E5B5BF0106000000B1E8B8BBB5BF012A000104000000B0FA
-      C0E501401640000112000000BACEBBEA20C7D8BFEEB4EBB1B820BFECB5BF}
+      0073616C61727900320000000100080061646472657373000200000002000900
+      776F726B74797065000106000000C8ABB1E6B5BF011F000104000000B4EBB8AE
+      0140E133000112000000BACEBBEA20B5BFB7A1B1B820B8EDC0E5B5BF01010001
+      06000000B1E8B8BBB5BF012A000104000000B0FAC0E501401640000112000000
+      BACEBBEA20C7D8BFEEB4EBB1B820BFECB5BF010200}
    SortOptions = []
    Left = 208
    Top = 80
@@ -32,6 +33,9 @@ object dmData: TdmData
      FieldName = 'address'
      Size = 50
    end
+    object mdEmployeeworktype: TSmallintField
+      FieldName = 'worktype'
+    end
  end
  object dsEmployee: TDataSource
    AutoEdit = False
@@ -24,6 +24,7 @@ type
    mdEmployeeaddress: TStringField;
    dsEmployee: TDataSource;
    ilSmallIcons: TcxImageList;
+    mdEmployeeworktype: TSmallintField;
    procedure dsEmployeeStateChange(Sender: TObject);
    procedure DataModuleCreate(Sender: TObject);
  private