sys_global.~pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit sys_global;

interface

var
  m_Stop: char='0' ;     // m_stop='9' 意味着网络不通

  m_sdTime: integer = 3 ;    //用户定义的关机分钟数

  m_com: word = 1 ;          // 串口号, 缺省为1

  m_VerId: word=1 ;          // WINDOWS 版本，window98 =1  window nt=2, 缺省是window98

  m_DateTime: TDatetime ; // 服务器当前的时间
  m_Date: string ;       // 服务器当前的日期
  m_time: string ;       // 服务器当前的时间

  m_CpName: string ;     // 电脑的名称

  m_RTtype: string='01' ;   // 本部电脑的费率类型, 01=普通费率, 02=特别费率

  m_StartTime: TDatetime ;  // 插卡时登录的时间
  m_StartMin: longWord  ;   // 插卡时对应的微秒数

  m_StMoney: Currency=0 ;  // 插卡后, 第一次金额, 在拔卡前不变

  m_Rate: currency=0.07;  // 服务器上当前的费率

  m_chktime: longWord = 3000  ;  // 查卡的时间, 缺省为3秒
  m_montime: longWord = 60000 ;  // 写卡的时间, 缺省为60秒

  m_syspara: string = '8888' ; // 缺省的系统参数
  m_ICtype: string = '1' ;      // 卡上的卡型  1-普通卡, 2-金卡, 3-银卡, 4-计时卡, 5-管理卡
  m_ICno: string = '' ;        // 卡上的卡号
  m_ICmoney: currency=0;     // 卡上的剩余金额
  m_ICdateTime: Tdatetime;       // 卡上的失效日期
  m_TimesMoney: string='';   // 计算出的金额, 例如: '001255'

  m_ShowStop: string='0' ;   // 不足一元, Frm_ShowUser 提示用
  
implementation

end.