equipmentinfoclass.~pas

来自「delphi基于工业控制的串口通讯」· ~PAS 代码 · 共 29 行

//******************************************************************************
//*单元名称 ： EquipmentInfoClass.Pas                                          *
//*单元功能 ： 创建用户记录TEquipmentInfoClass对象                                       *
//*作者     ： 张志华                                                          *
//*日期     ： 2004年6月1日                                                    *
//*TUserInfo对象说明                                                           *
//******************************************************************************
unit EquipmentInfoClass;

interface
type
    //定义一个用户记录的类
    TEquipmentInfo= class(TObject) //
    private
    public
        Group_NO       : String; //设备组号
        LightNO        : String; //设备编号
        LightName      : String; //设备名称
        LightAddress   : String; //设备地址
        ContNO         : Integer; //集中器号
        TerminalNO     : Integer; //用户终端
        UportNO        : Integer; //用户端口
        LightStates    : String;  //端口状态
        LightType      : String;  //设备类型
    end;
implementation

end.