ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO] Rotina while meio confuso!!!! Ajuda

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
marcelo.ga
Novato
Novato


Registrado: Quinta-Feira, 25 de Fevereiro de 2010
Mensagens: 22

MensagemEnviada: Seg Jul 26, 2010 4:55 pm    Assunto: [RESOLVIDO] Rotina while meio confuso!!!! Ajuda Responder com Citação

Boa tarde, preciso fazer uma rotina que faça um loop a partir de alguns dados. Segue abaixo o codigo.

TABELA RELACIONAMENTO (COD. , CODUNIDADE, CODSEGMENTO, CODPROJETO, DESCRIÇÃO)
TABELA PROJETO (COD, DESCRIÇÃO)
TABELA SEGMENTO (COD, DESCRIÇÃO)
TABELA UNIDADE (COD. DESCRIÇÃO)

BEM O QUE PRECISO FAZER É:

Quando eu for CRIAR um novo Projeto, eu possa clicar em novo e COLOCAR a DESCRIÇÃO deste novo projeto, e selecionar todos os segmentos que ele pertence (por exemplo, ADMINISTRAÇÃO, CULTURA), quando eu mandar salvar ele possa pegar os segmentos que eu selecionei do grid e fazer um loop desta forma.

PROJETO DISNEY, IRÁ TER 4 REGISTROS NO EXEMPLO ABAIXO

PROJETO : DISNEY | SEGMENTO : ADMINISTRAÇÃO | UNIDADE : RJ
PROJETO : DISNEY | SEGMENTO : ADMINISTRAÇÃO | UNIDADE : SP
PROJETO : DISNEY | SEGMENTO : CULTURA | UNIDADE : RJ
PROJETO : DISNEY | SEGMENTO : CULTURA | UNIDADE : SP

Bem quando clico em salvar ele gerasse automaticamente esses quatro registros, pois os segmento serão repetidos para cada unidade cadastrada, e o projeto terá o mesmo numero dentro de cada segmento que foi selecionado na DBGRID. Por favor me ajudem se algum puder..



desde já agradeço!

ATT
Marcelo Gomes


Editado pela última vez por marcelo.ga em Ter Nov 09, 2010 10:03 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
samfreire
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 11 de Março de 2010
Mensagens: 136

MensagemEnviada: Seg Jul 26, 2010 5:01 pm    Assunto: Responder com Citação

Citação:
COLOCAR a DESCRIÇÃO deste novo projeto, e selecionar todos os segmentos que ele pertence (por exemplo, ADMINISTRAÇÃO, CULTURA)


Não entendi essa parte Marcelo.

Se vc vai selecionar o segmento pra que vc quer q cria outro.

se puder por uma imagem , pra mim fica mais facil te ajudar.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
marcelo.ga
Novato
Novato


Registrado: Quinta-Feira, 25 de Fevereiro de 2010
Mensagens: 22

MensagemEnviada: Seg Jul 26, 2010 5:16 pm    Assunto: Responder com Citação

http://i1006.photobucket.com/albums/af190/midyashop/Belem.jpg
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
rafmattos
Colaborador
Colaborador


Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS

MensagemEnviada: Seg Jul 26, 2010 5:38 pm    Assunto: Responder com Citação

marcelo.ga escreveu:
http://i1006.photobucket.com/albums/af190/midyashop/Belem.jpg


essa unidade é sempre RJ e SP. ou é uma tabela?


Editado pela última vez por rafmattos em Seg Jul 26, 2010 5:45 pm, num total de 2 vezes
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
samfreire
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 11 de Março de 2010
Mensagens: 136

MensagemEnviada: Seg Jul 26, 2010 5:43 pm    Assunto: Responder com Citação

rafmattos escreveu:
marcelo.ga escreveu:
http://i1006.photobucket.com/albums/af190/midyashop/Belem.jpg


essa unidade RJ e SP é tabela?


aproveitando a pergunta do Rafa.

Pq vc nao usa chekbox para selecionar?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
rafmattos
Colaborador
Colaborador


Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS

MensagemEnviada: Seg Jul 26, 2010 5:44 pm    Assunto: Responder com Citação

um exemplo do q + ou - eu entendi
da uma olhada

Código:

if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
begin
  for nI:=0 to DBGrid1.SelectedRows.Count-1 do
  begin   //        PROJETO DISNEY                   ADMINISTRACAO
      Texto := EditDescricaoProjeto.text+cdsTabelaDescricao.asstring+' UNIDADE: RJ';
            //        PROJETO DISNEY                   CULTURA
      Texto := EditDescricaoProjeto.text+cdsTabelaDescricao.asstring+' UNIDADE: SP';
  end;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB