Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Marcelo Moacir Florindo
Você está equivocado...Podemos fazer tal ação, em cima de TClientDataSet
(tabela temporaria) eu uso isto direto.

Marcelo
- Original Message -
From: Eduardo RC Neto [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, September 23, 2004 6:02 PM
Subject: Res: [delphi-br] Re: Edit ou DBEdit


O uso do TDBEdit ou outro componente Data Ware, facilita muito a programação

Só tem um problema com ele:
Quando vc entra na tela que tem esse TDBEdit, vc terá que abrir a tabela a
qual esse
TDBEdit está ligado.
Agora imagine um sistema, rodando Clinet/Server, uma central de atendimento,
por exemplo.
300 usuários trabalhando o dia inteiro, na mesma tela, com 300 conexões
simuntâneas
com o banco de dados!!!

Se vc usar o TEdit, irá somente fazer a conexão quando der o INSERT, UPDATE
ou DELETE, sem
precisar da tabela ficar aberta o tempo todo, acarretando trafego
desnecessário na rede, etc...


Abraços,

Eduardo RC Neto
Desenvolvimento de Sistemas
--
Archive ISP - Rio de Janeiro - RJ
(21) 2567-1842  ramal:119
[EMAIL PROTECTED]
www.archive.com.br


---Mensagem original---

De: [EMAIL PROTECTED]
Data: 09/23/04 10:32:19
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Re: Edit ou DBEdit

Olá,

Eu uso os dois mas prefiro o DBEdit pois facilita muito o meu
trabalho.
Todos os dois são bons. Vê qual irá facilitar p/ vc.

Abraços,

Cristiano do Amaral Oliveira.
BAMPETRO/ON - Tecnologia da Informação
Site: http://www.bampetro.org

--- Em [EMAIL PROTECTED], Marcelo Silva [EMAIL PROTECTED]
escreveu
 Os componentes estão aí para facilitar nossa vida ... o DBEdit
ajuda muito por você não precisar fazer um Insert não mão.
 Faça um exemplo e compare é a melhor coisa.
 Se colocar um DBEdit e utilizar o componente Actions você vai
economizar trocentas linhas de código e seu fonte poderá ficar menor.
 Mas é claro que é opção de cada um...

 Eu utilizo IBDataSet (que já faz todo o Insert, Update, Delete,
Refresh atravéz do Select), junto com o DataSource e os DBEdits

 Nunca precisei fazer um Insert na mão... (somente Selects
personalizados para relatório, mesmo assim quando posso eu uso o
IBQuery)

 Marcelo Silva
 Cel. 11 9693-4251
 ICQ - 49224093
 MSN [EMAIL PROTECTED]
   - Original Message -
   From: Cícerot
   To: [EMAIL PROTECTED]
   Sent: Thursday, September 23, 2004 9:40 AM
   Subject: RES: [delphi-br] Edit ou DBEdit


   Eu sempre prefiro fazer tudo na mão (tedit). Me sinto mais
seguro. Quanto
   tenho que mostrar o registro mando para tedit, se quero salvar
busco no
   tedit e assim vai.

   -Mensagem original-
   De: Leonardo Moraes [mailto:[EMAIL PROTECTED]
   Enviada em: quinta-feira, 23 de setembro de 2004 08:58
   Para: [EMAIL PROTECTED]
   Assunto: [delphi-br] Edit ou DBEdit



   Pessoal,

   Qual a melhor opção a ser utilizada?

   Usar um Edit e fazer a operacao de incluir via SQL
   INSERT ou usar DBEdit e fazer a operacao via POST?

   Obrigado,
   Leonardo.





   ___
   Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão.
Instale
   agora!
   http://br.download.yahoo.com/messenger/


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



 Yahoo! Grupos, um serviço oferecido por:



 
--
   Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/

 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]

 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:




Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:

Re: [delphi-br] index is ready only

2004-09-24 Por tôpico Lucas Lombardi
  Realmente Sai do Paradox cara, vc apanha um pouco se vc nao sabe mexer com banco do 
Tipo SQL Server ou Interbase para aprender, mas as cabeçadas são por pouco tempo as 
dores de cabeça do paradox sao constantes...
  Tambem estou aprendendo FireBird pelo menos ate agora nao tive nenhum problema com 
ele..

  Um Abraço
  - Original Message - 
  From: Sil-jo Evsan 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, September 23, 2004 9:00 AM
  Subject: Re: [delphi-br] index is ready only


  Não sei como esta o teu tempo para fazer isto... mas te aconselho o 
  seguinte... vai para um banco de dados Firebird/Interbase ou 
  SQLServer sai do paradox... tu vai ver que tem muito coisa q tu faz 
  no braço que o banco faz para vc brincando... depois q eu sai do paradox 
  muitos problemas foram resolvidos rapidamente... tu vai ter que dar umas 
  cabeçadas mas vão ser bem mais leves do que as do Paradox !

  Marcio Carneiro wrote:

  É o Paradox, que já está enchendo a minha paciência.
  Já deletei fisicamente os arquivos de índices,  já recriei novamente, já dei um
  pack no arquivo, já utilizei um reparador de tabelas.
  O problema é que nada acontece, continua dando o erro :INDEX IS READY ONLY.
  Onde estou errando: criei a tabela, criei o índice, estabeleci a relação 
mestre-detalhe, e continua dando erro.
  Se não conseguir, vou abandonar o mestre-detalhe, e fazer de outra forma. 
  Sou analista de sistemas e faço algoritmos de qualidade, já programei muito em 
Clipper, e este é o meu primeiro programa em Delphi, e este acesso às tabelas
  está me dando muito dor de cabeça, e o que é pior, não existe livro ou apostila que 
trate destas minúncias, somente a experiência, que não tenho, é que é possível dar 
respostas a estes problemas. O problema é que nesta lista, todos estão muito 
avançados, e eu como iniciante, tenho dificuldades em perguntar, pois vocês estão no 
firebird/interbase e estou ainda atrelado no Piradox. Um simples problema me
  tranca todo o desenvolvimento do sistema.
  Um grande abraço
  Marcio  
- Original Message - 
From: Coutinho - Pessoais 
To: [EMAIL PROTECTED] 
Sent: Tuesday, September 21, 2004 10:29 AM
Subject: Re: [delphi-br] index is ready only
  
  
Qual o banco de dados que stá usando?
É Paradox? Se for pode ser um problema na tabela, aí deve rodar um 
aplicativo para corrigir os indices, etc...
  
Só que você falou antes em Contas a Receber, depois falou em contas  a 
pagar
  
Veja se não há nenhum arquivo de indice que tenha seu atributo 
alterado... isso está estranho!!!
  
  
Sds
Emanuel Couitnho  
  
Marcio Carneiro wrote:
  
 A tabela-filha tem as contas a receber da tabela-pai(cliente). 
 Portanto estou deletando apenas as contas(filha) que o cliente(pai) já 
 pagou, que permanece ativo no banco de dados. O erro ocorre quando 
 estou dando um laço para deletar todas as contas que aquele cliente 
 tem no contas a pagar.
 Um grande abraço
 Marcio
   - Original Message -
   From: Coutinho - Pessoais
   To: [EMAIL PROTECTED]
   Sent: Monday, September 20, 2004 8:46 AM
   Subject: Re: [delphi-br] index is ready only


   Colega... a maneira como colocou sua pergunda é um tanto vaga... Há
   entretanto cuidados a serem tomados quando eliminando um registro que
   faz parte de uma relação Master-Detail.

   ao eliminar um registro na Master, no evento before delete, crie um 
 laço
   e elimine primeiramente os registros da tabela filha(detail), as tenha
   em mente de que ela não é master para uma outra tabela, como numa
   relação master-detail-detail, como a miúde ocorre.

   Veja se não está acontecendo alguma coisa parecida!!!


   Espero ter ajudado!

   Sds,
   Emanuel Coutinho




   Marcio Carneiro wrote:

Olá amigos,
   
Estou deletando um item da tabela-filho, e está dando este erro. Onde
estou errando? Quais são as regras para deleção em relação pai-filho?
Muito obrigado
Marcio
   
   
http://www.emailprotegido.terra.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:
  


 --
   Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 

Re: [delphi-br] index is ready only

2004-09-24 Por tôpico Sávio Cler
Marcio, uso Firebirb e Piradox, como vocês dizem. Uso o último ai a anos em
um sistema completo (compra + venda + comissão + filiais (até 99 lojas) +
ECF), diversos clientes, tabelas com + de 20MB e sinceramente, roda que uma
beleza (em rede). Quer mudar, mude, mas saiba os motivos.

É muito fácil culpar o banco de dados, assim como o usuário, o computador, o
padre, etc., mas soluções reais, só correndo atrás mesmo. Conheço programas
incríveis em Clipper, a culpa é do mouse?

Não posso ajudar no seu problema, pois não uso mestre-detalhe, sempre faço
na mão, acho mais robusto. Qq coisa pvt-me.

Abraço.


  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: Lucas Lombardi [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, September 24, 2004 12:53 AM
Subject: Re: [delphi-br] index is ready only


  Realmente Sai do Paradox cara, vc apanha um pouco se vc nao sabe mexer com
banco do Tipo SQL Server ou Interbase para aprender, mas as cabeçadas são
por pouco tempo as dores de cabeça do paradox sao constantes...
  Tambem estou aprendendo FireBird pelo menos ate agora nao tive nenhum
problema com ele..

  Um Abraço
  - Original Message -
  From: Sil-jo Evsan
  To: [EMAIL PROTECTED]
  Sent: Thursday, September 23, 2004 9:00 AM
  Subject: Re: [delphi-br] index is ready only


  Não sei como esta o teu tempo para fazer isto... mas te aconselho o
  seguinte... vai para um banco de dados Firebird/Interbase ou
  SQLServer sai do paradox... tu vai ver que tem muito coisa q tu faz
  no braço que o banco faz para vc brincando... depois q eu sai do paradox
  muitos problemas foram resolvidos rapidamente... tu vai ter que dar umas
  cabeçadas mas vão ser bem mais leves do que as do Paradox !

  Marcio Carneiro wrote:

  É o Paradox, que já está enchendo a minha paciência.
  Já deletei fisicamente os arquivos de índices,  já recriei novamente, já
dei um
  pack no arquivo, já utilizei um reparador de tabelas.
  O problema é que nada acontece, continua dando o erro :INDEX IS READY
ONLY.
  Onde estou errando: criei a tabela, criei o índice, estabeleci a relação
mestre-detalhe, e continua dando erro.
  Se não conseguir, vou abandonar o mestre-detalhe, e fazer de outra forma.
  Sou analista de sistemas e faço algoritmos de qualidade, já programei
muito em Clipper, e este é o meu primeiro programa em Delphi, e este acesso
às tabelas
  está me dando muito dor de cabeça, e o que é pior, não existe livro ou
apostila que trate destas minúncias, somente a experiência, que não tenho, é
que é possível dar respostas a estes problemas. O problema é que nesta
lista, todos estão muito avançados, e eu como iniciante, tenho dificuldades
em perguntar, pois vocês estão no firebird/interbase e estou ainda atrelado
no Piradox. Um simples problema me
  tranca todo o desenvolvimento do sistema.
  Um grande abraço
  Marcio
- Original Message -
From: Coutinho - Pessoais
To: [EMAIL PROTECTED]
Sent: Tuesday, September 21, 2004 10:29 AM
Subject: Re: [delphi-br] index is ready only
  
  
Qual o banco de dados que stá usando?
É Paradox? Se for pode ser um problema na tabela, aí deve rodar um
aplicativo para corrigir os indices, etc...
  
Só que você falou antes em Contas a Receber, depois falou em contas  a
pagar
  
Veja se não há nenhum arquivo de indice que tenha seu atributo
alterado... isso está estranho!!!
  
  
Sds
Emanuel Couitnho
  
Marcio Carneiro wrote:
  
 A tabela-filha tem as contas a receber da tabela-pai(cliente).
 Portanto estou deletando apenas as contas(filha) que o cliente(pai)
já
 pagou, que permanece ativo no banco de dados. O erro ocorre quando
 estou dando um laço para deletar todas as contas que aquele cliente
 tem no contas a pagar.
 Um grande abraço
 Marcio
   - Original Message -
   From: Coutinho - Pessoais
   To: [EMAIL PROTECTED]
   Sent: Monday, September 20, 2004 8:46 AM
   Subject: Re: [delphi-br] index is ready only


   Colega... a maneira como colocou sua pergunda é um tanto vaga... Há
   entretanto cuidados a serem tomados quando eliminando um registro
que
   faz parte de uma relação Master-Detail.

   ao eliminar um registro na Master, no evento before delete, crie um
 laço
   e elimine primeiramente os registros da tabela filha(detail), as
tenha
   em mente de que ela não é master para uma outra tabela, como numa
   relação master-detail-detail, como a miúde ocorre.

   Veja se não está acontecendo alguma coisa parecida!!!


   Espero ter ajudado!

   Sds,
   Emanuel Coutinho
 

[delphi-br] [Off] Declared cursor already exists

2004-09-24 Por tôpico Elazar Dornelles Ceza
Ola pessoal; 


Desde uns dias atráz coloquei um procedimento para salvar as excecoes em um arquivo, e 
em todos os clientes desde a atualizacao achei o erro a seguir esta abusandonun 
unico dia em um cliente ele ocorreu 124 vezes pode?

e o pior de tudo e que aqui na firma nao to conseguindo reproduzir ou mesmo saber como 
ele esta acontecendo
 
Dynamic SQL Error
SQL error code = -502
Declared cursor already exists

alguem ja passou por esta situacao e gostaria de compartilhar, ou me indicar um 
material que fale sobre? 

Joe.


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



Re: [delphi-br] Re: Diferencas entre arquivos de texto do MS-DOS e Windows...

2004-09-24 Por tôpico Eduardo Jedliczka
Bom, um á no windows tem um código asc diferente de um á no MS-DOS...

Se você tiver uma linguagem para DOS (eu esqueci de escrever esta palavrinha mágica no 
e-mail anterior) poderá digitar um pequeno texto contendo todos os acentos em DOS e 
mostrar seus respectivos códigos ASC)

Pode-se fazer a mesma coisa numa linguagem para windows e aí sim, terá as duas 
tabelas... 

[s].

=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
  - Original Message - 
  From: Ronaldo Assis Alves 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, September 23, 2004 8:44 PM
  Subject: [delphi-br] Re: Diferencas entre arquivos de texto do MS-DOS e Windows...


  Beleza, mas eu vou substituir os caracteres ç ã õ é í ó pelo que no 
  stringreplace? preciso continuar com acentos, e que eles sejam 
  exibidos no MS-DOS corretamente...

  --- Em [EMAIL PROTECTED], Eduardo Jedliczka 
  [EMAIL PROTECTED] escreveu
   a página de código (não sei se você lembra do Keyb e do Mode 
  com) são diferentes...
   
   como os seus valores em ASC II são fixos, você pode fazer uma 
  tabelinha (vetor) de conversão entre eles (como por exempo o caso do 
  wordpad, que pode gravar em TXT modo Windows ou MS-DOS), e usar um 
  stringreplace para fazer o serviço...
   
   Se você programar em qualquer linguagem poderá facilmente gerar uma 
  tabela asc.
   
   qquer coisa entre em contato PVT.
   
   [s]
   
   =
   Eduardo Jedliczka
   GeraSoft Informática
   Apucarana - PR
   =
   
 - Original Message - 
 From: Ronaldo Assis Alves 
 To: [EMAIL PROTECTED] 
 Sent: Wednesday, September 22, 2004 9:52 PM
 Subject: [delphi-br] Diferencas entre arquivos de texto do MS-DOS 
  e Windows...
   
   
 Olá, pessoal.
   
 Está acontecendo o seguinte, estou precisando gravar pelo delphi, 
 alguns arquivos de texto que serão interpretados por programas no 
  MS-
 DOS (como o edit por exemplo). O problema é que quando gravo com 
  o 
 assginfile(var,file) e tento acessar no MS-DOS, alguns acentos 
  ficam 
 desconfigurados. O formato Texto do MS-DOS e Somente texto 
  são 
 diferentes. Veja o exemplo.
   
 Exemplos:
   
 (Arquivo gerado)
 Você
 Maçã
 João
 José
 Maíra
 Lúcia
   
 fica assim:
   
 (no ms-dos)
 Exemplos
 VocÛ
 MaþÒ
 JoÒo
 JosÚ
 MaÝra
 L·cia
   
 Como gravar pelo delphi o formato de arquivo que o ms-dos lê sem 
 erros?
   
   
   
   
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
   
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
   
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
   
   
   
   Yahoo! Grupos, um serviço oferecido por: 
 
   
   
   
  --
 Links do Yahoo! Grupos
   
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
 
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
 
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos 
  do Serviço do Yahoo!. 
   
   
   
   [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


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

 



[delphi-br] Problema com Quick Report ... ainda!!

2004-09-24 Por tôpico datorre - ig
Por favor…

 

Já postei esta dúvida, mas só o que consegui saber que mais gente também
está com esse problema. Mas e a solução??

Se alguém passou por isso por favor, dá uma luz porque estou quase
desesperado com isso.

 

Acontece o seguinte.

 

Tenho uma query com alguns dados provenientes de uma consulta.

 

Bem, no relatório, o modelo trás uma imagem (logo da empresa), e podem ser
impressos até 3 recibos por folha no quick report.

 

Acontece o seguinte, quando mando imprimir (qreport1.print) algumas folhas
(aleatoriamente)  simplesmente não saem com a imagem do logo, mas na
visualização (preview) sai tudo certinho, inclusive se mandar imprimir só
esta folha sai totalmente normal

 

Estou quase loco aqui e não consigo achar o problema, uso delphi 7.

 

Alguém sabe como posso resolver isso

 

 

Obrigado



Fernando Datorre

Gerente de STI -  mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]

 

 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



RES: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Rubem Rocha
Boa Florindo. Mandou bem!
[]s

-Mensagem original-
De: Marcelo Moacir Florindo [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 24 de setembro de 2004 06:31
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Re: Edit ou DBEdit


Você está equivocado...Podemos fazer tal ação, em cima de TClientDataSet (tabela 
temporaria) eu uso isto direto.

Marcelo
- Original Message -
From: Eduardo RC Neto [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, September 23, 2004 6:02 PM
Subject: Res: [delphi-br] Re: Edit ou DBEdit


O uso do TDBEdit ou outro componente Data Ware, facilita muito a programação

Só tem um problema com ele:
Quando vc entra na tela que tem esse TDBEdit, vc terá que abrir a tabela a qual esse 
TDBEdit está ligado. Agora imagine um sistema, rodando Clinet/Server, uma central de 
atendimento, por exemplo. 300 usuários trabalhando o dia inteiro, na mesma tela, com 
300 conexões simuntâneas com o banco de dados!!!

Se vc usar o TEdit, irá somente fazer a conexão quando der o INSERT, UPDATE ou DELETE, 
sem precisar da tabela ficar aberta o tempo todo, acarretando trafego desnecessário na 
rede, etc...


Abraços,

Eduardo RC Neto
Desenvolvimento de Sistemas
--
Archive ISP - Rio de Janeiro - RJ
(21) 2567-1842  ramal:119
[EMAIL PROTECTED]
www.archive.com.br


---Mensagem original---

De: [EMAIL PROTECTED]
Data: 09/23/04 10:32:19
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Re: Edit ou DBEdit

Olá,

Eu uso os dois mas prefiro o DBEdit pois facilita muito o meu trabalho. Todos os dois 
são bons. Vê qual irá facilitar p/ vc.

Abraços,

Cristiano do Amaral Oliveira.
BAMPETRO/ON - Tecnologia da Informação
Site: http://www.bampetro.org

--- Em [EMAIL PROTECTED], Marcelo Silva [EMAIL PROTECTED] escreveu
 Os componentes estão aí para facilitar nossa vida ... o DBEdit
ajuda muito por você não precisar fazer um Insert não mão.
 Faça um exemplo e compare é a melhor coisa.
 Se colocar um DBEdit e utilizar o componente Actions você vai
economizar trocentas linhas de código e seu fonte poderá ficar menor.
 Mas é claro que é opção de cada um...

 Eu utilizo IBDataSet (que já faz todo o Insert, Update, Delete,
Refresh atravéz do Select), junto com o DataSource e os DBEdits

 Nunca precisei fazer um Insert na mão... (somente Selects
personalizados para relatório, mesmo assim quando posso eu uso o
IBQuery)

 Marcelo Silva
 Cel. 11 9693-4251
 ICQ - 49224093
 MSN [EMAIL PROTECTED]
   - Original Message -
   From: Cícerot
   To: [EMAIL PROTECTED]
   Sent: Thursday, September 23, 2004 9:40 AM
   Subject: RES: [delphi-br] Edit ou DBEdit


   Eu sempre prefiro fazer tudo na mão (tedit). Me sinto mais
seguro. Quanto
   tenho que mostrar o registro mando para tedit, se quero salvar
busco no
   tedit e assim vai.

   -Mensagem original-
   De: Leonardo Moraes [mailto:[EMAIL PROTECTED]
   Enviada em: quinta-feira, 23 de setembro de 2004 08:58
   Para: [EMAIL PROTECTED]
   Assunto: [delphi-br] Edit ou DBEdit



   Pessoal,

   Qual a melhor opção a ser utilizada?

   Usar um Edit e fazer a operacao de incluir via SQL
   INSERT ou usar DBEdit e fazer a operacao via POST?

   Obrigado,
   Leonardo.





   ___
   Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão.
Instale
   agora!
   http://br.download.yahoo.com/messenger/


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



 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 

Re: [delphi-br] Código de Barras

2004-09-24 Por tôpico Walter Chagas \(Desenvolvimento\)
Isso varia muito. No segmento supermercadista (tanto atacado como varejo), 
usa-se o EAN13. Agora no comércio geral, dos mais popularmente usados são o 
Code39 e o 2 de 5.



[]s


Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
CABTEC - Soluções em Código de Barras
Belo Horizonte - MG
Fone: (31) 2125-9019 - Fax: (31) 2125-9030
http://www.cabtec.com.br
[EMAIL PROTECTED]


- Original Message - 
From: Otavio Gasparovic do Nascimento [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, September 24, 2004 10:42 AM
Subject: [delphi-br] Código de Barras



 Pessoal,

 Alguem sabe informar que tipo de codigo de barras é utilizado no comercio 
 em
 geral
 tipo EAN13 COD39,etc


 desde já agradeç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








 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Willian Jerônymo - Yahoo
Programando dessa maneiro (sem componentes Data Ware) como faço com os meus 
DBLookupComboBoxs ?

Esse componente é uma mãe em nossas aplicações...

Alguém tem alguma dica ?


Willian

[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] Convertendo BDE para ADO

2004-09-24 Por tôpico Rosilene Domingues Laurente
Olá !!!

Estou com o seguinte problema !!!

Tenho um aplicação rodando com BDE e utilizando params na instrução SQL. Agora estou 
migrando a mesma para ADO e percebi que qdo tento declarar mas que 9 parametros no 
UPDATE recebo a seguinte mensagem de erro Invalid precision value.

Alguém pode me ajudar ?

Rose
  --

Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.271 / Banco de dados de Vírus: 264.9.5 – Data de Lançamento: 22/09/2004


[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] Código de Barras

2004-09-24 Por tôpico Otavio Gasparovic do Nascimento
Grato Walter.
  -Mensagem original-
  De: Walter Chagas (Desenvolvimento) [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 24 de setembro de 2004 10:47
  Para: [EMAIL PROTECTED]
  Assunto: Re: [delphi-br] Código de Barras


  Isso varia muito. No segmento supermercadista (tanto atacado como varejo),
  usa-se o EAN13. Agora no comércio geral, dos mais popularmente usados são
o
  Code39 e o 2 de 5.



  []s


  Walter Alves Chagas Junior
  Projeto e desenvolvimento de sistemas
  CABTEC - Soluções em Código de Barras
  Belo Horizonte - MG
  Fone: (31) 2125-9019 - Fax: (31) 2125-9030
  http://www.cabtec.com.br
  [EMAIL PROTECTED]


  - Original Message -
  From: Otavio Gasparovic do Nascimento [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Friday, September 24, 2004 10:42 AM
  Subject: [delphi-br] Código de Barras


  
   Pessoal,
  
   Alguem sabe informar que tipo de codigo de barras é utilizado no
comercio
   em
   geral
   tipo EAN13 COD39,etc
  
  
   desde já agradeç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
  
  
  
  
  
  
  
  
  



  --
   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] index is ready only

2004-09-24 Por tôpico Marcio Carneiro
Muito obrigado pela atenção,
Vou relatar os meus passos:
A Tabela-mestre é a que contêm os dados dos clientes e tem como chave primária
o campo CODIGO_CLIENTE, e ela está indexada secundariamente pelo nome.
A Tabela-detalhe é a onde registro todas as compras de um determinado cliente e não 
têm nenhum campo como chave primária(pois não criei nenhum campo que seja único sendo 
que um cliente pode ter várias contas e não tem necessidade de registrar um número 
para cada conta a receber) , e está apenas indexada pelo campo CODIGO_CLIENTE.
No form criei dois grids, um ligado ao Mestre(Cliente) e outro ao Detalhe(Contas a 
Receber), e a relação foi estabelecida através do campo 
CODIGO_CLIENTE-CODIGO_CLIENTE. A ligação funciona, o erro ocorre quando faço o 
seguinte:
 TbCReceber.findkey([cod]);
 While not TBCReceber.eof do
begin
 if TbCReceberCodigo_Cliente.value=cod then
  begin
   totrec:=totrec+TbCReceberPreco.value;
   TbCReceber.delete
  end
 else
   exit;
 TbCReceber.next;
end; 
  - Original Message - 
  From: CARLOS CASTRO 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, September 23, 2004 5:03 PM
  Subject: Re: [delphi-br] index is ready only


  Mario,

 tenho uma certa experiencia com o paradox , pois como vc tbem vindo do velho e 
bom clipper com dbase e passeio o maior apuro para me adaptar , se puder me detalhar 
com o esta usando o pai-filho , posso te ajudar, pois tive problemas graves no 
manuseio das tabelas.
 Talvez juntos vamos poder resolver a duvida que lhe atenta a alma, me envia a 
forma que esta usando a ligacao entre as tabelas , ou ate um exemplo para que possa 
repetir os testes aqui

fico no aguardo ..

  Carlos

  Williams Diaz [EMAIL PROTECTED] wrote:
  Márcio,

  dificil dizer, mas será que:

  -seu arquivo não está setado como read only? - se venho de um cd é possível.

  -será que você não colocou a propriedade do data set como read only?

  -você grava primeiro o mestre não é isso?

  bem, são bobagens mas a gente as vezes passa por cima.

  abraços,

  williams
  *---
  Williams Díaz
  [EMAIL PROTECTED]
  http://www.interban.com.br

  - Original Message - 
  From: Marcio Carneiro [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Wednesday, September 22, 2004 8:20 PM
  Subject: Re: [delphi-br] index is ready only


  É o Paradox, que já está enchendo a minha paciência.
  Já deletei fisicamente os arquivos de índices,  já recriei novamente, já dei
  um
  pack no arquivo, já utilizei um reparador de tabelas.
  O problema é que nada acontece, continua dando o erro :INDEX IS READY ONLY.
  Onde estou errando: criei a tabela, criei o índice, estabeleci a relação
  mestre-detalhe, e continua dando erro.
  Se não conseguir, vou abandonar o mestre-detalhe, e fazer de outra forma.
  Sou analista de sistemas e faço algoritmos de qualidade, já programei muito
  em Clipper, e este é o meu primeiro programa em Delphi, e este acesso às
  tabelas
  está me dando muito dor de cabeça, e o que é pior, não existe livro ou
  apostila que trate destas minúncias, somente a experiência, que não tenho, é
  que é possível dar respostas a estes problemas. O problema é que nesta
  lista, todos estão muito avançados, e eu como iniciante, tenho dificuldades
  em perguntar, pois vocês estão no firebird/interbase e estou ainda atrelado
  no Piradox. Um simples problema me
  tranca todo o desenvolvimento do sistema.
  Um grande abraço
  Marcio
- Original Message - 
From: Coutinho - Pessoais
To: [EMAIL PROTECTED]
Sent: Tuesday, September 21, 2004 10:29 AM
Subject: Re: [delphi-br] index is ready only


Qual o banco de dados que stá usando?
É Paradox? Se for pode ser um problema na tabela, aí deve rodar um
aplicativo para corrigir os indices, etc...

Só que você falou antes em Contas a Receber, depois falou em contas  a
pagar

Veja se não há nenhum arquivo de indice que tenha seu atributo
alterado... isso está estranho!!!


Sds
Emanuel Couitnho

Marcio Carneiro wrote:

 A tabela-filha tem as contas a receber da tabela-pai(cliente).
 Portanto estou deletando apenas as contas(filha) que o cliente(pai) já
 pagou, que permanece ativo no banco de dados. O erro ocorre quando
 estou dando um laço para deletar todas as contas que aquele cliente
 tem no contas a pagar.
 Um grande abraço
 Marcio
   - Original Message -
   From: Coutinho - Pessoais
   To: [EMAIL PROTECTED]
   Sent: Monday, September 20, 2004 8:46 AM
   Subject: Re: [delphi-br] index is ready only


   Colega... a maneira como colocou sua pergunda é um tanto vaga... Há
   entretanto cuidados a serem tomados quando eliminando um registro que
   faz parte de uma relação Master-Detail.

   ao eliminar um registro na Master, no evento before delete, crie um
 laço
   e elimine 

Re: RES: RES: [delphi-br] Edit ou DBEdit

2004-09-24 Por tôpico Romario (Delphi)
Na Classe você teria:

Function TEmpresa.SalvaEmpresa: Boolean;
Begin
   Result := dtm_empresa.SalvaEmpresa(Self);
End;

==

No DataModule você teria: (isso é só parte do código)

Function Tdtm_empresa.SalvaEmpresa(oEmpresa: TEmpresa): Boolean;
Begin

   Result := False;

   With dtm_empresa.cds_empresa do
   Begin

 Try

   ...

   FieldByName('RazaoSocial' ).AsString := oEmpresa.RazaoSocial;
   FieldByName('NomeFantasia').AsString := oEmpresa.NomeFantasia;
   FieldByName('CNPJ').AsString := oEmpresa.CNPJ;
   FieldByName('InscEstadual').AsString := oEmpresa.InscEstadual;

   Post;

   If ApplyUpdates(0) = 0 Then
 Result := True;

 Except

   on E: Exception do
   ShowMessage(E.Message);

 End;
   End;
End;

==

Fiz de cabeça diretamente no corpo do e-mail. Pode ser que haja erro.

Espero ter ajudado na compreensão.

Uma ótima referência é o livro:

Título  : Desenvolvendo Aplicações com Uml 2.0
Autor   : Ana Cristina Melo
Editora : Brasport
Edição  : 2/2004
ISBN: 8574521752
Páginas : 284

Sds,

Romario




Cícerot escreveu:

 Desculpe a ignorancia e já concordando (óbvio por isso minha pergunta), o
 que se faz depois de criado o empresa.salvaempresa. Já que ficou tao
 bonito... me diga como continuar com o salvaempresa (assumo que sou um
 desses que voce falou) mais eu chego lá
 
 
 -Mensagem original-
 De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
 Enviada em: quinta-feira, 23 de setembro de 2004 18:18
 Para: [EMAIL PROTECTED]
 Assunto: Re: RES: [delphi-br] Edit ou DBEdit
 
 
 O problema é que dessa forma você chutou a orientação a objetos para bem
 longe da sua aplicação.
 
 As ferramentas RAD induzem o programador a trabalhar de uma forma não
 muito orientada a objetos. Criamos funções e procedimentos, utilizamos
 vários dos eventos que a ferramenta nos disponibiliza e fechamos os
 olhos para enxergar o futuro que virá pela frente.
 
 Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a
 reusar nossos objetos no futuro, estamos evitando ser comparados com
 aqueles que alguns chamam de meros pregadores de botão.
 
 Aí você diz: a minha função é reusável, mas será que você pensou que
 ela poderia ser um objeto? Que ela poderia ter atributos e métodos
 próprios? Que poderia ao invés de receber vários componentes, receber
 apenas as informações necessárias?
 
 Ex. do código na Interface:
 
 Empresa:= TEmpresa.Create;
 
 Empresa.RazaoSocial   := edt_razao.Text;
 Empresa.NomeFantasia  := edt_nome.Text;
 Empresa.CNPJ  := edt_cnpj.Text;
 Empresa.InscricaoEstadual := edt_inscricao.Text;
 
 Empresa.SalvaEmpresa;
 
 
 Lembre-se que programar qualquer um pode, mas desenvolver com excelência
 são poucos os que conseguem. Espero que um dia eu consiga chegar lá.
 
 Sds,
 
 Romario


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Alisson
Pois eu te digo que não uso DbLookUpComboBox nas minhas aplicações e não sinto a menor 
 falta. Eu desenvolvi um form com uma função que substitui com vantagem o 
DbLookUpComboBox. Funciona da seguinte maneira : no lugar do DbLookUpComboBox eu 
coloco um Edit, quando o usuário tecla ENTER abro um form que traz um dbgrid(Desse eu 
não abro mão) com os registros. Quando o usuário escolhe o registro e tecla ENTER, 
essa tela de pesquisa é fechada e o registro escolhido retorna para o edit anterior. 
Existem algumas implementações como por ex.: Se o usuário digitar alguma coisa antes 
de dar o enter o form mostra os registros que começam essa descrição digitada, depois 
de aberto o form é possivel pesquisar de acordo com o que o usuário digitar e por aí 
vai. 
  - Original Message - 
  From: Willian Jerônymo - Yahoo 
  To: [EMAIL PROTECTED] 
  Sent: Friday, September 24, 2004 10:36 AM
  Subject: Re: [delphi-br] Re: Edit ou DBEdit


  Programando dessa maneiro (sem componentes Data Ware) como faço com os meus 
DBLookupComboBoxs ?

  Esse componente é uma mãe em nossas aplicações...

  Alguém tem alguma dica ?


  Willian

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



[delphi-br] Re: Simular teclado

2004-09-24 Por tôpico Rodrigo Cesar

Não adianta fazer kbd_Event ou Mouse_Event, eles apenas colocam na 
lista de processos da aplicação a menssagem, assim o Windows não 
entende que o periférico foi usado. Preciso de algo que faça um 
evento na porta do periférico.




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

2004-09-24 Por tôpico tatu

como consigo descubrir se um terminado form ja foi criado ?



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Romario (Delphi)
Eu faço a leitura na tabela e populo o TComboBox com os objetos 
retornados.

Ex.:

Function TEmpresa.BuscaEmpresas: TList;
Var
   lstEmpresas: TList;
   oEmpresa: TEmpresa;
Begin

   lstEmpresas := TList.Create;

   dtm_empresa.BuscaEmpresas;

   With dtm_empresa.cds_empresa do
   Begin

 Try

   If RecordCount  0 Then
   Begin

 First;

 While Not EOF do
 Begin

   oEmpresa := TEmpresa.Create;

   oEmpresa.RazaoSocial  := FieldByName('RazaoSocial' ).AsString;
   oEmpresa.NomeFantasia := FieldByName('NomeFantasia').AsString;
   oEmpresa.CNPJ := FieldByName('CNPJ').AsString;
   oEmpresa.InscEstadual := FieldByName('InscEstadual').AsString;

   lstEmpresas.Add(oEmpresa);

   Next;

 End;

   End;

 Except

   on E: Exception do
   ShowMessage(E.Message);

 End;

   End;

   Result := lstEmpresas;

End;

{  }

Populando o TComboBox:

Procedure Tfrm_empresa.ListaEmpresas;
Var
   i: Integer;
Begin

   lstEmpresas := Empresa.BuscaEmpresas;

   If lstEmpresas.Count  0 Then
   Begin

 For i := 0 to lstEmpresas.Count - 1 do
 Begin

   Empresa := lstEmpresas[i];

   grd_empresa.Cells[0, i + 1] := Empresa.RazaoSocial;
   grd_empresa.Cells[1, i + 1] := Empresa.NomeFantasia;
   grd_empresa.Cells[2, i + 1] := Empresa.CNPJ;
   grd_empresa.Cells[3, i + 1] := Empresa.InscEstadual;

 End;

   End;

End;

{  }

Espero ter ajudado na compreensão.

Sds,

Romario





Willian Jerônymo - Yahoo escreveu:

 Programando dessa maneiro (sem componentes Data Ware) como faço com os meus 
 DBLookupComboBoxs ?
 
 Esse componente é uma mãe em nossas aplicações...
 
 Alguém tem alguma dica ?
 
 
 Willian


-- 
 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] IntraWeb no Apache 1.3 em Linux

2004-09-24 Por tôpico Dener
Olá pessoal,

Qual a forma correta de criar e rodar um aplicação IntraWeb com Apache para 
Linux ?

Criei uma aplicação de teste mas não sei configurar para rodar no Apache !

Valeu

Dener 



-- 
 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: Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Celso Martins
Interessantíssima essa sua solução. Gostei mesmo. Mas me diz uma coisa:
porquê ao invés de criar um novo form para realizar esta consulta vc não a
faz através de um panel que vc traria pra frente quando o usuário
pressionasse a tecla enter? Economizaria recursos. 
 

Sds,
Celso do A. Vianna Martins
Desenvolvimento de Sistemas
---
Archive ISP - Rio de Janeiro - RJ
www.archive.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 202634027
 
Tudo aquilo que algum idiota diz que é urgente, é algo que 
  este imbecil não fez em tempo hábil e quer que você se foda
  para fazer em tempo recorde.
 
 
---Mensagem original---
 
De: [EMAIL PROTECTED]
Data: 09/24/04 12:30:38
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Re: Edit ou DBEdit
 
Pois eu te digo que não uso DbLookUpComboBox nas minhas aplicações e não
sinto a menor  falta. Eu desenvolvi um form com uma função que substitui com
vantagem o DbLookUpComboBox. Funciona da seguinte maneira : no lugar do
DbLookUpComboBox eu coloco um Edit, quando o usuário tecla ENTER abro um
form que traz um dbgrid(Desse eu não abro mão) com os registros. Quando o
usuário escolhe o registro e tecla ENTER, essa tela de pesquisa é fechada e
o registro escolhido retorna para o edit anterior. Existem algumas
implementações como por ex.: Se o usuário digitar alguma coisa antes de dar
o enter o form mostra os registros que começam essa descrição digitada,
depois de aberto o form é possivel pesquisar de acordo com o que o usuário
digitar e por aí vai.
  - Original Message -
  From: Willian Jerônymo - Yahoo
  To: [EMAIL PROTECTED]
  Sent: Friday, September 24, 2004 10:36 AM
  Subject: Re: [delphi-br] Re: Edit ou DBEdit
 
 
  Programando dessa maneiro (sem componentes Data Ware) como faço com os
meus DBLookupComboBoxs ?
 
  Esse componente é uma mãe em nossas aplicações...
 
  Alguém tem alguma dica ?
 
 
  Willian
 
  [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!.
 
 
 
[As partes desta mensagem que não continham texto foram removidas]
 
 
 
--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos
 
 
 
 
 
 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* 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] Problema com Quick Report ... ainda!!

2004-09-24 Por tôpico datorre - ig
A imagem é fixa e coloquei-a em tempo de projeto (é um QrImage)

 

:[

 



Fernando Datorre

Gerente de STI -  mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]

 

  _  

De: Moisés Felipe Lehnen [mailto:[EMAIL PROTECTED] 
Enviada em: Friday, 24 September 2004 9:39 AM
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Problema com Quick Report ... ainda!!

 

Tens a imagem no diretório indicado no teu componente ?


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


  http://pms.mercadolibre.com/cgi/pms/ban?site=292076id=31806 

 

  _  

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]
mailto:[EMAIL PROTECTED] 
  
*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos
http://br.yahoo.com/info/utos.html  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] Controle de Cantina ou Lanchonete

2004-09-24 Por tôpico Marcos Fonseca
 --- telma woerle [EMAIL PROTECTED]
escreveu: 


Telma tenho algumas soluções que talves possam te
ajudar , você está em São Paulo ?
-
Oi pessoal,

estou precisando de um sisteminha para fazer o
controle de vendas de uma cantina imprimindo recibo,
alguem tem alguma coisa ou uma ideia de como fazer q
possa me ajudar.

Obrigada

Telma


  
  

___
Yahoo! Messenger 6.0 - jogos, emoticons sonoros e
muita diversão. Instale agora!
http://br.download.yahoo.com/messenger/


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

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





___
Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão. Instale agora!
http://br.download.yahoo.com/messenger/


-- 
 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] form ja criado

2004-09-24 Por tôpico Rubem Rocha

Essa dica (form  NIL) não é 100% confiável. Ela pode estar diferente de NIL e, no 
entanto, apontar para uma referência que já tenha sido liberada. Pra isso realmente 
funcionar bacana, no momento da liberação do form, a variável de instância do mesmo 
tem que apontar para NIL (ou seja, form := NIL)!

[]s

-Mensagem original-
De: Paulo Daniel Dorensbach [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 24 de setembro de 2004 13:47
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] form ja criado


tatu escreveu:

 como consigo descubrir se um terminado form ja foi criado ?

Assim:
if (form  nil) then

[ ]'s
-- 
Paulo Daniel Dorensbach
Usuario GNU/Linux 363631 - http://counter.li.org

NBR para a Internet já! Porque meu navegador não é penico. 
http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br

Não me entrego sem lutar, tenho ainda coração
Não aprendi a me render, que caia o inimigo então...
Metal contra as nuvens - Legião Urbana

By Mozilla Thunderbird
www.mozilla.org.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




 



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

2004-09-24 Por tôpico Vitor Luiz Redes
Você pode fazer a verificação de duas maneiras :

if Form = Nil

If Assigned(Form)

Particularmente, acho que a segunda opção é melhor, ela não deixa brechas 
Como por exemplo, o Form pode ser diferente de nil, e mesmo assim não estar criado 
...


Três salvas aos bons livros.
São o deleite dos sábios,
a educação dos ignorantes
e os verdadeiros feitos de nossa
raça: Os Seres Humanos

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: tatu 
  To: [EMAIL PROTECTED] 
  Sent: Friday, September 24, 2004 12:32 PM
  Subject: [delphi-br] form ja criado


  como consigo descubrir se um terminado form ja foi criado ?



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

 



RES: RES: RES: [delphi-br] Edit ou DBEdit

2004-09-24 Por tôpico Cícerot
É,,, vai valer muito aa pena eu buscar essa experiencia... valeu

-Mensagem original-
De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 24 de setembro de 2004 12:22
Para: [EMAIL PROTECTED]
Assunto: Re: RES: RES: [delphi-br] Edit ou DBEdit


Na Classe você teria:

Function TEmpresa.SalvaEmpresa: Boolean;
Begin
   Result := dtm_empresa.SalvaEmpresa(Self);
End;

==

No DataModule você teria: (isso é só parte do código)

Function Tdtm_empresa.SalvaEmpresa(oEmpresa: TEmpresa): Boolean;
Begin

   Result := False;

   With dtm_empresa.cds_empresa do
   Begin

 Try

   ...

   FieldByName('RazaoSocial' ).AsString := oEmpresa.RazaoSocial;
   FieldByName('NomeFantasia').AsString := oEmpresa.NomeFantasia;
   FieldByName('CNPJ').AsString := oEmpresa.CNPJ;
   FieldByName('InscEstadual').AsString := oEmpresa.InscEstadual;

   Post;

   If ApplyUpdates(0) = 0 Then
 Result := True;

 Except

   on E: Exception do
   ShowMessage(E.Message);

 End;
   End;
End;

==

Fiz de cabeça diretamente no corpo do e-mail. Pode ser que haja erro.

Espero ter ajudado na compreensão.

Uma ótima referência é o livro:

Título  : Desenvolvendo Aplicações com Uml 2.0
Autor   : Ana Cristina Melo
Editora : Brasport
Edição  : 2/2004
ISBN: 8574521752
Páginas : 284

Sds,

Romario




Cícerot escreveu:

 Desculpe a ignorancia e já concordando (óbvio por isso minha pergunta), o
 que se faz depois de criado o empresa.salvaempresa. Já que ficou tao
 bonito... me diga como continuar com o salvaempresa (assumo que sou um
 desses que voce falou) mais eu chego lá


 -Mensagem original-
 De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
 Enviada em: quinta-feira, 23 de setembro de 2004 18:18
 Para: [EMAIL PROTECTED]
 Assunto: Re: RES: [delphi-br] Edit ou DBEdit


 O problema é que dessa forma você chutou a orientação a objetos para bem
 longe da sua aplicação.

 As ferramentas RAD induzem o programador a trabalhar de uma forma não
 muito orientada a objetos. Criamos funções e procedimentos, utilizamos
 vários dos eventos que a ferramenta nos disponibiliza e fechamos os
 olhos para enxergar o futuro que virá pela frente.

 Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a
 reusar nossos objetos no futuro, estamos evitando ser comparados com
 aqueles que alguns chamam de meros pregadores de botão.

 Aí você diz: a minha função é reusável, mas será que você pensou que
 ela poderia ser um objeto? Que ela poderia ter atributos e métodos
 próprios? Que poderia ao invés de receber vários componentes, receber
 apenas as informações necessárias?

 Ex. do código na Interface:

 Empresa:= TEmpresa.Create;

 Empresa.RazaoSocial   := edt_razao.Text;
 Empresa.NomeFantasia  := edt_nome.Text;
 Empresa.CNPJ  := edt_cnpj.Text;
 Empresa.InscricaoEstadual := edt_inscricao.Text;

 Empresa.SalvaEmpresa;


 Lembre-se que programar qualquer um pode, mas desenvolver com excelência
 são poucos os que conseguem. Espero que um dia eu consiga chegar lá.

 Sds,

 Romario


--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos





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

 



[delphi-br] Frameworks de persistência. Qual é mais indicado.

2004-09-24 Por tôpico Alessandro Fernandes
Gostaria de ouvir dos colegas sobre os seguintes frameworks para mapeamento
e persistência de objetos em bancos de dados relacionais. Todos são
gratuitos e com código aberto.

 

01)Instant Objects (sourceforge) 

Achei muito interessante a integração com a IDE do Delphi. Me pareceu que
funciona parecido com o BOLD. Gera o banco de dados pra você e faz o
mapeamento automaticamente. Você pode usar os componentes DBWare do Delphi
ligados nas suas classes de negócio. 

 

02)tiOPF (www.techinsite.com.au)

Me pareceu bem robusta, mas bem complexa também. Trabalha com componentes
‘DBWare’, ou seriam ‘ObjectAware’, prórios.

 

03)DePO (www.liws.com.br/depo/arquivos/)

Me pareceu promissor mas ainda imaturo para um projeto grande. 

 

 

Algum dos colegas utiliza um desses frameworks ou tem outras opiniões à
respeito deles?

 

Quero iniciar o uso de um deles em meus projetos, mas não quero adotar um e
depois chegar a conclusão que a decisão foi errada.

 

Quem puder ajudar...

 

Obrigado.

 

 

___

Alessandro Cunha Fernandes  

SoftTI - Software e Consultoria em TI

 



[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] Balanças Toledo

2004-09-24 Por tôpico Malomar Alex Seminotti
Povo,

Alguém já trabalhou com balanças rodoviárias Toledo 9091, lendo os dados 
via porta serial?

-- 
[]'s
Malomar Alex Seminotti
Erechim - RS




-- 
 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] Balanças Toledo

2004-09-24 Por tôpico Walter Chagas \(Desenvolvimento\)
Eu já.

Voce terá que colocar um componente de porta serial no seu programa que 
deverá ficar ativo esperando a chegada de dados da porta. quando a balança 
fizer a leitura, ela envia estes dados para a porta e eles devem chegar na 
seguinte forma:

#2'4p(00153000'#$D'\'

Ai você terá que separar o lixo do valor exato que vem sem caracteres de 
formatação. Esta string acima corresponde ao valor 15,30 em uma balança de
100K

Em uma balança de 20K ela viria desta forma:

#2'5ph0011'#$D'' = 01,100
#2'5ph00025000'#$D#$1D = 00,250
#2'5ph01529200'#$D#$11 = 15,292
#2'5ph5200'#$D#$1D = 00,052
#2'5ph0200'#$D'' = 00,002

Bom, no componente, você irá usar o evento de leitura da porta serial. Eu 
usei o Async32 da TMS Software, ele tem o evento onRxChar, que é o evendo 
que ler caracteres vindos da porta.

A leitura é feita char por char, neste caso eu usei uma variável que leu 
todos os caracteres vindos da porta:

VStream := VStream + VaComm1.ReadText;

Em seguida, fiz uma função que remove o lixo dos valores numéricos da 
string:

VStream1 := RetornaNumero(VStream1); // So ficam os numeros

#2'5ph0011'#$D'' = 250011

Feito isto basta pegar a parte da string que te interessa:

VAuxStream1 := copy(VStream1,4,6);

Finalmente voce faz uma função para colocar a virgula no lugar certo e o
valor ficaria assim:

01,100 lidos em uma balança de 20K



[]s


Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
CABTEC - Soluções em Código de Barras
Belo Horizonte - MG
Fone: (31) 2125-9019 - Fax: (31) 2125-9030
http://www.cabtec.com.br
[EMAIL PROTECTED]


- Original Message - 
From: Malomar Alex Seminotti [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, September 24, 2004 4:45 PM
Subject: [delphi-br] Balanças Toledo


 Povo,

 Alguém já trabalhou com balanças rodoviárias Toledo 9091, lendo os dados
 via porta serial?

 -- 
 []'s
 Malomar Alex Seminotti
 Erechim - RS




 -- 
  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] Inserir Zeros a esquerda do Código

2004-09-24 Por tôpico Raphael Fonseca
Amigos: 

Crio os meus campos auto incremento através de uma procedure que incrementa um 
GENERATOR. 

Existe a possibilidade de quando for incluir colocar uma quantidade de zeros a 
esquerda?

Ex: '1'


[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] Inserir Zeros a esquerda do Código

2004-09-24 Por tôpico Marcelo Silva

Se seu campo é Integer ele não vai gravar 1 e sim 1

Então na hora de mostrar voce coloca uma mascara
FormatFloat('0',CampoInteger);

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
  - Original Message - 
  From: Raphael Fonseca 
  To: Lista-Delphi (E-mail) ; [EMAIL PROTECTED] 
  Cc: [EMAIL PROTECTED] ; Delphi-BR 
  Sent: Friday, September 24, 2004 5:39 PM
  Subject: [delphi-br] Inserir Zeros a esquerda do Código


  Amigos: 

  Crio os meus campos auto incremento através de uma procedure que incrementa um 
GENERATOR. 

  Existe a possibilidade de quando for incluir colocar uma quantidade de zeros a 
esquerda?

  Ex: '1'


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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Re: Edit ou DBEdit (um pouco longo, mas...)

2004-09-24 Por tôpico Artur Anjos
 - Original Message -
 From: Eduardo RC Neto [EMAIL PROTECTED]
 
 Só tem um problema com ele:
 Quando vc entra na tela que tem esse TDBEdit, vc terá que abrir a tabela a
 qual esse
 TDBEdit está ligado.
 Agora imagine um sistema, rodando Clinet/Server, uma central de atendimento,
 por exemplo.
 300 usuários trabalhando o dia inteiro, na mesma tela, com 300 conexões
 simuntâneas
 com o banco de dados!!!

Malta (*),

Relembrem que nem todos os componentes descendentes de TDataSet 
funcionam do mesmo modo. Por isso é que esta discussão é bem difícil de 
gerir, se não se falar de casos concretos.

Este exemplo do Eduardo é bem válido em algumas circunstâncias, mas não 
depende do TDBEdit, mas depende do componente de acesso a que este 
componente está ligado.

Por exemplo, imaginemos que este TDBEdit esteja conectado a uma 
TIBOQuery (dos componentes TDataSet descendants do IBO do Jason). Basta 
configurar a TIBOQuery correctamente, que o próprio IBO ao fim de X 
tempo vai fechar automaticamente a transacção que está a correr (por 
timeout) e abrir 'graciosamente' no momento que esta query necessitar de 
novo da mesma. O tempo é definido como propriedade da query, pelo que 
pode ser no segundo seguinte a ter ido recolher os dados.

Agora imaginemos vários TDBEdits ligado à query, e que o registo entra 
em modo de alteração, e se faz Post. A TIBOQuery não envia para o 
servidor o update dos campos que não foram alterados, mas apenas 
daqueles que o foram: foi da responsabilidade deste objecto reduzir os 
custos do servidor e do trafego da rede. É ainda possível a TIBOQuery 
fazer automaticamente um refresh de apenas aquela row que foi alterada, 
sem ter que fazer refresh de toda a Tulpa. Isto apenas definindo uma 
propriedade da Query.

Entretanto, o uso de um TDBEdit não vai trazer mais overhead a esta 
situação. De facto, o object TDBEdit está a fazer o que pretendemos 
dele, e de uma forma eficaz - reporta um valor e permite uma alteração, 
'avisando' nesse caso o objecto que o alimenta.

Este é um exemplo simples de uma Query com TDBEdit que permite ser usada 
sem qualquer trabalho de maior num ambiente com 300 users em simultâneo, 
sem consumir qualquer recurso do lado do servidor, e sem uma única linha 
de código. Perfeito para mil e uma aplicações: simples, e faz o trabalho 
de uma forma limpa. Neste caso, substituir um TDBEdit por um TEdit é 
apenas uma questão de gostar de ter trabalho a mais, e se calhar nem 
fica tão bem feito.

Posso porém pegar neste mesmo exemplo, e mudando apenas umas 
propriedades da mesma TIBOQuery, tornar o seu uso completamente 
impraticável nesta situação, afundando o servidor em poucos segundos com 
as tais 300 conexões. E ainda poderia só mudando também algumas 
propriedades da mesma TIBOQuery, fazer o servidor se portar decentemente 
com algumas poucas conexões - 10 ou 20 - que pode viver assim anos se 
uma empresa não crescer, e só dar por isso passando um tempo.

A conclusão geral desta discussão é bem simples: depende, depende, 
depende. :-)

