Re: [delphi-br] Como montar uma pesquisa por aprox imação
Se vc jah tem todos os dados pode usar o Filter, ou fazer um Locate para posicionar no registro pesquisado. QDataset.Filter := 'seucampo='+Edit1.Text; QDataset.Filtered := (QDataset.Filter''); ou QDataset.Locate('seucampo', Edit1.Text, []); Tudo depende tambem, como o Claudiney falou, do numero de registros, se esta tabela tende a crescer muito nao traga todos os dados. Realmente fica muito legal a pesquisa incremental como eu chamo, mas dependendo do caso nao vale a pena. O cliente se extressa com a demora e nao usa. Mas vc pode implementar as duas pesquisas e usar a pesquisa incremental encima do resultado com o Filter ou Locate. Tenho isso assim aqui na empresa, mas esta parte de localizar o registro no resultado quem faz eh o proprio grid do DevExpress. []'s Marcelo - Original Message - From: Claudiney Cogo To: delphi-br@yahoogrupos.com.br Sent: Friday, February 08, 2008 9:25 AM Subject: Re: [delphi-br] Como montar uma pesquisa por aproximação Olá Angelo. É tranquilo... Já que você tá usando o IBQuery é melhor trabalhar direto com o SQL que passa pra ele. Na entrada do form você, se preferir, carrega tudo.. (cuidado com tabelas muito grandes).. usando um comando como esse: IBQryTabela.SQL.Clear; IBQryTabela.Sql.Add('Select * from SuaTabela'); IBQryTabela.Active := True; Depois no evento CHANGE do edit você altera o comando incluindo a opção like: IBQryTabela.SQL.Clear; IBQryTabela.Sql.Add('Select * from SuaTabela where CampoTabela like ' + QuotedStr(Edit1.Text + '%') + ' order by CampoTabela'); IBQryTabela.Active := True; Isso supondo que você esteja fazendo a pesquisa por um campo string, como nome ou descrição. Aqui o comando procura o que você digita no início do campo. Caso queira procurar em qualquer posição coloque um % antes do Edit1.Text também IBQryTabela.SQL.Clear; IBQryTabela.Sql.Add('Select * from SuaTabela where CampoTabela like ' + QuotedStr('%' + Edit1.Text + '%') + ' order by CampoTabela'); IBQryTabela.Active := True; Porém, tome um certo cuidado com bases muito grandes. Esse tipo de consulta pode causar um pouco de perda de performance. Nesse caso é melhor não abrir a tabela toda na entrada e digitar tudo o que deseja buscar primeiro, para depois fazer a busca e selecionar só o que interessa. Isso reduz muito o tamanho do dataset que será retornado. Espero que seja isso. Abraço. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br www.studion2.com.br - Original Message - From: Angelo Louzada To: delphi-br@yahoogrupos.com.br Sent: Friday, February 08, 2008 7:30 AM Subject: [delphi-br] Como montar uma pesquisa por aproximação Amigos, estou utilizando um IBQuery trazendo os dados da tabela de clientes e mostrando em um DBGrid gostaria que meu usuário digitasse em um Edit o nome do cliente e a medida que ele fosse digitando o nome do cliente o DBGrid fosse realizando o filtro palavra por palavra, alguém sabe como posso implementar isso? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ NOD32 2857 (20080207) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Manipular Dados no DbGrid via SQL!!
Nao sei qual banco vc esta usando mas DELETE * tah esquisito Nao eh soh DELETE FROM? Marcelo Horlle - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Friday, January 18, 2008 12:48 PM Subject: RES: [delphi-br] Manipular Dados no DbGrid via SQL!! Cara vc ta precisando estudar Delphi. Ou Logica query1.SQL.add(' DELETE * from ITENS where COD_PRODUTOS= ' + query2.Fieldbyname('COD_PRODUTOS').AsString); tente desta forma e veja se funciona... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de rafaelpinto19 Enviada em: sexta-feira, 18 de janeiro de 2008 13:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Manipular Dados no DbGrid via SQL!! Olá Galera, meu problema persiste e o pior que eu tento de várias maneiras e não consigo. tento pesquisar soluções na Internet e não acho e agente não conseguir resolver o problema é muito ruin. Meu Problema é o Seguinte: Quero fazer que através do Dbgrid o usuário possa deletar um resgistro e queria um código para isso. Eu tento dessa seguinte forma: query1.SQL.add(' DELETE * from ITENS where COD_PRODUTOS= ' ''+DBGrid1.Columns.Grid.Fields[0].asstring = query2.Fieldbyname('COD_PRODUTOS').AsString+''); Não consigo nem compilar e dar o erro nessa mesma linha. e mensagem de erro que aparece lá embaixo é a seguinte: [Error] UCupomFiscal.pas(126): Incompatible types: 'String' and 'Boolean'. Não sei o que fazer. Não sei se eu tenho q abrir a Tabela ou Fechar... Preciso de uma luz, serei muito grato... Abraços!! [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] programa nao encerra
Se o programa nao encerra eh pq algum form ainda esta ativo. vc deve fecha-lo com Close; ou se deseja forcar o termino de sua aplicacao use o Application.Terminate;. Mas eh sempre bom revisar seu codigo para nao deixar nada aberto na memoria, se o mesmo esta deixando alguma coisa aberta, nao esta correto e podera causar erros no futuro. Marcelo Horlle - Original Message - From: Auriston Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 4:18 PM Subject: [delphi-br] programa nao encerra O que fazer quando o programa fica preso na barra de ferramentas e nao encerra ? sds - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] programa nao encerra
Outra coisa, se vc esta rodando o programa pelo Delphi e acontece isso vc pode parar a execucao do programa pelo menu do Delphi Run \ Program Reset. Marcelo Horlle - Original Message - From: Auriston Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 4:18 PM Subject: [delphi-br] programa nao encerra O que fazer quando o programa fica preso na barra de ferramentas e nao encerra ? sds - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] dm.qProdutos.Locate
Pois eh mas primeiro tem que se saber se eh esse o problema mesmo... O comando que te passei foi soh um exemplo em SQL Server onde tem a funcao LTrim e RTrim e se usa desta maneira para manipular os dados no banco de dados. No seu caso tem que se saber como se faz estes updates. Mas antes de mais nada teriamos que verificar se existe registros com estes espacos antes do codigo... Faz o seguinte, coloca um form com um grid e abra sua tabela na ordem do codigo e veja se a coluna codigo tem mesmo algum espaco antes do codigo. Assim vc pode ateh alterar manualmente cada registro que estiver errado no proprio grid mesmo... Marcelo Horlle - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 2:42 PM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Marcelo, Eu tentei usar o comando que você me passou da seguinte maneira: dm.qProdutos.Close; dm.qProdutos.SQL.Clear; dm.qProdutos.SQL.Add('update PRODUTOS.DBF set CODIGO = LTrim(RTrim(CODIGO))'); dm.qProdutos.open; E ele me retorna o seguinte erro: Capability Not Suported Sabe o que pode estar ocorrendo? --- Em delphi-br@yahoogrupos.com.br, Marcelo - Kappesberg [EMAIL PROTECTED] escreveu Ok entao, sua tabela esta certa assim mesmo como character. Varchar eh um tipo especial de campo para economizar bytes no banco de dados, no qual ele soh usa o tamanho necessario da string armazenada no registro. Tipo assim, se vc tem um campo char(10) e digitar 0123 ele assim mesmo ocupa os 10 caracteres... coisa que o varchar ira armazenar apenas os 4. O que eh necessario verificar eh se o usuario na hora de cadastrar o codigo nao deixou um espaco em branco antes do codigo, tipo 0123, entende. E dificil perceber qdo ha um espaco no inicio da string. Talvez fosse necessario atualizar toda a coluna removendo os espacos da direta e da esquerda do codigo assim. update tabela set codigo = LTrim(RTrim(codigo)) ou se vc esta migrando do Visual Fox ou clipper... use tabela replace all codigo with Alltrim(codigo)... ...que nostalgico... :,( No mais o seu codigo esta correto... Marcelo Horlle - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 1:16 PM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Só para lembrar, a tabela aqui é .DBF, e os tipos de campos são: Character, Float, Number, Date, Logical, Memo, OLE, Binary E o código possui caracteres númericos e alfanuméricos. Qual seria o tipo de campo certo??? --- Em delphi-br@yahoogrupos.com.br, Apoio apoio@ escreveu um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes vredesredsystem@ escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [Spam] [delphi-br] Colocar Botão na StatusBa r1
Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Marcelo Horlle - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 15, 2008 2:37 PM Subject: [Spam] [delphi-br] Colocar Botão na StatusBar1 Por favor, Alguém tem um exemplo ou link, de como posso colocar um botão em uma StatusBar? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ref.Acess Violation
Ola Omar.. Veja no menu Project \ Options se este form nao esta relacionado na coluna auto-create... Se nao me engano isso provoca o erro pq vc estaria recriando o mesmo form com o Application.CreateForm. Marcelo Horlle - Original Message - From: Omar Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 8:04 AM Subject: [delphi-br] Ref.Acess Violation Ola Delphianos, Peço ajuda no sentido de que estou tendo um erro de Access Violation, ao abrir o form. O form não tem nenhum outro form que o chame. Ele é um form MDIChild, criado assim: If FrmEntrega2Via = Nil Then begin Application.CreateForm(TFrmEntrega2Via, FrmEntrega2Via); FrmEntrega2Via.show; end Else FrmEntrega2Via.BringToFront; Ao clicar na opção de menu, ele apresenta a seguinte mensagem: Access Violation at address 00577867 in module Assetur.exe'. Read of address tela em anexo, mas abre o form. Alguém, por favor, tem alguma direção a tomar neste caso. Tentei debuggar, mas sem sucesso. Abraço a todos Omar M. Haddad Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] dm.qProdutos.Locate
Ok entao, sua tabela esta certa assim mesmo como character. Varchar eh um tipo especial de campo para economizar bytes no banco de dados, no qual ele soh usa o tamanho necessario da string armazenada no registro. Tipo assim, se vc tem um campo char(10) e digitar 0123 ele assim mesmo ocupa os 10 caracteres... coisa que o varchar ira armazenar apenas os 4. O que eh necessario verificar eh se o usuario na hora de cadastrar o codigo nao deixou um espaco em branco antes do codigo, tipo 0123, entende. E dificil perceber qdo ha um espaco no inicio da string. Talvez fosse necessario atualizar toda a coluna removendo os espacos da direta e da esquerda do codigo assim. update tabela set codigo = LTrim(RTrim(codigo)) ou se vc esta migrando do Visual Fox ou clipper... use tabela replace all codigo with Alltrim(codigo)... ...que nostalgico... :,( No mais o seu codigo esta correto... Marcelo Horlle - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 1:16 PM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Só para lembrar, a tabela aqui é .DBF, e os tipos de campos são: Character, Float, Number, Date, Logical, Memo, OLE, Binary E o código possui caracteres númericos e alfanuméricos. Qual seria o tipo de campo certo??? --- Em delphi-br@yahoogrupos.com.br, Apoio [EMAIL PROTECTED] escreveu um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes vredesredsystem@ escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Soma SELECT
Depende do banco. Mas de qualquer maneira vc deve evitar de somar ou juntar valores null com outros valores, pois o resltado sempre sera null. No cado do SQL Server vc deve testar o valor do campo antes de somar. Seriam dias maneiras: Com ISNULL: - Original Message - From: wellingtonamsantos To: delphi-br@yahoogrupos.com.br Sent: Sunday, December 02, 2007 1:27 PM Subject: [delphi-br] Soma SELECT select contasrecebimento.codigoconta,contasrecebimento.descricaoconta,SUM(recebimento.valor) as credito, SUM(pagamento.valor) as debito from contasrecebimento left join recebimento on recebimento.codigoconta=contasrecebimento.codigoconta left join pagamento on pagamento.codigoconta=contasrecebimento.codigoconta group by contasrecebimento.codigoconta,contasrecebimento.descricaoconta ola a todos... nao consigo criar um coluna com o resultado de (credito-debito) pq alguns valores sao null .. alguem tem ideia do que aconteca??? grato. well. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagem no quick report
Ola pessoal. Preciso implementar uma impressao de lista de precos com imagens, porem eu precisaria que esta imagem ocupasse todas as linhas dos registros do mesmo tipo de produto. Tipo assim: tenho tres produtos de cores diferentes mas para nao imprimir uma foto de cada cor eu colocasse apenas uma para as tres. Detalhe, nao necessariamente seriam tres produtos podem ser ateh 5 itens diferentes com a mesma imagem. Na minha pagina na internet beleza, faco manualmente usando TABLE com rowspan nos TD ROWSPAN=3IMG SCR=caminho da imagem Eh possivel fazer isso no QR? Pode ser tambem no RBuilder pois tenho ele instalado aqui mas nao chequei a usa-lo. Falow galera!!! Obrigado. Marcelo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DUvidas com sql
Hudson, o que o Marlon te passou tah certo. mas como vc implementou eh que esta errado. Aquela instrucao eh na selecao dos campos nao no where assim: select case when DP1_CLIENTE like ''%'+Buscar+'%'' then Vem do DP1 when DP2_CLIENTE like ''%'+Buscar+'%'' then Vem do DP2 when DP3_CLIENTE like ''%'+Buscar+'%'' then Vem do DP3 when DP4_CLIENTE like ''%'+Buscar+'%'' then Vem do DP4 when DP5_CLIENTE like ''%'+Buscar+'%'' then Vem do DP5 when DP6_CLIENTE like ''%'+Buscar+'%'' then Vem do DP6 end as Testes from CLIENTE where DP1_CLIENTE like ''%'+Buscar+'%'' or DP2_CLIENTE like ''%'+Buscar+'%'' or DP3_CLIENTE like ''%'+Buscar+'%'' or DP4_CLIENTE like ''%'+Buscar+'%'' or DP5_CLIENTE like ''%'+Buscar+'%'' or DP6_CLIENTE like ''%'+Buscar+'%''' Assim em cada registro ele ira mostrar de qual clausula where ele retornou o registro selecionado. - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Monday, October 15, 2007 7:11 PM Subject: Re: [delphi-br] DUvidas com sql fiz com when e deu o mesmo erro - Original Message - From: Andre Luis Silveria To: delphi-br@yahoogrupos.com.br Sent: Monday, October 15, 2007 12:31 PM Subject: Res: [delphi-br] DUvidas com sql é case when e não case where ... - Mensagem original De: Hudson [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 15 de Outubro de 2007 10:15:55 Assunto: Re: [delphi-br] DUvidas com sql Marlon, não rodou... o codigo de erro foi: SQL Erro: Dynamic SQL Erro code = -104 toke unknowm - line 1, column 23 case. Erro code -104. invalid token the SQL: 'select * from CLIENTE case where DP1_CLIENTE like ''%'+HUGOr+' %'' then DP1_CLIENTE where DP2_CLIENTE like ''%'+HUGO+'% '' then DP2_CLIENTE where DP3_CLIENTE like ''%'+HUGO+'% '' then DP3_CLIENTE where DP4_CLIENTE like ''%'+HUGO+'% '' then DP4_CLIENTE where DP5_CLIENTE like ''%'+HUGO+'% '' then DP5_CLIENTE where DP6_CLIENTE like ''%'+HUGO+'% '' then DP6_CLIENTE end as teste; vc sabe o q e isso? valeu - Original Message - From: Marlon Tiedt To: [EMAIL PROTECTED] os.com.br Sent: Sunday, October 14, 2007 11:18 PM Subject: Re: [delphi-br] DUvidas com sql Não sei se vai funcionar. Faz um case com a busca. Asimm: case when DP1_CLIENTE like ''%'+Buscar+ '%'' then Vem do DP1 when DP2_CLIENTE like ''%'+Buscar+ '%'' then Vem do DP2 end as Testes Tenta ai e fale. []s, Marlon - Original Message - From: Hudson To: [EMAIL PROTECTED] os.com.br Sent: Sunday, October 14, 2007 1:22 PM Subject: [delphi-br] DUvidas com sql Ola gente, estou com uma pequena duvida, tenho um select com 5 campos assim: select * from CLIENTE where DP1_CLIENTE like ''%'+Buscar+ '%'' or DP2_CLIENTE like ''%'+Buscar+ '%'' or DP3_CLIENTE like ''%'+Buscar+ '%'' or DP4_CLIENTE like ''%'+Buscar+ '%'' or DP5_CLIENTE like ''%'+Buscar+ '%'' or DP6_CLIENTE like ''%'+Buscar+ '%''' bom o select acontece normal e esta rodando legal, mas na verdade não sei de qual o campo vem a resposta por exemplo gostaria de criar uma variavel no sql que amarzene o valor de resultado. tem como? [As partes desta mensagem que não continham texto foram removidas] - - - - - - No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.14.10/1070 - Release Date: 14/10/2007 09:22 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;}
Re: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09)
Otima ideia, mas espero que nao facam o DIA MUNDIAL SEM COMPUTADOR hehehe - Original Message - From: Red Mosquito To: delphi-br@yahoogrupos.com.br Sent: Saturday, September 22, 2007 9:45 AM Subject: RES: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09) Há 31 anos adero diariamente a este movimento. Afinal nunca tive carro !! rsrsrsrrsrsrsrsrsrs _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabiano Bialecki Enviada em: sexta-feira, 21 de setembro de 2007 17:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09) Em 21/09/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br com.br escreveu: Ideia totalmente apoiada... Ta com pressa ? compra uma bike! já comprei a minha ! :-D http://www.flickr. http://www.flickr.com/photos/fuabiano/368976043/ com/photos/fuabiano/368976043/ [] -- Binho http://fuabiano. http://fuabiano.wordpress.com wordpress.com [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] Quick report - novas paginas.
opa errei na minha query coloquei p.Caixa e era p.Via pra pegar a descricao da via a ser impressa... Select p.Pag, p.Via, c.Data, c.Cliente, c.Valor from Caixa c cross join (select 1 as Pag, 'CAIXA' as Via union select 2, 'CLIENTE' union select 3, 'ARQUIVO') p where c.data = '03/07/2007' Marcelo Hörlle [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quick report - novas paginas.
Acho que a primeira coisa eh preparar teu dataset para repetir os mesmos registros o numero de vzs necessarios... em SQL Server poderia ser algo parecido com isso! Select p.Pag, p.Caixa, c.Data, c.Cliente, c.Valor from Caixa c cross join (select 1 as Pag, 'CAIXA' as Via union select 2, 'CLIENTE' union select 3, 'ARQUIVO') p where c.data = '03/07/2007' Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 5:54 PM Subject: Re: [delphi-br] Quick report - novas paginas. As vias do recibo devem ser numeradas, primeira caixa, segunda cliente, terceira arquivo, entendeu? Dai cada uma das paginas tem que ter um tipo de descricao. Espero ter sido claro, obrigado pela ajuda. []´s. - Original Message - From: Rafael Jorge [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 4:51 PM Subject: Re: [delphi-br] Quick report - novas paginas. hum.. pq tu nao manda ele imprimri 3 veze? nao conheco tua logica por traz do recibo. mas qualquer coisa assim resolve. t+ Em 02/07/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Colegas Eu fiz um recibo em quick report e gostaria que esse fosse impresso em 03 vias. Porem, nao consigo fazer com que o quick report abra a visualizaçao das 03 vias, ele somente mostra a ultima via a ser impressa. Qual comando devo usara para abrir uma nova pagina em sequencia da primeira? Obrigado pela ajuda, qualquer ajuda é bem-vinda. []s. -- Rafael jorge alves www.acinformatica.org [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Novato...
E ai Carlos, blz? Nao sei o que pode estar errado pra ti, o que o pessoal postou ai esta certo... Para pegar a posicao do caractere numa string usa-se o POS mesmo Entao, seguindo o teu exemplo seria algo do tipo: POS1:=COPY((ListForm.mtaclock.AsString),1,1); // pega o primeiro caractere POS2:=COPY((ListForm.mtaclock.AsString),2,1); // pega o segundo caractere ... lembrando que a variaver POS1 e POS2 deverao estar declaradas antes do begin da procedure Procedure tal etc... var POS1, POS2 : string; begin ... Marcelo Hörlle [EMAIL PROTECTED] Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Carlos Magno To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 03, 2007 9:59 AM Subject: Re: [delphi-br] Re: Novato... Caros colegas agradeço a atenção. Talvez eu deva esplicar melhor a minha situação: Veja: a minha tabela que está em um QReport (ListForm), é uma tabela DBASE. o name do campo a ser testado é mtaclock, que Alfanumerico. POS1:= String; POS1:=copy((ListForm.mtaclock.DataField),1,1); eu realmente não sei sei se é este o caminho, fiz pela auto ajuda do proprio delphi. um gde abraço, Carlos Magno Em 02/07/07, Carlos [EMAIL PROTECTED] escreveu: Você pode converter esta string para um inteiro. ex.: if(StrToInt(mCampo.Value) = 1) then Espero ter ajudado. Fraterno abraço. Carlos --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Logos [EMAIL PROTECTED] escreveu pegue pelo campo copy(campo.asstring,1,1) - Original Message - From: Carlos Magno To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 02, 2007 11:28 AM Subject: Re: [delphi-br] Novato... Coloquei este codigo, na complilação nao deu erro, mas na execução da o seguinte erro: Proj .exe raised exception Class EConverterError with message ''I' is not valid integer value. grato pela atenção, Magno Em 02/07/07, Alcistemas Informática [EMAIL PROTECTED] escreveu: VAR POS1:Char; POS2:Char; POS3:Char; etc.. BEGIN POS1:=copy(Campo.text,1,1); POS2:=copy(Campo.text,2,1); POS3:=copy(Campo.text,3,1); etc... - Original Message - From: crsmagno To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Monday, July 02, 2007 8:30 AM Subject: [delphi-br] Novato... Olá pessoal, Estou começando a trabalhar com delphi 7, e esbarrei em varios problemas, entre eles o que me fez parar. Tenho um campo do tipo alfanumerico em BD, de tamanho 6(01). Preciso testar cada posição. se é 1 se é 2 se é 3... para isso eu preciso extrair a posição para uma variavel do tipo string. Alguém pode me ajudar? Um abraço, Magno -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 [As partes desta mensagem que não continham texto foram removidas] -- um abraço, Carlos Magno [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 [As partes desta mensagem que não continham texto foram removidas] -- um abraço, Carlos Magno [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] Re: Sugestão qual melhor forma de tr abalhar vocês acham?
Vc deve pensar no seguinte, se vc colocar legendas em todas as consultas vc devera testar manualmente o que representa cada legenda na hora de mostrar algum relatorio. sem contar nas telas onde vc possivelmente devera colocar o combo para o usuario escolher a opcao, se for criado uma nova condicao vc tera que alterar manualmente todos os formularios.. Jah com uma tabela, tudo se resolve, faco um select * from condicao por exemplo para popular o combo e pronto estara alterado para todos os combos... E nos relatorio faco somente um join com a tabela de condicoes e tambem nao me preocupo com cada sigla. Por tando, a segunda forma ainda eh a melhor... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Ricardo Lima To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 7:37 AM Subject: Re: [delphi-br] Re: Sugestão qual melhor forma de trabalhar vocês acham? Os valores são fixos, não provém de uma tabela, dependendo do tipo de pagamento ai o sistema pede o restante dos dados do pagamento. Ex. Se for cartão, então pede qual cartão foi. Se for cheque então pede os dados do cheque. Mesmo os valores sendo fixos você segure a forma 2? Obrigado. - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 6:52 AM Subject: [delphi-br] Re: Sugestão qual melhor forma de trabalhar vocês acham? A forma 2, com campos do tipo int. Porque você trabalhar com char(1) é limitado (além disso, dependendo do banco de dados, você poderá vir a ter problemas de COLLATE) e inteiros vc poderá ter quantas formas de pagto forem necessárias da empresa, tipo 1. Dinheiro 2. Cheque a vista 3. Cheque a prazo 4. Cartão Visa Débito 5. Cartão Visa Crédito 6. Cartão Amex Débito 7. Cartão Amex Crédito e assim vai Ai no cadastro vc coloca um campo chamado Sigla constando a sigla a ser mostrada ao operador no lugar do codigo, logico que também mostrando o nome da forma de pagamento. 1. Dinheiro D 2. Cheque a Vista CHV 3. Cheque a Prazo CHP 4. Cartão Visa Débito CRTVD (onde o CRT vai facilitar a sua vida no TEF) Mani --- Em delphi-br@yahoogrupos.com.br, Ricardo Lima [EMAIL PROTECTED] escreveu Tenho a seguinte situação: Uma tabela de contas a receber onde tem um campo chamado forma de pagamento que pode ser: Cheque, Dinheiro, Cartão, Duplicata, Convenio Tenho duas formas de trabalhar: Forma 1: Campo do tipo char(1) que recebe os valores: C - Cheque D - Dinheiro K - Cartão U - Duplicata O - Convenio Foma 2: Campo do tipo int que recebe os valores: 1 - Cheque 2 - Dinheiro 3 - Cartão 4 - Duplicata 5 - Convenio Na opnão de vocês qual dessas duas formas seria melhor ou mais correto de fazer o cadastro no banco de dados. Obrigado. At. Ricardo Lima [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]
Re: [delphi-br] Re: Duvida sobre SQL no Delphi
Acho que o problema neste caso eh as aspas simples, jah que ela tambem eh usada para carregar o SQL... tente fazer assim:.. SQL.Add('CAST('+#34#34+' AS Char(1)) as TipoRec,'); o #34 eh o codigo asc das aspas simples... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Fabiana To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 8:53 AM Subject: Re: [delphi-br] Re: Duvida sobre SQL no Delphi Carlos, Bom Dia o codigo completo e esse aqui: with DModulo.qryVendas do begin Close; SQL.Clear; SQL.Add('Select'); SQL.Add('VendasEspec.TipoRec as TipoRec,'); SQL.Add('VendasEspec.NumeroRec as NumeroRec,'); SQL.Add('VendasEspec.DataRec as DataRec,'); SQL.Add('VendasEspec.UFCRM as UFCRM,'); SQL.Add('VendasEspec.CRM as CRM,'); SQL.Add('VendasEspec.TipoCRM as TipoCRM,'); SQL.Add('VendasEspec.TipoDoc as TipoDoc,'); SQL.Add('VendasEspec.NumeroDoc as NumeroDoc,'); SQL.Add('VendasEspec.OrgaoExp as OrgaoExp,'); SQL.Add('VendasEspec.UFDoc as UFDoc,'); SQL.Add('VendasEspec.NomeComp as NomeComp,'); SQL.Add('VendasEspec.NomeMed as NomeMed,'); SQL.Add('VendasEspec.TipoOp as TipoOp,'); SQL.Add('VendasEspec.DescProd as DescProd,'); SQL.Add('VendasEspec.Quantidade as Quantidade,'); SQL.Add('VendasEspec.DataVenda as DataVenda,'); SQL.Add('VendasEspec.Lote as Lote,'); SQL.Add('VendasEspec.RegMs as RegMS'); SQL.Add('from'); SQL.Add('vendasEspec'); SQL.Add('UNION ALL'); SQL.Add('select'); SQL.Add('CAST('' AS Char(1)) as TipoRec,'); SQL.Add('CAST('' AS VarChar(15)) as NumeroRec,'); SQL.Add('CAST('' AS Date) as DataRec,'); SQL.Add('CAST('' AS Char(2)) as UFCRM,'); SQL.Add('CAST('' AS VarChar(10)) as CRM,'); SQL.Add('CAST('' AS Char(4)) as TipoCRM,'); SQL.Add('CAST('' AS Char(6)) as TipoDoc,'); SQL.Add('Clientes.Inscr_Est as NumeroDoc,'); SQL.Add('CAST('' AS Char(6)) as OrgaoExp,'); SQL.Add('CAST('' AS Char(2)) as UFDoc,');} SQL.Add('Vendas.cliente as NomeComp,'); SQL.Add('CAST('' AS VarChar(50)) as NomeMed,'); SQL.Add('Vendas.operacao as TipoOp,'); SQL.Add('Vendas.DescProd as DescProd,'); SQL.Add('Vendas.quantidade as Quantidade,'); SQL.Add('Vendas.data as DataVenda,'); SQL.Add('Vendas.identifica as Lote,'); SQL.Add('Codforn.codfornec as RegMS'); SQL.Add('from'); SQL.Add('Vendas'); SQL.Add('LEFT JOIN'); SQL.Add('Clientes ON vendas.CGC = clientes.CGC'); SQL.Add('LEFT JOIN'); SQL.Add('Codforn ON vendas.codprod = codforn.codelf'); SQL.Add('where'); SQL.Add('(vendas.data = :pDataini1) and (vendas.data = :pDatafim1) and'); SQL.Add('(vendas.grupoProd = :pGrupo1) and (vendas.operacao = :tipoOp1) or'); SQL.Add('(vendas.data = :pDataini2) and (vendas.data = :pDatafim2) and'); SQL.Add('(vendas.grupoProd = :pGrupo2) and (vendas.operacao = :tipoOp2) or'); SQL.Add('(vendas.data = :pDataini3) and (vendas.data = :pDatafim3) and'); SQL.Add('(vendas.grupoProd = :pGrupo3) and (vendas.operacao = :tipoOp3) or'); SQL.Add('(vendas.data = :pDataini4) and (vendas.data = :pDatafim4) and'); SQL.Add('(vendas.grupoProd = :pGrupo4) and (vendas.operacao = :tipoOp4)'); SQL.Add('Order by'); SQL.Add('descprod,datavenda'); Params[0].AsDate:= dtpInicial.Date; Params[1].AsDate:= dtpFinal.Date; Params[2].AsString := '1'; Params[3].AsString := 'V'; Params[4].AsDate:= dtpInicial.Date; Params[5].AsDate:= dtpFinal.Date; Params[6].AsString := '2'; Params[7].AsString := 'V'; Params[8].AsDate:= dtpInicial.Date; Params[9].AsDate:= dtpFinal.Date; Params[10].AsString := '3'; Params[11].AsString := 'V'; Params[12].AsDate:= dtpInicial.Date; Params[13].AsDate:= dtpFinal.Date; Params[14].AsString := '4'; Params[15].AsString := 'V'; Open; end; estou usando o UNION pois os tem campos em uma tabela que tem na outra e preciso fazer com os 2 se tornem um so campo. Obrigado desde de já Fabiana - Original Message - From: Carlos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 27, 2007 7:35 PM Subject: [delphi-br] Re: Duvida sobre SQL no Delphi Boa noite. se esta for a rotina que está tentando implantar, vc está apagando a sentença Sql e não a está escrevendo novamente, pois quando dá um qryvendas.sql.clear; vc apaga o conteudo da query. logo vc deve fazer: qryvendas.sql.close; qryvendas.sql.clear; qryvendas.sql.add(select nome_dos_campos from tabela(s)); qryvendas.sql.add(vendasespec.TipoRec as TipoRec); se vc postou o código completo, creio que isto sana o problema. Tenta ai. Mas pq vc está usando uma UNION e não um JOIN? Fraterno abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Fabiana [EMAIL PROTECTED] escreveu Boa Tarde pessoal Estou fazendo uma query e estou usando um union e há alguns campos que existem em uma tabela e na outra, pelo SQL eu estou usando CAST('' as char(1)) as TipoRec) e funciona beleza, só que quando vou usar isso do Delphi para passar as informações para o Tquery estou
[delphi-br] Componente WebBrowser
Ola pessoal.. Estou usando o componente WebBrowser do Delphi 7. Esta tudo funcionando legal quando tenho meu HTML num arquivo. WebBrowser1.Navigate('C:\MeuHTML.html'); Beleza, ateh consegui visualizar e imprimir o HTML. Porem, surgiu uma situacao que preciso carregar o HTML num memo e exibi-lo... Como posso fazer? Procurei na net e os exemplos que encontrei era salvar o documento na maquina e depois era exibido pelo Navigate... Mas o que preciso eh manipular o html antes de exibi-lo e depois sim salvar no computador. Como posso fazer isso, andei olhando sobre o PageProducer na mesma paleta do WebBrowser mas os dois nao se comunicam!!! Agradeco toda a ajuda e continuo na luta... valeu!!! Marcelo Hörlle [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente WebBrowser
Opa, valeu Fernando... Mas o fato eh que eu nao consigo exibir o html do memo num WebBrowser entende!? Soh consegui visualizar de arquivos existentes, eu eu precisava exibir de um memo carregado com as tags html.. O que preciso eh criar o html num memo e ir visualizando num webbrowser, sacou?!? Obrigado.. Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Fernando Nappe To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 26, 2007 3:53 PM Subject: Re: [delphi-br] Componente WebBrowser Fala Marcelo, blz? Acredito que se vc tiver seu HTML pronto, basta invocar o método Lines.LoadFromFile do seu Memo, uma vez que um arquivo HTML é no formato texto puro. Abraço. Fernando Nappe Em 26/06/07, Marcelo - Kappesberg [EMAIL PROTECTED] escreveu: Ola pessoal.. Estou usando o componente WebBrowser do Delphi 7. Esta tudo funcionando legal quando tenho meu HTML num arquivo. WebBrowser1.Navigate('C:\MeuHTML.html'); Beleza, ateh consegui visualizar e imprimir o HTML. Porem, surgiu uma situacao que preciso carregar o HTML num memo e exibi-lo... Como posso fazer? Procurei na net e os exemplos que encontrei era salvar o documento na maquina e depois era exibido pelo Navigate... Mas o que preciso eh manipular o html antes de exibi-lo e depois sim salvar no computador. Como posso fazer isso, andei olhando sobre o PageProducer na mesma paleta do WebBrowser mas os dois nao se comunicam!!! Agradeco toda a ajuda e continuo na luta... valeu!!! Marcelo Hörlle [EMAIL PROTECTED] joehor%40gmail.com.br [As partes desta mensagem que não continham texto foram removidas] -- Fernando Nappe Analistas de Sistemas http://nappe.blogspot.com [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] Dúvidas sobre quickreport.
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]
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 delphi-br%40yahoogrupos.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]
[delphi-br] Componente para traducao
Bom dia pessoal... Alguem sabe se existe tal componente em Delphi para traduzir textos?? mesmo que seja pago... Ou algum servico na web que possa ser usado pelo Delphi para este fim? um webservice talvez Valeu!!! Marcelo Hörlle [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form não abre de jeito nenhum !!!
Para abrir um form como Modal vc deve deixa-lo invisivel antes... entao defina a propriedade Visible como falso para o form a ser chamado... vai dar certo... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Itabyte® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 05, 2007 7:47 AM Subject: [delphi-br] Form não abre de jeito nenhum !!! Pessoal coloquei um botao no meu form para chamar outro , no codigo on click do botao coloquei o seguinte codigo : begin {codificação...} Modificar(Self) ; TFormBaixa2.Create(Application); Try FormBaixa2.ShowModal; Finally FormBaixa2.Free; end; BtnSalvarClick(Self) ; end; mais qdo clico nele para trazer o FormBaixa2 ele da a seguinte mensagem de erro : CANNOT MAKE A VISIBLE WINDOW MODAL O que estou fazendo de errado??? JESUS TE AMA !!! MarcioCC® ** Itabyte Tecnologia® - www.itabyte.com Analista/Programador - For Delphi MSN : [EMAIL PROTECTED] SKYPE : itabytetec Fone : 15-3524-1946 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Fwd: RELATORIO RAVE QUE NAO APARECE
Bah amigo, nao conheco o Rave... mas nos demais relatorios se vc nao colocasse o dataset numa propriedade do proprio relatorio ele aparecia em branco pois nao sabia qual era o dataset padrao do relatorio entende!!! - Original Message - From: Vinicius Latini To: delphi-br Sent: Thursday, May 31, 2007 1:46 PM Subject: [delphi-br] Fwd: RELATORIO RAVE QUE NAO APARECE -- Forwarded message -- From: Vinicius Latini [EMAIL PROTECTED] Date: 31/05/2007 04:24 Subject: RELATORIO RAVE QUE NAO APARECE To: [EMAIL PROTECTED] Fala Galera estou tendo um problema fiz um relatorio em rave só que na hora que eu coloco pra exibir nao aparece nada nem a parte estatica do relatorio to precisando muito de uma ajuda tenho que entregar isso amanhã desde já agradeço [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] instalador
Ola, nao precisa incluir nada no instalador.. Ele inclui as dlls, bitmaps, etc.. tudo no EXE mesmo... O instalador soh serviria para criar o diretorio copiar o exe pra lah e fazer atalhos... A unica coisa que vc precisara instalar eh o banco, mas ai vai depender do banco que ira adotar. Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Vinicius Latini To: delphi-br Sent: Tuesday, May 29, 2007 1:14 AM Subject: [delphi-br] instalador fala galera to precisando de uma ajuda tenho um programa eu gostaria de fazer um instalador como eu faço pra saber todas as dll e outros arquivos eu devo incluir desde já obrigado [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] Agenda Médica
Poh Ricardo, assim fica dificil te ajudar... Qual eh a tua duvida afinal? Nada que vc falou foge da nossa rotina de trabalho com programacao. O que vc precisa saber? Nao sabe como comecar? Modelar o banco? Que componetes usar? sera isso? Seja mais especifico!!! Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 10, 2007 10:38 PM Subject: [delphi-br] Agenda Médica Galera preciso de uma ajuda de vcs... Preciso criar uma agenda médica e to perdido em como fazer A ideia inicial é a seguinte... Selecionar um médico, uma data e ver os horários da agenda, porem o que acontece é que eu não tenho apenas um medico, tenho varios e cada cliente tem seu medico, além disso eu tenho q permitir que seja incluido novo cliente na agenda, mesmo que ele não tenha sido cadastrado no BD. E pra ajudar eu preciso montar a agenda com os intervalos que o médico atende e verificar se o dia que está aberto na agenda é dia de atendimento do médico, caso contrario avisar ao usuario que o medico não atende nessa data... Além de tudo isso é como conseguir montar os clientes agendados anteriormente quando a agenda for aberta na data especifica e colocar os clientes nos horários que eles foram agendados... Espero q vc tenham entendido a minha solicitação e que me ajudem.. Utilizo D7, Firebird Ricardo Mendes Analista/Programador TOTALSAT - Com. Equip. Eletronicos [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] Função de Data
A ideia eh a seguinte: Avancar um mes na frente e setar como se fosse o primeiro dia do mes seguinte... depois disto converter para data novamente e diminuir um dia, pronto tem-se o ultimo dia... function UltimoDiaMes(Mdt: TDateTime) : TDateTime; var ano, mes, dia: word; begin DecodeDate(Mdt, ano, mes, dia); if mes = 12 then begin mes := 1; ano := ano + 1; end; Result := EncodeDate(ano, mes, 1) - 1; end; Agora pegar o primeiro dia do mes eu nao entendi, a nao ser que vc quiser saber o primeiro dia util? ai vc faz assim: function PrimeiroDiaUtilMes(Mdt: TDateTime) : TDateTime; var i: integer; ano, mes, dia: word; mDtTemp : TDateTime; begin DecodeDate(Mdt, ano, mes, dia); for i := 1 to 3 begin mDtTemp := EncodeDate(ano, mes, i); if not (DayOfTheWeek(mDtTemp) in [6, 7]) then // se nao eh sabado ou domingo continua no loop ... exit; end; Result := mDtTemp; end; Acho que era isso... Falow!!! Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Rodrigo Magno To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 1:59 PM Subject: [delphi-br] Função de Data Amigos, Agradeço a todos pela ajuda e colaboração em me ajudar numa função em que traz a data do primeiro dia do mes e a data final do ultimo dia do mes. Mas tive alguns problemas por tar usando o delphi 5 entao reuni aki as duas funções em que usei e compartilhar as mesmas : function UltimoDiaMes(Mdt: TDateTime) : TDateTime; var ano, mes, dia : word; mDtTemp : TDateTime; begin Decodedate(mDt, ano, mes, dia); mDtTemp := (mDt - dia) + 33; Decodedate(mDtTemp, ano, mes, dia); Result := mDtTemp - dia; end; function PrimeiroDiaMes ( data : Tdate ) : Tdate; var dia , mes , ano : Word ; begin Decodedate ( data , ano , mes , dia ); Result := Encodedate ( ano , mes , 01 ); end; Obrigado pela colaboração de todos. Atenciosamente, Rodrigo Magno * [EMAIL PROTECTED] msn [EMAIL PROTECTED] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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] Função de Data
Opa, tem um erro na funcao... function UltimoDiaMes(Mdt: TDateTime) : TDateTime; var ano, mes, dia: word; begin DecodeDate(Mdt, ano, mes, dia); // faltou incrementar o mes... mes := mes + 1; if mes = 13 then begin mes := 1; ano := ano + 1; end; Result := EncodeDate(ano, mes, 1) - 1; end; - Original Message - From: Marcelo - Kappesberg To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 3:03 PM Subject: Re: [delphi-br] Função de Data A ideia eh a seguinte: Avancar um mes na frente e setar como se fosse o primeiro dia do mes seguinte... depois disto converter para data novamente e diminuir um dia, pronto tem-se o ultimo dia... function UltimoDiaMes(Mdt: TDateTime) : TDateTime; var ano, mes, dia: word; begin DecodeDate(Mdt, ano, mes, dia); if mes = 12 then begin mes := 1; ano := ano + 1; end; Result := EncodeDate(ano, mes, 1) - 1; end; Agora pegar o primeiro dia do mes eu nao entendi, a nao ser que vc quiser saber o primeiro dia util? ai vc faz assim: function PrimeiroDiaUtilMes(Mdt: TDateTime) : TDateTime; var i: integer; ano, mes, dia: word; mDtTemp : TDateTime; begin DecodeDate(Mdt, ano, mes, dia); for i := 1 to 3 begin mDtTemp := EncodeDate(ano, mes, i); if not (DayOfTheWeek(mDtTemp) in [6, 7]) then // se nao eh sabado ou domingo continua no loop ... exit; end; Result := mDtTemp; end; Acho que era isso... Falow!!! Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Rodrigo Magno To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 1:59 PM Subject: [delphi-br] Função de Data Amigos, Agradeço a todos pela ajuda e colaboração em me ajudar numa função em que traz a data do primeiro dia do mes e a data final do ultimo dia do mes. Mas tive alguns problemas por tar usando o delphi 5 entao reuni aki as duas funções em que usei e compartilhar as mesmas : function UltimoDiaMes(Mdt: TDateTime) : TDateTime; var ano, mes, dia : word; mDtTemp : TDateTime; begin Decodedate(mDt, ano, mes, dia); mDtTemp := (mDt - dia) + 33; Decodedate(mDtTemp, ano, mes, dia); Result := mDtTemp - dia; end; function PrimeiroDiaMes ( data : Tdate ) : Tdate; var dia , mes , ano : Word ; begin Decodedate ( data , ano , mes , dia ); Result := Encodedate ( ano , mes , 01 ); end; Obrigado pela colaboração de todos. Atenciosamente, Rodrigo Magno * [EMAIL PROTECTED] msn [EMAIL PROTECTED] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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]
Re: [delphi-br] Mudar .ico do atalho no desktop?? como?
Ola, soh uma dica: Se vc quer criar um icone para sua propria aplicacao vc pode definir lah nas opcoes do projeto em Application item Icon. Assim qdo for criado o seu icone sera com o que estiver definido lah ao invez do padrao do delphi. Nao sei se era esta a tua intencao mesmo... Falow!!! Teh mais... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Yahoo - André J. J To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 4:18 PM Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como? Ok, mas qual rotina devo usar?? vc tem alguma ai ou algum link para me basear? dai apenas faço as modificações necessárias que rotina é essa? não tem como o ícone já ser criado no inicio com o .ico que eu quero? e se não puder, este arquivo padrao .ico é padrao em todos os windows? 98, xp etc? esta rotina abaixo eu peguei de um colega aqui da lista.. foi muito util obrigado =) - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 1:16 PM Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como? Vc vai ter que lançar mão de uma rotina que converta a imagem selecionada para ICO. E lembre-se que esta imagem deverá ser redimensionada antes, caso esteja fora das dimensões normais para um arquivo .ICO. Sds, Ricardo. Yahoo - André J. J [EMAIL PROTECTED] escreveu: Atividade nos últimos dias a.. 12Novos usuários Visite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação .Bom dia galera, olhem o comando que eu usei para criar o ícone (já está funcionando): procedure TFrmAtuMain.CreateShortcut (FileName : String); var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; Directory : String; WFileName : WideString; MyReg : TRegIniFile; ShortcutName : String; InitialDir : String; begin ShortcutName := 'Gestão'; InitialDir := 'C:\INFOR'; MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); end; MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); Directory := MyReg.ReadString ('Shell Folders','Desktop',''); WFileName := Directory + '\' + ShortcutName + '.lnk'; MyPFile.Save (PWChar (WFileName), False); MyReg.Free; end; Agora a duvida é: ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um .gif ou .bmp para ser a figura do ícone alguém sabe se posso implementar usando este código ou preciso de outra procedure??? obrigado! [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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]
Re: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como?
Veja o metodo SetIconLocation do IShellLink with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); SetIconLocation(PChar('C:\INFOR\seuicone.ico'), 0); end; Nao testei talvez precise de ajustes... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Yahoo - André J. J To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 2:01 PM Subject: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como? ninguém sabe alguma dica? meu projeto está parado, estou procurando no google e nao acho nada :( olhem o comando que eu usei para criar o ícone (já está funcionando): procedure TFrmAtuMain.CreateShortcut (FileName : String); var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; Directory : String; WFileName : WideString; MyReg : TRegIniFile; ShortcutName : String; InitialDir : String; begin ShortcutName := 'Gestão'; InitialDir := 'C:\INFOR'; MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); end; MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); Directory := MyReg.ReadString ('Shell Folders','Desktop',''); WFileName := Directory + '\' + ShortcutName + '.lnk'; MyPFile.Save (PWChar (WFileName), False); MyReg.Free; end; Agora a duvida é: ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um .gif ou .bmp para ser a figura do ícone alguém sabe se posso implementar usando este código ou preciso de outra procedure??? obrigado! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Fw: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como?
mandei esta mensagem antes mas pra min nao apareceu na lista. de qualquer forma estou enviando novamente... - Original Message - From: Marcelo - Kappesberg To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 09, 2007 11:34 AM Subject: Re: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como? Veja o metodo SetIconLocation do IShellLink with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); SetIconLocation(PChar('C:\INFOR\seuicone.ico'), 0); end; Nao testei talvez precise de ajustes... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Yahoo - André J. J To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 2:01 PM Subject: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como? ninguém sabe alguma dica? meu projeto está parado, estou procurando no google e nao acho nada :( olhem o comando que eu usei para criar o ícone (já está funcionando): procedure TFrmAtuMain.CreateShortcut (FileName : String); var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; Directory : String; WFileName : WideString; MyReg : TRegIniFile; ShortcutName : String; InitialDir : String; begin ShortcutName := 'Gestão'; InitialDir := 'C:\INFOR'; MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); end; MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); Directory := MyReg.ReadString ('Shell Folders','Desktop',''); WFileName := Directory + '\' + ShortcutName + '.lnk'; MyPFile.Save (PWChar (WFileName), False); MyReg.Free; end; Agora a duvida é: ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um .gif ou .bmp para ser a figura do ícone alguém sabe se posso implementar usando este código ou preciso de outra procedure??? obrigado! [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] ExecSQL
Nao falta a clausula Where? Ele deve estar atualizando todos os registros por isso demora... ps: jah passei por isso sim... hehe Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Mauro Paes Corrêa [EMAIL PROTECTED], @hostlivre.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 10:55 AM Subject: [delphi-br] ExecSQL Senhores, Tenho uma aplicação muito simples que necessita de um update de um campo (toda a tabela). Dentro do IBquery = update lancamentos set envioseap ='S' Há uma transação também..mas quando eu debugo literalmente para no .execSQL Algum colega já passou por isso? Saudações -- Mauro Paes Corrêa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TDBGrid com valores
Ola.. Eu formato os dados aqui no DataSet e ele reflete no grid... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Fernando Luiz Bortolanzza To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 11:18 AM Subject: [delphi-br] TDBGrid com valores Olá pessoal, é a primeira vez que utilizado um dbgrid no meu projeto. Fiz ele trazer as colunas tudo certinho só não estou conseguindo formatar uma das colunas para valor, como posso fazer isso? Tenho uma coluna que é valor e gostaria de formata-la. Grato Fernando [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] Alterar o tipo do campo
As vzs as mensagens no yahoo voltam com mensagens de Timeout de qqr forma estou enviando denovo... - Original Message - From: Marcelo - Kappesberg To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 19, 2007 8:15 AM Subject: Re: [delphi-br] Alterar o tipo do campo Ola, vc pode ler as tabelas do bando de dados pelas tabelas SysColumns e SysTypes select sc.Name as Tabela, st.Name as Campo, sc.Length as Tamanho, sc.Prec as Decimais from SysColumns sc join SysTypes st on st.xtype = sc.xtype where sc.id = Object_Id('Nome_da_sua_Tabela') order by sc.colid e para alterar todos os campos de int para float vc usa o Alter Table Alter Table nome_da_sua_tabela Alter Column nome_do_seu_campo Float Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Doretto To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 18, 2007 5:31 PM Subject: [delphi-br] Alterar o tipo do campo Bom Tarde !!! Eu queria criar uma rotina para mudar o tipo de campo de int para float, tem como ? Tambem queria ler uma tabela e saber o nome e tipo de cada campo.. Abraço Doretto. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Traducao erros ADO
Ola pessoal, Alguem tem ai ou sabe me dizer onde conseguir uma relacao de erros do ADO em portugues. Penso em fazer uma janela de erros com a traducao e algumas sugestoes para a correcao. Obrigado Marcelo Hörlle [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Com Rotinas Que Congelam A Applicação
Nao sei trabalhar com threads mas enfim para atualizar a tela vc pode emitir o comando ProcessMessages do Applicaton... Faca assim, no evento OnTimer do seu timer ao final de tudo coloque o comando Application.ProcessMessages. Isso devera forcar o windows a redesenhar a tela... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Rafael B. Mello To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 18, 2007 8:51 AM Subject: [delphi-br] Dúvida Com Rotinas Que Congelam A Applicação Ola pessoal, Estou desenvolvendo uma busca na minha aplicação em simples. Monto a SQL sendo uma String, depois passo ela para o ClientDataSet e depois executo o Open do Client para executar a SQL; EX: SQL := 'SELECT * FROM TABELA'; cds.Close; cds.CommandText := SQL; cds.Open; O problema é que quando o Open do cds é executado, a aplicação toda congela e só libera depois da execução do Open. O que eu quero fazer é uma espécie de gauge que fica rodando durante esse tempo de congelamento do Open, para o usuario não pensar que a aplicação travou. Bom, ja desenvolvi o gauge e tal, ele fica em um form separado e fica rodando com um Timer. o problema é que durante o Open, ele tbém congela e não fica atualizando. OK, tirei a atualização do gauge de um Timer e passei para uma Thread usando Sleep dentro dela e nada ainda. Daí pensei em outra solução, passar a execução da SQL do CDS para uma thread, sendo que o que ficaria congelada seria a thread e a aplicação ficaria livre mas mesmo assim não funciona. Dúvidas: 1) Porque a thread, mesmo sendo um processo a parte, tbém congelou a aplicação? 2) Porque o Open congela a aplicação? 3) Porque mesmo usando thead para atualizar algum componente enquanto o Open é executado, não atualiza? Valew pessoal, aguardo um ponto de vista de vcs sobre essas minhas dúvidas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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] Aplicativos em execução
Ola Wanderlei!! Conheco o ProcessKill que faz o papel do TaskManager no windows... Abbaixo seque o codigo do form principal que lista os programas na tela e ateh eh possivel finaliza-lo.. Soh nao sei se nao eh necessario mais alguma unit para funcionar, mas qualquer coisa procure na Net por ProcessKill para Delphi.. Marcelo Hörlle [EMAIL PROTECTED] unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Buttons, TLHelp32, ExtCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; RadioGroup1: TRadioGroup; Timer1: TTimer; procedure BitBtn3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn3Click(Sender: TObject); var SnapShot:THandle; pe:TProcessEntry32; ii:integer; begin // lista os processos no grid ii:=1; SnapShot:=CreateToolhelp32Snapshot((TH32CS_SNAPPROCESS or TH32CS_SNAPTHREAD),0); pe.dwSize:=sizeof(TProcessEntry32); Process32First(SnapShot,pe); repeat if (StringGrid1.RowCount ii+1) then StringGrid1.RowCount := ii + 1; StringGrid1.Cells[0,ii]:=format('%x',[pe.th32ProcessID]); StringGrid1.Cells[1,ii]:=inttostr(pe.cntThreads); StringGrid1.Cells[2,ii]:=String(pe.szExeFile); inc(ii); until Process32Next(SnapShot,pe) = false; StringGrid1.RowCount := ii; end; procedure TForm1.FormCreate(Sender: TObject); begin // inicializa o grid StringGrid1.Cells[0,0]:='Processo'; StringGrid1.Cells[1,0]:='Threads'; StringGrid1.Cells[2,0]:='Programa'; BitBtn3Click(nil); end; procedure TForm1.BitBtn2Click(Sender: TObject); // Perfeito var processo:dword; i:integer; ss:string; begin // mata o processo selecionado processo:=0; with StringGrid1 do begin if(Row1) then // sai se naum houver processo selecionado exit; ss:=Cells[0,Row]; // Converte a string em dword for i:=1 to length(ss) do begin processo := processo shl 4; if ord(ss[i]) = ord('A') then processo:=processo + (ord(ss[i])-ord('A')+10) else processo:=processo + (ord(ss[i])-ord('0')); end; //Mata o Processo try TerminateProcess(OpenProcess($0001,false,processo),0); // $0001 = Process_Terminate. except showmessage('Falha ao tentar matar o processo '+Cells[0,Row]); end; BitBtn3Click(nil); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin close; end; procedure TForm1.Timer1Timer(Sender: TObject); begin BitBtn3Click(nil); end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin Timer1.Enabled := (RadioGroup1.ItemIndex = 1) end; end. - Original Message - From: Wandarlei To: [EMAIL PROTECTED] Sent: Thursday, April 12, 2007 11:36 AM Subject: [delphi-br] Aplicativos em execução Pessoal, Utilizo a função EnumWindowProc para pegar os aplicativos que estão em execução no equipamento, porém funciona quando executo o meu programa como aplicativo e quando executo o meu programa como serviço a função retorna apenas os serviços que estão em execução. Alguém sabe como faço para pegar os aplicativos abertos executando o programa como serviço? Obrigado, Wandarlei Michelon Equipe MT-SAC [EMAIL PROTECTED] Fone: 55-41-3544-8711 Fax: 55-41-3544-8701 Tree Tools Informática Ltda. Qualidade e Competência a Seu Alcance http://www.treetools.com.br http://www.treetools.com.br/ Antes de imprimir reflita sobre sua responsabilidade com o MEIO AMBIENTE Esta comunicação, incluindo seus eventuais anexos e imagens, pode conter informações confidenciais de uso restrito e/ou legalmente protegidas e pode conter informação que não pode ser divulgada sob obrigações confidenciais assumidas por compromissos escritos. Se você não for o destinatário e recebeu esta mensagem por engano, por favor, observe que qualquer divulgação, distribuição, cópia ou tomada de qualquer atitude com base nas informações desta comunicação é estritamente proibida. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente por meio do mesmo endereço eletrônico ou pelo número de telefone: + 55 (41) 3544-8733 e em seguida apague a informação do seu computador. Por
[delphi-br] Off-topic - somente teste
Desconsiderar... - Original Message - From: Djonatas Tenfen To: [EMAIL PROTECTED] Sent: Thursday, April 12, 2007 1:37 PM Subject: [delphi-br] QuickReport Etiquetas !!! Olá Amigos... Seguinte preciso de uma ajuda com o QuickReport estou tentando emitir etiquetas em linha ou seja 1 | 2 3 | 4 5 | 6 7 | 8 Mas ele imprime de outra forma 1 | 5 2 | 6 3 | 7 4 | 8 Alguém pode me ajudar com isso ??? Agradeço se alguém me ajudar estou precisando o quanto antes disto Atenciosamente Djonatas Tenfen [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] Dúvida Com Rotinas Que Congelam A Applicação
Ola Rafael!!! Tenta emitir o comando Application.ProcessMessages; cada vez que rodar o OnTimer... Se nao me engano era isso... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Rafael B. Mello To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 10, 2007 10:41 AM Subject: [delphi-br] Dúvida Com Rotinas Que Congelam A Applicação Ola pessoal, primeiramente me desculpem por mandar um email sem assunto, por esse motivo, recolvi reescrever o mesmo email para não confundir o grupo. Bom, aí vai minha dúvida: _ Estou desenvolvendo uma busca na minha aplicação bem simples. Monto a SQL sendo uma String, depois passo ela para o ClientDataSet e depois executo o Open do Client para executar a SQL: SQL := 'SELECT * FROM TABELA'; cds.Close; cds.CommandText := SQL; cds.Open; O problema é que quando o Open do cds é executado, a aplicação toda congela e só libera depois da execução do Open. O que eu quero fazer é uma espécie de gauge que fica rodando durante esse tempo de congelamento do Open, para o usuario não pensar que a aplicação travou. Bom, ja desenvolvi o gauge e tal, ele fica em um form separado e fica rodando com um Timer. o problema é que durante o Open, ele tbém congela e não fica atualizando. OK, tirei a atualização do gauge de um Timer e passei para uma Thread usando Sleep dentro dela e nada ainda. Daí pensei em outra solução, passar a execução da SQL do CDS para uma thread, sendo que o que ficaria congelada seria a thread e a aplicação ficaria livre mas mesmo assim não funciona. Dúvidas: 1) Porque a thread, mesmo sendo um processo a parte, tbém congelou a aplicação? 2) Porque o Open congela a aplicação? 3) Porque mesmo usando thead para atualizar algum componente enquanto o Open é executado, não atualiza? Valew pessoal, aguardo um ponto de vista de vcs sobre essas minhas dúvidas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]