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:=estoqueatual+quantidadeinformada; //SOMA AO ESTOQUE
ADOTable1.FieldByName('estoque_atual').AsString:=floattostr(Resultado);
ADOTable1.Post;
ADOTable1.Next;
ADOTable2.Last;
ADOTable2.Insert;
ADOTable2.FieldByName('data').AsString:=Edit1.Text;
ADOTable2.FieldByName('produto').AsString:=DBLookupComboBox1.Text;
ADOTable2.FieldByName('descisao').AsString:=DBEdit1.Text;
ADOTable2.FieldByName('entrada/saida').AsString:='E';
ADOTable2.FieldByName('quantidade').AsString:=edit4.Text;
ADOTable2.FieldByName('val_total').AsString:=edit5.Text;
//ADOTable2.FieldByName('fornecedores').AsString:=DBLookupComboBox2.Text;
//ADOTable2.FieldByName('departamento').AsString:=DBLookupComboBox3.Text;
ADOTable2.Post;
ADOTable2.Last;
por favor ajudem -me
To: delphi-br@yahoogrupos.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 <djpardalro...@hotmail.com>
escreveu:
De: Rubem Nascimento da Rocha <djpardalro...@hotmail.com>
Assunto: RE: [delphi-br] Carregar XML sem parar aplicação
Para: "delphi-br" <delphi-br@yahoogrupos.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.maisbuscados.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]