E reparem que no exemplo que dei toda a realidade do comportamento da 
aplicação é aboslutamente independente do uso do TDBEdit ou do TEdit... 
Depende sim, mas de uma outra coisa.

Artur

(*) Malta = Galera em PT_PT :-)





-- 
 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: Re: [delphi-br] Re: Edit ou DBEdit

2004-09-24 Por tôpico Alisson
Celso,

Um panel? Não achei muito legal não! Tem um recurso nesse form que talvez não fique 
legal. É o seguinte: o form pode ser maximizado para melhor visualização quando o 
número de registros ou de campos é grande. Mas como seria exatamente essa sua idéia do 
panel? Se quiser posso enviar em pvt uma imagem pra você entender como funciona meu 
form.

Alisson
  - Original Message - 
  From: Celso Martins 
  To: [EMAIL PROTECTED] 
  Sent: Friday, September 24, 2004 1:23 PM
  Subject: Res: Re: [delphi-br] Re: Edit ou DBEdit


  Interessantíssima essa sua solução. Gostei mesmo. Mas me diz uma coisa:
  porquê ao invés de criar um novo form para realizar esta consulta vc não a
  faz através de um panel que vc traria pra frente quando o usuário
  pressionasse a tecla enter? Economizaria recursos. 


  Sds, 
  Celso do A. Vianna Martins 
  Desenvolvimento de Sistemas 
  --- 
  Archive ISP - Rio de Janeiro - RJ 
  www.archive.com.br 
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED] 
  ICQ 202634027 

  Tudo aquilo que algum idiota diz que é urgente, é algo que 
