34 lines
580 B
ObjectPascal
34 lines
580 B
ObjectPascal
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.
|