67 respuestas en este tema

[Caral]

Hola
Bien, sigue esto:

Ahora vamos a delphi, arriba, Projects, busca Options (abajo de la lista).
Saldra una pantalla.
Hay varias pestañas, la primera es forms.
Veras una lista de los forms a un lado y vacio al otro (un dia de esto te explico para que sirve).
Arriba veras uno que dice Main Form y un combobox.
En el combobox busca FLoguin y le das OK
Ahora si, corre el programa.
Saludos

[Caral]

Hola
jajajjaja
me vas a matar jajajja
ya te digo
saludos

[Caral]

Hola
Vamos al form del loguin
Dale dobleclick al boton OK.
Veras una parte que tiene este codigo:

delphi

  If ADLoginClave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           ADLogin.Active := False;
           FClientes:=TFClientes.Create(self);
           try
           FLogin.Visible:= False;
           FClientes.ShowModal;
           finally
           FClientes.Free;
           end;
           Close;
        end

Ahi es donde esta el error (lo estaba copiando de otro tutorial jajaja).
Tienes que cambiar eso por esto:

delphi

If ADLoginClave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           ADLogin.Active := False;
           FCamas:=TFCamas.Create(self);
           try
           FLogin.Visible:= False;
           FCamas.ShowModal;
           finally
           FCamas.Free;
           end;
           Close;
        end

Ese boton quedara asi:

delphi

    LoginOK := False;
   ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
   ADLogin.Active:= True;
   EUsuario.Text:= ADLogin.Fields[1].AsString;
   If ADLogin.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EUsuario.Text := '';
       EClave.Text := '';
       ADLogin.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If ADLoginClave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           ADLogin.Active := False;
           FCamas:=TFCamas.Create(self);
           try
           FLogin.Visible:= False;
           FCamas.ShowModal;
           finally
           FCamas.Free;
           end;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;
 
end;

Ahora, correlo.
Saludos

[Caral]

hola
no amigo, no es correcto, ya lo reviso
saludos

[Caral]

Hola
En el boton OK
Al final del codigo se revisa la clave, cambia ese codigo por este:

delphi

Begin
           Cuenta := Cuenta + 1;
           EUsuario.Text := ''; // esto es nuevo
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EUsuario.SetFocus; // esto es nuevo
           EClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;

Saludos

[Caral]

Hola
Vamos a poner algo adicional pero util.
En el form Camas.
En el evento Onclose pones este codigo:

delphi

     If LoginOK then
     if MessageDlg('¿Está seguro que desea salir del sistema?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
       Action := caFree
     else
       Action := caNone;

Corre el programa.
Saludos

[Caral]

Hola
Me alegro amigo.
Esto nunca para, me paso con mi programa, empece con poco y ahora es enorme.
Saludos

[Caral]

Hola
Como ves puedes tener varias personas autorizadas.
Cuando gustes hacemos un sistema de entrada que defina que opciones puede ver cada uno de los usuarios.
Saludos

[felipe]

¿Y ya lo terminaste?

[FGarcia]

Este programita me resultara de gran ayuda.Estas camas son electronicas.Tienen u microcontrolador y un panel de control asi como un comando remoto.Controlan ademas de las diferentes posiciones de la cama, las luces,el tv,cambia los canales,el audio,etc. Ademas tiene en el mismo control el sistema de llamar a las enfermeras.Y pues una vez al año se le tiene que hacer un test con un equipo que determina la seguridad electrica de las mismas(para que no existan acidentes) entonces se les coloca un label que contiene la fecha de cuando fue realizado.Con este programita tendre el control de que ninguna se quede sin este test.Admes de poder llevar un record de sus mantenimientos y que fue lo que se le realizo.
jajajajajajaja por suerte no sere la persona que tendra que andar con la laptop metiendo informacion y realizando ese trabajo.Pero si es algo que esta bajo mi control.

Tengo otro proyecto parecido, pero es mas grafico que otra cosa.(todo a su debido tiempo)

Un Saludo y mil gracias amigo.

NADA; que!!?? ya terminaste?? y ¿el codigo de barras que le debes de colocar a la label de ID para rastrearla mas facil?

Es domingo ponte a trabajar!!!