Техник
 Аватар для DenProx
318 / 176 / 27
Регистрация: 09.10.2009
Сообщений: 3,109

Компонент ТQuery

11.10.2009, 10:39. Показов 3547. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток. У меня такой вот вопрос: как у компонетнта Query работать с вычислительным столбцом. Вот например в Table работает такая формула:
Delphi
1
Table1['Plotn']:= Table1['Population']/Table1['Area'];
А как сделать тоже самое, но для Query?

Заранее спасибо

Добавлено через 1 час 5 минут
Прошу прощения за предыдущий пост уже разобрался, что все также и работает, просто сама программа заглючила
Но проблему свою не решил, вот код моей задачи:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm2.Query1CalcFields(DataSet: TDataSet);
var ASum: integer;
begin
ASum:=0;
with Query1 do Begin
DisableControls;
Close;
Open;
repeat
  ASum:= ASum+Query1SIZE.Value;
  next;
until EOF;
 First;
 EnableControls;
end;
Query1Total.Value:= (ASum div 2) - Query1WEIGHT.Value;
end;
Почему происходит зацыкливание, и Дельфи виснет, после запуска? причем закрыть потом можно только через Диспечер задач.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.10.2009, 10:39
Ответы с готовыми решениями:

Массив: Подсчитать сумму положительных чётных компонент и число отрицательных компонент.
Вычислить компоненты вектора X по формуле: sin(i^2-1), если i - чётное X={ i^3+i^2+i+1, если i - нечётное ...

Найти в векторе количество отрицательных компонент среди компонент с нечётными номерами
Для заданного вектора a= найти количество отрицательных компонент среди компонент с нечётными номерами. Вектор a= Заранее спасибо!

Ввести файл из 13 компонент. Определить в нём сумму модулей отрицательных компонент
Помогите с написанием программы и составлением блок-схемы: Ввести файл из 13 компонент. Определить в нём сумму модулей отрицательных...

20
Техник
 Аватар для DenProx
318 / 176 / 27
Регистрация: 09.10.2009
Сообщений: 3,109
14.10.2009, 16:30  [ТС]
Студворк — интернет-сервис помощи студентам
Нашел выход проще, просто удалил кнопки у ДБНавигатора добавить и удалить Спасибо за помощь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.10.2009, 16:30
Помогаю со студенческими работами здесь

Условие в цикле if (существует компонент) либо if (выделено место под компонент)
условие в цикле if (существует компонент) либо if (выделено место под компонент) TListBox * lbx2; //обьявил локально ...

Записать в файл G наибольшее значение из первых 5 компонент, затем - следующих 5 компонент и т.д
Дан файл F, компоненты которого являются целыми числами. Записать в файл G наибольшее значение из первых 5 компонент, затем - следующих 5...

Найти наименьшую из нечетных компонент вектора и наибольшую из четных компонент
Найти наименьшую из нечетных компонент вектора и наибольшую из четных компонент. Если они имеют разные знаки, то вычислить сумму элементов...

Вычисление суммы компонент файла и поиск наименьших его компонент
Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и наименьшие...

Найти сумму компонент, модуль суммы и квадрат произведения компонент файла вещественных чисел
Дан файл f, компоненты которого являются действительными числами. Найти при помощи подпрограммы общего вида А) сумму компонет файла Б)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Опции темы

Новые блоги и статьи
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru