Delphi dicas

Tratar campos not null

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



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

por : Joel Da Rosa