Delphi的TDBGrid控件主要用来处理数据表，它的属性中有一个dgMultiSelect，若此属性设定为TRUE，则
可以选中多个记录（可用CTRL＋鼠标左键选择多个记录）。
对选中的多个记录可以有以下几种处理方式，比较简单的两种是：清除所有的选择记录可用DBGrid1.SelectedRows.Clear语句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但假如想获得选中的所有记录的其他信息，比如，在单独的一个窗体中显示用户选择的记录的第一个字段的内容（如所有选择的姓名）如何处理呢？这就要使用书签功能了，下面是笔者编写的一个程序中的过程，用来将用户选择的多个记录集中显示在另外一个窗体中（笔者使用的是DELPHI4）, 供参考使用。
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); 更多内容请看数据库处理专题专题，或
免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
Delphi的TDBGrid控件主要用来处理数据表，它的属性中有一个dgMultiSelect，若此属性设定为TRUE，则
可以选中多个记录（可用CTRL＋鼠标左键选择多个记录）。
对选中的多个记录可以有以下几种处理方式，比较简单的两种是：清除所有的选择记录可用DBGrid1.SelectedRows.Clear语句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但假如想获得选中的所有记录的其他信息，比如，在单独的一个窗体中显示用户选择的记录的第一个字段的内容（如所有选择的姓名）如何处理呢？这就要使用书签功能了，下面是笔者编写的一个程序中的过程，用来将用户选择的多个记录集中显示在另外一个窗体中（笔者使用的是DELPHI4）, 供参考使用。
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); [url=http://www.wangchao.net.cn/bbsdetail_1785083.html][img]http://image.wangchao.net.cn/it/1323424784761.gif[/img][/url] 更多内容请看数据库处理专题专题，或
订阅
