Crear login en delphi7 + Interbase

[Casimiro Notevi]

Como puedes ver en la imagen que ha puesto ecfisa, el código funciona bien, así que tan solo quedan dos posibilidades, que no lo hayas usado correctamente o que tengas algo más que no hemos visto.
Revisa con tranquilidad el código que ha puesto ecfisa y encontrarás el error.
Por cierto, creo que no has leido nuestra guía de estilo, mira concretamente el punto 6.

[[egostar]]

¿Y estas apuntando a la base de datos correcta?

Saludos

[Djsilver5]

Empezado por egostar

¿Y estas apuntando a la base de datos correcta?

Saludos

Así es, esta apuntado todo a la base de datos correctamente.

[[maeyanes]]

Hola...

Viendo el código, veo que en el método TAccesoSistema.AceptarClick, primero activas el "sistema principal" (SistemaPrincipal.Enabled = True) y luego validas la contraseña, es por eso que aun si la contraseña no es válida, el "sistema principal" seguirá activo, aunque mandes un mensaje de error (la excepción). Otra cosa, cuando la contraseña no sea válida, no lances una excepción, es mejor indicarlo con un MessageBox.



Saludos...

[Djsilver5]

Empezado por maeyanes

Hola...

Viendo el código, veo que en el método TAccesoSistema.AceptarClick, primero activas el "sistema principal" (SistemaPrincipal.Enabled = True) y luego validas la contraseña, es por eso que aun si la contraseña no es válida, el "sistema principal" seguirá activo, aunque mandes un mensaje de error (la excepción). Otra cosa, cuando la contraseña no sea válida, no lances una excepción, es mejor indicarlo con un MessageBox.



Saludos...

y como pongo el código para MessageBox en vez de excepción y que me mande al from2 quitando el

SistemaPrincipal.Enabled = True

[Djsilver5]

Empezado por Casimiro Notevi

Como puedes ver en la imagen que ha puesto ecfisa, el código funciona bien, así que tan solo quedan dos posibilidades, que no lo hayas usado correctamente o que tengas algo más que no hemos visto.
Revisa con tranquilidad el código que ha puesto ecfisa y encontrarás el error.
Por cierto, creo que no has leido nuestra guía de estilo, mira concretamente el punto 6.

Si lo he leído ya cuando mande el mensaje recién me había dado cuenta que estaba en mayuscula y como no pude editar, se quedo así.

[Djsilver5]

Empezado por Casimiro Notevi

Como puedes ver en la imagen que ha puesto ecfisa, el código funciona bien, así que tan solo quedan dos posibilidades, que no lo hayas usado correctamente o que tengas algo más que no hemos visto.
Revisa con tranquilidad el código que ha puesto ecfisa y encontrarás el error.
Por cierto, creo que no has leido nuestra guía de estilo, mira concretamente el punto 6.

El Edit(Stdctrls) se tiene que apuntar a la base de datos, porque yo solo agrege el Edit para el password, sera por eso.

[ecfisa]

Empezado por Djsilver5

El Edit(Stdctrls) se tiene que apuntar a la base de datos, porque yo solo agrege el Edit para el password, sera por eso.

No. A diferencia del TDBEdit, el componente TEdit no implementa el acceso a datos de una BD.

Saludos

[Djsilver5]

Empezado por ecfisa

No. A diferencia del TDBEdit, el componente TEdit no implementa el acceso a datos de una BD.

Saludos

Entonces en el caso mio cual seria, al comienzo tenia el DBEdit ya que ese si apuntaba normal el password de la base de datos pero no sabia el codigo, después con el código que me enseñaste, me dijiste que ponga solo un edit simple, ahora cuando doy clic en Run(F9) para ver si funciona escojo el usuario en el DBLOOKUPCOMOBOX y pongo la contraseña de la base de datos y cuando doy clic en el botón Aceptar me sale el mensaje de usuario o contraseña incorrecta y después se habilita el from2 y de igual forma si pongo una contraseña diferente que no esta en la base de datos o lo dejo vació después de dar clic en Aceptar me sale el mismo mensaje de usuario o contraseña incorrecta y después de eso igual se habilita el from2.

[Casimiro Notevi]

http://terawiki.clubdelphi.com/Delph...asico_pdf_.rar
http://terawiki.clubdelphi.com/Delph...phi_4_pdf_.zip
http://terawiki.clubdelphi.com/Delph...phi_6_pdf_.rar