Verificar se ja existe dados no Banco e verificar a data
01/01/2006
0
começo o ano com uma duvida preciso no momento que apertar o enter em um dbedit se estes dados ja foram cadastrado.
e tambem quando o usuario quando digitar uma data invalida (01/01/ - ou - 30/02/2005) para aparecer uma tela mais amigavel de erro.
Muitissimo obrigado.
Minervasoft
Posts
02/01/2006
Minervasoft
Obrigado por me ajudar
02/01/2006
Edilcimar
02/01/2006
Ramms
Coloque no evento OnKeyPress
if Ord(Key) = VK_RETURN then //aki verifica se o Enter foi pressionado with DM.ClientDataSet1 do //Aki abre o bloco de instruções do cds begin Close; CommandText := (´select * from tabela where NOME = :nome´); //a instrução de verificação Params[0].AsString := DBEdit1.Text; //Aki vem o parametro Open; If DM.ClientDataSet1.RecordCount = 0 then //aki verifica se a consulta acima teve resultados... ShowMessage(´Registro não encontrado´) //se não teve retorna a msg else ShowMessage(´Registros foram encontrados´) //se teve retorna outra msg.. end; end;
é isso...
Clique aqui para fazer login e interagir na Comunidade :)