Hola
Aunque el tema ya se contesto
aqui, me parece que todavía no te queda claro.
Para hacer un insert en varias tablas es lo mismo que en una.
No importa si están relacionadas o no, esto solo afectara a la hora de relacionar la información, pero para mostrarla, no para insertarla o modificarla.
Ahora, para insertar lo que se necesita es:
1- Tener un query.
2- Hacer una sentencia sql.
3- Grabar la informacion.
El paso 3 se puede hacer, o bien directo, osea que se insertara pero no se veran los resultados en el form o viéndolos, me explico con este comando (ExecSQL) se hace directo y simplemente abriendo el query se hace visible.
Veamos que usa la sentencia sql:
las palabras
Instert Into, seguido por
el nombre de la tabla, entre paréntesis
(Los campos que se quieren insertar de esa tabla) a continuacion la palabra
Values y entre parentesis los
(datos que quieres insertar).
Veamos un ejemplo:
El Query: Query1
La tabla: Tabla1
Los Campos: Id, Nombre, Apellido.
La Información: Edit1, Edit2, Edit3.
Ahora insertaremos en esa tabla:
Código Delphi
[-]
Query1.SQL.Text := 'Insert Into Tabla1 (Id, Nombre, Apellido) '+
'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
Query1.ExecSQL;
Ejemplo de dos o mas tablas:
El Query: Query1 (uno solo)
Las tablas: Tabla1, tabla2
Los Campos: tabla1(Id, Nombre, Apellido), tabla2(Id, telefono1,telefono2).
La Información: Edit1, Edit2, Edit3, Edit4, edit5.
Ahora insertaremos en las tablas:
Código Delphi
[-]
Query1.SQL.Text := 'Insert Into Tabla1 (Id, Nombre, Apellido) '+
'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
Query1.ExecSQL;
Query1.SQL.Text := 'Insert Into Tabla2 (Id, Telefono1, Telefono2) '+
'Values (' +Edit1.Text+', '+Edit4.Text+', '+Edit5.Text')'
Query1.ExecSQL;
Como ves el campo ID esta relacionado en las dos tablas y la información esta en el Edit1.
Espero que te quede mas claro y te sirva.
Saludos