![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#18
|
|||
|
|||
|
Ahora es este nuestro nuevo código, en la unidad que tiene todo:
Código:
procedure TForm9.BitBtn1Click(Sender: TObject); begin Form23.Visible:=true; Form9.Visible:=False; Tabla_clientes.Insert; end; procedure TForm9.Tabla_clientesAfterPost(DataSet: TDataSet); begin Tabla_clientes.FlushBuffers; end; y en la unidad de insertar : Código:
procedure TForm23.Button1Click(Sender: TObject); begin Form9.Tabla_clientes.Post; Form23.Visible:=false; Form24.Visible:=true; end; |
|
|
|