[delphi-br] Duvidas SQL

2004-11-09 Por tôpico Tasquim

Bom dia!

Alguem saberia me informar como inicio/faço uma chamada (ou mesclar) em sql 
dentro do delphi,ou seja, tenho a programação em delphi, mas preciso colocar 
uma parte em sql, 
Ex.:  uma Pesquisa.

Tem como fazer isto??
Quais comandos uso??

Agradeço





[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] ordenar a lista do TComboBox

2004-11-09 Por tôpico Jeferson Adoryan

Valeu pelas dicas galera...
pra quem ta recomecando a programar depois de 4 anos(e ja naum sabia muita 
coisa) foi uma grande ajuda... vou analisar o metodo que vou usar...
Valeu mesmo...


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]
 
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] Mais sobre tabela temporária

2004-11-09 Por tôpico delphi6_2005


Amigos agradeço a ajuda de todos, realmente muito importante.

Gostaria de estender o assunto.
A maioria dos amigos evita ou não recomenda o uso de tabelas 
temporarias, porém fica complicado por exemplo um sistema de vendas 
onde o usuário informa o codigo do produto e tem de se verificar se 
o produto existe na tabela, ir até o banco várias e várias vezes só 
pra verificar existência do produto, imaginem um supermercado com 
30, 50, 100 caixas registrando 10, 20, 50 itens por venda.

O que os amigos me dizem.



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: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?

2004-11-09 Por tôpico Vitor Luiz Redes


Se não o Hospedeiro,
quem faz do parasita,
um parasita ?

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: Marcelo Silva 
  To: [EMAIL PROTECTED] 
  Sent: Monday, November 08, 2004 5:37 PM
  Subject: 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 

Re: [delphi-br] Receber E-mail

2004-11-09 Por tôpico Oseias Ferreira

-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

Em Seg 08 Nov 2004 16:36, Isaac escreveu:
 Thiago
 Seria  melhor voçê ultilizar um programa específico de recebimento de
 e_mails.

 Thiago [EMAIL PROTECTED] wrote:

 Sera que alguem pode me ajudar?

 Gostaria de saber como receber E-mail Pop3 pelo delphi

 Brigadao
 Thiago


Caro amigo Thiago.

Para acessar servidores pop3, use a biblioteca Indy.
Na página da biblioteca, http://www.indyproject.org/, 
tem um exemplo de um cliente pop3.
Mas ele não baixa as mensagens. Somente visualiza as mensagens.
Para baixar as mensagens para leitura OFF-Line você precisará criar uma base 
local, para armazenamento das mensagens. 

- -- 
Oseias Ferreira.
Linux Counter #333243
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQFBkLJZHKYDdGAIQkURAswiAJ40iWAUuuOCDriE/AfPgo0Dm5qEQQCgkfWa
BLNJ/HZFjIBqNo6yWpBYTt4=
=o63B
-END PGP SIGNATURE-


-- 
 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] Duvidas SQL

2004-11-09 Por tôpico Oseias Ferreira

-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

Em Ter 09 Nov 2004 08:12, Tasquim escreveu:
 Bom dia!

 Alguem saberia me informar como inicio/faço uma chamada (ou mesclar) em sql
 dentro do delphi,ou seja, tenho a programação em delphi, mas preciso
 colocar uma parte em sql, Ex.:  uma Pesquisa.

 Tem como fazer isto??
 Quais comandos uso??

 Agradeço

Você quer fazer Querys em tempo de execução.

Query.SQL.ADD(Edit.Text);

- -- 
Oseias Ferreira.
Linux Counter #333243
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQFBkLL7HKYDdGAIQkURAqDGAJ9qL2qHMVWPCxRTA5W4Oyr0kLGSiwCgqLYS
UAyFUOoaF8V5BfBZEAGcL0I=
=kOZv
-END PGP SIGNATURE-


-- 
 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 ?

2004-11-09 Por tôpico Vitor Luiz Redes

É, no seu caso, acho que a melhor maneira, é Setar o Range para o menor e 
maior valor, e depois filtrar como puder ...
Mas o ideal mesmo, era usar uma Query, assim, você faria isso rapidinho ...


Se não o Hospedeiro,
quem faz do parasita,
um parasita ?

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: Marcelo Silva 
  To: [EMAIL PROTECTED] 
  Sent: Monday, November 08, 2004 5:37 PM
  Subject: 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 

[delphi-br] Mensagem de Erro

2004-11-09 Por tôpico info.suporte

Alguém pode me dar um auxilio, nesta mensagem de erro:


Access Violation at adress 4E8E5CDD in module Banzam.dll; Read od Adress 
01C2


PAULO FERNANDES.

Obs. Isso acontece quando eu estou fazendo a importação de dados da tabela 
origem para a Destino.


[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] Form orientada objeto

2004-11-09 Por tôpico Vladmir



Caros, 

Alguem trabalha com form de forma orientada objeto, gostaria de saber 
como crio e depois faço a chamada


Vladmir





-- 
 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] Mais sobre tabela temporária

2004-11-09 Por tôpico Fabrício (Listas)


Paulo, bom dia.

Ainda assim, prefiro as tabelas convencionais. Mesmo pq, uma empresa deste
porte deve ter uma boa estrutura tecnológica.

Usando corretamente os índices, o tempo de resposta é muito curto. 

Num exemplo, com uma tabela com +- 29.000 itens (é pequena, mas dá para ter
uma idéia), o tempo de retorno e a quantidade de trafego de rede são muito
pequenos.

SQL select count(*) from item;

  COUNT(*)
--
 29468

SQL select pct_ipi from item where cod_empresa='01' and cod_item =
'001.01.80165.00';

   PCT_IPI
--
 5


Execution Plan
--
   0  SELECT STATEMENT Optimizer=CHOOSE (Cost=2 Card=1 Bytes=21)
   10   TABLE ACCESS (BY INDEX ROWID) OF 'ITEM' (Cost=2 Card=1 Bytes=21)
   21 INDEX (UNIQUE SCAN) OF 'PK_ITEM_1' (UNIQUE) (Cost=1 Card=1)


Statistics
--
  0  recursive calls
  0  db block gets
  3  consistent gets
  0  physical reads
  0  redo size
366  bytes sent via SQL*Net to client   ==
Trafego de rede
425  bytes received via SQL*Net from client ==
Trafego de rede
  2  SQL*Net roundtrips to/from client
  1  sorts (memory)
  0  sorts (disk)
  1  rows processed

O processamento é imediato, pois está utilizando índice INDEX (UNIQUE SCAN)
OF 'PK_ITEM_1' (UNIQUE). 

Acredito que, fazendo um tunning correto das querys, vc não terá problema e
não precisará esquentar a cabeça com tabelas temporárias.

Se quiser fazer um teste mais apurado, crie uma tabela com dois campos e
adicione uns 5.000.000 de registros com números seqüenciais (com um FOR).
Depois crie um índice e faça uma consulta. 

Dependendo da estrutura de rede e do servidor, pode até ser necessário
partir para uma solução mais trabalhosa, porém consciente de que a real
solução seria melhorar a estrutura tecnológica.

Opinião particular! ;-)

[]s

Fabrício Veloso Ramos


-Mensagem original-
De: delphi6_2005 [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 9 de novembro de 2004 08:48
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Mais sobre tabela temporária



Amigos agradeço a ajuda de todos, realmente muito importante.

Gostaria de estender o assunto.
A maioria dos amigos evita ou não recomenda o uso de tabelas 
temporarias, porém fica complicado por exemplo um sistema de vendas 
onde o usuário informa o codigo do produto e tem de se verificar se 
o produto existe na tabela, ir até o banco várias e várias vezes só 
pra verificar existência do produto, imaginem um supermercado com 
30, 50, 100 caixas registrando 10, 20, 50 itens por venda.

O que os amigos me dizem.



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




 






-- 
 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] OFF TOPPIC-Inno Setup

2004-11-09 Por tôpico Alisson

Alguém tem alguma apostila sobre Inno Setup e/ou IsTool? Não estou
conseguindo executar algumas rotinas na instalação que estou criando. São as
seguintes:

- Instalar o Firebird automaticamente e oculto, ou seja, sem que o usuário
precise ver a tela de instalação do mesmo e clicar nos botões pra realizar a
instalação.
- Fazer o Firebird rodar automaticamente em versão do Windows anterior ao
2000. Nesse caso é necessário colocar o atalho manualmente no menu
INICIAR-PROGRAMAS-INICIALIZAR.
- Excluir o arquivo de instalação do Firebird após a instalação.
- Colocar uma figura na tela do instalador.
- Colocar o desinstalador em uma pasta diferente da pasta onde será
instalado o sistema.
- Instalar arquivos de fontes do Windows.
- O sistema precisa acessar um arquivo .ini, mas depois de instalado, se o
usuário tenta acessar o programa através do atalho criado na área de
trabalho ou no menu INICIAR-PROGRAMAS, o programa procura o arquivo ini na
área de trabalho e não no diretório de instalação.








-- 
 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] Mais sobre tabela temporária

2004-11-09 Por tôpico Yahoo

Oi,

So se vc estiver usando arquivo texto ou access pra se preocupar com isso,
imagina so uma agencia bancaria trabalhando com tabela temporaria, ou 
ate mesmo um supermecado, vc altera o valor de uma mercadoria e tem que 
sair correndo atualizando as maquinas ou a atualizancao dos produtos so 
pode ser feita quando o supermercado fecha.

ps. q bd vc usa, pra tal preocupacao?


r4z0r


delphi6_2005 wrote:

Amigos agradeço a ajuda de todos, realmente muito importante.

Gostaria de estender o assunto.
A maioria dos amigos evita ou não recomenda o uso de tabelas 
temporarias, porém fica complicado por exemplo um sistema de vendas 
onde o usuário informa o codigo do produto e tem de se verificar se 
o produto existe na tabela, ir até o banco várias e várias vezes só 
pra verificar existência do produto, imaginem um supermercado com 
30, 50, 100 caixas registrando 10, 20, 50 itens por venda.

O que os amigos me dizem.



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] Duvidas SQL

2004-11-09 Por tôpico Yahoo

help do delphi: TQuery
ou google: delphi usando query


Tasquim wrote:

Bom dia!

Alguem saberia me informar como inicio/faço uma chamada (ou mesclar) em sql 
dentro do delphi,ou seja, tenho a programação em delphi, mas preciso colocar 
uma parte em sql, 
Ex.:  uma Pesquisa.

Tem como fazer isto??
Quais comandos uso??

Agradeço





[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] Off Topic - Orçamento de programa

2004-11-09 Por tôpico Marcio Henrique A. dos Santos

Amigos,
quanto vcs cobrariam para desenvolver um sistema em delphi de controle de
estoque que controlasse as vendas de um representante por regiao e um
controle financeiro para empresas tipo a Martins? Cada representante teria
um Palm para efetuar as vendas (o programa para o palm também entra no
orçamento - em Java).

Grato,

Márcio



-- 
 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] Exportação para Excel

2004-11-09 Por tôpico Vicente Lima

Fiz uma rotina para exportar do Delphi para o Excel, no entanto quando 
exporto um valor tipo 100.00, no Excel ele sempre aparece com 100.
Existe alguma solução para isto ? 
Já formatei o valor para string '100.00' no Delphi e nada.

Vicente Lima

[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] ComboBox - Urgente! Por favor...

2004-11-09 Por tôpico Giovani Zanuto

Caros colegas programadores, alguém sabe como faço um combobox com máscara 
(igual à um maskedit)??? Ou alguém sabe se existe algum componete que faça isso 
e onde eu possa arranjá-lo?
Atenciosamente, Giovani


-
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: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com TTable ?

2004-11-09 Por tôpico Marcelo Silva

Eu Utilizei AdsQuery ela demora pra abrir porque não faz uso eficiente dos 
Indices como a Table quando estão em outra pasta (que é meu caso).
E outra coisa ... quando gravo através da Query ela não atualiza os arquivos de 
indices e desta forma o Clipper não encherga o que foi inserido... Esse clipper 
foi ótimo por uns tempos mas agora nas empresas que persistem nele ele está 
atrapalhando pra caramba ...

Estou na corrida pra conseguir melhorar o sistema ... as dicas vindas da lista 
ja ajudaram muito ...
Bem... a briga continua ...

Se fosse EU x BANCO eu daria um jeito... mas é EU x BANCO x Patrão aí a briga 
fica desigual :-)

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
  - Original Message - 
  From: Vitor Luiz Redes 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, November 09, 2004 10:21 AM
  Subject: Re: Ao Vitor [delphi-br] Qual a melhor maneira de trabalhar com 
TTable ?


  É, no seu caso, acho que a melhor maneira, é Setar o Range para o menor e 
maior valor, e depois filtrar como puder ...
  Mas o ideal mesmo, era usar uma Query, assim, você faria isso rapidinho 
...


  Se não o Hospedeiro,
  quem faz do parasita,
  um parasita ?

  Vitor Luiz Redes
  
  Redsystem Informática
- Original Message - 
From: Marcelo Silva 
To: [EMAIL PROTECTED] 
Sent: Monday, November 08, 2004 5:37 PM
Subject: 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 

Re: [delphi-br] OFF TOPPIC-Inno Setup

2004-11-09 Por tôpico Gláucio Saraiva da Silva

Veja o link

http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=895



Atenciosamente,

Gláucio Saraiva

  - Original Message - 
  From: Alisson 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, November 09, 2004 8:18 AM
  Subject: [delphi-br] OFF TOPPIC-Inno Setup


  Alguém tem alguma apostila sobre Inno Setup e/ou IsTool? Não estou
  conseguindo executar algumas rotinas na instalação que estou criando. São as
  seguintes:

  - Instalar o Firebird automaticamente e oculto, ou seja, sem que o usuário
  precise ver a tela de instalação do mesmo e clicar nos botões pra realizar a
  instalação.
  - Fazer o Firebird rodar automaticamente em versão do Windows anterior ao
  2000. Nesse caso é necessário colocar o atalho manualmente no menu
  INICIAR-PROGRAMAS-INICIALIZAR.
  - Excluir o arquivo de instalação do Firebird após a instalação.
  - Colocar uma figura na tela do instalador.
  - Colocar o desinstalador em uma pasta diferente da pasta onde será
  instalado o sistema.
  - Instalar arquivos de fontes do Windows.
  - O sistema precisa acessar um arquivo .ini, mas depois de instalado, se o
  usuário tenta acessar o programa através do atalho criado na área de
  trabalho ou no menu INICIAR-PROGRAMAS, o programa procura o arquivo ini na
  área de trabalho e não no diretório de instalação.








  -- 
   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] Duvida COnsulta de Data

2004-11-09 Por tôpico Vitor Luiz Redes

Você pode fazer de duas maneiras ...
Uma, seria formatar a data para ano, mes e dia ...
Outra seria ... StrToDateTime(StringData) ...


Se não o Hospedeiro,
quem faz do parasita,
um parasita ?

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: Rodrigo Brito 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, November 09, 2004 1:51 PM
  Subject: [delphi-br] Duvida COnsulta de Data


  Bom TArde,

  Tenho um programa básico de estoque, uso o delphi6 e o paradox 7, no 
  banco os campos data estão como texto, isso atrrapalha na consulta de um 
  período , teria alguma maneira de quando for consultar informar que o 
  campo data que é texto passe a ser como um campo data..?


  -- 
   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] Form orientada objeto

2004-11-09 Por tôpico Maicon Gabriel Schmitz

Orientado a objeto ou dinâmico ?

- Original Message - 
From: Vladmir [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 9:51 AM
Subject: [delphi-br] Form orientada objeto





Caros, 

Alguem trabalha com form de forma orientada objeto, gostaria de saber 
como crio e depois faço a chamada


Vladmir





-- 
 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

* 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] Duvidas SQL

2004-11-09 Por tôpico Tasquim

vcs não teriam um exemplo mais pratico
  - Original Message - 
  From: Yahoo 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, November 09, 2004 11:49 AM
  Subject: Re: [delphi-br] Duvidas SQL


  help do delphi: TQuery
  ou google: delphi usando query


  Tasquim wrote:

  Bom dia!
  
  Alguem saberia me informar como inicio/faço uma chamada (ou mesclar) em sql 
dentro do delphi,ou seja, tenho a programação em delphi, mas preciso colocar 
uma parte em sql, 
  Ex.:  uma Pesquisa.
  
  Tem como fazer isto??
  Quais comandos uso??
  
  Agradeço
  

[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] Duvidas SQL

2004-11-09 Por tôpico luagodoy

Veja se isto pode te ajudar

Procedure ..
var
   nome : string;

const
  Aspa = ;

begin
//usa variável apenas para demonstrar
nome := 'Luis';

with query1 do
  begin
if active then close;
sql.clear;
sql.add('SELECT * FROM TAB_CLIENTES WHERE NOME LIKE (' +
aspa + nome + aspa + ')' + chr(13) +
' order by nome');
open;
  end;
end;


espero que seja isso a sua dúvida.


lugodoy
 




-- Cabeçalho inicial  ---

De: Tasquim [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]
Cópia: 
Data: Tue, 9 Nov 2004 13:15:13 -0200
Assunto: Re: [delphi-br] Duvidas SQL

 
 vcs não teriam um exemplo mais pratico
   - Original Message - 
   From: Yahoo 
   To: [EMAIL PROTECTED] 
   Sent: Tuesday, November 09, 2004 11:49 AM
   Subject: Re: [delphi-br] Duvidas SQL
 
 
   help do delphi: TQuery
   ou google: delphi usando query
 
 
   Tasquim wrote:
 
   Bom dia!
   
   Alguem saberia me informar como inicio/faço uma chamada (ou
mesclar) em sql dentro do delphi,ou seja, tenho a programação em
delphi, mas preciso colocar uma parte em sql, 
   Ex.:  uma Pesquisa.
   
   Tem como fazer isto??
   Quais comandos uso??
   
   Agradeço
   
 
 [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
 
 
 
 
  
 
 
 
 
 Esta mensagem foi verificada pelo E-mail Protegido Terra.
 Scan engine: McAfee VirusScan / Atualizado em 09/11/2004 / Versão:
4.3.20 (10.21) - Dat 4405
 Proteja o seu e-mail Terra: http://www.emailprotegido.terra.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] MENSAGEM

2004-11-09 Por tôpico info.suporte

Alguém sabe como faço para que o sistema mostre uma barra de progresso antes do 
sistema abrir, colocando uma mensagem 'Aguarde o sistema'


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

 





Re: [delphi-br] MENSAGEM

2004-11-09 Por tôpico Laira Gasparello

Não sei se é a melhor solução ou recurso...

Mas no meu programa criei um form que é criado e demonstrado primeiro e no
projeto, a cada criação de form´s ou data modules acrescento uma posição
na barra de progresso..

- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 1:24 PM
Subject: [delphi-br] MENSAGEM



 Alguém sabe como faço para que o sistema mostre uma barra de progresso
antes do sistema abrir, colocando uma mensagem 'Aguarde o sistema'


 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












-- 
 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 - Orçamento de programa

2004-11-09 Por tôpico Yahoo

uns 15.000,00 a parte de delphi
programa em java, procure uma lista de java.

r4z0r


Marcio Henrique A. dos Santos wrote:

Amigos,
quanto vcs cobrariam para desenvolver um sistema em delphi de controle de
estoque que controlasse as vendas de um representante por regiao e um
controle financeiro para empresas tipo a Martins? Cada representante teria
um Palm para efetuar as vendas (o programa para o palm também entra no
orçamento - em Java).

Grato,

Márcio



  




-- 
 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] Duvida COnsulta de Data

2004-11-09 Por tôpico Yahoo

texto para data: de uma olha no help do delphi em strtodate

r4z0r


Rodrigo Brito wrote:

Bom TArde,

Tenho um programa básico de estoque, uso o delphi6 e o paradox 7, no 
banco os campos data estão como texto, isso atrrapalha na consulta de um 
período , teria alguma maneira de quando for consultar informar que o 
campo data que é texto passe a ser como um campo data..?


  




-- 
 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] Duvidas SQL

2004-11-09 Por tôpico Tasquim

legal, era isso mesmo, agradeço, eu queria saber era como fazer a sintaxe, 
agora ja deu uma clareada


Tasquim
  - Original Message - 
  From: luagodoy 
  To: delphi-br 
  Sent: Tuesday, November 09, 2004 1:23 PM
  Subject: Re: [delphi-br] Duvidas SQL


  Veja se isto pode te ajudar

  Procedure ..
  var
 nome : string;

  const
Aspa = ;

  begin
  //usa variável apenas para demonstrar
  nome := 'Luis';

  with query1 do
begin
  if active then close;
  sql.clear;
  sql.add('SELECT * FROM TAB_CLIENTES WHERE NOME LIKE (' +
  aspa + nome + aspa + ')' + chr(13) +
  ' order by nome');
  open;
end;
  end;


  espero que seja isso a sua dúvida.


  lugodoy





  -- Cabeçalho inicial  ---

  De: Tasquim [EMAIL PROTECTED]
  Para: [EMAIL PROTECTED]
  Cópia: 
  Data: Tue, 9 Nov 2004 13:15:13 -0200
  Assunto: Re: [delphi-br] Duvidas SQL

   
   vcs não teriam um exemplo mais pratico
 - Original Message - 
 From: Yahoo 
 To: [EMAIL PROTECTED] 
 Sent: Tuesday, November 09, 2004 11:49 AM
 Subject: Re: [delphi-br] Duvidas SQL
   
   
 help do delphi: TQuery
 ou google: delphi usando query
   
   
 Tasquim wrote:
   
 Bom dia!
 
 Alguem saberia me informar como inicio/faço uma chamada (ou
  mesclar) em sql dentro do delphi,ou seja, tenho a programação em
  delphi, mas preciso colocar uma parte em sql, 
 Ex.:  uma Pesquisa.
 
 Tem como fazer isto??
 Quais comandos uso??
 
 Agradeço
 
   
   [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
   
   
   
   

   
   
   
   
   Esta mensagem foi verificada pelo E-mail Protegido Terra.
   Scan engine: McAfee VirusScan / Atualizado em 09/11/2004 / Versão:
  4.3.20 (10.21) - Dat 4405
   Proteja o seu e-mail Terra: http://www.emailprotegido.terra.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]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  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

 





RES: [delphi-br] Duvidas SQL

2004-11-09 Por tôpico Cícerot

Voce ainda pode fazer:
no lugar de ASPAS como o colega indicou:
quotedstr(nome.text)

-Mensagem original-
De: Tasquim [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 9 de novembro de 2004 12:55
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Duvidas SQL



legal, era isso mesmo, agradeço, eu queria saber era como fazer a sintaxe,
agora ja deu uma clareada


Tasquim
  - Original Message -
  From: luagodoy
  To: delphi-br
  Sent: Tuesday, November 09, 2004 1:23 PM
  Subject: Re: [delphi-br] Duvidas SQL


  Veja se isto pode te ajudar

  Procedure ..
  var
 nome : string;

  const
Aspa = ;

  begin
  //usa variável apenas para demonstrar
  nome := 'Luis';

  with query1 do
begin
  if active then close;
  sql.clear;
  sql.add('SELECT * FROM TAB_CLIENTES WHERE NOME LIKE (' +
  aspa + nome + aspa + ')' + chr(13) +
  ' order by nome');
  open;
end;
  end;


  espero que seja isso a sua dúvida.


  lugodoy





  -- Cabeçalho inicial  ---

  De: Tasquim [EMAIL PROTECTED]
  Para: [EMAIL PROTECTED]
  Cópia:
  Data: Tue, 9 Nov 2004 13:15:13 -0200
  Assunto: Re: [delphi-br] Duvidas SQL

  
   vcs não teriam um exemplo mais pratico
 - Original Message -
 From: Yahoo
 To: [EMAIL PROTECTED]
 Sent: Tuesday, November 09, 2004 11:49 AM
 Subject: Re: [delphi-br] Duvidas SQL
  
  
 help do delphi: TQuery
 ou google: delphi usando query
  
  
 Tasquim wrote:
  
 Bom dia!
 
 Alguem saberia me informar como inicio/faço uma chamada (ou
  mesclar) em sql dentro do delphi,ou seja, tenho a programação em
  delphi, mas preciso colocar uma parte em sql,
 Ex.:  uma Pesquisa.
 
 Tem como fazer isto??
 Quais comandos uso??
 
 Agradeço
 
  
   [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
  
  
  
  
  
  
  
  
  
   Esta mensagem foi verificada pelo E-mail Protegido Terra.
   Scan engine: McAfee VirusScan / Atualizado em 09/11/2004 / Versão:
  4.3.20 (10.21) - Dat 4405
   Proteja o seu e-mail Terra: http://www.emailprotegido.terra.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]



Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  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








---
Incoming 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

---
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

 





RES: [delphi-br] MENSAGEM

2004-11-09 Por tôpico Fabrício (Listas)


É exatamente isto... Chama-se splash.

Faz uma pesquisa sobre DELPHI + SPLASH para obter os detalhes.

[]s

Fabrício Veloso Ramos

-Mensagem original-
De: Laira Gasparello [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 9 de novembro de 2004 12:37
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] MENSAGEM


Não sei se é a melhor solução ou recurso...

Mas no meu programa criei um form que é criado e demonstrado primeiro e no
projeto, a cada criação de form´s ou data modules acrescento uma posição
na barra de progresso..

- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 1:24 PM
Subject: [delphi-br] MENSAGEM



 Alguém sabe como faço para que o sistema mostre uma barra de progresso
antes do sistema abrir, colocando uma mensagem 'Aguarde o sistema'


 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












-- 
 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] ADO exigem recurso ou configuração para funcionar nos Windows?

2004-11-09 Por tôpico delphi6_2005


Algum amigo sabe me informar se para utilizar os Componentes ADO em 
meus aplicativos 
eu terei de efeturar alguma configuração nas máquinas onde irei 
instalar o aplicativo,

Poderei utilizar o aplicativo com ADO em qualquer Windows?
Necessido instalar ou configurar algum drive, fazer alguma 
atualização?
e o windows 98 terei problemas?




Grato aos 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] Problemas com MainMenu

2004-11-09 Por tôpico Charlles Ferdinand

Pessoal, estou com um problema sem meio pé nem cabeça.

Estou acessando um form para alterar um registro, pelo MainMenu, até aí tudo
bem, mas quando vou confirmar a alteração ta dando a seguinte mensagem.
Access Violation at Address 004EFD48 in module 'Project_Protocolo.exe' Read
of Address'.

Agora quando acesso o mesmo form de uma outra tela, que fiz um botão para
abrir o form de alteração, faço a alteração perfeitamente.

Alguem tem ideia do que pode ser.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

 





RES: [delphi-br] MENSAGEM

2004-11-09 Por tôpico Vinicius da Silva Pinto

Eu coloco dentro do meu .DPR assim:

program Sigeco;

uses
  Forms,
  PRabertura in 'PRabertura.pas' {FRMabertura},
  Principal in 'Principal.pas' {FRMprincipal},
  PRbiblioteca in 'PRbiblioteca.pas' {FRMbiblioteca},
  DMarquivos in 'DMarquivos.pas' {DM1: TDataModule},
.
.  meus varios form
.
.
.
  PRlogpgto in 'PRlogpgto.pas' {FRMlogPgto},
  PRlancaPgto in 'PRlancaPgto.pas' {FRMlancaPgto},
  PRatuPrincipal in 'PRatuPrincipal.pas' {FRMatuPrincipal};

{$R *.RES}

begin
  Application.Initialize;

// Existe um form pequeno que eu criei com uma progress bar só para iniciar
// a cada criacao de form eu incremento a barra de progresso e dou um
refresh
// funciona direitinho.


  FRMabertura := TFRMabertura.Create(Application);
  FRMabertura.ProgressBar1.Position := 5;
  FRMabertura.Show;
  FRMabertura.Update;
  Application.Title := 'SIGECO';

  FRMabertura.Label1.Caption := 'Carregando módulo Principal ';
  FRMabertura.ProgressBar1.Position := 10;
  FRMabertura.Update;
  Application.CreateForm(TFRMprincipal, FRMprincipal);
  //Application.CreateForm(TFRMatuPrincipal, FRMatuPrincipal);
  FRMabertura.Label1.Caption := 'Carregando o Gerenciador de Arquivos';
  FRMabertura.ProgressBar1.Position := 20;
  FRMabertura.Update;
  Application.CreateForm(TDM1, DM1);
  Application.CreateForm(TDM2, DM2);
  Application.CreateForm(TDM3, DM3);

  FRMabertura.Label1.Caption := 'Carregando módulo Cadastro de Alunos';
  FRMabertura.ProgressBar1.Position := 40;
  FRMabertura.Update;
  Application.CreateForm(TFRMalunos, FRMalunos);

  FRMabertura.Label1.Caption := 'Carregando módulo Alteração de Tabelas';
  FRMabertura.ProgressBar1.Position := 45;
  FRMabertura.Update;
  Application.CreateForm(TFRMatlTabela, FRMatlTabela);

  FRMabertura.Label1.Caption := 'Carregando módulo Criação de Tabelas';
  FRMabertura.ProgressBar1.Position := 50;
  FRMabertura.Update;
  Application.CreateForm(TFRMtabela, FRMtabela);

  FRMabertura.Label1.Caption := 'Carregando módulo Senhas';
  FRMabertura.ProgressBar1.Position := 55;
  FRMabertura.Update;
  Application.CreateForm(TFRMsenha, FRMsenha);

  FRMabertura.Label1.Caption := 'Carregando módulo Relatorios Gerais';
  FRMabertura.ProgressBar1.Position := 79;
  FRMabertura.Update;
  Application.CreateForm(TFRMmontaRelato, FRMmontaRelato);

  FRMabertura.Label1.Caption := 'Sistema totalmente carregado. Boa Sorte';
  FRMabertura.ProgressBar1.Position := 100;
  FRMabertura.Update;

  FRMsenha.ShowModal;
  FRMsenha.Update;
  Application.Run;
end.

-Mensagem original-
De: Laira Gasparello [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 9 de novembro de 2004 12:37
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] MENSAGEM



Não sei se é a melhor solução ou recurso...

Mas no meu programa criei um form que é criado e demonstrado primeiro e no
projeto, a cada criação de form´s ou data modules acrescento uma posição
na barra de progresso..

- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 1:24 PM
Subject: [delphi-br] MENSAGEM



 Alguém sabe como faço para que o sistema mostre uma barra de progresso
antes do sistema abrir, colocando uma mensagem 'Aguarde o sistema'


 PAULO FERNANDES



-- 
 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.

2004-11-09 Por tôpico PMCC

Prezado Marcos,
poderia fornecer-me maiores informações sobre os sistemas? possui algum site
q possa ver as telas ou contactar a sua empresa?
Atenciosamente,
Robson Farias
- 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











-- 
 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] Menu popup sem aparecer

