Re: [delphi-br] ajuda urgente sobre excel com delphi
naum é esse o tipo de formatação, o que eu preciso é mudar a propiedade do
campo da panilha de geral para numero, e eu preciso saber como fazer para
verificar um campo que eu estou jogando no excel só tem numeros.
2009/6/19 Dimas Bolognani di...@dbsoftinformatica.com.br
Tenta estas formatações de células..
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10;
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True;
Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat :=
'dd/mm/aa';
Excel.WorkBooks[1].Sheets[1].cells[L,4].NumberFormat :=
'#.##0,00';
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: sexta-feira, 19 de junho de 2009 17:46
Para: Grupo_Delphi
Assunto: [delphi-br] ajuda urgente sobre excel com delphi
eu to usando este codigo para criar arquivos do excel atraves do delphi, só
que eu queria saber se alguem sabe como eu posso fazer para ver se um valor
que eu to colocando no delphi e numerico, porque se for numerico eu queria
saber se alguem sabe como eu faço para mudar a propriedade da celula do
excel de tipo geral para tipo numero.
esse é uma maneira
procedure TForm2.ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
ADOQuery2.Close;
ADOQuery2.Open;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DataSource2.DataSet.First;
// create the Excel object
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Teste';
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 := Form2;
mem.Clear;
sline := '';
Gauge1.MaxValue := DataSource2.DataSet.RecordCount;
Gauge1.Progress := 1;
// add the info for the column names
for col := 0 to DBGrid.FieldCount - 1 do begin
sline := sline + DBGrid.Fields[col].DisplayLabel + #9;
Gauge1.Progress := Gauge1.Progress + 1;
end;
mem.Lines.Add(sline);
// get the data into the memo
DataSource2.DataSet.First;
for row := 0 to DataSource2.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DataSource2.DataSet.FieldCount-1 do begin
sline := sline + DataSource2.DataSet.Fields[col].AsString + #9;
//ShowMessage(DataSource2.DataSet.Fields[row].AsString);
end;
Gauge1.Progress := Gauge1.Progress + 1;
mem.Lines.Add(sline);
DataSource2.DataSet.Next;
end;
Gauge1.Progress := Gauge1.MaxValue;
// 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['Teste'].Paste;
ExcelApp.Visible := true;
end;
FreeAndNil(mem);
//FreeAndNil(ExcelApp);
DataSource2.DataSet.GotoBookmark(bm);
DataSource2.DataSet.FreeBookmark(bm);
DataSource2.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;
---
e essa é outra
ExcelApplicationl := TExcelApplication.Create(nil);
ExcelApplicationl.Workbooks.Add(EmptyParam, 0);
ExcelApplicationl.Visible[0] := True;
Planilha := ExcelApplicationl.WorkBooks[1].WorkSheets[1];
ADOQuery2.Open;
for C := l to ADOQuery2.FieldCount do begin
Planilha.Cells[l,C].Select;
Planilha.Cells[l,C].Font.Bold := True;
Planilha.Cells[l,C].Value := ADOQuery2.Fields[C-1].DisplayLabel;
end;
L := 2;
while not ADOQuery2.Eof do begin
for C := 1 to ADOQuery2.FieldCount do begin
//Planilha.Cells[L,C].Select;
Planilha.Cells[L,C].Value := ADOQuery2.Fields [C-1].AsString;
end;
L := L + 1; ADOQuery2.Next;
end;
// ADOQuery2.Close;
ExcelApplicationl.Free;
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.364 / Banco de dados de vírus: 270.12.80/2187 - Data de
Lançamento: 06/19/09 06:53:00
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] erro clientdataset
bom dia estou tendo um erro muito estranho com quarteto: uniquery + datasetprovider + clientdataset + datasource quando vou dar o applyupdates(0) da um erro de sql no update, ja procurei mas nao achei solução para o problema. ps: ja tentei alterar os providerflags mas nao adiantou, configurei eles da seguinte forma: no clientdataset coloquei a chave priario como: pfinupdate = true pfinwhere = true pfinkey = true pfhidden = false e nos outros campos: pfinupdate = true pfinwhere = false pfinkey = false pfhidden = false no dasetprovider coloquei o updatemode = upWhereKeyOnly alguem sabe como me ajudar? -- Felipe Govoni
[delphi-br] pdf no delphi
Galera, bom dia Estou com um problema. Preciso desenvolver um programa que leia um arquivo pdf e salve o conteudo desse arquivo em pdf. Preciso também identificar a pagina no pdf. Estava usando uma dll PDFtext.dll de uma empresa. So que é muito falha. Alguém pode me ajudar.
[delphi-br] ajuda urgente sobre excel com delphi
alguem sabe como eu faço para jogar os valores de uma planilha do excel para um grid no delphi -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda urgente sobre excel com delphi
Leonardo, Use os componentes da palheta ADO para isto. Vc consegue usar a planilha como se ela fosse uma tabela de dados. Sucesso !! Moacir Leonardo Baldino escreveu: alguem sabe como eu faço para jogar os valores de uma planilha do excel para um grid no delphi
[delphi-br] Catraca - 5v - Paralela
Bom dia a todos. Estou precisando de uma ajuda que não encontro em lugar algum. rs... Vamos lá. Meu cliente comprou uma catraca Tecnibra TCA-51 eletro-mecanica. A empresa que instalou a catraca não fez o cabo por que eu preciso informar por quais pinos minha aplicação irá enviar os 5v. Já dei uma pesquisada na internet, li no site do RogerCom, mas mesmo assim continuo sem saber quais pinos definir para a empresa confeccionar o cabo. Alguém poderia dar uma luz! rs.. abraços e obrigado desde já!
[delphi-br] Filtro de Table Atuando de forma errada. Ajuda?
Bom dia Senhores, Tenho uma Table com um filter que aparentemente filtra a table, mas traz registros errados. Table111.Filter := 'Total '+ FloatToStr(TbPagosTot_OS.AsVariant)+' and Data = '+QuotedStr(DateToStr(DateTimePicker1.Date))+' and Data = '+QuotedStr(DateToStr(DateTimePicker2.Date))+''; Ela compara o valor do Total com o que foi pago e está registrado em outra tabela (TBPagosTotOS), porém não está trazendo apenas o que é maior do que o que foi pago, traz também o que é igual, ex: Total 0 e Pago 0, Total 100 e pago 101 (pago maior).Por curiosidade eu coloquei para trazer só o que é igual e para minha surpresa eu recebi retorno apenas de 0=0. Casos como 100 = 100 não foram trazidos. Tentei também: Total '+ CurrToStr(TbPagosTot_OS.AsCurrency) ou Total '+ FloatToStr(TbPagosTot_OS.value) e também Total '+ TbPagosTot_OS.AsString), todas com o mesmo retorno. Alguma ajuda? Obrigado. _ Novo Internet Explorer 8. Baixe agora, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Filtro de Table Atuando de forma errada. Ajuda?
Bom dia Senhores, Tenho uma Table com um filter que aparentemente filtra a table, mas traz registros errados. Table111.Filter := 'Total '+ FloatToStr(TbPagosTot_OS.AsVariant)+' and Data = '+QuotedStr(DateToStr(DateTimePicker1.Date))+' and Data = '+QuotedStr(DateToStr(DateTimePicker2.Date))+''; Ela compara o valor do Total com o que foi pago e está registrado em outra tabela (TBPagosTotOS), porém não está trazendo apenas o que é maior do que o que foi pago, traz também o que é igual, ex: Total 0 e Pago 0, Total 100 e pago 101 (pago maior). Por curiosidade eu coloquei para trazer só o que é igual e para minha surpresa eu recebi retorno apenas de 0=0. Casos como 100 = 100 não foram trazidos. Tentei também: Total '+ CurrToStr(TbPagosTot_OS.AsCurrency) ou Total '+ FloatToStr(TbPagosTot_OS.value) e também Total '+ TbPagosTot_OS.AsString), todas com o mesmo retorno. Alguma ajuda? Obrigado.
[delphi-br] Delphi e Report Builder. Como filtrar registros pelo ReportBuilder?
Bom dia Senhores. Gostaria de filtrar os registros usando o critério de apurar a diferença entre 2 campos usando um campo variable. Se o campo variable for igual ou menor a zero, quer dizer que a fatura foi paga e o registro não apareceria. O cálculo eu já fiz, porém não encontrei como colocar essa rotina em algum evento do próprio Report Builder. Seria possível? Obrigado.
RES: [delphi-br] pdf no delphi
Se você tiver o Adobe Acrobat instalado na sua máquina, vá em Component-Import ActiveX Control e você terá as funcionalidade de pdf dentro do Delphi. Daí é só procurar na rede que tem documentação desse ActiveX. Eu mesmo já usei esse componente pra isso mas confesso que não tenho mais a documentação do componente, Abçs, Reinaldo De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Felipe de Araújo Lopes Enviada em: segunda-feira, 22 de junho de 2009 09:05 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] pdf no delphi Galera, bom dia Estou com um problema. Preciso desenvolver um programa que leia um arquivo pdf e salve o conteudo desse arquivo em pdf. Preciso também identificar a pagina no pdf. Estava usando uma dll PDFtext.dll de uma empresa. So que é muito falha. Alguém pode me ajudar. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Report Builder. Como filtrar registros pelo ReportBuilder?
Selecione o variable e utilize o evento beforeprint assim: Variable.Visible := not (Valormeuvariable = 0); Abracos Daniel. 2009/6/22 mtarantjr mtaran...@hotmail.com Bom dia Senhores. Gostaria de filtrar os registros usando o critério de apurar a diferença entre 2 campos usando um campo variable. Se o campo variable for igual ou menor a zero, quer dizer que a fatura foi paga e o registro não apareceria. O cálculo eu já fiz, porém não encontrei como colocar essa rotina em algum evento do próprio Report Builder. Seria possível? Obrigado. -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda urgente sobre excel com delphi
eu estou conseguindo ler os valores do excel pelo delphi e consigo criar arquivos do excel pelo delphi, só que tem um problema, alguns valores de algumas celulas da planilha naum estaum aparecendo no grid, e quando eu abro o xls pelo excel o valor ta na planilha mas no grid do delphi ele naum aparece. Alguem sabe me dizer como eu arrumo esse problema pra fazer o valor aparecer no grid 2009/6/22 Moacir - GMail prism...@gmail.com Leonardo, Use os componentes da palheta ADO para isto. Vc consegue usar a planilha como se ela fosse uma tabela de dados. Sucesso !! Moacir Leonardo Baldino escreveu: alguem sabe como eu faço para jogar os valores de uma planilha do excel para um grid no delphi -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda urgente sobre excel com delphi
alguem sabe porque ess erro aparece quando eu rodo a linha de codigo abaixo:
XLApp.Workbooks.Open('teste.xls');
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda urgente sobre excel com delphi
alguem sabe porque ess erro aparece quando eu rodo a linha de codigo abaixo:
XLApp.Workbooks.Open('teste.
xls');
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Catraca - 5v - Paralela
Fernando, boa tarde. Acredito que o primeiro passo seria entrar em contato com a tecnibra para obter este suporte. O site deles é www.tecnibra.com.br Abraço 2009/6/22 Fernando José Ramos Figueira da Silva frgr...@gmail.com Bom dia a todos. Estou precisando de uma ajuda que não encontro em lugar algum. rs... Vamos lá. Meu cliente comprou uma catraca Tecnibra TCA-51 eletro-mecanica. A empresa que instalou a catraca não fez o cabo por que eu preciso informar por quais pinos minha aplicação irá enviar os 5v. Já dei uma pesquisada na internet, li no site do RogerCom, mas mesmo assim continuo sem saber quais pinos definir para a empresa confeccionar o cabo. Alguém poderia dar uma luz! rs.. abraços e obrigado desde já! -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] FireBird Developers Day - Grade de Palestras e Comentári os
Salve Galera, Estamos bem próximos do FDD, eu acho uma oportunidade singular de aprendizado e networking pelas pessoas que estarão presentes, empresas representadas e pela excelente infra e localização do evento. São um dos pouco eventos que participo desde a primeira edição e que faço questão de participar anualmente, pois sempre aprendo algo novo e valioso, sempre faço bons contatos, sempre ocorrem bons negócios e sempre revejo os amigos e conheço aqueles que geralmente falo semanalmente por e-mail. A grade foi divulgada (http://www.firebirddevelopersday.com.br/fdd/imgs/grade.gif) e especialmente a edição deste ano eu gostaria de ressaltar alguns pontos sobre as sessões como opinião própria. Imperdíveis: Manutenção de Banco de Dados - Dimitri Kouzmenko - É uma situação do nosso dia a dia que envolve plano de recuperação de desastre e planos de segurança que sempre precisamos e quase nunca temos e sempre nos causam dor de cabeça, é realmente uma sessão muito importante. O Futuro do Delphi - Andreano Lanusse - Como todos sabemos, existe um grande publico Delphi no FDD, e esta apresentação do Andreano é imprescindível para quem usa Delphi. Quem foi no Delphi Meeting e participou pela web e vem acompanhando os posts sobre o assunto, experimentou um pouquinho do que vem por ai, e nesta oportunidade exclusiva terão mais novidades ainda. NFe-Nota Fiscal Eletronica - Marcos Gomes - É um tema que tenho visto em voga nos fóruns que participo e em clientes questionando a respeito. Invariavelmente todos nós vamos deparar ou já nos deparamos com isso em algum momento. Em fim, é um tema de extrema importância e o Marcos é um cara prático e objetivo no que faz, logo uma combinação excelente e imperdível. Novos Recursos do SQL no FireBird - Vlad - Sabendo que novos recursos são sempre baseado em necessidades real, esta apresentação é realmente importante para quem usa o FB diariamente. Demais temas: Entre os demais temas tem assuntos como Organização de Banco de Dados para Web, CTE (recurso fantástico), Dimensionamento de Servidores, Transações, Otimização de Banco para Relatórios e Cubos, e tipos de servidores. Temas práticos e de uso cotidiano que com certeza acrescentarão muito a todos que tiverem a possibilidade de participar. Dica: Quem for, procure ir em grupo para tentar cobrir o máximo de temas possíveis. Bom, acho que é isso. Eu estarei lá o dia inteiro também. Nos vemos lá!!! Link do evento: http://www.firebirddevelopersday.com.br/fdd/index.html?utm_source=brunoutm_medium=emailutm_campaign=Bruno22Junho abs BL [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro clientdataset
Mas, qual a mensagem de erro que dá? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] erro clientdataset
desculpem a demora pra responde, por favor me ajudem pois ja procurei mas todas as dicas que encontro falam pra faze a mesma coisa que ja estou fazendo, utilizo delphi 2007 + mysql 5.1 na query tenho o seguinte: select * from cidades o erro é o seguinte: project project1.exe raised exception class EMySqlException with message' #42000you have an error in your sql syntax; check the manual that corresponds to your mysql serverversion for the right syntax to use near 'cidades set cidade = 'porto alegre' where id_cidade='2' at line 1'. 2009/6/22 Alisson Yahoo alss...@yahoo.com.br Mas, qual a mensagem de erro que dá? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ListBox com TObject
Olá a todos!
Criei um objeto derivado de TObject contendo
uma string e inseri vários em um Listbox com
ListBox.Items.AddObject( '1', TString.Create('ABC') )
Quero saber se preciso destruir cada objeto
criado antes de fechar o formulário ou se os
mesmos são destruidos automaticamente.
Gostaria de saber tambem qual a forma de
identificar cada vez que seleciono um item
no Listbox. Estou usando o onDrawItem, mas
não sei se é a melhor opção.
Obrigado,
Paulo
[delphi-br] Re: Catraca - 5v - Paralela
Diogo, Boa tarde. Isso é um problema. Por que a tecnibra informou que preciso resolver com a empresa que instalou(PONTODIGITAL), esta por sua vez informou que isso é responsabilidade de quem esta desenvolvendo o software. Ou seja, não vou conseguir nenhum tipo de informação com essas duas...rs..rs... Se puder me ajudar. Agradeço! Abraços! --- Em delphi-br@yahoogrupos.com.br, Diogo de Oliveira Cunha diogo.cunh...@... escreveu Fernando, boa tarde. Acredito que o primeiro passo seria entrar em contato com a tecnibra para obter este suporte. O site deles é www.tecnibra.com.br Abraço 2009/6/22 Fernando José Ramos Figueira da Silva frgr...@... Bom dia a todos. Estou precisando de uma ajuda que não encontro em lugar algum. rs... Vamos lá. Meu cliente comprou uma catraca Tecnibra TCA-51 eletro-mecanica. A empresa que instalou a catraca não fez o cabo por que eu preciso informar por quais pinos minha aplicação irá enviar os 5v. Já dei uma pesquisada na internet, li no site do RogerCom, mas mesmo assim continuo sem saber quais pinos definir para a empresa confeccionar o cabo. Alguém poderia dar uma luz! rs.. abraços e obrigado desde já! -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Report Builder. Como filtrar registros pelo ReportBuilder?
vc poderia colocar no calcfieds desse campo variable, algum método que setasse vazio para as informações que forem impressas. mtarantjr escreveu: Bom dia Senhores. Gostaria de filtrar os registros usando o critério de apurar a diferença entre 2 campos usando um campo variable. Se o campo variable for igual ou menor a zero, quer dizer que a fatura foi paga e o registro não apareceria. O cálculo eu já fiz, porém não encontrei como colocar essa rotina em algum evento do próprio Report Builder. Seria possível? Obrigado. -- Uberdam Cavaletti Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
[delphi-br] Instalar Biblioteca JEDI no Delphi 2009 - Alguém conseguiu?
Boa noite a todos! Estou tentando instalar a biblioteca JEDI no D2009, mas dá uma mensagem de erro durante a instalação! Compilei o arquivo JediInstaller.dpr mas mesmo assim, nada. Pesquisando pela grande rede, percebi que isto é um problema de vários colegas, mas não achei nenhuma solução. Estou usando a versão 3.36 da JEDI que pelo site deles, é a versão para D2009... Agradeço antecipadamente qualquer ajuda. Fraterno abraço a todos. Carlos
Re: [delphi-br] ajuda urgente sobre excel com delphi
Meu amigo, quais dúvidas ainda existem? Qual a mensagem de erro?
Poste as informações completas e se conseguir resolver, poste aqui
para que ninguem perca tempo tentando te ajudar enquanto você já
conseguiu resolver.
Você fez várias perguntas, mas e as anteriores, já resolveu ou não?
2009/6/22 Leonardo Baldino portaldoinfe...@gmail.com:
alguem sabe porque ess erro aparece quando eu rodo a linha de codigo abaixo:
XLApp.Workbooks.Open('teste.
xls');
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
