[delphi-br] Receber E-mail
Sera que alguem pode me ajudar? Gostaria de saber como receber E-mail Pop3 pelo delphi Brigadao Thiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mostrar Impressoras Instaladas
Alexandre.. Dê uma olhadinha na paleta Dialogs, tem um componente chamado PrinterSetup, e também verifique a biblioteca Printers... Provavelmente vc encontrará o que procura. - Original Message - From: Alexandre [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, November 07, 2004 12:53 PM Subject: [delphi-br] Mostrar Impressoras Instaladas Boa tarde lista! Pessoal, como eu faria para pegar as impressoras instaladas na num PC local?? Gostaria de obter informações como nome da impressora que aparece no painel de controle, nome do driver da impressora, porta da mesma, nome do compartilhamento, versão do driver?? Usei WMI... No WinXP funcionou blz... mas no Millenuim e no 98 não obtive sucesso. Será que tenho que atualizar alguma coisa nesses SO's, ou essa comada não funciona perfeitamente neles, pois não é somente essa informações que não funcionaram, algumas outras q funcionaram no XP retornaram valores nulos neles. Teria alguma outra forma, fora WMI?? Grato por qq ajuda! Alexandre brbr _br Este e-mail foi enviado por Cotrijui Dom Pedritobr UebiMiau 2.5 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Controle de Ponto
Bom dia, 1. um bom curso de banco de dados + programacao basica, ja vai te ajudar muito. 2. se vc tem q desenvolver um sistema e nao sabe por onde comecar entao nao comeca, contrata alguem pra desenvolver pra vc. t+ R4zor na campanha: nao alimente os trolls. NO FLAMEs alisson_delphi wrote: Estou precisando desenvolver esse sistema mais eu naum sei por onde começar... Nesse sistema tem que conter - cadastro de funcionários: código, nome, endereço, cpf, rg, carteira prof, horário trabalho diferenciado (dias da semana x horário de entrada x horário de almoço x saída), tempo tolerância (tempo tolerado pela empresa no horário de entrada para considerar a falta do funcionário) - cadastro ocorrências: código, nome funcionalidade do sistema: - através de um cartão com código de barras, o funcionário registra sua entrada e sua saída. - o sistema tolera um atraso dentro do parâmetro informado - cadastro de horário da empresa (padrão) horário trabalho (dias da semana x horário de entrada x horário de almoço x saída), tempo tolerância (tempo tolerado pela empresa no horário de entrada para considerar a falta do funcionário) funcionalidade do sistema: - através de um cartão com codigo de barras, o funcionario registra sua entrada e sua saida. - o sistema tolera um atraso dentro do parâmetro informado (usa o padrão, salvo se tiver um horario especifico no cadastro do funcionario) - o sistema, caso o funcionario entre para trabalho e nao registre a saida, fecha automaticamente o ponto do dia, mas pede uma motivação: cadastro de ocorrências, que deve ser lançada por uma pessoa q tenha a senha de supervisão, enqto nao fundamente, a pessoa fica bloqueada. e eu naum tenho a minima idéia de como começar Se alguem tiver algum exemplo ou souber de algum site onde posso encontar algum exemplo sobre esse sistema eu ficarei agradecido Me ajudem por favor. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Rave + view no firebird
Ola, pessoal. To tentando fazer um relatório com rave + delphi7 + Firebird 1.5. Criei uma view no firebird, SQLClientDataset conectando a view, e acrescentei todos os campos. Quando abro o rave e crio uma Direct Data View, os campos não aparecem. O direct data view só funciona com tabelas fisicas no banco? O rave não consegue trazer dados de uma view armazenada? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Controle de Ponto
Eu não gostaria de estar no seu lugar... :-) Alisson, o sistema de ponto é algo bem complexo, embora não pareça. Eu ainda não desenvolvi, mas conheço vários, de grandes empresas, porém só indico o da ASM Futura, chamado PERSONNEL XXI (www.asm.com.br). É o mais flexível que conheço. Se vc tiver como ter acesso a este sistema, vale a pena dar uma estudada. Fica difícil dar outras dicas pq sua dúvida é completa. Em geral, seu sistema deverá ter: - Cadastro de funcionários - Cadastro de Horários - Registro de Saídas e Entradas - Cadastro de Feriados (calendário) - Roteiro de cálculo O segredo de sucesso, na minha opinião, é a flexibilidade do cadastro de horários X roteiro de cálculo. Tudo vai depender do grau de autonomia que vc quer oferecer para o cliente, sem esquecer o custo de desenvolvimento. Eu trabalho com sistemas há 12 anos e se vc precisar de uma dica (mais específica), pode solicitar q, se eu souber a resposta, terei prazer em ajudar. []s Fabrício Veloso Ramos -Mensagem original- De: alisson_delphi [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 8 de novembro de 2004 07:36 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Controle de Ponto Estou precisando desenvolver esse sistema mais eu naum sei por onde começar... Nesse sistema tem que conter - cadastro de funcionários: código, nome, endereço, cpf, rg, carteira prof, horário trabalho diferenciado (dias da semana x horário de entrada x horário de almoço x saída), tempo tolerância (tempo tolerado pela empresa no horário de entrada para considerar a falta do funcionário) - cadastro ocorrências: código, nome funcionalidade do sistema: - através de um cartão com código de barras, o funcionário registra sua entrada e sua saída. - o sistema tolera um atraso dentro do parâmetro informado - cadastro de horário da empresa (padrão) horário trabalho (dias da semana x horário de entrada x horário de almoço x saída), tempo tolerância (tempo tolerado pela empresa no horário de entrada para considerar a falta do funcionário) funcionalidade do sistema: - através de um cartão com codigo de barras, o funcionario registra sua entrada e sua saida. - o sistema tolera um atraso dentro do parâmetro informado (usa o padrão, salvo se tiver um horario especifico no cadastro do funcionario) - o sistema, caso o funcionario entre para trabalho e nao registre a saida, fecha automaticamente o ponto do dia, mas pede uma motivação: cadastro de ocorrências, que deve ser lançada por uma pessoa q tenha a senha de supervisão, enqto nao fundamente, a pessoa fica bloqueada. e eu naum tenho a minima idéia de como começar Se alguem tiver algum exemplo ou souber de algum site onde posso encontar algum exemplo sobre esse sistema eu ficarei agradecido Me ajudem por favor. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Reindexando tabelas
Alguém pode me informar como faço uma rotina para indexar tabelas? Paradox 7 PAULO FERNANDES PORTO ALEGRE - RS [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Como enviar estes comandos via writeln
Pessoal: Necessito imprimir uma nota fiscal via writeln, com entrelinhamento de 8 linhas por polegada, em papel de aproximadamente 12 polegadas. A) Ja' consegui enviar para a impressora (uma matricial Epson) o comando de 8 linhas por polegada, do seguinte modo: write(Impressora, #27 + #48); No manual da impressora, esse comando aparece assim: ESC 0 (o ultimo caractere e' o numero zero) B) Porem, necessito informar `a impressora que o papel do formulario tem 12 polegadas de comprimento. O comando para isso e' o seguinte: ASCII - ESC C 0 n Dec. - 67 Hex. - 43 Description - Set Page Length in Inches n = number of inches (1-22) Tentei fazer assim: write(Impressora, #27 + #67+ #48 + '12'); O comando ate' funciona, pois o salto de pagina esta' Ok. Mas esta' aparecendo o numero 12 impresso (passei o valor 12 porque estou usando papel de 12 polegadas de comprimento). Afinal, como e' que eu passo o parametro n, que segundo o manual e' o comprimento da pagina em polegadas ? C) Tentei usar o comando para configurar o comprimento da pagina em numero de linhas (96 linhas). Vejam: ASCII - ESC C n Dec. - 67 Hex. - 43 Description - Set Page Length in Lines n = number of lines (1-127) Tentei o comando assim: write(Impressora, #27 + #67 + '96'); Mas desse jeito, a nao ser que eu esteja enganado, nao funcionou ! Enfim, como e' que se passa o parametro n para a impressora ? Muito obrigado pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] BDE - Erro
de uma olhada em: http://bdn.borland.com/article/0,1410,15283,00.html r4zor wagneraranha wrote: Alguem poderia me ajudar? Quando estou acessando os componentes para acessar um banco de dados ou uma tabela, estou recebendo a seguinte msg. de erro: A error occurred while attempting to inicialize the Borland Database Engine (error $251E) Obrigado. Wagner Aranha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] tabela temporaria como fazer?
Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] alguém conheçe sistema de PDV?
Algum amigo conheçe, ou trabalha com sistema de PDV? Gostaria de saber se todo sistema de PDV é crítico mesmo e quais as principais dificuldade nesse tipo de sistema. Agradeço a ajuda dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Formatar Data
Defina no EditMask !99/99/;1;_
O usuario podera digitar 08/11/04
No evento OnExit, converta o que foi digitado para DATA, da seguinte forma:
if MskData.Text = ' / /' then
begin
ShowMessage('Digite a data.') ;
MskData.setfocus ;
exit ;
end;
try
MskData.Text := DateToStr(Strtodate(MskData.Text)) ;
except
Showmessage('Data inválida. Corrija por favor.') ;
MskData.Text := '' ;
MskData.setfocus ;
end;
- Original Message -
From: Erika
To: [EMAIL PROTECTED]
Sent: Sunday, November 07, 2004 4:08 PM
Subject: [delphi-br] Formatar Data
Olá... boa tarde!
Eu tenho um campo (MaskEdit) para data e queria saber como fazer o
seguinte: se o usuário digitar 11/12/04 quando ele sair (OnExit)
aparecer 11/12/2004.
Como eu faço isso?
Obrigado gente!
[]á
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] tabela temporaria como fazer?
eu acho q nao e viavel: 1. qq atualizacao na tabela de produtos vc vai ter q pedir pra todo mundo sair do sistema e entrar de novo. 2. como assim evitar trafego e performace do sistema? r4zor delphi6_2005 wrote: Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Formatar Data
Vai no painel de controle do Windows em Opções Regionais e mude a data para
dd/mm/
:-)
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Dimas Fernando
To: [EMAIL PROTECTED]
Sent: Monday, November 08, 2004 11:18 AM
Subject: Re: [delphi-br] Formatar Data
Defina no EditMask !99/99/;1;_
O usuario podera digitar 08/11/04
No evento OnExit, converta o que foi digitado para DATA, da seguinte forma:
if MskData.Text = ' / /' then
begin
ShowMessage('Digite a data.') ;
MskData.setfocus ;
exit ;
end;
try
MskData.Text := DateToStr(Strtodate(MskData.Text)) ;
except
Showmessage('Data inválida. Corrija por favor.') ;
MskData.Text := '' ;
MskData.setfocus ;
end;
- Original Message -
From: Erika
To: [EMAIL PROTECTED]
Sent: Sunday, November 07, 2004 4:08 PM
Subject: [delphi-br] Formatar Data
Olá... boa tarde!
Eu tenho um campo (MaskEdit) para data e queria saber como fazer o
seguinte: se o usuário digitar 11/12/04 quando ele sair (OnExit)
aparecer 11/12/2004.
Como eu faço isso?
Obrigado gente!
[]á
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como enviar estes comandos via writeln
Vc já tentou: write(Impressora, #27 + #67+ #48 +#49+#50); pq '1', na tabela ASCII, equivale a 49 e '2', 50 - Original Message - From: Paulo Sérgio Dias [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 11:26 AM Subject: [delphi-br] Como enviar estes comandos via writeln Pessoal: Necessito imprimir uma nota fiscal via writeln, com entrelinhamento de 8 linhas por polegada, em papel de aproximadamente 12 polegadas. A) Ja' consegui enviar para a impressora (uma matricial Epson) o comando de 8 linhas por polegada, do seguinte modo: write(Impressora, #27 + #48); No manual da impressora, esse comando aparece assim: ESC 0 (o ultimo caractere e' o numero zero) B) Porem, necessito informar `a impressora que o papel do formulario tem 12 polegadas de comprimento. O comando para isso e' o seguinte: ASCII - ESC C 0 n Dec. - 67 Hex. - 43 Description - Set Page Length in Inches n = number of inches (1-22) Tentei fazer assim: write(Impressora, #27 + #67+ #48 + '12'); O comando ate' funciona, pois o salto de pagina esta' Ok. Mas esta' aparecendo o numero 12 impresso (passei o valor 12 porque estou usando papel de 12 polegadas de comprimento). Afinal, como e' que eu passo o parametro n, que segundo o manual e' o comprimento da pagina em polegadas ? C) Tentei usar o comando para configurar o comprimento da pagina em numero de linhas (96 linhas). Vejam: ASCII - ESC C n Dec. - 67 Hex. - 43 Description - Set Page Length in Lines n = number of lines (1-127) Tentei o comando assim: write(Impressora, #27 + #67 + '96'); Mas desse jeito, a nao ser que eu esteja enganado, nao funcionou ! Enfim, como e' que se passa o parametro n para a impressora ? Muito obrigado pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos _ Quer mais velocidade? Só com o acesso Aditivado iG, a velocidade que você quer na hora que você precisa. Clique aqui: http://www.acessoaditivado.ig.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: tabela temporaria como fazer?
é que o sistema faz constante acesso a tabela de produtos e realmente fica complicado utilizar a tabela no banco, preciso carregar essa tabela enquanto o sistema estiver em operação, minha dúvida é que possa ter problemas com o tipo de armazenamento temporário que vier a escolher por causa dos windows, terei máquinas 2000 xp 98 e até 95, isso pode ser um problema acredito. --- Em [EMAIL PROTECTED], Yahoo [EMAIL PROTECTED] escreveu eu acho q nao e viavel: 1. qq atualizacao na tabela de produtos vc vai ter q pedir pra todo mundo sair do sistema e entrar de novo. 2. como assim evitar trafego e performace do sistema? r4zor delphi6_2005 wrote: Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: tabela temporaria como fazer?
q bd vc ta usando? r4z0r delphi6_2005 wrote: é que o sistema faz constante acesso a tabela de produtos e realmente fica complicado utilizar a tabela no banco, preciso carregar essa tabela enquanto o sistema estiver em operação, minha dúvida é que possa ter problemas com o tipo de armazenamento temporário que vier a escolher por causa dos windows, terei máquinas 2000 xp 98 e até 95, isso pode ser um problema acredito. --- Em [EMAIL PROTECTED], Yahoo [EMAIL PROTECTED] escreveu eu acho q nao e viavel: 1. qq atualizacao na tabela de produtos vc vai ter q pedir pra todo mundo sair do sistema e entrar de novo. 2. como assim evitar trafego e performace do sistema? r4zor delphi6_2005 wrote: Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro ao listar no DBGrid
Boa tarde! Eu tenho um cadastro de sócios e um de dependentes. Quando eu vou realizar o cadastro de dependentes, ao gravar e listar os cadastrados dá o seguinte erro: Project PROJETO.exe raised exception class EListError with message 'List Index Of Bounds(1)' Alguém sabe o que pode ser? Obrigado []'s Erika -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Exemplos de telas mais modernas de programas
Mas cuidado, pesa que é uma beleza. Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Jéferson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 9:05 AM Subject: Re: [delphi-br] Exemplos de telas mais modernas de programas Paulo, Dá uma olhada neste componente... http://200.241.52.8/meep/lloydsoft/news.php?cod=4 Abraço. - Original Message - From: Paulo Sérgio Dias [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, November 06, 2004 4:25 PM Subject: [delphi-br] Exemplos de telas mais modernas de programas Pessoal: Estou querendo deixar a aparencia das telas dos meus sistemas um pouco mais modernas, pois estou acostumado a fazer sempre todas do mesmo jeito (fundo cinza, com botoes e demais componentes nas cores default do Delphi). Existe algum site de onde eu possa baixar exemplos de telas, ou mesmo programas demo, feitos em Delphi ou VB, para ver o que outros programadores andam fazendo ? Grato pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] BDE - Erro
Instale novamente o BDE. - Original Message - From: wagneraranha [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 10:26 AM Subject: [delphi-br] BDE - Erro Alguem poderia me ajudar? Quando estou acessando os componentes para acessar um banco de dados ou uma tabela, estou recebendo a seguinte msg. de erro: A error occurred while attempting to inicialize the Borland Database Engine (error $251E) Obrigado. Wagner Aranha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Olá, Ow Marcelo, o macete talvez seja este: No evento OnFilterRecord da sua tabela coloque o seguinte: procedure TForm1.DataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept := seu filtro ; end; Tipo assim : DataSet['TipoPagamento'] = 'D'; Tenta aí e reporta.. Alexandre Oliveira - Original Message - From: Vitor Luiz Redes [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 11:20 AM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Este e-mail está livre de vírus. Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br). Versão: 7.0.280 / Banco de dados de Vírus: 264.12.8 - Data de Lançamento: 07/11/2004 -- Mensagens enviadas estão livres de vírus. Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br). Versão: 7.0.280 / Banco de dados de Vírus: 264.12.8 Data de Lançamento: 07/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Reindexando tabelas
a/c Sávio Cler Tu podes me dizer que componentes usou? O que eu quero é colocar em meu menu principal. Toda vez que corromper os indices eu dizer para o usuário, como fazelo. Paulo Fernandes. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] FTP C/ Diretórios
Estou utilizando o componente IdFTP para fazer uma conexão ftp. Consigo a conexão beleza. Gostaria de saber qual componente devo usar para listar diretórios e arquivos da máquina remota e qual comando usar. Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] A/C SÁVIO CLER
Sr.Sávio.
Coloquei: Button, Label, Table, FileListBox e eum DirectoryListBox.
O código que conta na sua pagina colouqie no botão, então ficou assim.
O que devo fazer? está completo?
Aguardo resposta.
Paulo.
unit Principal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;
type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Tabela: TTable;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Temp1: Integer;
Temp2: Integer;
Temp3: Integer;
Origem: String;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Label1.Caption='Reestruturando Tabelas' then
begin
Temp3:=42;
for Temp1:=1 to 2 do
begin
if Temp1=1 then
begin
Tabela.DatabaseName:='C:\Index\Principal';Criada estas duas pastas
FileListBox1.Directory:='C:\Index\Arquivo Morto'; ???
FileListBox1.Update;
end else
begin
Tabela.DatabaseName:='C:\Index\Principal';
FileListBox1.Directory:='C:\Index\Arquivo Morto';
FileListBox1.Update;
end;
for Temp2:=0 to FileListBox1.Items.Count-1 do
begin
Origem:=UpperCase(FileListBox1.Items.Strings[Temp2]);
if Copy(Origem,Length(Origem)-1,2)'DB' then
DeleteFile(FileListBox1.Directory+'\'+Origem);
end;
//** INÍCIO DA REESTRUTURAÇÃO **//
// Tabelas que serão indexadas
Tabela.TableName:='IRMA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PATIVID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Tabela.AddIndex('PorValor','Valor',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PCONTATO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PDOENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorCodigo','Codigo',[ixCaseInsensitive]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFAMILIA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFORMACAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFUNCAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PHABILID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PINSTRUC.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PITINERAR.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PLICENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
end;
Sleep(1000);
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos
[delphi-br] Critica de datas
Agora que fiz uma coisinha mais complexa olha o erro na segunda linha da
procedure:
(Privileged instruction)
Como tenho varias datas, quero fazer uma unica rotina de critica. Então fiz
assim. Más ta tam bonitinha, o que deu erro PRIVILEGED INSTRUCTION
A intenção eh ir até a procedure validadata independente do campo data em
que esteja. Ele vai lah pelo EXIT DOS TEDITMASK'S.
procedure tfrmobjetos.validadata;
var
i : integer;
begin
i := frmObjetos.ComponentCount - 1;
if tmaskedit(frmObjetos.Components[i]).Text = ' / /' then
begin
ShowMessage('Digite a data.') ;
TMaskedit(frmObjetos.Components[i]).setfocus ;
exit ;
end;
try
TMaskedit(frmObjetos.Components[i]).Text :=
DateToStr(Strtodate(TMaskedit(frmObjetos.Components[i]).Text));
except
Showmessage('Data inválida. Corrija por favor.') ;
TMaskedit(frmObjetos.Components[i]).Text := ' / /';
TMaskedit(frmObjetos.Components[i]).setfocus ;
end;
end;
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] [Meio -Off] Scannear com Delphi
Boa Tarde, PessoALL, Estou a desenvolver um sistema GED (Gerenciamento de Documentos Eletronicos) para que não sabe consiste basicamente na indexação de arquivos em uma base de dados. A minha dúvida é a seguinte: como faço para chamar o programa pra scannear sendo que tenho varios tipos de scanner? no PhotoShop tem uma opção de importar (abrindo o software do scanner independente da marca). Tem como fazer isso com o Delphi? Desculpem por me prolongar muito. = Otávio Barreto de Melo Programador Tel: +55 21 3159-2381 Cel: +55 21 8879-5021 MSN: [EMAIL PROTECTED] ICQ: 33276 = [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] A/C SÁVIO CLER
Sr.Sávio.
Se puderes me ajudar ficareimuito grato.
Paulo.
O codigo encontre logo abaixo:
unit Principal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;
type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Tabela: TTable;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Temp1: Integer;
Temp2: Integer;
Temp3: Integer;
Origem: String;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Label1.Caption='Reestruturando Tabelas' then
begin
Temp3:=42;
for Temp1:=1 to 2 do
begin
if Temp1=1 then
begin
Tabela.DatabaseName:='C:\Index\Principal';Criada estas duas pastas
FileListBox1.Directory:='C:\Index\Arquivo Morto'; ???
FileListBox1.Update;
end else
begin
Tabela.DatabaseName:='C:\Index\Principal';
FileListBox1.Directory:='C:\Index\Arquivo Morto';
FileListBox1.Update;
end;
for Temp2:=0 to FileListBox1.Items.Count-1 do
begin
Origem:=UpperCase(FileListBox1.Items.Strings[Temp2]);
if Copy(Origem,Length(Origem)-1,2)'DB' then
DeleteFile(FileListBox1.Directory+'\'+Origem);
end;
//** INÍCIO DA REESTRUTURAÇÃO **//
// Tabelas que serão indexadas
Tabela.TableName:='IRMA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PATIVID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Tabela.AddIndex('PorValor','Valor',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PCONTATO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PDOENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorCodigo','Codigo',[ixCaseInsensitive]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFAMILIA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFORMACAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFUNCAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PHABILID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PINSTRUC.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PITINERAR.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PLICENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
end;
Sleep(1000);
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
[delphi-br] GetClass Não Encontra Classe Registrada
Galera,
Alguém sabe porque essa porqueira não funciona?
If GetClass('TfrmFuncionario') Nil then
Begin
ShowMessage('Passei por aqui');
End;
Sendo que:
1) Unit está declarada na Cláusula Uses.
2) A classe está registrada no Initialization.
Tudo isso funcionava às mil maravilhas. Foi só converter a minha
aplicação de CLX para VCL e essa b*sta parou de funcionar.
Agradeço toda e qualquer ajuda que puderem me fornecer.
Sds,
Romario
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] INDEXANDO TABELAS COM PROGRSS BARR
Ajuda urgente Pessoal alguem ja fez isso para indexar as tabelas? O que desejo fazer é o seguinte: Na aplicação já existe um menu, então foi criada um sub_menu chamado Indexar Tabelas. ficou OPÇÃO - Indexar tabelas. Quero fazer um novo form colocar um botão quando for clicado no botão ele vai indexando as tabelas sem que eu precise dizer o local(diretório) e o nome cada tabelas e automaticamente ele vai mostrando o nome da tabela através de um Combo Boxe um progressBarr para mostrar a progressão do index. Tem como fazr isso? Como? PAULO FERNANDES PORTO ALEGRE- RS [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Nenhum Argumento para o formato '%s'
Pessoal, estou tentando criar um campo via código usando os comandos abaixo: if tbl1.Active then tbl1.Close; T := TMemoField.Create(Self); T.fieldName := 'INSTRUCOES'; T.FieldKind := fkCalculated ; T.BlobType := ftMemo; T.Required := False; T.Calculated := tRUE; T.DisplayLabel := 'INSTRUCOES'; T.Visible := True; T.Name := tbl1.Name + T.FieldName; T.Index := tbl1.FieldCount; T.DataSet := tbl1; tbl1.FieldDefs.UpDate; tbl1.Open; Mas ao tentar atribuir um valor a o mesmo eu recebo a mensagem Nenhum argumento para o formato '%s, alguem sabeira o que está havendo? Desde já agradeço, Um abraço, Fabiano Catrinck -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Vitor sua dica foi muito boa e retorna o resultado praticamente instantaneamente Tenho outro detalhe em questão... Como trazer varios Clientes (CODCLI) que não sejam sequenciais, por exemplo 10089 , 34556, 23321, 12345 etc... (Não posso coloca de 0 a tal porque não quero todos) Acho que deu pra entender né... Ou seja, um será o Cliente Principal e os outros seriam dependentes Então teria que buscar if (CODCLI Tem Dependentes) then Quem são ? Pega todos e verifica em outra tabela se estes tem vendas na tabela Vendas... Então preciso que este range me traga como se fosse um IN de um select. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Vitor Luiz Redes To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:20 PM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Alexandre o Accept é Boolean Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Alexandre Oliveira To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 1:39 PM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Olá, Ow Marcelo, o macete talvez seja este: No evento OnFilterRecord da sua tabela coloque o seguinte: procedure TForm1.DataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept := seu filtro ; end; Tipo assim : DataSet['TipoPagamento'] = 'D'; Tenta aí e reporta.. Alexandre Oliveira - Original Message - From: Vitor Luiz Redes [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 11:20 AM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Este e-mail está livre de vírus. Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br). Versão: 7.0.280 / Banco de dados de Vírus: 264.12.8 - Data de Lançamento: 07/11/2004 -- Mensagens enviadas estão livres de vírus. Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br). Versão: 7.0.280 / Banco de dados de Vírus: 264.12.8 - Data de Lançamento: 07/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail
Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Olá, Olha Marcelo, veja, se (tipopagto='D') = verdadeiro(boolean), então acepta este registro no filtro, senão falso, não acepta. No caso de um while esse registro fará ou não parte dele. É isso que o exemplo quer dizer. Você quer filtrar registros, então qual é a condição para filtrá-los ? Tipo NumDependentes 0 ? Mande a expressão do filtro pra gente ver. Alexandre Oliveira - Original Message - From: Marcelo Silva [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 3:52 PM Subject: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Vitor sua dica foi muito boa e retorna o resultado praticamente instantaneamente Tenho outro detalhe em questão... Como trazer varios Clientes (CODCLI) que não sejam sequenciais, por exemplo 10089 , 34556, 23321, 12345 etc... (Não posso coloca de 0 a tal porque não quero todos) Acho que deu pra entender né... Ou seja, um será o Cliente Principal e os outros seriam dependentes Então teria que buscar if (CODCLI Tem Dependentes) then Quem são ? Pega todos e verifica em outra tabela se estes tem vendas na tabela Vendas... Então preciso que este range me traga como se fosse um IN de um select. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Vitor Luiz Redes To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:20 PM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um
Re: [delphi-br] ordenar a lista do TComboBox
Bem, se eu entendi, você quer ordenar por ordem decrescente. Para isso coloque a propriedade SORTED da combobox = TRUE, pegue os itens da combobox do último para o primeiro e jogue em uma StringList. Limpe os itens da combobox e crie os itens novamente a partir da StringList. - Original Message - From: Jeferson Adoryan [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 3:44 PM Subject: [delphi-br] ordenar a lista do TComboBox dae pessoal... preciso de uma dica... estou usando arquivos .cds com TClientDataSet como BD no meu sistema. A cada novo lancamento eu crio um arquivo novo no diretorio do sistema com o seguinte padrao: L DD MM HH MM Ex: L081120041535. uso o seguinte procedimento para listar os arquivos em um TComboBox: if FindFirst(PChar(Dir + Arq), faArchive, SR) = 0 then repeat begin if sr.Name 'leitura.cds' then cbxArquivo.Items.Add(SR.Name); end until FindNext(SR) 0; o problema: preciso ordenar esses arquivos pela data de modo que o ultimo criado seja o primeiro no combo, mas ate agora naum consegui nada... se alguem tiver alguma dica sera muito bem vinda... Jeferson Adoryan Tecnico em Informática Panambi - RS Tel (55)9137 9119 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] ordenar a lista do TComboBox
Ou então mova todos os itens do TComboBox para um TStringList e use o método CustomSort() do TStringList, passando um ponteiro de função para ordenar de forma descrescente. Consulte mais detalhes no help do Delphi. []s -Mensagem original- De: Alisson [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 8 de novembro de 2004 15:21 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] ordenar a lista do TComboBox Bem, se eu entendi, você quer ordenar por ordem decrescente. Para isso coloque a propriedade SORTED da combobox = TRUE, pegue os itens da combobox do último para o primeiro e jogue em uma StringList. Limpe os itens da combobox e crie os itens novamente a partir da StringList. - Original Message - From: Jeferson Adoryan [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 3:44 PM Subject: [delphi-br] ordenar a lista do TComboBox dae pessoal... preciso de uma dica... estou usando arquivos .cds com TClientDataSet como BD no meu sistema. A cada novo lancamento eu crio um arquivo novo no diretorio do sistema com o seguinte padrao: L DD MM HH MM Ex: L081120041535. uso o seguinte procedimento para listar os arquivos em um TComboBox: if FindFirst(PChar(Dir + Arq), faArchive, SR) = 0 then repeat begin if sr.Name 'leitura.cds' then cbxArquivo.Items.Add(SR.Name); end until FindNext(SR) 0; o problema: preciso ordenar esses arquivos pela data de modo que o ultimo criado seja o primeiro no combo, mas ate agora naum consegui nada... se alguem tiver alguma dica sera muito bem vinda... Jeferson Adoryan Tecnico em Informática Panambi - RS Tel (55)9137 9119 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
O filtro que estou usando é assim: AdsTable1.Open; AdsTable1.IndexFieldNames := 'DAT_QUI;COD_CLI'; // AdsTable1.SetRange(['',80084],['',80084]); // Dica do Vitor AdsTable1.Filter := ''; AdsTable1.Filter := '((OBS = ''N'') AND (DAT_QUI = )OR(DAT_QUI = NULL)AND (COD_CLI = '+Edit1.Text+'))'; AdsTable1.Filtered := True; while not(AdsTable1.Eof) do begin //if (AdsTable1COD_CLI.AsInteger = StrToInt(Edit1.Text)) then // Senao colocar if ele traz todos os registros Memo1.Lines.Add(AdsTable1COD_CLI.AsString); AdsTable1.Next; end; Estou fazendo testes com essa rotina acima ... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Alexandre Oliveira To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 6:17 PM Subject: Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Olá, Olha Marcelo, veja, se (tipopagto='D') = verdadeiro(boolean), então acepta este registro no filtro, senão falso, não acepta. No caso de um while esse registro fará ou não parte dele. É isso que o exemplo quer dizer. Você quer filtrar registros, então qual é a condição para filtrá-los ? Tipo NumDependentes 0 ? Mande a expressão do filtro pra gente ver. Alexandre Oliveira - Original Message - From: Marcelo Silva [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 3:52 PM Subject: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Vitor sua dica foi muito boa e retorna o resultado praticamente instantaneamente Tenho outro detalhe em questão... Como trazer varios Clientes (CODCLI) que não sejam sequenciais, por exemplo 10089 , 34556, 23321, 12345 etc... (Não posso coloca de 0 a tal porque não quero todos) Acho que deu pra entender né... Ou seja, um será o Cliente Principal e os outros seriam dependentes Então teria que buscar if (CODCLI Tem Dependentes) then Quem são ? Pega todos e verifica em outra tabela se estes tem vendas na tabela Vendas... Então preciso que este range me traga como se fosse um IN de um select. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Vitor Luiz Redes To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:20 PM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse:
Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
Ei Alexandre verifiquei no Help do Delphi e vi o que quis dizer... Be fiz assim Accept := DataSet['COD_CLI'] = Edit1.Text; Mas teve o Mesmo efeito de um if dentro do while... e desta forma acaba demorando para trazer os resultados... O detalhe é que ele carrega a tabela inteira desta forma o while percorre toda esta tabela que tem uns 300.000 registros e a cada dia cresce mais... Preciso de uma forma eficiente... A Maneira que o Vitor colocou é ótima ... porém gostaria que fosse possivel passar tipo um Array de opçõe tipo: SetRange([Array],[Array]); Mas o SetRange não trabalha assim... ele trabalha SetRange([Inicio],[Final]); Preciso de algo como o clausula IN de um select tipo SetRange(IN [Valore1,Valor2. Etc]); Entendeu ? Ou é claro... uma outra forma que de uma melhor performance a busca de uma TTable * Não posso utilizar outros componentes por que já existe um programa em clipper que acessa a mesma tabela e faz uso dos indices em outra pasta ... é uma saquinho... só consegui fazer funcionar com AdsTables. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Alexandre Oliveira To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 6:17 PM Subject: Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Olá, Olha Marcelo, veja, se (tipopagto='D') = verdadeiro(boolean), então acepta este registro no filtro, senão falso, não acepta. No caso de um while esse registro fará ou não parte dele. É isso que o exemplo quer dizer. Você quer filtrar registros, então qual é a condição para filtrá-los ? Tipo NumDependentes 0 ? Mande a expressão do filtro pra gente ver. Alexandre Oliveira - Original Message - From: Marcelo Silva [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 3:52 PM Subject: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Vitor sua dica foi muito boa e retorna o resultado praticamente instantaneamente Tenho outro detalhe em questão... Como trazer varios Clientes (CODCLI) que não sejam sequenciais, por exemplo 10089 , 34556, 23321, 12345 etc... (Não posso coloca de 0 a tal porque não quero todos) Acho que deu pra entender né... Ou seja, um será o Cliente Principal e os outros seriam dependentes Então teria que buscar if (CODCLI Tem Dependentes) then Quem são ? Pega todos e verifica em outra tabela se estes tem vendas na tabela Vendas... Então preciso que este range me traga como se fosse um IN de um select. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Vitor Luiz Redes To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:20 PM Subject: Re: Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Para percorrer no While, somente os registros desejados ... altere as propriedades IndexFieldNames e Sete um Range da seginte maneira ... Table.IndexFieldNames:='CODCLI'; Table.SetRange([1],[50]); Veja que no exemplo acima, o while irá percorrer somente os registro que estejam entre 1 e 50. Se não o Hospedeiro, quem faz do parasita, um parasita ? Vitor Luiz Redes Redsystem Informática - Original Message - From: Stock [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, November 08, 2004 12:04 PM Subject: [Norton AntiSpam] Res: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? como vc ta fazendo esse filtro? o componente table, filtrado, so traz os registros solicitados, no while so ira percorrer estes registros... vc deve ta carregando a tabela toda... [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: [EMAIL PROTECTED] Data: 11/08/04 11:38:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse:
[delphi-br] Deletar fields de um ClientDataSet
Ola pessoal, Estou acumulando o nome das fields de um ClientDataSet num CheckListBox e gostaria que os campos que não selecionados pelo usuário, fossem deletados do ClientDataSet. Se alguém puder me ajudar, fico grato, ClientDataSet1.GetFieldNames(CheckListBox1.Items); []s Christian Balz [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Rave report - totalmente perdido...
alguem um tutoria ou conhece algum site que me oriente a utilizar o rave report ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ativando ClientDataSet
Se tentar activar o CDS na execuçao do programa(dmVenda-CDS_REFE-Active=true) da a menssagem, agora se ativa-lo manualmente (Em tempo de projeto) nao da . A menssagem é :Project PROJETO.exe raised exception class EDatabaseError witch message CDS_REF: Type mismatch for fild `PRECO`, expecting:BCD actual:FMTBcdField. Process stoppped. Use Step or Run to continue. Porque ? [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Qual a melhor maneira de trabalhar com TTable ?
vc tem que colocar true na opcao filtered, mas Usa TQuery, é muito melhor From: Marcelo Silva [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: [delphi-br] Qual a melhor maneira de trabalhar com TTable ? Date: Mon, 8 Nov 2004 11:37:26 -0200 Estou trabalhando com arquivos DBF e gostaria de saber qual a melhor maneira de se trabalhar com TTables ? Tipo... Para abrir a tabela ele abre numa boa bem rapido... Quando coloco o Filtro que quero no DBGrid ele mostra somente os registro que preciso.. Mas vejo que no While ele percorre toda a tabela ignorando o filtro... ou seja desta forma não sei pra que o filtro. Já Estou fazendo uso de Indices. Teria algum outro macete pra trazer os resultados de forma mais rápida ? Estou usando D7 com ADS (não posso mudar) Obs. Não posso mudar de base ok... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda - Rave no Delphi 7!!!!
Estou precisando gerar um relatório (usando o Rave 5 no Delphi 7) de entregas de produtos. Neste relatório cada entrega por ter 1 ou mais produtos. Por exemplo Entrega A,B,C e D. Na primeira página: Entrega A e produtos 1,2,3...n. Entrega B e produtos 1,2,3...n. Na segunda página: Entrega C e produtos 1,2,3...n. Entrega D e produtos 1,2,3...n. Utilizo um band pai(entregas) e um band filho(produtos). O Problema que estou encontrando é quando tento deixar somente 2 entregas por página(em posições fixas) e os seus respectivos produtos(iniciando abaixo da entrega). Alguem sabe de alguma dica que posso utilizar??? Desde já agradeço qualquer ajuda. Obrigado Eduardo Soares __ Do you Yahoo!? Check out the new Yahoo! Front Page. www.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Imprimir dados de um Form
Boas galera!! :-) Estou precisando imprimir em uma especie de ficha pequena, os dados q estão na tela (um Form) e naum sei qual comando uso. Usei o objeto RvSystem. Já consegui imprimir títulos do relatório, cabeçalho de coluna, linhas, porem na hora de imprimir os dados que estaum exibidos no Edit do Form não sei como fazer! :-( Estou usando o comando Print(), e tenho um ADOTable no form. Eu preciso de uma ADOConnection? Estou usando o Delphi 7. Galera me desculpem por importunanar a lista com dúvidas básicas e quem sabe triviais mas sou novo no mundo Delphi!! Obrigado a todos, Ab´s Alexandre -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] ordenar a lista do TComboBox
posso te dar uma sugestão, que tal gravar o nome do arquivo no formato LMMDDHHMM.. aí é só colocar a opção sorted do combobox para true, não tem erro, vai ordenado pela data. espero que sirva. Fabiano. From: Jeferson Adoryan [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: [delphi-br] ordenar a lista do TComboBox Date: Mon, 8 Nov 2004 14:44:33 -0300 (ART) dae pessoal... preciso de uma dica... estou usando arquivos .cds com TClientDataSet como BD no meu sistema. A cada novo lancamento eu crio um arquivo novo no diretorio do sistema com o seguinte padrao: L DD MM HH MM Ex: L081120041535. uso o seguinte procedimento para listar os arquivos em um TComboBox: if FindFirst(PChar(Dir + Arq), faArchive, SR) = 0 then repeat begin if sr.Name 'leitura.cds' then cbxArquivo.Items.Add(SR.Name); end until FindNext(SR) 0; o problema: preciso ordenar esses arquivos pela data de modo que o ultimo criado seja o primeiro no combo, mas ate agora naum consegui nada... se alguem tiver alguma dica sera muito bem vinda... Jeferson Adoryan Tecnico em Informática Panambi - RS Tel (55)9137 9119 _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Exibição de objetos em grid
Pessoal, tenho uma duvida sobre como exibir objetos em um grid. Considerem a seguinte situação: Eu tenho um vetor de objetos TPessoa com os atributos nome e idade. Eu preciso pegar esse vetor e exibir os valores dos atributos de cada objeto em um grid. Alguem sabe algum componente ou um metodo de linkar esse vetor de objetos a algum grid. Atualmente estou tendo que fazer isso na mão. Usando loop para pegar os atributos dos objetos e coloca-los em um stringgrid. Alguem sabe como fazer isso de maneira automatizada? Com um grid melhor? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Tree view mostrando somente a rede.
Olá pessoal Necessito trazer em uma tela todos os locais de rede compartilhados para o usuário escolher. O componente TShellTreeView do Delphi 7 funciona da maneira que eu preciso. Mas o problema é que eu preciso fazer isso para o delphi 5 e os componentes deste não possuem propriedades para mostrar somente os recursos da rede. Preciso que sejam somente os recursos da rede, não pode aparecer pastas da máquina local que não estão compartilhadas... Obrigado. Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] A/C SÁVIO CLER
procedure TForm1.Button1Click(Sender: TObject);
var
Origem: String;
Temp2, Temp3: Integer;
begin
//if Label1.Caption='Reestruturando Tabelas' then
//begin
Temp3:=42; //Para gerar a porcentagem
// for Temp1:=1 to 2 do
// begin
// if Temp1=1 then
//begin
// Tabela.DatabaseName:='C:\Index\Principal';Criada estas duas pastas
// FileListBox1.Directory:='C:\Index\Arquivo Morto'; ???
// FileListBox1.Update;
//end else
// begin
Tabela.DatabaseName:='C:\Index\Principal';
FileListBox1.Directory:='C:\Index\Arquivo Morto';
FileListBox1.Update;
// end;
for Temp2:=0 to FileListBox1.Items.Count-1 do
begin
Origem:=UpperCase(FileListBox1.Items.Strings[Temp2]);
if Copy(Origem,Length(Origem)-1,2)'DB' then
DeleteFile(FileListBox1.Directory+'\'+Origem);
end;
//** INÍCIO DA REESTRUTURAÇÃO **//
// Tabelas que serão indexadas
Tabela.TableName:='IRMA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PATIVID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Tabela.AddIndex('PorValor','Valor',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PCONTATO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PDOENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorCodigo','Codigo',[ixCaseInsensitive]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFAMILIA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFORMACAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFUNCAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PHABILID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PINSTRUC.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PITINERAR.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PLICENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
// end;
// Sleep(1000);
end;
Qq coisa só falar;
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, November 08, 2004 1:33 PM
Subject: [delphi-br] A/C SÁVIO CLER
Sr.Sávio.
Coloquei: Button, Label, Table, FileListBox e eum DirectoryListBox.
O código que conta na sua pagina colouqie no botão, então ficou assim.
O que devo fazer? está completo?
Aguardo resposta.
Paulo.
unit Principal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;
type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Tabela: TTable;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Temp1: Integer;
Temp2:
Re: [delphi-br] A/C SÁVIO CLER
procedure TForm1.Button1Click(Sender: TObject);
var
Origem: String;
Temp2, Temp3: Integer;
begin
//if Label1.Caption='Reestruturando Tabelas' then
//begin
Temp3:=42; //Para gerar a porcentagem
// for Temp1:=1 to 2 do
// begin
// if Temp1=1 then
//begin
// Tabela.DatabaseName:='C:\Index\Principal';Criada estas duas pastas
// FileListBox1.Directory:='C:\Index\Arquivo Morto'; ???
// FileListBox1.Update;
//end else
// begin
Tabela.DatabaseName:='C:\Index\Principal';
FileListBox1.Directory:='C:\Index\Arquivo Morto';
FileListBox1.Update;
// end;
for Temp2:=0 to FileListBox1.Items.Count-1 do
begin
Origem:=UpperCase(FileListBox1.Items.Strings[Temp2]);
if Copy(Origem,Length(Origem)-1,2)'DB' then
DeleteFile(FileListBox1.Directory+'\'+Origem);
end;
//** INÍCIO DA REESTRUTURAÇÃO **//
// Tabelas que serão indexadas
Tabela.TableName:='IRMA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PATIVID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Tabela.AddIndex('PorValor','Valor',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PCONTATO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PDOENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorCodigo','Codigo',[ixCaseInsensitive]);
Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFAMILIA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFORMACAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PFUNCAO.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PHABILID.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PINSTRUC.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PITINERAR.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
//
Tabela.TableName:='PLICENCA.db';
Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
Dec(Temp3);
Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
Update;
// end;
// Sleep(1000);
end;
Qq coisa só falar;
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, November 08, 2004 1:54 PM
Subject: [delphi-br] A/C SÁVIO CLER
Sr.Sávio.
Se puderes me ajudar ficareimuito grato.
Paulo.
O codigo encontre logo abaixo:
unit Principal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;
type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Tabela: TTable;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Temp1: Integer;
Temp2: Integer;
Temp3: Integer;
Origem: String;
Re: [delphi-br] tabela temporaria como fazer?
Verifique quais os programas que voçê realmente precise que fiquem carregados no seu sistema. para evitar perda de performace, e dependendo do caso coloque mais memoria em sua máquina. delphi6_2005 [EMAIL PROTECTED] wrote: Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ASS: Isaac de Paula Batista ICQ: 266767113 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] tabela temporaria como fazer?
Concordo com o r4zor, acho q isso vai te dar bastante dor de cabeça, se vc quer diminuir tráfego de rede, projete suas SQLs, de forma que elas só tragam os dados que o usuário irá usar, e evite os select * from sem where, retorne somente as colunas que interessam ao usuário, e evite usar Table, procure usar sempre querys. outra coisa que eu evito fazer pra não comprometer a performance da rede é não usar DBcombobox para mostrar, por exemplo, todos os produtos onde o usuário irá selecionar só um... eu prefiro colocar um campo onde o usuário digita manualmente o codigo do produto, caso ele não saiba, aí ele abre uma tela de consulta para que possa procurar o produto desejado. com o tempo o usuário acaba decorando os codigos dos principais produtos, assim consigo evitar de enviar várias consultas para o banco, trazendo para o cliente apenas os dados que importam pra ele flw, t+. Fabiano. From: Yahoo [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: Re: [delphi-br] tabela temporaria como fazer? Date: Mon, 08 Nov 2004 11:28:20 -0300 eu acho q nao e viavel: 1. qq atualizacao na tabela de produtos vc vai ter q pedir pra todo mundo sair do sistema e entrar de novo. 2. como assim evitar trafego e performace do sistema? r4zor delphi6_2005 wrote: Amigos preciso ao iniciar um programa carregar uma tabela de produtos afim de evitar o trafego e a performace do sistema, qual a melhor maneira de fazê-lo??? Agradelo as dicas dos amigos Paulo _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird 1.5 Reservar espaço para versioning
Ola Pessoal,
Conhece alguma artigo sobre este assunto?
Qual a finalidade?
Usando:
Delphi 7
Firebird 1.5
O componente IBConfigService da pasta InterbaseAdmin tem
o metodo SetReserveSpace, qual a finalidade de reservar espaço?
Quando cria o banco de dados o padrao seria SetReserveSpace(True)?
Quando seria indicado o uso de SetReserveSpace(False)?
Este metodo tem alguma influencia sobre o Firebird ou
teria somente no Interbase?
The following example shows how to activate the database shadow, set the
async and access modes, and reserve disk space for versioning. Note that
the SetReadOnly method is set to False in the beginning; this is to ensure
that the other parameters can be set, in case the database has been
previously set to read-only. The call to the Windows API Sleep between each
method is to ensure that each service completes before going on to the next.
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBConfigService1 do
begin
ServerName := 'Poulet';
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
DatabaseName := 'c:\interbase\tutorial\tutorial.gdb';
Active := True;
try
SetReadOnly(False);
while IsServiceRunning do Sleep(5);
if CheckBox1.Checked then
ActivateShadow;
while IsServiceRunning do Sleep(5);
if CheckBox2.Checked then
SetAsyncMode(True);
while IsServiceRunning do Sleep(5);
if CheckBox3.Checked then
SetReserveSpace(True);
while IsServiceRunning do Sleep(5);
if CheckBox4.Checked then
SetReadonly(True);
finally
Active := False;
end;
end;
end;
[]s
Paulo Geloramo
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Off Topic - Parceria de Vendas.
Olá Marcelo, gostaria de obter maiores informações sobre seus aplicativos e sua proposta de trabalho pois somos uma empresa que presta serviços de manutenção em equipamentos de eletrônica/informática e temos vários clientes que nos procuram sobre o fornecimento de programas comerciais. Trabalhamos com cooperativas, imobiliárias, construtoras, dentre outros segmentos e estamos estruturando um departamento de representações com uma boa equipe de vendas. Aguardamos contato, Atenciosamente, Onesio Lucena Neto Masterserv Serviços e Assistência Téc. em Informática LTda. Brasília/DF [EMAIL PROTECTED] - Original Message - From: Marcos Fonseca [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, November 07, 2004 1:02 PM Subject: [delphi-br] Off Topic - Parceria de Vendas. Bom dia colegas , represento uma empresa de informática que desenvolve soluções na plataforma Cliente-Servidor , e estamos procurando pessoas com conhecimentos no mercado corporativo para vivulgar nossos produtos. São sistemas de automação comercial , indústrial e serviços com módulos de Vendas , Faturamento , Compras , Estoque , Financeiro , Serviços e Contabilidade Gerencial. Nossos sistemas estão no nível de sistemas como Microssiga e Siscorp com diferencias de preços e qualidade de serviços na implantação e treinamento de usuários. Estes sistemas se destinam a empresas de pequeno e médio porte e pagamos boa comiisão a quem queira fazer este trabalho junto conosco. Obrigado pela vossa atenção. ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.786 / Virus Database: 532 - Release Date: 29/10/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