2004-11-09 Por tôpico Eduardo Galvão

Pessoal,

Tenho um menu popup associado a um dbgrid, que por
sua vez está associado a uma query.

Quero que, ao se clicar com o botão direito do mouse,
o menu popup não apareça caso a query esteja vazia.

Algo do tipo (no evento onpopup???)

if query.isempty then (popupmenu).???

Alguma dica?

Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.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

 





Re: [delphi-br] Menu popup sem aparecer

2004-11-09 Por tôpico Marcelo Silva

Vc pode colocar no AfterOpen da Query

if (Query.RecordCount  0) then
  DBGrid.PopMenu := SeuPopMenu
else DBGrid.PopMenu := ''; // Ou nil

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
  - Original Message - 
  From: Eduardo Galvão 
  To: Lista Delphi 
  Sent: Tuesday, November 09, 2004 3:50 PM
  Subject: [delphi-br] Menu popup sem aparecer


  Pessoal,

  Tenho um menu popup associado a um dbgrid, que por
  sua vez está associado a uma query.

  Quero que, ao se clicar com o botão direito do mouse,
  o menu popup não apareça caso a query esteja vazia.

  Algo do tipo (no evento onpopup???)

  if query.isempty then (popupmenu).???

  Alguma dica?

  Saudações,
  Eduardo Paci Galvão
  Engenheiro UFMG 1990
  Belo Horizonte - Brasil
  www.egalvao.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]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  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] Off Topic - Orçamento de programa

2004-11-09 Por tôpico Ediberto Alves

Procure por análise por pontos de função

[]´s

Ediberto
  - Original Message - 
  From: Fabrício (Listas) 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, November 09, 2004 3:44 PM
  Subject: RES: [delphi-br] Off Topic - Orçamento de programa




  Marcio,

  Teria que dar uma olhada no projeto todo, mas, basicamente, é +- o preço que
  o outro colega mencionou. (R$ 15.000,00 sem a parte Java). 

  Só que tudo depende da complexidade do projeto. O correto é fazer uma
  estimativa de horas de trabalho, diferenciando as tarefas de análise das
  tarefas de desenvolvimento, e multiplicar pelo valor hora de cada tarefa.

  []s

  Fabrício Veloso Ramos

  -Mensagem original-
  De: Marcio Henrique A. dos Santos [mailto:[EMAIL PROTECTED] 
  Enviada em: terça-feira, 9 de novembro de 2004 10:06
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Off Topic - Orçamento de programa


  Amigos,
  quanto vcs cobrariam para desenvolver um sistema em delphi de controle de
  estoque que controlasse as vendas de um representante por regiao e um
  controle financeiro para empresas tipo a Martins? Cada representante teria
  um Palm para efetuar as vendas (o programa para o palm também entra no
  orçamento - em Java).

  Grato,

  Márcio



  -- 
   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




   




[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] Arquivos do word

2004-11-09 Por tôpico Vinicius Mommensohn

Boa tarde pessoal,

Vi um artigo no site do clube delphi sobre como manipular arquivos .doc, mas 
não consegui baixar o artigo porque o link tava corrompido. Alguem tem alguma 
apostila completa de como trabalhar com arquivos .doc pelo delphi?!?!

Desde já agradeço,

[]s

Vinicius

[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] Arquivos do word

2004-11-09 Por tôpico Aparecido Gasparoto

Procurei artigos na internet mas não consegui encontrar quase nada.
Estava pretendendo gerar alguns arquivos automaticamente de acordo com a
escolha do usuário, mas acabei desistindo.
Abaixo segue o código fonte de um teste que estava fazendo.
Abraços.

Aparecido



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Word97, OleServer, StdCtrls, ComObj, ShellApi;


type
  TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var WordApplication, WordDocument, WordFont, WordParagraphFormat : Variant;
Texto :WideString;
begin

  if Edit1.Text  '' then
begin

  WordApplication := CreateOleObject('Word.Application') ;
  WordDocument := WordApplication.Documents.Add;

  WordApplication.Selection.Font.Bold:=1;

  if RadioButton1.Checked = True then
WordApplication.Selection.Font.Color:=clGreen
  else if RadioButton2.Checked = True then
WordApplication.Selection.Font.Color:=clRed
  else if RadioButton3.Checked = True then
WordApplication.Selection.Font.Color:=clBlue;

  if RadioButton4.Checked = True then
WordApplication.Selection.Font.Size:=10
  else if RadioButton5.Checked = True then
WordApplication.Selection.Font.Size:=12
  else if RadioButton6.Checked = True then
WordApplication.Selection.Font.Size:=14
  else if RadioButton7.Checked = True then
WordApplication.Selection.Font.Size:=16
  else if RadioButton8.Checked = True then
WordApplication.Selection.Font.Size:=18;

  WordApplication.Selection.ParagraphFormat.Alignment :=
wdAlignParagraphCenter;

  WordApplication.Selection.TypeText(Edit1.Text);

  WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles :=
False) ;

  WordApplication.Quit(True);

  ShellExecute(1,
   'OPEN',
   'winword.exe',
Pchar('c:\doc.doc'),
  'c:\Arquivos de Programas\Microsoft Office\',
  4);
end
  else
ShowMessage('Digite o texto');

end;

end.







- Original Message - 
From: Vinicius Mommensohn [EMAIL PROTECTED]
To: Delphi-br [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 3:44 PM
Subject: [delphi-br] Arquivos do word



Boa tarde pessoal,

Vi um artigo no site do clube delphi sobre como manipular arquivos .doc, mas
não consegui baixar o artigo porque o link tava corrompido. Alguem tem
alguma apostila completa de como trabalhar com arquivos .doc pelo delphi?!?!

Desde já agradeço,

[]s

Vinicius

[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

* 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] Arquivos do word

2004-11-09 Por tôpico Vinicius Mommensohn

Na verdade, o que eu vou fazer é criar um arquivo no word (como se fosse um 
modelo) e substituir alguamas palavras e depois mandar imprimir dar um preview 
ou imprimir. Alguem já fez algo assim?!?!? 

É que hoje eu faço com html, mas dah muito trabalho dimais montar todos as 
telas padroes! :/

[]s

Vinicius


- Original Message - 
From: Aparecido Gasparoto 
To: [EMAIL PROTECTED] 
Sent: Tuesday, November 09, 2004 6:00 PM
Subject: Re: [delphi-br] Arquivos do word


Procurei artigos na internet mas não consegui encontrar quase nada.
Estava pretendendo gerar alguns arquivos automaticamente de acordo com a
escolha do usuário, mas acabei desistindo.
Abaixo segue o código fonte de um teste que estava fazendo.
Abraços.

Aparecido



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Word97, OleServer, StdCtrls, ComObj, ShellApi;


type
  TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var WordApplication, WordDocument, WordFont, WordParagraphFormat : Variant;
Texto :WideString;
begin

  if Edit1.Text  '' then
begin

  WordApplication := CreateOleObject('Word.Application') ;
  WordDocument := WordApplication.Documents.Add;

  WordApplication.Selection.Font.Bold:=1;

  if RadioButton1.Checked = True then
WordApplication.Selection.Font.Color:=clGreen
  else if RadioButton2.Checked = True then
WordApplication.Selection.Font.Color:=clRed
  else if RadioButton3.Checked = True then
WordApplication.Selection.Font.Color:=clBlue;

  if RadioButton4.Checked = True then
WordApplication.Selection.Font.Size:=10
  else if RadioButton5.Checked = True then
WordApplication.Selection.Font.Size:=12
  else if RadioButton6.Checked = True then
WordApplication.Selection.Font.Size:=14
  else if RadioButton7.Checked = True then
WordApplication.Selection.Font.Size:=16
  else if RadioButton8.Checked = True then
WordApplication.Selection.Font.Size:=18;

  WordApplication.Selection.ParagraphFormat.Alignment :=
wdAlignParagraphCenter;

  WordApplication.Selection.TypeText(Edit1.Text);

  WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles :=
False) ;

  WordApplication.Quit(True);

  ShellExecute(1,
   'OPEN',
   'winword.exe',
Pchar('c:\doc.doc'),
  'c:\Arquivos de Programas\Microsoft Office\',
  4);
