Fórum como criar um form mdi #219686

10/03/2004

0

Delphi

tenho um form de login que fsNormal, e tenho um form principal que eh fsMDIForm, quando eu clico no botão ok para logar da erro, esse eh o codigo:

var
form : tfrmPrincipal;
begin
dm.qryUsuario.Close;
dm.qryUsuario.SQL.Clear;
dm.qryUsuario.SQL.Add(´select * from usuarios where usuario = :usuario and senha = :senha´);
dm.qryUsuario.ParamByName(´usuario´).AsString := edtUser.Text;
dm.qryUsuario.ParamByName(´senha´).AsString := edtSenha.Text;
dm.qryUsuario.Open;
if dm.qryUsuario.RecordCount > 0 then
begin
frmLogin.Destroy;
form:= tfrmPrincipal.Create(application);
frmPrincipal.Show;
end
else
begin
Mensagem(´Usuário e/ou senha inválido(s)´);
end;


alguem me ajuda?


Linhares

Linhares

Responder

Posts

10/03/2004

Lucas Silva

Qual erro que dá?


Responder

Gostei + 0

10/03/2004

Linhares

esse é o erro:

access violation at address 00465E2E in Module ´project1.exe´. Read of address 000002F4.



Responder

Gostei + 0

10/03/2004

Lucas Silva

vc deu um create nesse [b:44fbfdd932]DM[/b:44fbfdd932]????


Responder

Gostei + 0

10/03/2004

Linhares

claro


Responder

Gostei + 0

10/03/2004

Cebikyn

Veja este trecho de código:

form:= tfrmPrincipal.Create(application); frmPrincipal.Show;


Ao que parece o erro tá aí, vc inicializa a variável [i:f571d25b43]form[/i:f571d25b43] e chama [i:f571d25b43]frmPrincipal[/i:f571d25b43].


Responder

Gostei + 0

10/03/2004

Linhares

eu modifiquei...coloquei form.Show; mais agora da o erro:
access violation at address 00000000 in Module ´project1.exe´. Read of address 00000000.

q q eu faço??


Responder

Gostei + 0

10/03/2004

Lucas Silva

coloca pra passar de passo a passo no seu programa, ai você vai ver em qual linha que é....

Com certeza é alguma coisa que você não criou.....


Responder

Gostei + 0

10/03/2004

Linhares

da erro no form.show q qeu faço?


Responder

Gostei + 0

10/03/2004

Lucas Silva

é isso que o cebikyn falou....
ao inves de da 
frmPrincipal.Show
coloque 
form.show



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar