Проблема с DBGrid...

[Arinka]

Помогите пожалуйста решить следующую проблему:
Имеется DBGrid (сведения о заказах продукции) и StringGrid. Необходимо было создать запрос, при щелчке на кнопку. Данный запрос должен подсчитать общую цену реализованной продукции за каждый месяц. Например, в мае было 10 заказов, нужно сложить их и вычислить общую сумму этих заказов в мае, и так за каждый месяц.

Код нажатия на кнопку запроса:

procedure TForm5.Button1Click(Sender: TObject);
Var
str: string;
i: integer;

begin
StGrid1.Cells[0,0]:=' ПЕРИОД ';
StGrid1.Cells[1,0]:=' ИТОГОВАЯ СУММА ЗА МЕСЯЦ ';
StGrid1.ColWidths[1]:=200; //ширина столбца


i:=1;

while i<=12 do //заполняем ячейки StGrid1'а названиями месяцев
begin
StGrid1.Cells[0,i]:=mon[i];
i:=i+1;
end;

Form5.Table1.Active:=false;
Form5.Table1.Active:=true;

//строим запрос
// SUM- стандартная функция вычисления суммы в запросе
// Cost - столбец Стоимость
// #39 - код символа '
// LIKE - зарезервированное слово в SQL. Определяет, совпадает ли указанная символьная строка с заданным шаблоном
// знак % - любой символ
// компонент DataSource, позволет сделать данные Table1 доступными для визуальных компонентов отображения данных
i:=1;
while i<=12 do
begin
str:='SELECT SUM(Cost) FROM '+#39+'sdelka.db'+#39+' WHERE DataS LIKE '+#39+'%.'+month[i]+'.%'+#39; //например '%.01.%'
//SdelkiForm.Caption:=str;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(str); //добавляем строку str
Query1.Open;
DataSource1.DataSet:=Query1;

if Query1.RecordCount <> 0 then
begin
StGrid1.Cells[1,i]:=Query1.Fields[0].Text;
DataSource1.DataSet:=Query1; // отобразить рез-т выполнения запроса
i:=i+1;
end

else
begin
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
DataSource1.DataSet:=Table1;
end;
end;

end;

При нажатие на кнопку запроса вычисляется общая сумма за каждый месяц в StringGrid, но теряются данные в DBGrid(((((((Остаются только названия полей DBGrid

[Arinka]

и еще нужно создать кнопку Отмены этого запроса...

[DoDge_VipeR]

теряются данные в DBGrid(((((((

уберите вот эту строку и будет вам счастье!

DataSource1.DataSet:=Query1;// отобразить рез-т выполнения запроса

потому что нафига он (результат) вам нужен во всех гридах

кнопку Отмены

var i,j:integer;
begin
for i:=0 to StGrid1.Colcount-1 do
for j:=1 to stGrid1.Rowcount-1 do
stGrid.cells[i,j]:='';
end;

[Arinka]

DoDge_VipeR спасибо Вам огромное!!!!!!!!!! Работает все без единой ошибки!!!!!=))))))))))))))))))))))) ))))