Показать сообщение отдельно
  #14  
Старый 06.09.2014, 09:03
АНЯ17 АНЯ17 вне форума
Прохожий
 
Регистрация: 16.08.2014
Сообщения: 22
Версия Delphi: delphi 7
Репутация: 10
Смущение

c основой этой запросик оно 100% работает как надо только, но Первомайский район. . . Для нахождения других районов хм

Код:
SELECT podra, sex, count(*) as C  FROM roj WHERE  d_reg between :f and :j GROUP BY podra, sex ORDER BY 1, 2'

Код:
 var
 Ap,xl,sv,sm,podr1,podr2,C: Variant;// peremeni sv = пол жен sm = пол муж
   i: integer;
    f,j : TdateTime;
   rc,p,q : Integer;
   mypodra, sex : string;

Код:
db.AdsQueryStatistic.First;
rc := db.AdsQueryStatistic.RecordCount;
//mypodra:='Октябрьский район';// 
mypodra:='Первомайский район';


for i:=0 to rc do //а ты уверена что с 1 а не с 0, я просто сейчас не могу проверить
begin
  if db.AdsQueryStatistic.FieldByName('podra').Value = mypodra then
  begin
     sex:=db.AdsQueryStatistic.FieldByName('sex').Value;
     p:=db.AdsQueryStatistic.FieldByName('C').Value;
     if sex = 'Жен' then
     begin
        Ap.Range['b2'] := p;
  //      Ap.Range['b3'] := p;
       // continue;
     end;
     if sex = 'Муж' then
     begin
        Ap.Range['c2'] := p;
    //    Ap.Range['c3'] := p;
       // break;
     end;
  end;
  db.AdsQueryStatistic.next;
end;

Для нахождения других районов ??? не знаю пока
А что надо делать с Октябрьский район ????
// Ap.Range['b3'] := p;???


за ран спс.
Ответить с цитированием