Подключаем программно базу данных Access к DBChart
Допустим, есть некая таблица DataXXX в базе данных database.mdb, значения которой нам надо отобразить в виде столбчатой диаграммы.
Для этого воспользуемся компонентом TDBChart (вкладка TeeChart Std). Поместим на форму следующие компоненты: DBChart, ADOConnection, ADOQuery и обработчике событий OnShow нашей формы запишем следующий код:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
DBChart Delphi var path, constring, sql_line: string; begin //Подключаем базу данных Access database.mdb path:= 'C:\Statistic.mdb'; //путь к файлу базы данных AdoConnection1.Close; ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+'"'+path+'"'; AdoConnection1.ConnectionString:=ConString; AdoConnection1.Open; ADOQuery1.SQL.Clear; sql_line:='SELECT * FROM DataXXX'; ADOQuery1.SQL.Add(sql_line); ADOQuery1.Open; DBChart1.Legend.Visible:=False; ADOquery1.First; DBChart1.Series[0].Clear; while not ADOquery1.Eof do begin DBChart1.Series[0].Marks.Style := smsValue; DBChart1.Series[0].Add(adoquery1.FieldValues['Quantity'],adoquery1.FieldValues['Month']); ADOquery1.Next; end; end; |
В примере выше мы воспользовались функцией Add. Она имеет три параметра, два из которых не являются обязательными.
|
1 |
DBChart1.Series[0].Add(AValue, ALabel, AColor); |