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