Delphi: DBGrid - вычисление полей

@Lacrimossa · Регистрация: 27.11.2010

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

Это опять я... (ну или всё ещё?)
В общем, например, в таблице есть 4 поля. Первое ID, а чётвёртое поле является произведением 2 и 3 поля.

Как реализовать хотябы такую элементарщину?

Вот пишу такой вот код в Query1, но жалуется на SELECT почему-то:

Code
1
2
3
4
5
6
7
8
SELECT     
GLAV.'ID', 
GLAV.'Pole1', 
GLAV.'Pole2',
Pole1*Pole2 AS 'Result'
 
FROM  
'GLAV.DB' GLAV

@new_in_net · 20.04.2011, 20:22

Сообщение от Lacrimossa

Но он почему-то во второй таблице для ВСЕХ записей в полях Itog1 и Itog2 ставит вычисленные результаты первой записи... Т.е. не вычисляет их для каждой. Почему так происходит?

Вычисления Query2CalcFields не нужны - попробуйте без них.
А происходит так потому что вы полю одного датасета присваиваите произведение полей другого датасета, без привязки к записи. Вот и получаете везде один результат...

Сообщение от Lacrimossa

И да, вторая таблица обновляется только после перезапуска программы... Можно ли как-то сделать её обновление, скажем, хотя бы по нажатию кнопки?

Конечно можно по нажатию кнопки (или при изменениях) сделать

Delphi
1
Query1.Close; Query1.Open;

@Lacrimossa · 20.04.2011, 20:30 **[ТС]**

Вычисления Query2CalcFields не нужны - попробуйте без них.

Без них эти два поля вообще пустые =___=

А происходит так потому что вы полю одного датасета присваиваите произведение полей другого датасета, без привязки к записи. Вот и получаете везде один результат...

А как привязку то сделать?

Конечно можно по нажатию кнопки (или при изменениях) сделать

Благодарю

Добавлено через 24 секунды

Вычисления Query2CalcFields не нужны - попробуйте без них.

Без них эти два поля вообще пустые =___=

А происходит так потому что вы полю одного датасета присваиваите произведение полей другого датасета, без привязки к записи. Вот и получаете везде один результат...

А как привязку то сделать?

Конечно можно по нажатию кнопки (или при изменениях) сделать

Благодарю

@new_in_net · 21.04.2011, 00:25

Сообщение от Lacrimossa

Без них эти два поля вообще пустые =___=

Думаю, что оба поля пустые, потому что имеют свойство Calculated выставленное в True. Выставьте это свойство обратно в False и появятся данные.

@Lacrimossa · 21.04.2011, 00:32 **[ТС]**

Думаю, что оба поля пустые, потому что имеют свойство Calculated выставленное в True. Выставьте это свойство обратно в False и появятся данные.

Ээээ... КАК? Где оно находится? Что-то я не могу его найти =__= Стыдно конечно, но уже минуты 2 ищу и в упор не вижу...

@new_in_net · 21.04.2011, 00:38

Сообщение от Lacrimossa

Ээээ... КАК? Где оно находится? Что-то я не могу его найти =__= Стыдно конечно, но уже минуты 2 ищу и в упор не вижу...

Ошибся... менять надо свойство FieldKind = fkCalculated на fkData

doubleclick на TTable/TQuery - откроется редактор полей
Выделяете поле Itog1 и в инспекторе меняете свойство FieldKind на fkData

@Lacrimossa · 21.04.2011, 00:46 **[ТС]**

Эммм... пишет ошибку: Query2: Type mismach for field 'Itog1', expecting: Integer, actual: Float

@new_in_net · 21.04.2011, 01:02

Сообщение от Lacrimossa

Эммм... пишет ошибку: Query2: Type mismach for field 'Itog1', expecting: Integer, actual: Float

Тогда просто удалите все поля - скорее всего вы их добавили по моей инструкции для вычисляемых полей и теперь они вам не нужны.
Либо если они вам нужны - удалите только эти два и потом добавьте еще раз с помошью right click->Add Fields

@Lacrimossa · 21.04.2011, 01:12 **[ТС]**

Тогда просто удалите все поля - скорее всего вы их добавили по моей инструкции для вычисляемых полей и теперь они вам не нужны.

Да, по ней и создавала. Эээ... как это не нужны, а как я результаты расчётов то увижу?

Удалила, но когда пытаюсь теперь снова добавить и сделать их типа ДАТА, то пишет ошибку Data Field not permitted on open dataset.

Что же я не так то делаю... =__=

