Problema con unos Forms - "List index out of bounds(0)"
 

Estoy haciendo un programita que me hara la vida un poco mas facil en el trabajo, pero me he atascado con un problema:

Tengo un formulario con una caja de texto y una DBGrid para realizar consultas sobre una de las tablas de la BdD (Access, con una Query y un DataSource). Cada vez que se pulsa una tecla en la caja de texto, se relanza la query.
La cosa es que quiero que si se pulsa una celda de la DBGrid (o si solo nos queda una opcion en la DBGrid), nos abra un nuevo form con la informacion que hay sobre el centro solicitado (debido a que es mucha informacion y desde la DBGrid no se veria completa). Para ello uso su evento OnCellClick con el siguiente codigo

Código Delphi [-]
procedure TFormPrincipal.DBGrid1CellClick(Column: TColumn);
begin
  try
    FormInfoCentro := TFormInfoCentro.Create(Application);
    FormInfoCentro.ShowModal;
  finally
    FormInfoCentro.Free;
  end;
end;

Donde FormInfoCentro es el form que se debe abrir tras picar una celda, que tengo puesto en el uses del formulario principal y viceversa

Desde FormInfoCentro tengo el siguiente codigo, que falta por completar pero que para lo que necesitamos llega y sobra. Lo hice en el OnCreate del FormInfoCentro, ya que debe realizar la operacion de muestra de datos una vez se abra el formulario.

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

Donde Label1 es una etiqueta para el nombre y el campo 0 del DataSet es el nombre del centro que se pica en la DBGrid.

Hasta aqui todo correcto, pero el problema es que al compilar me da el error "List index out of bouns(0)". Sin embargo, si continuo la ejecucion del programa, realiza la operacion de forma correcta (es decir, se ve el nombre del centro picado en el FormInfoCentro).

He probado a crear un boton en el FormInfoCentro para que no lance el codigo en la apertura, con lo que logro que no me de el error de compilacion y se ejecute de forma correcta. El codigo es el que sigue.

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

Alguien podria decirme por que da el error cuando lo lanzas desde el OnCreate y no lo hace si pongo un boton, y ayudarme para solucionarlo?

Gracias de antemano a todos y si los administradores creen que esto debe estar en otra seccion lo hagan sin dudar.

Hola
Si quieres coloca la BD y el programa aqui y lo reviso.
Saludos

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!!!

Hola
Primero veamos esto del proyecto (el inicio del programa).
Normalmente o lo mas adecuado es tener los componentes NO visibles en un datamodule, pero como ya lo tenias asi, no quise meterle mas cosas.
Entonces el datamodule en tu caso se convierte en el form principal, ahi es donde tienes el componente que enlaza la BD (adoConnection), al llamar a los demas forms y estar ligados al principal ya tendran la conexion.

Hay varias formas de crear los froms.
1- En el proyecto (donde los tenias), esto lo hace delphi automaticamente.
2- Crearlos cuando se necesite (Lo estas haciendo tambien) osea duplicas el trabajo.
3- En ejecucion, osea sin que se coloque en el programa en si.

Crear los forms en el proyecto funciona, pero se hace muy lento cuando los forms enlazan a tablas u otras cosas ya que el programa tiene que leer cada contenido antes de arrancar.
Mas sencillo y eficiente es crearlos cuando se necesiten y destruirlos despues.

Me alegro que te sirviera lo poco que hice y que sigas adelante.
Saludos

Te refieres a algo asi?

Código Delphi [-]

///////////////.dpr
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

///////////////unit1.pas
// aqui la cabecera tipica
implementation
uses unit2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   //lo que haya que hacer con el datamodule
end;

end.

///////////unit2.pas
unit Unit2;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ////// mas el resto de querys, tablas, etc...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

Y asi solo tengo que añadir en el uses de cada uno de mis forms la unit del data module con todas las conexiones, consultas y demas montadas en ella? O incluso hacer un datamodule por cada form?

Perdon por el corta-pega :o

Hola
En un solo datamodule se puede poner todo.
Es mas ordenado.
Aunque yo en realidad solo pongo el componente de conexión.
Saludos

yo en el datamodulo solo pongo solo la conexion y la transaccion (aunque no es necesario tampoco ninguno de ellos) y todo lo demas lo creo "al vuelo" incluyendo los datasets...

Salu2