DBEdit.Clear; //mas não limpa o edit... alguém já viu isso??
Olá e desde já obrigado por ter vindo...
Essa é uma que eu nunca vi na minha vida...
o evento OnExit do Edit eu faço uma consulta para saber se o código existe no banco,
se existe eu quero colocar os dados nos outros edits.. e isso ocorre normalmente
o problema é que se não existe eu quero que apague o número escrito... simples DBEdit.Clear e some tudo né??? Errado!! ele não está apagando... o que será que está acontecendo... a lógica é a seguinte:
//[i:8f92e7bd16]pesquisar pra dizer se o paciente foi encontrado[/i:8f92e7bd16]
[b:8f92e7bd16]frmDtmDados.ExecutaPesquisa[/b:8f92e7bd16](´SELECT CODIGO, NOME,+
ENDERECO, BAIRRO, CIDADE, UF, CEP, PONTOREFERENCIA, CODIGOCONVENIO ´+
´FROM TABPESSOAS ´+
´WHERE CODIGO = ´+edtCodPaciente.Text);
//[i:8f92e7bd16]se o paciente não foi encontrado apaga o cod digitado[/i:8f92e7bd16]
[b:8f92e7bd16]if trim(frmDtmDados.qryPesquisa.FieldByName[/b:8f92e7bd16](´CODIGO´).Text) = ´´ then begin
edtCodPaciente.Clear; [i:8f92e7bd16]//Aqui que era pra limpar não limpa[/i:8f92e7bd16]
[b:8f92e7bd16]end;[/b:8f92e7bd16]
Fico no aguardo aqui... abraços a todos :D
Essa é uma que eu nunca vi na minha vida...
o evento OnExit do Edit eu faço uma consulta para saber se o código existe no banco,
se existe eu quero colocar os dados nos outros edits.. e isso ocorre normalmente
o problema é que se não existe eu quero que apague o número escrito... simples DBEdit.Clear e some tudo né??? Errado!! ele não está apagando... o que será que está acontecendo... a lógica é a seguinte:
//[i:8f92e7bd16]pesquisar pra dizer se o paciente foi encontrado[/i:8f92e7bd16]
[b:8f92e7bd16]frmDtmDados.ExecutaPesquisa[/b:8f92e7bd16](´SELECT CODIGO, NOME,+
ENDERECO, BAIRRO, CIDADE, UF, CEP, PONTOREFERENCIA, CODIGOCONVENIO ´+
´FROM TABPESSOAS ´+
´WHERE CODIGO = ´+edtCodPaciente.Text);
//[i:8f92e7bd16]se o paciente não foi encontrado apaga o cod digitado[/i:8f92e7bd16]
[b:8f92e7bd16]if trim(frmDtmDados.qryPesquisa.FieldByName[/b:8f92e7bd16](´CODIGO´).Text) = ´´ then begin
edtCodPaciente.Clear; [i:8f92e7bd16]//Aqui que era pra limpar não limpa[/i:8f92e7bd16]
[b:8f92e7bd16]end;[/b:8f92e7bd16]
Fico no aguardo aqui... abraços a todos :D
Btovix
Curtidas 0
Respostas
Btovix
04/03/2005
Olha eu Aqui de novo
Antes que alguém pergunte eu percebi que eu esqueci de mencionar que mesmo tentando apagar valor do campo na query não consigo apagar o que está escrito no dbedit... continuo no aguardo de alguma dica...
Abraços a todos :D
Antes que alguém pergunte eu percebi que eu esqueci de mencionar que mesmo tentando apagar valor do campo na query não consigo apagar o que está escrito no dbedit... continuo no aguardo de alguma dica...
Abraços a todos :D
GOSTEI 0
Sandra
04/03/2005
btovix,
Acredito que é devido ao ´DBEdit´. Nesse caso, você deveria utilizar um edit comum.
Faça um teste. :D
Acredito que é devido ao ´DBEdit´. Nesse caso, você deveria utilizar um edit comum.
Faça um teste. :D
GOSTEI 0
Btovix
04/03/2005
Essa é uma daquelas que a resolução tá na sua cara, ams vc não conegue ver...
foi só trocar ao invés de apagar o dbedit, limpei o campo na query... uma vez que ele seria novamente atualizado após o cadastro...
valeu pela força amigão e até um outro dia... bom fds pra todos :D
Olha o código como ficou...:
frmDtmDados.ExecutaPesquisa(´SELECT CODIGO, NOME,+
ENDERECO, BAIRRO, CIDADE, UF, CEP, PONTOREFERENCIA, CODIGOCONVENIO ´+
´FROM TABPESSOAS ´+
´WHERE CODIGO = ´+edtCodPaciente.Text);
//se o paciente não foi encontrado apaga o cod digitado
if trim(frmDtmDados.qryPesquisa.FieldByName(´CODIGO´).Text) = ´´ then begin
qrySaidas.FieldByName(´CODIGOPACIENTE´).Value:= null;
end;
foi só trocar ao invés de apagar o dbedit, limpei o campo na query... uma vez que ele seria novamente atualizado após o cadastro...
valeu pela força amigão e até um outro dia... bom fds pra todos :D
Olha o código como ficou...:
frmDtmDados.ExecutaPesquisa(´SELECT CODIGO, NOME,+
ENDERECO, BAIRRO, CIDADE, UF, CEP, PONTOREFERENCIA, CODIGOCONVENIO ´+
´FROM TABPESSOAS ´+
´WHERE CODIGO = ´+edtCodPaciente.Text);
//se o paciente não foi encontrado apaga o cod digitado
if trim(frmDtmDados.qryPesquisa.FieldByName(´CODIGO´).Text) = ´´ then begin
qrySaidas.FieldByName(´CODIGOPACIENTE´).Value:= null;
end;
GOSTEI 0
Eniorm
04/03/2005
Uma sugestão, tente usar assim:
Abraços,
DBEdit1.Text := ´´;
Abraços,
GOSTEI 0
Btovix
04/03/2005
Obrigado pela dica amigo.. mas isso não dá certo..
Uma vez que o dbedit é linkado com o campo que é chamado na query eu só consigo apagar o que estiver escrito no dbedit se eu apagar o que estiver na query tambem... por isso que tenho que ir na query apagar o campo... :)
[]´s
Uma vez que o dbedit é linkado com o campo que é chamado na query eu só consigo apagar o que estiver escrito no dbedit se eu apagar o que estiver na query tambem... por isso que tenho que ir na query apagar o campo... :)
[]´s
GOSTEI 0
Eniorm
04/03/2005
Bom, então tenta assim
SuaQueryNomedoFieldLinkado.AsString := ´´;
SuaQueryNomedoFieldLinkado.AsString := ´´;
GOSTEI 0
Btovix
04/03/2005
Ênio... Brigadão cara... essa tua forma eu vi ue funciona também.. mas eu estou usando uma forma que eu mostrei acima... não é melhor nem pior... já está lá escrita não vou ficar mudando pq funciona também...
Abração e valeu a força.... té mais!!
Abração e valeu a força.... té mais!!
GOSTEI 0