get_max_id.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 32 行

use history in 0
sele history
hs_id=1   && 数据库最大储存1,000,000,000 条记录
SCAN 
	hs_id = Max(hs_id, id)
ENDSCAN
use
use thisday in 0
sele thisday
td_id=1   && 数据库最大储存1,000,000,000 条记录
SCAN 
	td_id = Max(td_id, id)
ENDSCAN
use

cur_id=max(hs_id,td_id)

if file('setup.dbf')
   use setup in 0 share
   sele setup
   loca for allt(name)=="帐号" and id=999
   if !found()
     appe blank
     repl name with "帐号" ,id with 999
   endif
     REPL CODE WITH ALLT(STR(CUR_ID))
   USE
else
  messagebox("没有setup文件！",16,"错误")
  cancel
endif
retu