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

[М_Виктор]

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

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

Если человек только-только начал изучать Delphi, то подсказка должна быть предельно простой и разложенной по полочкам (иначе может получиться решение задачи методом "интригала" как в фильме про Электроника). К сожалению, не все операторы языка SQL работают со всеми без исключения типами б.д.

[Serge_Bliznykov]

К сожалению, не все операторы языка SQL работают со всеми без исключения типами б.д.

поясните, что означает - "со всеми типами БД" ?!
Имеются в виду типы данных? Или различные СУБД?

Ну есть СУБД, которые SQL не поддерживают.. но, к счастью, таким чрезвычайно мало, к тому же, подобные СУБД — это прямой кандидат в топку..

Если человек только-только начал изучать Delphi, то подсказка должна быть предельно простой и разложенной по полочкам

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

to Епгений
СУБД какая?

попробуйте кинуть на форму ещё один Query (туда же, в DataModule2, рядышком с FindQuery ) Дайте ему имя, например, QFlgCount

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

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

поясните, что означает - "со всеми типами БД" ?!
Имеются в виду типы данных? Или различные СУБД?

Ну есть СУБД, которые SQL не поддерживают.. но, к счастью, таким чрезвычайно мало, к тому же, подобные СУБД — это прямой кандидат в топку..

Ну вот, например, пару дней назад обсуждалось возможность добавления полей в существующую базу.
Для своих файлов Paradox.db я использовал "конструкцию" типа

Query.SQL.Add('ALTER TABLE "Table2.db" ADD NNNN Character(20)');

С помощью SQL можно было бы и переименовывать таблицы типа

Query.SQL.Add('ALTER TABLE Table2.db RENAME TO Table222.db');

Но для файлов Paradox.db и DBase.dbf такая вещь лично у меня не срабатывает. Есть операторы MODIFY и CHANGE, которые могут менять тип конкретного поля в базе или его имя, но опять же это не подходит для Paradox.db и DBase.dbf.

Что касается топки, то все зависит от финансовых возможностей и желания руководителей предприятия. Например, у нас еще несколько месяцев будут работать программы, написанные на Clippere 5.5 более 20 лет назад и работающие под MS-DOS. Чтобы запустить их в WinXP пришлось повозиться. С другой стороны идет внедрение 1С.Предприятие 8, а стретьей стороны покупаются ноутбуки за 100.000 руб с Windows 7 Home Premium (64-х разрядная) и чтобы ВСЕ РАБОТАЛО ЗАВТРА ЖЕ !!!

Поэтому приходится иногда крутится, а иногда выкручиваться.

[soleil@mmc]

Сообщение от М_Виктор

Поэтому приходится иногда крутится, а иногда выкручиваться.

раз ТС не озвучил бд/субд, то по дефолту подразумевается возможность работы с ней через скл

[Епгений]

Э-э-э ребята можно за одно спросить про печать содержимого формы еси вам не трудно конечно.
мне нужно вывести на печать содержимой одной формы и все получается, но одно но при выводе размер текса маленький и выводит где то на краю листа. Нужно что б текст был по середине и размер по болше.
Я использовал две кнопки, компонент PrintDialog, PageControl1 внем я создал две закладки.
Вот код:

procedure TForm9.BitBtn1Click(Sender: TObject);
var
 i, Start, Stop: Integer;
begin
 PrintDialog1.Options := [poPageNums, poSelection];
 PrintDialog1.FromPage :=1;
 PrintDialog1.ToPage := PageControl1.PageCount;
 PrintDialog1.MinPage :=1;
 PrintDialog1.MaxPage := PageControl1.PageCount;
 if not PrintDialog1.Execute then exit;

 if PrintDialog1.PrintRange = prAllPages then
  begin
   Start := PrintDialog1.MinPage - 1;
   Stop := PrintDialog1.MaxPage - 1;
  end
 else
  if PrintDialog1.PrintRange = prSelection then
   begin
    Start := PageControl1.ActivePageIndex;
    Stop := Start;
   end
  else
   begin
    Start := PrintDialog1.FromPage - 1;
    Stop := PrintDialog1.ToPage - 1;
   end;

     Printer.BeginDoc;
 for i := Start to Stop do
  begin
   PageControl1.Pages[i].PaintTo(Printer.Handle, 10, 10);
   if i <> Stop then
    Printer.NewPage;
  end;
 Printer.EndDoc;
end;

Что тут не так?

[Korben5E]

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

Э-э-э ребята можно за одно спросить про печать содержимого формы еси вам не трудно конечно.

если мне память не изменяет - Form1.Print

[Епгений]

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

если мне память не изменяет - Form1.Print

Эээ я вас не понял Form1.Print это для чего?

[Korben5E]

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

Эээ я вас не понял Form1.Print это для чего?

ну я-же процитировал

"мне нужно вывести на печать содержимой одной формы"
и там много кода....

я указал как можно еще форму распечатать

[Епгений]

Сообщение от 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);

[Korben5E]

Давайте-ка вы сначала сюда структуры ваших таблиц...

а то вам наугад подсказывают - результат налицо....