Построение графика в Delphi

[вася радугов]

Помогите, пожалуйста, построить график
У меня есть БД Access. В этой БД есть таблица " Продажи". Хочу построить по ней график продаж. Как сделать, чтобы можно было выбирать за какой месяц строить график ( за май, за апрель и т.п.) или за весь год ( т.е. за все месяцы).
Структура моей таблицы примерно такая:
Дата Сумма продаж
06.04.2014 2000
03.01.2014 698500
12.05.2014 10000

[Stilet]

Ну сам график ты в курсе как строить? DBChart - и вперед. Там указываешь DataSource, откуда данные берутся и получаешь график.

Как сделать, чтобы можно было выбирать за какой месяц

А вот ты используй фильтрацию (если у тебя Table) или запрос (Если Query).
Тогда и график сам перестраиваться будет.
Например (грубо так)

with AdoQuery do begin
 active:=false;
 sql.text:='select * from таблица where month(Дата)=:mo';
 Parameters.ParamByName('mo').value:=Тут месяц, по которому фильтруется
 active:=true;
end;

При условии что DBChart подключен к тому же Датасету, который связан с AdoQuery.

[вася радугов]

Возникла такая проблема. У компонента DBChart нет DataSource. Или может я не так понял?

[Stilet]

Фу ты, ну не у него конкретно а у его Серий. Создавай же Series и у них указывай датасет.

[вася радугов]

Первый раз строю графики в Delphi, поэтому извините за глупые вопросы.
Попробовал пока строить без выбора конкретного месяца, а вообще со всеми данными из таблицы. Получилось так :

form10.Data.Close;
form10.data.SQL.Clear;
form10.data.SQL.Add('SELECT *');
 form10.data.SQL.Add('FROM racd');
 form10.data.Open;

 DBChart1.Legend.Visible:=false;
 form10.data.First;
 DBChart1.Series [0].Clear;
 while not data. eof do
 begin
 DBChart1.Series [0].Marks.style:=smsValue;
 DBChart1.series [0].Add(data.FieldValues['data'],data.FieldValues['summa']);
 form10.data.next;
 end;
end;

Но выходит ошибка list index out of bounds 0. С чем это связано? Данные в таблице есть, она непустая.

[вася радугов]

Решил построить таким образом. В самом DBChart создал Series1, в Dataset выбрал свой запрос Query1, по Х-сумма, по У- дата продажи.
Только даты и сумма почему-то не из таблицы, а какие-то левые вообще. Как исправить?
Помогите, никогда до этого с DBChart не работал.

[Stilet]

Решил построить таким образом. В самом DBChart создал Series1, в Dataset выбрал свой запрос Query1, по Х-сумма, по У- дата продажи

Абсолютно верно.

даты и сумма почему-то не из таблицы, а какие-то левые вообще.

А ты точно нужные поля выбрал?

[вася радугов]

Вот еще раз проверил, все правильно, но данные на графике не те

[Streletz]

Сообщение от вася радугов

Вот еще раз проверил, все правильно, но данные на графике не те

Проверьте всё внимательно. Программа может выдать только те данные, выборка которых в ней заложена.
Если данные не те, то, скорее всего, или запрос берёт их не оттуда, откуда нужно, или Вы с ними что-то делаете в самом запросе или программе.

[Utkin]

Вот еще раз проверил, все правильно, но данные на графике не те

Вероятно данные те, но вносишь их не правильно. Х и У не перепутал?