Problemas con Password

[romansiux]

Hola a todos..
Les agradecería mucho sus comentarios...
Tengo Delphi7 y mi Base de Datos la tengo en MySql, hago la conexión con MyTable.

Tengo un MyTable que se llama TBLogin, en esa tabla guardo el Usuario y Password.

Al ejecutar el Sistema, me aparece primero la ventana de Login, para poner Usuario y Password, y tengo dos botones, Aceptar y Cancelar.

Tengo el siguiente código en el botón de Aceptar:

if (TBLogin.Locate('USUARIO', Edit1.Text, [])) and (TBLoginPASSWORD.Value = Edit2.Text) then
begin
VentanaLogin.Free;
Application.CreateForm(TVentanaPrincipal,VentanaPrincipal);
Application.Run;
end
else
raise Exception.Create('No Valido');

En la Form Principal (VentanaPrincipal) la tengo como MDI (FormStyle-fsMDIForm), Si me funciona lo del usuario y el Password, y puedo entrar bien a las Forms Hijas, Pero el problema es cuando quiero salir del Sistema(del la VentanaPrincipal), me pone el siguente error:

Acces Violation at address 00470707 in module 'Proyecto.exe'. Read of address 00000045

Gracias...

Saludos...

[eduarcol]

a ver te recomiendo esto

http://www.clubdelphi.com/foros/showthread.php?t=20915&highlight=pantalla+password

y si no te convence aqui hay mas

http://www.clubdelphi.com/foros/search.php?searchid=242849

suerte

[lgarcia]

Hola:

Me parece que el tipo de error que te esta dando es tipico de cuando tratas de trabajar con un objeto que ya fue liberado, Me parece que el error esta en
VentanaLogin.Free;
que utiliza cuando accionas el boton aceptar porque parece que cuando cierras el proyecto se vuelve a invocar. Revisa a ver.

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer