urecord.pas

是一个用delphi设计的考勤系统

unit URecord;

interface
uses Types, Controls;
type
  //WinStar校园卡卡明细结构体
   TWindCardDetail = record
      user_id: longword; //用户编号
      user_type: byte; //卡    类
      date_limits: TDate; //使用期限
      mon1: longword; //金额1
      mon2: longword; //金额2
      card_sta: byte; //卡状态。０为正常，１为锁卡(由于交易失败)
      card_times: word; //使用次数
      block1: shortstring; //2磁道
      block2: shortstring; //3磁道
      card_sn: longword; //卡SN
      sys_no: longword; //系统号
   end;
  //消费POS机记录结构
   TWindPosrec = record
      rec_no: dword; //纪录号
      user_id: dword; //用户编号
      curr_v: dword; //当前金额
      ex_v: dword; //本次交易额
      ex_times: word; //交易次数
      ex_date: Tdate; //交易日期
      ex_time: Ttime; //交易时间
      ex_op: byte; //操作员
      dev_no: word; //设备号
      user_sn: dword; //用户卡SN
      mac: byte; //校验
   end;
  //组权限记录结构
   TRecGRight = record
      RightNum: string; //权限号
      RightMc: string; //权限名称
      RightCount: integer; //所属子权限总数
      Right: boolean; //实际是否有权
      SubCount: integer; //实际子权限数
   end;


implementation

end.