function ValidaCampo(Tabela: TClientDataSet): Boolean;
var
i: integer;
begin
Result := False;
for i := 0 to Tabela.Fields.Count - 1 do {Fields,Campos}
if Tabela.Fields.Fields[i].Required then {Required-Necessário}
if (Tabela.Fields[i].IsNull) or (Tabela.Fields[i].AsString = '') then begin
Application.MessageBox(PChar('Não é possivel gravar o registro!'+#13+'Preencha o campo '+Tabela.Fields[i].DisplayLabel+'.'), 'Atenção', MB_ICONEXCLAMATION);
Tabela.Fields[i].FocusControl;
Result := True;
Break;
end;
end;
Gostaria de saber o que realmente essa função esta se propondo a fazer, pois recebi de um amigo e a uso em forms de cadastros diferente , só que um um funciona eu gravo e ele gera um codigo automatico no outro ele da a msn 'Não é possivel gravar o registro 'Preencha o campo codigo
Function
Started By babal, 09/07/2009, 09:10
Nenhuma resposta neste tópico
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)