terça-feira, 29 de setembro de 2009

Faz validação de campos impedindo a inserção de registros duplicados

Function ValidaCampo(Table: TTable; Text: Array of const;Indice:String):Boolean
// Esta função deve ser colocada no Evento on SetText do Campo que você deseja fazer a validação
var
Tabela : TTable;
begin
Tabela := TTable.Create(Application);
Tabela.DatabaseName := Table.DataBaseName;
Tabela.TableName := Table.TableName;
Tabela.Open;
Tabela.IndexFieldNames := Indice;
if Tabela.FindKey(Text) then
begin
Result := False;
Tabela.Free;
Abort;
end
else
begin
Result := True;
Tabela.Free;
end;
end;

Nenhum comentário:

Postar um comentário