Fórum [Erro] Trabalho de conclusão #350282
07/12/2007
0
Eu tenho que entregar este sistema, que é o meu trabalho de conclusão, até semana que vem!
É o seguinte:
Estou desenvolvendo um sistema para uma biblioteca.
Na 1ª tela eu tenho LOGIN E SENHA!
Este é o código do botão ENTRAR:
Begin
if ComboBox1.Text=´Administrador´ then
TLogin.TableName:=´Administrador.db´;
if not TLogin.Active then
TLogin.Open;
if TLogin.Locate(´Nome´,login.Text,[]) then
begin
vSenha:=TLogin.FindField(´Senha´).AsString;
If (vSenha = senha.Text) Then
Begin
Form3.Show;
End
else
Begin
MessageDLG(´Falha: Usuario e/ou senha incorretos´, mtConfirmation,[mbOk],0);
login.SetFocus;
End;
end
else
Begin
MessageDLG(´Falha: Usuario e/ou senha incorretos´, mtConfirmation,[mbOk],0);
login.SetFocus;
End;Se o login ou senha estão errados a mensagem aparece corretamente.
Porem se estão certos da o seguinte erro:
[img:1789ba1829]http://img225.imageshack.us/img225/8206/imagemio7.jpg[/img:1789ba1829]
Alguém sabe como posso resolver?
Vyny
Curtir tópico
+ 0Posts
07/12/2007
Giordanocwb
T+
Gostei + 0
08/12/2007
Steve_narancic
Gostei + 0
10/12/2007
Vyny
Preciso disto para amanhã!
Outra coisa, tem como eu pegar uma tabela do BD e puxar direto com Edit e Label já pronto?
Gostei + 0
11/12/2007
Jakefrog
Coloca tb o fonte atualizando com FieldByName! :wink:
Gostei + 0
11/12/2007
Martins
If (vSenha = senha.Text) Then
Begin
Form3.Show;
End veja se esse form já está criado, do contrário vai dar mesmo erro, vc não poderá chamar um objeto sem tê-lo criado antes. Reveja seu código e a criação dos form´s.
Boa sorte.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)