Dúvida sobre login e senha

Delphi

21/01/2011

Pessoal, já vi muitos videos ensinando a fazer um sistema de login, mas tô com algumas dúvidas.
Comecei o sistema sem utilizar a senha, clicou no ícone e vai direto para o sistema, mas agora tô querendo implantar isso, até mesmo para treinar.
Faço assim:
No FormStyle do menu eu coloquei como FsmDiform (Pai)
Para chamar cada arquivo : frm_form := Tfrm_form.creat(self) (Filhos)

No Project Option, todos os filhos ficam em Available Form.

Agora com a implantação do form_login, como devo configurar esses parametros ?
Se eu colocar os form_login com FsmDiform (Pai) dá erro na compilação:
O código q fiz para verificar o login é:
procedure Tfrm_login.Button1Click(Sender: TObject);
begin
  if login.Text = 'Marcos' Then
    if senha.Text = '123' Then
      Begin
        ShowMessage('Bem vindo ao Sistema');
        frm_menu:=Tfrm_menu.Create(self);
        frm_login.Destroy;
      End
    else
      Begin
        ShowMessage('Senha Inválida !!!');
        senha.SetFocus;
      End
  else
    Begin
        ShowMessage('Usuário Inválido !!!');
        login.SetFocus
    end;
end; 


Aí ñ funciona, se alguém tiver uma dica... Agradeço
Marcos Barbosa

Marcos Barbosa

Curtidas 0

Respostas

Marco Salles

Marco Salles

21/01/2011

pode ser feito no dpr ( Arquivo de projeto) ouno lugar do frm_login.Destroy; ytilizar o frm_login.release; mas a saida no dpr eu prefiro

GOSTEI 0
Marcos Barbosa

Marcos Barbosa

21/01/2011

A todos vocês quero pedir desculpas por não ter respondido os post de enviando para me ajudar, mas eu fiquei tentando de várias formas que vinham na minha cabeça e agora pela tarde eu consegui, fiz assim:
1º ) Na propriedade formstyle coloque em todos como normal.
2º) Em propriedade->options->forms-> deixei em Auto-Create Form, o form_login, form_menu.
3º)Na 1º execusão eu deixei o form_menu como visibele=false e o fom_login visible = true.
4º) Se o login e senha forem digitados corretamente, dou um visible true em form_menu, e fecho o form_login.

Assim funcionou...

Obrigado a todos....
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

21/01/2011

Não esqueça de finalizar este post. Para manter o fórum organizado. Abraços
GOSTEI 0
POSTAR