Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 96
Poder: 13
gianfranco_tont Va por buen camino
Statusbar

Tengo un statusbar en cada uno de los from, quisiera una idea de como pasa el usuario que acceso al sistema, la hora actual entre los varios from.
Responder Con Cita
  #2  
Antiguo 12-02-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Tienes que obtener el dato, de donde quieras, por ejemplo de un adoquery, lo puedes pasar a una variable global para que se pueda ver en los forms que te interese y luego pasarlo al statusbar.
Código Delphi [-]
StatusBar1.Panels[0].Text := Nombre;
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 12-02-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Por favor, recuerda poner títulos descriptivos a tus preguntas, gracias
guía de estilo, gracias por tu colaboración.
Responder Con Cita
  #4  
Antiguo 12-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 96
Poder: 13
gianfranco_tont Va por buen camino
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.
Responder Con Cita
  #5  
Antiguo 12-02-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
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
__________________
Siempre Novato
Responder Con Cita
  #6  
Antiguo 12-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 96
Poder: 13
gianfranco_tont Va por buen camino
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?
Responder Con Cita
  #7  
Antiguo 12-02-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
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
__________________
Siempre Novato
Responder Con Cita
  #8  
Antiguo 12-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 96
Poder: 13
gianfranco_tont Va por buen camino
Me da un error a colocar el loginOk := true debajo del beguin
Responder Con Cita
  #9  
Antiguo 12-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 96
Poder: 13
gianfranco_tont Va por buen camino
Lo siento el error fue mio el nombre de mi from es distinto.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Click en statusbar Novás Varios 8 30-05-2008 00:39:10
ProgressBar en StatusBar CFPA86 Varios 2 22-02-2007 22:04:58
Statusbar con colores JULIPO Varios 4 04-06-2006 01:22:05
Textos En StatusBar kman Varios 2 22-12-2005 01:06:56
XPManifest y Statusbar arj2000 Varios 1 29-07-2005 02:25:57


La franja horaria es GMT +2. Ahora son las 04:21:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi