Сумма столбца грида без sql

@kris__tina · Регистрация: 05.06.2011

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

Подскажите, пожалуйста

, как подсчитать сумму столбца DBGrid'a, в TEdit не используя sql? ..... Только можно поподробнее, что и в какое св-во вставлять? Есть ADOConnection, ADOTable и Datasource, Edit, DBGrid.......Сенкью

@SAMZ · 08.06.2011, 08:57

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

как подсчитать сумму столбца DBGrid'a, в TEdit не используя sql

У объекта TDBGrid нет встроенных функций подсчета сумм столбцов. Поэтому это надо делать ручками организуя цикл по набору данных DBGrid. Например, так

Delphi
1
2
3
4
5
6
DBGrid.DataSource.DataSet.First;
S := 0;  //S - это переменная в которой будем накапливать сумму
while not DBGrid.DataSource.DataSet.Eof do begin
  S := S + DBGrid.DataSource.DataSet.FieldByName('здесь имя поля суммируемой колонки').Value;
  DBGrid.DataSource.DataSet.Next;
end;

Но вообще-то вычислять таким образом в БД суммы и другие агрегаты - это глупость великая есть.

@kris__tina · 08.06.2011, 10:47 **[ТС]**

А в моем случае можно как- нибудь использовать sql? Просто программа почти готовая, осталось только это и еще там одна штука, но о ней позже спрошу, как дойду

.....Так можно ли мне к проекту подключить просто query, соедененный с таблицой, которую надо посчитать(точнее ее столбец) и там прописать запрос??? Или это не целесообразно???.....SAMZ, спасибо за ответ, но не могли бы вы сказать в какую процедуру это писать? По какому событию она должна быть???

...Спасибо!!!!

@SAMZ · 08.06.2011, 10:56

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

Так можно ли мне к проекту подключить просто query, соедененный с таблицой, которую надо посчитать(точнее ее столбец) и там прописать запрос???

Можно! Только одна поправочка. Объект query (или точнее TADOQuery) не "соединяют" с таблицей, а с войстве SQL этого объекта прописывают запрос которы должен вернуть Вам требуемую информацию. Судя по характеру Ваших вопросов Вам это будет сделать трудно. Сообщите имя таблицы, которой Вы работаете в ADOTable и имя поля, сумму которого необходимо показать. Попробую (или попробуем) помочь.

@kris__tina · 08.06.2011, 11:09 **[ТС]**

Вообще у меня 3 таблицы на форме, они связаны между собой. (Напишу какие, вдруг понадобится). 1-Izdelie(npp, name), вторая: model(npp,name,kriterii,teholog, npp_iz(связана по этому полю с первой табл), pp_pos(по этому полю связана с третьей)) ну и третья таблица, где надо посчитать сумму столбца(npp, name, vid,razr, sek, npp_mod ). Должно просчитываться поле : sek, т.е. общее время затраченное на одну модель.....Буду очень благодарна, если сможете помочь!!!

@SAMZ · 08.06.2011, 11:37

Правильно ли я Вас понял: npp - имя таблицы? И вопрос, а sek - поле какого типа? Если целое, то на форму "кидаете" экземпляр объекта TADOQuery. В нем надо указывать строку соединения точно такую же, как в ADOTable. Далее в свойстве SQL прописать

SQL
1
SELECT SUM(sek) SEK FROM NPP

Для ADOTable пишете обработчик на событие AfterOpen и в нем

Delphi
1
2
ADOQuery.Close;
ADOQuery.Open;

Поле SEK в наборе ADOQuery после открытия будет содержать искомую сумму.
Если необходимо отобразить это значение в Edit, то можно написать для ADOQuery обработчик AfterOpen и в нем

Delphi
1
EDIT.Text := ADOQuery.FieldByName('SEK').AsString;

Можно и по другому: использовать компоненты напрямую связанные с БД (например TDBEDIT) и иогда любые изменения в ADOQuery отобразятся автоматически.
Если объект ADOTable предполагается редактируемым и изменения должны в реальном времени отображаться в ADOQuery, то обработчик ADOTable для события AfterOpen необходимо прописать в событиях AfterPost и AfterDelete.
Один совет: если Вы предполагаете когда-либо заниматься этим профессионально, отвыкайте от использования объектов TADOTable. Для формирования любых на,оров достаточен TADOQuery

@kris__tina · 08.06.2011, 12:53 **[ТС]**

Все моя невнимательность!!!. Нет, имя таблицы не npp, а Posled. Ну, это понятно, что в том коде, что вы написали вместо "npp" написать "posledЭююю Да, данные могут меняться, как в самом поле, так еще и удаление с добавлением тоже будут иметь место...... Работать по этой професси я дальше не буду, во всяком случае точно не программистом, я знаю свои силы, и это явно не мое

. Спасибо вам большое!

Комментарий модератора

Пж-та! Буду рад, если это Вам поможет!

Добавлено через 1 час 2 минуты
SAMZ, там, где прописывается sql запрос что-то неверно. Выскакивает сообщение "Ошибка синктасиса, пропущен оператор в выражении запроса 'sum(sek) SEK' ".....B скажите, пожалуйста, надо ли в activ query ставить значение true?

@SAMZ · 08.06.2011, 13:19

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

там, где прописывается sql запрос что-то неверно

Покажите текст запроса (что вы прописали в SQL)

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

скажите, пожалуйста, надо ли в activ query ставить значение true

Достаточно использовать Open

@kris__tina · 08.06.2011, 17:22 **[ТС]**

SELECT sum(sek) SEK FROM posled......В connection ADOConnection

Добавлено через 2 часа 22 минуты
Разобралась. После указания поля в скобках не надо было его дублировать!

Добавлено через 1 час 12 минут
Все равно не работает

.... Пишет что в ADOQuery sek not found.....А как он может быть не найден?.....Описываю свои действия:
1) На форму кидаю ADOQuery, в Connection указываю ADOConnection(он 1 на форме и все таблицы подключены к нему)
2)Перехожу к ADOTable3, захожу на вкладку events, два раза кликаю по "AfterOpen " и там пишу:

ADOQuery.Close;
ADOQuery.Open; и еще вот это: DBEDIT2.Text := ADOQuery.FieldByName('SEK').AsString; (Обратите внимание, что я изменила Edit на DBEdit, т.к. мне надо, что бы данные, отображались автоматически при изменении....Или этот код только для ТEdit подходит?)

3) Потом в этом же ADOTable3 жму на события AfterPost и AfterDelete. и там прописываю тоже самое.

Все так, или я ступила где?...И исправте, пожалуйста, если неверно

@SAMZ · 08.06.2011, 18:25

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

После указания поля в скобках не надо было его дублировать

Ну это чешуя. Я сам с акцесом не работаю, но допускаю, что там не допускается опускать ключевое слово AS. Конструкция

SQL
1
SELECT SUM(sek) SEK

означает "извлечь сумму поля sek и эту сумму именовать sek" Называется это алиас имени поля. Попобуйте так

SQL
1
SELECT SUM(sek) AS SEK FROM posled

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

и еще вот это: DBEDIT2.Text := ADOQuery.FieldByName('SEK').AsString;

Во первых в вашей редакции запроса в результирующем наборе никакого SEK нет
Во вторых что это за присвоение такое. Чушь полная. Вам надо бросить на форму еще один DataSource в его свойстве DataSet указать ADOQuery, этот DataSource указать в соответствующем свойстве DBEDIT2 и в нем же в качестве поля Field задать SEK. Если все правильно сделаете, то имя поля SEK появится в выпадающем списке.

@kris__tina · 09.06.2011, 00:05 **[ТС]**

Ух-ты!!!! Работает!!! Спасибо огромное. Вот правда значения при добавлении и удалении не меняются! В ADOTable3 в событиях AfterPost и AfterDelete прописала
ADOQuery.Close;
ADOQuery.Open;.....как вы и советовали. Что опять не так? Надеюсь, что я вам еще не надоела?

