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, всё, уже не нужно, я разобралась со всем.
Ещё раз большое вам спасибо за помощь! Очень Вам признательна!

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@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