Delphi 生成excel中饼图的实例代码

阿也發表於 2013-8-19 16:09:35

<div class="codetitle">复制代码 代码如下:</div><div class="codebody" id="code32050"> var   i,j,m,n,count1:integer;   str:string;   Jdate:tdatetime;   channellist,potBstrtime,potEstrtime,Jchannelname:string;   Rres:boolean;   JSHR:double;   Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:variant;   ExRowsValue,ExRowsName,ExClos:Integer;   ImagePage,dataPage:integer;   leftPostion,topPostion,widthPostion,heightPostion:integer; begin   //创建OLE对象   try     Excelid:=CreateOleObject( 'Excel.Application' );   except     on Exception do raise exception.Create('无法创建Xls文件，请确认是否安装EXCEL')   end;   Excelid.Visible := false; //Excel显示设置   Excelid.WorkBooks.Add;  //生成新的excel文件   //不用excel以前的页   Excelid.worksheets.add;   dataPage:=Excelid.Worksheets.count;   //用作数据页   Excelid.worksheets.add;   ImagePage:=Excelid.Worksheets.count;   //showmessage(inttostr(dataPage));   //showmessage(inttostr(ImagePage)+'sdfg');   Jdate:=DateTimePicker1.Date;   count1:=0;   ExRowsValue:=1; //存储值   ExRowsName:=2;  //存储名称   //取得频率编号   for i:=0 to CheckListBoxFQ.Items.Count-1 do   begin     if CheckListBoxFQ.Checked then     begin      channellist:= QCaky.FChannelList+','+channellist;     end;   end;   delete(channellist,length(channellist),1);   leftPostion:=20;   topPostion:=50;   widthPostion:=450;   heightPostion:=230;   for i:=0 to CheckListBoxPOTT.Items.Count-1 do   begin     if CheckListBoxPOTT.Checked then     begin       //动态生成excel页数       //Excelid.worksheets.add;       //sheetCount:=sheetCount+1;       //Excelid.worksheets.name:='图表页'+inttostr(sheetCount);       //在这里生成图表       if CheckListBoxPOTT.Items='全天' then       begin         potBstrtime:='';         potEstrtime:='';       end       else       begin         potBstrtime:=QCaky.FPOTbeginList;         potEstrtime:=QCaky.FPOTendList;       end;       Rres:=QCaky.getFQShr(Jdate,FormMain.QAreacode,channellist,potBstrtime,potEstrtime);  //取得占有率       ExClos:=1;       while not QCaky.FADOQueryFQ.Eof do       begin         Excelid.worksheets.Activate;         Jchannelname:=QCaky.FADOQueryFQ.fieldbyname('channelname').AsString;         JSHR:=QCaky.FADOQueryFQ.fieldbyname('allshr').AsFloat;         Excelid.worksheets.Cells.Value :=Jchannelname;         Excelid.worksheets.Cells.Value :=JSHR;         inc(ExClos);         QCaky.FADOQueryFQ.Next;       end;        {添加一个二维图(20,50,450,230)表示（左,顶,宽,高）}       //achart1 := Excelid.worksheets.chartobjects.add(20,50,450,230);       achart1 := Excelid.worksheets.chartobjects.add(leftPostion,topPostion,widthPostion,heightPostion);       achart1.chart.charttype := xl3DPie ;  //生成何种类型的图********在此生成的是饼图       //设置x轴、y轴数据       cell1 :=  Excelid.worksheets.Cells;       cell2 :=  Excelid.worksheets.Cells;       cell3 :=  Excelid.worksheets.Cells;       cell4 :=  Excelid.worksheets.Cells;       Range1 := Excelid.worksheets.Range; //设定Chart类别坐标轴（x轴）的取值区域       Range2 := Excelid.worksheets.Range; //设定Chart数值坐标轴（y轴）的取值区域       series1:= achart1.chart.seriescollection ;       //series1.add (Range2,xlColumns,false);  //设置y轴的数据       series1.add (Range2,true);          //可以使用，能够生成饼图       achart1.chart.seriescollection.name:='nihao';       //设置饼图的形式       achart1.chart.seriescollection.ApplyDataLabels(xlDataLabelsShowLabelAndPercent,true,true,true);       achart1.Chart.Axes.CategoryNames := Range1;  //设置x轴数据       //series1.add (Range2,xlColumns,false);  //设置y轴的数据       //achart1.Chart.Axes.CategoryNames := Range1;  //设置x轴数据       //删除右侧的标题       achart1.Chart.Legend.delete;       //添加图表标题       achart1.Chart.HasTitle:=True;       achart1.Chart.ChartTitle.Characters.Text:='收视率走势图';       achart1.Chart.HasLegend:=true;       achart1.Chart.Legend.Position := xlBottom;       //图表左标说明       //achart1.Chart.Axes(xlValue,xlPrimary).HasTitle := True;       //achart1.Chart.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text := '收视率（%）';       //图表下标说明       //achart1.Chart.Axes(xlCategory,xlPrimary).HasTitle:=True;       //achart1.Chart.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text:='时间';       ExRowsName:=ExRowsName+2;       ExRowsValue:=ExRowsValue+2;     end;  //如果时段设置被选中     leftPostion:=20;     topPostion:=topPostion+600;     //showmessage(inttostr(dataPage));   end;   Excelid.Visible := true; end; </div>

 <div class="art_xg">
 您可能感兴趣的文章:<ul><li>python开发的小球完全弹性碰撞游戏代码</li><li>Delphi实现毫秒级别的倒计时实例代码</li><li>截取指定符号之间的字符串(随机读取)delphi实例代码</li><li>C# 调用Delphi dll 实例代码</li><li>Delphi修改操作注册表权限的代码</li><li>DELPHI7.0 获取硬盘、CPU、网卡序列号的代码</li><li>C#定义并实现单链表实例解析</li></ul>
 </div>

 </div>

頁: [1]

琼殿技术论坛's Archiver

Delphi 生成excel中饼图的实例代码