USANDO IF

11/03/2016

1

O QUE ESTÁ ERRADO?

procedure TDataModule1.ADOTable1BeforePost(DataSet: TDataSet);
begin
//TESTANDO SE DEFICIENTE
IF (ADOTable1PortDeficiencia.AsString<>'NÃO') THEN
BEGIN
ShowMessage('Digite a deficiência');
abort;
END
else IF(ADOTable1TipoDeficiencia.AsString<>'') then
BEGIN
showmessage ('Registro salvo com sucesso');
ADOTable1.Post;
//ShowMessage(''Aguarde o Processamento'');
end;
END;
Responder

Post mais votado

11/03/2016

Luciano por gentileza utilize a tag code quando for postar trechos de código:
[img]http://arquivo.devmedia.com.br/forum/imagem/269142-20160311-075302.png[/img]

O QUE ESTÁ ERRADO?

Quanto a sua dúvida eu quem pergunto, o que deu errado?
Responder

Mais Posts

11/03/2016

P2

Bom dia, Luciano o ideal é você realizar as validações antes antes realizar seu post na tabela.

Supomos que você tem um campo no form, que é informado se a pessoa é portador de deficiência ou não.

1.Você cria uma procedure de validação pré post, a mesma vai realizar as verificações e permitir ou não gravar o registro.
Responder

11/03/2016

Rafael Bosco

Parece que não é só eu que da um ruim em ver código sem as tag do DevMedia kakakaka

Enfim, conforme o William comentou, aparentemente não tem nada de errado, a não ser que no banco de dados a palavra esteja como NAO, e você está fazendo uma conferência utilizando :
   ADOTable1PortDeficiencia.AsString = 'NÃO'
Responder