Statusbar

[gianfranco_tont]

Ok, el query se ejecuta solo al inicio del programa, como hago esto publico para usarlo en todos los from. No entiendo lo que enviaste.

[[Caral]]

Hola
Al principio de los form hay una parte que dice :

Código Delphi [-]
private
    { Private declarations }
  public
    { Public declarations }
  end;

Si quieres una variable global la pones ahi, por ejemplo:

Código Delphi [-]
private
    { Private declarations }
  public 
    Var nombre: String;
    { Public declarations }
  end;

Ya sera publica, con solo poner el uses de esa unit se podra ver en donde la necesites.
Ahora, si usas un datamodule que se iniciara al comienzo del programa seria un buen sitio para poner esa variable.
Saludos

[gianfranco_tont]

Ok puede enviarme la sentencia completa?
En que form coloco la variable publica?
Donde le indico que la variable nombre es igual al nombre del usuario que inicio la secion?
Y finalmente como llamo el nombre para el estatus bar?

[[Caral]]

Hola
1- En el datamodule:

Código Delphi [-]
var
  DataModule1: TDataModule1;
  Usuario, Nombre: string;

2- En el form login:

Código Delphi [-]
If AdoQuery1Clave.AsString = Edit2.Text then
        Begin
           LoginOk := True;
           Usuario := AdoQuery1CodUsuario.AsString;
           Nombre := AdoQuery1Nombre.AsString;
           AdoQuery1.Active := False;
           Close;
        end

3- En el form login:

Código Delphi [-]
procedure TFLogin.FormCreate(Sender: TObject);
begin
   Usuario := '';
   Nombre := '';
  end;

4- En el form que se necesite:

Código Delphi [-]
If not LoginOK then Close;
   StatusBar1.Panels[0].Text := Nombre;

Saludos

[gianfranco_tont]

Me da un error a colocar el loginOk := true debajo del beguin

[gianfranco_tont]

Lo siento el error fue mio el nombre de mi from es distinto.