como criar um form mdi

Delphi

10/03/2004

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

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

10/03/2004

Qual erro que dá?


GOSTEI 0
Linhares

Linhares

10/03/2004

esse é o erro:

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



GOSTEI 0
Lucas Silva

Lucas Silva

10/03/2004

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


GOSTEI 0
Linhares

Linhares

10/03/2004

claro


GOSTEI 0
Cebikyn

Cebikyn

10/03/2004

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].


GOSTEI 0
Linhares

Linhares

10/03/2004

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??


GOSTEI 0
Lucas Silva

Lucas Silva

10/03/2004

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.....


GOSTEI 0
Linhares

Linhares

10/03/2004

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


GOSTEI 0
Lucas Silva

Lucas Silva

10/03/2004

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



GOSTEI 0
POSTAR