end
  else
ShowMessage('Digite o texto');

end;

end.







- Original Message - 
From: Vinicius Mommensohn [EMAIL PROTECTED]
To: Delphi-br [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 3:44 PM
Subject: [delphi-br] Arquivos do word



Boa tarde pessoal,

Vi um artigo no site do clube delphi sobre como manipular arquivos .doc, mas
não consegui baixar o artigo porque o link tava corrompido. Alguem tem
alguma apostila completa de como trabalhar com arquivos .doc pelo delphi?!?!

Desde já agradeço,

[]s

Vinicius

[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!. 



[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, 

Re: [delphi-br] Arquivos do word

2004-11-09 Por tôpico Aparecido Gasparoto

Já fiz com macro.
O usuário escolhe o modelo desejado, preenche um formulário que substitui os
dados de cabeçalho e rodapé e após o documento fica disponível na tela,
travado, com apenas alguns campos de formulário que podem ser preenchidos.
Mas sem o uso de delphi.
Não sei se é o que você precisa.
Minha solução não é boa. Estava procurando outra, tipo com o Delphi, mas
acabei desistindo.

Aparecido







- Original Message - 
From: Vinicius Mommensohn [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 4:01 PM
Subject: Re: [delphi-br] Arquivos do word



Na verdade, o que eu vou fazer é criar um arquivo no word (como se fosse um
modelo) e substituir alguamas palavras e depois mandar imprimir dar um
preview ou imprimir. Alguem já fez algo assim?!?!?

É que hoje eu faço com html, mas dah muito trabalho dimais montar todos as
telas padroes! :/

[]s

Vinicius


- Original Message - 
From: Aparecido Gasparoto
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 6:00 PM
Subject: Re: [delphi-br] Arquivos do word


Procurei artigos na internet mas não consegui encontrar quase nada.
Estava pretendendo gerar alguns arquivos automaticamente de acordo com a
escolha do usuário, mas acabei desistindo.
Abaixo segue o código fonte de um teste que estava fazendo.
Abraços.

Aparecido



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Word97, OleServer, StdCtrls, ComObj, ShellApi;


type
  TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var WordApplication, WordDocument, WordFont, WordParagraphFormat : Variant;
Texto :WideString;
begin

  if Edit1.Text  '' then
begin

  WordApplication := CreateOleObject('Word.Application') ;
  WordDocument := WordApplication.Documents.Add;

  WordApplication.Selection.Font.Bold:=1;

  if RadioButton1.Checked = True then
WordApplication.Selection.Font.Color:=clGreen
  else if RadioButton2.Checked = True then
WordApplication.Selection.Font.Color:=clRed
  else if RadioButton3.Checked = True then
WordApplication.Selection.Font.Color:=clBlue;

  if RadioButton4.Checked = True then
WordApplication.Selection.Font.Size:=10
  else if RadioButton5.Checked = True then
WordApplication.Selection.Font.Size:=12
  else if RadioButton6.Checked = True then
WordApplication.Selection.Font.Size:=14
  else if RadioButton7.Checked = True then
WordApplication.Selection.Font.Size:=16
  else if RadioButton8.Checked = True then
WordApplication.Selection.Font.Size:=18;

  WordApplication.Selection.ParagraphFormat.Alignment :=
wdAlignParagraphCenter;

  WordApplication.Selection.TypeText(Edit1.Text);

  WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles :=
False) ;

  WordApplication.Quit(True);

  ShellExecute(1,
   'OPEN',
   'winword.exe',
Pchar('c:\doc.doc'),
  'c:\Arquivos de Programas\Microsoft Office\',
  4);
end
  else
ShowMessage('Digite o texto');

end;

end.







- Original Message - 
From: Vinicius Mommensohn [EMAIL PROTECTED]
To: Delphi-br [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 3:44 PM
Subject: [delphi-br] Arquivos do word



Boa tarde pessoal,

Vi um artigo no site do clube delphi sobre como manipular arquivos .doc, mas
não consegui baixar o artigo porque o link tava corrompido. Alguem tem
alguma apostila completa de como trabalhar com arquivos .doc pelo delphi?!?!

Desde já agradeço,

[]s

Vinicius

[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






[delphi-br] outer join no firebird

2004-11-09 Por tôpico Rafael Jorge

estou utilizando IBO com Delphi7 e firebird 1.5 e toda vez que eu
utilizo outer join em algum SQL meu da um erro abaixo :

no current record for fetch operation

um exemplo de sql que da pau é:
SELECT f.*, p.codigo c_p, p.descricao, PF.PRECO
FROM produto_fornecedor pf, produto p right OUTER JOIN fORNECEDOR f
on f.codigo = pf.fornecedor AND p.codigo = pf.produto


-- 
 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 em instrução SQL

2004-11-09 Por tôpico Marcelo

Pessoal

Estou fazendo uma pesquisa simples, mas que está me dando um retorno de erro 
que não sei o porque.
Minha query é a seguinte:

   With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR='+#39+IntToSTr(IndBusca)+#39);
  Open;
   end;

onde
IndBusca é uma variável Integer e VEICULOCONTR tb é um campo Integer na tabela.

E qdo executo me dá a seguinte mensagem:
EOleException with message 'Tipo de dados incompatível na expressão critério'

Onde estou errando?
Uso Delphi5 + ADO + Access

Grato

Marcelo

[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] Erro em instrução SQL

2004-11-09 Por tôpico Nilson Chagas

tenta assim:
 
With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR);
  ParambyName('VEICULOCONTR').AsInteger := IndBusca;
  Open;
   end;

Além disso vc tava tentando colocar aspas para um campo que eh integer.
 
Valeu companheiro,


Marcelo [EMAIL PROTECTED] wrote:
Pessoal

Estou fazendo uma pesquisa simples, mas que está me dando um retorno de erro 
que não sei o porque.
Minha query é a seguinte:

   With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR='+#39+IntToSTr(IndBusca)+#39);
  Open;
   end;

onde
IndBusca é uma variável Integer e VEICULOCONTR tb é um campo Integer na tabela.

E qdo executo me dá a seguinte mensagem:
EOleException with message 'Tipo de dados incompatível na expressão critério'

Onde estou errando?
Uso Delphi5 + ADO + Access

Grato

Marcelo

[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:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite 
algo.);  return false; }else {  document.form_combo.action 
=http://br.rd.yahoo.com/SIG=12aaoikih/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1100116593/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
 } return true;} [input]   [input]   [input]  

-
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 Termos do Serviço do 
Yahoo!. 



NILSON CHAGAS


-
Mateus 16v26   
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou o 
que o homem poderá dar em troca de sua alma?

-
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

 





[delphi-br] Salvar Colunas do DBGRID

2004-11-09 Por tôpico Nilson Chagas

Alguém poderia me dizer se isto funciona:
Tenho um campo BLOB, gostaria de salvar as informações das colunas do DBGRID 
neste campo. Como faço isto??? pensei em usar o recurso savetofile e depois 
loadtofile, mas acho q tem uma maneira de salvar direto sem ter q fazer isto, 
correto???
Alguém poderia me ajudar???


NILSON CHAGAS


-
Mateus 16v26   
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou o 
que o homem poderá dar em troca de sua alma?

-
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

 





[delphi-br] Query simples, mas nem tanto.

2004-11-09 Por tôpico Marcelo

Pessoal
Tenho 2 tabelas, PEDIDOS e ITENSPED sendo (simplificadamente):
PEDIDOS
CodPed Integer

ITENSPED
CodPed Integer
Qtd   Real
PrecoReal

Como ficaria minha Query para que eu pudesse imprimir o pedido, que ficasse 
assim:
PEDIDO: X

QTDPRECO  TOTAL
  5  12,0060,00
  2  20,0040,00
--
  TOTAL PEDIDO:  100,00

Sou bem novato nisso, e fiz algumas tentativas mas gerou um monte de erros.
Uso Delphi5 + ADO + Access

Qualquer ajuda será muito bem vinda.

Grato
Marcelo



[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] Erro em instrução SQL

2004-11-09 Por tôpico Nilson Chagas

Esqueci de colocar aspa no final da sentença, olha o coreto ai:
With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR');
  ParambyName('VEICULOCONTR').AsInteger := IndBusca;
  Open;
   end;


Nilson Chagas [EMAIL PROTECTED] wrote:
tenta assim:

With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR);
  ParambyName('VEICULOCONTR').AsInteger := IndBusca;
  Open;
   end;

Além disso vc tava tentando colocar aspas para um campo que eh integer.

Valeu companheiro,


Marcelo [EMAIL PROTECTED] wrote:
Pessoal

Estou fazendo uma pesquisa simples, mas que está me dando um retorno de erro 
que não sei o porque.
Minha query é a seguinte:

   With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR='+#39+IntToSTr(IndBusca)+#39);
  Open;
   end;

onde
IndBusca é uma variável Integer e VEICULOCONTR tb é um campo Integer na tabela.

E qdo executo me dá a seguinte mensagem:
EOleException with message 'Tipo de dados incompatível na expressão critério'

Onde estou errando?
Uso Delphi5 + ADO + Access

Grato

Marcelo

[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:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite 
algo.);  return false; }else {  document.form_combo.action 
=http://br.rd.yahoo.com/SIG=12aaoikih/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1100116593/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
 } return true;} [input]   [input]   [input]  

