_quit.prg

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

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


 IF _SCREEN.FORMCOUNT > 2
     MESSAGEBOX('请关闭所有已打开的窗口后，再退出系统(在‘窗口’菜单中可以查看到未关闭的窗口名称)！',16,'警告')
    RETURN 
 ENDIF 
 CLEAR EVENTS 
 SET STATUS BAR ON
 M.GL_QUITING = .F.
 LOCAL HAND1 , DATETIME
 DO HANDBUSY
  SQLSETPROP(HAND,'transactions',2)
 M.DATETIME = .NULL.
 HAND1 =  ;
      SQLEXEC(HAND,'update user_ set datetime=?m.datetime where username=?gs_username')
 IF M.HAND1 = 1
     SQLCOMMIT(HAND)
 ELSE 
     MESSAGEBOX('计算机与服务器联接错误...',0,'提示')
 ENDIF 
*