Ver Mensaje Individual
  #4  
Antiguo 19-07-2006
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 24
BlueSteel Va por buen camino
Con este proceso almaceno un dato en la tabla "Centro", .. esto lo hago en el Form "Ccostos"

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Insert Into "Centro" ("Cen_Codigo","Cen_Detalle")');
IBQ_Edit.SQL.Add('Values (:P1, :P2)');
IBQ_Edit.Params[0].AsString := vCod.Text;
IBQ_Edit.Params[1].AsString := vDet.Text;
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;

para cerrar el Form le pongo solamente "close"

luego voy al Form "Cargos" y cuando este se abre me ejecuta el siguiente código, en donde todos los datos que estan en la tabla "Centro" me los pasa al Combo_Box "CB_Centro" para agregarlos

Código Delphi [-]
procedure TAsig_Costos.FormActivate(Sender: TObject);
begin
     IBQ_Cargos.Close;
     IBQ_Cargos.SQL.Clear;
     IBQ_Cargos.SQL.Add('Select * From "Centro"');
     IBQ_Cargos.SQL.Add('Order By "Cen_Codigo"');
     IBQ_Cargos.Open;
     CB_Centro.Items.Clear;

     While IBQ_Cargos.Eof=False Do
     Begin
          CB_Centro.Items.Append(IBQ_Cargos['Cen_Detalle']);
          IBQ_Cargos.Next;
     End;

lo que pasa es que cuando agrego un registro en la tabla "centro" y sin salir del sistema ingreso al Form "Cargos", este no aparece registrado.. pero si salgo del sistema e ingreso de nuevo.. lo actualiza y si aparece

espero haberme explicado bien....
__________________
BlueSteel
Responder Con Cita