Aniversariante do mês e Login e Senha
:oops: Ola galera do forum.
Sou Neo.
Estou desenvolvendo um cadastro de clientes para uma loja de sapatos, e cujo objetivo é mostrar os aniversariantes do mês. (EX: Quando o funcionario da loja abrir o programa ate mesmo antes de abrir o DBGrind ele mostre todos os aniversariante daquele mês). Só que ele não quer que estes aniversariante fique em destaque no DBGrind por exemplo.
Se alguem tiver este código e quiser me passar eu agradeceria muito.
Outra coisa é quanto ao login e senha.
Eu desenvolvir uma tabela de usuarios onde o mesmo ira cadastrar seu nome e sua senha no banco. Até ai tudo bem mais não sei como criar este código que verifica se o Login e a Senha conicide com a do banco de dados.
Se alguem tiver este código ou souber onde posso conseguir vai me ajudar muito.
Estou desenvolvendo em Delphi 5 e Banco Paradox 7
Desde já agradeço.
Sou Neo.
Estou desenvolvendo um cadastro de clientes para uma loja de sapatos, e cujo objetivo é mostrar os aniversariantes do mês. (EX: Quando o funcionario da loja abrir o programa ate mesmo antes de abrir o DBGrind ele mostre todos os aniversariante daquele mês). Só que ele não quer que estes aniversariante fique em destaque no DBGrind por exemplo.
Se alguem tiver este código e quiser me passar eu agradeceria muito.
Outra coisa é quanto ao login e senha.
Eu desenvolvir uma tabela de usuarios onde o mesmo ira cadastrar seu nome e sua senha no banco. Até ai tudo bem mais não sei como criar este código que verifica se o Login e a Senha conicide com a do banco de dados.
Se alguem tiver este código ou souber onde posso conseguir vai me ajudar muito.
Estou desenvolvendo em Delphi 5 e Banco Paradox 7
Desde já agradeço.
Vitoreduardo
Curtidas 0
Respostas
Fabianovo
08/11/2003
Grande...
Passa seu email que tenho uma fonte que tem o que precisa.
Passa seu email que tenho uma fonte que tem o que precisa.
GOSTEI 0
Wallacest
08/11/2003
Oi, crie um INDEX com os campos que quer procurar tipo USUARIO,SENHA na table com o nome do index ´isenha´
Table.Indexname :=´isenha´; //indexa a tabela
if Ttable.findkey (Usuario,Senha) = True then
begin
....
enb
EXE:
TSenha.IndexName :=´isenha´;
if TSenha.FindKey (Usuario,Senha) = true then
begin
Abre form
end
ShowMessage (´Usuário desconhecido´)
else
Table.Indexname :=´isenha´; //indexa a tabela
if Ttable.findkey (Usuario,Senha) = True then
begin
....
enb
EXE:
TSenha.IndexName :=´isenha´;
if TSenha.FindKey (Usuario,Senha) = true then
begin
Abre form
end
ShowMessage (´Usuário desconhecido´)
else
GOSTEI 0
Vitoreduardo
08/11/2003
Grande...
Passa seu email que tenho uma fonte que tem o que precisa.
Ai meu E_mail é
jackell_alves@hotmail.com
GOSTEI 0