Перенос фокуса и оставление закладки в DBGrid

@MBoom · Регистрация: 08.05.2016

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

Нужно перенести фокус на запись с определенными свойствами и её зафиксировать, так чтоб была возможность напечатать несколько билетов.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var i,k:integer;
begin
 
try
for I := 2 to 51 do
 
  if (Components[i] is TPanel)  then
    if (Tpanel(Components[i]).Color=clRed)
      and (Tpanel(Components[i]).BorderStyle=bsSingle)
        then
          Begin
              ShowMessage('Ряд '+Tpanel(Components[i]).hint+' Место '+Tpanel(Components[i]).Caption);
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Add('UPDATE '+StringToOleStr(ADOQuery2.FieldByName('Код_спектакля').Value)+' SET Бронь="Занято" ');
               ADOQuery1.SQL.Add(' WHERE (Ряд = '+Tpanel(Components[i]).hint+') and ( Место= '+Tpanel(Components[i]).Caption+' ) ');
               ShowMessage(ADOQuery1.SQL.Text);
               ADOQuery1.Active:=true;
 
             End;
 
 
 
Except
           ADOQuery1.SQL.Clear;
           ADOQuery1.SQL.Add('Select * From '+StringToOleStr(ADOQuery2.FieldByName('Код_спектакля').Value));
           ADOQuery1.Active:=true;
 
 
end;

@krapotkin · 23.06.2016, 20:22

а что, вам жалко второй компонент ADOQuery положить на форму?
один для чтения, один для записи

Добавлено через 4 минуты
в программе очевиден неправильный подход, когда данные хранятся на экране
цвет компонента чего-то там обозначает, место компонента и т.д.

при этом часть даных берется из базы, часть с экрана
и мы уже имеем адский трэш

а если нарисовать другую форму? все перстанет работать, потому что нет компонента Label1 красного цвета?

данные нужно хранить в структурах данных
либо в переменных, списках, массивах, либо в открытых датасетах как у вас
последний способ нынче почти совсем мертв...

и иметь процедуры - "отобразить текущее состояние данных на экране"
и "изменить текущие данные посредством компонентов на экране"
тогда не будет такого странного кода

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	23.06.2016, 20:22
	а что, вам жалко второй компонент ADOQuery положить на форму? один для чтения, один для записи Добавлено через 4 минуты в программе очевиден неправильный подход, когда данные хранятся на экране цвет компонента чего-то там обозначает, место компонента и т.д. при этом часть даных берется из базы, часть с экрана и мы уже имеем адский трэш а если нарисовать другую форму? все перстанет работать, потому что нет компонента Label1 красного цвета? данные нужно хранить в структурах данных либо в переменных, списках, массивах, либо в открытых датасетах как у вас последний способ нынче почти совсем мертв... и иметь процедуры - "отобразить текущее состояние данных на экране" и "изменить текущие данные посредством компонентов на экране" тогда не будет такого странного кода 0