RES: [delphi-br] Criar Botoes e Shapes em tempo de Execucao

2005-11-03 Por tôpico jrjuniore
Falta a propriedade parent.

Parent := TWinControl 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabiano A. C.
Enviada em: quinta-feira, 3 de novembro de 2005 11:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Botoes e Shapes em tempo de Execucao

Pessoal,  como faço pra criar Shapes e Botoes em tempo de execucao?

Pois tentei criar com o comando:
var botao1 : tbutton;
begin
botao1 := tbutton.create(form1);
botao1.show;

Ele cria o botao na memória porém nao aparece.


Até +!

Fabiano 



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 







___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
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] TreeView como menu

2005-11-03 Por tôpico jrjuniore
No onclick você verifica o selectedIndex cada um ser referirá a um form
dentre de um case:

  case treeview.selectedindex of
0 : Abre o form1;
1 : Abre o form2;
.
.
.
.
  end ;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de moacirponti
Enviada em: quinta-feira, 3 de novembro de 2005 12:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] TreeView como menu

Olá.

  Gostaria de usar o TreeView como menu no Delphi 7, de forma que quando o
usuário clicasse em um dos itens, um form se abriria.

  O problema é que os itens do treeview não tem eventos associados.

  Alguém tem uma idéia de como fazer isto?

  Obrigado!


  Moacir.





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 







___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
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] Criar Botoes e Shapes em tempo de Execucao

2005-11-03 Por tôpico jrjuniore
Faça assim:

begin
  botao := TButton.Create(form1);
  botao.parent := form1;

  botao.Width:=99;
  botao.Height:=99;
  botao.Top:=99;
  botao.Left:=99;
End;


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabiano A. C.
Enviada em: quinta-feira, 3 de novembro de 2005 11:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criar Botoes e Shapes em tempo de Execucao

Nao consegui fazer isso, olha meu codigo:

var
  Form1: TForm1;botao :tbutton;
/
begin
form1.Parent:= botao;
botao := TButton.Create(form1);

botao.Width:=99;
botao.Height:=99;
botao.Top:=99;
botao.Left:=99;
botao.Show;
end;



