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