如何利用C Builder 4.0 Enterprise实现对Exce…

2008-02-23 05:31:04来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

我们在进行数据库软件的研发时,一般都要进行大量的报表设计,虽然我们能够利用Crystal Report 或程式自带的报表工具进行报表设计,但是当涉及到要设计多重报表或交叉报表时、我们一般都会感到自己力不从心。有时虽然想利用Excel作为前台报表,但却很难找到相关接口只能作罢。其实我们只要知道Excel的接口结构,就能够方便的实现对Excel的调用。

  原理:在Excel 中程式接口一般分为3层 ,分别为:ExelApplication、Excelbook、Excelsheet 其中ExelApplication代表Excel程式,Excelbook代表Excel程式当前的工作本,Excelsheet代表Excelbook当前激活的表格,因此在启动Excel程式时要按此序分别启动,这样就能实现对Excel报表的操作。

  现举例为例介绍如下:

  一、在Import Type Library中加入 Excel8.olb,在\include 子目录下生成Excel_TLB.h文档.

  二、在BCB4.0中Form1中添加Button1、Button2、Button3、Table1,并存盘为Project1。

  三、在Unit1.h中加入头文档 #include "..\Excel_tlb.h"

       在Private中加入

   Private:  

   TCOM_Application Application;   file://定义ExcelApplication对象//

    WorksheetPtr  Worksheet;        // 定义ExcelSheet对象//

    RangePtr   FirstCol ;           file://定义列对象//

    RangePtr   Range             file://定义表格操作范围//   

  四、在Button1的OnClikc事件中添加如下代码:

void __fastcall TForm1::Button1Click(TObject *Sender)

{//启动Excel//

   const int xlWBatChart = -4109;

const int xlWBatWorksheet = -4167;  

if (! Application)

  Application = CoApplication_::Create(); file://建立于Excel程式的连接//

Application->set_Visible(0, true);//打开Excel程式//

Application->Workbooks->Add(xlWBATWorksheet);//创建只含有一个ExcelSheet的ExcelBook//

Worksheet = Application->Workbooks->get_Item(1)->Worksheets->get_Item(1);//取得该表对象//

Worksheet->Name = WideString("database Date");//建立该表的名称//

}   

  五、在Button2的OnClikc事件中添加如下代码:

void __fastcall TForm1::Button2Click(TObject *Sender)

{//添加数据//

int i, j;

   Table1->DatabaseName="DBDEMOS";

   Table1->TableName="Author.db";

  Table1->Open( );

  for( i=0;iFieldCount;i )

Worksheet->Cells->set__Default(1,i,Table1->Fileds->Fileds[i]->FiledName);//在指定的位置加入字段名//

Table1->First();

j=2;

while( !Table1->Eof( ))

{

for( i=0;iFieldCount;i )

Worksheet->Cells->set__Default(j,i, Table1->Fields->Fileds[i]->AsString);////在指定的位置加入数据库的内容//

Table1->Next( );

j ;

}

  }

六、在Button3的OnClikc事件中添加如下代码:

void __fastcall TForm1::Button3Click(TObject *Sender)

{//表格配置//

  Range = m_Worksheet->get_Range("C1:F20");//配置表格操作范围//

  Range->Font->size=12;//配置字体大小//

  Range->Columns->Interior->ColorIndex = 3;//配置表格表格颜色//

  Range->Borders->LineStyle = xlContinuous;//配置表格边框//

  FirstCol = m_Worksheet->Columns->get__Default(3 );//取得当前表格的第三列对象//

  FirstCol->ColumnWidth = 25;       // 配置对象宽度//

  FirstCol->Font->Bold = true;        // 配置字体属性为加粗//

  FirstCol->Font->Italic = true;       file://配置字体的种类//

  FirstCol->Font->Color = clBlue;     // 配置字体的颜色//

}

   以上程式在C Builder 4.0 Enterprise Pwin98中实现。

   通过以上程式能够看出,只要我们在程式中对Excel进行巧妙的配置,就能够设计出具备专业水平的报表。



标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇: C builder编程修改注册表的问题

下一篇: 如何利用C Builder 5.0 实现屏幕保护程式的研发

热门词条
热门标签