Até ++!
Fabiano
- Original Message -
From: jrjuniore [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 03, 2005 1:19 PM
Subject: RES: [delphi-br] Criar Botoes e Shapes em tempo de Execucao


Falta a propriedade parent.

Parent := TWinControl

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabiano A. C.
Enviada em: quinta-feira, 3 de novembro de 2005 11:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Botoes e Shapes em tempo de Execucao

Pessoal,  como faço pra criar Shapes e Botoes em tempo de execucao?

Pois tentei criar com o comando:
var botao1 : tbutton;
begin
botao1 := tbutton.create(form1);
botao1.show;

Ele cria o botao na memória porém nao aparece.


Até +!

Fabiano



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos












___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 







___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
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: TreeView como menu

2005-11-03 Por tôpico jrjuniore
Funciona assim:

  No OnClick do TreeView, vc consegue capturar o SelectedIndex dele e por aí
você consegue abrir o seu form.  No entanto, trabalhar com treeview não tão
fácil quanto um TMenuItem, creio que você não irá escapar dos cases ou dos
ifs.  Eu gosto muito de trabalhar com treeview e te recomento o case. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de moacirponti
Enviada em: quinta-feira, 3 de novembro de 2005 13:53
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: TreeView como menu


Como acessar os eventos dos ITENS do Treeview para atribuir métodos a eles?
Quando clico duas vezes no TreeView ele abre o Items Editor mas não deixa
acessar o Object Inspector.
Gostaria de ter uma árvore com vários itens e, dependendo do item clicado
abrisse um form.
Tenho as propriedades:
   TreeView.Selected.Index;
   TreeView.Selected.Level;
   TreeView.Selected.Text;
Mas achei muito difícil ter que criar um case ou uma série de ifs para
testar cada form que desejo abrir.

Há um meio mais fácil?

Obrigado,

Moacir.


--- Em delphi-br@yahoogrupos.com.br, \[ Mutuka \] [EMAIL PROTECTED]
escreveu
 como n tem: OnClick OnDlbClick OnChange OnCollapse OnUncollapse
 
 --- moacirponti [EMAIL PROTECTED] escreveu:
 
 
 -
 Olá.
 
   Gostaria de usar o TreeView como menu no Delphi 7, de forma que 
 quando o usuário clicasse em um dos itens, um form se abriria.
 
   O problema é que os itens do treeview não tem eventos associados.
 
   Alguém tem uma idéia de como fazer isto?
 
   Obrigado!
 
 
   Moacir.
 
 
 
 
 
 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 http://br.groups.yahoo.com/group/delphi-br/messages
 
 [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 Termos do 
 Serviço do Yahoo!.
 
 
 
 
Leandro...
 
 [ Mutuka ]
 
 
 
 
   
 
 
 
   
   
 ___
 Yahoo! Acesso Grátis: Internet rápida e grátis. 
 Instale o discador agora!
 http://br.acesso.yahoo.com/




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 







___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Descompilador

2005-10-26 Por tôpico jrjuniore
Galera,
 
alguem pode me dizer onde posso encontrar um descompilador para o Delphi ??
 
 
Grato.


[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]
 
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] Commit no delphi

2005-10-21 Por tôpico jrjuniore
Se for D5 então
  DataSet.Commit;

Se for D7 então
  DataSet.transaction.commit

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Solange
Enviada em: sexta-feira, 21 de outubro de 2005 11:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Commit no delphi

Olá André, obrigada por me responder,  eu já tentei colocar o nome da
transação (IBTransacao) e o ponto (.), como vc escreveu e simplesmente não
abrem as opções para mim escolher o CommitRetainning.
Tentei fazer isto após a linha:
DSCliente.Dataset.post;

- Original Message -
  From: Andre - Yahoo
  To: delphi-br@yahoogrupos.com.br
  Sent: Friday, October 21, 2005 10:29 AM
  Subject: Re: [delphi-br] Commit no delphi


  basta dar um nomedatransacao.CommitRetainning;
- Original Message - 
From: solangevoss 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, October 21, 2005 9:49 AM
Subject: [delphi-br] Commit no delphi


Olá, preciso fazer com que ao cadastrar um cliente, este já seje 
atualizado no banco Interbase, sem precisar fechar o aplicativo, para 
isso pesquisei e vi que devo usar o Commit, mas como usar e onde?
Eu utilizo os componentes do Interbase no delphi para a conexao e tenho 
um IBTransaction, e cada query (QCliente) está ligada a esta 
IBTransaction. Como faço para executar o Commit? Se alguém me ajudar 
fico muito grata.




[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




 







___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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

 




RES: [delphi-br] Fazer parte

2005-10-13 Por tôpico jrjuniore
Então, por favor, pode me colocar lá na lista ?? 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Walter Alves Chagas Junior
Enviada em: quinta-feira, 13 de outubro de 2005 08:37
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Fazer parte

No mesmo esquema do yahoo

mande um E-mail para [EMAIL PROTECTED]

Ou se for o caso eu te incluo na lista lá.


[]s

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


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de jrjuniore
Enviada em: terça-feira, 11 de outubro de 2005 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Fazer parte


Como faço para fazer parte da lista delphi-empregos ?
 
Junior Coelho


[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




 









___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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

 






RES: RES: [delphi-br] Quebra de Linha no componente Memo

2005-09-16 Por tôpico jrjuniore
Tem como vc me enviar a sua rotina ??

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Patricia Santana
Enviada em: sexta-feira, 16 de setembro de 2005 08:36
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Quebra de Linha no componente Memo

Ok, Júnior!
 
 Mas minha dúvida é : Quando quebrar a linha, pois, o tamanho do texto é
variável. Tenho que trazer para variáveis a Data + Hora + Texto ( onde o
texto é variável )
 
Como fazer isso no Delphi??
 
Muito obrigada pela atenção
 
Patricia Santana

jrjuniore [EMAIL PROTECTED] escreveu:
No momento em que vc quiser quebrar a linha, use #13. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Patricia Santana Enviada em: sexta-feira, 16 de setembro de 2005
08:13
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Quebra de Linha no componente Memo

Bom dia a todos

Tenho o seguinte texto dentro de um componente memo :

25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO
10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO 

Onde este texto é um retorno de uma função e está em uma única linha. 
Preciso quebrar esta linha de forma que fique assim:

25/05/2005 13:19AGUARDANDOAUTOR
18/05/2005 08:57EXPEDIÇÃO DE MANDADO
10/05/2005 14:42EM CLASSIFICAÇÃO
09/05/2005 16:26PROTOCOLADO 

Data + Hora + Texto.

Como faço isso no Delphi?

Obs : Estou utilizando o Delphi 5.0

Desde de já agradeço
Patricia Santana


__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/ 

[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












___
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora! 
www.yahoo.com.br/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









-
 Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 







___ 
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora! 
www.yahoo.com.br/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] Tem como alterar VALORES do DataSet SEM ALTERAR O SEU ESTADO???

2005-09-01 Por tôpico jrjuniore
Escrever a query de alteração dentro do componente Tquery e executar o
ExecSQL 
ou
Escrever a query de alteração dentro do componente TIbquery e executar o
ExecQuery

e depois de executar uma das duas opções dar o transaction.commit ou
commitRetaining 
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Francisco Thiago
Enviada em: quinta-feira, 1 de setembro de 2005 12:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tem como alterar VALORES do DataSet SEM ALTERAR O SEU
ESTADO???
Prioridade: Alta

Caros amigos,

Tenho uma procedure que recebe um TClientDataSet como parâmetro e de acordo
com as modificações nele, ela gera um SQL (Insert/Update/Delete). Uso isso
quando um simples ApplyUpdates não basta para salvar os dados.

Só que tenho um problema: Este DataSet não esta com a chave primária
informada ainda (pq esta valor é gerado no servidor de aplicações), e eu
precisava, de alguma forma, atribuir o valor da chave.
Tudo bem, eu poderia dar um Edit, gravar o valor e dar um Post. Correto? 
Não.

O CDS guarda as modificações feitas no registro em cache... Então ele
guardaria o seguinte:

Inserção do Registro 'A'
Edicao do Registro 'A'

E o meu SQL viria desta forma também... Só que quando eu executar este SQL,
ele PODERÁ dar um erro de chave primária no insert, apesar do Edit.

Então eu pergunto a vocês: O que eu poderia fazer para modifica um registro,
sem alterar o seu estado (Editado/Inserido/Deletado)


Obrigado


Francisco Thiago de Almeida
Enter  Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 







___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

* 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] Tem como alterar VALORES do DataSet SEM ALTERAR O SEU ESTADO???

2005-09-01 Por tôpico jrjuniore
Bom, se eu entendi, há duas formas:

1) faz um select max da sua chave primária e acrescenta + 1;
2) Se a sua chave primária estiver sendo alimentada por um generator então
vc faz o select do generator.


Será que eu entendi o q vc quer ???


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Francisco Thiago
Enviada em: quinta-feira, 1 de setembro de 2005 13:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Tem como alterar VALORES do DataSet SEM ALTERAR O
SEU ESTADO???

Obrigado pela ajuda, mas acho que você não entendeu a pergunta.

Eu já sei como executar o SQL gerado. A questão é que essa procedure minha
que gera o SQL recebe um TClientDataSet e de acordo com a propriedade
UpdateStatus dos registros (usUnModified,usModified,usInserted,UsDeleted)
ela gera um SQL com base nos Dados no TClientDataSet passado como parametro.

Só que neste momento ele ainda não tem o valor da chave!!!

E eu não posso editar este DataSet, pq ele geraria um Update no registro que
acabei de gerar.. Até que isso não seria tanto problema... a questão é que
quando ele executasse o Insert, daria erro de chave primaria

Então a questão é:

Como modifica um valor no ClientDataSet, sem modificar o seu estado???



Obrigado novamente


