Question

所以，我遇到的问题是我在图表上为每个学生显示两个栏，我只想要其中一个。虽然他们是正确的高度，所以这很好。这是我的Delphi源代码;

strlstField := TStringList.Create();
ADOQGetResults.SQL.clear;
ADOQGetResults.SQL.Add(
                      'SELECT Results.StudentID, SUM(Results.Rawmark) as TRM, StudentInfo.Fname '+
                      'FROM (StudentInfo INNER JOIN Results ON StudentInfo.StudentID = Results.StudentID) '+
                      'WHERE (((StudentInfo.StudentID)=Results.StudentID))  AND Results.TestID =12 '+
                      'GROUP BY StudentInfo.Fname, Results.StudentID'
                      );
ADOQGetResults.Active := True;
ADOQGetResults.Open;

DBChart1.Title.Text.Clear;
DBChart1.Title.Text.Add('Class leaderboard');
DBChart1.Title.Font.Size := 15;
DBChart1.LeftAxis.Title.Font.Size := 12;
DBChart1.LeftAxis.Title.Caption := 'Total marks';
DBChart1.BottomAxis.Title.Font.Size := 12;
DBChart1.BottomAxis.Title.Caption := 'Student';

//Charting Series
//To Remove Old Series
for intCnt := DBChart1.SeriesCount -1 downto 0 do
    DBChart1.Series[intCnt].Free;
//To Add New Series
for intCnt := 1 to ADOQGetResults.FieldCount - 1 do
begin
   strlstField.Add(ADOQGetResults.FieldList[intCnt].FieldName);
   DBChart1.AddSeries(TBarSeries.Create(nil));
end;
//To set source for Series
for intCnt:= 0 to DBChart1.SeriesCount -1 do
begin
   with DBChart1 do begin
      Series[intCnt].Clear;
      Series[intCnt].Title := strlstField[intCnt];
      Series[intCnt].ParentChart := DBChart1;
      Series[intCnt].DataSource := ADOQGetResults;
      Series[intCnt].XLabelsSource := 'Fname';
      Series[intCnt].YValues.ValueSource := 'TRM';
   end;
end;

我一直在努力解决一整天出错的事情，所以如果有人能提供帮助，我会非常感激！这是图表现在的样子; http://oi48.tinypic.com/6qelba.jpg

Answer 1

为什么在结果中循环遍历每个FIELD（在查询中返回3个字段）并在结果中添加一个PER系列字段？这几乎就像你认为字段数等于你的行数等。其次，我冒昧地猜测你的查询中的某些内容加上你的数据（我们看不到）可能会导致你的查询结果中的行数超出预期。
当你的查询总是返回3个字段，1个字段没有图表，1个字段是系列标签源而1个字段是系列值源时，为什么要销毁和重新添加系列？只需在你的dfm中在设计时静态创建一个系列，并忘记所有这些疯狂的运行时内容。您是否尝试过双击dbchart并在那里添加一个BarChart系列？
这样可以解决问题。顺便说一句，您不需要两次打开数据集。请注意，我在这里使用Delphi附带的DBDEMOS.mdb数据库，以便每个人都可以玩。添加数据库图表，在DESIGNTIME添加一个条形图系列。根据需要配置。使用此代码。下面的数据集是TADODataset。

-

dataset.CommandText :=    'select EmpNo,FirstName,Salary from employee';

dataset.Active := True;

DBChart1.Title.Text.Clear;
DBChart1.Title.Text.Add('Class leaderboard');
DBChart1.Title.Font.Size := 15;
DBChart1.LeftAxis.Title.Font.Size := 12;
DBChart1.LeftAxis.Title.Caption := 'Total marks';
DBChart1.BottomAxis.Title.Font.Size := 12;
DBChart1.BottomAxis.Title.Caption := 'Student';


if DBChart1.SeriesCount<1 then
begin
  raise Exception.Create('Add series to your chart in the dfm ONCE.');
end;


//To set source for Series
   with DBChart1 do begin
      Series[0].Title :=  'Test';
      Series[0].DataSource := dataset;
      Series[0].XLabelsSource := 'FirstName';
      Series[0].YValues.ValueSource := 'Salary';
   end;

请注意，这仍然是您必须编写的代码。如果不是全部在dfm（表单设计器）中，你可以完成大部分工作。

简单的Delphi数据库管理

1 个答案: