生成excel中的饼图

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[i] then

begin

channellist:= QCaky.FChannelList[i]+','+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[i] then

begin

//动态生成excel页数

//Excelid.worksheets.add;

//sheetCount:=sheetCount+1;

//Excelid.worksheets[sheetCount].name:='图表页'+inttostr(sheetCount);

//在这里生成图表

if CheckListBoxPOTT.Items[i]='全天' then

begin

potBstrtime:='';

potEstrtime:='';

end

else

begin

potBstrtime:=QCaky.FPOTbeginList[i];

potEstrtime:=QCaky.FPOTendList[i];

end;

Rres:=QCaky.getFQShr(Jdate,FormMain.QAreacode,channellist,potBstrtime,potEstrtime);  //取得占有率

ExClos:=1;

while not QCaky.FADOQueryFQ.Eof do

begin

Excelid.worksheets[dataPage].Activate;

Jchannelname:=QCaky.FADOQueryFQ.fieldbyname('channelname').AsString;

JSHR:=QCaky.FADOQueryFQ.fieldbyname('allshr').AsFloat;

Excelid.worksheets[dataPage].Cells[ExRowsName,ExClos].Value :=Jchannelname;

Excelid.worksheets[dataPage].Cells[ExRowsValue,ExClos].Value :=JSHR;

inc(ExClos);

QCaky.FADOQueryFQ.Next;

end;

{添加一个二维图(20,50,450,230)表示(左,顶,宽,高)}

//achart1 := Excelid.worksheets[ImagePage].chartobjects.add(20,50,450,230);

achart1 := Excelid.worksheets[ImagePage].chartobjects.add(leftPostion,topPostion,widthPostion,heightPostion);

achart1.chart.charttype := xl3DPie ;  //生成何种类型的图********在此生成的是饼图

//设置x轴、y轴数据

cell1 :=  Excelid.worksheets[dataPage].Cells[ExRowsName,1];

cell2 :=  Excelid.worksheets[dataPage].Cells[ExRowsName,ExClos];

cell3 :=  Excelid.worksheets[dataPage].Cells[ExRowsValue,1];

cell4 :=  Excelid.worksheets[dataPage].Cells[ExRowsValue,ExClos];

Range1 := Excelid.worksheets[dataPage].Range[cell1, cell2]; //设定Chart类别坐标轴(x轴)的取值区域

Range2 := Excelid.worksheets[dataPage].Range[cell3, cell4]; //设定Chart数值坐标轴(y轴)的取值区域

series1:= achart1.chart.seriescollection ;

//series1.add (Range2,xlColumns,false);  //设置y轴的数据

series1.add (Range2,true);          //可以使用,能够生成饼图

achart1.chart.seriescollection[1].name:='nihao';

//设置饼图的形式

achart1.chart.seriescollection[1].ApplyDataLabels(xlDataLabelsShowLabelAndPercent,true,true,true);

achart1.Chart.Axes[xlCategory].CategoryNames := Range1;  //设置x轴数据

//series1.add (Range2,xlColumns,false);  //设置y轴的数据

//achart1.Chart.Axes[xlCategory].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;

