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

[Епгений]

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

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

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  DataModule2.QFlgCount.Close;
  DataModule2.QFlgCount.SQL.Clear;
  DataModule2.QFlgCount.SQL.Add('select count(*) as Cnt from имяТаблицы where ФЛГ=''Да'' ');
  DataModule2.QFlgCount.Open;
  i := DataModule2.QFlgCount.FieldByName('Cnt').AsInteger;
  DataModule2.QFlgCount.Close;
  MessageDlg('кол-во прошедших ФЛГ = '+IntToStr(i), mtInformation,[mbOk],0)
end;

Спасибо вам Serge_Bliznykov за помощь, я попробовал ваш метод но появляется ошибка и гри что не нашол id.

Я вот хочу модернезидовать код М_Виктора: Запись Покровск из поле Место и запись 'ДА' из поля ФЛГ, а нужно посчитать скока
Покровск = Да
Эээ я попробовал сам состряпать код, но увы безуспешно.
Вот код:

var i,a:integer; s:string;
begin
 i:=0;
if not DataModule2.FindQuery.Bof then DataModule2.FindQuery.First;
  while not DataModule2.FindQuery.Eof do
     begin
       if DataModule2.FindQuery.FieldByName('Место').AsString='Покровск'= DataModule2.FindQuery.FieldByName('ФЛГ').AsString='да'
       then
          i:=i+1;
       DataModule2.FindQuery.Next;
Edit2.text:=IntToStr(i);
Edit1.text:=IntToStr(a);

Или может даже так if DataModule2.FindQuery.FieldByName(' Место') and ('ФЛГ').AsString='Покровск'='да'
Фуф запарился

[Serge_Bliznykov]

Спасибо вам Serge_Bliznykov за помощь, я попробовал ваш метод но появляется ошибка и гри что не нашол id.

Похоже, что Вы пытались использовать старый Query !!!!
Добавьте на форму новый контрол Query (дайте ему нужное имя (в моём примере это имя QFlgCount), свяжите его со connection (ну или заполните ConnectiuonString - смотря каким способом Вы соединяете query с базой). И НИЧЕГО не вытягивайте в него (никакие поля)! и попробуйте мой код.

нужно посчитать скока
Покровск = Да

как верно сказали выше, давайте структуры Ваших таблиц...

[Stilet]

нужно посчитать скока Покровск = Да

Не проще ли задать

Select count() from Твоя таблица 
WHERE (lowercase(Место)='покровск')and(lowercase(ФЛГ)='да');

И получить методом Open число

[Serge_Bliznykov]

Не проще ли задать
И получить методом Open число

Виталий, именно это я своими постами и пытаюсь привить..
Пока не очень получается... Но, лишь бы TC не утратил интерес до того, как результат будет достигнут...

[Епгений]

ну вобшем вот.
Надеюсь все тут понятна

[Korben5E]

афигеть... но это не структура

структура это вот к примеру:
таблица1
фио: char(70);
город:char(20);
флг:char(3); // хотя должно быть boolean

и т.д. ...

а зачем там вторую тему про это-же завел???

если хошь - в аську бейся... или в личку.

[Епгений]

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

структура это вот к примеру:
таблица1
фио: char(70);
город:char(20);
флг:char(3); // хотя должно быть boolean

ну ээ и без этого можна понять с рисунка что да как, разве не так

[Korben5E]

кончено нет - например это "флг:char(3);" написано "отфанаря" - это правда?

[Stilet]

разве не так

Конечно так. Можно ведь отличить трансвистита не залезая ему под юбку от обычной девушки. Верно?
То что ты приложил это всего лишь отображение. А поля могу называться по другому, иметь другой тип данных, длину и пр.

[Епгений]

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

То что ты приложил это всего лишь отображение. А поля могу называться по другому, иметь другой тип данных, длину и пр.

Оппа то же верно, про эти штуки совсем забыл .

Хэхэ а про транса эт вы лиха