51 lines
1.4 KiB
ObjectPascal
51 lines
1.4 KiB
ObjectPascal
unit AlarmLog;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
wItem;
|
|
|
|
type
|
|
TAlarmLog = class(TwItem)
|
|
private
|
|
{ Private declarations }
|
|
FMachName: string;
|
|
FMachType: string;
|
|
FSendMsg: string;
|
|
FSendMsgDate: string;
|
|
FSendMsgTime: string;
|
|
FSendMsgEmp: string;
|
|
FAlarmDate: string;
|
|
FAlarmTime: string;
|
|
FAlarmType: string;
|
|
FAlarmSeverity: string;
|
|
FAlarmStatus: string;
|
|
FSensorName: string;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
published
|
|
{ Published declarations }
|
|
property MachName: string read FMachName write FMachName;
|
|
property MachType: string read FMachType write FMachType;
|
|
property SendMsg: string read FSendMsg write FSendMsg;
|
|
property SendMsgDate: string read FSendMsgDate write FSendMsgDate;
|
|
property SendMsgTime: string read FSendMsgTime write FSendMsgTime;
|
|
property SendMsgEmp: string read FSendMsgEmp write FSendMsgEmp;
|
|
property AlarmDate: string read FAlarmDate write FAlarmDate;
|
|
property AlarmTime: string read FAlarmTime write FAlarmTime;
|
|
property AlarmType: string read FAlarmType write FAlarmType;
|
|
property AlarmSeverity: string read FAlarmSeverity write FAlarmSeverity;
|
|
property AlarmStatus: string read FAlarmStatus write FAlarmStatus;
|
|
property SensorName: string read FSensorName write FSensorName;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|