Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Василевский
0 / 0 / 0
Регистрация: 25.04.2013
Сообщений: 102
1

DBGrid: "цена" умножить на "количество" и записать на место "цена"

17.06.2013, 17:51. Просмотров 927. Ответов 4
Метки нет (Все метки)

Короче есть DBGRID первый столбец "Название" второй "Количество " третий "Цена"
Нужно как то что бы цена умножалась на количество и записывалась на место цена. делаю через ADOQuery .
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 17:51
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова "Работа","крест","тон" составить фразу:"Кто не работает, тот не ест" и...

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал...

Тысячные числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000" и т.д
Собственно числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000",...

В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"
Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой...

4
Ev1l
133 / 133 / 22
Регистрация: 29.08.2012
Сообщений: 353
17.06.2013, 18:14 2
Delphi
1
2
3
4
5
6
7
8
AdoQuery1.first;
while not(AdoQuery1.EOF) do
begin
AdoQuery1.Edit;
AdoQuery1.FieldByName['цена'].asFloat:=AdoQuery1.FieldByName['цена'].asFloat*AdoQuery1.FieldByName['количество'].asFloat;
AdoQuery1.Past;
AdoQuery1.Next;
end;
вроде бы так, к сожелению проверить пока негде...
2
myxosran
12 / 12 / 3
Регистрация: 28.10.2012
Сообщений: 103
17.06.2013, 18:20 3
Цитата Сообщение от Ev1l Посмотреть сообщение
AdoQuery1.Past;
возможно AdoQuery1.PОst
2
Ev1l
17.06.2013, 18:22
  #4

Не по теме:

myxosran, да, конечно, опечатался, спс :)

0
Василевский
0 / 0 / 0
Регистрация: 25.04.2013
Сообщений: 102
17.06.2013, 19:11  [ТС] 5
Цитата Сообщение от Ev1l Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
8
AdoQuery1.first;
while not(AdoQuery1.EOF) do
begin
AdoQuery1.Edit;
AdoQuery1.FieldByName['цена'].asFloat:=AdoQuery1.FieldByName['цена'].asFloat*AdoQuery1.FieldByName['количество'].asFloat;
AdoQuery1.Past;
AdoQuery1.Next;
end;
вроде бы так, к сожелению проверить пока негде...
Отлично ,спасибо ,оказывается так все просто ) ☺
0
17.06.2013, 19:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 19:11

Дана строка. Заменить все буквы "м" на "н". Заменить все вхождения сочетаний букв "про" на "нет"
2.Дана строка. 1) Заменить все буквы м на н. 2) Заменить все вхождения...

Замените в слове Х все буквы "а" на сочетание "ку", а сочетание "ку" на букву "б"
Написать программу, заменяющую в слове Х все буквы "а" на сочетание "ку", а...

В каждой строке массива найти количество букв "е", расположенных справа от буквы "н"
В каждой строке массива найти количество букв е, расположенных справа от буквы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru