UI 및 데이타셋 추가

2024-12-01 11:28:11 +09:00
parent 8815050795
commit 0bec8b45e7
7 changed files with 1421 additions and 6 deletions
@@ -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: TSmallintField;
+    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.