解决方案 »
- 也祝亮劍拔牙順利,凱旋歸來
- 界面设计高手给点提示啊
- 如何获取计算机正在访问的网址!
- 如何处理退格键??
- delphi打开一个空word文档编辑后,怎样把这个编辑的WORD文件存储到access数据库的
- 我是Delphi的初学者,哪位大侠能给我发点适合初学的小实例啊?
- 新手问题(源码分析):如何实现一个图片的平滑移动。。。
- 这段代码为什么出错???在线等待?
- 在Delphi7中安装Raize4.01运行后出错
- 同志们,帮忙查看这个错误信息!!!!!
- 紧急求助!用delphi7的indy做server,用sockettoolv做客户机调试,为什么不能接收数据
- delphi xe2以上版本64位程序调式无法进入断点
DBChart1.Series[0].DataSource := ADOQuery1; 试试
DBChart1.Series[0].DataSource := Nil;
DBChart1.Series[0].XLabelsSource := '';
DBChart1.Series[0].YValues.ValueSource := '';
DBChart1.Series[0].Clear;
ADOQuery1.Close;
再
ADOQuery1.SQL.Text :=‘xxxx’;
ADOQuery1.Open;
....
ADOQuery1.SQL.Text :=
'SELECT count(sjF) as 数量,SJF as sjdept from tbpack group by SJF';
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
DBChart1.Series[0].Clear;
DBChart1.Series[0].DataSource := ADOQuery1;
DBChart1.Series[0].XLabelsSource := '';
DBChart1.Series[0].YValues.ValueSource := ''; ADOQuery1.SQL.Text :=
'SELECT count(sjdept) as 数量 ,sjdept from tbpack group by sjdept';
ADOQuery1.Open;
DBChart1.Series[0].DataSource := ADOQuery1;
DBChart1.Series[0].Clear;
DBChart1.Series[0].XLabelsSource := 'sjdept';
DBChart1.Series[0].YValues.ValueSource := '数量';
end;