este imbecil não fez em tempo hábil e quer que você se foda 
para fazer em tempo recorde. 


  ---Mensagem original--- 

  De: [EMAIL PROTECTED] 
  Data: 09/24/04 12:30:38 
  Para: [EMAIL PROTECTED] 
  Assunto: Re: [delphi-br] Re: Edit ou DBEdit 

  Pois eu te digo que não uso DbLookUpComboBox nas minhas aplicações e não
  sinto a menor  falta. Eu desenvolvi um form com uma função que substitui com
  vantagem o DbLookUpComboBox. Funciona da seguinte maneira : no lugar do
  DbLookUpComboBox eu coloco um Edit, quando o usuário tecla ENTER abro um
  form que traz um dbgrid(Desse eu não abro mão) com os registros. Quando o
  usuário escolhe o registro e tecla ENTER, essa tela de pesquisa é fechada e
  o registro escolhido retorna para o edit anterior. Existem algumas
  implementações como por ex.: Se o usuário digitar alguma coisa antes de dar
  o enter o form mostra os registros que começam essa descrição digitada,
  depois de aberto o form é possivel pesquisar de acordo com o que o usuário
  digitar e por aí vai. 
- Original Message - 
From: Willian Jerônymo - Yahoo 
To: [EMAIL PROTECTED] 
Sent: Friday, September 24, 2004 10:36 AM 
Subject: Re: [delphi-br] Re: Edit ou DBEdit 


Programando dessa maneiro (sem componentes Data Ware) como faço com os
  meus DBLookupComboBoxs ? 

Esse componente é uma mãe em nossas aplicações... 

Alguém tem alguma dica ? 


Willian 

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



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



[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 

Re: [delphi-br] form ja criado

2004-09-24 Por tôpico Marcelo Almeida
Vitor Luiz Redes wrote:

Você pode fazer a verificação de duas maneiras :

if Form = Nil

If Assigned(Form)

Particularmente, acho que a segunda opção é melhor, ela não deixa brechas 
Como por exemplo, o Form pode ser diferente de nil, e mesmo assim não estar 
 criado ...
  


Errado.
Exemplo retirado do help do delphi

var P: Pointer;

begin
  P := nil;
  if Assigned (P) then Writeln ('You won''t see this');
  GetMem(P, 1024);{P valid}
  FreeMem(P, 1024);{P no longer valid and still not nil}
  if Assigned (P) then Writeln ('You''ll see this');
end;

Resumindo: se vc der free, o assigned continua retornando true.

A única forma garantida de verificar se o form está criado é procurando 
ele em screen.forms.

-- 
Marcelo Almeida




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

2004-09-24 Por tôpico Vitor Luiz Redes
Certo !
Mas depende da maneira como destruímos o objeto TForm.
Se você fizer um teste com um Form.ShowModal, e um Form.Free, o Assigned retornará 
true, mas se destruírmos o form com FreeandNil(Form), o Assigned retornará False, da 
mesma forma, retornará se o objeto for destruído com Free, e tendo um valor nil 
atribuido a ele.

Terminando, ao meu ver, a maneira mais correta de destruir um objeto é FreeAndNil, 
ou Form.Releasee e Form:=NIL ...  o Free não é muito indicado para se destruir um form 
(Help - TCustomForm.Release) ... já que o Release executa todos os métodos 
pertinentes ao fechamento, destruição do objeto ...
Considerando que a destruição dos objetos é feita corretamente, o Assigned 
funcionará ... assim como o Screen.Forms ...



Três salvas aos bons livros.
São o deleite dos sábios,
a educação dos ignorantes
e os verdadeiros feitos de nossa
raça: Os Seres Humanos

Vitor Luiz Redes

Redsystem Informática

[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 ja criado

2004-09-24 Por tôpico Marcelo Almeida
Vitor Luiz Redes wrote:

Considerando que a destruição dos objetos é feita corretamente, o Assigned 
 funcionará ... assim como o Screen.Forms


Errado novamente.
O Screen.Forms é a única maneira garantida de saber se o form está criado.
Motivos :
- vc pode criar o form sem usar variavel global
- vc pode criar o form mais de uma vez e dar freeandnil em um deles.
- vc não precisa de fazer 'form := nil'.
- vc pode usar 'action := cafree' no onclose.

Posso arrumar mais alguns motivos...

-- 
Marcelo Almeida




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

2004-09-24 Por tôpico Vitor Luiz Redes
Você está certo. Mas o que eu queria dizer com a mensagem anterior, é que deve-se 
tomar cuidado com a destruição de objetos.
Mas como o Screen, é a Screen, então concordo que é a maneira mais segura de 
verificar a existência de um formulário.


Três salvas aos bons livros.
São o deleite dos sábios,
a educação dos ignorantes
e os verdadeiros feitos de nossa
raça: Os Seres Humanos

Vitor Luiz Redes

Redsystem Informática

[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] agrupar e relatorio Quick Report

2004-09-24 Por tôpico Carlos Alberto
Bom dia 

Estou com dauas duvidas


1) Como faço para tratar i impressao se o usuario desmarcar a indicação de agrupar no 
setup de impressao pois a impressao sai sempre agrupada

2) A outra e´ como montar o relatorio.
Tenho uma tabela com a seguinte estrutura


Cultivar  A1   A2  B1  B2  C1  C2
   CV1-  -12   14--
   CV2   1617   --   8   9
   CV3   2121   14  166   5


sendo  A locus A
   B locus B
  

  A1 alelo A1
  A2 alelo A2
  B1 alelo B1
  B2 alelo B2
.


Eu gostaria que saisse desta forma



  Cultivar CV1// título

 
 Locus   Alelo1   Alelo2

B  1214

ou seja para cada cultivar, em uma página separada, só se imprimiria os locus onde os 
alelos estao presentes (com valores)

Eu tentei da seguinte maneira


Criei uma banda detalhe onde coloquei (na primeira linha para formar o titulo) um 
QRLabel com caption Cultivar e um QRDBText  com o DataField  Cultivar. Na segunda 
linha tres QRLabel com os caption Locus, Alelo1 e Alelo2. Como queria que cada 
cultivar saisse em um nova página coloquei na propriedade ForcrNewPage da band detalhe 
TRUE. Até aqui o relatorio estava como o previsto. Na hora de colocar os valores que 
a corda roeu pois nao estou conseguindo fazer aparecer os dados. 


Tentei criar uma banda child onde coloquei  um QRExpr e dois QRDBText mas não estou 
conseguindo fazer aparecer os dados


Alguma dica?  Uso delphi 5

