| 订阅 | 在线投稿
分享
 
 
 

TDBGrid控件中对多个记录的处理

来源:互联网网民  宽屏版  评论
2008-06-01 01:57:36

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);

TDBGrid控件中对多个记录的处理
更多内容请看数据库处理专题专题,或

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
  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] 更多内容请看数据库处理专题专题,或
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有