publicparameter.~pa

Barcode And LabelPrint

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;
  //产品编码+产品序列号
  OnProNumber = record
    ProNumber: string; //产品编号 3  all 999
    ProSerinalNumber: string; //产品序列号 9 all 999999999
  end;
const
  cfgfpfile = 'Opt.ini';
var
  AppPath: string; //本地路径
  ExportSQL: string;
  InputState: bool; //true 扫描
  LoginMan: string; //登陆人名称.
  Loginkey: string; //登陆人密码.
  LoginPriStr: string; //权限字符串
  EditState: integer; //进入的编辑状态. 0,无状态,1,增加状态,2,修改状态,3,查询状态.

  UserKey: string; //登录密码
  connStr: string;
  CurPath: string; //当前可执行文件目录
  //ConnStr1:string='DBX.mdb;Persist Security Info=False';
  iniFile: TIniFile; //系统INI文件
  gCurrDirectory: string;
const Pri: array[0..3] of string = ('查询', '出货', '系统维护', '超级管理员');


implementation


end.