在Form中增加TADOConnection、TADOQuery、TDataSource、TDBGrid组件并设置他们之间的关系
设置TDBGrid属性
dgEditing:=False
dgRowSelect:=True
dgAlwaysShowSelection:=True;
dgMultiSelect:=True;
procedure TForm1.Button1Click(Sender: TObject);
Var
BookMark : TbookMark;
vNum : Integer;
begin
For vNum:=0 To DBGridEh1.SelectedRows.Count-1 Do
Begin
DBGridEh1.Datasource.Dataset.Bookmark:=DBGridEh1.SelectedRows.Items[vNum];
BookMark:= DBGridEh1.Datasource.Dataset.GetBookmark;
DBGridEh1.Datasource.Dataset.GotoBookmark(Bookmark);
ShowMessage(DBGridEh1.Datasource.Dataset.FieldByName('ProductName').AsString);
DBGridEh1.Datasource.Dataset.FreeBookmark(Bookmark);
End;
end;
|
