Fórum DBEdit.Clear; //mas não limpa o edit... alguém já viu isso?? #270979
04/03/2005
0
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
Curtir tópico
+ 0Posts
04/03/2005
Btovix
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
04/03/2005
Sandra
Acredito que é devido ao ´DBEdit´. Nesse caso, você deveria utilizar um edit comum.
Faça um teste. :D
Gostei + 0
04/03/2005
Btovix
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
04/03/2005
Eniorm
DBEdit1.Text := ´´;
Abraços,
Gostei + 0
07/03/2005
Btovix
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
07/03/2005
Eniorm
SuaQueryNomedoFieldLinkado.AsString := ´´;
Gostei + 0
07/03/2005
Btovix
Abração e valeu a força.... té mais!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)