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秒
//BjCat  m_montime: longWord = 60000 ;  // 寫卡的時間, 缺省為60秒
  m_montime: longWord = 120000 ;  // 寫卡的時間, 缺省為120秒

  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.