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');
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.