Buscar

Validando campos em tabelas

Código

//No evento OnValidate digite:

procedure TForm1.Table1CompanyValidate(Sender: TField);
begin
if Sender.AsString='' then
Raise EDatabaseError.Create('Preencha os campos Obrigatorios');
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 05/08/03
Por: Mario C. Neto
Visualizada: 2544 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009