Ver Mensaje Individual
  #7  
Antiguo 07-11-2012
Avatar de naty_prog
naty_prog naty_prog is offline
Miembro
 
Registrado: sep 2010
Ubicación: los condores,calamuchita
Posts: 25
Reputación: 0
naty_prog Va por buen camino
problema con el cierre de los forms

hola programadores , recurro a uds porque tengo un problema con mi sistema.les cuento...tengo un form (form_correlativas),el cual muestra información de varias tablas, dicha información esta sujeta a modificarse por medio de los bitbtn que posee el mismo.mas o menos para darles una idea,la información que maneja son materias a las que debo agregarles correlativas.los bitbtn que uso son: uno para añadir, otro para vista previa y otro para eliminar correlatividades a esas materias;cuando realizo un alta,el sistema me abre otro form (form_nueva_correlativa) para ejecutar un ingreso, el cual posee otro bitbtn (GUARDAR) para guardar el nuevo registro. el problema surge recien despues de añadir o eliminar una correlativa, el formulario que estaba anteriormente (form_correlativas), se cierra,siendo que no debe hacerlo,y no encontramos el error. el codigo del bitbtn (GUARDAR) del form_ que tengo para agregar por si el problema esta alli es el siguiente:

Código Delphi [-]
procedure TForm_nueva_correlativa.BitBtn_guardar_new_correlativaClick(
  Sender: TObject);
begin

//
dm.IBDataSet_CorrelativasTIPO.Value:=ComboBox_nueva_correlativa_tipo.Text;
dm.IBDataSet_CorrelativasESTADO_CORRELATIVIDAD.Value:=combobox_nueva_correlativa_condicion.Text;
dm.IBDataSet_CorrelativasCORRELATIVA.Value:=DBLookupComboBox_mat_correlativa.Text;
dm.IBDataSet_CorrelativasID_MATERIA.Value:=materia_actual;
dm.IBDataSet_CorrelativasID_MATCORRELATIVA.Value:=DBLookupComboBox_mat_correlativa.KeyValue;
dm.IBDataSet_Correlativas.Post;
dm.IBTransaction_Sistema.CommitRetaining;
dm.IBDataSet_Correlativas.close;
dm.IBDataSet_Correlativas.Open;
dm.IBQuery_Correlativas_regular_rendir.Close;
dm.IBQuery_Correlativas_regular_rendir.Open;
dm.IBQuery_Correlativas_Regular_cursar.Close;
dm.IBQuery_Correlativas_Regular_cursar.Open;
dm.IBQuery_Correlativas_Aprobada_rendir.Close;
dm.IBQuery_Correlativas_Aprobada_rendir.Open;
dm.IBQuery_Correlativas_Aprobada_Cursar.Close;
dm.IBQuery_Correlativas_Aprobada_Cursar.Open;

Form_nueva_correlativa.Close;
Form_correlativas.Show;


end;

Insisto,no se si el problema vendra de alli,o sera en otra parte del codigo.desde ya les agradezco su ayuda.¡¡¡¡muchas gracias !!!!!!
Responder Con Cita