Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Acesso ao Programa com Sistema de segurança


chris~

Pergunta

Assim gent, meu professor de programaçao é bem fraco

eu queria faze uma tela inicial do meu sistema

eu queria q ele consultasse na tabela "Cliente" os campos "login" e "senha"

e se batesse com alguma já existente no banco de cados ele entrava no sistema

se não tivesse nenhum dos dados no BD ele desse um showmessage (" Login ou Senha Incorreto" )

eu uso o banco de dados IBExpert

eu uso dois Edit

EdLogin

EdSenha

espero q alguém possa me ajudar =/

sei q o costume é eu coloca um codgo e ele ser corrigido, mas eu não faço a minima ideia de como começa-lo

por isso não estou colocando nada

desculpa se estou totalment errado nesse meu post,

mas agradeço desde já a ajuda.

Editado por chris~
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

brigadao gent

consegui aki \o/

muito obrigado mesmo...

meu cod fico assim.

não deu erro mas se alguém ver algum erro me avisa plikx

e se não tive ta ai uma ajuda pra quem precise mais pra frent

assim como eu precisei hj *-*

procedure TFrmLogin.BtnSairClick(Sender: TObject);
begin
   if login=false then
  Application.Terminate;
  close;
end;

procedure TFrmLogin.BtEntrarClick(Sender: TObject);
begin

if (edSenha.text<>'') and (Edlogin.text<>'') then
begin

  if (EdSenha.text=DataModule1.IBQfuncionario.FieldByName('senha').AsString) and (Edlogin.text=DataModule1.IBQfuncionario.FieldByName('Login').AsString) then
  begin
    frmLogin.Close;
    Login:=true;
    FrmMenu.ShowModal;
  end
     else begin
       messageBox(handle,'Usuário ou Senha Inválida','ATENÇÃO!',MB_ICONERROR+mb_OK);
       edSenha.Text:='';
       edLogin.text:='';
       edlogin.SetFocus;
  end;
end
   else
      messageBox(handle,'Você deve preencher o nome de usuário e senha','ATENÇÃO!',MB_ICONERROR+mb_OK);
   end;

Brigadao mais uma vez

Editado por chris~
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...