有个例子更好!

解决方案 »

  1.   

    我用的是chart,代码如下
    Series1.Clear;
        with AdoDataSet1 do begin
          Close;
          CommandText := 'Select 文化程序 ,Count(*) as ZS From 人员表  Group by  文化程序';
          Open;
          if IsEmpty = False then
          begin
            First;
            while not EOF do begin
              if FieldByName('文化程序').IsNull = False then
              begin
                Series1.Add(FieldByName('zs').AsInteger, FieldByName('文化程序').AsString);
              end;
              Next;
            end; //while
          end;
          Close;
        end; //w
      

  2.   

    我清楚饼图中可以用addy来给图中的数值定义。那么如何定义这些数值的labels呢。
      

  3.   

    楼主,你还不如用SQL语句形成一个临时表,里面存放百分比呢,然后让DBCHART连接上就可以显示了啊
      

  4.   

    可能说的太含糊了哈,实际上就是形成SQL语句,让它返回几条记录,其中一个字段代表百分比,那样DBCHART捆搬到这个字段的话,饼图就自动形成了啊,我想形成那样的SQL语句,楼主应该没问题吧