unit PublicParameter;

interface
uses windows, messages, sysutils, dialogs, forms, Graphics, ExtCtrls, db, adodb, StdCtrls,
  registry, classes, controls, ComCtrls, IniFiles;
  //客戶編號，貨單號，箱號(箱上編號)
type
  OnboxNumber = record
    BoxCustomerNumber: string; //客戶編號 4 all 9999
    BoxProListNumber: string; //貨單號  8  all 99999999
    BoxSNumber: string; //箱號   4   all 9999
  end;
  //產(chǎn)品編碼+產(chǎn)品序列號
  OnProNumber = record
    ProNumber: string; //產(chǎn)品編號 3  all 999
    ProSerinalNumber: string; //產(chǎn)品序列號 9 all 999999999
  end;
const
  cfgfpfile = 'Opt.ini';
var
  AppPath: string; //本地路徑
  ExportSQL: string;
  InputState: bool; //true 掃描
  LoginMan: string; //登陸人名稱.
  Loginkey: string; //登陸人密碼.
  LoginPriStr: string; //權(quán)限字符串
  EditState: integer; //進(jìn)入的編輯狀態(tài). 0,無狀態(tài),1,增加狀態(tài),2,修改狀態(tài),3,查詢狀態(tài).

  UserKey: string; //登錄密碼
  connStr: string;
  CurPath: string; //當(dāng)前可執(zhí)行文件目錄
  //ConnStr1:string='DBX.mdb;Persist Security Info=False';
  iniFile: TIniFile; //系統(tǒng)INI文件
  gCurrDirectory: string;
const Pri: array[0..3] of string = ('查詢', '出貨', '系統(tǒng)維護(hù)', '超級管理員');


implementation


end.