ASP.NET学习基础三十一：更简单的WEB OFFICE XP CHART程序

//利用MICROSOFT WEB OFFICE XP COMPONENTS进行WEB 图表进行设计

//首先添加引用在COM引用中选择利用MICROSOFT WEB OFFICE XP COMPONENTS

//给ASP.NET用户添加权限。看EXCEL部分

//using OWC10;

//using System.IO;

String constr="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=dianxinkapin;Data Source=new";

String command="select * from comeout";

 

OleDbConnection myConn = new OleDbConnection(constr) ;

myConn.Open ( ) ;

//创建一个 DataSet

DataSet  myDataSet = new DataSet ( ) ;

//用 OleDbDataAdapter 得到一个数据集

OleDbDataAdapter myCommand = new OleDbDataAdapter (command,constr ) ;

//把Dataset绑定person数据表

myCommand.Fill (myDataSet,command) ;

//关闭此OleDbConnection

//DataRow dr = ds.Tables["comeout"].Rows[1];

OleDbCommand myCmd1=new OleDbCommand("select * from comeout",myConn);

OleDbDataReader Dr1=myCmd1.ExecuteReader();

OWC10.ChartSpaceClass oChartSpace = new OWC10.ChartSpaceClass();

string names=string.Empty;

string totals=string.Empty;

while(Dr1.Read())

{

  names+=Dr1["卡类"].ToString()+"\t";

  totals+=Dr1["数量"].ToString()+"\t";

}

// clean up

myConn.Close();

oChartSpace.Charts.Add(0);

oChartSpace.Charts[0].Type=OWC10.ChartChartTypeEnum.chChartTypeColumn3D;//图表的类型

oChartSpace.Charts[0].SeriesCollection.Add(0);

oChartSpace.Charts[0].SeriesCollection[0].SetData(OWC10.ChartDimensionsEnum.chDimCategories,

Convert.ToInt32(OWC10.ChartSpecialDataSourcesEnum.chDataLiteral),names );//第四个字段

oChartSpace.Charts[0].SeriesCollection[0].SetData(OWC10.ChartDimensionsEnum.chDimValues,

Convert.ToInt32(OWC10.ChartSpecialDataSourcesEnum.chDataLiteral),totals );//第五个字段

oChartSpace.Charts[0].Border.Color="black";//边界颜色

oChartSpace.Charts[0].HasTitle=true;//图例说明

oChartSpace.Charts[0].Title.Caption="图表一";//图例说明文字

oChartSpace.HasChartSpaceTitle=true;

oChartSpace.ChartSpaceTitle.Caption="卡品出库图表分析";

string strFullPathAndName=Server.MapPath(System.DateTime.Now.Ticks.ToString() +".gif");

oChartSpace.ExportPicture( strFullPathAndName, "gif", 400, 300);//导出图象

ImageButton1.ImageUrl=strFullPathAndName;//加载图象

ImageButton1.Visible =true;

RemoveFiles(Server.MapPath("."));//删除GIF文件