variable.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

unit Variable;

interface
 uses Messages,Classes;
 type
   rOper =record
   OprCode :string;  //oprcode
   oprid :string;
   OprName :string;
   password:string;
   deptcode:string;
   storecode:string;
 end;

 type
   PurList = ^APurList;   //权限列表
   APurList = record
   Modcode: string;
 end;

 type
   Purbtn= ^APurbtn;      //按纽权限列表
   APurbtn=record
   ModCode:string;        //按纽编码
 end;

 type
   CBList = ^ACBList;     //下拉列表
   ACBList = record
   Index: Integer;
   Code: String;
   Name: String;
 end;

////////////////////////////////////////////////////////////////////////////////
//  Added by JiangMin
 type                    //  物料出入库信息
   CBGidNum=^ACBGidNum;
   ACBGidNum=Record
     Gid:Integer;        //  物料ID号
     Num:Integer;        //  出入库量
   end;
////////////////////////////////////////////////////////////////////////////////

 type
   QueryList = ^AQueryList; //窗体查询字段列表
   AQueryList = record
   IsFlag: Integer;
   IsMain: Integer; //是否是主要时间段查询『打印所需，以便查询及报表界面时间显示』
   Table: String; //表辅助名
   Field: String; //查询字段名
   FieldName: String; //查询字段中文名
   FieldType: String; //查询字段数值类型
   CondType: Integer; //查询条件类型         1某字段，单内容，编辑输入框；
             //2某字段，单内容，时间输入框； 3某字段，单内容，下拉选择框；
             //4某字段，单内容，多选框；     5某字段，单内容，弹出选择框；
             //6某字段，双内容，时间框体；   7某字段，双内容，编辑输入框；
   FieldText: String; //查询条件值『值类型不确定』
   FieldText2: String; //查询条件2值『值类型不确定』
   FilterText: String; //条件值
   Context: String; //条件显示值
 end;

 const
   WMakeFlash=WM_USER+2003;
   WCloseFlash=WM_USER+2004;
   WWaitFlash=WM_USER+2005;
   WOpenTask=WM_USER+2006;
   WcloseTask=WM_USER+2007;
   gDictMODID=0; //基础表
   gSaMODID=1 ;  //销售
   gSuMODID=2 ;  //采购
   gAcMODID=3 ;  //财务
   gPrMODID=4 ;  //生产
   gHRMoDID=5 ;  //人力
   gSysMoDID=6;  //系统

  var
   AppName:string;  //系统名称
   gAtom : integer;  //系统二次
   gSubject:string ;//会计科目
   gBomType:string ;//Bom分类
   gDeptType:string; //部门分类
////////////////////////////////////////////////////////////////////////////////
// 检查安全库存时返回当前物料安全库存的描述信息    JiangMin  2005-09-16
   gStoreSafetyInfo:String;
////////////////////////////////////////////////////////////////////////////////
   rOpertor:roper;
   gTaskString:Tstrings;   //任务
   gPanelx,gPanely:integer;//主窗口panel
   gCurYear:integer;
   gCurMonth:integer;
   gAcSDate:string;//账套起用时间
   gLoginSuccess :boolean; //登陆成功True
   gChmName :string;//help name
   gCon:Boolean;
   gPurList:TList; //权限list
   gbtnlist:Tlist;
implementation
initialization
  gTaskString:=Tstrings.Create;
  gPurList:=TList.Create;
  gCon:=False;
finalization
  gTaskString.Free;
  gPurList.Free;
end.