先设置参数
g_DBSetName:TADOQuery;//TComponent;
g_Title: String;
g_SXlabel:String;
g_SXValue1:String;
g_SXValue2:String;
g_PieValue:String;
g_SYValue1:String;
g_SYValue2:String;
g_RadiusValue:String;
g_EndXValue,g_StartXValue,g_StartYValue:String;
g_StartValue:String;
g_AndStr,g_AddStr,g_CutStr,g_AddZero,g_CutZero:String;在根据不同的dbchart传不同的参数
Series1.DataSource:=g_DBSetName;
Series1.YValues.ValueSource:=g_SYValue1;
Series1.XLabelsSource:=g_SXlabel;
Series1.XValues.ValueSource:=g_SXValue1;
SQL语句可以给设定的g_DBSetName
g_DBSetName:TADOQuery;//TComponent;
g_Title: String;
g_SXlabel:String;
g_SXValue1:String;
g_SXValue2:String;
g_PieValue:String;
g_SYValue1:String;
g_SYValue2:String;
g_RadiusValue:String;
g_EndXValue,g_StartXValue,g_StartYValue:String;
g_StartValue:String;
g_AndStr,g_AddStr,g_CutStr,g_AddZero,g_CutZero:String;在根据不同的dbchart传不同的参数
Series1.DataSource:=g_DBSetName;
Series1.YValues.ValueSource:=g_SYValue1;
Series1.XLabelsSource:=g_SXlabel;
Series1.XValues.ValueSource:=g_SXValue1;
SQL语句可以给设定的g_DBSetName
cannot assign to a read-only property!
程序中:
DBChart1.Series[0].clear;
DBChart1.Series[0].DataSource := TAble1;
DBChart1.Series[0].XLabelsSource := 'x';//库字段名
DBChart1.Series[0].YValues.valuesource := 'y'; //库字段名
详细的用法自己看demo! delphi自带的很详细。