Abraços  
.
 
 



[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 ja criado

2004-09-24 Por tôpico Marcelo Almeida
Vitor Luiz Redes wrote:

Mas o que eu queria dizer com a mensagem anterior, é que deve-se tomar cuidado com a 
destruição de objetos.
  


Neste ponto vc está certissimo.
Muita gente erra na hora de destruir os forms.
Como vc disse nas msgs anteriores, a maneira correta é usar o Release.

De acordo com a documentação, o release respeita a fila de msgs do 
windows e o free não; então, teoricamente, usando o free, o programa 
pode deixar de fazer alguma coisa, ou tentar usar algo que já foi destruido.
Digo teoricamente porque nunca ví acontecer nenhuma das 2 situações.

Atualmente estou usado sempre o 'action := cafree' e não me preocupo com 
destruição de form.
Meus sistemas estão sempre trabalhando com o form dentro de um tabsheet, 
ou seja, aparentemente só existe o form principal.
Para saber se o form está ou não criado eu procuro ele no pagecontrol, 
se tiver eu ativo a tabsheet associada ao form, senão eu crio a tabsheet 
e coloco o form dentro.

Funciona muito bem para o tipo de sistema que desenvolvo (B2B), os 
clientes estão achando bem simples de trabalhar assim, sem um punhado de 
tela, uma em cima da outra.

-- 
Marcelo Almeida




-- 
 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] BLOB - Pegar Linha a Linha

