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;