O que isso tem a ver com a mensagem? Tô começando a entender (e dar razão) ao 
mau humor do Rubem... 

Esse tipo de post realmente é meio cansativo...

Atte,
Ricardo.

"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"

--- Em sex, 17/4/09, jamilton oliveira felix <ton...@hotmail.com> escreveu:
De: jamilton oliveira felix <ton...@hotmail.com>
Assunto: RE: [delphi-br] p/ rubens
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 17 de Abril de 2009, 19:52











    
            
            


      
      

eae galera tem algem ai q pode me ajudar a resolver esse problema aqui quanto 
pego o segundo indice do combo box para gravar as alteracoes ele grava no 
primeiro tambem olha o codigo 



ADOTable1.Edit;

Resultado:=estoquea tual+quantidadei nformada; //SOMA AO ESTOQUE

ADOTable1.FieldByNa me('estoque_ atual').AsString :=floattostr( Resultado) ;

ADOTable1.Post;

ADOTable1.Next;

ADOTable2.Last;

ADOTable2.Insert;

ADOTable2.FieldByNa me('data' ).AsString: =Edit1.Text;

ADOTable2.FieldByNa me('produto' ).AsString: =DBLookupComboBo x1.Text;

ADOTable2.FieldByNa me('descisao' ).AsString: =DBEdit1. Text;

ADOTable2.FieldByNa me('entrada/ saida').AsString :='E';

ADOTable2.FieldByNa me('quantidade' ).AsString: =edit4.Text;

ADOTable2.FieldByNa me('val_total' ).AsString: =edit5.Text;

//ADOTable2. FieldByName( 'fornecedores' ).AsString: =DBLookupComboBo x2.Text;

//ADOTable2. FieldByName( 'departamento' ).AsString: =DBLookupComboBo x3.Text;

ADOTable2.Post;



ADOTable2.Last;



por favor ajudem -me



To: delphi...@yahoogrup os.com.br

From: mutu...@yahoo. com.br

Date: Fri, 17 Apr 2009 15:17:08 -0700

Subject: [delphi-br] p/ rubens



off



rubens uma coisa q nao consegui eh fazer com que a aplicacao q cria umas 
threads q fazem conexao e consultas com o banco mysql usando zeos fique 
independente da espera das consultas.. tipo usando ou nao thread a minha 
aplicacao fica aguardando a consulta sql terminar..



somente fazendo as conexoes q fica assim se for pra fazer qualquer outra coisa 
trabalha como varias tread normalmente. .



oq minha aplicacao faz:



uma tela com varios clientes e status do meu programa de update onde fica um 
timer gerenciando os alertas e cores da mesma..



as treads: fazem as consultas sql no meu servidor para atualizar as informacoes 
no form principal...



pq n coloco o timer em treads: pq o form principal executa algumas funcoes qndo 
dou cliques em alguns lugares..assim n executaria se as consultas tivesse nele..



sera q essa unit q vc passou resolveria meu problema?



uso mysql 4 e zeos 5



Leandro...    [> Mutuka <]



--- Em sex, 17/4/09, Rubem Nascimento da Rocha <djpardalrocha@ hotmail.com> 
escreveu:



De: Rubem Nascimento da Rocha <djpardalrocha@ hotmail.com>

Assunto: RE: [delphi-br] Carregar XML sem parar aplicação

Para: "delphi-br" <delphi...@yahoogrup os.com.br>

Data: Sexta-feira, 17 de Abril de 2009, 13:05



Crie uma classe descendente de TThread para efetuar o carregamento de arquivos 
XML. Depois, instancie um objeto dessa classe para cada arquivo XML a ser 
carregado. É uma alternativa. Uma outra alternativa é se informar sobre uma 
unit chamada AsyncCalls, que permite executar várias rotinas ao mesmo tempo, 
sem a necessidade de criar classes TThread. Informe-se sobre AsyncCalls em 
http://singularsist emas.com. br/blog/2008/ 05/asynccalls- execute-funcoes- 
asincronas/ .



Boa sorte.



Sds.



To: delphi...@yahoogrup os.com.br



From: rodinei_amorim@ hotmail.com



Date: Fri, 17 Apr 2009 12:58:31 -0300



Subject: [delphi-br] Carregar XML sem parar aplicação



Srs.



Boa tarde, tenho uma aplicação onde necessito abrir vários XML (no evento on 
Show do form) e esses arquivos são relativamente grandes. Então pensei, em 
gerar algo onde pudesse deixar estes arquivos carregndo (do Xml pro Dataset) de 
forma transparente para o usuário. Uso estes XML's para consultas simples.



Ex: Lançando um título abro:



a) Dados dos clientes



b) Dados de condições de Pagamento



c) Dados de Contas Contábeis



Eu preciso abrir no OnShow. O que quero é abri-los de maneira que o usuário não 
perceba isto.



Se alguém tiver alguma idéia me ajudaria muito.



Abs e obrigado a todos.



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



____________ _________ _________ _________ _________ _________ _



Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!



http://specials. br.msn.com/ ilovemessenger/ pacotes.aspx



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



Veja quais são os assuntos do momento no Yahoo! +Buscados

http://br.maisbusca dos.yahoo. com



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



____________ _________ _________ _________ _________ _________ _

Faça já uma busa e ganhe um wink do Messenger. Está esperando o que? É grátis!

http://www.ibud. com.br/



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




 

      

    
    
        
         
        
        








        


        
        


      Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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

Responder a