Francisco Thiago de Almeida
Enter  Plug Informática
Divisão: Desenvolvimento e Banco de dados Franca / SP
msn: [EMAIL PROTECTED]


- Original Message -
From: jrjuniore [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 01, 2005 12:41 PM
Subject: RES: [delphi-br] Tem como alterar VALORES do DataSet SEM ALTERAR O
SEU ESTADO???


Escrever a query de alteração dentro do componente Tquery e executar o
ExecSQL
   ou
Escrever a query de alteração dentro do componente TIbquery e executar o
ExecQuery

e depois de executar uma das duas opções dar o transaction.commit ou
commitRetaining


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Francisco Thiago Enviada em: quinta-feira, 1 de setembro de 2005
12:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tem como alterar VALORES do DataSet SEM ALTERAR O SEU
ESTADO???
Prioridade: Alta

Caros amigos,

Tenho uma procedure que recebe um TClientDataSet como parâmetro e de acordo
com as modificações nele, ela gera um SQL (Insert/Update/Delete). Uso isso
quando um simples ApplyUpdates não basta para salvar os dados.

Só que tenho um problema: Este DataSet não esta com a chave primária
informada ainda (pq esta valor é gerado no servidor de aplicações), e eu
precisava, de alguma forma, atribuir o valor da chave.
Tudo bem, eu poderia dar um Edit, gravar o valor e dar um Post. Correto?
Não.

O CDS guarda as modificações feitas no registro em cache... Então ele
guardaria o seguinte:

Inserção do Registro 'A'
Edicao do Registro 'A'

E o meu SQL viria desta forma também... Só que quando eu executar este SQL,
ele PODERÁ dar um erro de chave primária no insert, apesar do Edit.

Então eu pergunto a vocês: O que eu poderia fazer para modifica um registro,
sem alterar o seu estado (Editado/Inserido/Deletado)


Obrigado


Francisco Thiago de Almeida
Enter  Plug Informática
Divisão: Desenvolvimento e Banco de dados Franca / SP
msn: [EMAIL PROTECTED]






___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/


--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

Links do Yahoo! Grupos












___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/


--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

Links do Yahoo! Grupos











___
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 






___ 
Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 
Participe! www.yahoo.com.br/messenger/promocao


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

ENC: [delphi-br] Erro com o componente DBExpress

2005-08-09 Por tôpico jrjuniore
Creio que se vc usar primeiro o post e logo após o applyUpdates dará certo. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de ANDRE
Enviada em: terça-feira, 9 de agosto de 2005 16:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro com o componente DBExpress

Utilizo o Simpledataset para gravação no banco de dados (Firebird 1.5), o
sistema funcionava até alguns dias, agora em uma das telas quando dou o post
ou applyupdates o sistema não grava no banco, ficando apenas na memória do
computador,. Alguém que já teve este problema teria alguma solução ?
 
 
 

 http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas
 


[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




 






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

* 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] Erro com o componente DBExpress

2005-08-09 Por tôpico jrjuniore
Então, pode ser algum erro em oculto, erro que o programa não exibi, por
exemplo, LOCK CONFLIT ON WAIT TRANSACTION. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre - Yahoo
Enviada em: terça-feira, 9 de agosto de 2005 16:39
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro com o componente DBExpress

Já usei assim:
SimpleDataSet.Post;
SimpleDataSet.ApplyUpdates(0) ou (-1);
 
Já coloquei o ApplyUpdates no AfterPost do Componente, e nada ...
 
Mais alguém teria alguma dica ?
 
 

 http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas
 
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de jrjuniore
Enviada em: terça-feira, 9 de agosto de 2005 16:32
Para: delphi-br@yahoogrupos.com.br
Assunto: ENC: [delphi-br] Erro com o componente DBExpress
 
Creio que se vc usar primeiro o post e logo após o applyUpdates dará
certo. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de ANDRE
Enviada em: terça-feira, 9 de agosto de 2005 16:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro com o componente DBExpress

Utilizo o Simpledataset para gravação no banco de dados (Firebird 1.5),
o
sistema funcionava até alguns dias, agora em uma das telas quando dou o
post
ou applyupdates o sistema não grava no banco, ficando apenas na memória
do
computador,. Alguém que já teve este problema teria alguma solução ?




http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas



[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








  
  

___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/ 


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




  _  

Links do Yahoo! Grupos
* 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 do
http://br.yahoo.com/info/utos.html  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




 






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

* 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

 




ENC: [delphi-br] Erro com o componente DBExpress

2005-08-09 Por tôpico jrjuniore
Não, eu tb tenho este erro de vez em quando mas parece que o que provoca
este erro é a rede pois, se vc olhar o log do interbase vc e encontrar
alguma coisa de inet error 104 e fazer um pesquisa sobre isto irá encontrar
soluções referentes somente a rede.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre - Yahoo
Enviada em: terça-feira, 9 de agosto de 2005 16:55
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro com o componente DBExpress

Alguma idéia de como solucionar ???
 

 http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas
 
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de jrjuniore
Enviada em: terça-feira, 9 de agosto de 2005 16:46
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro com o componente DBExpress
 
Então, pode ser algum erro em oculto, erro que o programa não exibi, por
exemplo, LOCK CONFLIT ON WAIT TRANSACTION. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de Andre - Yahoo
Enviada em: terça-feira, 9 de agosto de 2005 16:39
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro com o componente DBExpress

Já usei assim:
SimpleDataSet.Post;
SimpleDataSet.ApplyUpdates(0) ou (-1);

Já coloquei o ApplyUpdates no AfterPost do Componente, e nada ...

Mais alguém teria alguma dica ?



http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de jrjuniore
Enviada em: terça-feira, 9 de agosto de 2005 16:32
Para: delphi-br@yahoogrupos.com.br
Assunto: ENC: [delphi-br] Erro com o componente DBExpress

Creio que se vc usar primeiro o post e logo após o applyUpdates dará
certo. 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de ANDRE
Enviada em: terça-feira, 9 de agosto de 2005 16:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro com o componente DBExpress

Utilizo o Simpledataset para gravação no banco de dados (Firebird 1.5),
o
sistema funcionava até alguns dias, agora em uma das telas quando dou o
post
ou applyupdates o sistema não grava no banco, ficando apenas na memória
do
computador,. Alguém que já teve este problema teria alguma solução ?




http://www.arwr.com.br
http://www.arwr.com.br
André Luis da Silveira
Desenvolvedor
ARWR Sistemas



[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








  
  

___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/ 


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




  _  

Links do Yahoo! Grupos
* 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 do
http://br.yahoo.com/info/utos.html  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








  
  

___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/ 


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




  _  

Links do Yahoo! Grupos
* 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 do
http://br.yahoo.com/info/utos.html  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

[delphi-br] Alinhamento Central

2005-07-13 Por tôpico jrjuniore
Turma,
 
alguém já consegui alinhar uma fonte qualquer em um componente qualquer que
aceite texto ??  Eu crieu a minha função, no entando, ela só funciona com
fontes que tenham tamanhos iguais.  Será que alguém pode me dar alguma dica
??
 
Junior Coelho


[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] Conversao de string para char

2005-07-05 Por tôpico jrjuniore
Talvez vc não precise transformar podendo executar o copy(var,1,1); 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Florentino - Agrosoft
Enviada em: terça-feira, 5 de julho de 2005 07:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conversao de string para char

Amigos,
Desculpem a pergunta básica, mas procurei na documentação do Delphi e não
encontrei (de repente estava no meu nariz e nao vi!). Como faço para
converter uma variável string (tam=1) em uma variável char ?

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




 






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

* 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] Herança Multipla

2005-05-20 Por tôpico jrjuniore
Turma,
 
alguem pode me dar uma dica sobre implementação de interface no delphi ?/


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

2005-05-10 Por tôpico jrjuniore
Tira as aspas () e coloque dois apóstrofos ('') 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de T a t y S a n t a n a
Enviada em: terça-feira, 10 de maio de 2005 09:48
Para: Grupo de Delphi
Assunto: [delphi-br] AJUDA - SQL

Olá pessoal bom dia, será que alguém poderia me ajudar. To terminando
meu projeto de fim de curso e to fazendo as consultas. Utilizei um Query pra
fazê-las, só que não dá certo.
Preciso pesquisar um produto pelo código dele, pelo nome e pelo fornecedor
daquele produto. Construí a seguinte rotina.

With DM.QPesquisar do
  Begin
SQL.Clear;
SQL.Text := 'Select  A.Cod_produto, A.Descricao, A.valor, C.NOME
From PRODUTOS A, FORNECEDOR C Where C.NOME = '+LPesquisar.Text+' or
A.Descricao= '+descricao.Text+' or A.Cod_Produto ='+cod_produto.Text+ '
and A.COD_FORNECEDOR = C.COD_FORNECEDOR';
Open;
  End;

Não mudei de linha no código SQL aqui é porque não cabe. Aí quando se vai
pra execução quando eu clico no botão onde programei esse SQL ele dá o
seguinte erro.

DYNAMIC SQL ERROR
SQL ERRO COD = - 104
TOKEN UNKNOWN - LINE 1, CHAR 148
END.

Nem sei mais o q testar. Já mudei diversas vezes e nada. Se alguém tiver uma
idéia.

Obrigada..

Taty Santana

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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RES: [delphi-br] Formatar???

2005-05-10 Por tôpico jrjuniore
No evento AfterOpen do componente Tquery coloque a seguinte instrução :

 TNumericField(query.FieldByName('NomeDoCampo')).DisplayFormat :=
'#0.00' + %;  

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo
Enviada em: terça-feira, 10 de maio de 2005 15:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Formatar???

Como vc carrega este grid, é uma query ???


Se for passa a query q t explico.


Agora s for Table eu não tenho nem ideia de como aparecer o '%', mas o valor
é só vc forcar o tipo como asfloat e nao ascurr.


Eduardo
  - Original Message -
  From: pcfernandes1971
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, May 10, 2005 3:01 PM
  Subject: [delphi-br] Formatar???


  Alguem sabe como faço para formatar um campo Moeda no DBGrid e
  transformar em Porcentual?
  Exemplo:
  O campo vem com a formatação na seguinte forma:
  R$ 0,12 e o que eu quero é que mostre 0,12% tem como fazer isso? 




  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília  
 
   



--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





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

2005-03-28 Por tôpico jrjuniore

Pessoal,
 
alguém sabe algum site que poderia falar sobre envio de mensagens SMS usando
a programação DELPHI ?
 
Grato,
 
Junior Coelho.


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

2005-03-24 Por tôpico jrjuniore

Voce precisa saber qual é o layout do arquivo e assim colocar cada parte no
devido campo da tabela.  
Voce pode usar a instrução :

try
  Try
assingFile(arq, caminho do arquivo);
reset(Arq);
While not Eof(Arq)  do
begin
  Readln(arq, linha);

  dentro da variável linha (tipo string), voce terá que retirar as
informações (segundo o layout) e colocá-las nos devidos campos da sua
tabela.
end;

Se a operação for efetivada com sucesso então
inicio
  ShowMessage(Mensagem de sucesso);
  Transaction.commit;
fim
  Except
showMessage(Mensagem de erro);
Transaction.Rollback;
  end;
Finally
  closeFile(arq);
End;
  

-Mensagem original-
De: Debora [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 24 de março de 2005 09:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] 


Bom dia gente. aqui estou eu enchendo vcs de novo. :):):) Gostaria de saber
se alguem tem algum exemplo (pode ser bem simples) de como importar arquivos
texto para dentro de um banco de dados. Eu sou programadora de um cartorio e
as informaçoes bancarias agora serao enviadas por meiod eum disquete. Uso
ibdataset e firebird com delphi 5. O programa ja roda legal so que preciso
fazer com que ele importe esse arquivo,gere o arquivo de retorno. Baixei um
componente chamado boleto bancario mas nao entendi patavina. anexei o
arquivo que vem do banco. desde ja agradecida...
Debora da Silva Costa

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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





