Grabar en un ClientDataSet en un Form desde un Frame

Camilo · #1 01-04-2023

Hola Amigos.
La inquietud es la siguiente:
Tengo un form1 desde el cual creo unos frames en run time. tantos frames como criterios haya en una consulta. Eso funciona muy bien.
Para nuestro ejemplo supongamos que se crean 10 frames. Estos se crean dentro de un panel del form1.
Cada frame tiene un Edit1.text en el que se aloja un dato. Un dato type Float.
En form1 Tengo un ClientDataset (CDS1) con su respectivo Datasource y esto va unido a un grid.
Necesito que (En un button por ejemplo) al dar click a ese button el dato que esta en Frame en Edit1.Text grabe en en cds que esta en form1 y se refleje en el grid. El codigo que suo es:

Código:

procedure TFrame1.Button1Click(Sender: TObject);
begin
  Form1.CDS1.Append;
  Form1.CDS1.FieldByName('P1').AsFloat := StrToFloatDef(Edit1.Text, 0);
  Form1.CDS1.Post;
end;

Las unit correspondientes a la unidad del frame esta declarada en Form1 y el form1 esta declarado en el uses del frame.
Esto me tira un error como que estoy intentando escribir en una memoria no declarada.
La pregunta es: que me falta para que estos dos (Form y Frames) se vena mutuamente, para que se entiendan.
Gracias.

pgranados · #2 01-04-2023

Hola!

¿Puedes decirnos que base de datos utilizas?
¿El dataSet esta activo al hacer el append?

Saludos.

Camilo · #3 02-04-2023

Upps. Que pena el olvido.
Uso Firebird 2.5 y Delphi 11.0
Si esta abierto.

Neftali [Germán.Estévez] · #4 03-04-2023

El problema en estos casos es que ese código que pones (3 líneas) pueden ser erróneas o correctas, dependiendo del resto del proyecto, dependiendo de cómo cree las cosas,... Ese código de por sí, no es erróneo.

Yo te diría que crearas un pequeño proyecto con 2 o 3 frames y un TClientDataset (sin B.D.) donde se reproduzca el error y lo adjuntes al hilo.
De esa forma será mucho más sencillo ayudarte.

En cuanto al error, sólo te puedo decir, ejecuta paso a paso, pon un breakpoint en la primera de las líneas que has puesto y en ese punto comprueba si Form1 o CDS1 están a nil.

Camilo · #5 04-04-2023

Neftali. Mil gracias por tu interés. La verdad el tema es mucho mas que esto. De hecho esto lo resolví enviando toda la información al frame para gestionar desde allí los datos sin necesidad de "Saltar" de el form a los frames y viceversa.
Le cuento a todos que el tema a plantear realmente es mas complejo y necesito ayuda muy urgente.

Aquí vamos:

tengo la siguiente consulta SQL

Código SQL [-]SELECT 
   C.Nombre as Criterio_1,
   C.Concepto As Concepto_1,
   C1.Nombre As Criterio_2,
   C1.Concepto As Concepto_2
FROM 
   Criterios_Proyectos R
   INNER JOIN Criterios C ON R.Id_Criterio = C.Id_Criterio
   INNER JOIN Criterios C1 ON R.Id_Criterio <> C1.Id_Criterio AND C.Id_Criterio < C1.Id_Criterio
WHERE 
   R.Id_Proyecto = :Indicador AND
   EXISTS (SELECT 1 FROM Criterios_Proyectos R2 WHERE R2.Id_Criterio = C1.Id_Criterio AND R2.Id_Proyecto = R.Id_Proyecto)
ORDER BY 
   C.Id_Criterio

esta consulta hace combinaciones sin repetir de una tabla llamada Criterios_proyectos. Para nuestro ejemplo en concreto salen 36 combinaciones correspondientes a 9 criterios.
Necesito hacer una matriz con esta consulta. Necesito que en un StrinGrid me salga esa matriz con los datos como a continuación los pongo en la imagen.

El codigo que uso es el siguiente pero me da un error de Rangue Check Error
Ese error no deja avanzar el procedimiento.

Código Delphi [-]SetLength(matriz, DataModule1.IBQListado.RecordCount, DataModule1.IBQListado.FieldCount);
                  i := 0;
                  while not DataModule1.IBQListado.Eof do
                  begin
                    for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
                      matriz[i][j] := DataModule1.IBQListado.Fields[j].Value;
                    DataModule1.IBQListado.Next;
                    Inc(i);
                  end;
                  fr.StringGrid1.RowCount := DataModule1.IBQListado.RecordCount + 1;
                  fr.StringGrid1.ColCount := DataModule1.IBQListado.FieldCount;
                  for i := 0 to DataModule1.IBQListado.FieldCount - 1 do
                    fr.StringGrid1.Cells[i, 0] := DataModule1.IBQListado.Fields[i].FieldName;
                  for i := 0 to DataModule1.IBQListado.RecordCount - 1 do
                    for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
                      fr.StringGrid1.Cells[j, i + 1] := matriz[i][j];

Por favor es urgente una manito en este tema. Gracias a todos

Neftali [Germán.Estévez] · #6 04-04-2023

Por el error, alguno de los índices se te está saliendo de rango.
En estos casos siempre puedes ejecutar tu programa paso a paso y detectar en qué punto te está dando el error.

Por otro lado veo que generas una matriz, del Dataset pasas los datos a la matriz (doble array) y luego desde la matriz los pasas al TStringGrid.
¿Porqué no los pasas directamente del TDataset al TStringGrid?
Más sencillo, menos pasos y menos posibilidad de errores.

Neftali [Germán.Estévez] · #7 05-04-2023

Como he dicho creo que el código anterior se podría simplificar con algo así:

Código Delphi [-]i := 0;
while not DataModule1.IBQListado.Eof do
begin
for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
    fr.StringGrid1.Cells[j, i + 1] := DataModule1.IBQListado.Fields[j].Value;
    DataModule1.IBQListado.Next;
    Inc(i);
end;
fr.StringGrid1.RowCount := DataModule1.IBQListado.RecordCount + 1;
fr.StringGrid1.ColCount := DataModule1.IBQListado.FieldCount;
for i := 0 to DataModule1.IBQListado.FieldCount - 1 do
    fr.StringGrid1.Cells[i, 0] := DataModule1.IBQListado.Fields[i].FieldName;

Y eliminas la matriz.
Si aun así te sigue dando problemas de "range check error", debes ejecutarlo paso a paso y evaluar dónde está el error.

Camilo · #8 23-04-2023

Mis muy apreciados y respetados amigos. Reformulo.
Luego de dar mil vueltas llegue a la modificación del concepto de este procedimiento en el desarrollo.
siguiendo con el hilo pero con la reformulación mi lio ahora es el siguiente:
Dede un Form (FEvaluacion) creo unos frames en tiempo de ejecución. Los frames son un numero indeterminado que dependen de una consulta.
El codigo de la creación es el siguinete:

Código Delphi [-]procedure TFEvaluacion.CrearFormulario;
var
  i, j, N, Consecutivo:Integer;
  fr:TFramePreg;
  Str, Str1, Str2,
  Str3, Str4, Str5, Str6:String;
  matriz: array of array of Variant;
  begin
  numFrames := 0;
  DataModule1.IBQCuenta.Close;
  DataModule1.IBQCuenta.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
  DataModule1.IBQCuenta.Open;
  Rango_Consistencia;
  Label_rango_consistencia;

      N:= StrToInt(DbEdit1.Text);
      i := 0;

      for j := 0 to (N - 1) do

      DataModule1.IBQListado.Close;
      DataModule1.IBQListado.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
      DataModule1.IBQListado.Open;

   with DBGrideh1.DataSource do
    begin
      DataSet.Prior;
      while not DataSet.Eof do
      begin
      // Crear el frame
        fr := TFramePreg.Create(Nil);
        fr.Parent := self.ScrollBox1;
        fr.Top := (fr.Height + 10) * (numFrames - 1) + 1;
        fr.Align := alTop;
        fr.Name := 'FramePregunta' + IntToStr(j + 1);

                  // Asignar textos
                  Str := AnsiReplaceText(Fr.lblCriterio1.Caption, '%t', DbGridEh1.Columns[0].Field.asString);
                  Str := AnsiReplaceText(Str, '%t', DbGridEh1.Columns[0].Field.asString);
                  Fr.lblCriterio1.Caption := Str;

                  Str1 := AnsiReplaceText(Fr.lblCriterio2.Caption, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Str1 := AnsiReplaceText(Str1, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Fr.lblCriterio2.Caption := Str1;

                  Str2 := AnsiReplaceText(Fr.lbldescripcion1.Caption, '%d', DbGridEh1.Columns[1].Field.asString);
                  Str2 := AnsiReplaceText(Str2, '%d', DbGridEh1.Columns[1].Field.asString);
                  Fr.lblDescripcion1.Caption := Str2;

                  Str3 := AnsiReplaceText(Fr.lbldescripcion2.Caption, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Str3 := AnsiReplaceText(Str3, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Fr.lblDescripcion2.Caption := Str3;

                  // incrementa la variable NumFrames y asigna su valor al Tag del frame
                  Inc(NumFrames);
                  Fr.Tag := numFrames;

                  Str4 := AnsiReplaceText(Fr.lblNumPregunta.Caption, '99',  IntToStr(numFrames));
                  Str4 := AnsiReplaceText(Str4, '99', IntToStr(NumFrames));
                  Fr.lblNumPregunta.Caption := Str4;


                  Str5 := AnsiReplaceText(Fr.lbllId_Criterio_1.Caption, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Str5 := AnsiReplaceText(Str5, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Fr.lbllId_Criterio_1.Caption := Str5;

                  Str6 := AnsiReplaceText(Fr.lblId_Criterio_2.Caption, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Str6 := AnsiReplaceText(Str6, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Fr.lblId_Criterio_2.Caption := Str6;

                  fr.Edit4.Text:='1';
                  fr.Edit5.Text:='1';
                  fr.Edit6.Text:='0,1111';
                  fr.Edit7.Text:='0,1111';
                  fr.Edit8.Text:= DbEdit1.Text;
                  fr.Edit9.Text:= Edit2.Text;
                  fr.Edit11.Text:= Edit3.Text;
                  fr.Edit12.Text:= Edit1.Text;
                  fr.DateTimePicker1.DateTime := Now;
                  fr.NumberBox1Change(Self);
                DataSet.Next;
                end;
        end;
end;

Pues bien este frame tiene un Edit15.text que aloja un dato producto de una operación. El FEvaluacion tiene un Edit4.Text en donde necesito reflejar ese Edit15 del frame que esta creado en runtime y cuyo form que lo compone es FEvaluacion.

Necesito algo asi como que desde un Button del frame pueda hacer esto y funcione:

Código Delphi [-]procedure TFramePreg.Button5Click(Sender: TObject);
begin
  FEvaluacion.Edit4.Text := Edit15.Text;
end;

Parece ser que que al crear el Frame desde el form FEvaluacion y tratar de devolverle a este form un dato del frame; presenta un conflicto de instancias que no he podido resolver.
La duda concreata es:
Necesito reflejar desde un button del frame el edit15.text del frame en el Edit4.text del form que contiene a ese frame.
Gracias.

Camilo · #9 23-04-2023

Mis muy apreciados y respetados amigos.
En el desarrollo que estoy haciendo necesito.

Desde un Form (FEvaluacion) creo unos frames en tiempo de ejecución. Los frames son un numero indeterminado que dependen de una consulta.
El codigo de la creación es el siguiente:

Código Delphi [-]procedure TFEvaluacion.CrearFormulario;
var
  i, j, N, Consecutivo:Integer;
  fr:TFramePreg;
  Str, Str1, Str2,
  Str3, Str4, Str5, Str6:String;
  matriz: array of array of Variant;
  begin
  numFrames := 0;
  DataModule1.IBQCuenta.Close;
  DataModule1.IBQCuenta.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
  DataModule1.IBQCuenta.Open;
  Rango_Consistencia;
  Label_rango_consistencia;

      N:= StrToInt(DbEdit1.Text);
      i := 0;

      for j := 0 to (N - 1) do

      DataModule1.IBQListado.Close;
      DataModule1.IBQListado.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
      DataModule1.IBQListado.Open;

   with DBGrideh1.DataSource do
    begin
      DataSet.Prior;
      while not DataSet.Eof do
      begin
      // Crear el frame
        fr := TFramePreg.Create(Nil);
        fr.Parent := self.ScrollBox1;
        fr.Top := (fr.Height + 10) * (numFrames - 1) + 1;
        fr.Align := alTop;
        fr.Name := 'FramePregunta' + IntToStr(j + 1);

                  // Asignar textos
                  Str := AnsiReplaceText(Fr.lblCriterio1.Caption, '%t', DbGridEh1.Columns[0].Field.asString);
                  Str := AnsiReplaceText(Str, '%t', DbGridEh1.Columns[0].Field.asString);
                  Fr.lblCriterio1.Caption := Str;

                  Str1 := AnsiReplaceText(Fr.lblCriterio2.Caption, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Str1 := AnsiReplaceText(Str1, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Fr.lblCriterio2.Caption := Str1;

                  Str2 := AnsiReplaceText(Fr.lbldescripcion1.Caption, '%d', DbGridEh1.Columns[1].Field.asString);
                  Str2 := AnsiReplaceText(Str2, '%d', DbGridEh1.Columns[1].Field.asString);
                  Fr.lblDescripcion1.Caption := Str2;

                  Str3 := AnsiReplaceText(Fr.lbldescripcion2.Caption, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Str3 := AnsiReplaceText(Str3, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Fr.lblDescripcion2.Caption := Str3;

                  // incrementa la variable NumFrames y asigna su valor al Tag del frame
                  Inc(NumFrames);
                  Fr.Tag := numFrames;

                  Str4 := AnsiReplaceText(Fr.lblNumPregunta.Caption, '99',  IntToStr(numFrames));
                  Str4 := AnsiReplaceText(Str4, '99', IntToStr(NumFrames));
                  Fr.lblNumPregunta.Caption := Str4;


                  Str5 := AnsiReplaceText(Fr.lbllId_Criterio_1.Caption, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Str5 := AnsiReplaceText(Str5, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Fr.lbllId_Criterio_1.Caption := Str5;

                  Str6 := AnsiReplaceText(Fr.lblId_Criterio_2.Caption, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Str6 := AnsiReplaceText(Str6, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Fr.lblId_Criterio_2.Caption := Str6;

                  fr.Edit4.Text:='1';
                  fr.Edit5.Text:='1';
                  fr.Edit6.Text:='0,1111';
                  fr.Edit7.Text:='0,1111';
                  fr.Edit8.Text:= DbEdit1.Text;
                  fr.Edit9.Text:= Edit2.Text;
                  fr.Edit11.Text:= Edit3.Text;
                  fr.Edit12.Text:= Edit1.Text;
                  fr.DateTimePicker1.DateTime := Now;
                  fr.NumberBox1Change(Self);
                DataSet.Next;
                end;
        end;
end;

Pues bien este frame tiene un Edit15.text que aloja un dato producto de una operación. El FEvaluacion tiene un Edit4.Text en donde necesito reflejar ese Edit15 del frame que esta creado en runtime y cuyo form que lo compone es FEvaluacion.

Necesito algo asi como que desde un Button del frame pueda hacer esto y funcione:

Código Delphi [-]procedure TFramePreg.Button5Click(Sender: TObject);
begin
  FEvaluacion.Edit4.Text := Edit15.Text;
end;

Casimiro Notevi · #10 23-04-2023

Por favor, no crees un hilo nuevo para preguntar lo mismo, espera que alguien conteste, y en todo caso recuérdalo en este mismo hilo. Gracias.
He combinado ambos hilos.

[kuan-yiu] · #11 27-04-2023

Yo uso frames de un modo diferente.
Tengo varios que incrusto donde necesito, a veces de forma concurrente, lo que me daba problemas de instancias cuya solución fue bastante tonta.
La variable para usar el frame la defino en el formulario que lo usa, dentro de la sección private.
Tengo un procedimiento que crea el frame usando la variable que necesito y con las características necesarias (diferencias visuales y de comportamiento).

Código Delphi [-]// FRAME
U_MiFrame
...
Type 
   tfrm_MiFrame = Class(TFame)
   ...
   end;

var
   // Aquí no la defino

// FORMULARIO QUE LO USA
U_OtraCosa

Type 
   tf_OtraCosa = Class()
   ...
   private
      frm_MiFrame_OtraCosa1: tfrm_MiFrame;  // Aquí defino la variable, tantas como necesite
      procedure cargaFrameParametrizado(esteFrame: tfrm_MiFrame; parametros: record);
   end;

Camilo · #12 27-04-2023

Gracias por tu respuesta.
En vista de la poca intervención y la urgencia del proyecto, cambie la metodología y todo el concepto de desarrollo.
La verdad no se como dar de baja este tema en el foro.
Mil gracias.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Grabar datos definitivos con ClientDataSet	LIGERO	MS SQL Server	6	25-08-2017 11:15:38
Acceder desde un WebBrowser a un frame que esta dentro de otro frame.	deneus	Delphi para la web	1	25-10-2014 17:51:58
Frame en un Form	chinchan	C++ Builder	3	07-05-2008 13:39:59
Orden de Creación. Form y Frame	gluglu	Varios	8	20-02-2007 19:24:50
convertir un form en un frame	ercrizeporta	Varios	6	04-07-2005 21:52:58