Pode não ser a melhor solução do mundo, mas se vc fizer:
if (Length(Trim(QueryCidade.FieldByName('cidade').AsString)) = 0) then
begin
MessageBox (Application.Handle, pchar ('NOME DA CIDADE ESTÁ EM BRANCO'), 'ATENÇÃO', MB_DEFBUTTON1);
DBcidade.Setfocus;
exit;
end;
não resolve?
Abraços..
Cleber de Luca
Emicol Eletro Eletrônica S/A
www.emicol.com
[EMAIL PROTECTED]
Fone: (11) 4024-9931
Nota: As informações desta mensagem podem ser confidenciais. Portanto, a distribuição ou cópia da mesma é estritamente proibida. Se você recebeu este e-mail erroneamente, por favor notifique-nos respondendo à mensagem, e elimine-a de seu computador.
Obrigado Emicol - Segurança da Informação.
Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE.
.
>>> [EMAIL PROTECTED] 20/04/2006 09:19:12 >>>
Olá pessoal...
Estou com um pequeno problema do qual não estou conseguindo resolver, mas do qual acredito que não seja de difícil solução.
O que acontece é o seguinte:
Tenho um formulário de cadastro de cidade em que coloquei um pequeno código pra garatir que o usuário não salve o cadastro com o nome da cidade em branco.
if QueryCidade.FieldByName('cidade').IsNull then
begin
MessageBox (Application.Handle, pchar ('NOME DA CIDADE ESTÁ EM BRANCO'), 'ATENÇÃO', MB_DEFBUTTON1);
DBcidade.Setfocus;
exit;
end;
Quando o usuário deixa o campo em branco e sai dele sem digitar nada está funcionando direitinho. No entanto, quando o usuário digita um nome qualquer e depois apaga esse nome sai do campo deixando ele em branco o formulário assume um caracter em banco (' ') e assim salva normalmente no banco de dados, mesmo estando com o campo em branco e o campo ser do tipo not null.
Estou usando delphi 7 e my sql 4.1.
Se alguém puder me dar uma luz de como resolver este problema ficarei muito grato.
Um grande abraço a todos
Cleiton
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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!.
.
[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]
| 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!.