Добавлено через 3 часа 33 минуты
В TDBEdit сумму столбца считает, но зато в самом гриде столбец выглядит пустым. Проверила БД, там все на месте. Это может быть из-за того, что в столбце sek, не все поля заполнены? Потому что у меня в таблице идет, допустим, "обработка спинки изделия" а дальше идут те поля, которые заполнены именно последовательностью операции обработки спинки. Время стоит только в последовательности. А "Обработка спинки" это просто обобщенное название этих последовательностей. Или это не влияет?

Добавлено через 1 час 21 минуту
Тупанула, не изменила columns в grid, вот и не показывались секунды. И все-таки при добавлении и удалении рез-тат не обновляется.

@SAMZ · 09.06.2011, 06:35

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

И все-таки при добавлении и удалении рез-тат не обновляется.

Мне трудно что-либо посоветавать, я с АДО не работаю, но там должны быть возможности завершить транзакцию. Посмотрите хелп.

@kris__tina · 09.06.2011, 10:48 **[ТС]**

Ok, посмотрю. На этом тему можно закрывать. Спасибо вам ОГРОМНЕЙШЕЕ, SAMZ, вы мне очень помогли!!!

@MsGuns · 09.06.2011, 11:50

Неявно старт и подтверждение/откат) транзакций в АДО определяется параметрами класса TADOConnection (Mode + IsolationLevel), значения по умолчанию которых зависят о типа СУБД. Часто вполне годятся те, что выставляются автоматом, однако бывает, что на клиенте надо обеспечить целостность базы при попытке выполнить многоступенчатые, многотабличные изменения, по каким-либо причинам не включенным в состав бизнес-логики сервера (например для акцеса, в котором сервера как такового и нет вовсе).
Например при массовых изменениях вида Query-by-query, т.е. отдельный запрос на добавление/удаление/изменение каждой записи некоторого подмножества записей таблицы или серии апдейтов в нескольких логически связанных таблицах, когда в случае первой же ошибки нужно аннулировать все, что было изменено с самого начала. Т.е. должен сработать принцип "Или все или ничего !".

В ADO для явного управления транзакиями в основном используется класс TADOConnection и его методы BeginTrans и RollbackTrans, а также св-ва IsolationLevel и Mode. Для "тонкого" управления используется т.н. асинхронный режим взаимодействия клиента с сервером и св-во InTansaction, а также метод Cancel, с помощью которых можно "мониторить" ход исполнения цепочек запросов и влиять на него.

