hola amigos del foro esperando que se encuentren bien vengo de nuevo en su ayuda con un problema que tengo y es el siguiente.
actualmente estoy desarrollando un sistema en el cual utilizo firebird 1.5 + delphi 7 y tengo mi formulario padre y sus hijas respectivamente debo aclarar que anteriormente no venia trabajando con MDI si no como SDI. bueno el caso es que al momento de querer visualizar una form hija en este caso el catalogo de articulos me muestra el siguiente error:
Código Delphi
[-]
Código Delphi
[-]
---------------------------
Debugger Exception Notification
---------------------------
Project Sistema.exe raised exception class EAccessViolation with message 'Access violation at address 0056A582 in module 'Sistema.exe'. Read of address 00000330'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
ese error me lo muestra al tratar de cargar los datos el cual utilizo el siguiente procedimiento para visualizarlos
Código Delphi
[-]
Código Delphi
[-]
procedure llenar_campos;
begin
FrmCatalogoArticulos.txtCodigo.Text := dm.taArticulos.fieldByName('CODIGO').AsString;
FrmCatalogoArticulos.txtDescripcion.Text := dm.taArticulos.fieldByName('DESCRIPCION').AsString;
FrmCatalogoArticulos.txtPrecio.Text := FormatCurr('"$ " ###,###,##0.00',dm.taArticulos.fieldByName('PRECIO').AsCurrency);
FrmCatalogoArticulos.txtCantidadMin.Text := dm.taArticulos.fieldbyname('CANTIDADMIN').AsString;
FrmCatalogoArticulos.txtCantidadMinimp.Text :=dm.taArticulos.fieldbyname('CANTIDADMINIMP').AsString;
FrmCatalogoArticulos.txtPagina.Text := dm.taArticulos.fieldbyname('PAGINA').AsString;
FrmCatalogoArticulos.statusbar.Panels[1].Text := 'Registro '+IntTostr(dm.taArticulos.RecNo)+ ' de ' + IntToStr(dm.taArticulos.RecordCount);
FrmCatalogoArticulos.statusbar.Panels[2].Text := dm.taArticulos.FieldByName('codigo').AsString;
end;
este procedimiento lo mando llamar en el evento onshow de la forma
Código Delphi
[-]
Código Delphi
[-]
procedure TFrmCatalogoArticulos.FormShow(Sender: TObject);
begin
dm.taArticulos.Active := true;
statusbar.Panels[0].Text :='Consultando';
dm.taArticulos.Last;
dm.taArticulos.First;
if dm.taArticulos.RecordCount > 0 then
begin
statusbar.Panels[1].Text := 'Registro '+IntTostr(dm.taArticulos.RecNo)+ ' de ' + IntToStr(dm.taArticulos.RecordCount);
statusbar.Panels[2].Text := dm.taArticulos.FieldByName('codigo').AsString;
llenar_campos;
end
else
begin
statusbar.Panels[1].Text := '0 de 0';
statusbar.Panels[2].Text := 'El catalgo no contiene registro de articulos';
end;
end;
antes de trabajar con MDI no me arrojaba ningun error al visualizar el formulario. ojala me puedan ayudar y de antemano muchas gracias por tomarse el tiempo de leerlo.