page_count.prg

foxpro连接sqlserver的例子

*-- 计算页数
*-- 在临时文件中加入2个字段，分别为：rnCurPage(当前页),rnMaxPage(最大页)
*-- 红虎 于 2001年12月2日

*-- 传递参数：临时文件名，关键字列表，关键字表达式（关键字用来分页），用在细节中循环的字段，每页上的记录数
Para tcTableSource,tcFieldGroupBy,tcIndexKey,tcFieldList,tnRecordPerPage
Priv lcTableSource,lcFieldGroupBy,lcIndexKey,lcFieldList,lnRecordPerPage
Priv lcTempFile,lcTableFile,lcLastKey,lcLastKey,i

if	para() # 5
	messagebox("参数传递错误！",61,"页数计算程序")
	retu .F.
endif

Showwait("正在计算每页报表的页数...")
lcTableSource	= tcTableSource
lcFieldGroupBy	= tcFieldGroupBy
lcIndexKey		= tcIndexKey
lcFieldList		= tcFieldList
lnRecordPerPage	= tnRecordPerPage

lcTempFile	= sys(2015)	&& 产生一个临时文件
lcTableFile	= left(sys(2015),8)	&& 产生一个临时文件

*-- 下面的是为了计算页数：
sele &lcIndexKey as indexkey,;
	ceiling(count(&lcFieldList)/lnRecordPerPage) as nMaxPage;
	from &lcTableSource ;
	group by &lcFieldGroupBy ;
	into cursor &lcTempFile

sele a.*,0000 as nCurPage,b.nMaxPage ;
	from &lcTableSource a ,&lcTempFile b;
	where &lcIndexKey = b.indexkey ;
	order by &lcFieldGroupBy ;
	into table "&gcTempPath.\&lcTableFile..tmp"
use in &lcTempFile

lcLastKey = "#"
i = 1
scan
	lcCurKey	= &lcIndexKey
	if	lcCurKey # lcLastKey
		i = 1
		lcLastKey = lcCurKey
	else
		i = i + 1
	endif
	repl nCurPage with ceiling(i/lnRecordPerPage)
endscan	
sele * from '&gcTempPath.\&lcTableFile..tmp' where .T. ;
	into cursor &lcTableSource

use in &lcTableFile
delwfl("&gcTempPath.\&lcTableField..tmp")

showwait("")
retu .T.