Crear Inicio de Sesion Propio.

[Jeswon]

Hola amigos.

La verdad es que soy un novato en esto de la programación he hecho algunos programillas de hoby, pero nada de aplicacion real, ahora quiero inentar crear una aplicación en la cual me pida un nombre de usuario y contraseña para acceder al pograma.

Lo he heho en Delphi 5 de la siguiente manera:

1.- Cree una Tabla con el DataBase Desktop llamada Acceso.dbf (basada en DBase IV, esta Incluye 3 campos, el primero se llama IDACCESO el cual defini como Char y 10 caracteres de longitud, lo puse como indexado unico y el mismo tag del index. El segundo Campo se llama Usuario es de tipo char y 15 de longitud, y el tercero se llama Contraseña y tiene los mismos atributos que "Usuario" y los 2 estan indexados con su mismo nombre de campo y solo Maintenance.

2.- En mi formulario principal (el de Login) coloque 2 Labels etiquetados como usuario y contraseña, 2 Edit (uno para User y otro para password), 2 Botones uno para aceptar y el cancel, coloque un componente Table y un Data Source.

3.- Apunte el Table al Alias que cree para la Base de Datos el cual llame pruebas y seleccione la tabla que se llama acceso.dbf, el Data Source lo apunte al Table.

4.- En el Botón de Aceptar le coloque el siguiente Codigo para realizar la validación de el User y el Password, la validación la realice localizando en la base de datos el texto escrito en los edit realizando la busqueda en el campo correspondiente, para una mejor idea aqui les pongo el codigo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   If Table1.Locate('Usuario',Edit1.Text,[]) And
     Table1.Locate('Contraseña',Edit2.Text,[]) Then
   Begin
     Form2.Show;
   End
   Else
     Edit1.SetFocus;
   Edit2.Text:='';
   Edit1.Text:='';
 end;
 
 end.

Esto lo que hace es que el texto escrito en el edit1 lo localiza en el campo usuario de la base de datos y el texto del edit2 lo localiza en el campo contraseña de la misma base de datos, si encuentra los 2 datos me muestra el siguiente formulario pero si no encuentra los 2 datos borra los 2 edit y me coloca el cursor en el edit1 para intentar de nuevo aunque encuentre uno no muestra el siguiente form, hasta aqui voy bien pero el problema es que aunque el usuario y la contraseña no esten relacionados entre si mientras estos se encuentren en los campos especificados cumple la funcion de mostrar el siguiente formulario.

Mi pregunta es como puedo hacer para que me relacione el usuario con la contraseña especificos, diciendolo de otra manera como hago para que me relacione el usuario del primer registro con la contraseña del primer registro y asi sucesivamente para tener una lista amplia de usuarios para mi aplicacion.

Se que para esto existen otras soluciones como realizar esa funcion de login con InterBase o SQL pero me gustaria realmente hacerlo a mi manera por 2 razones: falta de conocimiento en estas 2 soluciones y la otra por comodidad de realizar mis propios logueos sin necesidad de un intermediario si no hacerlo de forma directa de mi aplicacion. Digamos pues que es un deseo mio de sufrir un poco para la adquisicion de nuevos conocimientos ya he leido el foro y ahi si encontre de como hacerlo con SQL e InterBase. Pero pues no Tiene mucho significado para mi si no se como se lleva a cabo esta funcion de una manera basica.