global.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit Global;

interface

const sROLE = '点检员,系统管理员';
const sDATA_TYPE = '测量类,记录类,观察类{检查}';

// h2d cmd type
Const cInitDJ    = 1;     // 测量初始化
Const cMI        = 2;     // 测点
Const ciB        = 3;     // iB
Const cTransData0= 5;     // 获得测量数据
Const cTransData = 6;     // 获得测量数据
Const cTransiB_D = 7;     // iB_D
Const cTransCurM = 8;     // 获得当前测量数据
Const cSetup     = 9;     // 对时, CFG
Const cSetSelI   = 10;

Const cTransFonts= 12;   // 传输字库
Const cResetDev  = 15;

Const cError     = 128;   // 系统错误
Const cAck       = 0;     // OK Ack，启动H2D数据发送

// 系统文件
const cFontIdxFile= 'Font.idx';
const cFontFile= 'Font.d';
//const cFontIdxFile= 'Font.idx_pen';
//const cFontFile= 'Font.d_pen';
const cFont2File= 'Font2';

const cfMsrI= 'mi.dat';
const cfiB  = 'iB.dat';
const cfData= 'msr.dat';
const cfiBData= 'iBD.dat';
const cfCfg = 'cfg.sys';

const szSetup  = 9;   // Time, CFG
const szInitDJ = 23;  // Time, Post,iBCnt,MICnt,DMonADay,XIdxAdr,Line,Num,iBIdx,MIIdx,Turns

const maxNAME = 16;
const maxiBNAME= 13;
const maxTURNS = 1;   // 每几班上传1次?

type
  TSysCfg = record
    ComPort : Byte;
    DBConStr: string;
  end;

var
  sysCfg: TSysCfg;

  hCmd, xhCmd, FLAG: Byte;    // host-client command
  dCmd : Byte;

  cYear: Integer;

  fHzFont: TextFile;
  fMsrI, fiB, fData, fiBData: TextFile;

  foMsrI: Boolean=False;
  foiB  : Boolean=False;
  foData: Boolean=False;
  foiBData: Boolean=False;

  EC: string = 'NULL';//LongInt = -1;  // EmployeeCode

implementation

end.