VPF::ADOQuerty + DBGrid - MultiSelect - Форум программистов

uranpro

Дата 4.6.2008, 10:21 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

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

ADOQuerty + DBGrid - MultiSelect

включил опцию у таблицы Multiselect, выделяются Ctrl`ом. как получить данные выделенных строк ? и где они хранятся ?

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

I want a perfect soul

Frees

Дата 4.6.2008, 13:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

примерно так можно использовать мульти селект

Код


procedure TForm1.DelSelect(DBGrid: TDBGridEh);
var
  I: Integer;
begin
  DBGrid.SetFocus;
  if DBGrid.Selection.Rows.Count < 2 then
  begin
     DBGrid.DataSource.DataSet.Delete;
  end else
  begin
    DBGrid.DataSource.DataSet.DisableControls;
    DBGrid.SaveBookmark;
    try
      for i := 0 to DBGrid.Selection.Rows.Count - 1 do
      begin
        DBGrid.DataSource.DataSet.GotoBookmark(Pointer(DBGrid.SelectedRows.Items[i]));
        DBGrid.DataSource.DataSet.Delete;
      end;
    finally
      DBGrid.RestoreBookmark;
      DBGrid.DataSource.DataSet.EnableControls;
      end;
  end;
end;

Это сообщение отредактировал(а) Frees - 4.6.2008, 13:24

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

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

uranpro

Дата 4.6.2008, 13:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

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

что значит эта строчка ?

Код


DBGrid.DataSource.DataSet.Delete;

это какой-то инспектор ?

Код


procedure TForm1.DelSelect(DBGrid: TDBGridEh);

Код


DBGrid.DataSource.DataSet.GotoBookmark(Pointer(DBGrid.SelectedRows.Items[i]));
// тут я могу обратиться к ADOQuerty ? т.е. к его полю.
DBGrid.DataSource.DataSet.Delete;

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

I want a perfect soul

pseud

Дата 4.6.2008, 14:00 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

uranpro, это пример удаления выделенных записей.
DelSelect - это просто название процедуры.
процедура вызывается допустим по нажатию кнопки.
DBGrid.DataSource.DataSet - это в твоем случае действительно твой ADOQuery, а не ADOQuerty )))
и ты можешь обратиться к полю так:

Код


DBGrid.DataSource.DataSet.FieldByName('имя поля').AsString...

Добавлено через 4 минуты и 1 секунду
в принципе все

Код


DBGrid1.DataSource.DataSet

ты можешь заменить на

Код


ADOQuery1

пример Frees, универсален.
только для разгрузки кода я бы написал:

Код


procedure TForm1.DelSelect(DBGrid: TDBGridEh);
var
  I: Integer;
  ds: TDataSet;
begin
  ds := DBGrid.DataSource.DataSet;
  DBGrid.SetFocus;
  if DBGrid.Selection.Rows.Count < 2 then
  begin
     ds.Delete;
  end else
  begin
    ds.DisableControls;
    DBGrid.SaveBookmark;
    try
      for i := 0 to DBGrid.Selection.Rows.Count - 1 do
      begin
        ds.GotoBookmark(Pointer(DBGrid.SelectedRows.Items[i]));
        ds.Delete;
      end;
    finally
      DBGrid.RestoreBookmark;
      ds.DataSet.EnableControls;
    end;
  end;
end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

uranpro

Дата 4.6.2008, 15:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

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

понятно))

Код


ds.GotoBookmark(Pointer(DBGrid.SelectedRows.Items[i]));
// я тут могу написать edit1.text:=qpriceName.value;  ? т.е. этот цикл на этом месте делает скролинг по выделенным строкам ?
ds.Delete;

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

I want a perfect soul

pseud

Дата 4.6.2008, 15:56 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

Цитата(uranpro @ 4.6.2008, 15:37

)

т.е. этот цикл на этом месте делает скролинг по выделенным строкам ?

да, в этом месте идет скроллинг по строкам в датасете в соответствии с выделением в гриде

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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