-
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 Termos do Serviço do 
Yahoo!. 



NILSON CHAGAS


-
Mateus 16v26   
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou o 
que o homem poderá dar em troca de sua alma?

-
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:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite 
algo.);  return false; }else {  document.form_combo.action 
=http://br.rd.yahoo.com/SIG=12aau7bl6/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1100116875/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
 } return true;} [input]   [input]   [input]  

-
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 Termos do Serviço do 
Yahoo!. 



NILSON CHAGAS


-
Mateus 16v26   
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou o 
que o homem poderá dar em troca de sua alma?

-
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] Erro em instrução SQL

2004-11-09 Por tôpico Marcelo

Na compilação deu erro:
[Error] RelVeiculos.pas(1446): Undeclared identifier: 'ParambyName'

E fiz como disse.
Qual será o problema?

- Original Message - 
From: Nilson Chagas [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 5:08 PM
Subject: Re: [delphi-br] Erro em instrução SQL



Esqueci de colocar aspa no final da sentença, olha o coreto ai:
With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR');
  ParambyName('VEICULOCONTR').AsInteger := IndBusca;
  Open;
   end;


Nilson Chagas [EMAIL PROTECTED] wrote:
tenta assim:

With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR);
  ParambyName('VEICULOCONTR').AsInteger := IndBusca;
  Open;
   end;

Além disso vc tava tentando colocar aspas para um campo que eh integer.

Valeu companheiro,


Marcelo [EMAIL PROTECTED] wrote:
Pessoal

Estou fazendo uma pesquisa simples, mas que está me dando um retorno de erro 
que não sei o porque.
Minha query é a seguinte:

   With QryPagar do
   begin
  Close;
  SQL.Clear;
  SQL.Add ('Select * FROM PAGAR');
  SQL.Add ('WHERE VEICULOCONTR='+#39+IntToSTr(IndBusca)+#39);
  Open;
   end;

onde
IndBusca é uma variável Integer e VEICULOCONTR tb é um campo Integer na 
tabela.

E qdo executo me dá a seguinte mensagem:
EOleException with message 'Tipo de dados incompatível na expressão 
critério'

Onde estou errando?
Uso Delphi5 + ADO + Access

Grato

Marcelo

[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:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite 
algo.);  return false; }else {  document.form_combo.action 
=http://br.rd.yahoo.com/SIG=12aaoikih/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1100116593/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
 
 } return true;} [input]   [input]   [input]

-
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 Termos do Serviço do 
Yahoo!.



NILSON CHAGAS


-
Mateus 16v26
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou 
o que o homem poderá dar em troca de sua alma?

-
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:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite 
algo.);  return false; }else {  document.form_combo.action 
=http://br.rd.yahoo.com/SIG=12aau7bl6/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1100116875/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
 
 } return true;} [input]   [input]   [input]

-
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 Termos do Serviço do 
Yahoo!.



NILSON CHAGAS


-
Mateus 16v26
Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma? Ou 
o que o homem poderá dar em troca de sua alma?

-
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











-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 

Re: [delphi-br] Erro em instrução SQL

2004-11-09 Por tôpico Alexandre Oliveira

Olá,

Já esperimentou tirar o #39 ?

Alexandre Oliveira

