UI 추가 및 데이타셋 추가

data/EmployeeUnit.dfm

@@ -0,0 +1,42 @@
+object dmData: TdmData
+  Height = 352
+  Width = 455
+  object mdEmployee: TdxMemData
+    Indexes = <>
+    Persistent.Data = {
+      5665728FC2F5285C8FFE3F060000000A000000010005006E616D650002000000
+      0200040061676500040000000300070073616C61727900020000000500040073
+      6578000A00000001000900706F736974696F6E001E0000000100080061646472
+      657373000106000000C0CCB0FCC0E70134000100E1F5050101000104000000B4
+      EBC7A50114000000BACEBBEA20C7D8BFEEB4EBB1B820B9DDBCDBB5BF}
+    SortOptions = []
+    Left = 288
+    Top = 160
+    object mdEmployeename: TStringField
+      FieldName = 'name'
+      Size = 10
+    end
+    object mdEmployeeage: TSmallintField
+      FieldName = 'age'
+    end
+    object mdEmployeesalary: TIntegerField
+      FieldName = 'salary'
+    end
+    object mdEmployeesex: TBooleanField
+      FieldName = 'sex'
+    end
+    object mdEmployeeposition: TStringField
+      FieldName = 'position'
+      Size = 10
+    end
+    object mdEmployeeaddress: TStringField
+      FieldName = 'address'
+      Size = 30
+    end
+  end
+  object dsEmployee: TDataSource
+    DataSet = mdEmployee
+    Left = 192
+    Top = 152
+  end
+end

data/EmployeeUnit.pas

@@ -0,0 +1,33 @@
+unit EmployeeUnit;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, Data.DB, dxmdaset;
+
+type
+  TdmData = class(TDataModule)
+    mdEmployee: TdxMemData;
+    mdEmployeename: TStringField;
+    mdEmployeeage: TSmallintField;
+    mdEmployeesalary: TIntegerField;
+    mdEmployeesex: TBooleanField;
+    mdEmployeeaddress: TStringField;
+    mdEmployeeposition: TStringField;
+    dsEmployee: TDataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  dmData: TdmData;
+
+implementation
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+end.