uglobal.pas

来自「这是一个啤酒行业的软件」· PAS 代码 · 共 46 行

unit uGlobal;

interface
uses
  Variants,
  SysUtils;

Const
  _Letter:Array[1..2] of string=('I','j');
  _whichStore:string='B';

Var

  _StoreMan:string;
  ///////记录登录系统是的信息/////////////////
  _LoginName:string;
  _LoginTime:string;
  _ExitTime:string;
  {/*
     存储接班日期
  */}
  JB_Storage_Date:string;
  {/*
     倒箱入库
  */}
  DX_OrderID:string;
  DX_produceName:string;
  DX_specification:string;
  DX_unitName:string;
  DX_boxNum:string;
  DX_emptyBoxNum:string;
  DX_bottleNum:string;
  {/*
     退库入库
  */}
  TK_OrderID:string;
  TK_produceName:string;
  TK_specification:string;
  TK_unitName:string;
  TK_boxNum:string;
  TK_emptyBoxNum:string;
  TK_bottleNum:string;
implementation

end.