Firebird. Расчет количества.

[soleil@mmc]

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

А для чего локейтить, Soleil? Чтобы транспонировать записи?

именно
так у тебя набор данных располагается по строчкам, а ты его развернешь таким образом по столбцам в одну строчку

апд
и этта...
чтобы суммы считались нормально есес-но групбай не пропусти в самом конце, а чтобы не было дублей на выходе сразу после селекта пиши first 1 - select first 1 ...

[pesi]

вот это посмотри может подойдет baza.rar

[artemavd]

pesi

, я использовал Ваш код из вложения, но возникла проблема. В StringGrid заносится только первая строчка. Вторая нет. Как сделать, чтобы все строчки заносились?
Код:

procedure TForm1.sBitBtn62Click(Sender: TObject);
var
 c,r: integer;
begin
 Form1.pFIBDataSet_raschet.Close;
 Form1.pFIBDataSet_raschet.Open;
 r:=1;
 Form1.pFIBDataSet_raschet.First;
 while not Form1.pFIBDataSet_raschet.Eof do
 begin
  for c:=0 to 4 do
   Form1.SG2.Cells[c,r]:=Form1.pFIBDataSet_raschet.Fields.Fields[c].AsString;
   Form1.pFIBDataSet_raschet.Next;
   Inc(r);
 end;
end;

[pesi]

а в DBGrid проверял, туда все записи выбираются?

[artemavd]

В смысле вывести результат в дбгрид? В него все выводится. Но мне нужно в стринггрид перенести результат, так Как дальнейшая работа идет с ним в программе. На данный момент мне удалось сделать следующее: в StringGrid заносятся значения из DBGrida. То есть те значения, которые получаются при запросе. Проблема в том, что заносится везде одинаковая только первая строчка. Во вложении два варианта: неправильный (то как работает у меня сейчас) и неправильный (то как должно быть). Вот как добиться второго варианта? . Мой код:

procedure TForm1.sBitBtn62Click(Sender: TObject);
var
 c,r: integer;
begin
 for r:=1 to Form1.pFIBDataSet_raschet.VisibleRecordCount do
 begin
  Form1.SG2.Cells[0,r]:=Form1.pFIBDataSet_raschet.FieldByName('DVOEK').AsString;
  Form1.SG2.Cells[1,r]:=Form1.pFIBDataSet_raschet.FieldByName('TROEK').AsString;
  Form1.SG2.Cells[2,r]:=Form1.pFIBDataSet_raschet.FieldByName('CHETVEROK').AsString;
  Form1.SG2.Cells[3,r]:=Form1.pFIBDataSet_raschet.FieldByName('PYTEROK').AsString;
 end;
end;

[Serge_Bliznykov]

artemavd, я не знаю, что такое VisibleRecordCount, но а где переход на следующую запись в датасете?!?
Form1.pFIBDataSet_raschet.Next ???!
да и перед циклом неплохо было бы поставить указатель на первую запись:
Form1.pFIBDataSet_raschet.First

[artemavd]

Сергей, я делал так:

procedure TForm1.sBitBtn62Click(Sender: TObject);
var
 c,r: integer;
begin
 for r:=1 to Form1.pFIBDataSet_raschet.VisibleRecordCount do
 begin
 Form1.pFIBDataSet_raschet.First;

  Form1.SG2.Cells[0,r]:=Form1.pFIBDataSet_raschet.FieldByName('DVOEK').AsString;
  Form1.SG2.Cells[1,r]:=Form1.pFIBDataSet_raschet.FieldByName('TROEK').AsString;
  Form1.SG2.Cells[2,r]:=Form1.pFIBDataSet_raschet.FieldByName('CHETVEROK').AsString;
  Form1.SG2.Cells[3,r]:=Form1.pFIBDataSet_raschet.FieldByName('PYTEROK').AsString;
 end;
Form1.pFIBDataSet_raschet.Next;
end;

Но результат был не тот

[pu4koff]

Так не лучше будет?

procedure TForm1.sBitBtn62Click(Sender: TObject);
var
 c,r: integer;
