45 lines
1.1 KiB
ObjectPascal
45 lines
1.1 KiB
ObjectPascal
unit EmpMst;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
wItem;
|
|
|
|
type
|
|
TEmpMst = class(TwItem)
|
|
private
|
|
{ Private declarations }
|
|
FOrdCode: string;
|
|
FPosition: string;
|
|
FRole: string;
|
|
FInDate: string;
|
|
FOutDate: string;
|
|
FStatus: string;
|
|
FEmpTelNum: string;
|
|
FEmpAddress: string;
|
|
FDescriptions: string;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
published
|
|
{ Published declarations }
|
|
property OrdCode: string read FOrdCode write FOrdCode;
|
|
property Position: string read FPosition write FPosition;
|
|
property Role: string read FRole write FRole;
|
|
property InDate: string read FInDate write FInDate;
|
|
property OutDate: string read FOutDate write FOutDate;
|
|
property Status: string read FStatus write FStatus;
|
|
property EmpTelNum: string read FEmpTelNum write FEmpTelNum;
|
|
property EmpAddress: string read FEmpAddress write FEmpAddress;
|
|
property Descriptions: string read FDescriptions write FDescriptions;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|