Подсчитать сколько записей ДА в поле ФЛГ

[Епгений]

Привет всем!
Как подсчитать сколько количества записей ДА в поле ФЛГ по нажатию кнопки. Прошу помощи очень нужно.

[Korben5E]

RecordCount ????

а в другом поле может быть другое количество записей??

[М_Виктор]

Сообщение от Епгений

Привет всем!
Как подсчитать сколько количества записей ДА в поле ФЛГ по нажатию кнопки. Прошу помощи очень нужно.

Самый простой способ - воспользоваться методом перебора записей:
Вы не указали тип поля ФЛГ, поэтому пример для String

  i:=0;
  if not Table.Bof then Table.First;
  while not Table.Eof do
     begin
       if Table.FieldByName('ФЛГ').AsString='ДА' then
          i:=i+1; 
       Table.Next;
     end;
  MessageDlg(IntToStr(i), mtInformation,[mbOk], 0)

[Grag]

М_Виктор, а вот такой способ еще проще, да и тип поля не важен...

Table.Filtered:=false;
Table.Filter:='[ФЛГ]=ДА'
Table.Filtered:=true;

Теперь в Table.RecordCount содержится количество записей в отфильтрованном наборе данных....

[Serge_Bliznykov]

а я бы предложил Query + SQL:

select count(*) as Cnt from имяТаблицы where ФЛГ='ДА'

[Grag]

Мне кажется, что Епгению уже все равно как...

[Епгений]

О ребята я благодарен вам за помощь.
Больше всего мне подходит идея М_Виктора, я сделал вот так:

var i:integer;
begin
 i:=0;
  if not DataModule2.FindQuery.Bof then DataModule2.FindQuery.First;
  while not DataModule2.FindQuery.Eof do
     begin
       if DataModule2.FindQuery.FieldByName('ФЛГ').AsString='Да' then
          i:=i+1;
       DataModule2.FindQuery.Next;
     end;

 MessageDlg(IntToStr(i), mtInformation,[mbOk],0)

Но тут одно но! вот появляется сообшение но тут только число, хотелось бы что там имелась кое-каке надписи, ну типа: кол-во прошедших ФЛГ,
а как не знаю

[М_Виктор]

Сообщение от Епгений

Но тут одно но! вот появляется сообшение но тут только число, хотелось бы что там имелась кое-каке надписи, ну типа: кол-во прошедших ФЛГ,
а как не знаю

Тогда вот так:

S:=Concat('кол-во прошедших ФЛГ ',IntToStr(i));
MessageDlg(S, mtInformation,[mbOk],0)

[Епгений]

У-у-у круута все отлично работает.
Спасибо вам М_Виктор и всем остальным за вашу помощь!!!

[Sparky]

блин а зачем такие огороды городить? Намного удобнее выучить хоть чуть-чуть SQL, обратите внимание на код Serge_Bliznykov