请问在三层结构中,怎样将DBGRID中的数据导出至EXCEL表格中?(200分)

royhgf · 2008-06-05

请问，我用的是三层结构，用的是ClientDataSet控件，如何将我的记录导出为EXCEL文件？急求！！！具体代码。

onyliu · 2008-06-05

很奇怪记录导出为EXCEL文件跟三层有什么关系

longerhe · 2008-06-05

一個非常快的轉excel unit Unit1; interface uses Classes,Forms,Windows,ExtCtrls,StdCtrls,SConnect,Controls,SysUtils,ComObj,DB,Dialogs; Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet);stdcall; var    arXlsBegin:array[0..5] of Word=($809, 8, 0, $10, 0, 0);    arXlsEnd:array[0..1] of Word = ($0A, 00);    arXlsString:array[0..5] of Word = ($204, 0, 0, 0, 0, 0);    arXlsNumber:array[0..4] of Word = ($203, 14, 0, 0, 0);    arXlsInteger:array[0..4] of Word = ($27E, 10, 0, 0, 0);    arXlsBlank:array[0..4] of Word = ($201, 6, 0, 0, $17); implementation Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet); var    i:integer;    Col,row: word;    ABookMark: TBookMark;    aFileStream: TFileStream; procedure incColRow; begin    if Col = ADataSet.FieldCount - 1 then    begin       Inc(Row);       Col :=0;    end    else       Inc(Col); end; procedure WriteStringCell(AValue: string); var    L: Word; begin    L := Length(AValue);    arXlsString[1] := 8 + L;    arXlsString[2] := Row;    arXlsString[3] := Col;    arXlsString[5] := L;    aFileStream.WriteBuffer(arXlsString, SizeOf(arXlsString));    aFileStream.WriteBuffer(Pointer(AValue)^, L);    IncColRow; end; procedure WriteIntegerCell(AValue: integer);// var    V: Integer; begin    arXlsInteger[2] := Row;    arXlsInteger[3] := Col;    aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger));    V := (AValue shl 2) or 2;    aFileStream.WriteBuffer(V, 4);    IncColRow; end; procedure WriteFloatCell(AValue: double); begin    arXlsNumber[2] := Row;    arXlsNumber[3] := Col;    aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber));    aFileStream.WriteBuffer(AValue, 8);    IncColRow; end; begin    if FileExists(FileName) then DeleteFile(FileName);        aFileStream := TFileStream.Create(FileName, fmCreate);    Try       aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin));       Col := 0; Row := 0;       if bWriteTitle then         //寫Excel的Column       begin          for i := 0 to aDataSet.FieldCount - 1 do             WriteStringCell(aDataSet.Fields.FieldName);         end;       aDataSet.DisableControls;       ABookMark := aDataSet.GetBookmark;       aDataSet.First;       while not aDataSet.Eof do       begin          for i := 0 to aDataSet.FieldCount - 1 do             case ADataSet.Fields.DataType of                ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:                   WriteIntegerCell(aDataSet.Fields.AsInteger);                ftFloat, ftCurrency, ftBCD:                   WriteFloatCell(aDataSet.Fields.AsFloat)                else                     WriteStringCell(aDataSet.Fields.AsString);             end;          aDataSet.Next;       end;       AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd));       if ADataSet.BookmarkValid(ABookMark) then          aDataSet.GotoBookmark(ABookMark);    Finally       ADataSet.EnableControls;    end; end; end.

lixin0117 · 2008-06-05

導Excel和三層結構有關係嗎？

lngdtommy · 2008-06-07

回楼上的，没有关系。 建议楼主用cxGrid 在引用cxExportGrid4Link单元后。 一句话ExportGrid4ToExcel(FileName,cxGridName,true,true,False); 就直接导到EXCEL中了，方便吧。。。

Delphizhou · 2008-06-07

进我的笔记里看吧..什么都有....

lixin0117 · 2008-06-09

用DBGridEh转Excel也非常方便

luoyanqing119 · 2008-06-10

用F1BOOK吧.导出数据集里的数据为EXCEL,很方便,但是数据量大时就出错,直接写调用的COM组件吧.

