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; ////存儲檔案數(shù)據(jù)/////
  isAdd:integer; /////在檔案中用來判斷是增加,還是修改:1-->代表增加.2-->代表修改
  var_Form_CHK:Array[0..20] of string; ////用來存儲帳本檔案數(shù)據(jù)////////
  var_Form_CHKID:string;
  isCHKAdd:integer;/////用來判斷帳本是增加、還是修改:1-->代表增加.2-->代表修改
  StrSql_CHK:string;////存儲查詢時的查詢語句/////////////////\
  IF_CHK:Array[0..7] of integer;/////查詢標(biāo)志///////////////////////////////////
  Exit_Flag:integer;
  iDBFlag:string;
  LoginInfo:Array[1..10] of string;///記錄登陸信息//////////
  _WhichStore:string;/////存儲酒庫名稱////////
  //////////////
  _CheckDeptInfo:Array[1..20] of string;

implementation

end.