@new_in_net · 21.04.2011, 01:21

Сообщение от Lacrimossa

Да, по ней и создавала. Эээ... как это не нужны, а как я результаты расчётов то увижу?

Удалила, но когда пытаюсь теперь снова добавить и сделать их типа ДАТА, то пишет ошибку Data Field not permitted on open dataset.

Что же я не так то делаю... =__=

Просто удалите все поля - и все, не надо добавлять заного.
Те вычисляемые в Делфи поля будут поступать теперь извне как самые обычные только Read only поля.

@Lacrimossa · 21.04.2011, 18:13 **[ТС]**

Просто удалите все поля - и все, не надо добавлять заного.
Те вычисляемые в Делфи поля будут поступать теперь извне как самые обычные только Read only поля.

Оооо!!! Ура! Большое вам спасибо!!! Вы снова меня выручили!

Сутра сяду делать уже непосредственно работу

Добавлено через 15 часов 25 минут
А у меня всё как всегда "не слава Богу".
Попыталась прописать простейшие арифметические операции хотя бы в маленьком примере своём:

Code
1
2
3
SELECT ID, Name, Adres, Pole1+Pole2 AS Itog1, Sum(Pole2) AS Itog2
FROM GLAVN
GROUP BY ID, Name, Adres

Но пишет ошибку:
Expressions in group by are not supported.

Пробовала брать в круглые и квадратные скобки всякие - не выходит...
Что мне с этим делать то теперь

Добавлено через 1 час 7 минут
А, нет, это всё из-за моей невнимательности. =_= Теперь пока что всё нормально, даже с моими русскими полями

Прошу прощения за беспокойство.

Добавлено через 12 минут
Так... Но у меня назрел вопрос немного другого плана. Например есть таблица1, в которой есть Поле1 типа Ellipsis с выбором из Таблицы2. (с которым вы мне помогли). В таблице2 есть 3 поля: ID, Имя и Поле_выбора (которое непосредственно выбирается в таблицу1).
Но мне нужно теперь, чтобы в Таблицу 3 теперь автоматически выбиралось поле ИМЯ из таблицы2 в соответствии с выбранным в первую таблицу значением ПОЛЕ_ВЫБОРА.

Как мне это сделать? SELECT-ом как-то?

(Хочется верить, что понятно, что я имела ввиду...) =__=

@new_in_net · 21.04.2011, 21:19

При открытии второй формы надо делать поиск коррекной записи. Для этого используйте Locate

@Lacrimossa · 23.04.2011, 00:12 **[ТС]**

При открытии второй формы надо делать поиск коррекной записи. Для этого используйте Locate

Хорошо, сейчас попробую.

Добавлено через 1 час 6 минут
Всё таки что-то я совсем уж запуталась...
Написала

Code
1
2
3
4
procedure TForm2.FormCreate(Sender: TObject);
begin
Query1.Locate('Тип прокладки','Темп. наружного воздуха',[]);
end;

И что мне это даст? Как теперь сделать, чтобы в итоговой таблице3 на Форме3 отображалось значение Поля? И я вообще не очень то понимаю суть этого Locate-поиска... Он по-моему для каких-то статичных данных...

Добавлено через 3 часа 3 минуты
И ещё с этими искусственными рассчитываемыми полями появилась кое какая проблема: например:

Code
1
2
3
4
5
SELECT ID, Pole1, Pole2,
Pole1*Pole2 AS Pole3,
Pole3-Pole1 AS Itog
 
FROM Table1

Вот эту строчку

Code
1
Pole3-Pole1 AS Itog

уже нельзя рассчитать, пишет 'Invalid fieldname: Pole3'

Оно то как бы и понятно, что не может оно практически несуществующее поле рассчитывать.

Но как тогда быть и что делать в таком случае?

Добавлено через 20 часов 15 минут
А, всё, я со всем остальным разобралась покачто... Остался только этот многострадальный Locate-поиск...

Добавлено через 1 час 46 минут
new_in_net, всё, уже не нужно, я разобралась со всем.
Ещё раз большое вам спасибо за помощь! Очень Вам признательна!

Новые блоги и статьи Все статьи Все блоги /
SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .

@Lacrimossa 3 / 3 / 0 Регистрация: 27.11.2010 Сообщений: 54
	21.04.2011, 00:46 [ТС]
	Эммм... пишет ошибку: Query2: Type mismach for field 'Itog1', expecting: Integer, actual: Float 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	21.04.2011, 21:19
	При открытии второй формы надо делать поиск коррекной записи. Для этого используйте Locate 1