Ir para conteúdo
Fórum Script Brasil
  • 0

Inclusão em 3 tabelas de um bco de Dados


Fabiano Furquim

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...