CrystalBlood
19-01-2006, 19:51:47
les voy a comentar mi conflicto...! ^^
estoy usando Delphi 7
con Interbase :-D
tengo una tabla con el nombre "USUARIOS" ke contienen los sgte's campos:
COD_USUARIO (PK)
NOMBRE_USUARIO
PASSWORD_USUARIO
CODIGO_AREA (FK)
la teoria de lo ke kiero hacer es una especie de "Log In" osea... se selecciona el usuario de un combo box... y al lado se escribe la contraseña en un Edit... y si lo escrito es igual al valor almacenado en la tabla del campo PASSWORD_USUARIO... entonces.. ENTRA...
se entiende verdad.?
lo ke desencadena la accion es un boton...
------------
yo uso 4 controles para la conexion con la base de datos
3 provienen del conjunto de controles "Interbase"
ke son
* IBTable
* IBDatabase
* IBTransaction
y el ultimo objeto proviene del conjunto de controles "Data Access"
* DataSource
------------
bueno a continuacion... esta el codigo ke todavia no termine
proveniente del evento del boton...
logicamente... mi cerebro me dijo ke tengo ke usar una consulta SQL para obtener el valor de la contraseña correspondiente al codigo del usuario seleccionado en el combo box... y asi despues comparar los valores
use un control llamado "IBSQL" proveniente del conjunto de datos "Interbase" para generar la consulta...
NOTA:
DBLo_LOGIN--> es el comobo box
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
var
Form1: TForm1;
codactual : string;
passactual : string;
procedure TForm1.Button1Click(Sender: TObject);
begin
codactual := Vartostr(DBLo_LOGIN.KeyValue);
passactual := Ed_PASS.Text;
IBSQL1.SQL := 'select PASSWORD_USUARIO from USUARIOS where COD_USUARIO = '+ codactual;
IBSQL1.ExecQuery;
end;
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
al kerer compilar me da un error...
el problema es ke la variable "codactual" es un string...
y la consulta es una "Tstring"
entonces me dice tipos incompatibles...
me podrian ayudar..?? por favor..?
alguna especie de convercion de datos o algo asi...
o otro control... :-D
el codigo en visual basic seria algo asi...--->
pero no encontre los respectivos metodos y propiedades de los 4 controles ke empleo en delphi....
y necesito hacer esto en delphi...
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
VARIABLE_CODIGO=DataCombo.SelectedItem() //Devuelve el valor del código de usuario.
CONTROL_DATA..RECORDSOURCE="SELECT PASSWORD_USUARIO FROM TABLA_USUARIO WHERE CODIGO_USUARIO="+VARIABLE_CODIGO+";"
CONTROL_DATA.REFRESH()
VARIABLE2 = CONTROL_DATA.RECORDSET("PASSWORD_USUARIO")
IF VARIABLE2 = CONTROL_EDIT.TEXT THEN
USUARIO ENTRA porque ambas contraseñas son idénticas
ELSE
USUARIO NO ENTRA porque las contraseñas no son iguales.
END IF
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Muchisimas gracias.!!!
estoy usando Delphi 7
con Interbase :-D
tengo una tabla con el nombre "USUARIOS" ke contienen los sgte's campos:
COD_USUARIO (PK)
NOMBRE_USUARIO
PASSWORD_USUARIO
CODIGO_AREA (FK)
la teoria de lo ke kiero hacer es una especie de "Log In" osea... se selecciona el usuario de un combo box... y al lado se escribe la contraseña en un Edit... y si lo escrito es igual al valor almacenado en la tabla del campo PASSWORD_USUARIO... entonces.. ENTRA...
se entiende verdad.?
lo ke desencadena la accion es un boton...
------------
yo uso 4 controles para la conexion con la base de datos
3 provienen del conjunto de controles "Interbase"
ke son
* IBTable
* IBDatabase
* IBTransaction
y el ultimo objeto proviene del conjunto de controles "Data Access"
* DataSource
------------
bueno a continuacion... esta el codigo ke todavia no termine
proveniente del evento del boton...
logicamente... mi cerebro me dijo ke tengo ke usar una consulta SQL para obtener el valor de la contraseña correspondiente al codigo del usuario seleccionado en el combo box... y asi despues comparar los valores
use un control llamado "IBSQL" proveniente del conjunto de datos "Interbase" para generar la consulta...
NOTA:
DBLo_LOGIN--> es el comobo box
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
var
Form1: TForm1;
codactual : string;
passactual : string;
procedure TForm1.Button1Click(Sender: TObject);
begin
codactual := Vartostr(DBLo_LOGIN.KeyValue);
passactual := Ed_PASS.Text;
IBSQL1.SQL := 'select PASSWORD_USUARIO from USUARIOS where COD_USUARIO = '+ codactual;
IBSQL1.ExecQuery;
end;
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
al kerer compilar me da un error...
el problema es ke la variable "codactual" es un string...
y la consulta es una "Tstring"
entonces me dice tipos incompatibles...
me podrian ayudar..?? por favor..?
alguna especie de convercion de datos o algo asi...
o otro control... :-D
el codigo en visual basic seria algo asi...--->
pero no encontre los respectivos metodos y propiedades de los 4 controles ke empleo en delphi....
y necesito hacer esto en delphi...
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
VARIABLE_CODIGO=DataCombo.SelectedItem() //Devuelve el valor del código de usuario.
CONTROL_DATA..RECORDSOURCE="SELECT PASSWORD_USUARIO FROM TABLA_USUARIO WHERE CODIGO_USUARIO="+VARIABLE_CODIGO+";"
CONTROL_DATA.REFRESH()
VARIABLE2 = CONTROL_DATA.RECORDSET("PASSWORD_USUARIO")
IF VARIABLE2 = CONTROL_EDIT.TEXT THEN
USUARIO ENTRA porque ambas contraseñas son idénticas
ELSE
USUARIO NO ENTRA porque las contraseñas no son iguales.
END IF
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Muchisimas gracias.!!!