Fórum Ajuda com automatização de tabela #402885

12/06/2011

0

Boa Noite tenho as seguintes Tabelas abaixo, com seus respectivos formulários de cadastro. Bom o que estou tentando é o seguinte após confirmar o Torneio e os jogadores, gerar uma Tabela de Jogos, baseado na tabela Aux.: Torneio de Xadrez e Damas - Torneios (ID_Torneio, Nome do Torneio) - Jogadores (ID_Jogador, Nome Jogador) - Conf_Jog_Torneio (ID_Torneio, ID_Jogador, Numero, Sexo, Categoria, modalidade) - Tabela_Jogos (ID_Jogo, Torneio, Sexo, Categoria, Jogador1, Jogador2, Data, Hora, Result1, Result2) _ Tabela_Aux_Jogos (Codigo, NJogad, jogador 1, Jogador 2) – Essa tabela já é pré definida: vou colocar o emparceiramento até 5 jogadores pois são muitos dados: TABELA_AUX_JOGOS Codigo NJogad Jogador1 Jogador2 1 2 1 2 2 3 2 3 3 3 3 1 4 3 1 2 5 4 1 4 6 4 2 3 7 4 1 3 8 4 4 2 9 4 1 2 10 4 3 4 11 5 2 5 12 5 3 4 13 5 4 2 14 5 5 1 15 5 1 4 16 5 2 3 17 5 3 1 18 5 4 5 19 5 5 3 20 5 1 2 Ex.: 2 Jogadores 1 – Paulo 2 – Pedro 3 – Augusto 4 –Sergio   A Tabela_Jogos ficaria:   ID_Torneio Torneio Modalidade Sexo Categoria Jogador1 Jogador2 Dat Hora Local 01 ABERTO DAMAS M Paulo Sergio 02 ABERTO DAMAS M Pedro Augusto 03 ABERTO DAMAS M Paulo Augusto 04 ABERTO DAMAS M Sergio Pedro 05 ABERTO DAMAS M Paulo Pedro 06 ABERTO DAMAS M Augusto Sergio
Arsenio Rodrigues

Arsenio Rodrigues

Responder

Posts

13/06/2011

Nigro

Amigo o layout da sua mensagem está dificultando o entendimento.
Responder

Gostei + 0

13/06/2011

Arsenio Rodrigues

Desculpe não havia reparado que tinha saida sem formatação, mas ja arrumei.... quem puder me ajudar
Responder

Gostei + 0

13/06/2011

Nigro

Creio que sua intensão seria fazer inicialmente, todos contra todos, certo? Nesse caso, faça duas tabelas de jogadores A e B, da seguinte forma:
TabelaA.First
while not TabelaA.eof do
begin
  TabelaB.First;
  while not TabelaB.eof do
  begin
    if TabelaA.FieldByName('Codigo').AsInteger <>  TabelaB.FieldByName('Codigo').AsInteger then
    begin
      TabelaDeJogos.Insert;
      Faz o insert na tebela de jogo
      TabelaDeJogos.Post;
    end;
    TabelaB.Next;
  end;
 
  TabelaA.Next;
end;
  ajudou?
Responder

Gostei + 0

13/06/2011

Arsenio Rodrigues

Ola amigo, realmente é um tipo de todos contra todos em um só turno.... Mas eu preciso fazer de acordo com a Tabela_Aux_Jogos que ja é definida, ou seja eu cadastro os jogadores, as competições, depois confirmo os jogadores que participarão de uma competição x, e dali faço o sorteio dos jogos..... mas de acordo com a tabela ja definida "Tabela_Aux_Jogos ", para popular a Tabela_Jogos..... A Tabela_Aux_Jogos tem seu campos (Codigo, NJogad, jogador 1, Jogador 2) , sendo NJogad - o numero de jogadores por competição, jogador 1 e jogador2 - a ordem que ficarão nas rodadas na tabela_jogos.........   Naõ sei se deu para entender.....
Responder

Gostei + 0

15/06/2011

Arsenio Rodrigues

Ola amigo, realmente é um tipo de todos contra todos em um só turno.... Mas eu preciso fazer de acordo com a Tabela_Aux_Jogos que ja é definida, ou seja eu cadastro os jogadores, as competições, depois confirmo os jogadores que participarão de uma competição x, e dali faço o sorteio dos jogos..... mas de acordo com a tabela ja definida "Tabela_Aux_Jogos ", para popular a Tabela_Jogos..... A Tabela_Aux_Jogos tem seu campos (Codigo, NJogad, jogador 1, Jogador 2) , sendo NJogad - o numero de jogadores por competição, jogador 1 e jogador2 - a ordem que ficarão nas rodadas na tabela_jogos.........   Naõ sei se deu para entender....
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar