Подсчет данных в DBGrid

[Alexander_20]

В DBGrid есть таблица с полями:
Дата пропуска
Пропусков
Причина (не уважительный,уважительный, по болезни),выбирается через dbcombobox, заносится в причину;
Ниже три edita
Мне необходимо чтобы по щелчку на кнопку всего в первый edit внеслось количество по болезни,во второй по уважительной причине,а в третий не уважительный,как это сделать,тока без SQl(это на крайняк),помогите....

[S@fer]

А чем Вас SQL не устраивает?
Бросаете на форму компонент Query, подсоединяете его к базе
и по нажатию кнопки пишите следующую процедуру

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT * FROM Tablica WHERE Pricihina="не уважительный"');
Query.Active:=True;
Edit1.text:=IntToStr(Query.RecordCount);

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT * FROM Tablica WHERE Pricihina="уважительный"');
Query.Active:=True;
Edit2.text:=IntToStr(Query.RecordCount);

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT * FROM Tablica WHERE Pricihina="по болезни"');
Query.Active:=True;
Edit3.text:=IntToStr(Query.RecordCount);

[Dark_Spirit]

ed1:=0;
ed2:=0;
ed3:=0;
while not table1.eof do
 begin
  if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='не уважительный'
   then ed1:=ed1+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
  if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='уважительный'
   then ed2:=ed2+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
  if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='по болезни'
   then ed3:=ed3+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
end;
edit1.text:=inttostr(ed1);
edit2.text:=inttostr(ed2);
edit3.text:=inttostr(ed3);

[Alexander_20]

Спасибо,огромное,попробовал оба варианта,все работает.
Правда во втором случае,чего-то прога виснит,хотя при компиляции все ОК.

Честно говоря не очень люблю SQL,я в нем часто сбиваюсь.

Но у меня он считает сколько строк указано что по болезни, а по болезни у меня допустим в этот день не час, а скажем 6 часов,вот мне,если можно,узнать бы как считать сколько часов,если не трудно...

[Alexander_20]

А не могли бы помочь переделать, так чтобы по полю пропуск, а не по полю причина считал?

Я так понимаю, там необходимо поставить
SELECT Sum(значение?),если поставить пропусков, тогда в программе по кнопке всего, он во все 3 edita выводит еденицы....

[S@fer]

Как-то так

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT Sum(Propuskov) FROM Tablica WHERE Pricihina="не уважительный"');
Query.Active:=True;
Edit1.text:=Query.Fields[0].AsString;

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT Sum(Propuskov) FROM Tablica WHERE Pricihina="уважительный"');
Query.Active:=True;
Edit2.text:=Query.Fields[0].AsString;

Query.Active:=False;
Query.SQL.Clear;
Query.SQL.ADD('SELECT Sum(Propuskov) FROM Tablica WHERE Pricihina="по болезни"');
Query.Active:=True;
Edit3.text:=Query.Fields[0].AsString;

[Alexander_20]

Спасибо,огромное!!!!Сейчас все работает....

[Lyuka Sin]

Доброго время суток...У меня два вопроса: Компонент Query подсоединяется при момощи свойства DataSourse?
И второй...Вот почему пример, рассмотренный не через SQL виснет?Хотя впринципе все прописано логично...

[S@fer]

Компонент Query подсоединяется при момощи свойства DataSourse?

Компонент Query подключается к базе с помощью свойства Connection
DataSourse служит для связи между Query(Table) и DBGrid(другие компоненты отображения)

Вот почему пример, рассмотренный не через SQL виснет?Хотя впринципе все прописано логично.

Что Вы имеете ввиду, приведите пример кода.

[koma_grusha]

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

ed1:=0;
ed2:=0;
ed3:=0;
while not table1.eof do
    begin
    if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='не уважительный'
        then ed1:=ed1+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
    if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='уважительный'
        then ed2:=ed2+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
    if table1.fieldbyname('<имя_поля_куда_записывается_причина>').asstring='по болезни'
        then ed3:=ed3+table1.fieldbyname('<имя_поля_где_указано_колличество_пропусков>').asinteger;
    table1.Next;
    end;
edit1.text:=inttostr(ed1);
edit2.text:=inttostr(ed2);
edit3.text:=inttostr(ed3);