刀塔2tb至宝棱彩:Delphi中DBChart的应用
来源:百度文库 编辑:偶看新闻 时间:2024/07/06 16:42:20
1.绑定数据
ADOQuery1.Active:=True;
DBChart1.Series[0].DataSource:=ADOQuery1;
DBChart1.Series[0].XLabelSource:='FiledName';
DBChart1.Series[0].YValues.ValueSource:='FieldName';
2.切换图表类型
tmpChart:=DBChart1.Series[0];
ChangeSeriesType(tmp,TLineSeries);
tmpChart.Active:=True;
tmpChart.RefreshSeries;
3.设置分页
DBChart1.ScaleLastPage:=true;
DBChart1.MaxPointsPerPage:=10;
DBChart1.Page:=1;
DBChart1.PreviousPage;
DBChart1.NextPage;
DBChart1.Page:=NumPages;
4.导出图表
SaveToBitmapFile(FileName);
5.打印图表
uses TeePrevi;
ChartPreview(Parent,DBChart1);
TeePreview(Parent,DBChart1);
6.数据源
ADODataSet1.CreateDataSet;
AdoDataSet1.Insert;
AdoDataSet1.FieldByName('Value').AsFloat:=200000;
AdoDataSet1.FieldByName('Info').AsString:='05-02';
AdoDataSet1.Post;
ADOQuery1.Active:=True;
DBChart1.Series[0].DataSource:=ADOQuery1;
DBChart1.Series[0].XLabelSource:='FiledName';
DBChart1.Series[0].YValues.ValueSource:='FieldName';
2.切换图表类型
tmpChart:=DBChart1.Series[0];
ChangeSeriesType(tmp,TLineSeries);
tmpChart.Active:=True;
tmpChart.RefreshSeries;
3.设置分页
DBChart1.ScaleLastPage:=true;
DBChart1.MaxPointsPerPage:=10;
DBChart1.Page:=1;
DBChart1.PreviousPage;
DBChart1.NextPage;
DBChart1.Page:=NumPages;
4.导出图表
SaveToBitmapFile(FileName);
5.打印图表
uses TeePrevi;
ChartPreview(Parent,DBChart1);
TeePreview(Parent,DBChart1);
6.数据源
ADODataSet1.CreateDataSet;
AdoDataSet1.Insert;
AdoDataSet1.FieldByName('Value').AsFloat:=200000;
AdoDataSet1.FieldByName('Info').AsString:='05-02';
AdoDataSet1.Post;
送上所有的分.急! delphi :dbchart的使用
在delphi中怎么使用dbchart显示数据库表X轴为团体名称Y轴为团体人数图表
c++builder6下DBchart的问题
delphi中goto的用法
Delphi 中 Grid 的 index
delphi 中 pointer 的使用?
Delphi数据库应用的实例打包好的
Delphi 7 web 开发与应用 的电子书下载地址?
Delphi中:
关于delphi中自定义纸张的问题
delphi中枚举类型的成员
delphi 中 dbgrid 的 Column.Field 是什么意思?
delphi中memo控件的一个问题
DELPHI中SQL查询的问题
DELPHI中SQL查询的问题
如何改变delphi 中按钮的样式
delphi中关于listview的问题
delphi 中frame内存释放的问题
delphi中类的占位符问题
关于delphi中DLL释放的困惑
delphi中提取颜色的例子
DELPHI 中 BAIDU控件的用法
delphi 中 $这个符号干嘛用的?
delphi 中如何初如化文本文件的值