📄 tdbgrid 控 件 中 对 多 个 记 录 .htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
TDBGrid控件中对多个记录的处理
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
TDBGrid 控 件 中 对 多 个 记 录 的 处 理
</h2></font>
<h3>
山 东 济 宁 市 建 设 南 路76 号
<br>
唐 成 斌
</h3>
</center>
<p><font color="#ffffff">----</font>
DELPHI 的TDBGrid 控 件 主 要 用 来 处 理 数 据 表， 它 的 属 性 中 有 一 个dgMultiSelect， 若 此 属 性 设 定 为TRUE， 则 可 以 选 中 多 个 记 录（ 可 用CTRL ＋ 鼠 标 左 键 选 择 多 个 记 录）。 对 选 中 的 多 个 记 录 可 以 有 以 下 几 种 处 理 方 式， 比 较 简 单 的 两 种 是： 清 除 所 有 的 选 择 记 录 可 用DBGrid1.SelectedRows.Clear 语 句; 删 除 所 有 的 选 择 记 录 可 用DBGrid1.SelectedRows.Delete 语 句。 但 如 果 想 获 得 选 中 的 所 有 记 录 的 其 他 信 息， 比 如， 在 单 独 的 一 个 窗 体 中 显 示 用 户 选 择 的 记 录 的 第 一 个 字 段 的 内 容（ 如 所 有 选 择 的 姓 名） 如 何 处 理 呢 ？ 这 就 要 使 用 书 签 功 能 了， 下 面 是 笔 者 编 写 的 一 个 程 序 中 的 过 程， 用 来 将 用 户 选 择 的 多 个 记 录 集 中 显 示 在 另 外 一 个 窗 体 中（ 笔 者 使 用 的 是DELPHI4）, 供 参 考 使 用。
<pre>
procedure GetSelectedRecord
(DataSet : TDataSet; FieldName : String;
BookmarkList : TBookmarkList; Strings : TStrings);
//这个过程中的参数分别为：数据表、字段名称、
书签、用来保存所选字段内容的
//字符串（用于将内容传递到另
一个单独窗体中的TLIST控件中）
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
//每个选择的记录都有一个书签标志，
这就为处理它们提供了条件
for I := 0 to BookmarkList.Count - 1 do begin
Bookmark := BookmarkList[I];
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;
调用举例：
GetSelectedRecord(Table1, 'NAME', DBGrid1.SelectedRows,
Form2.ListBox1.Items);
</pre>
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -