在操作数据集的时候书签怎么使用呀?它的功能是什么?
如题,请给个例子解释,谢谢!! 问题点数:20、回复次数:3Top
1 楼gxgyj(杰克逊)回复于 2004-12-02 17:49:07 得分 0
var
bk: TBookmark;
begin
if adodsVresult.Active and (adodsVresult.RecordCount > 0) then
begin
bk := adodsVresult.GetBookmark;
//操作数据库这里
if adodsVresult.BookmarkValid(bk) then//如果标记能匹配就找到该纪录
adodsVresult.GotoBookmark(bk);
end;
end;
Top
2 楼qgj99(qgj99)回复于 2004-12-02 20:34:57 得分 0
楼上可以详细解释一下吗,tbookmark是不是象个指针呀?Top
3 楼gxgyj(杰克逊)回复于 2004-12-03 08:43:11 得分 20
关于书签(BookMark)操作;
书签操作主要用于在表中快速地定位记录指针,在应用程序中常常要保存记录指针所在的位置,在进行其他处理之后,希望能快速地返回到先前指针所在的位置,此时,使用书签将显得特别有用。有关书签操作,Delphi提供了三个方法,它们是:
● GetBookMark
● GotoBookMark
● FreeBokMark
这三个方法一般都是在一起使用,GetBookMark方法返回一个TBookMark类型的变量,该变量包含着指向当前记录的指针,GotoMark方法用于快速地将记录指针定位到具有书签的记录处。FreeBookmark方法是与GetBookMark方法相反的操作,它释放书签标志。下面的程序代码阐述了书签操作的一般方法:
BookMark : TBookMark;
<Do something>
BookMark := Table1.GetBookMark; {对当前记录作书签标志}
Table1.DisalbeControls; {切断Table1与数据察觉部件的联系}
Table.First
While Not EOF Do {对表中全部记录进行其他处理}
begin
<Do something>
Tabel1.Next;
end;
Tabel1.GotoBookMark(BookMark)
Table1.enableControls; {重新定位记录指针回到原来的位置}
Tabel1.FreeBookMark(BookMark); {删除书签BookMark标志}
Top




