Sobre ventana de Password

[__cadetill]

no se tu, pero......

Empezado por silviodp

Código Delphi [-]
var
 n:Variant;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TModeloDatos, ModeloDatos);
  Application.CreateForm(TForm22, Form22);
  ModeloDatos.TblEmpresa.Active:=True;
  n:=ModeloDatos.TblEmpresa.FieldValues['Nombre'];
  Form1.Caption:='BIENES DE USO 1.0'+'  -  '+n;
  ModeloDatos.TblEmpresa.Active:=False;
  Form23:=TForm23.Create(Application);// lo creo 
  Form23.ShowModal; //y lo muestro.-
  Application.Run;
end.

Empezado por cadetill

Código Delphi [-]
  Application.Initialize;
  // DataModule que da acceso a la conexion
  Application.CreateForm(TBDades, BDades);

  Login := TLogin.Create(Application);
  try
     try
        Respuesta := Login.ShowModal;
     finally
            FreeAndNil(Login);
     end;
  except
       ShowMessage('error creando form');
  end;

  if Respuesta = mrOK then
   begin
        Application.CreateForm(TfmMenu, fmMenu);
        Application.Run;
   end
  else FreeAndNil(BDades);

Yo veo algo de diferencias entre tu código y el propuesto en el hilo mencionado

[silviodp]

Si es cierto, no era ese el código que yo había visto, perdón.-
Voy a probar con ese.
Gracias.

Silvio.-

[silviodp]

Cadetill:
por que cuando escribo el código:

begin
  Application.Initialize;
  Application.CreateForm(TModeloDatos, ModeloDatos);
  Application.CreateForm(TForm22, Form22);
  ModeloDatos.TblEmpresa.Active:=True;
  n:=ModeloDatos.TblEmpresa.FieldValues['Nombre'];
  Form1.Caption:='BIENES DE USO 1.0'+'  -  '+n;
  ModeloDatos.TblEmpresa.Active:=False;
  Form23:=TForm23.Create(Application);
  Form23.ShowModal;
  if Form23.ShowModal=mrYes then
   begin
        Application.CreateForm(TForm1, Form1);
        Application.Run;
   end

Y quiero ejecutar me da el siguiente error: [Error] CStock.dpr(43): Undeclared identifier: 'mrYes'.
Gracias.

Silvio.-

[__cadetill]

Empezado por silviodp

Y quiero ejecutar me da el siguiente error: [Error] CStock.dpr(43): Undeclared identifier: 'mrYes'.

Si buscas un poco en la ayuda de Delphi, verás que necesitas la unit Controls

Empezado por Delphi Help

TModalResult represents the return value from a modal dialog.

Unit

Controls

[silviodp]

Podrían decirme si éste código está bien o le falta algo, está asociado al botón que tengo en mi ventana de password, el cual tiene en la propiedad ModalResult el valor mrYes;

procedure TForm23.EntrarClick(Sender: TObject);
begin
  Modelodatos.TblLogin.Active:=True;
  If Modelodatos.TblLogin.Locate('Usuario',User.Text,[]) Then
  begin
    If ModeloDatos.TblLogin.FieldByName('Clave').AsString<>Pass.Text Then
       ShowMessage('Clave Incorrecta');
       Pass.SetFocus;
  end
  else
   ShowMessage('usuario inexistente');
   User.SetFocus;
end;

Gracias.

Silvio.-

[roman]

Este es el mismo código que el expuesto en el mensaje #11 (por tí) y sinceramente el compilador será más eficaz que nosotros para detectar si está bien o mal.

// Saludos

[silviodp]

Sí eso es cierto, pero mi pregunta se refiere a si el usuario es correcto y la pass también que se ejecuta?, porque compila, pero no hace lo que quiero.
Te digo lo que hace:
si el usuario y la pass son correctos: no me da ningún mensaje pero tampoco entra al programa lo hace la segunda vez que hago click en botón.
si el usuario y/o la pass no son correctos: arroja el mensaje correspondiente, pero la segunda vez que hago clik, por más que estos sigan siendo falsos entra lo mismo al programa.
No se si se explico?
Gracias.

Silvio.-