:::: MENU ::::

Blog

  • maio 17 / 2007
  • 7
dbgrid, delphi, delphi2007, excel, exportação

Exportando dados do DBGrid para Excel

 
Difficulty level not set for this Post

Tweet

Olá pessoal,

Esta dica foi enviada pelo colega Walter Chagas e mostra como exportar dados de um DBGrid para o Excel.

procedure TForm1.ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DBGrid1.DataSource.DataSet.First;

// create the Excel object
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Grid Data';
end
// First we send the data to a memo
// works faster than doing it directly to Excel
mem := TMemo.Create(nil);
mem.Visible := false;
mem.Parent := Form1;
mem.Clear;
sline := '';

// add the info for the column names
for col := 0 to DBGrid1.FieldCount - 1 do
sline := sline + DBGrid1.Fields[col].DisplayLabel + #9;
mem.Lines.Add(sline); 
// get the data into the memo
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
mem.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;

// we copy the data to the clipboard
mem.SelectAll;
mem.CopyToClipboard;

// if needed, send it to Excel
// if not, we already have it in the clipboard
if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
ExcelApp.Visible := true;
end;

FreeAndNil(mem);
FreeAndNil(ExcelApp);
fvProjPrd.DBGrid1.DataSource.DataSet.GotoBookmark(bm);
fvProjPrd.DBGrid1.DataSource.DataSet.FreeBookmark(bm);
fvProjPrd.DBGrid1.DataSource.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;

Siga autor @asrsantos no Twitter agora e fique por dentro de todas as atualizações do blog.
Exemplo de uso:

procedure Form1.Button1Click(Sender: TObject);
begin
ExportDBGrid(True);
end;

Sobre o autor:
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 16 / 2007
  • 2
add-ins, delphi, delphi2007, ferramenta, praticidade, upx

Ferramentas e Add-ins – Parte I – Compactando com UPX

 
Difficulty level not set for this Post

Olá pessoal,

Foi carregada minha nova vídeo-aula sobre compactação de executáveis usando a ferramenta freeware UPX. Na aula é mostrada como fazer a compactação do executável ou dll final para distribuição.

Link direto:
Ferramentas e Add-ins – Parte I – Compactando com UPX

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 16 / 2007
  • 4
balão, componente, delphi, design, free, freeware, hint, livre

Hint em forma de Balão.

 
Difficulty level not set for this Post

Olá pessoal,

Pra quem estava afim de um componente freeware e com fontes que funcionasse como hint em forma de balões, eis a solução. Uma amiga minha, Michelli, encontrou o componente em um fórum e me passou. Fiz algumas alterações e estou disponibilizando pra todos.

Não consegui falar com o autor, mas tem os créditos do componente ai e eu deixei no fonte as informações de manutenção. Quem descobrir bugs ou implementar algo favor mandar de volta pra colocar de novo no ar ok?

Abs

Link para downalod:
Componente HintDesign

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 15 / 2007
  • 1
debug, delphi, delphi2007, Desenvolvimento, gráfico, novidades, tchart, teechart, [Arquivo]

Novidades Delphi 2007 V

 
Difficulty level not set for this Post

Olá pessoal,

Minha última vídeo-aula sobre as novidades do Delphi 2007 foi disponibilizada no portal da Devmedia. Na aula é mostrada a suíte TeeChart desenvolvida pra criação de gráficos no Delphi.

O link direto é:
Novidades do Delphi 2007 V

Veja também
Novidades do Delphi 2007 IV
Novidades do Delphi 2007 parte III
Novidades do Delphi 2007 parte II
Novidades do Delphi 2007 parte I
Instalação do Delphi 2007 Trial


Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

Google+
[Fale Conosco] Contato