Muito Estranho

[sem ideia p/ nick]

isso e parte do meu programa....

procedure Tfrmlogin.Button1Click(Sender: TObject);

var

acesso : boolean;

begin

if (edtlogin.Text = 'admin') and (edtsenha.text = '123') then

frmadmin.Showmodal

else

datamodule4.table1.first;

while not datamodule4.table1.eof do //(enquanto não chegar ao final da tabela)

begin

if (datamodule4.table1.fieldbyname ('login').asstring = edtlogin.text)

and (datamodule4.table1.fieldbyname ('Senha').asstring = edtsenha.text) then

acesso := true;

datamodule4.table1.next;

end;

if acesso = true then

begin

frminicio.Label1.Caption:= 'Ola, ' + datamodule4.table1.fieldbyname ('nome').asstring;

edtlogin.Clear;

edtsenha.Clear;

frminicio.cadastro.visible := false;

frmlogin.Hide;

frminicio.ShowModal;

end

else

showmessage('usuario e senha não cadastrados !');

end;

o que isso faz. ele chama o form : FRMADMIN caso voce digite ADMIN e tenha a senha 123, caso contrario ele verifica se o que voce digitou consta no banco de dados (paradox) so que verificar ele verifica agora se digitar ADMIN e 123 ele da um erro to estranho e não chama. se eu por SHOWMODAL ele da erro nessa linha se eu por SHOW ele da erro no PROJECT na ultima linha RUN

eu fiz alguma coisa de errado ?

eu havia feito tudo funcionanva dai eu salvei na pasta errada tal... mo rolo, eu tive que refazer agora não funciona mais.

ajuda ae e muuito importante.

brigadao ae desde já !

[Teske]

O seguinte Usa componetes de Interbase Dica o teste lógico não prescisa ser

if acesso = true then

usa

if acesso then

tb podes usar o with para encapsular o form do dm, e os compnentes dele fica mais fácil

Valleu ?

[sem ideia p/ nick]

to ligado. na parada do ACESSO.

mais seguinte não entendi onde usaria o WITH.

o with ele serve para mudar varias coisas de um mesmo componente, form sei la que. onde eu colocaria isso ali em cima?

como usa-lo ?

ex: with form1.font

begin

size := 10

end; ??????????????????????

assim ?

[Vivendo&Aprendendo]

Crie uma tabela com campos senha e nome e use o código a seguir:

If not dmDados.Senhas.Locate('Usuario',EdtNome.Text,[LoCaseInsensitive])Then

begin

MessageBox (handle,'Usuário não confere!','Atenção',mb_IconExclamation +mb_ok);

EdtNome.Text := '';

EdtNome.SetFocus;

end

else

If not dmDados.Senhas.Locate('Senha',EdtSenha.Text,[LoCaseInsensitive])Then

begin

MessageBox (handle,'Senha não confere!','Atenção',mb_IconExclamation +mb_ok);

EdtSenha.Text := '';

EdtSenha.SetFocus;

end

else

begin

Usu := EdtNome.Text;

FrmSenha.Visible := False;

FrmPrincipal.Enabled := True;;

FrmSenha.Close;

FrmAbertura.Close;

end;

end;