VPF::Динамическое отрбражение данных в DBChart

vitay62

Дата 16.12.2008, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 23.10.2008

Репутация: нет
Всего: нет

Здравствуйте!
Помогите, пожалуйста, решить проблему. Delphi7, DBE, Oracle8.1.7. Суть проблемы в следующем, есть несколько человек(пользователей), учет выполненых задач ими ведется в БД. Задача состоит в отображении графика за прошедший месяц по датам. Когда количество пользователей было фиксировано (например 4 человека) - проблема не возникала, т.к. в DBChart было внесено статически 4 серии и к каждой серии привязан свой SQL запрос. В настоящий момент количество пользователей заранее неизвестно, поэтому возникла необходимость создавать серии динамически вовремя выполнения запроса. В RunTime все выполняется нормально, без ошибок, но следующая создаваемая серия затирает пред'идущую. Подскажите, где я не прав?

Код


procedure Button1Click(Sender: TObject);
var
x, i: Integer;
SR: TFastLineSeries;
begin
      Query1.Open;                            //Выборка персонала по фамилиям
        for x:= 0 to Query1.RecordCount - 1 do
          begin
            SR:= TFastLineSeries.Create(DBChart1);
            SR.ParentChart:= DBChart1;
            DBChart1.SeriesList.Add(Query1.FieldAddress('FAMILY'));
            SR.DataSource:= Query3;
            Query3.Close;                       //Выборка даныых для загрузки в DBChart
            Query3.ParamByName('DF').AsString:= Query1FAMILY.AsString;
            Query3.ParamByName('D').AsDate:= DateEdit1.Date;
            Query3.ParamByName('D1').AsDate:= DateEdit2.Date;
            Query3.SQL.BeginUpdate;
            Query3.Open;
              for i:= 0 to Query3.RecordCount do
                begin
                  {SR.Title:= Query1FAMILY.AsString;
                  SR.Marks.Visible:= True;
                  SR.XValues.DateTime:= True;
                  SR.XValues.ValueSource:= 'DATESTUDY';
                  SR.YValues.ValueSource:= 'COUNT(N_STUDY)';}
                  DBChart1.Series[x].Title:= Query1FAMILY.AsString;
                  DBChart1.Series[x].Marks.Visible:= True;
                  DBChart1.Series[x].XValues.DateTime:= True;
                  DBChart1.Series[x].XValues.ValueSource:= 'DATESTUDY';
                  DBChart1.Series[x].YValues.ValueSource:= 'COUNT(N_STUDY)';
                  Query3.Next;
                end;
            DBChart1.Series[x].Active:= True;
            Query1.Next;
          end;
        Query1.Close;
    end.

Заранее благодарен за помощь.

Это сообщение отредактировал(а) Rodman - 17.12.2008, 09:49

vitay62

Дата 19.12.2008, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 23.10.2008

Репутация: нет
Всего: нет

Вопрос решен, созданием динамического компонеета TQuery, вместо статического Query3.

Код


procedure Button1Click(Sender: TObject);
var
x, i, n: Integer;
SR: TLineSeries;
Q: TQuery;
begin
  DBChart1.Title.Text.Clear;
  DBChart1.Title.Text.Add('Отчет за период: с:' + ' ' + DateToStr(DateEdit1.Date) + '  по:' + ' ' + DateToStr(DateEdit2.Date));
  if ComboBox1.ItemIndex = 0 then
    begin
      Query1.Open;         //Выборка персонала по фамилиям
        for x:= 0 to Query1.RecordCount - 1 do
          begin
            SR:= TLineSeries.Create(DBChart1);
            DBChart1.AddSeries(SR);
            DBChart1.Series[x].ParentChart:= DBChart1;
            SR.LinePen.Width:= 2;
            SR.Pointer.Visible:= True;
            SR.Pointer.Style:= psCircle;
            DBChart1.Series[x].Title:= Query1FAMILY.AsString;
            Query1.Next;
          end;
        for n:= 0 to DBChart1.SeriesCount - 1 do
          begin
            Q:= TQuery.Create(self);   //Выборка даныых для загрузки в DBChart
            Q.Close;
            Q.DatabaseName:= 'x';    
            Q.SQL.Text:= 'select datestudy, family, count(n_study) from study' + #13 +
                         'group by datestudy, family' + #13 +
                         'having (family = :DF) and (datestudy between :D and :D1)';
            Q.ParamByName('DF').AsString:= DBChart1.Series[n].Title;
            Q.ParamByName('D').AsDate:= DateEdit1.Date;
            Q.ParamByName('D1').AsDate:= DateEdit2.Date;
            Q.SQL.BeginUpdate;
            Q.Open;
            DBChart1.Series[n].DataSource:= Q;
              for i:= 0 to Q.RecordCount do
                begin
                  DBChart1.Series[n].Marks.Visible:= True;
                  DBChart1.Series[n].Marks.BackColor:= DBChart1.Series[n].ValueColor[n];
                  DBChart1.Series[n].Marks.Font.Color:= clBlack;
                  DBChart1.Series[n].Marks.Font.Style:= [fsBold];
                  DBChart1.Series[n].XValues.DateTime:= True;
                  DBChart1.Series[n].XValues.ValueSource:= 'DATESTUDY';
                  DBChart1.Series[n].YValues.ValueSource:= 'COUNT(N_STUDY)';
                  Q.Next;
                end;
          end;
      DBChart1.Refresh;
      Query1.Close;
    end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »