Procedure muito útil, para ser utilizada antes de gravar um cadastro.

• Download tratar campo not null.txt
• Enviar nova versão

Esconder código-fonte

Procedure ChecarcamposRequeridos(tabela : TDataSet);
var
i : integer;
begin
for i := 0 to Pred(tabela.Fields.Count) do
begin
if (tabela.Fields[i].Required) and (tabela.Field[i].IsNull) then
begin
ShowMessage('Campo: ' + tabela[i].DisplayLabel + ' precisa ser informado!');
break;
end;
end;

{Seria interessante editar o valor no campo DinplayLabel para melhor aproveitamento da procedure, clicando duas vezes no 

ClientDataSet, e em seguida no campo, aparece a propriedade DisplayLabel, que deve ser renomeada para o nome do campo.

Ex:

VL_VENDA, ficaria:
Valor da Venda.}

Programa lê nome (básico) - Pascal para iniciantes

Gerador de Senha no Lazarus

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

Calculadora de décimo terceiro salário em Pascal

Mcd de una serie de numeros

Nenhum comentário foi encontrado.