Ver Mensaje Individual
  #16  
Antiguo 25-04-2008
Nereida Nereida is offline
Miembro
 
Registrado: abr 2008
Posts: 34
Reputación: 0
Nereida Va por buen camino
Sigo con el diseño q os dije: un ibtable y un ibquery por separado
Asi que os voy a mostrar el código por separado para asi a ver si os aclarais ya que las expliaciones como habeis podido comprobar, no son lo mio


Código:
 
var
  varform:tform3;
begin
  inherited;
    main.MainForm.n_clie:=TRUE;
    varform:=tform3.create(self);
    try
      varform.Caption:='Nuevo Cliente';
      varform.IBQuery1.insert;
      varform.showmodal;
    finally
      varform.free;
      ibtable1.Refresh;
    end;
Ahi va el codigo del otro formulario:

Código:
 
procedure TForm3.FormCreate(Sender: TObject);
begin
      ibquery1.Insert;
end;
 
procedure TForm3.AceptarClick(Sender: TObject);
begin
      IBquery1.Post;
      IBquery1.close;
end;
Espero que asi se pueda entender mejor y me repito, muchas gracias
Responder Con Cita