_get_user_time_space.prg

来自「门诊收费管理系统」· PRG 代码 · 共 28 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: _GET_USER_TIME_SPACE.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER OP
 PRIVATE I , RETU
 I = _TYPE(TS('刷新时间间隔'),'N')
 RETU = .F.
 DO HANDBUSY
  SQLEXEC(HAND,'select * from user_ where username=?m.op','query')
 IF RECCOUNT('query') < 1
    WAIT WINDOW '操作员错误'
    RETURN .F.
 ENDIF 
 IF TTOD(QUERY.DATETIME) < DATE()
    RETURN .F.
 ENDIF 
 IF  .NOT. ISNULL(QUERY.DATETIME)
    IF HOUR(DATETIME()) * 3600 + MINUTE(DATETIME()) * 60 + SEC(DATETIME()) -  ;
   (HOUR(QUERY.DATETIME) * 3600 + MINUTE(QUERY.DATETIME) * 60 - SEC(QUERY.DATETIME)) <  ;
   M.I
       RETU = .T.
    ENDIF 
 ENDIF 
 RETURN M.RETU
*