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

[Епгений]

Ну так как ребята, как будет, хотелось бы именно как с примером М_Виктора, а то от SQL уже голова болит 'в хорошем смысле слова'

[Korben5E]

для начала поле Да/Нет поменяй на boolean

[Епгений]

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

для начала поле Да/Нет поменяй на boolean

Имеешь ввиду поле ФЛГ? А зачем на boolean и со string отлично работает.
Ээ вы хотите сделать таким образом: If как там было Покровск = true then false

[Serge_Bliznykov]

а то от SQL уже голова болит 'в хорошем смысле слова'

так получилось выполнить запрос или нет?!!


а подсчёт перебором можно выполнить так:

begin
  i:=0;
  DataModule2.FindQuery.First;
  while not DataModule2.FindQuery.Eof do
  begin
   if (AnsiUpperCase(DataModule2.FindQuery.FieldByName('Место').AsString)='ПОКРОВСК')
     and (AnsiUpperCase(DataModule2.FindQuery.FieldByName('ФЛГ').AsString)='ДА')
      then i:=i+1;
   DataModule2.FindQuery.Next;
  end;

  Application.MessageBox(
    PChar('В Покровске '+IntToStr(i)+' прошло ФЛГ '),
    'Сообщение', MB_ICONWARNING or MB_OK);

[Епгений]

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

так получилось выполнить запрос или нет?!!

Да пробовал, все равно ругался я не понял на что, да и метод перебора который вы дали, отлично с этим справляется да и времени мало осталось.
Я вот поработал с кодом который вы дали мне программа запускается и на этом все считает лищь покровск=да:

var i,a:integer;
begin
i:=0;
a:=0;
DataModule2.FindQuery.First;
while not DataModule2.FindQuery.Eof do
begin
if (AnsiUpperCase(DataModule2.FindQuery.FieldByName('Место').AsString)='ПОКРОВСК')
and (AnsiUpperCase(DataModule2.FindQuery.FieldByName('ФЛГ').AsString)='ДА')
then i:=i+1;
if(AnsiUpperCase(DataModule2.FindQuery.FieldByName('Место').AsString)='Бестях')
and (AnsiUpperCase(DataModule2.FindQuery.FieldByName('ФЛГ').AsString)='ДА')
then  a:=a+1;
DataModule2.FindQuery.Next;
end;
Edit1.text:=IntToStr(i);
Edit2.text:=IntToStr(a);

чего здесь не хватает?

[quit]

Смотрите, вы же сами написали условие, что все должно быть в верхнем регистре

if(AnsiUpperCase(DataModule2.FindQuery.FieldByName( 'Место').AsString)='Бестях')
and (AnsiUpperCase(DataModule2.FindQuer y.FieldByName('ФЛГ').AsString)='ДА' )

[Епгений]

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

Смотрите, вы же сами написали условие, что все должно быть в верхнем регистре

Извините я не так силён в программировании. 'AnsiUpperCase' и к таму же жутко не внимателен, а как должна быть?

[quit]

if(AnsiUpperCase(DataModule2.FindQuery.FieldByName( 'Место').AsString)='БЕСТЯХ')//вот так :)
and (AnsiUpperCase(DataModule2.FindQuer y.FieldByName('ФЛГ').AsString)='ДА' )

а по поводу функции AnsiUpperCase

function AnsiUpperCase ( const MixedString : string ) : string;
Функция AnsiUpperCase создает копию MixedString со всеми символами преобразованными в верхний регистр.