sharevar.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit sharevar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBClient, MConnect, MidasCon;

type
  //当前系统配置
  TSystemConfig  = record
        COMPANYANME:STRING;           //企业名称
        COMPANYADDRESS:STRING;        //企业地址
        COMPANYTEL:STRING;            //企业电话
        COMPANYFAX:STRING;            //企业传真
        COMPANYLOGO:STRING;           //企业LOGO
        COMPANYPIN:STRING;            //企业密码
        SYSFLAGNO:STRING;             //系统标识号

        CURRENTPOSNO:STRING;          //当前最大POS编号
        
        DBCONNECTSTRING:string;       //联接数据库字符串
        DBTYPE:integer;               //数据库类型
        SECURITY:string;              //是否启用安全措施
        DBName:string;                //数据库路径
        DBACCOUNT:string;             //数据库账号
        DBPASSWORD:string;            //数据库密码
        ServerName:string;            //数据库服务器名称
        DBTimeOut:integer;            //数据库连接超时(秒)

        TerminalID:integer;           //终端系统类别IC
        TerminalName:string;          //终端系统名称
  end;

  PAdmin = ^TAdmin;
  TAdmin = record
    user_id:string;  //操作员ID
    user_pwd:string;   //密码
    user_name:string;       //用户名
    user_logindate:Tdatetime;
    user_team_id:integer;  //权限ID
    user_team:string;      //权限名
    team_power:array[0..20,0..29]of char;  //权限
  end;

  TICReaderInfo_str=record
        ReaderType:integer;
        ComPort:integer;        //通讯端口：RS232
        icDev:longint;          //通讯句柄
        baund:integer;          //通讯数率
        ICType:string;            //IC卡类型
  end;

  //用户IC卡信息
  TUserInfo_str=record
        balance:integer;
        name:array[0..15]of char;         //姓名
        number:array[0..5]of char;//编号
        LoginDate:array[0..7]of char; //注册日期
        sex:array[0..0]of char;
        cls:array[0..0]of char;      //class
  end; 

  //用户卡信息
  TUserCard=record
        empid:integer;
        sn:cardinal;                    //序列号     4 bytes
        unitpin:string;     //单位密码   2 bytes
        kh:integer;                     //卡号
        ictype:byte;                    //卡类型
        iclevel:byte;                   //卡级别
        icuse:byte;                     //卡用途
        icstate:byte;                   //卡状态
        usepin:string;      //用户密码   2 bytes
        reuse:array[0..5]of byte;       //保留       5 bytes
        usetimes:integer;    //使用次数   2 bytes
        balance:integer;     //钱包       3 bytes
        btflag:byte;                      //补贴标识  1:允许,0:不允许
        btuse:byte;                       //补贴可用否 1:可用,0:不可用
        btday:byte;                            //补贴领取时间:日
        btreuse:array[0..13]of byte;      //补贴信息   14 bytes
        mac:array[0..1]of byte;         //校验码
  end;

  //Dgrid标题显示
  TFieldDetails=record
        fieldid:string;         //英文字段
        chinesename:string;     //字段对应的中文名
  end;


  //定义写INIfiel数据的类型
  const WsError=-1;
  const WsString=0;
  const WsInteger=1;
  const WsFloat=2;
  const WsDate=3;
  const WsDateTime=4;
  const WsBool=5;
  const WsTime=6;

var

  CloseMe:boolean;              //主窗体是否关闭  
  AppPath:string;               //应用文件所在的路径
  CurSnr,OldSnr:Cardinal;
  CurrentSN:string;
  CurrentCardNo:integer;
  hThread,ThreadID:cardinal;
  CanExit:boolean;//控制读卡线程，可以自动退出
  curAdmin:TAdmin;
  SysConfig:TSystemConfig;
  IcReader_info:TICReaderInfo_str;
  FieldDetialCount:integer;
  FieldDetials:array of TFieldDetails;
  Max_AC_Time_Number:integer;                   //最大时间数
  InOutFlag:integer;                            //进出门标识
  CardMainKey:array[0..254]of char='123';
  G_TmpTime:Ttime;
  G_OKflag:boolean;                             //判断当前进出门是否正常
  M1_SECTOR:integer =2;
  ReportName:string='.\Rpt_card.rav';
  ReportNdrName:string='.\public.ndr';

//  Base_info_status: integer;        //确定基本信息窗口是所处的状态
  bool_sprk_info: boolean;         //确定窗口是否已经创建
  bool_sp_information: boolean;    //确定窗口是否已经创建
  bool_sPKC: boolean;              //确定窗口是否已经创建
  bool_sp_absent: boolean;         //确定窗口是否已经创建

  spid_find:string;               //商品入库时所选择的商品编号
  spid_add:string;                //商品入库时所新增的商品编号

  days: array[1..7] of string=('星期日','星期一','星期二','星期三','星期四','星期五','星期六');

implementation

end.