📄 如何在delphi中给你的数据加个书签 bookmark.htm
字号:
<HTML><HEAD><TITLE>亦多EastDoor</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR><link rel="stylesheet" href="../eastdoor.css"></HEAD>
<BODY bgColor=#ffffff text=#000066 vLink=#e0e0e0>
<TABLE align=center border=0 borderColorLight=#90 cellPadding=0 cellSpacing=0
width=753>
<TBODY>
<TR align=middle>
<TD width=200 valign="top"><img src="../image/logo.gif" width="200" height="70"></TD>
<TD align=left height=56 vAlign=top width=603 colspan="2">
<div align="right">
<a href="http://202.113.29.120/">
<img src="../image/titlesoft.gif" height="72" border="0" alt="亦多下载中心"></a>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center"></div>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR>
<TD align=middle height=292 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1
width="100%" bgcolor="#6699CC">
<TBODY>
<TR align=left bgcolor="#FFFFFF">
<TD colSpan=4 vAlign=top height=2>
<div align="left">
<table width="100%" border=" 0" cellspacing="1">
<tr bgcolor="#C1D6EA">
<td>
<div align="center">-=<font color="#FFFF33">-</font> 编程中心
<font color="#FFFF33">-</font>=-</div>
</td>
</tr>
</table>
</div>
</TD>
</TR>
<TR vAlign=middle bgcolor="#6699CC">
<TD colSpan=4 height="325">
<TABLE border=0 cellSpacing=0 height=100% width="100%" align="center">
<TBODY>
<TR vAlign=top>
<TD width="67%" rowspan="2" bgcolor="#FFFFFF">
<p align="center">如何在Delphi中给你的数据加个书签
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%">
<p align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">不知大家是否有这样的体验。当我们处理一大堆数据时,常常好不容易找到一条有用的纪录,前面找到的却又不见了。当你大叫霉气而心烦意乱的时候,您是否想到,其实一个小小的bookmark书签就可以解决这个问题。<br>
在delphi中提供了三种方法(1)getbookmark,(2)gotobookmark,(3)freebookmark来建立书签,利用它们可以帮助定义书签并快速回到所在的位置。<br>
现在让我们一起来看看如何建立一个书签。<br>
书签必须结合在数据库程序中一起使用,所以先用database
form wizard建立一个数据库应用程序。这里建立一个包括“学号”，“学生姓名”，“成绩”的应用程序框架，然后在表单上加两个控件：一个checkbox和一个combobox。<br>
Checkbox1的caption设为书签;Combox1的style设为csdropdownlist。<br>
在这个程序中我们设一个书签bookmark1首先在Tform的public部分声明书签的全局变量：<br>
public <br>
{public declarations}<br>
bookmark1:tbookmark;<br>
接下来再添加事件控制代码。<br>
首先，在checkbox1的onclick事件中添加进行设定和删除书签的代码，如下：<br>
if checkbox1.checked then<br>
begin <br>
bookmark1:=table1.getbokmark;<br>
combobox1.itemadd(‘书签1‘)；<br>
end<br>
else <br>
begin<br>
table1.Freebookmark（bookmark1）；<br>
combobox1.Item.delete(combobox1.items.indexof(‘书签1’);<br>
end;<br>
最后在combobox1的onclick事件中添加代码,似的书签可以跳转到相应位置。代码如下：<br>
if combobox1.text=‘书签1’then<br>
table1.gotobookmark(bookmark1);<br>
好了，现在我们来运行这个程序。先翻到数据中任一条纪录，比如姓名为王平的这条。然后执行checkbox,onclick事件被触发则combobox1里增加了‘书签1’这个条目。现在可以随意翻动到任何一条纪录，如果想回到王平，只需要在combobox1中选择书签这一栏，这是执行gotobookmark(book_<br>
mark1)这条语句，王平这条纪录又重新显示出来。<br>
（上海 戴毅辉）<br>
</td>
</tr>
</table></td>
</tr>
</table>
</TD>
</TR>
<TR vAlign=top> </TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR bgColor=#000000>
<TD align=middle colSpan=4 height=2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
<script src="../footnote.js" class="Small" ></script>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -