我想在程序运行中动态的设置dbChart的数据源和X,Y.(其它属性我已静态设置好了)
我想从存储过和中得到数据源 with DataModule2.ADOStoredProcREPORT do
begin
CLOSE;
ProcedureName := 'fdc_fx_XSTJ';
Parameters.Refresh;
Parameters.parambyname('@GardenNo').Value := trim(_GARDENNO);
Parameters.parambyname('@Level').Value := trim(_User_Level);
Parameters.parambyname('@HouseType').Value := trim(cmbHouseType.text);
...
Prepared;
Open;
end;
存储过程返回一个表,如:
银行名称, 数量, 金额
中行 100 3000.90
农行 200 5000.90我想在X上显示银行名称,Y上显示数量或金额(数量或金额用RadioButton的确定)
当运行过程中,RadioButton单击事件,再调整Y是数量或金额.
我想从存储过和中得到数据源 with DataModule2.ADOStoredProcREPORT do
begin
CLOSE;
ProcedureName := 'fdc_fx_XSTJ';
Parameters.Refresh;
Parameters.parambyname('@GardenNo').Value := trim(_GARDENNO);
Parameters.parambyname('@Level').Value := trim(_User_Level);
Parameters.parambyname('@HouseType').Value := trim(cmbHouseType.text);
...
Prepared;
Open;
end;
存储过程返回一个表,如:
银行名称, 数量, 金额
中行 100 3000.90
农行 200 5000.90我想在X上显示银行名称,Y上显示数量或金额(数量或金额用RadioButton的确定)
当运行过程中,RadioButton单击事件,再调整Y是数量或金额.
Series1.XLabelsSource:='银行名称';if radiobox then
Series1.YValues.ValueSource:='数量'
else
Series1.YValues.ValueSource:='金额';series1.CheckDataSource; //刷性一下图表
DBChart1.SeriesList[0].YValues.ValueSource:= '数量';
else
DBChart1.SeriesList[0].YValues.ValueSource:= '金额';