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

implementation

end.