寒芳轻 · 2008-06-19

Function DaoChuExcel(TmpFileName,Title:string;Tempdataset:Tdataset;tmpdbgrid:tdbgrid):boolean; Function DaoChuExcel(TmpFileName,Title:string;Tempdataset:Tdataset;tmpdbgrid:tdbgrid):boolean; var i,k,row,column,xx,ColNum:integer;     xlapp,range1

levariant;     str:string; begin   result:=false;   ColNum:=0;   k:=1;   try     xlapp:=createoleobject('excel.application');   except     application.MessageBox('你没有安装Excel或安装不正确?所以不能导出','提示',mb_ok+MB_ICONQUESTION);     exit;   end;   try     Fguage:=TFguage.Create(nil);     Fguage.Show;     Fguage.Update;     Tempdataset.DisableControls;     Fguage.Gauge1.MaxValue := TempDataSet.RecordCount;     Fguage.Gauge1.Progress :=0;     Fguage.Update;     xlapp.Visible:=false;     xlapp.application.Caption := Title;     for i:=1 to tmpdbgrid.FieldCount-1 do       if tmpdbgrid.Columns[i-1].Visible then         ColNum:=ColNum+1;     xx:=ColNum-26;     if xx>0 then       str:='A'+chr(65+xx)     else str:=chr(65+ColNum);     xlapp.Workbooks.Add(xlwbatworksheet);     xlapp.workbooks[1].worksheets[1].name:=Title;     range1:=xlapp.workbooks[1].worksheets[Title].range['a2:'+str+inttostr(Tempdataset.RecordCount+2)];     range1.borders.linestyle:=xlcontinuous;     xlapp.Cells.Item[1,5]:=Title;     for i:=1 to Tmpdbgrid.FieldCount do       if Tmpdbgrid.Columns[i-1].Visible then       begin         xlapp.Cells[2,k]:=Tmpdbgrid.Columns[i-1].Title.caption;         k:=k+1;       end;     row:=3;     TempDataset.First;     while not TempDataset.Eof do     begin       column:=1;       for i:=1 to tmpdbgrid.FieldCount do       begin         if tmpdbgrid.Columns[i-1].Visible then         begin           xlapp.Cells[row,column]:=TempDataset.fieldbyname(tmpdbgrid.Columns[i-1].FieldName).AsString;           column:=column+1;         end;       end;       row:=row+1;       TempDataset.Next;       Fguage.Gauge1.Progress :=Fguage.Gauge1.Progress+1 ;       Fguage.Update;     end;     xlapp.workbooks[1].worksheets[1].saveas(tmpFileName);     TempDataset.EnableControls;     xlapp.quit;     application.MessageBox('数据导出完毕','提示',mb_ok+mb_iconinformation);   finally     Fguage.Close;     Fguage.Free;     Fguage:=nil;   end; end;

lngdtommy · 2008-06-19

建议使用cxGrid，然后use  cxExportGrid4Link; ExportGrid4ToExcel(FileName,cxGridName); 一句搞定

lixin0117 · 2008-06-19

如果用DbGridEh 引用DBGridEhImpExp单元 SaveDBGridEhToExportFile（TDBGridEhExportAsXLS,DBGridEh1,FileName,true）

luoyanqing119 · 2008-06-20

我有现成的DEMO,之种CASE也搞了好多次,直接DBGRID导出到EXCEL的.也有通过数据集的,不过后一种必需保证你用的是ADO

luoyanqing119 · 2008-06-20

很简单的,BS老是用第三方控件的人.

请问在三层结构中,怎样将DBGRID中的数据导出至EXCEL表格中?(200分)

royhgf

Unregistered / Unconfirmed

onyliu

Unregistered / Unconfirmed

longerhe

Unregistered / Unconfirmed

lixin0117

Unregistered / Unconfirmed

lngdtommy

Unregistered / Unconfirmed

Delphizhou

Unregistered / Unconfirmed

lixin0117

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

寒芳轻

Unregistered / Unconfirmed

lngdtommy

Unregistered / Unconfirmed

lixin0117

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

Similar threads