在接口部分的uses 里加上TeEngine
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart, ProCtrls, StdCtrls,
RXCtrls, EHGrids, DBGridEh, PrnDbgeh, Buttons, passoverbtn, Db, DBTables,
TeEngine ;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart, ProCtrls, StdCtrls,
RXCtrls, EHGrids, DBGridEh, PrnDbgeh, Buttons, passoverbtn, Db, DBTables,
TeEngine ;
使用Tchart相关的,必须要在接口里加上相关的单元。
具体那个控件加什么单元,你可以看帮助文件。都有说明的。
救我呀!我加了后说identifier redeclared :'TeEngine';
明显时标示没有找到
在信息框中双击错误提示。看看在哪个单元中没有声明TeEngine?
没有什么异常!
而且在
procedure Tsingle_Cust_stat_Fm.drawchart(myQuery:Tquery;yfield_str:string);
调用时没有什么任何异常!
而单出对话框是在procedure Tsingle_Cust_stat_Fm.GroupType_RGPClick(Sender: TObject);的end;之后
太怪了,而且teechart什么也没有画
呵呵,问题在 drawchart(myQuery:Tquery;yfield_str:string);
我理解上有点问题,少了循环传递数据给teechartprocedure Tsingle_Cust_stat_Fm.drawchart(myQuery:Tquery;yfield_str:string);
var
SeriesCls : TChartSeriesClass;
mySeries : TChartSeries;
i : integer;
begin SeriesCls := TAreaSeries;
mySeries := SeriesCls.Create(self);
mySeries.ParentChart := stat_DBChart;
mySeries.Clear;
mySeries.Marks.Visible := True;
mySeries.ColorEachPoint := True; //下面对Series赋值(就是这了)
while not myQuery.Eof do
begin
mySeries.Add(myQuery.FieldByName(yfield_str).Value,myQuery.FieldByName('水单时间').asstring, clTeeColor);
myQuery.Next;
end;
end;
我的email:[email protected]
结分了
暂时没有,不过以后有了,我会给你的。有空多联系,我在北京。
[email protected]
有空来Delphi Fans共享联盟看看,说不定有些小咚咚你能用上。
我会向Kingron老兄学习的,嘻嘻。
要不我们还可以认识一下,Delphi Fans我已有注册叫iis,
呵呵 好吧!