- Original Message -
From: Marcelo [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 6:14 PM
Subject: Re: [delphi-br] Erro em instrução SQL



 Na compilação deu erro:
 [Error] RelVeiculos.pas(1446): Undeclared identifier: 'ParambyName'

 E fiz como disse.
 Qual será o problema?

 - Original Message -
 From: Nilson Chagas [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Tuesday, November 09, 2004 5:08 PM
 Subject: Re: [delphi-br] Erro em instrução SQL



 Esqueci de colocar aspa no final da sentença, olha o coreto ai:
 With QryPagar do
begin
   Close;
   SQL.Clear;
   SQL.Add ('Select * FROM PAGAR');
   SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR');
   ParambyName('VEICULOCONTR').AsInteger := IndBusca;
   Open;
end;


 Nilson Chagas [EMAIL PROTECTED] wrote:
 tenta assim:

 With QryPagar do
begin
   Close;
   SQL.Clear;
   SQL.Add ('Select * FROM PAGAR');
   SQL.Add ('WHERE VEICULOCONTR=:VEICULOCONTR);
   ParambyName('VEICULOCONTR').AsInteger := IndBusca;
   Open;
end;

 Além disso vc tava tentando colocar aspas para um campo que eh integer.

 Valeu companheiro,


 Marcelo [EMAIL PROTECTED] wrote:
 Pessoal

 Estou fazendo uma pesquisa simples, mas que está me dando um retorno de
erro
 que não sei o porque.
 Minha query é a seguinte:

With QryPagar do
begin
   Close;
   SQL.Clear;
   SQL.Add ('Select * FROM PAGAR');
   SQL.Add ('WHERE VEICULOCONTR='+#39+IntToSTr(IndBusca)+#39);
   Open;
end;

 onde
 IndBusca é uma variável Integer e VEICULOCONTR tb é um campo Integer na
 tabela.

 E qdo executo me dá a seguinte mensagem:
 EOleException with message 'Tipo de dados incompatível na expressão
 critério'

 Onde estou errando?
 Uso Delphi5 + ADO + Access

 Grato

 Marcelo

 [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:



















function SearchComboBox() { if
 (document.form_combo.keyword.value.length==0){  alert(Por favor, digite
 algo.);  return false; }else {  document.form_combo.action

=http://br.rd.yahoo.com/SIG=12aaoikih/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1100116593/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;
  } return true;} [input]   [input]   [input]

 -
 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 Termos do Serviço
do
 Yahoo!.



 NILSON CHAGAS


 -
 Mateus 16v26
 Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma?
Ou
 o que o homem poderá dar em troca de sua alma?

 -
 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:



















function SearchComboBox() { if
 (document.form_combo.keyword.value.length==0){  alert(Por favor, digite
 algo.);  return false; }else {  document.form_combo.action

=http://br.rd.yahoo.com/SIG=12aau7bl6/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1100116875/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;
  } return true;} [input]   [input]   [input]

 -
 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 Termos do Serviço
do
 Yahoo!.



 NILSON CHAGAS


 -
 Mateus 16v26
 Pois que adiantará ao homem ganhar o mundo inteiro e perder a sua alma?
Ou
 o que o homem poderá dar em troca de sua alma?

 -
 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 

Re: [delphi-br] Resumo 5183

2004-11-09 Por tôpico vndiudi

Boa Tarde a Todos.

Ao amigo Oseias sobre o sql.
Eu utilizo aqui na empresa o SQL da microsoft.(msql).
No delphi há possibilidade de voce fazer uma chamada interna ao sql
e tambem uma chamada via store procedure.
Ex. Digamos que eu preciso fazer uma pesquisa em um cadastro de Clientes

Usando chamada de query
SQLSA1.sql.add('select * from CLIENTE where CODCLI= '''
+ EdCliente.text + ''' AND LOJA = '''
+ EDLOJA.TEXT +''' ');

Caso voce queira fazer uma chamada via store procedure então esta store deve
ficar no banco de dados.
e para chamar esta store ficaria mais ou menos assim

Voce deve usar a stor procedure da aba.
  StoredProc1.ParamByName('@P_TIPOROT').AsString := '3';
  StoredProc1.ParamByName('@P_CLIENTE').AsString :=
FrmCliente.DbCodCli.Text;
  StoredProc1.ParamByName('@P_LOJA').AsString:= FrmCliente.DbLoja.Text;
  StoredProc1.ParamByName('@P_DTINI').AsString   := mdata1;
  StoredProc1.ParamByName('@P_DTFIM').AsString   := mdata2;
(este parametros acima voce pode passar e receber conteudo nos campos.
  tiporot eu passo o valor 3 onde na minha store existe um desvio. passo o
cod
do cliente para a pesquisa a loja e etc;


  StoredProc1.Close;
  StoredProc1.Prepare;
  StoredProc1.ExecProc;
  StoredProc1.UnPrepare;
  StoredProc1.Close;

e para receber  FrmDuplicatas.LbDupa.cAPTION :=
StoredProc1.ParamByName('@P_VLRDUPA').VALUE; que um campo
declarado na store procedure no sql e na store do delphi.
è um pouco enrolado, e somente vamos falar a mesma lingua se estivermos
usando o MSSQL.
Se voce puder adquirir um livro sobre SQL + delphi pois foi lá que eu
consegui tirar algumas duvidas.
Eu tenho a certeza que não ajudei muito mas pelo menos tentei.

Resposta ao amigo delphi6_2005
Eu não vejo nada em contrario ao uso de uma tabela temporaria.
Mas pelo que entendi pelo seu exemplo e nesse caso eu a usuaria com muito
mas muito cuidado. No exemplo dos caixas de um supermecado voce estaria
colocando esta tabela temporaria em memoria nos equipamentos do caixa. Claro
 que
a velocidade de acesso ficaria sensacional. Mas se voce tivesse que incluir
um novo
produto ou uma nova tabela de precos todos os caixas deveriam fazer uma
atualização
destas tabelas. É um assunto de muitas discussões. E o uso da tabela
temporaria vai de
como voce pretende que o sistema opere.
Se o sistema for um real time esquece as tabelas se o sistema não necessita
de uma
atualização constante (replicação dos dados) então manda bala.

Didi - Eterno aprendiz.



-- 
 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] Descompilador Delphi: O fim da novela!

2004-11-09 Por tôpico Rubem Rocha

http://delphi.about.com/library/weekly/aa121200a.htm

[]s
Rubem Nascimento da Rocha
Programador Pleno
Fundação Desembargador Paulo Feitosa
http://www.fpf.br - [EMAIL PROTECTED]
+55-92-614-9797, ramal 9875


-- 
 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] Visualizador de Imagem

2004-11-09 Por tôpico Marcos Jordão

Olá amigos,
Estou fazendo um Visualizador de Imagens
Essa imagens são fixas e não em diretórios, então coloquei 15 componentes 
TImage no Form com suas respectivas imagens.
Quando clico em um deles abro um segundo Form com 1 componente TImage que 
recebe a propriedade Picture do TImage clicado no form alterior.
Até aí tudo bem, o que eu quero agora é fazer com que ao ser precionada a tecla 
Enter pule para a próxima imagem.
Capturar o precionamento eu sei através do OnKeyDown mas e para saber qual é o 
próximo componente TImage que a Picture será exibida?

Tentei fazer um array com todos TImage guardando sua Ordem, mas não dá pra 
declarar um array de TImage ou TObject

Alguém tem uma solução pro meu problema?

Abraços


Marcos Jordão

[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

 





RES: [delphi-br] Exemplos de telas mais modernas de programas

2004-11-09 Por tôpico Walter Alves Chagas Junior

na seção de arquivos da lista, voce procure na pasta Apostilas Tá dentro
dela


[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



-Mensagem original-
De: Sávio Cler [mailto:[EMAIL PROTECTED] 
Enviada em: domingo, 7 de novembro de 2004 20:12
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Exemplos de telas mais modernas de programas


Walter, tem como mandar o link desta apostila, não localizei. Valeu.


  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: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Sunday, November 07, 2004 3:46 PM
Subject: RES: [delphi-br] Exemplos de telas mais modernas de programas


Paulo,

Não é bem assim que a banda toca não. Esse negócio de telas mais modernas
de programas pode ser o primeira causa de rejeição total por parte do
usuário ao seu produto. Eu lhe recomendo que você vá até a seção de arquivos
da lista e baixe as apostilas sobre interface Homem-Maquina e a OGUID que
estão no diretório apostilas

Estas apostilas mostram como desenvolver telas que tenham o máximo de
interatividade com o usuário final sem que ele sinta algum tipo de
dificuldade em usar seu sistema.

Dá uma estudada nisto.



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



 -Mensagem original-
 De: Paulo Sérgio Dias [mailto:[EMAIL PROTECTED] Enviada em: 
 sábado, 6 de novembro de 2004 15:25
 Para: [EMAIL PROTECTED]
 Assunto: [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










[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:









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




 




[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