Login con Delphi y Mysql ?

[Theluar]

Un Saludo a todos, soy nuevo en esto de Delphi y aun mas en bases de datos. pero bueno les cuento:

tengo una tabla de usuariosen mysql con los campos nick y password,
y quiesera que los Edit correspondientes, se compararan con los de la tabla usuarios,

pero como no se muco sobre esto no se que componentes usar, si alguien pudiera instriuirme sobre que componentes y tipo de conexion usar ya sea ADO,Zeoslib, u otro que conoscon . yo realmente no se manejar estos componentes..

de antemano gracias.

[voldemmor]

Yo uso para manejo de mysql los componentes Zeos, y me paecen muy buenos.

Espero te sirva de algo.

Si te animas busca en el club se a hablado mucho de ellos y como es su uso.

Suerte

[Theluar]

Muchas gracias, si he estado leyendo algunos post y veo que zeos es muy popular y por lo leido de facil manejo. el problema es que cuento con Delphi XE y al querer instalar las librerias ZEOS me da errores al compilarlas y no se instalan.

[Theluar]

Hola amigos de delphi , tengo muhco que escribi esta consulta y no habia podido detenerme para contestar mi solución, pero andando deanbulando por aqui me dicuenta que el numero de visitas para consultar el tema ha sido bueno. y las respuestas aqui efectuadas(en este tema abierto) no disipan ninguna duda con respecto al tema, y me da tristesa que de esas visitas ninguna persona se lleve nada para resolver sus dudas.

No recuerdo como lo solucione en esa ocacion pero aqui esta una opcion espero sea de utilidad.

Datos del programa: Se riequiere realizar un login al sistema comparando el usuario y password a una base de datos mysql.

Paso: 1 Preparacion Visual

Dentro de un TForm se puede colocar dos(2) Tedit, uno para el nombre de usuario y otro para la contraseña o password, como gusten llamarlo,

En el segundo Tedit, o el que sea utilizado para el password, modifiquen la propiedad del mismo que lleva por nombre passwordChar y escriban o pongan el caracter deseado para ocultar la contraseña.(lo mas comun son asteriscos(*), pero pueden utilizar casi cualquiera, ya sera su elección).

seguido de esto agregamos a nuestro Tform un TButton, el cual sera utilizado para hacer la programacion correspondiente para la conexion con la base de datos mysql.

Paso : 2 Preparacion Logica

En el Tform se puede agregar un TADOQuery y un TADOConnection.(estos tambien pueden ser puestos en un datamodule si es que tu sistema o programa cuent con muchas consultas),

El TADOConnection debe configurarse, para obtener el acceso ala base de datos. en este caso yo lo hice con los drivers ODBC, en las herramientas administrativas de windows. Esto se puede hacer dando doble clic en el componente.

El TADOQuery es el dataset que utilizaremos para la consulta de los datos, con los cuales compararemos si el usuario existe o no; Este debe tener en su propiedad connection el nombre del TADOConnection.


ahora en el procedimiento del boton realizaremos los siguiente suponiendo que el nombre del TADOQuery es Qry. Y que en nuestra base de datos Mysql existe una tabla llamada usuarios que tiene los campos nick y pass.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
begin
  wtith Qry do
    begin
      sql.text:='Select nick, pass from usuarios Where nick='+Quotedstr(Edit1.text)+' And pass='+Quotedstr(Edit1.text);
      open;
      if recordcount<>0 then
        begin
            ShowMessage('Bienvenido El susuario y contraseña son correctos');
            // y lo demas que quieras poner , ya sea abrir un nuevo TForm o lo que nececites/
        end
      else
        begin
          ShowMessage('El usuario o contraseña no son correctos. Intente de nuevo');   
        end;
    end;
end;

Espero se útil la información y que puede ayudar de ahora en adelante . y disculpen por no poner la solucion antes.

[jpgonzalez]

Empezado por voldemmor

Yo uso para manejo de mysql los componentes Zeos, y me paecen muy buenos.

Espero te sirva de algo.

Si te animas busca en el club se a hablado mucho de ellos y como es su uso.

Suerte

Yo tambien uso Zeos y la verdad quees un componente muy potente... encapsula todos los datos de la conexion dentro del programa y no quedan vivibles.
Ademas, he probado usarlo con un server co una IP Publica y anda a la perfeccion.

Aqui tienes un video de como instalarlo en Del`phi XE, es muy facil... una vez instalado, denro del tool palette encontrara un componente ZConnection que es el que se utiliza para conectar tu programa con MySQL.

http://www.youtube.com/watch?v=1jfhvkCFI4I

Zeos es muy recomendable... abrazo!

[amell2020]

with Qry do
begin
sql.text:='Select nick, pass from usuarios Where nick='+Quotedstr(Edit1.text)+' And pass='+Quotedstr(Edit1.text);
open;
if recordcount<>0 then
begin
ShowMessage('Bienvenido El susuario y contraseña son correctos');
// y lo demas que quieras poner , ya sea abrir un nuevo TForm o lo que nececites/
end
else
begin
ShowMessage('El usuario o contraseña no son correctos. Intente de nuevo');
end;
end;

asi seria

[residentalex]

Empezado por Theluar

Hola amigos de delphi , tengo muhco que escribi esta consulta y no habia podido detenerme para contestar mi solución, pero andando deanbulando por aqui me dicuenta que el numero de visitas para consultar el tema ha sido bueno. y las respuestas aqui efectuadas(en este tema abierto) no disipan ninguna duda con respecto al tema, y me da tristesa que de esas visitas ninguna persona se lleve nada para resolver sus dudas.

No recuerdo como lo solucione en esa ocacion pero aqui esta una opcion espero sea de utilidad.

Datos del programa: Se riequiere realizar un login al sistema comparando el usuario y password a una base de datos mysql.

Paso: 1 Preparacion Visual

Dentro de un TForm se puede colocar dos(2) Tedit, uno para el nombre de usuario y otro para la contraseña o password, como gusten llamarlo,

En el segundo Tedit, o el que sea utilizado para el password, modifiquen la propiedad del mismo que lleva por nombre passwordChar y escriban o pongan el caracter deseado para ocultar la contraseña.(lo mas comun son asteriscos(*), pero pueden utilizar casi cualquiera, ya sera su elección).

seguido de esto agregamos a nuestro Tform un TButton, el cual sera utilizado para hacer la programacion correspondiente para la conexion con la base de datos mysql.

Paso : 2 Preparacion Logica

En el Tform se puede agregar un TADOQuery y un TADOConnection.(estos tambien pueden ser puestos en un datamodule si es que tu sistema o programa cuent con muchas consultas),

El TADOConnection debe configurarse, para obtener el acceso ala base de datos. en este caso yo lo hice con los drivers ODBC, en las herramientas administrativas de windows. Esto se puede hacer dando doble clic en el componente.

El TADOQuery es el dataset que utilizaremos para la consulta de los datos, con los cuales compararemos si el usuario existe o no; Este debe tener en su propiedad connection el nombre del TADOConnection.


ahora en el procedimiento del boton realizaremos los siguiente suponiendo que el nombre del TADOQuery es Qry. Y que en nuestra base de datos Mysql existe una tabla llamada usuarios que tiene los campos nick y pass.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
begin
  wtith Qry do
    begin
      sql.text:='Select nick, pass from usuarios Where nick='+Quotedstr(Edit1.text)+' And pass='+Quotedstr(Edit1.text);
      open;
      if recordcount<>0 then
        begin
            ShowMessage('Bienvenido El susuario y contraseña son correctos');
            // y lo demas que quieras poner , ya sea abrir un nuevo TForm o lo que nececites/
        end
      else
        begin
          ShowMessage('El usuario o contraseña no son correctos. Intente de nuevo');   
        end;
    end;
end;

Espero se útil la información y que puede ayudar de ahora en adelante . y disculpen por no poner la solucion antes.

Una pregunta no hay uno forma de hacer eso mismo con un ADoTable y con el oracle en vez de sql?

[Theluar]

Empezado por residentalex

Una pregunta no hay uno forma de hacer eso mismo con un ADoTable y con el oracle en vez de sql?

Es posible, y se realiza de la misma forma, solo que la configuración del Tadoconnection dependerá del tipo de driver utilizado para conectarte a oracle.

No se cual sea tu caso. Pero con gusto puedo ayudarte si me das mas información.