导出Excel1 - 项目分解篇

        我们在所有的MIS系统（信息管理系统）中都能见到他。所以我们把这个通用功能提出来。

       项目名称：车辆信息管理系统（中石化石炼）

       项目负责人：xiaobin

       项目时间：2006.12 - 2007.2

      Excel功能模块：

     单击事件（Event）：

     procedure EXCELE1Click(Sender: TObject);

procedure TfrmMain.EXCELE1Click(Sender: TObject);var colnum,slnum,i:integer; headstr:string;begin  if DataSource_carNum.DataSet.RecordCount=0 then Exit;  //  DataModule_ado.ADODataSet_Excel.Close;  DataModule_ado.ADODataSet_Excel.Open;  //  TreeView1.Items.Clear;  Memo2.Lines.Clear ;  colnum:=DataModule_ado.ADODataSet_Excel.FieldDefList.Count;  Maxnum :=1;  //slnum:=0;  for i:=1 to colnum do  begin   slnum:=1;   headstr:=DataModule_ado.ADODataSet_Excel.FieldDefList[i-1].Name;   while Pos('|',headstr) > 0 do     begin      Delete(headstr, 1, Pos('|', headstr));      slnum:=slnum+1;     end;    if slNum>Maxnum then Maxnum:=slNum;  end;  treeADO(DataModule_ado.ADODataSet_Excel,TreeView1);  try    myexcel := createoleobject('excel.application');    myexcel.application.workbooks.add;    myexcel.caption:=pnlLog.Caption;    myexcel.application.visible:=true;    workbook:=myexcel.application.workbooks[1];    worksheet:=workbook.worksheets.item[1];  except    application.MessageBox('没有发现Excel,请安装office!','提示信息',                                                        MB_OK + MB_ICONINFORMATION);    exit;  end;  WriteheaderADO(DataModule_ado.ADODataSet_Excel,pnlLog.Caption,9,TreeView1);  WriteExcelData(DataModule_ado.ADODataSet_Excel);  //页脚设置  myexcel.activesheet.pagesetup.centerfooter:='第&P页';  //  worksheet.saveAs(excelDir+'\'+dateTimeStrFull+'lcbzsx.xls');  //workbook.close;  //myexcel.quit;  //add logmemo  frame1.addMemoLog(EXCELE1.Caption);end;

        代码注释：

        第6行：如果DataSource（Delphi控件）当前无数据，则退出此事件。

        第8行：DataModule_ado为DataModule（Delphi控件 - 数据容器）

        第13行：根据ADODataSet_Excel（Delphi控件 - ADODataSet）字段列表，得到Excel列数。

        第20-24行：多表头层数计算。

                              大部分我们用：父表头|子表头|孙表头，来表示一个多表头数据。

　    第27行：执行treeADO子过程，把表头的层次关系用TreeView（Delphi控件）表示出来。

        第28-39行：初始化Excel对象。

                               myExcel:variant;                    //电子表格对象

                               workbook:olevariant;           //电子表格部分

                               worksheet:olevariant;          //电子表格工作簿

        第40行：执行WriteheaderADO子过程，写Excel表头。

        第41行：执行WriteExcelData子过程， 写Excel数据。