67 respuestas en este tema

[felipe]

Tomando como ejemplo este que nos proporciona Caral (Aunque no lo he visto)

http://www.delphiacc...php?topic=102.0

Que haria yo... crearía un pequeño formulario como panel de acceso, este deberia mostrarse antes del formulario principal, el cual deberia estar invisble; si el login es correcto hacer visible el formulario principal, de lo contrario y habiendo agotado el número máximo de intentos: Application.Terminate 

[felipe]

No claro Jose, es que precisamente con la idea que te doy se valida según el usuario en la base de datos...
Esperamos que Caral te ayude a acomodar el codigo 

[enecumene]

Así es amigo José, ahi es donde debes colocar la ubicación correcta, en connectionString en la parte del Source ahí colocas la ubicación.

Saludos.

[Caral]

Hola
Lo quieres para tu programa amigo Jose?.
Saludos

[felipe]

Así es amigo José, ahi es donde debes colocar la ubicación correcta, en connectionString en la parte del Source ahí colocas la ubicación.

Saludos.

Es verdad, no hay de que preocuparse... el detalle a corregir es simple.

delphi

ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mi proyecto\Mi base de datos\basedatos.mdb;Persist Security Info=False'

Solo cambié por esta linea C:\Mi proyecto\Mi base de datos\basedatos.mdb como ejemplo de la ruta.

[Caral]

Hola
Vamos paso a paso:
En delphi, abrimos el programa (al que le vamos a poner el loguin incorporado).
1-File, New, Form.
Con esto creamos un nuevo form dentro del proyecto.
Le damos la forma que queramos, para que sirva de loguin, algo asi:



Le cambiamos al form el nombre FLogin y lo guardamos el unit como UFLogin
Ya tenemos la primera parte.
Vamos por la segunda, sigues?.
Saludos

[Caral]

Hola
Seguimos:
2- Abrimos el form FCamas (osea el principal).
En el evento OnCreate añadimos esto:

delphi

procedure TFCamas.FormCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
    // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Direccion.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOConnection1.ConnectionString := ConStr;
   ADOConnection1.Open;
 
   // creamos el loguin antes que el form principal
    FLogin:=TFLogin.Create(self);
   try
     FLogin.ShowModal;
   finally
     FLogin.Free;
   end;
    // si es correcto, seguira aqui
 
   ADOQuery1.Open;
   DateTimePicker1.Date:= now;
   DTP1.Date:= now;
   DTP2.Date:= now;
   Panel6.Visible:= false;
 
end;

Como ves, primero busca la ruta de la base de datos, luego ejecuta el loguin y si es correcto, correra el programa (ya lo pondremos a funcionar).
Fíjate que lo llamo con el nombre que le pusimos al form.
Si corres el programa veras que sale primero el loguin, como no tiene nada lo cierras y saldra el principal.
Seguimos.
Saludos

[Caral]

Hola
Seguimos.
3- Abrimos la base de datos y vamos a crear una tabla mas.
Campos:
CodUsuario       Texto
Clave               Texto
La guardamos como Usuarios.
la abrimos y ponemos
Usuario
jose
clave
jose1
Bueno, ya sabemos quien podra entrar al programa.
seguimos.
Saludos

[Caral]

Hola
La primera
Crear una tabla en vista diseño
Saludos

[Caral]

Hola
Seguimos, esta parte es importante.
4- Nos posicionamos en el form del loguin (FLogin).
a-Le colocamos un AdoQuery.
b-Le vamos a cambiar el name por: ADLogin
c-En la propiedad Connection le ponemos: FCamas.ADOConnection1
.....Estamos haciendo referencia a que busque la conexion en el form camas.
d-Nos posicionamos en el adoquery (ADLogin)
.....En la propiedad SQL presionamos el boton, nos saldra una pantallita, vamos a ponerle esto y le damos OK:

sql

SELECT CodUsuario, Clave  FROM Usuarios WHERE
CodUsuario = nom

e- Le damos doble click al ADLogin, nos saldra una pantallita.
....Nos posicionamos en la pantallita y con el raton derecho buscamos ADD Fields.
....Nos saldra otra pantalla con los campos seleccionado, le damos OK.
....Esto nos pasara los campos a la pantallita.
f- Nos posicionamos en el ADLogin.
....En la propiedad parameters, presionamos el boton.
....Nos saldra otra pantallita, deberia estar un parametro con el nombre (nom).
Si no esta, me dices y seguimos.
Saludos

[Caral]

Hola
Estas seguro que lo sigues paso a paso.
Saludos