Ver Mensaje Individual
  #3  
Antiguo 13-04-2011
Rowerto Rowerto is offline
Miembro
 
Registrado: abr 2010
Posts: 20
Reputación: 0
Rowerto Va por buen camino
Thumbs up Gracias mil

Lo primero que queria hacer es darle las gracias a [Caral] por su apoyo y su aportacion al programa que estoy desarrollando (ni no fuese por ti me habria llevado muuucho tiempo llegar hasta eso, de verdad). Te lo has currao un puñao, tio, gracias de verdad.
Lo segundo es que no he colgado aqui el programa y la BdD porque en concreto la base es muy pesada y no era capaz de subirlo. De forma que me puse en contacto por privado con [Caral] y le pase todo a traves de correo.
Lo tercero sera la solucion que me ha dado el propio [Caral] y de paso resolver algunas dudas que tengo con dicha solucion (prefiero ponerla aqui y que quede para los que puedan necesitarlo).


Mi proyecto antiguo (el fichero .dpr)
Código Delphi [-]
program PAnalisis;

uses
  Forms,
  MenuPrincipal in 'MenuPrincipal.pas' {FormPrincipal},
  CrearNuevoCentro in 'CrearNuevoCentro.pas' {FormNuevoCentro},
  ModificarCentro in 'ModificarCentro.pas' {FormModifCentro},
  EliminarCentro in 'EliminarCentro.pas' {FormEliminarCentro},
  AnadeSCADA in 'AnadeSCADA.pas' {FormAnadeSCADA},
  EliminMovSCADA in 'EliminMovSCADA.pas' {FormElimMovSCADA},
  ModifMovSCADA in 'ModifMovSCADA.pas' {FormModifMovSCADA},
  ConsultaGeneral in 'ConsultaGeneral.pas' {FormConsultaGeneral},
  ConsultaMovimi in 'ConsultaMovimi.pas' {FormConMovimi},
  InfoCentro in 'InfoCentro.pas' {FormInfoCentro},
  ResumIncid in 'ResumIncid.pas' {FormResumIncid};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.CreateForm(TFormNuevoCentro, FormNuevoCentro);
    // y asi con todos los formularios que pertenecen al proyecto
    // hasta llegar al que me daba problemas.
  Application.CreateForm(TFormInfoCentro, FormInfoCentro);
  Application.Run;
end.

Y esta la solucion que da [Caral] y que me funciona a las mil maravillas
Código Delphi [-]
program PAnalisis;

uses
  Forms,
  MenuPrincipal in 'MenuPrincipal.pas' {FormPrincipal},
  CrearNuevoCentro in 'CrearNuevoCentro.pas' {FormNuevoCentro},
  ModificarCentro in 'ModificarCentro.pas' {FormModifCentro},
  EliminarCentro in 'EliminarCentro.pas' {FormEliminarCentro},
  AnadeSCADA in 'AnadeSCADA.pas' {FormAnadeSCADA},
  EliminMovSCADA in 'EliminMovSCADA.pas' {FormElimMovSCADA},
  ModifMovSCADA in 'ModifMovSCADA.pas' {FormModifMovSCADA},
  ConsultaGeneral in 'ConsultaGeneral.pas' {FormConsultaGeneral},
  ConsultaMovimi in 'ConsultaMovimi.pas' {FormConMovimi},
  InfoCentro in 'InfoCentro.pas' {FormInfoCentro},
  ResumIncid in 'ResumIncid.pas' {FormResumIncid};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.Run;
end.

Como veis [Caral] solo carga en un principio el formulario principal, donde tengo acceso al resto de forms.
Supongo que eso traera un beneficio a la hora de ejecutarlo, ya que solo llama a este form.
Mi duda es si al hacer la llamada al form abre las conexiones a la base de datos automaticamente que existen en el o si el problema provenia de otra cosa. Como bien me dijo, "Esto sucede cuando obviamente no se encuentra un dato" y como al cargar el programa y llamar a los distintos forms, lo que yo intentaba realizar era una consulta sobre un dato, el de la grid del form principal, que no tenia nada seleccionado (en el codigo siguiente), el programa decia "no mas Santo Tomas" XD
Espero que me corrijan si estoy equivocado.

Código Delphi [-]
procedure TFormInfoCentro.FormCreate(Sender: TObject);
begin
  Label1.caption:='Centro : '+ FormPrincipal.DBGrid1.DataSource.DataSet.Fields.Fields[0].AsString;
end;

El resto la verdad que fue coser y cantar, porque aunque cogi algunas cosas del codigo que [Caral] me ofrecio, ya tenia todo el proceso en la cabeza
Agregue una query para el propio formulario de informacion del centro, ya que la que uso en el principal solo tiene los datos indispensables y toda la tupla de datos.

Código Delphi [-]
  ADOQConCentro.Close;
  ADOQConCentro.SQL.Text := 'SELECT * FROM Centros WHERE Centro = :cen';  //esta es la query de la que hablaba
  ADOQConCentro.Parameters[0].Value:= formprincipal.DBGrid1.DataSource.DataSet.Fields.Fields[0].AsString;
  ADOQConCentro.Open;
  Label1.Caption:='Centro: '+ADOQConCentro.Fields[0].AsString;;
  Label1.Font.Color:=clred;
  Label2.Caption:='Concentrador: '+ ADOQConCentro.Fields[1].AsString;
  // y asi con todos los datos que necesitaba

y aproveche el boton que tenia antes para un tipico cerrar, como hizo [Caral] en su solucion

Código Delphi [-]
// lo he renombrado para mejor identificacion (odio eso de button1)
// que despues no hay ni dios que se aclare con treinta botones que se llaman igual
procedure TFormInfoCentro.BSalirClick(Sender: TObject); 
begin              
  close;
end;

Como veis el problema era exceso de codigo en el proyecto. Como decia antes, posiblemente hubiese tardado mucho tiempo en llegar a esa conclusion (a veces la autodidactica no es suficiente).

Espero que os ayude y gracias a todos por el soporte!!!
Responder Con Cita