begin
 Form1.pFIBDataSet_raschet.First;
 for r:=1 to Form1.pFIBDataSet_raschet.VisibleRecordCount do
 begin
  Form1.SG2.Cells[0,r]:=Form1.pFIBDataSet_raschet.FieldByName('DVOEK').AsString;
  Form1.SG2.Cells[1,r]:=Form1.pFIBDataSet_raschet.FieldByName('TROEK').AsString;
  Form1.SG2.Cells[2,r]:=Form1.pFIBDataSet_raschet.FieldByName('CHETVEROK').AsString;
  Form1.SG2.Cells[3,r]:=Form1.pFIBDataSet_raschet.FieldByName('PYTEROK').AsString;
  Form1.pFIBDataSet_raschet.Next;
 end;
end;

[artemavd]

pu4koff, да, так лучше . Спасибо. А вот такой вопрос: есть список класса в DBGridEh-e. Возможно ли сделать в таймере так, чтобы например каждую секунду из DBGridEh-а брались ФИО ученика и для него расчитывалось количество оценок по коду в посте №38, а в итоге в другой DBGridEh выводилось и ФИО и количество оценок? Все, что мне нужно, это чтобы напротив подсчитанного количества оценок показывалось ФИО ученика, для которого соответствует подсчитанное количество. А то непонятно по результату запроса для какого ученика посчитано это самое количество.

Решил одну часть поставленной мною выше проблемы таким запросом:

select
  familiy,imy,otchest,
  sum(case when m.ocenka = 2 then 1 else 0 end) DVOEK,
  sum(case when m.ocenka = 3 then 1 else 0 end) TROEK,
  sum(case when m.ocenka = 4 then 1 else 0 end) CHETVEROK,
  sum(case when m.ocenka = 5 then 1 else 0 end) PYTEROK
from
  mark m,
  chetverty c,
  spisok s,
  classname cl,
  predmety p
WHERE 0=0 
    and m.onchetvert=c.id
    and m.onpredmet=p.id
    and m.withspisok=s.id
    and cl.id=s.kl
    and kl=1
    and m.onchetvert=1
    and m.onpredmet=2
    and m.datamark >= '01.11.2009'
    and m.datamark <= '10.11.2009'
group by s.familiy,s.imy,s.otchest

А как сделать, чтобы точно так же в этом запросе еще считалось количество "н"-ок?

select
  familiy,imy,otchest,
  sum(case when m.ocenka = 2 then 1 else 0 end) DVOEK,
  sum(case when m.ocenka = 3 then 1 else 0 end) TROEK,
  sum(case when m.ocenka = 4 then 1 else 0 end) CHETVEROK,
  sum(case when m.ocenka = 5 then 1 else 0 end) PYTEROK
from
  mark m,
  chetverty c,
  spisok s,
  classname cl,
  predmety p
WHERE 0=0 
    and m.onchetvert=c.id
    and m.onpredmet=p.id
    and m.withspisok=s.id
    and cl.id=s.kl
    and kl=1
    and m.onchetvert=1
    and m.onpredmet=2
    and m.datamark >= '01.11.2009'
    and m.datamark <= '10.11.2009'
group by s.familiy,s.imy,s.otchest

Ругается сервер на несоответствие типов данных. Ведь у меня в колонку OCENKA вводятся как цифры (5,4,3,2) так и буква(н). Нужно, чтобы наряду с оценками считались "н".
P.S. Как удалить свои повторяющиеся сообщения?

[Serge_Bliznykov]

Артём, я правильно понял, что в таблице MARK поле ocenka НЕ ЧИСЛОВОЕ, а текстовое?!

тогда поможет такой запрос:

select
  familiy,imy,otchest,
  sum(case when m.ocenka = '2' then 1 else 0 end) DVOEK,
  sum(case when m.ocenka = '3' then 1 else 0 end) TROEK,
  sum(case when m.ocenka = '4' then 1 else 0 end) CHETVEROK,
  sum(case when m.ocenka = '5' then 1 else 0 end) PYTEROK,
  sum(case when m.ocenka = 'Н' then 1 else 0 end) PROPUSKOV
...