以前从没有用过图表(TDbChar)
现在想要把报表中的数据用DBChar显示出来
看了很多资料，还是做不出来
我用的是ADOQuery或ADOTable的控件(不能是Table或Query)
哪位大侠能指点一下，如果可以的话，不妨发个Demo给我
现在想要把报表中的数据用DBChar显示出来
看了很多资料，还是做不出来
我用的是ADOQuery或ADOTable的控件(不能是Table或Query)
哪位大侠能指点一下，如果可以的话，不妨发个Demo给我
解决方案 »
- 关于连接Excel2007的问题
- 自定义函数如何调用
- Data.Database.StartTransaction;和Data.Database.Commit;一起使用有错吗??
- 利用ACCESS数据库 实现 分布数据库
- 如何提取字符串中的部分字符串，例如提取'33 23 43'中的 '33' ,'23' ,'43' 。
- 为什么我的数据库操作这么慢？
- 这三个prcedure写在不同地方区别是什么呀？
- ☆☆☆☆☆高分寻求答案~~!!!☆☆☆☆☆
- 欢迎使用我开发的通用查询系统
- 如何去掉MaskEdit的框中该死的下划线？
- 从Excel-->XML--->HTML 的转换。
- 怎样看FastReport自带的Demos呢？
首先介绍一下工程上经常用到的直方图和饼图的概念。由于实际需要，常需比较一组数据或多组数据的相对大小(如公司中各部门的收支情况比较、金融利率的调整情况等)。为了能够简洁直观地得到比较结果，通常将这些数据放入直角坐标系，以纵坐标的相对大小比较数据，即所谓直方图；或是将各数据转化为百分点，放入一个单位圆，即形成所谓饼图。
在Delphi组件VBX页中，ChartFx构件就是以上工程需要而设计的。选取该构件置于窗体上，调整至合适大小，即可见到缺省的图表格式(在未初始化数据时，构件自动生成随机数据充当比较项目)。在对象监视器中，设置不同的属性，还可以看到其它工具条。以下逐条解释各属性：
Nseries需比较的数据项的个数
Nvalues每个数据项中的子项目数
TitleDlg图表的标题设置对话框
AdmDlg图表构件绘图区上下左右边缘处注解设置对话框
FontDlg注解文字字体设置
BorderStyle图表构件的边框风格
Height、Width、Top、Left这四项设置图表构件在窗体中的位置及大小
BottomGap、TopGap、LeftGap、RightGap这四项设置图表构件绘图区的位置及大小
ChartType、pThpe、Style这三项设置图表构件及绘图区的类型与风格
Chart3D用以设置是否以三维形式显示数据
ViewRot3D设置观察三维图示的视角
WallWidth设置三维图示中X、Y、Z三壁的厚度
LinebkColor、LineColor、LineStyle、LineWidth设置线条的颜色和风格
PointType设置数据点的形状、类型
RGB3DBK、RGB2DBK、RGBBK、RGBBarHorz设置2/3维图示中背景色
Cursor设置绘图区光标形状
Decimals设置图表中数据显示的小数位数
Stacked设置图表中数据的归一化方式
Grid、VertGridGap设置坐标系的背景网格线
在制作同时比较多组数据的图表时，还需要设置以下属性：
FixedGap每个数据项之间间隔
ThisPoint数据项的次序
ThisSerie每个数据项中子数据项的次序
ThisBkColor、ThisColor颜色设置
余下的Visible、Hint、HelpContext、Name、Tag等属性与其它构件相同，不再赘述。下面对CustTool、ToolBar、PalleteBar、PatternBar几个关于图表中工具条设置的属性作简单介绍。PalleteBar设为True时生成的图表带有颜色设置工具条，即可在浏览图表时改变数据项颜色以适应不同视觉需求。
PatternBar设为True时生成的图表带有图案设置工具条，作用同上。
ToolBar设为True时生成的图表带有一个功能
强大的工具条，其上加速键能完成的功能有：从数据文件读入比较数据、输出数据到数据文件、图表打印、在直方图/饼图/离散点图/曲线拟合图之间切换、2/3维切换、改变视角、以表格方式浏览、修改数据等等。丰富的功能节省了程序员的开发时间，使用极为方便(工具条上每个加速键都有Hint提示)。
CustTool在该属性里可以设置需要使用的功能项，Delphi自动去除未选取的加速键。
到目前为止，读者对ChartFx构件的属性已有了一定的了解，可以设计较为复杂的图表了，但还不能真正制作实用的图表，因为我们还未介绍如何初始化数据。同时读者可能还发现了这么个问题：当数据较多以致构件空间容纳不下怎么办?我们举一实例来说明这两个问题。假定某校要比较全校40个班级某一学期班平均成绩，40个班的平均分和名称(实验班、初一(2)等)分别存放在两个数组Data［39］、Class Name［39］中。在窗体FormCreat事件中加入以下代码：
For i:=0 to 39 Do Begin
ChartFx 1.OpenData［COD-VALUES］:=makelong(1,40);
With ChartFx1 Do Begin
ThisSerie:=0;
Value［i］:=Data［i］;
Legend［i］:=ClassName［i］;
CloseData［COD-VALUES］:=0;
End;
End;
按F9执行，我们发现图表并未显示全部40个数据，而是在绘图区下方出现了滚行条，滚动此条就可以浏览全部数据，Delphi轻松地解决了这个问题。在绘图区的右方则出现了一个注解框，显示每个数据项编号所对应的班级名称。
若设置ChartType为Bar，则每个数据项都用一个有一定高度(此高度由初始化数据及归一化方式决定)的彩色矩形条来表示。用鼠标双击矩形条即显示对应数据，显示方式由DblClkDlg和RigClkDlg设定。
我用的是D5,Ado也打了补丁了
adoquery.first;
while not adoquery.eof do
begin
series1.add(adoqeury.fields[0].asfloat,adoquery.fields[1].asstring,clred);
adoquery.next;
end;