Delphi中将DBGRID中的内容输出到WORD中
来源:互联网 发布:萝莉捏脸数据百度云 编辑:程序博客网 时间:2024/05/20 10:20
在使用DELPHI开发过程中发现网上有很多的开发朋友询问关于将DBGRID中的内容导出到一个WORD中的方法。想想可以帮帮大家,所以就自己写了一个。希望对大家的软件开发有帮助。
下面是源代码。其中我使用了RZ的控件,用DELPHI自带的DBGIRD也是可以的。
Function TBaseControl.DBGird2Word(DBGrid: TRzDBGrid): Boolean;
var
Count,I,J:Integer;
Doc:OleVariant;
CurrColumn,RecordNum:Integer;
wTable: Variant;
begin
try
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Add;
except
Result:=false;
Exit;
end;
Count:=DBGrid.Columns.Count-1;
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
Inc(CurrColumn);
end;
end;
RecordNum:=DBGrid.DataSource.DataSet.RecordCount+1;
wTable:=Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),RecordNum,CurrColumn);
wTable.Columns.AutoFit;
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
wTable.Cell(1,CurrColumn+1).Range.InsertAfter(DBGrid.Columns.Items[I].Title.Caption);
Inc(CurrColumn);
end;
end;
J:=1;
DBGrid.DataSource.DataSet.First;
while not DBGrid.DataSource.DataSet.Eof do
begin
Inc(J);
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
wTable.Cell(J,CurrColumn+1).Range.InsertAfter(DBGrid.Columns[I].Field.DisplayText);
Inc(CurrColumn);
end;
end;
DBGrid.DataSource.DataSet.Next;
end;
end;
下面是源代码。其中我使用了RZ的控件,用DELPHI自带的DBGIRD也是可以的。
Function TBaseControl.DBGird2Word(DBGrid: TRzDBGrid): Boolean;
var
Count,I,J:Integer;
Doc:OleVariant;
CurrColumn,RecordNum:Integer;
wTable: Variant;
begin
try
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Add;
except
Result:=false;
Exit;
end;
Count:=DBGrid.Columns.Count-1;
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
Inc(CurrColumn);
end;
end;
RecordNum:=DBGrid.DataSource.DataSet.RecordCount+1;
wTable:=Doc.ActiveDocument.Tables.Add(Doc.ActiveDocument.Range(0, 0),RecordNum,CurrColumn);
wTable.Columns.AutoFit;
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
wTable.Cell(1,CurrColumn+1).Range.InsertAfter(DBGrid.Columns.Items[I].Title.Caption);
Inc(CurrColumn);
end;
end;
J:=1;
DBGrid.DataSource.DataSet.First;
while not DBGrid.DataSource.DataSet.Eof do
begin
Inc(J);
CurrColumn:=0;
for I:=0 to Count do
begin
if DBGrid.Columns.Items[I].Visible then
begin
wTable.Cell(J,CurrColumn+1).Range.InsertAfter(DBGrid.Columns[I].Field.DisplayText);
Inc(CurrColumn);
end;
end;
DBGrid.DataSource.DataSet.Next;
end;
end;
- Delphi中将DBGRID中的内容输出到WORD中
- 将DBGrid中的内容导出到Word文档
- 将DBGrid中的数据导出到Word
- Delphi中的DBGrid控件
- Delphi中的DBGrid控件
- 将DBGrid中的数据导出到Word和Excel
- 将DBGrid的数据导出到word和excel中
- 将DBGrid的数据导出到word和excel中
- python中将正则过滤的内容输出写入到文件中
- 将DBGrid中的内容导出到Excel文档
- 将DBGrid中的内容导出到Excel文档
- ASP.NET中将数据输出到Excel,TXT, Word, Html
- ASP.NET中将数据输出到WORD、EXCEL、TXT、HTM
- 如何在ASPX中将word文件输出到客户端浏览器
- C# Visual Studio 2005中将一个TextBox中的内容通过FileStream写到文件中
- 【delphi】DBGrid中插入图片
- Delphi中DBGrid 应用全书
- Delphi DBGrid中嵌套按钮
- poj3126求一个素数到另一个素数每次变化一个数字的变化次数
- 心动C++ 情牵基础算法 II
- MongoDB入门(一)
- 为什么String类是不可变的?
- 在VS生成-配置管理器中,怎样删除旧的配置?
- Delphi中将DBGRID中的内容输出到WORD中
- MongoDB入门(二)
- GET和POST的区别
- memset,memcpy,strcpy
- QTcpServer
- Struts1 POI导出Excel
- Delphi-IOCP学习笔记<一>====从零开始学习IOCP
- 加载更多
- hdu1198(dfs)