Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
Техник
 Аватар для DenProx
318 / 176 / 27
Регистрация: 09.10.2009
Сообщений: 3,109

Компонент ТQuery

11.10.2009, 10:39. Показов 3504. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru