Crear Inicio de Sesion Propio.

[[Lepe]]

Código Delphi [-]
If Table1.Locate('Usuario;Contraseña',
                  VarArrayOf([Edit1.Text, Edit2.Text]),
                  [locaseinsensitive])Then
....

saludos

[gama_blind]

El ejemplo me funciona ala perfeccion... pero que sucede cuando existen tipos de usuarios (administrador,usuario) he intentado de la siguiente forma...

if Table1.Locate('USUARIO;PASSWORD;T_USUARIO',VarArrayOf([Edit1.Text, SuiEdit2.Text,1]),[])then


donde 1 es el tipo de usuario (administrador) ,,, espero y me haya explicado,,, o si tienen un ejemplo de inicio de sesion con privilegios que me pueda ayudar

[[Lepe]]

¿para qué necesitas localizar los 3 campos a la vez?

Deberías buscar solo 2 (nombre usuario y contraseña) que realmente son los importantes. De hecho, ¿por qué necesitas conocer los privilegios de antemano si todavía no has localizado al usuario en la tabla?

Si encuentra el registro, ya se encuentra posicionado en él, así que puedes leer el campo T_Usuario para conocer los privilegios que tiene.

Saludos