code4.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 23 行

程序段04
下面这段程序，查询指定分组中的指定项，若没有指定项，就出现提示信息，
若有,则高亮指定行。

boolean foundtag
long break
foundtag=FALSE
break=1
do while (not foundtag)
 break=dw_1.FindGroupChange (break,1)
 if break<=0 then exit    //若没有分隔组或发生错误，则退出
//若在分隔组中发现指定的记录，就设foundtag 为 TRUE
 if dw_1. GetItemString (break,"nativeplace_code")="003" &
    then foundtag=TRUE
 if break=dw_1.RowCount ( ) then exit
 break=break+1
loop
if foundtag=FALSE then MessageBox ("提示信息"，"没有找到指定"&+"的籍贯码")
if foundtag=TRUE then
    dw_1.SelectRow (break,TRUE)
    dw_1.ScrollToRow (break)
end if