Показать сообщение отдельно
  #22  
Старый 15.05.2008, 19:55
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

1. Кидаете на форму ADOQuery и пишем такой код.
Код:
  With ADOQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add('SELECT SUM(kol) FROM main');//поле kol - количество (пишете ваше название)
     Open;
  end;
  Label1.Caption:=ADOQuery1.Fields[0].AsString;//Выводим результат суммирования в Label

2. Напишу частный случай.
Код:
With ADOQuery2 do
  begin
     Close;
     SQL.Clear;
     With Parameters.AddParameter do
     begin
         Name:= 'dt1';
         DataType:=ftDateTime;
         Value:='01.05.2004';
     end;
     With Parameters.AddParameter do
     begin
         Name:= 'dt2';
         DataType:=ftDateTime;
         Value:='31.05.2004';
     end;
     SQL.Add('SELECT * FROM main WHERE date> :dt1 AND date< :dt2');
     Open;
  end;
Подключить этот ADOQuery к DBGrid.
А потом можно довести это безобразие до ума.
Ответить с цитированием