lineinfo.pas

来自「使用Delphi 6.0开发用于控制空调的程序」· PAS 代码 · 共 65 行

unit LineInfo;

interface
uses
  Messages, SysUtils, Variants, Classes, Dialogs, Controls,StrUtils ;

type TLineInfo = class

protected

public
     DT:TDateTime;
     IDFIID:Integer;
     NAME,
     RunModel:string;
     RunState:string;
     SetTemp,
     ReturnTemp,
     SetColdTemp,
     SetColdTempLt,
     SetHotTemp ,
     SetHotTempLt ,
     SetColdTempCo ,
     SetHotTempCo :Integer;
     F1VavNum ,
     F2VavNum,
     F1ColdVav ,
     F1HotVav ,
     F2ColdVav ,
     F2HotVav ,
     S320RCC,          //320
     S320FAuto ,
     S320HotSet ,
     S320ColdSet ,
     S320SendWind ,
     S320F2 ,
     S320F1 ,
     S320TempSet ,
     S320ChuShi ,
     S320RunStateAutoSet ,
     S320Ambient ,
     S320AllHot,
     S20NEAllHotLink ,
     S20NEAmbient ,
     S20NEAllHot ,
     S320F1Cxs ,
     S320F2Cxs :string;    //320
     SB400Warmers,
     SB400Heating,
     SB400Fans,
     SB400Compresspor,
     SB400RunState,
     SB400Filter,
     SB400Attention,
     SB400Waring,
     SB400Abnormal:string;

     SB400Code,
     SB400ContextCode:string;

end;
implementation

end.