Суммирование DBGrid

[RS219]

Здраствуйте.
Каким образом сложить сумму чисел отображаемых компонентом DbGrid.
Пример находиться в архиве.

[nervniy]

я для таких целей испльзую DBGridEh из библиотеки Ehlib
или так наверное можно
select sum(<имя_столбца>) from <имя_таблицы>

[_SERGEYX_]

Лови проект обратно.
Изначально все неправильно. Особенно связь таблиц по строковым полям.

[RS219]

Сообщение от _SERGEYX_

Лови проект обратно.
Изначально все неправильно. Особенно связь таблиц по строковым полям.

А как нужно, что бы было правельно?
А зачем нужен был запрос Q?

От чего происходит расчет на Label'е?

А процедура.

Изначально все неправильно. Особенно связь таблиц по строковым полям.
Как все таки нужно, что бы было правельно?
Связь делалась главный и подчиненый. В Access я не показывал связи, а в делфи указал. А потом положил на форму "сетку". Я теперь спать не буду снова.

Сообщение от nervniy

я для таких целей испльзую DBGridEh из библиотеки Ehlib
или так наверное можно
select sum(<имя_столбца>) from <имя_таблицы>

Что это за библиотека. Где её взять

[_SERGEYX_]

1. Не делай первичный ключ для строкового типа поля. Создай числовое поле в обеих таблицах и свяжи таблицы по этому полю.
2. В любой таблице ОБЯЗАТЕЛЬНО должно быть УНИКАЛЬНОЕ поле (первичный ключ, .. счетчик или автоинкркмент).
3. Не открывай таблицы в проекте. По умолчанию ADOConnection1 должно быть закрыто, а уже при запуске программы при создании DataModule2 подключиться к БД и открыть таблицы, т.е. так

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
  try
  ADOConnection1.Connected:= True;
  except
  ShowMessage('Не удалось подключиться к БД');
  Exit;
  end;
  ADOPeriod.Open;
  AdoSumma.Open;
//в uses добавить Dialogs
end;

А зачем нужен был запрос Q?
От чего происходит расчет на Label'е?

От sql-запроса и происходит при AfterScroll.

!!! И ИМХО... Я бы настоятельно советовал НИКОГДА не называть имена таблиц и полей русскими именами... но это уж кому как...

[RS219]

Я извиняюсь. Расскажите пожалуйста все попорядку как вы вставляли это поле. Я попытался скопировать код он в другом проекте не работает, теперь в этом не работает.

-
Есть запрос - Q
сетка - DbGrid
форма - form2
Label - L

один код работает во время открытия формы

procedure TForm2.FormCreate(Sender: TObject);
begin
DataModule2.ADOPeriod.AfterScroll(DataModule2.ADOPeriod);
end;

Второй код отвечает за расчет

procedure TDataModule2.ADOPeriodAfterScroll(DataSet: TDataSet);
begin
  if Form2 = nil then Exit;
  if AdoSumma.RecordCount>0 then
  begin
  q.Close;
  q.SQL.Clear;
  q.SQL.Add('select sum(ñóììà) from ñóììà where êîäìåñÿöà = "' + ADOPeriodDSDesigner.Value + '"');
  q.Open;
  form2.l.Caption := q.Fields[0].AsString;
  end else
  form2.l.Caption := '0';
end;

А что это за процедура

procedure TDataModule2.ADOPeriodAfterScroll(DataSet: TDataSet);

[_SERGEYX_]

Вроде, и пояснять здесь нечего, все понятно...

procedure TDataModule2.ADOPeriodAfterScroll(DataSet: TDataSet);
begin
  {Form2 еще не успела создаться, поэтому,
   чтобы не выскочила ошибка пишем}
  if Form2 = nil then Exit;

  {Если в таблице Сумма нет записей, то зачем
  делать запрос и напрягать сервер...}
  if AdoSumma.RecordCount > 0 then
  begin
    q.Close;
    q.SQL.Clear;
    {Выбираем сумму только из видимых строк}
    q.SQL.Add('select sum(сумма) from сумма where кодмесяца = "' + ADOPeriodDSDesigner.Value + '"');
    q.Open;
    {Пишем в Label}
    form2.L.Caption := q.Fields[0].AsString;
  end else
    form2.L.Caption := '0';
end;

При создании Form2 код AfterScroll не сработал, потому, что формы еще небыло.
Поэтому повторим его

procedure TForm2.FormCreate(Sender: TObject);
begin
DataModule2.ADOPeriod.AfterScroll(DataModule2.ADOPeriod);
end;

PS. Русские имена даже здесь "ломаются"

[RS219]

Нет я н об описании кода. Я об последовательности действий, которые необходимо выполнить, чтобы на форме в Label'e отобразилась сумма dbgrid.
1. Это запрос Q (Никакого текста SQl там не нету, он появляется чуть позже)
2. реакция на открытие формы TForm2.FormCreate(Sender: TObject)
3. TDataModule2.ADOPeriodAfterScroll(D ataSet: TDataSet); - а что это за дейтвие, движение мышки, а вместо этого действия можно использовать dlclick или click?

Сообщение от _SERGEYX_

2. В любой таблице ОБЯЗАТЕЛЬНО должно быть УНИКАЛЬНОЕ поле (первичный ключ, .. счетчик или автоинкркмент).

А что такое автоинкркмент. Вы немогли бы привети несколько примеров.

Сообщение от _SERGEYX_

3. Не открывай таблицы в проекте. По умолчанию ADOConnection1 должно быть закрыто, а уже при запуске программы при создании DataModule2 подключиться к БД и открыть таблицы, т.е. так

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
  try
  ADOConnection1.Connected:= True;
  except
  ShowMessage('Не удалось подключиться к БД');
  Exit;
  end;
  ADOPeriod.Open;
  AdoSumma.Open;
//в uses добавить Dialogs
end;

Не открывать таблицу в проекте , это не указывать в Инспекторе объектов Свойство Active для Table.
Или свойство ADOConnection1 Connected в true или false????????

Начаная пинимать этот пример.
Спасибо и намного больше.))))
1. Необходимо создать запрос
2. Действие на открытие формы
3. Действие прищелчке мышкой.

...................................