Leer dato en paradox y guardar en variable en delphi
Tengo una duda lo que pasa es que soy nuevo en esto de Delphi, te comento cual es mi problema.
Lo que quiero es hacer un login que pida usuario y contraseña, pero que este usuario este registrado en una base de datos.
Lo de validar el login ya lo tengo, pero lo que me falta es que lea la información de la base de datos y guarde la información en una variable para poder preguntarla a la hora de comprobar que el usuario que pusieron en el edit sea el mismo de la tabla.
Estaba viendo que tengo que agregar un Ttable y ponerle en "DataBaseName: DBDEMOS" debido a que ahí la guarde, y en "TableName: bdusuarios.db" pero no sé qué otros componentes agregar.
Aquí pongo los datos técnicos que tengo:
Nombre de la base de datos: usuarios. Db
Campos de la base de datos: clave, usuario, password y tipo_usuario
Código para el login:
type
Tformlogin = class(TForm)
edituser: TEdit;
editpassword: TEdit;
Label1: TLabel;
Label2: TLabel;
cmdlogin: TButton;
procedure cmdloginClick(Sender: TObject);
var
formlogin: Tformlogin;
user: string;
password: string;
procedure Tformlogin.cmdloginClick(Sender: TObject);
begin
user:= 'juan';
password:= '1234'; // se deben de cambiar por algún query o algo que obtenga el usuario de la bd
if (edituser.Text = user) and (editpassword.Text = password) then
begin
showmessage ('Correcto');
end
else
begin
showmessage ('Incorrecto');
end
end;
end.
En pocas palabras sería, leer un registro de la tabla en paradox 7 y ponerlo en un edit o guardarlo en una variable.
Lo que quiero es hacer un login que pida usuario y contraseña, pero que este usuario este registrado en una base de datos.
Lo de validar el login ya lo tengo, pero lo que me falta es que lea la información de la base de datos y guarde la información en una variable para poder preguntarla a la hora de comprobar que el usuario que pusieron en el edit sea el mismo de la tabla.
Estaba viendo que tengo que agregar un Ttable y ponerle en "DataBaseName: DBDEMOS" debido a que ahí la guarde, y en "TableName: bdusuarios.db" pero no sé qué otros componentes agregar.
Aquí pongo los datos técnicos que tengo:
Nombre de la base de datos: usuarios. Db
Campos de la base de datos: clave, usuario, password y tipo_usuario
Código para el login:
type
Tformlogin = class(TForm)
edituser: TEdit;
editpassword: TEdit;
Label1: TLabel;
Label2: TLabel;
cmdlogin: TButton;
procedure cmdloginClick(Sender: TObject);
var
formlogin: Tformlogin;
user: string;
password: string;
procedure Tformlogin.cmdloginClick(Sender: TObject);
begin
user:= 'juan';
password:= '1234'; // se deben de cambiar por algún query o algo que obtenga el usuario de la bd
if (edituser.Text = user) and (editpassword.Text = password) then
begin
showmessage ('Correcto');
end
else
begin
showmessage ('Incorrecto');
end
end;
end.
En pocas palabras sería, leer un registro de la tabla en paradox 7 y ponerlo en un edit o guardarlo en una variable.
Respuesta de mivaler
1
Lo que necesitas es comprender bien el tema del acceso a bases de datos.
Usar paradox hoy día no te recomiendo... te vendría mejor usar SQLite, MySQL, Postgres pero si deseas usar paradox puedes hacerlo aunque jet (Access) también está disponible.
A tu pregunta. Te recomiendo más bien la lectura de un libro. Se llama La cara ocula de delphi 4
Parecerá que está desfasado. Pero no... es muy buena introducción al tema delphi.
Busclo aquí: http://www.terawiki.com/clubdelphi/Delphi-Win32/Libros/Delphi/Manuales/
En este libro podrás encontrar este tema y muchos más... recomendadisimo.
Usar paradox hoy día no te recomiendo... te vendría mejor usar SQLite, MySQL, Postgres pero si deseas usar paradox puedes hacerlo aunque jet (Access) también está disponible.
A tu pregunta. Te recomiendo más bien la lectura de un libro. Se llama La cara ocula de delphi 4
Parecerá que está desfasado. Pero no... es muy buena introducción al tema delphi.
Busclo aquí: http://www.terawiki.com/clubdelphi/Delphi-Win32/Libros/Delphi/Manuales/
En este libro podrás encontrar este tema y muchos más... recomendadisimo.
Hola amigo, gracias por la respuesta, pero de hecho ya vi como hacer eso, dejo aquí la solución por si acaso alguien en un futuro lo llegara a necesitar.
Se debe de cambiar la linea de consulta por esta:
consulta:='SELECT Usuario, Clave FROM bdusuarios WHERE usuario=' + QuotedStr(user);
Osea agregarle QuotedStr(); a user
Y respecto al otro problema que tenía del campo password es por que el campo password es usado por el sistema así que le cambie el nombre de ese campo por otro en este caso clave y con eso corrió todo muy bien.
Saludos.
Se debe de cambiar la linea de consulta por esta:
consulta:='SELECT Usuario, Clave FROM bdusuarios WHERE usuario=' + QuotedStr(user);
Osea agregarle QuotedStr(); a user
Y respecto al otro problema que tenía del campo password es por que el campo password es usado por el sistema así que le cambie el nombre de ese campo por otro en este caso clave y con eso corrió todo muy bien.
Saludos.
