Testar campo digitado

Delphi

17/03/2003

:?:
Num sistema de controle de Portaria de Empresas, tenho um cadastro de pessoas autorizadas, com Nome, Nro. Documento e Data. Neste campo data informamos a data limite que a pessoa poderá entrar na empresa. (Até quando esta autorizada a entrar na empresa).
No cadastro de Entradas de Pessoas, quando incluo um novo registro, ao informar o Nro. do Documento da Pessoa (DBEdit4), preciso testar se o documento existe na Tabela.Autorizados. Caso exista o Documento, preciso testar se a data limite autorizada não foi excedida. Caso esteja excedida apresentar uma mensagem de Não Autorizado/Data Extourada...
Será que alguém me da uma força.
Obrigado.
Neto


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

17/03/2003

[color=#125693:afddd29a72]Teria que fazer algo assim
Coloque um outro Tquery
Comfigure ele para funcionar conectado a tabela autorizados
No evento OnExit do DBEDIT4[/color:afddd29a72]
whith queryautorizados do
begin
close;
SQL.Clear;
SQL.add(´select * from tabelaautorizados´)
SQL.add(´where documento = "´ + dbedit4.text + ´"´);
open;
if isempty then 
documento_não_registrado;
end;



GOSTEI 0
POSTAR