Re: [delphi-br] Exportar Dados para o Excel

2010-03-24 Por tôpico Delphi 2005 - BR
Boa tarde.

Bom vc pode fazer de várias formas, pode gerar um arquivo texto dos dados 
separados por virgulas ou com algum outro delimitador, ou usar um componente de 
terceiro.

Tem um muito bom, vc cria um template do arquivo xls e o componente ficara 
responsavel por popular este arquivo, como vc cria o template vc pode fazer o 
que quiser, como por exemplo,  formatar as colunas, celulas, etc.

o componente é: http://www.sqlmanager.net/en/products/tools/excelreport

é uma versão paga, mas sabe como é, a internet esta ai.


  - Original Message - 
  From: Gilvan Costa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 23, 2010 12:32 PM
  Subject: [delphi-br] Exportar Dados para o Excel



  Olá Srs. qual a melhor maneira de exportar dados de um Grid no Delphi para
  o Excel, 
  Já tentei usar o QUICKREPORT, mas ele está perdendo a formatação do layout
  da página 

  Gilvan Costa

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Como marcar todos registros de um DBGrid ?

2010-03-24 Por tôpico Delphi 2005 - BR
Bom dia
Veja se te ajuda.

Para marcar todos vc pode fazer assim no onclick de um botão

clientdataset.first;
while not clientdaset.eof do 
   begin
 clientdataset.edit;
 clientdataset.fields.fieldbyname('campo').value := valor verdadeiro
 clientdataset.post;
 clientdataset.applyupdates(0);
 clientdataset.next;
   end;

para somar os totais e jogar por exemplo um edit o conceito é o mesmo 

edit1.text := '0';
clientdataset.first;
while not clientdaset.eof do 
   begin
 if clientdataset.fields.fieldbyname('campo verdadeiro/falso').value := 
true then edit1.text := 
floattostr(clientdataset.fields.fieldbyname('campo').value+strtofloat(edit1.text));
 clientdataset.next;
   end;

  - Original Message - 
  From: Albuquerque 
  To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 23, 2010 9:51 AM
  Subject: [delphi-br] Como marcar todos registros de um DBGrid ?



  -DBGrid onde a primeira coluna é um campo CheckBox e a última coluna é um
  campo Float

  -DBGrid está ligado num ClientDataSet

  -botão "Selecionar Todos Registros" para o usuário.

  Como faço para selecionar (checkbox=true) todos os registros do DBGrid qdo o
  usuário clicar no citado botão ?

  Como faço para somar o campo Float dos registros selecionados ? (para ser
  exibido num outro local do form)

  Desde já agradeço a atenção dispensada.

  Att.

  Albuquerque

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Pegar o Valor do Generator e Exibir na Tela de Cadastro

2010-03-24 Por tôpico Delphi 2005 - BR
Gilmar, bom dia.

Veja se te ajuda:

function generate(stable:string) : integer;
begin
data.sdsauxiliar.active := false;
data.sdsauxiliar.dataset.commandtext := 'select gen_id(gen_'+stable+', 0) as 
codigo from '+stable;
data.sdsauxiliar.active := true;
try
  result := (data.sdsauxiliar.fieldbyname('codigo').value + 1);
  except
 result := 1;
  end
end;


  - Original Message - 
  From: Gilmar Barbosa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 23, 2010 3:50 PM
  Subject: [delphi-br] Pegar o Valor do Generator e Exibir na Tela de Cadastro



  Boa Tarde,

  Antes de realizar a pergunta, mostro abaixo o meu cenário de trabalho:

  - Delphi 2010, DbExpress e Firebird 2.1.3

  Gostaria de ao clicar no botão NOVO do cadastro, o sistema exibir no meu
  DBEDIT o valor do Generator.

  Se o usuário NÃO SALVAR os dados, este Generator será descartado, caso ele
  SALVE o sistema irá Gravar os Dados e incrementar o Generator.

  Segue abaixo o Script para geração do Generator:

  *CREATE SEQUENCE GEN_CLIENTES_ID;*
  *ALTER SEQUENCE GEN_CLIENTES_ID RESTART WITH 0;*

  Gilmar

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Asp.Net

2008-04-07 Por tôpico Delphi 2005 - BR
Srs, bom dia.

Instalei o RadStudio 2007 e estou começando a conhecer o asp.net.
Estou usando o MySql 5.0 como BD.
Peguei alguns exemplo e consigo configura-lo e roda-lo para mostrar os dados em 
um GridView,
porém gostaria de saber como trabalhar com cadastrados.
Se preciso instalar algum provider, achei alguns exemplo mas são para firebird 
e é utilizado um
provider.
Alguem trabalha com Asp.net e MySql ?

Grato
Eduardo

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Copiar/Recortar Imagem

2008-01-24 Por tôpico Delphi 2005 - BR
 Prezados amigos

Estou desenvolvendo uma aplicação para estacionamento.
O usuário irá tirar uma foto das vagas.
Depois no sistema ele irá marcar as vagas nesta foto, ou seja, fazer um 
retangulo em cima de cada vaga
nesta hora eu vou ter as coordenadas x e y iniciais e finais.
Como faço para pegar através desta coordenadas a vaga que ele desenhou e jogar 
para outro image ?
Veja ele pode ter 5 vagas em uma imagem e o sistema deverá gerar cinco imagens 
(cada uma das vagas)
da imagem original.

Grato


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Re: ícones

2007-12-17 Por tôpico Delphi 2005 - BR
http://icons.deviantart.com/

Este site tem bastante.

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Quantum DevExpress

2007-06-21 Por tôpico Delphi 2005 - BR
Alguem utilize a CxGrid da QuantumGrid,

Preciso colocar uma imagem em tempo de execução em uma celula.

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Dúvidas sobre quickreport.

2007-06-21 Por tôpico Delphi 2005 - BR
Verifique a propriedade master do seu qrgroup.


  - Original Message - 
  From: Marcelo - Kappesberg 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 21, 2007 8:24 AM
  Subject: Re: [delphi-br] Dúvidas sobre quickreport.


  Pois eh, mas o sintoma eh como se nao estivesse com a propriedade expression 
definida. 

  mas ainda pode ser um problema na view, ela pode estar trazendo sempre o 
mesmo mes no campo mes...
  coloca o campo mes para ser exibido no relatorio tambem, soh para ver se traz 
o mes certo...

  No caso de ser por causa do datamodule acho que eh indiferente, jah que os 
dados estao sendo retornados..

  - Original Message - 
  From: Ricardo Souza 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 21, 2007 7:52 AM
  Subject: Re: [delphi-br] Dúvidas sobre quickreport.

  Marcelo, bom dia.

  Eu especifiquei isso sim, mas continua gerando aquele resultado que eu
  apresentei anteriormente...
  Será pq os componentes de acesso aos dados estão num datamodule?

  Em 21/06/07, Marcelo - Kappesberg <[EMAIL PROTECTED]> escreveu:
  >
  > Ola, veja se vc especificou o agrupamento na propriedade Expression da
  > banda do grupo...
  >
  > La vc deve informar qual eh o agrupamento. tipo
  >
  > QRGroup1.Expression := 'SqlTeste.mes';
  >
  > falow!!!
  >
  > - Original Message -
  > From: ricardo_sx
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Wednesday, June 20, 2007 8:23 PM
  > Subject: [delphi-br] Dúvidas sobre quickreport.
  >
  > Amigos, estou com o seguinte problema no quick report (estou
  > utilizando o interbase 6.0):
  >
  > Tenho a seguinte view: codigo_Caixa, data, valor, descricao,
  > tipo_movimento, mes, ano
  >
  > (isso vale também quando estou fazendo pela própria tabela)
  >
  > E estou tentando gerar um relatório no seguinte formato:
  >
  > Cabeçalho: Relatório de Entradas
  > ---
  > Group Header: REferente ao mês de [DbMes]
  >
  > codigo movimentado em valor descricao
  > -
  > detail: [codigo_Caixa] [data] [valor] [descricao]
  > ---
  > group footer: Subtotal Sum(valor)
  > --
  >
  > No form create aonde está o componente quickrep, está assim:
  >
  > SqlTeste.Close;
  > SqlTeste.SQL.Clear;
  > SqlTeste.SQL.Add('SELECT * from vw_caixa');
  > SqlTeste.SQL.Add('where tipo_Movimentacao = :ptipo order by mes');
  > SqlTeste.ParamByName('ptipo').AsString:='Entrada';
  >
  > SqlTeste.Open;
  >
  > No BeforePrint do Group Header está assim:
  >
  > case sqlteste['mes'] of
  > 1:DbMes.Caption:='Janeiro';
  > 2:DbMes.Caption:='Fevereiro';
  > 3:DbMes.Caption:='Março';
  > 4:DbMes.Caption:='Abril';
  > 5:DbMes.Caption:='Maio';
  > 6:DbMes.Caption:='Junho';
  > 7:DbMes.Caption:='Julho';
  > 8:DbMes.Caption:='agosto';
  > 9:DbMes.Caption:='setembro';
  > 10:DbMes.Caption:='oututbro';
  > 11:DbMes.Caption:='novembro';
  > 12:DbMes.Caption:='dezembro';
  > end;
  >
  > Quando eu rodo a aplicação, ele só me mostra o 1º ou o último dado
  > que consta na referida view no group header. Em detail, ele mostra
  > todos os registros. Por que isso está acontecendo? Por que o group
  > header não está sendo atualizado quando é mudado de mês? Alguém
  > poderia me ajudar?
  >
  > Segue o modelo do resultado:
  >
  > Referente ao mês de Março
  >
  > codigo caixa movimentado em valor descricao
  > 0001 19/03/2007 100,00 jfgufg
  > 0003 19/04/2007 100,00 jhgjguf
  > 0004 19/06/2007 100,00 ufghfhg
  > .
  > .
  > .
  > subtotal 300,00
  >
  > Lembrando que o componente SqlTeste (TIBQuery) não consta,
  > previamente, uma instrução sql. Isso é feito no momento em que se
  > cria o formulário.
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]