Запрос в НД

[АНЯ_17]

var
 Ap,xl,sv,sm,pod1,pod2: Variant;// peremeni sv = пол жен sm = пол муж
 i: integer;
 f,j : TdateTime;
begin
      Edit1.text:='0';
      Edit2.text:='0';
      Edit3.text:='0';
      Edit4.text:='0';
      Edit5.text:='0';
        sm:='0'; sv:='0';  pod1:='0'; pod2:='0';
begin
 Ap := CreateOleObject('Excel.Application');
  Ap.Workbooks.Open('C:\exl\44.xls');
  Ap.Workbooks.Open('C:\exl\44.xls',0,false);
  Ap.Visible := true;
  Ap.DisplayAlerts := False;
end;
 begin
    Fstatic.DBGrid1.DataSource:=db.dataq;
    try
     db.Adq.SQL.Clear;
        db.AdQ.SQL.Add('SELECT * FROM roj WHERE  d_reg between :f and :j' );// оно выбирает даты 
          f := Trunc(DateTimePicker1.Date);   // начало дата 
          j := Trunc(DateTimePicker2.Date);  // конец дата 
       db.AdQ.Params.ParamByName('f').Value:= f;
       db.AdQ.Params.ParamByName('j').Value:= j;
       db.AdQ.Active:=True;
      except
      on e:Exception do
     end;
 db.AdQ.First;
 for I := 1 to db.AdQ.RecordCount do
  begin
    if db.AdQ.FieldByName('sex').Value='Муж'  then
    edit1.text:=inttostr(strtoint(Edit1.text)+1);
            sm:=sm+1;
       Ap.Range['C2'] := sm;
       begin
           if db.AdQ.FieldByName('sex').Value='Жен'  then
          edit2.text:=inttostr(strtoint(Edit2.text)+1);
                sv:=sv+1;
        Ap.Range['B2'] := sv;
              begin
                if db.AdQ.FieldByName('podra').Value='Первомайский район'   then
                  edit3.text:=inttostr(strtoint(Edit3.text)+1);
                   begin
                  if db.AdQ.FieldByName('podra').Value='Октябрьский район'  then
               edit4.text:=inttostr(strtoint(Edit4.text)+1);
              end;
             end;
          db.AdQ.next;
          end;
     end;
   end;

Как разделить поли по подразделение ??
что та я неправильна написала
за ран спс.

[Serge_Bliznykov]

Аня, похоже, что Вы забываете про BEGIN END

например, если вы проверяете условие:

if db.AdQ.FieldByName('sex').Value='Муж'  then
    edit1.text:=inttostr(strtoint(Edit1.text)+1);
            sm:=sm+1;
       Ap.Range['C2'] := sm;

то выполняется так:

    if db.AdQ.FieldByName('sex').Value='Муж'  then
           edit1.text:=inttostr(strtoint(Edit1.text)+1); {это выполняется если пол = Муж}

    sm:=sm+1;   <---------------- этот оператор выполняется ВНЕ зависимости от пола
    Ap.Range['C2'] := sm;    <---------------- этот оператор выполняется ВНЕ зависимости от пола

и т.д.

должно быть так:

    if db.AdQ.FieldByName('sex').Value='Муж'  then 
      begin
           
         edit1.text:=inttostr(strtoint(Edit1.text)+1);
         sm:=sm+1; 
         Ap.Range['C2'] := sm; {эти все операторы выполняются если пол = Муж}

         тут ещё что-то, если мальчика ещё как-то надо обработать....
      
      end <--- конец блока обработки мальчика

p.s. Но это всё вторично!
Главное:
Подобные таблицы не стоит заполнять вручную
ОДИН простой SQL запрос сразу получит нужный Вам результат!


p.s. Вы в русском языке делаете ошибки. Например, мальчики (через мягкий знак), мужчина, женщина...

[Serge_Bliznykov]

по поводу запроса, котрый одним махом решает вашу задачу:

просто для примера.
Киньте на форму ещё один TAdsQuery
Переименуйте его (просто для примера в AdsQueryStatistic

напришите примерно такой текст:

AdsQueryStatistic.SQL.Clear;
AdsQueryStatistic.Add('SELECT podra, count(*) as VsegoPodr '+
             ' FROM roj WHERE  d_reg between :f and :j ' +
             ' GROUP BY podra ' );
          f := Trunc(DateTimePicker1.Date);   // начало дата 
          j := Trunc(DateTimePicker2.Date);  // конец дата 
       AdsQueryStatistic.Params.ParamByName('f').Value:= f;
       AdsQueryStatistic.Params.ParamByName('j').Value:= j;
       AdsQueryStatistic.Active:=True;

теперь у Вас все районы и количество людей в каждом районе в AdsQueryStatistic
перебирайте, выводите в Excel, делайте всё, что надо.

Точно так же можно и по муж/жен статистику собрать.

[АНЯ_17]

В общем Я хотела выгрузит по след. виде 

Подразделение 	        	 Девушки                   Мальчики

Первомайский район                1  	                     3
Октябрьский район	          1	                     1


за ран. спс.