Campo Calculável
19/01/2013
0
Boa noite pessoal,
estou passando por um problema.
o que é este tal de campo calculável ?
estou passando por um problema.
o que é este tal de campo calculável ?
Anderson Mendes
Curtir tópico
+ 0
Responder
Posts
19/01/2013
Jocelio Silva
Campos Calculados
Para criar campos calculados, clique com o direito no Fields Editor e escolha New Field, no quadro NewField, digite o nome do campo, o nome do objeto será automaticamente informado, o tipo do campo, seu tamanho e escolha Calculated em Field type.
Para colocar um valor nesse campo usaremos o evento OnCalcFields do componente TTable ou Tquery, em nenhuma outra parte os valores desses campos podem ser alterados.
O código do evento OnCalcFields deve ser enxuto, pois este é chamado várias vezes durante a edição de um registro e um procedimento pesado pode comprometer a performance do sistema.
procedure TDtmAluno.TblCalcFields(DataSet: TDataSet);
begin
if TblFaltas.Value > DtmTurma.TblMaxFaltas.Value then
TblSituacao.Value := 'Evadido'
bTblNota.Value >= 7 then
TblSituacao.Value := 'Aprovado'
else
TblSituacao.Value := 'Retido'
end;
espero ter ajudado.
Para criar campos calculados, clique com o direito no Fields Editor e escolha New Field, no quadro NewField, digite o nome do campo, o nome do objeto será automaticamente informado, o tipo do campo, seu tamanho e escolha Calculated em Field type.
Para colocar um valor nesse campo usaremos o evento OnCalcFields do componente TTable ou Tquery, em nenhuma outra parte os valores desses campos podem ser alterados.
O código do evento OnCalcFields deve ser enxuto, pois este é chamado várias vezes durante a edição de um registro e um procedimento pesado pode comprometer a performance do sistema.
procedure TDtmAluno.TblCalcFields(DataSet: TDataSet);
begin
if TblFaltas.Value > DtmTurma.TblMaxFaltas.Value then
TblSituacao.Value := 'Evadido'
bTblNota.Value >= 7 then
TblSituacao.Value := 'Aprovado'
else
TblSituacao.Value := 'Retido'
end;
espero ter ajudado.
Responder
22/01/2013
Anderson Mendes
JOCELIO,
foi de grande ajuda sua resposta
obrigado !
foi de grande ajuda sua resposta
obrigado !
Responder
Clique aqui para fazer login e interagir na Comunidade :)