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

[chris~]

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 Junho 21, 2010 por chris~

[Douglas Soares]

Seu banco não é o IBExpert e sim o Firebird ou Intebase...

Tente fazer com esse exemplo que você conseguirá:

http://www.planetadelphi.com.br/dica/6966/...%C3%A3o---login

Abraços

[Jhonas]

Exemplos prontos de como montar uma tela de login e senha

https://www.scriptbrasil.com.br/script/delphi/login.rar

http://www.codigofonte.net/scripts/delphi/...7_login-e-senha

http://www.codigofonte.net/?secao=down&amp...7&tipo=nada

http://www.youtube.com/watch?v=auU4O14ls6s

abraço

[chris~]

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 Junho 22, 2010 por chris~

[jaumDoDelphi]

muito obrigado chris~ e Douglas!

este exemplo vai ser muito ultil.