玉管通地理,朱笔点天文
        欢迎光临文天软件之家
 
全站搜索
联系方式


网 址:文天软件之家

    www.jh-lzf.com

联系人:文天(刘中甫)

邮 箱:jh-lzf@21cn.com

地 址:湖北·武汉

    中国石化·江汉油田

    石油工程技术研究院

    信息中心

  

天气信息
新闻详情
为显示程序增加“基本显示情况表”
来源:━━━━《软件报》1996合订本(第43期)作者:刘中甫网址:http://www.jh-lzf.com浏览数:3

为显示程序增加“基本显示情况表”

  在数据库检索、查询显示中,一般都是在所有记录显示完后,才能知道满足条件的记录数,而大多数情况下我们只需了解满足条件的记录数,并不关心具体的记录情况,因此,在显示程序前增加一个“显示基本情况表”是很有必要的。这个表头不仅内容十分丰富(含有当前打开的数据库名及其总记录数、当前选择的条件及满足条件的记录数),而且可以中断显示,节省大量的时间。

set talk off

clear

if FCOUNT()=0

use ?

endif

t1=alltrim(dbf())

t2=str(reccount())

t3=alltrim(filter())

*统计条件过滤后的记录数

is_number=0

set FILTER TO

set FILTER TO &t3

go top

do while .not. eof()

skip

is_number=is_number+1

enddo

set FILTER TO

set FILTER TO &t3

go top

t4=str(is_number)

DEFINE WINDOW w21 FROM 6,9 TO 16,70 TITLE "基本显示情况" shadow COLOR 5/7

activate window w21

@1,1 say "当前打开的数据库为:&t1"

@row()+1,1 say "且此数据库记录数为:&t2"

@row()+1,1 say "当前已设置的条件为:"+t3

@row()+1,1 say "满足条件的记录数为:&t4"

@row()+1,1 say " 直接回车暂停显示,任何字符开始显示" color 2/7

k=inkey(0)

kk=lastkey()

deactivate window w21

if kk<>13

list

endif

return