Evento DBGrid

Delphi

29/07/2004

Em qual evento eu posso colocar um teste em uma DbGrid para saber se o usuário digitou o valor certo?

Tenho a seguinte condição:

if ((data.IBTFalFAL_FALTOU.Value <> ´F´) and (data.IBTFalFAL_FALTOU.Value <> ´f´) and (data.IBTFalFAL_FALTOU.Value <> ´V´) and (data.IBTFalFAL_FALTOU.Value <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
data.IBTFalFAL_FALTOU.Value:=´´;
end
else
Begin
if (data.IBTFalFAL_FALTOU.Value = ´f´) then data.IBTFalFAL_FALTOU.Value:=´F´;
if (data.IBTFalFAL_FALTOU.Value = ´v´) then data.IBTFalFAL_FALTOU.Value:=´V´;

end;

Valeu a força!!

JR.


Jrjoliv2003

Jrjoliv2003

Curtidas 0

Respostas

Inutaishou

Inutaishou

29/07/2004

Coloca no BeforPost da tabela... Atribua o evento à tabela em tempo de execução se ela estiver sendo usada em vários formulários...

[]´s,


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

29/07/2004

Resolvi com a ajuda de um colega dessa maneira:

No evento onExit da DBGrid

if ((dbgrid1.SelectedField.Text <> ´F´) and (dbgrid1.SelectedField.Text <> ´f´) and (dbgrid1.SelectedField.Text <> ´V´) and (dbgrid1.SelectedField.Text <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
dbgrid1.SelectedField.Text:=´´;
end
else
Begin
if (dbgrid1.SelectedField.Text = ´f´) then dbgrid1.SelectedField.Text:=´F´;
if (dbgrid1.SelectedField.Text = ´v´) then dbgrid1.SelectedField.Text:=´V´;
end;

Mas Obrigado por ter respondido!!!

JR.


GOSTEI 0
POSTAR