uglobal.pas

来自「这是delphi7.0开发的人力资源培训考核软件」· PAS 代码 · 共 29 行

unit uGlobal;

interface
uses
  Variants,
  SysUtils;
Const
  _letter:Array[1..20] of string=('A','B','C','D','E','F','G','H','I','J','K',
                                  'L','M','N','O','P','Q','R','S','T');  
Var

  var_Form_JN:Array[0..20] of string; ////存储档案数据/////
  isAdd:integer; /////在档案中用来判断是增加,还是修改:1-->代表增加.2-->代表修改
  var_Form_CHK:Array[0..20] of string; ////用来存储帐本档案数据////////
  var_Form_CHKID:string;
  isCHKAdd:integer;/////用来判断帐本是增加、还是修改:1-->代表增加.2-->代表修改
  StrSql_CHK:string;////存储查询时的查询语句/////////////////\
  IF_CHK:Array[0..7] of integer;/////查询标志///////////////////////////////////
  Exit_Flag:integer;
  iDBFlag:string;
  LoginInfo:Array[1..10] of string;///记录登陆信息//////////
  _WhichStore:string;/////存储酒库名称////////
  //////////////
  _CheckDeptInfo:Array[1..20] of string;

implementation

end.