Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Ответ:

Table1.Edit;

Table1.FieldByName(DBEdit1.FieldName).Clear;

Тема: TDBGrid и множественный выбор записей (Multi-Selecting Records)

При включении флажка [dgMultiSelect] в свойстве-наборе Options компонента DBGrid, вы добавляете к табличной сетке возможность множественного выбора записей.

Выбранные вами записи представлены в виде закладок и храняться в свойстве SelectedRows.

Свойство SelectedRows является объектом, имеющим тип TBookmarkList. Его свойства и методы описаны ниже.

// property SelectedRows: TBookmarkList read FBookmarks;

// TBookmarkList = class

// public

{* Метод Clear освобождает все выбранные в DBGrid записи *}

// procedure Clear;

{* Метод Delete удаляет все выбранные строки из набора данных *}

// procedure Delete;

{* Метод Find определяет наличие закладки в выбранном списке. *}

// function Find(const Item: TBookmarkStr;

// var Index: Integer): Boolean;

{* Метод IndexOf возвращает индекс закладки, расположенной в свойстве Items. *}

// function IndexOf(const Item: TBookmarkStr): Integer;

{* Метод Refresh возвращает логическую величину, уведомляющую о том, что в то время, пока в табличной сетке была выбрана запись, были добавлены (удалены) какие-то данные. Метод Refresh может быть использован для обновления списка выбранных записей для уменьшения возможности получения удаленной записи. *}

// function Refresh: Boolean; True = orphans found

{* Свойство Count возвращает количество выбранных в настоящий момент элементов в DBGrid *}

// property Count: Integer read GetCount;

{* Свойство CurrentRowSelected содержит логическую величину, зависящую от того, выбрана текущая строка или нет. *}

// property CurrentRowSelected: Boolean

// read GetCurrentRowSelected

// write SetCurrentRowSelected;

{* Свойство Items – TStringList TBookmarkStr *}

// property Items[Index: Integer]: TBookmarkStr

// read GetItem; default;

// end;

unitUnit1;

interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

typeTForm1 = class(TForm)

Table1: TTable;

DBGrid1: TDBGrid;

Count: TButton;

Selected: TButton;

Clear: TButton;

Delete: TButton;

Select: TButton;

GetBookMark: TButton;

Find: TButton;

FreeBookmark: TButton;

DataSource1: TDataSource;

procedureCountClick(Sender: TObject);

procedureSelectedClick(Sender: TObject);

procedureClearClick(Sender: TObject);

procedureDeleteClick(Sender: TObject);

procedureSelectClick(Sender: TObject);

procedureGetBookMarkClick(Sender: TObject);

procedureFindClick(Sender: TObject);

procedureFreeBookmarkClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Bookmark1: TBookmark;

z: Integer;

implementation

{$R *.DFM}

//Пример использования свойства Count

procedureTForm1.CountClick(Sender: TObject);

begin

ifDBgrid1.SelectedRows.Count > 0 then begin

showmessage(inttostr(DBgrid1.SelectedRows.Count));

end;

end;

//Пример использования свойства CurrentRowSelected

procedureTForm1.SelectedClick(Sender: TObject);

begin

ifDBgrid1.SelectedRows.CurrentRowSelected thenshowmessage('Выбрана');

end;

//Пример использования метода Clear

procedureTForm1.ClearClick(Sender: TObject);

begin

dbgrid1.SelectedRows.Clear;

end;

//Пример использования метода Delete

procedureTForm1.DeleteClick(Sender: TObject);

begin

DBgrid1.SelectedRows.Delete;

end;

{*Данные пример проходит в цикле все выбранныезаписи табличной сетки и отображает второеполе набора данных.

Метод DisableControls используется в случае,когда необходимо запретить обновление DBGridпри изменении набора данных. Последняя позициянабора данных сохраняется как TBookmark.

Метод IndexOf вызывается при необходимостипроверить существование закладки.Решение использовать метод IndexOf, а неRefresh, должно приниматься исходя изспецифики приложения.*}

procedureTForm1.SelectClick(Sender: TObject);

var

x: word;

TempBookmark: TBookMark;

begin

DBGrid1.Datasource.Dataset.DisableControls;

withDBgrid1.SelectedRows do ifCount > 0 then begin

TempBookmark:= DBGrid1.Datasource.Dataset.GetBookmark;

forx:= 0 toCount - 1 do begin