Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 37182
10.03.2006, 14:07
0.00 руб.
0 4 2
Компьютеры Программирование
Уважаемые эксперты!
1) Я зделал базу данных и там есть поле цена. Как сделать чтобы программа подсчитывала все цены в DBGride (я выводил поля через DBGrid) и показывал сумму на компоненте TLabel ?
2) Подскажите как с компьютера выводить на печать в кассовый аппарат при нажатии кнопки ? Может есть какие-то компоненты ?
Подскажите ПОЖАЛУЙСТА!!!!

Обсуждение

Неизвестный
10.03.2006, 14:20
общий
это ответ
Здравствуйте, Белов Александр Александрович!

1) Используйте библиотеку EhLib, в которой Grid имеет дополнительные поля с ссумированием и другими агрегатами

2) Печать в кассовый аппарат зависит от конкретной марки и способа его подключения
Универсального способа нет
давно
Вадим Исаев ака sir Henry
Мастер-Эксперт
425
4118
10.03.2006, 16:16
общий
это ответ
Здравствуйте, Белов Александр Александрович!
В DBGrid‘e подсчитывать ничего не надо. Лучше сделать два запроса с условием, которые соответствуют отбору данных. Либо, если показывать нужно неприменно всю таблицу, то сумму можно сделать простым запросом в компоненте TQuery:
SELECT SUM(цены) AS summa FROM Таблица
Вывести результат можно так:
Label1.Caption:=Query1summa.AsString;
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Неизвестный
16.03.2006, 06:38
общий
Вот реально работающий пример на Delphi 7:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;type TForm1 = class(TForm) Button2: TButton; Query1: TQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; procedure Button2Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);begin Query1.SQL.Clear; Query1.SQL.Add(‘select sum(СУММА) FROM LOTTERY.DB‘); Query1.Open; Label1.Caption:=Query1.Fields[0].AsString;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin Query1.Close;end;end.Для sir henry.Вы свой примерчик опробовали Сами?
Неизвестный
16.03.2006, 06:43
общий
Для Белова Александра Александровича(Саня Белый :-)).Какой у тебя кассовый аппарат? Для него скорее всего потребуются или спец. компоненты(как для работы с com портом - компонент Com) или работа c потоками.
Форма ответа