Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2012, 00:09   #1
Janno4ka
 
Регистрация: 04.06.2012
Сообщений: 3
По умолчанию Для указанного пользователем супермаркета за интересующий его месяц вывести на экран данные о прибыли (Delphi)

Доброго времени суток!


Нужно сформировать ответ на запрос пользователя:

Для указанного пользователем супермаркета за интересующий его месяц вывести на экран данные о прибыли (по промышленным и продовольственным товарам, сум-марную прибыль);

Код:
datamodule2.table1.filtered:=false;
datamodule2.table1.filter:='(Data>='''+datetostr(datetimepicker1.date)+''')and (Data<='''+datetostr(datetimepicker2.date)+''') and (Kod_sup='''+dblookupcombobox1.keyvalue+''')';
datamodule2.table1.filtered:=TRUE;
datamodule2.Table1.fieldbyname('Sum').asfloat:=datamodule2.Table1.fieldbyname('Prib_po_prom_tov').asfloat+datamodule2.table1.fieldbyname('Prib_po_proizv_tov').asfloat;
Panel1.Caption:=
В Panel1 должна выводиться эта сумма

Последний раз редактировалось Janno4ka; 05.06.2012 в 00:24.
Janno4ka вне форума Ответить с цитированием
Старый 05.06.2012, 07:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну если следовать твоей логике:
Код:
Panel1.Caption:=datamodule2.Table1.fieldbyname('Sum').AsString;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.06.2012, 12:06   #3
Janno4ka
 
Регистрация: 04.06.2012
Сообщений: 3
По умолчанию

Выдает такую ошибку, что это значит?

Debugger Exception Notification

Project Project1.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Double). Process stopped. Use Step or Run to continue.

Последний раз редактировалось Janno4ka; 05.06.2012 в 12:08.
Janno4ka вне форума Ответить с цитированием
Старый 05.06.2012, 12:32   #4
Delphi_ProGer
Форумчанин
 
Регистрация: 30.10.2010
Сообщений: 524
По умолчанию

Попробуй так...хотя не с этим компонентом не работал, но догадуюсь что он возвращает:
Код:
Panel1.Caption:=floattostr(datamodule2.Table1.fieldbyname('Sum'));
Delphi_ProGer вне форума Ответить с цитированием
Старый 06.06.2012, 01:17   #5
Janno4ka
 
Регистрация: 04.06.2012
Сообщений: 3
По умолчанию

Это понятно.

Как посчитать сумму прибыли именно выбранного супермаркета?
Janno4ka вне форума Ответить с цитированием
Старый 06.06.2012, 07:47   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Как посчитать сумму прибыли именно выбранного супермаркета?
Как избавиться от энуреза с помощью солнцезащитных очков?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как, имея бинарное дерево наглядно вывести его на экран? CorZet Общие вопросы Delphi 3 11.03.2020 14:33
Сформировать массив записей с указанными полями и вывести его на экран в виде табл. platinum_m Паскаль, Turbo Pascal, PascalABC.NET 2 04.10.2011 23:08
Найти максимальное значение среди отрицательных элементов и вывести на экран его индексы. Nursik77 Помощь студентам 2 08.04.2011 17:23
как считать файл и вывести его на экран B@R@B@$HK@ Общие вопросы C/C++ 3 16.06.2009 19:14