Delphi 生成excel中的饼图的更多相关文章

  1. 通过python xlsxwriter模块生成EXCEL柱状图、饼图

    xlsxwriter模块不是python自带的,使用pip下载 import xlsxwriter #新建一个excel文件,起名为expense01.xlsx workbook = xlsxwrit ...

  2. 在Excel中制作复合饼图

    在Excel中插入饼图时有时会遇到这种情况,饼图中的一些数值具有较小的百分比,将其放到同一个饼图中难以看清这些数据,这时使用复合条饼图就可以提高小百分比的可读性. 文中的复合饼图只是方便以后记忆,故不 ...

  3. 【转】c# winform DataGridView导出数据到Excel中,可以导出当前页和全部数据

    准备工作就是可以分页的DataGridView,和两个按钮,一个用来导出当前页数据到Excel,一个用来导出全部数据到Excel 没有使用SaveFileDialog,但却可以弹出保存对话框来 先做导 ...

  4. 通过Workbook类 生成Excel导出数据

    需求: 实现错误信息生成Excel保存到本地让用户查看. 刚开始使用了微软自带的Microsoft.Office.Interop.Excel类库. Microsoft.Office.Interop.E ...

  5. .net生成Excel,并下载

    生成Excel的方式有很多种,这里记录两个最简单的: 1.将数据保存为html,然后输出到客户端,保存为Excel文件: 2.通过\t\n生成字符串,然后输出到客户端,保存为Excel. 以上两者的原 ...

  6. java利用poi生成excel文件后下载本地

    1.该功能需要poi的jar包,链接: http://pan.baidu.com/s/1migAtNq 密码: 38fx. 2.首先新建一个实体类,用以存放单个数据 public class Test ...

  7. java使用poi生成excel

    使用poi生成excel通常包含一下几个步骤 创建一个工作簿 创建一个sheet 创建一个Row对象 创建一个cell对象(1个row+1个cell构成一个单元格) 设置单元格内容 设置单元格样式. ...

  8. 在.NET中使用EPPlus生成Excel报表 .

    --摘抄自:http://blog.csdn.net/zhoufoxcn/article/details/14112473 在开发.NET应用中可能会遇到需要生成带图表(Chart)的Excel报表的 ...

  9. Delphi 提示在Delphi的IDE中,按Ctrl+Shift+G键可以为一个接口生成一个新的GUID。

    对于Object Pascal语言来说,最近一段时间最有意义的改进就是从Delphi3开始支持接口(interface),接口定义了能够与一个对象进行交互操作的一组过程和函数.对一个接口进行定义包含两 ...

随机推荐

  1. Linux命令行编辑快捷键

    Linux命令行编辑快捷键: history 显示命令历史列表 ↑(Ctrl+p) 显示上一条命令 ↓(Ctrl+n) 显示下一条命令 !num 执行命令历史列表的第num条命令 !! 执行上一条命令 ...

  2. 重新看php数组

    闲来有空,最近看php手册数组这块,对于array_values() 还是第一次接触,array_values是不保留键名,只有键值的函数,还有一个作用就是  重新索引. unset() 函数,是删除 ...

  3. java 反射调用支付SDK

    在android开发中会遇到各种SDK的接入,很是麻烦.最初在想能不能把所有的SDK都 融合到一个当中,发现有点异想天开.但是也可以解决SDK资源不小心没有引入,导致程序调用接口崩溃问题.经过查资料, ...

  4. UIView用户事件响应

    UIView除了负责展示内容给用户外还负责响应用户事件.本章主要介绍UIView用户交互相关的属性和方法. 1.交互相关的属性 userInteractionEnabled 默认是YES ,如果设置为 ...

  5. C# div布局

    本文讲解使用DIV+CSS布局最基本的内容,读完本文你讲会使用DIV+CSS进行简单的页面布局. 转载请标明:http://www.kwstu.com/ArticleView/divcss_20139 ...

  6. Spring_DI利用set方法赋值Demo

    Person.java public class Person { private Long pid; private String pname; private Student student; p ...

  7. OpenGL光源位置

    一.OpenGL光源简介 OpenGL提供了多种形式的光源,如点光源.平行光源和聚光灯光源等.所有光源都使用 glLight*接口来设置光源属性,其中包括 glLight{if} 和 glLight{ ...

  8. Node.js的长连接

    之前写的js服务器脚本,在服务器上运行的挺好的.也经过了压力测试,单次接受4000次的连接不成问题.在5s里,可以应答1W多次的连接.对于这个连接次数,我们还是挺满意的,但是Boss说:客户端每2分钟 ...

  9. 永久关闭防火墙和selinux

    临时关闭selinux: setenforce 0    //设置SELinux 成为permissive模式 彻底禁用selinux: 使用root用户,vim /etc/sysconfig/sel ...

  10. CSS3的过渡效果(transition)与动画(animation)

    1.Transition Transition是一种直观上的效果,让DOM元素的某个属性在固定时间内从一旧值到一新值.目前Firefox.Opera.Safari和Chrome都支持transitio ...