Вообще же управление транзакциями и (особенно !) асинхронность - отдельная тема, достаточно интересная и непростая, РТФМ далеко выходящая за рамки ВУЗ (к сожалению), но весьма актуальная при разработке профессиональных "базовых" приложений.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21

	Сумма столбца грида без sql 08.06.2011, 00:46. Показов 18179. Ответов 13 Метки нет (Все метки) Подскажите, пожалуйста, как подсчитать сумму столбца DBGrid'a, в TEdit не используя sql? ..... Только можно поподробнее, что и в какое св-во вставлять? Есть ADOConnection, ADOTable и Datasource, Edit, DBGrid.......Сенкью 0

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21
	08.06.2011, 10:47 [ТС]
	А в моем случае можно как- нибудь использовать sql? Просто программа почти готовая, осталось только это и еще там одна штука, но о ней позже спрошу, как дойду.....Так можно ли мне к проекту подключить просто query, соедененный с таблицой, которую надо посчитать(точнее ее столбец) и там прописать запрос??? Или это не целесообразно???.....SAMZ, спасибо за ответ, но не могли бы вы сказать в какую процедуру это писать? По какому событию она должна быть???...Спасибо!!!! 0

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21
	08.06.2011, 11:09 [ТС]
	Вообще у меня 3 таблицы на форме, они связаны между собой. (Напишу какие, вдруг понадобится). 1-Izdelie(npp, name), вторая: model(npp,name,kriterii,teholog, npp_iz(связана по этому полю с первой табл), pp_pos(по этому полю связана с третьей)) ну и третья таблица, где надо посчитать сумму столбца(npp, name, vid,razr, sek, npp_mod ). Должно просчитываться поле : sek, т.е. общее время затраченное на одну модель.....Буду очень благодарна, если сможете помочь!!! 0

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21
	08.06.2011, 17:22 [ТС]
	SELECT sum(sek) SEK FROM posled......В connection ADOConnection Добавлено через 2 часа 22 минуты Разобралась. После указания поля в скобках не надо было его дублировать! Добавлено через 1 час 12 минут Все равно не работает.... Пишет что в ADOQuery sek not found.....А как он может быть не найден?.....Описываю свои действия: 1) На форму кидаю ADOQuery, в Connection указываю ADOConnection(он 1 на форме и все таблицы подключены к нему) 2)Перехожу к ADOTable3, захожу на вкладку events, два раза кликаю по "AfterOpen " и там пишу: ADOQuery.Close; ADOQuery.Open; и еще вот это: DBEDIT2.Text := ADOQuery.FieldByName('SEK').AsString; (Обратите внимание, что я изменила Edit на DBEdit, т.к. мне надо, что бы данные, отображались автоматически при изменении....Или этот код только для ТEdit подходит?) 3) Потом в этом же ADOTable3 жму на события AfterPost и AfterDelete. и там прописываю тоже самое. Все так, или я ступила где?...И исправте, пожалуйста, если неверно 0

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21
	09.06.2011, 00:05 [ТС]
	Ух-ты!!!! Работает!!! Спасибо огромное. Вот правда значения при добавлении и удалении не меняются! В ADOTable3 в событиях AfterPost и AfterDelete прописала ADOQuery.Close; ADOQuery.Open;.....как вы и советовали. Что опять не так? Надеюсь, что я вам еще не надоела? Добавлено через 3 часа 33 минуты В TDBEdit сумму столбца считает, но зато в самом гриде столбец выглядит пустым. Проверила БД, там все на месте. Это может быть из-за того, что в столбце sek, не все поля заполнены? Потому что у меня в таблице идет, допустим, "обработка спинки изделия" а дальше идут те поля, которые заполнены именно последовательностью операции обработки спинки. Время стоит только в последовательности. А "Обработка спинки" это просто обобщенное название этих последовательностей. Или это не влияет? Добавлено через 1 час 21 минуту Тупанула, не изменила columns в grid, вот и не показывались секунды. И все-таки при добавлении и удалении рез-тат не обновляется. 0

@kris__tina 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 21
	09.06.2011, 10:48 [ТС]
	Ok, посмотрю. На этом тему можно закрывать. Спасибо вам ОГРОМНЕЙШЕЕ, SAMZ, вы мне очень помогли!!! 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	09.06.2011, 11:50
	Неявно старт и подтверждение/откат) транзакций в АДО определяется параметрами класса TADOConnection (Mode + IsolationLevel), значения по умолчанию которых зависят о типа СУБД. Часто вполне годятся те, что выставляются автоматом, однако бывает, что на клиенте надо обеспечить целостность базы при попытке выполнить многоступенчатые, многотабличные изменения, по каким-либо причинам не включенным в состав бизнес-логики сервера (например для акцеса, в котором сервера как такового и нет вовсе). Например при массовых изменениях вида Query-by-query, т.е. отдельный запрос на добавление/удаление/изменение каждой записи некоторого подмножества записей таблицы или серии апдейтов в нескольких логически связанных таблицах, когда в случае первой же ошибки нужно аннулировать все, что было изменено с самого начала. Т.е. должен сработать принцип "Или все или ничего !". В ADO для явного управления транзакиями в основном используется класс TADOConnection и его методы BeginTrans и RollbackTrans, а также св-ва IsolationLevel и Mode. Для "тонкого" управления используется т.н. асинхронный режим взаимодействия клиента с сервером и св-во InTansaction, а также метод Cancel, с помощью которых можно "мониторить" ход исполнения цепочек запросов и влиять на него. Вообще же управление транзакциями и (особенно !) асинхронность - отдельная тема, достаточно интересная и непростая, РТФМ далеко выходящая за рамки ВУЗ (к сожалению), но весьма актуальная при разработке профессиональных "базовых" приложений. 1