Автоматическая сумма ячеек

@LOrdshokXDDD · Регистрация: 29.05.2013

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

В новь столкнулся с проблемкой и пришел туда где всегда помогут )
Ребят у меня такая задача нужно что бы из 2х ячеек ячейки цена и количество брались данные перемножались и заносились в ячейку автоматически сумма как это можно реализовать ?
База подключена вот таким образом через ADOQuery

Delphi
1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM premiera');
ADOQuery1.Active:=True;
end;

Как всегда за ранние спасибо с меня+

@Waddonator · 13.12.2013, 18:00

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

а как всё же быть с авто суммой ?

В БД переделать поля kolb и prise с текстовых на числовые, и изменить текст запроса на тот, который мы обговорили.

@LOrdshokXDDD · 13.12.2013, 18:38 **[ТС]**

ок щас попробую ) спасибо )

Добавлено через 13 минут

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

В БД переделать поля kolb и prise с текстовых на числовые, и изменить текст запроса на тот, который мы обговорили.

за работало но увы подсчёт производится только при перезапуске программы ( В чём может быть проблема ?
и ещё такой вопрос как в edit сделать отграничение только на ввод цифр ?

Добавлено через 19 минут
В общем то с edit разобрался но увы считает только после перезапуска программы ( пробовал вставить в button добавления данных refresh не помогло (

@Waddonator · 13.12.2013, 18:40

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

подсчёт производится только при перезапуске программы ( В чём может быть проблема

Обновите ADOQuery1. Вы, кстати, не завершаете сохранение данных в таблицу. Для этого используется метод Post. Вот после него и обновляйте:

Delphi
1
2
3
4
Form1.ADOQuery1.Insert;
...
Form1.ADOQuery1.Post;
Form1.ADOQuery1.ReQuery;

@LOrdshokXDDD · 13.12.2013, 18:54 **[ТС]**

То есть получается вот так ? и этот код вставляем в форму ?

Delphi
1
2
3
4
5
Form1.ADOQuery1.Insert;
Form1.ADOQuery1.SQL.Add('SELECT *, kolb*prise AS mysum FROM premiera');
Form1.ADOQuery1.Post;
Form1.ADOQuery1.ReQuery;
Form1.ADOQuery1.Refresh;

@Waddonator · 13.12.2013, 18:56

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

То есть получается вот так ?

Нет. Вы добавляете запись в ADOQuery1 на форме2.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Form1.ADOQuery1.Insert;
Form1.ADOQuery1.FieldByName('fa').AsString:=Edit1.Text;
Form1.ADOQuery1.FieldByName('im').AsString:=Edit2.Text;
Form1.ADOQuery1.FieldByName('ot').AsString:=Edit3.Text;
Form1.ADOQuery1.FieldByName('spe').AsString:=Edit4.Text;
Form1.ADOQuery1.FieldByName('kolb').AsString:=Edit5.Text;
Form1.ADOQuery1.FieldByName('nt').AsString:=Edit6.Text;
Form1.ADOQuery1.FieldByName('mai').AsString:=Edit7.Text;
Form1.ADOQuery1.FieldByName('skid').AsString:=Edit9.Text;
Form1.ADOQuery1.FieldByName('zam').AsString:=Edit8.Text;
Form1.ADOQuery1.FieldByName('prise').AsString:=Edit10.Text;
Form1.ADOQuery1.Post;
Form1.ADOQuery1.ReQuery;

@LOrdshokXDDD · 13.12.2013, 19:00 **[ТС]**

Понял спасибо работает я вам неописуемо благодарен )

Новые блоги и статьи Все статьи Все блоги /
Благородство как наказание 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. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .

@LOrdshokXDDD 0 / 0 / 1 Регистрация: 29.05.2013 Сообщений: 46
	13.12.2013, 19:00 [ТС]
	Понял спасибо работает я вам неописуемо благодарен ) 0