如何用chart读取查询后的dbgrid里的数据?!
比如说dbgrid已经执行过了edit组件里的模糊查询了
adoquery1.sql.add('select * from tableA where mc like ' + '%'''+trim(edit1.text)+'''%');应该怎么设置?!
比如说dbgrid已经执行过了edit组件里的模糊查询了
adoquery1.sql.add('select * from tableA where mc like ' + '%'''+trim(edit1.text)+'''%');应该怎么设置?!
series2.Add(q_lxclckjl_nr.fieldbyname('sl').AsFloat,q_lxclckjl_nr.fieldbyname('hwmc').AsString,color); // 柱型
series3.Add(q_lxclckjl_nr.fieldbyname('sl').AsFloat,q_lxclckjl_nr.fieldbyname('hwmc').AsString,color); // 饼型
color需要自定义,如
var
color : Tcolor;
color := clred; // 红色
请恕我太菜了,能详细讲解一下吗?
dbchart如何设置才能读取dbgrid[查询后]的数据啊?!
一个线状图的例子
var
Series1:TLineSeries;
Str,str1:string;
i:integer; with DM.DataModule1 do
begin
Series1:=TlineSeries.Create(self);//动态创建的series如果已有设计好就不用了
Series1.ParentChart:=Chart1;
series1.Title:='ffffff';
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('nameaaaa');
Series1.DataSource:=Query2;//这里是指数据集,不是datasource控件而是数据源不要被名字迷惑
Series1.XLabelsSource:='DT';//主要这里设置为字段名
Series1.YValues.ValueSource:='DISPX';//Y轴字段名
chart1.LeftAxis.AutomaticMinimum:=False;
Chart1.LeftAxis.Minimum:=0;
???
输入查询的字段(模糊查询)到edit1的组件点,然后点击button后,dbchart显示相应的图例!?
用的是adoquery1查询组件procedure Tsearch.Button1Click(Sender: TObject);varStr,str1:string;
i:integer; with adoquery1 do
begin
Series1.ParentChart:=Chart1;
series1.Title:='饼图图例';
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('数据查询');
Series1.DataSource:=adoQuery1; //这里是指数据集,不是datasource控件而是数据源不要被名字迷惑
Series1.XLabelsSource:='gcmc';//主要这里设置为字段名
Series1.YValues.ValueSource:='gcje';//Y轴字段名
chart1.LeftAxis.AutomaticMinimum:=False;
Chart1.LeftAxis.Minimum:=0;
end;
是这样子的吗?
adoquery1的sql属性是select * form dj
不过需要的查询是select gcmc,gcje from dj where gcmc like + '%'''+trim(edit1.text)+'''%'希望高手能够给予解答,如果觉得分不够还可以再加,只要能解决这个问题就好