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' ,
CrearNuevoCentro in 'CrearNuevoCentro.pas' ,
ModificarCentro in 'ModificarCentro.pas' ,
EliminarCentro in 'EliminarCentro.pas' ,
AnadeSCADA in 'AnadeSCADA.pas' ,
EliminMovSCADA in 'EliminMovSCADA.pas' ,
ModifMovSCADA in 'ModifMovSCADA.pas' ,
ConsultaGeneral in 'ConsultaGeneral.pas' ,
ConsultaMovimi in 'ConsultaMovimi.pas' ,
InfoCentro in 'InfoCentro.pas' ,
ResumIncid in 'ResumIncid.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFormPrincipal, FormPrincipal);
Application.CreateForm(TFormNuevoCentro, FormNuevoCentro);
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' ,
CrearNuevoCentro in 'CrearNuevoCentro.pas' ,
ModificarCentro in 'ModificarCentro.pas' ,
EliminarCentro in 'EliminarCentro.pas' ,
AnadeSCADA in 'AnadeSCADA.pas' ,
EliminMovSCADA in 'EliminMovSCADA.pas' ,
ModifMovSCADA in 'ModifMovSCADA.pas' ,
ConsultaGeneral in 'ConsultaGeneral.pas' ,
ConsultaMovimi in 'ConsultaMovimi.pas' ,
InfoCentro in 'InfoCentro.pas' ,
ResumIncid in 'ResumIncid.pas' ;
{$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'; 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 aproveche el boton que tenia antes para un tipico cerrar, como hizo [Caral] en su solucion
Código Delphi
[-]
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!!!