2004-09-24 Por tôpico MOITA
Tenho um campo BLOB no Firebird 1.5 que foi salvo por um editor RichEdit.
A duvida é como posso colocar este campo em um QRRichText ?
Nao consegui pegar linha por linha do campo BLOB no Firebird, so consigo a propriedade 
TEXT que vem todo o texto, e assim não consegui colocar no QRRichText, uma vez que o 
mesmo usa a expressao: QRRichText1.Lines.Add(texto) !

Por favor, se alguem puder me ajudar.

Obrigado

[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] BLOB - Pegar Linha a Linha

2004-09-24 Por tôpico Daniel / Tecnobyte
 Tenho um campo BLOB no Firebird 1.5 que foi salvo por um
 editor RichEdit. A duvida é como posso colocar este campo em
 um QRRichText ? Nao consegui pegar linha por linha do campo
 BLOB no Firebird, so consigo a propriedade TEXT que vem todo
 o texto, e assim não consegui colocar no QRRichText, uma vez
 que o mesmo usa a expressao: QRRichText1.Lines.Add(texto) !

QRRichText1.Lines.Text := alguma-coisa-que-retorne-texto

Atenciosamente.

Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.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

 



Re: [delphi-br] form ja criado

2004-09-24 Por tôpico Vitor Luiz Redes
De acordo com a documentação, o release respeita a fila de msgs do 
windows e o free não; então, teoricamente, usando o free, o programa 
pode deixar de fazer alguma coisa, ou tentar usar algo que já foi destruido.
Digo teoricamente porque nunca ví acontecer nenhuma das 2 situações.

Boa, eu nunca vi também.

Atualmente estou usado sempre o 'action := cafree' e não me preocupo com 
destruição de form.
Meus sistemas estão sempre trabalhando com o form dentro de um tabsheet, 
ou seja, aparentemente só existe o form principal.
Para saber se o form está ou não criado eu procuro ele no pagecontrol, 
se tiver eu ativo a tabsheet associada ao form, senão eu crio a tabsheet 
e coloco o form dentro.

Interessante, é uma boa solução para muitos formulários, já que a aparência é mais 
amigável. Até para quem desenvolve, trabalhar com muitas telas, não é muito bom, 
confunde, mesmo que você crie recursos de acesso rápido (como links, ou até mesmo um 
Run, como o do Windows), e adotar a MDI não é o caso, nunca trabalhei com forms MDI 
(nunca houve necessidade), mas pelo que já vi e ouvi, é complicado, e tem alguns Bug´s.
Quando a destruição de formulários, procuro sempre cria-los em tempo de execução, 
e destruir somente os formulários que não são necessários, portanto uso sempre 
Release, ou FreeandNil, em casos mais simples.
Valeu pelas dicas e sucesso !


Três salvas aos bons livros.
São o deleite dos sábios,
a educação dos ignorantes
e os verdadeiros feitos de nossa
raça: Os Seres Humanos

Vitor Luiz Redes

Redsystem Informática

[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] Att: Moderadores - um aviso

2004-09-24 Por tôpico Artur Anjos
Por favor removam o [EMAIL PROTECTED] antes que eu lhe dê um tiro. :-)

O sujeito usa um anti-spam que me recuso a dar como aceite.
Tem gente que não sabe usar a tecnologia que tem. :-((

Artur



-- 
 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] Quick Report com BUG ?

2004-09-24 Por tôpico MOITA

Não sei se é o QuickReport ou sou eu que está com BUG. Por favor me ajudem, a questão 
é a seguinte:

Tenho um relatório com o QR e um DetailBand que dentro tem um TQRDBRichText com a 
proopriedade AutoStrech = True, cada registro do meu BD tem uma altura diferente no 
campo que está vinculado ao QRDBRichText. Aí que aparece o problema, no 3 registro o 
QR não verifica se vai caber todo o meu RichText na 1a pagina, e imprimi metada na 1a 
pagina e a outra metade na 2a pagina. Só que não posso dividir o RichText do mesmo 
registro. O que eu quero, e não sei se o QR faz isso, é que se não couber o registro 
inteiro na altura que resta na página, o QR pule de página e comece a imprimir esse 
registro na proxima pagina. 
Já tentei de tudo, usando LinkBand, propriedade Height.e NADA
Se Alguém já passou por isso ou tem alguma idéia agradeço.

Ricardo Moita


[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] Erro no meu Codigo...

2004-09-24 Por tôpico Lucas Lombardi
Ai galera, 
O que ta errado no Codigo?
Eu to tentando fazer uma busca usando Radio Group...
Mas quando executo a Busca ele me retorna esse erro:

 Dynamic SQL Error
SQL Error Code = - 206
Column unknown
|%
At line 3, Column 31.



procedure TFrmBuscarClientes.BtnBuscarClick(Sender: TObject);
begin
 QrBuscaClientes.Close;
 QrBuscaClientes.SQL.Clear;
 QrBuscaClientes.sql.Add('select NOME, ENDERECO, CPF from CLIENTES');
 QrBuscaClientes.sql.Add('where clientes.codcli = clientes.nome');

if RGClientes.ItemIndex = 0 Then
QrBuscaClientes.SQL.Add('and upper(Clientes.nome) like upper('+ Txtbusca.Text 
+'%)')


else
if RGClientes.ItemIndex = 1 Then
QrBuscaClientes.SQL.Add('and upper(Clientes.endereco) like 
upper('+Txtbusca.Text+ '%)')

else
if RGClientes.ItemIndex = 2 Then
QrBuscaClientes.SQL.Add('and upper(Clientes.cpf) like 
upper('+Txtbusca.Text + '%)');
QrBuscaClientes.SQL.Add('order by nome');
QrBuscaClientes.Open;
end;

Se vcs Puderem me ajudar Ficaria Grato

Lucas


[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