Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   !!!!Guardar un codigo que esta en otro form (https://www.clubdelphi.com/foros/showthread.php?t=73107)

Ledwin_v 01-04-2011 00:52:32

!!!!Guardar un codigo que esta en otro form
 
Hola como estan
Tengo dos fomrs en una se guardan todos los datos incluyendo un codigo (autonumerico), en la segunda fomrs tambien se guardan datos pero estos son diferentes, en los cuales quiero incluir el codigo del primer forms.

Quiero que cuando guarde en la segunda forma (forms), tambien se guarde el codigo que genere en la primera forma (forms), dicho codigo obviamente se guardara en una segunda tabla.

Las tablas estan relacionadas y hechas en acces, y es en delphi que estoy programando

Visto de otra forma, que el codigo de una tabla se guarde en la otra tabla.

gracias anticipadas
Gracias por las veces que me han ayudado.

ecfisa 01-04-2011 09:03:08

Hola Ledwin_v.

No está muy detallada la situación, pero como para darte alguna idea te pongo dos ejemplos.

Manualmente usando un TButton:
Código Delphi [-]
procedure TForm1.BotonGuardar(Sender: TObject);
begin
  Table1.Post; // Guardar en Tabla1
  Table2.Edit; // Editar Tabla2
  // Asignar el campo  de Tabla1 al campo en Tabla2 
  Table2.FieldByName('OTROCAMPO').AsString:=  Table1.FieldByName('CODIGO').AsString;
  Table2.Post;  // guardar

En forma automática usando el evento AfterPost de la Tabla1:
Código Delphi [-]
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
  Table2.Edit;   
  // Asignar el campo  de Tabla1 al campo en Tabla2   
  Table2.FieldByName('OTROCAMPO').AsString:= Table1.FieldByName('CODIGO').AsString;
  Table2.Post; // guardar
end;

Pero claro todo depende de la lógica que emplees en tu aplicación...

Un saludo.


La franja horaria es GMT +2. Ahora son las 11:45:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi