USANDO IF
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;
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;
Luciano
Curtidas 0
Melhor post
William
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]
Quanto a sua dúvida eu quem pergunto, o que deu errado?
[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?
GOSTEI 1
Mais Respostas
Raimundo Pereira
11/03/2016
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.
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.
GOSTEI 0
Rafael Bosco
11/03/2016
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 :
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'
GOSTEI 0