Несколько вопросов по работе с DBGrid'ом

@scroyler · Регистрация: 01.08.2011

Студворк — интернет-сервис помощи студентам

Возник такой вопрос.
1)Я перехожу на следующую строку грида с помощью

Delphi
1
Dbgrideh1.DataSource.DataSet.Next;

а как сделать так же только, что бы переходило только по тем строкам в которых отмечена галочка,поле называется V,компонент DBGridEh.
2)Как удалить/добавить программно строку,но только так , что бы нумерация строк после удаления не нарушалась.

@MsGuns · 22.03.2012, 14:19

Есть несколько способов:
1) Вычисление на сервере.
Вместо TxxTable используется TxxQuery, в текст запроса котого добавляется поле-функция
Например:
Select *, quont*price as Summ from Sklad
На клиент возвращаются все поля таблицы (как в TxxTable) + одно доп. "виртуальное" поле. Отображается это вирт.поле абсолютно также, как и "реальные"

2) Вычисление на клиенте.
2.1) Использование калькулируемых полей
Формула вычислений либо "вшивается" на этапе дизайна (см.редактор полей в TDataSet), либо задается динамически кодом через использование события OnCalcFields.
2.2) Вычисление при отображении
Выбирается некоторая колонка датасета, которую не надо отображать (например, колонка с полем счетчика или идентификатора записи, обычно не показываемое пользователю) и "назначается" для отображения результата вычисления,- в этом случае для этого поля создается обработчик OnGetText (в дизайне доступно через редактор полей - двойной "клик" на компоненте - наследнике TDataSet, например TxxTable), в теле обработчика пишется код. Например:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Table1IDGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
var
  DS: TDataSet;
  res: extended;
begin
  DS := Sender.DataSet;
  res := DS.FieldByName('QUANT') * DS.FieldByName('PRICE');
  Text := Format('%10.2f' ,[res]); 
end;

После этого колонка сетки, отображавшая ранее счетчик, будет показывать расчетную сумму товара, теперь в дизайне же меняем надпись (Title.Caption) и перетаскиваем саму колонку в удобное для просмотра место (например сразу за колонками "Цена" и "Кол-во")

@YomiTakanashi · 22.03.2012, 14:19

спасибо, попробую

@MsGuns · 22.03.2012, 14:21

Поправка:

Delphi
1
res := DS.FieldByName('QUANT').AsFloat * DS.FieldByName('PRICE').AsFloat;

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@YomiTakanashi 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 31
	22.03.2012, 14:19
	спасибо, попробую 0