RES: [delphi-br] Re: Incluir virgula no resultado

2005-03-23 Por tôpico jrjuniore

Estão faça exatamente assim :

Sql.add('select campo ||' + QuoteDStr(' ,')  + '|| campo from tabela');

-Mensagem original-
De: Joao Morais [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 22 de março de 2005 16:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Incluir virgula no resultado


tiago_econtabil wrote:
 
 Quando coloco ', ' o delphi naum compila.

Arg! Delphi!!

Coloca um

'select campo || '', '' || campo from tabela'

Agora vai.


--
João Morais



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

 





RES: [delphi-br] unavaliable database

2005-03-23 Por tôpico jrjuniore

Isto significa que o banco de dados não está startado 

-Mensagem original-
De: Felipe Pasqualotto [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 22 de março de 2005 17:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] unavaliable database


Boa tarde.

O que pode estrar acontecendo?
Este erro persiste em modo de desenvolvimento, em qualquer tabela.
O Database existe e tudo mais, mas só funciona se eu tiro, abro a tabela,
coloco novamente, daí sim funciona.
Uso o WinXP Pro - Delphi 5 SP1 - IBDataSet - Firebird 1.5.

Abraços
Felipe

--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005
 

 

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

 





RES: [delphi-br] Relatório a partir de TXT.

2005-03-23 Por tôpico jrjuniore

Use o evento onNeedData do TQuickReport. 

-Mensagem original-
De: Rodrigo de Moura [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 23 de março de 2005 10:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Relatório a partir de TXT.


Bom dia Senhores,

Preciso gerar um relatório em QuickReport a partir de um arquivo TXT
diretamente, ou seja, os dados desse TXT não terão vínculo com nenhuma
tabela. Seria uma visualização direta dos dados pelo QuickReport.
Alguém sabe se tem como fazer esse tipo de relatório?? Utilizo Delphi 7.
Qualquer ajuda será bem vinda e obrigado a todos.

Atenciosamente,

Rodrigo de Moura
[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




 






-- 
 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] Filtrar dados.

2005-03-23 Por tôpico jrjuniore

Use o DISTINCT 

select distinct * from vendas
where matricula like '%CURSO%'

-Mensagem original-
De: thiago castro [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 23 de março de 2005 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Filtrar dados.


Pessoal estou com o seguinte problema...
 
faço uma consulta em sql, esta vindo o resultado, mas com matriculas
repetidas como faço para que ele me apresente um só registro de cada
matricula...
 
 
ex...
 
select * from vendas
where matricula like '%CURSO%'
 
RESULTADO
 
50020 CURSO INTENSIVO 20,00
50020 CURSO INTENSIVO 20,00
50020 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50022 CURSO INTENSIVO 20,00
50023 CURSO INTENSIVO 20,00
 






Cada um é uma parcela que ele irá pagar...
eu preciso que saia só um de cada matricula paraa fazer um relatório de quem
comprou o curso.
 
ex...
 
50020 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50022 CURSO INTENSIVO 20,00
50023 CURSO INTENSIVO 20,00
 
valeu pessoal...









-
Yahoo! Acesso Grátis: Instale o novo discador!

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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





RES: [delphi-br] Incluir virgula no resultado

2005-03-22 Por tôpico jrjuniore

Faça assim :

Copie esta linha do jeito que está aqui se der erro por favor me mande o
erro.

select endereco || ', '  || numero from cliente

-Mensagem original-
De: Joao Morais [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 22 de março de 2005 15:55
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Incluir virgula no resultado


tiago_econtabil wrote:

 Pessoal, estou fazendo um select:
 
 select endereco || numero from cliente
 
 e obtenho o resultado: RUA DAS CARMELITAS. Gostaria de colocar uma 
 vírgula entre numero e endereco para me retornar RUA DAS CARMELITAS, 
 . Alguem sabe como fazer?
 já tentei select endereco || ',' || numero , mas dá erro.

Chute de bico:

select endereco || ,  || numero


--
João Morais



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

 





RES: [delphi-br] Ler arquivo texto tabulado

2005-03-22 Por tôpico jrjuniore

O caracter asc é #9 

-Mensagem original-
De: DVJ [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 22 de março de 2005 10:34
Para: Grupo Delphi
Assunto: [delphi-br] Ler arquivo texto tabulado


Ola a todos

Preciso fazer com que um programa leia um determinado arquivo texto, no qual
os campos são separados por tabulações. 

Pergunta: como identificar a tabulação? Há algum caracter em especifico?

Grato



__
Converse com seus amigos em tempo real com o Yahoo! Messenger
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




 






-- 
 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] Calculo com Horas

2005-03-18 Por tôpico jrjuniore

Mas uma horas / 2  não é igual a trinta minutos ??

No entanto, para vc fazer calculo com horas vc deverá transformá-las em
horas centesimais e depois voltá-las a horas decimais !! 

-Mensagem original-
De: Adriano Montagna [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 18 de março de 2005 11:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Calculo com Horas


PessoALL


Preciso fazer um calculo assim:

Hora inicial - Hora Final / intervalo

Bem, eu faço a subtração e ok. se a hora inicial é 5 e a final é 6 tenho 1
hora dai vou dividir 1 h pelo intervalo que é de 30 minutos o resultado
deveria ser 2 mas, retorna Zero. 
O que faço?

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




 






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

2004-12-28 Por tôpico jrjuniore

Turma, 
 
como faço para somar datas via SQL ???
 
Alguem poderia me dar uma ajuda 
 
 
Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [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] De novo time

2004-12-10 Por tôpico jrjuniore

Vc tem que transformar as horas decimais para horas centesimais


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Thiago Felipe [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 10 de dezembro de 2004 14:11
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] De novo time


Como faço para somar horas

14:00 + 18:10 = 32:10



---
Esta mensagem foi verificada pelo Anti-Vírus NetUno.
NetUno Internet - http://www.netuno.com.br



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





-- 
 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: DIAS ÚTEIS

2004-12-01 Por tôpico jrjuniore

Eu criei esta rotina para mim, vê se vira para vc tb.

function DiaUtil(pData : String) : Boolean;
var
  dtCheck : TDate;
  Feriados: String;
  Dia,Mes,Ano : Word;
  DiaMes  : String;
begin
  Result := False;
  //Para alimentar a String com outros feriados, usar formato DD/MM,
seguindo o padrão abaixo:
  Feriados := '01/01 23/02 24/02 09/04 21/04 01/05 10/06 09/07 07/09 12/10
02/11 15/11 25/12';

  dtCheck := StrToDate(pData);
  Result := (dayofweek(dtCheck) in [2..6]);

  DecodeDate(dtCheck,Ano,Mes,Dia);
  DiaMes := FormatFloat('00',Dia) + '/' + FormatFloat('00',Mes);

  if Result then
Result := Pos(DiaMes,Feriados)  1;
end; 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 1 de dezembro de 2004 11:28
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Re: DIAS ÚTEIS


Já testei, é isto mesmo...
só tem um problema...
Segunda Feira de carnaval, não acusa como sendo um feriado (Feriado
Bancário) !
Na redoma, este dia não é um dia útil. (Acho que existem outros feriados que
esta função não considera... vou checar.) Mas ja é uma boa opção para não se
utilizar uma tabela com os feriados, ácho que só precisa de uns ajustes.
[]'s

- Original Message -
From: MOITA [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, December 01, 2004 12:20 PM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS



Moacir,

Pelo que entendi, esta funcao retorna True se a data especificada for um
feriado ? Seria isso mesmo ?
  - Original Message - 
  From: Prisma Sistemas - Moacir
  To: [EMAIL PROTECTED]
  Sent: Wednesday, December 01, 2004 9:50 AM
  Subject: Re: [delphi-br] Re: DIAS ÚTEIS


  Paulo,

  Tenho usado esta função a um bom tempo com resultados satisfatórios:

  Function Ve_Feriado(dData : TDateTime=0) : Boolean;
  var
nMes : Integer;
y,m,d:Word;
G,I,J,C,H,L: Integer;
E:TDateTime;
dSexta : TDateTime;
dCarnaval : TDateTime;
ano : integer;
  const
 FERIADOSFIXOS  : Array [1..12] of String =('01~',   // Jan
'',  // Fev
'',  // Mar
'21~',   // Abr
'01~',   // Mai
'',  // Jun
'',  // Jul
'',  // Ago
'07~',   // Set
'12~',   // Out
'02~15~',// Nov
'25~');  // Dez

  Begin
If dData=0 then
   Result:=False
else
Begin
   Try
 nMes  :=StrToInt(FormatDateTime('mm',dData));
   except
 nMes  :=0;
   end;
   If (nMes1) or (nMes12) then
  Result:=False
   else
  Result:=Pos(FormatDateTime('dd',dData),FERIADOSFIXOS[nMes] )0;
end;
  // Calcula o Feriado de Carnaval e Sexta-Feira Santa
DecodeDate(dData, Y, M, D);
ano := y;
G := ano mod 19;
C := ano div 100;
H := (C-C div 4-(8*C+13) div 25 + 19*G+15)mod 30;
I := H-(H div 28)*(1-(H div 28)*(29 div(H+1))*((21-G)div 11));
J := (ano + ano div 4 +I+2-C+C div 4) mod 7;
L := I-J;
m := 3+(L+40) div 44;
d := L+28-31*(m div 4);
//y := ano;
E := EncodeDate(y,m,d);
While DayOfWeek(E)1 do
  E := E+1;
//--- Sexta-feira Santa
dSexta := E - 2;
//--- Carnaval
dCarnaval := E - 47;
If (dData = dSexta) Or (dData = dCarnaval) then
   Result := True;
  End;


  [ ]´s
  Moacir


  - Original Message - 
  From: drummondfilho [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Wednesday, December 01, 2004 8:59 AM
  Subject: [delphi-br] Re: DIAS ÚTEIS




  Gostaria de ajudar a montar o algoritmo se você puder me passar a
  tabela de feriados ficaria muito feliz em poder ajudar.

  []'s
  Paulo Drummond Filho
  [EMAIL PROTECTED]





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

  Links do Yahoo! Grupos











  -- 
  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004




  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

RES: [delphi-br] Horas x Valor

2004-10-28 Por tôpico jrjuniore

Não, pois vc tem que transformar  03:45 (horas decimais) em 3,75 (horas
centesimais), sendo assim, ficará o seguinte:

3,75 *7,50 = R$28,125;


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Weber Luvisa [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 28 de outubro de 2004 09:53
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Horas x Valor



Preciso qualcular que valor será pago por x horas trabalhadas..

exemplo. 3:45 * 7,50 = 







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

 





RES: [delphi-br] Erro Excluir

2004-10-28 Por tôpico jrjuniore




Faltou: BancoData.tblSAEUsuario.Insert ou
BancoData.tblSAEUsuario.Edit

Antes de executar a linha abaixo;

   BancoData.tblSAEUsuario.Post;
   BancoData.dtbsConexao.CommitRetaining; 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: alisson_delphi [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 28 de outubro de 2004 11:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Erro Excluir



Sou novato em programação e gostaria que vcs me ajudassem pois eu
coloquei algumas linhas de comando no botão Excluir... 

procedure TfrmSAECadUsuario.btnExcluirClick(Sender: TObject); begin
  inherited;
  try
 BancoData.tblSAEUsuario.Open;
frmSAEManuUsuario := TfrmSAEManuUsuario.Create(Self);
frmSAEManuUsuario.barraInfo.Caption := 'Confirmar inclusão de dados
?';
Operacao := oprExcluir;
 dbgrdConsulta.DataSource.DataSet.Delete;
frmSAEManuUsuario.ShowModal;
  except
on E:Exception do begin
MessageDlg('Ocorreu um erro ao tentar excluir o
registro selecionado !!!' + #13#10 +
  'Erro = ' + E.Message,mtError, [mbOk],0);
TpFibDataSet
(dbgrdConsulta.DataSource.DataSet).Transaction.RollbackRetaining;
 end;
  end;

E no meu botão de Confirmação Coloquei Esses código

if Operacao = oprExcluir then begin
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.Delete;
  end
  else if Operacao in [oprIncluir,oprAlterar] then begin
   BancoData.tblSAEUsuario.Post;
   BancoData.dtbsConexao.CommitRetaining;
   Close;
  end;
if frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.State 
dsBrowse then begin
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Cancel;
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Transaction.Rollba
ckRetaining;
  end
  else begin
orCommit( TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ) );
  end;

Mais está dando um erro que eu naum estou conseguindo encontrar O
seguinte erro

TBLUSUARIO: DATASER NOT IN EDIT OR INSERT MODE

Alguém poderia me ajudar.
Desde já pesso desculpas por eu ser um pouco leigo e estar fazendo algo
errado







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

 





RES: [delphi-br] ApplyUpdates(-1)???

2004-10-28 Por tôpico jrjuniore

No OnUpdateError faça o seguinte:

Mensagem := e.message;


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Joubert Rinaldi [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 28 de outubro de 2004 16:48
Para: [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Assunto: [delphi-br] ApplyUpdates(-1)???


Amigos,

Qual seria o procedimento mais aconselhado caso um ApplyUpdates(-1) retorne
erros? Tipo, exibir a msg do banco, personalizar a msg ou oq?

--
MSN: [EMAIL PROTECTED]


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





-- 
 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] Exibir data do sistema no relatório

2004-10-26 Por tôpico jrjuniore

Faça o seguinte:

lbData.caption :=  formatDateTime('Rio de Janeiro,  dd de  de
) ;


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: er83pet04 [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 26 de outubro de 2004 12:15
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Exibir data do sistema no relatório



Estou querendo exibir no meu relatório a data do sistema. Para fazer isso
coloquei:

var
  Present: TDateTime;
  Year, Month, Day : Word;
begin
   Present:= Now;
   DecodeDate(Present, Year, Month, Day);

   lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
IntToStr(Month) + ' de ' + IntToStr(Year);

Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004.

Como faço para exibir o mês por extenso? 
Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004.

Existe alguma função específica para isso?

Obrigada





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

 





RES: [delphi-br] Acentuação em Pesquisa!!!

2004-10-22 Por tôpico jrjuniore

Faça assim:

Ex:
Query1.sql.add( 'Select * from tabela where  upper(nome) like ' +
upperCase(QuotDStr('%' + edit1.text + '%') ));


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Marcello [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 15:40
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Acentuação em Pesquisa!!!


legal danilo, eu já uso essa função, mas acho que vc num entendeu minha
dúvida, quero poder gravar informações no banco e depois efetuar buscas sem
problemas independente de acentos ou não, cito o exemplo que passei
novamente:
 
eu queria dar a liberdade do usuário pesqusar independente de acento por
exemplo, se ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo
 
entendeu? mas pra eu fazer essa busca eu teria que ter uma função que
removesse acentos no banco tb.

  _  

De: Danilo Antonio Leite [mailto:[EMAIL PROTECTED] Enviada em:
sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Acentuação em Pesquisa!!!


Aí vai uma função que remove acento. Você pode acrescentar os caracteres
esperados e substituir pelos que desejar.
Espero que ajude.

function TFrmPerformanceOper.RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;

Atenciosamente,

Danilo Antônio Leite
Arcadian Tecnologia SA
[EMAIL PROTECTED]
(31)3241-8228 ramal 216

  _  

 
De:  Marcello  [mailto: [EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] .com.br] 
Enviada em: sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Acentuação em Pesquisa!!!




Pessoal, qual a melhor forma de se trabalhar com pesquisas quando os dados
gravados no Banco de Dados estão acentuados? Hoje eu forço os dados a serem
gravados sem acentuação nenhuma e nas pesquisas eu limpo a acentuação antes
de pesquisar. Mas e se eu quisesse salvar os dados com acentuação, eu queria
dar a liberdade do usuário pesqusar independente de acento por exemplo, se
ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo. Existe tb o
problema quando é maiúsculo ou minúsculo. Como vcs resolvem esse
problema Existe alguma função par IB que remova acentuação?



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





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

2004-10-18 Por tôpico jrjuniore

Vc só pode relacionar tabelas através de bancos relacionais Ex.  Interbase,
Oracle, SQLServer, etc. 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Primorth [mailto:[EMAIL PROTECTED] 
Enviada em: sábado, 16 de outubro de 2004 18:37
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Relacionar tabelas



Em que banco? Tipo uma constraint?
  - Original Message -
  From: mjpessi_27
  To: [EMAIL PROTECTED]
  Sent: Saturday, October 16, 2004 11:03 AM
  Subject: [delphi-br] Relacionar tabelas



  Queria saber como relaciono minhas tabelas sem usar o form Wizard

  Obrigado Marius





  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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



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

   



--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 




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






--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





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

2004-10-15 Por tôpico jrjuniore

Galera,
 
estou precisando de grana, se alguém ficar sabendo de algum trabalho de free
lancer por aí, estou à disposição.
 
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [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

 





[delphi-br] FindWindow

2004-10-14 Por tôpico jrjuniore

Galera,
 
alguém sabe me dizer como uso a função FindWindow, ou se alguém tem um
exemplo com esta função 
 
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [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] Limpar todos os edits

2004-10-14 Por tôpico jrjuniore

For i := 0 to Form.ComponentCount - 1 do
  if Form.Components[i] is Tedit then
(Form.Components[i] as Tedit).Clear


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Gercil Junio [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 14 de outubro de 2004 13:30
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Limpar todos os edits


Daniel,
Nenhuma das duas formas deu certo!
Obrigado!
---

ComponentCount e Components são propriedades da classe TForm. Note que a
procedure que você escreveu (LimparCampos) não é um membro da classe que
corresponde ao seu formulário, pois isto os identificadores não estão sendo
reconhecidos.

Para resolver isto você tem duas opções (ou talvez até mais!):

1. Declarar a procedure LimparCampos como um membro da classe do seu
formulário. Declare a procedure na seção private (ou public, conforme a
necessidade de visibilidade) e na implementação da procedure, preceda seu
nome com o nome da classe, como mostra o exemplo:

{...}
private
  procedure LimparCampos;
{...}

implementation

procedure TNomeDoSeuForm.LimparCampos;
begin
  {...}
end;

2. Ou então você passa o formulário como parâmetro para a procedure, como
mostra o exemplo:

procedure LimparCampos(Formulario: TForm); var
i : Integer;
begin
for i := 0 to Formulario.ComponentCount -1 do
  if Formulario.Components[i] is TEdit then
  TEdit(Formulario.Components[i]).Text := ''; end;

Esta forma é mais genérica, permitindo seu uso com qualquer formulário sem
multas complicações. Bastará chamá-la assim:

LimparCampos(SeuFormulario);

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











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

 





RES: [delphi-br] Fechar uma Tela, Fecha Tudo.

2004-10-14 Por tôpico jrjuniore

Ao invés de chamar a tela pelo SHOW chame-o pelo showModal e com certeza
dará certo o q vc quer fazer !!! 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Mauro Pena [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 14 de outubro de 2004 11:13
Para: Undisclosed-Recipient:;
Assunto: [delphi-br] Fechar uma Tela, Fecha Tudo.


Pessoal...  

Estou com o seguinte problema... 
Tenho o form principal, e um botão. 

Qdo eu clico nesse botão eu tenho o código: 
  Application.CreateForm(TFrmHistCli,FrmHistCli);
  FrmHistCli.Show;

No form: FrmHistCli  eu tenho o botão fechar. com o seguinte código:
Close;

Só que qdo eu aperto esse botão, não fecha apenas o FrmHistCli, mais tb o
programa todo ! 



Mauro Pena
__
Associados Digitais
7 setembro, 43 - 8o. andar
Centro - Rio de Janeiro - RJ

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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





RES: [delphi-br] Como fazer consultas

2004-10-07 Por tôpico jrjuniore

Select * from tabela where tabela.rg = rg 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Erika [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 7 de outubro de 2004 12:54
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Como fazer consultas



Boa tarde.

Eu estou começando a usar o delhi. Fiz um banco em Access, conectei através
da paleta ADO e consegui fazer uns cadastros.
Agora eu queria fazer uma consulta. Queria colocar o Rg de um cliente e ver
os seus dados. Como eu faço isso? 
Obrigado!
[]'s





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

2004-10-06 Por tôpico jrjuniore

Pessoal, gostaria de saber como faz para executar um atalho de um programa
qualquer.  Será que alguém poderia me ajuda ??
 
Desde já,
 
obrigado.
 
 
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [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

 





[delphi-br] CreateProcess

2004-09-29 Por tôpico jrjuniore
Por favor,
 
alguém sabe me dizer como funciona a rotina do CreateProcess ???
 
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [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] CreateProcess

2004-09-29 Por tôpico jrjuniore
Blz, mas será que tem como eu deixar a minha aplicação criada, como
showModal, em relação a aplicação que criou o processo ?? 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: FS Under [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 29 de setembro de 2004 09:06
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] CreateProcess

Josué,

 Ele cria uma chamada ao processo específico na tabela de processos no
sistema operacional, não está ligado a aplicação, podendo vc terminar a
aplicação que o processo permance ativo.

Ex:

var
  StartupInfo : TStartupInfo;
  ProcessInfo : TProcessInformation;
begin
  FillChar(StartupInfo,Sizeof(TStartupInfo),0);
  with StartupInfo do
  begin
cb := Sizeof(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWNORMAL;
  end;

 
CreateProcess(PChar('c:\winnt\system32\notepad.exe'),nil,nil,nil,False,
   
REALTIME_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);
  Application.ProcessMessages;
  Application.Terminate;

 O notepad vai continuar sendo executado mesmo que a sua aplicação
feche.

 O createprocess, como cria uma entrada no SO, cria então uma thread no
SO, o flag REALTIME_PRIORITY_CLASS diz que este será de máxima prioridade,
mas tem mais outros 3 flags, na Windows.pas.
 Para saber mais como funciona a tabela de processos e o fork de
processos de um SO, tem um livro do Andrew S. Tanenbaum - Sistemas
Operacionais Modernos, que é muito bom.

[]'s
Fabiano Freitas

 --- jrjuniore [EMAIL PROTECTED] escreveu: 

-
Por favor,
 
alguém sabe me dizer como funciona a rotina do CreateProcess ???
 
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [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]



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! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 



RES: [delphi-br] Gerar etiquetas

2004-09-15 Por tôpico jrjuniore
Não sei ??? 


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: spp_delphi [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 15 de setembro de 2004 12:33
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Gerar etiquetas

Mas não teria como fazer isso, usando alguma API ou dll específica???
[]'s
Sheila
  - Original Message -
  From: jrjuniore
  To: [EMAIL PROTECTED]
  Sent: Wednesday, September 15, 2004 11:21 AM
  Subject: RES: [delphi-br] Gerar etiquetas


  Talvez no seu caso teria que criar vários relatorios para cada etiqueta,
ou
  parametrizar suas bandas do relatorio para cada tipo de etiqueta.


  Júnior Coelho.
  Desenvolvimento de Sistemas
  * (11) 3266 - 1286
  * (11) 7175 - 1885
  * [EMAIL PROTECTED]

  -Mensagem original-
  De: spp_delphi [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 15 de setembro de 2004 11:02
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Gerar etiquetas


  Bom dia, amigos!
  Tenho um relatório de etiquetas para correspondência, mas nunca vou saber
  qual tipo de etiqueta o usuário está usando, pode pimaco, avery etc.
  Alguém sabe como posso inserir aquela opção que tem no Word, por exemplo,
em
  que o usuário informa qual tipo de etiqueta está usando??? 
  Preciso disso para adaptar o meu relatório para imprimir em qualquer tipo,
  antes da impressão.
  Alguém pode me ajudar
  []'s
  Sheila 


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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

  Links do Yahoo! Grupos










  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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



Yahoo! Grupos, um serviço oferecido por: 
  



--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 



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