行业应用

开发平台：

VFP

get_max_id.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: GET_MAX_ID.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 USE IN 0 history
 SELECT HISTORY
 HS_ID = 1
 SCAN 
 HS_ID = MAX(HS_ID,ID)
 ENDSCAN 
 USE 
 USE IN 0 thisday
 SELECT THISDAY
 TD_ID = 1
 SCAN 
 TD_ID = MAX(TD_ID,ID)
 ENDSCAN 
 USE 
 CUR_ID = MAX(HS_ID,TD_ID)
 IF FILE('setup.dbf')
 USE IN 0 SHARED setup
 SELECT SETUP
 LOCATE FOR ALLTRIM(NAME) == '帐号' AND ID = 999
 IF  .NOT. FOUND()
 APPEND BLANK
 REPLACE NAME WITH '帐号' , ID WITH 999
 ENDIF 
 REPLACE CODE WITH ALLTRIM(STR(CUR_ID))
 USE 
 ELSE 
  MESSAGEBOX('没有setup文件！',16,'错误')
 CANCEL 
 ENDIF 
 RETURN 
*

						