fielddef.pas

来自「计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能」· PAS 代码 · 共 65 行

unit FieldDef;

interface

const

//===================================//
//--------     数据库口令     -------//
//-----------------------------------//
  Psw_Buy        = 'NImsBuy';
  Psw_Cust       = 'NImsCust';
  Psw_EMeterInfo = 'NImsEMeterInfo';
  Psw_EMKind     = 'NImsEMKind';
  Psw_EPKind     = 'NImsEPKind';
  Psw_Log        = 'NImsLog';
  Psw_SoftInfo   = 'NImsSoftInfo';
//===================================//
//--------      字段定义      -------//
//-----------------------------------//
  FLDiCustNo = 'ICustNo';
  FLDSCustName  = 'SCustName';
  FLDSIDNo  = 'SIDNo';
  FLDSICSC  = 'SICSC';
  FLDSMark  = 'SMark';
//-----------------------------------//
  FLDiBuyNum  = 'IBuyNum';
  FLDiECurBuy  = 'IECurBuy';
  FLDiEPriceKind  = 'IEPriceKind';
  FLDfEPrice  = 'FEPrice';
  FLDSOpName  = 'SOpName';
  FLDSHostName  = 'SHostName';
  FLDDTBuyDate  = 'DTBuyDate';
//-----------------------------------//
  FLDSENo  = 'SENo';
  FLDDTEDate  = 'DTEDate';
  FLDiEDegree  = 'IEDegree';
  FLDiEConstKind  = 'IEConstKind';
  FLDiEConst  = 'IEConst';
  FLDiEBuyLmt  = 'IEBuyLmt';
  FLDiERemind  = 'IERemind';
  FLDiEWarn  = 'IEWarn';
  FLDiESum  = 'IESum';
  FLDiTotalNum  = 'ITotalNum';
//-----------------------------------//
  FLDiEKind  = 'IEKind';
  FLDSEMemDT  = 'SEMemDT';
  FLDSEMark  = 'SEMark';
  FLDSExplain  = 'SExplain';
//-----------------------------------//
  FLDSEPriceName  = 'SEPriceName';
  FLDSEPriceMark  = 'SEPriceMark';
//-----------------------------------//
  FLDSAccount  = 'SAccount';
  FLDSPsw  = 'SPsw';
  FLDCOpClass  = 'COpClass';
  FLDBLog  = 'BLog';
//-----------------------------------//
  FLDSSoftID  = 'SSoftID';
//===================================//


implementation

end.