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

  



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.}

Scripts recomendados

Calculadora básica no Lazarus

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

cadastro de um cliente com registro

programa pra somar e tirar média

Gerador de senha Pascal/Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts