VPF::Checkboxes в Dbgrid - Форум программистов

MadCoder

Дата 16.5.2008, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: нет
Всего: 2

Здравствуйте!

Помогите с DbgridEh. Я выгружаю из БД данные в DbgridEh, пользователь их смотрит, выбирает галочками нужные (checkboxes), нажимает кнопку "Ок" и данные грузятся дальше. Как мне сделать checkboxes и как выгрузить данные из таблицы, отмеченные чекбоксами?

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Frees

Дата 16.5.2008, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

я это делал так:

у дата сета добовляю вычислимое поле где храню галку при клике по гриду и по этому полю записываю ИД текущей записи в список а в событий вычисления поля смотрю если идешник есть в списке то вычислимому полю присваиваю true в итоге у меня есть список выбранных ИД

суть такая если что не понятно спрашивай

Это сообщение отредактировал(а) Frees - 16.5.2008, 10:47

--------------------

Кольцов Виктор Владимирович

MadCoder

Дата 16.5.2008, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: нет
Всего: 2

Вот мой датасет:

SearchResult_Table.DataSource.DataSet

Как мне туда добавить вычисляемое поле и как отловить клик и присвоить значение?

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Frees

Дата 16.5.2008, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

а вычислимое поле в дизигн тайме добавь

Код


private 
 ListId := TStringList;
.....

procedure TForm1.Create(Sender: TObject);
begin
  ListId := TStringList.Create;
end;
procedure TForm1.CalcFields(DataSet: TDataSet);//событие OnCalcFields у дата сета
var Index: string;
begin
  Index := IntToStr(DataSet.FieldByName('ID').asInteger);
  DataSet.FieldByName('CHECK').AsBoolean := ListId.IndexOf(Index) <> -1;
end;

procedure TForm1.DBGridCellClick(Column: TColumnEh);//событие клика по колонке грида
var valС: string;
 Id: string;
begin
  if Column.FieldName = 'CHECK' then begin
     Id := IntToStr(DataSet.FieldByName('ID').asInteger);
     if ListId.IndexOf(Id)>0 then
        ListId.Delete(ListId.IndexOf(Id))
     else
        ListId.add(id);
  end;
end;

Это сообщение отредактировал(а) Frees - 16.5.2008, 11:26

--------------------

Кольцов Виктор Владимирович

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »