FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
ayuda por favor ^^ ...
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.!!! |
#2
|
||||
|
||||
Hola.
En primer lugar, bienvenido(a) al clubdelphi. Cierro este hilo porque contraviene la guia de estilo al estar duplicado con este otro. Encontrás en mi firma un vínculo a la guia de estilo que te recomiendo leer antes de seguir publicando mensajes. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
La increíble tecla F1 en Delphi | dec | Varios | 1 | 31-08-2005 22:26:45 |
Sobre las rxlibs y la ayuda... | Elfoscuro | Varios | 2 | 25-05-2005 21:38:18 |
Ayuda Con Instalacion De Archivos De Ayuda | Legolas | Varios | 1 | 01-12-2003 14:48:03 |
Como hago un archivo de ayuda? | Ricsato | Varios | 2 | 29-10-2003 21:03:53 |
Ayuda | Esau | OOP | 2 | 20-09-2003 00:10:57 |
|