Inclusão em 3 tabelas de um bco de Dados

[Fabiano Furquim]

Boa Tarde a Todos.

Estou desenvolvendo um programa para uma amiga e estou com o seguinte problema. Preciso criar uma cadastro que dependendo o tipo de cadastro escolhido faça um tipo de cadastramento diferenciado, por exemplo:

A escola na qual ela trabalha tem 3 tipos de matriculas:

1. Matricula com Responsável
2. Matricula com Empresa como Responsável
3. Matricula para aluno = Responsável

Deste modo quando seleciono, por exemplo seleciono a Matricula com responsável, preciso inserir as informações na tabela de Aluno, Tabela Responsável e também gerar uma qtde de parcelas a serem pagas na tabela de pagamento.

Também há a necessidade de vincular o aluno ao Responsável, seja ele qual for.

Meu problema é o segunte:

Não estou conseguindo inserir todas as informações ao mesmo tempo em todas as tabelas. As informações são inseridas após o operador clicar no botão salvar.

Estou utilizando o banco de Dados Interbase, e os componentes da paleta interbase (IBDataSet, IBTransaction, IBDataBase)

Gostaria que alguém pudesse me ajudar!

Desde Já agradeço pela atenção de Todos.

Obrigado.

[Jhonas]

Meu problema é o segunte:

Não estou conseguindo inserir todas as informações ao mesmo tempo em todas as tabelas. As informações são inseridas após o operador clicar no botão salvar.

Use o componente IBQuery para cada tabela, depois ao clicar no botão OK para salvar, basta dar um Post e um ApplyUpdates em cada tabela.

exemplo:

procedure TForm1.BitBtn5Click(Sender: TObject);
var i : integer;
begin

         CDS_Tabela1.Post;
         CDS_Tabela1.ApplyUpdates(-1);

         CDS_Tabela2.Post;
         CDS_Tabela2.ApplyUpdates(-1);

         CDS_Tabela3.Post;
         CDS_Tabela4.ApplyUpdates(-1);
        
         //ATUALIZAR OS DADOS PARA A REDE
         FMenu.IBTransaction1.Commit;
         FMenu.IBTransaction1.StartTransaction;

         MessageDlg('Alterações efetuadas com sucesso! ', mtInformation, [mbOK], 0);
end;

abraço

[Fabiano Furquim]

Use o componente IBQuery para cada tabela, depois ao clicar no botão OK para salvar, basta dar um Post e um ApplyUpdates em cada tabela.

Valeu Jhonas. Vou Testar e Retorno com o resultado...

Desde já Obrigado!