Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'dinamico'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 8 results

  1. Boa noite a todos, Sou novo no fórum e iniciante em scripts e gostaria de uma ajuda para fazer um formulário de pedidos funcionar com cálculo dos itens escolhidos pelo cliente. Os itens tem valor pré estabelecido e preciso do seguinte: - Quando o cliente escolher a quantidade, essa quantidade deverá ser multiplicada pelo valor unitário pré estabelecido. - Se o cliente escolher um opcional também com valor pré estabelecido, esse opcional seja acrescido no valor do item. - Sempre deverá ser acrescido ao valor final, uma taxa de entrega também com valor pré estabelecido. - Haverá campos que mostrará os valores totais por itens e outro campo que mostram o valor total da compra. - Existe um botão "Adicionar Campos" e " Excluir Campos" e o valor final da compra deve respeitar a soma de todos os campos adicionados. Caso o cliente exclua o campo, o valor total será também atualizado conforme a quantidade de itens. - Preciso que o formulário efetue o cálculo automaticamente, sem que seja necessário um botão "Calcular". *Todos os campos devem ser obrigatórios. Abaixo envio o formulário que tenho, onde preciso que essas funções sejam colocadas. Desde já, agradeço a atenção e a ajuda de todos. Muito obrigado. <!DOCTYPE html> <html lang="pt-br"> <meta charset="utf-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width, initial-scale=1"> <title>Teste</title> <!-- CSS START --> <link href="assets/css/bootstrap.min.css" rel="stylesheet"> <link href="assets/css/style.css" rel="stylesheet"> <!-- CSS END --> <!--[if lt IE 9]> <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script> <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script> <![endif]--> <!-- CLONA CAMPOS --> <!-- <script src="//ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script> </script> --> <script type="text/javascript"> // if Google is down, it looks to local file... if (typeof jQuery == 'undefined') { document.write(unescape("%3Cscript src='assets/js/jquery-1.9.1.min.js' type='text/javascript'%3E%3C/script%3E")); } </script> <script type="text/javascript" src="assets/js/clone-form-td.js"></script> <!-- FIM CLONA CAMPOS --> <div class="container"> <form class="contact-form" method="post" action=""> <br> <div id="entry1" class="clonedInput"><!-- DIV CLONA CAMPOS --> <div class="col-sm-4"> <p class="contact-form-email"> <label for="footer-produtos">Escolha seus produtos<span class="required">*</span></label> <select name="Selecione" class="form-control"> <option>Escolha</option> <option>Item 1 - R$ 18,50</option> <option>Item 2 - R$ 18,50</option> <option>Item 3 - R$ 20,00</option> <option>Item 4 - R$ 20,00</option> <option>Item 5 - R$ 25,00</option> <option>Item 6 - R$ 25,00</option> <option>Item 7 - R$ 18,50</option> <option>Item 8 - R$ 18,50</option> <option>Item 9 - R$ 18,50</option> <option>Item 10 - R$ 18,50</option> <option>Item 11 - R$ 18,50</option> <option>Item 12 - R$ 18,50</option> <option>Item 13 - R$ 18,50</option> <option>Item 14 - R$ 18,50</option> <option>Item 15 - R$ 18,50</option> <option>Item 16 - R$ 18,50</option> <option>Item 17 - R$ 18,50</option> <option>Item 18 - R$ 18,50</option> <option>Item 19 - R$ 18,50</option> <option>Item 20 - R$ 18,50</option> <option>Item 21 - R$ 18,50</option> <option>Item 22 - R$ 18,50</option> <option>Item 23 - R$ 18,50</option> <option>Item 24 - R$ 18,50</option> <option>Item 25 - R$ 18,50</option> <option>Item 26 - R$ 18,50</option> <option>Item 27 - R$ 18,50</option> <option>Item 28 - R$ 18,50</option> <option>Item 29 - R$ 18,50</option> </select> </p> </div> <div class="col-sm-2"> <p class="contact-form-email"> <label for="footer-quantidade">Quantidade<span class="required">*</span></label> <select name="Selecione" class="form-control"> <option>Escolha</option> <option>1</option> <option>2</option> <option>3</option> <option>4</option> <option>5</option> <option>6</option> <option>7</option> <option>8</option> <option>9</option> <option>10</option> <option>11</option> <option>12</option> <option>13</option> <option>14</option> <option>15</option> </select> </p> </div> <div class="col-sm-4"> <p class="contact-form-email"> <label for="footer-quantidade">Opcional</span></label> <select name="Selecione" class="form-control"> <option>Escolha</option> <option>Sem opcional</option> <option>Opcional 1 - R$ 6,50</option> <option>Opcional 2 - R$ 6,50</option> <option>Opcional 3 - R$ 6,50</option> <option>Opcional 4 - R$ 6,50</option> <option>Opcional 5 - R$ 6,50</option> <option>Opcional 6 - R$ 6,50</option> <option>Opcional 7 - R$ 6,50</option> <option>Opcional 8 - R$ 6,50</option> </select> </p> </div> <div class="col-sm-2"> <p class="contact-form-email"> <label for="footer-valor">Valor</label> <input type="valor" aria-required="true" size="30" value="" name="valor" id="footer-valor" class="form-control" placeholder="VALOR"> </p> </div> </div> <!-- FECHA DIV CLONA CAMPOS --> <!-- ADICIONA CAMPOS --> <div id="addDelButtons" class="col-sm-4"> <label for="footer-valor">&nbsp;</label> <input type="button" id="btnAdd" value="Adicionar + itens" class="form-control"> </div> <div id="addDelButtons" class="col-sm-4"> <label for="footer-valor">&nbsp;</label> <input type="button" id="btnDel" value="Excluir" class="form-control"> </div> <div class="col-sm-2"> <p class="contact-form-email"> <label for="footer-valor">Taxa de entrega</label> <input type="total" aria-required="true" size="30" value="" name="total" id="footer-total" class="form-control" placeholder="R$ 4,00"> </p> </div> <!-- FIM ADICIONA CAMPOS --> <div class="col-sm-2"> <p class="contact-form-email"> <label for="footer-valor">Valor total</label> <input type="total" aria-required="true" size="30" value="" name="total" id="footer-total" class="form-control" placeholder="VALOR TOTAL"> </p> </div> <div class="col-sm-12"> <label for="footer-valor">Valor total</label> </div> <div class="col-sm-4"> <p class="contact-form-email"> <input type="total" aria-required="true" size="30" value="" name="total" id="footer-total" class="form-control" placeholder="REPETE VALOR TOTAL"> </p> </div> <div class="col-sm-8"> <button type="submit" class="btn btn-danger pull-right" onclick="contact_send();">Enviar Pedido</button> </div> </form> </div> <!-- FIM DO FORM DE COMPRA --> <!-- INÍCIO INFORMAÇÕES --> <!-- FOOTER BOTTOM END --> <!-- JAVASCRIPT START --> <script src="assets/js/jquery.min.js"></script> <script src="assets/js/bootstrap.min.js"></script> <script src="assets/js/ruxen.js"></script> <script type="text/javascript" src="http://maps.google.com/maps/api/js?sensor=false"></script> <!-- JAVASCRIPT END --> </body> </html>
  2. Olá! Estou com uma dúvida, existe algum modo de alocar um vetor dinâmico dentro de uma estrutura em C++? Dessa forma que eu fiz o código é compilado normalmente, mas ao executar ele sai do programa quando tenta alocar o tamanho dos vetores recurso e processo. Se alguém puder ajudar, agradeço! Já tentei fazer TComputador *cmp = new TComputador + (sizeof(TProcesso *)*prc) + (sizeof(TRecurso *)*rec); Mas aí o programa termina toda vez que encontro algo tipo "cmp->processo". Segue um trecho do código como exemplo. typedef struct TComputador{ int maxRec; int maxPrc; int numPrc; double exec; TRecurso **recurso; TProcesso **processo; } cmp; TComputador *iniComputador(int rec, int prc){ TComputador *cmp = new TComputador; int tipo; double cap, vel; if(cmp != NULL){ *cmp->processo = new TProcesso[prc]; *cmp->recurso = new TRecurso[rec]; cmp->maxPrc = prc; cmp->maxRec = rec; cmp->numPrc = ; for(int i = ; i < rec; i++){ cin >> tipo; cin >> cap; cin >> vel; addRecurso(cmp->recurso[i], tipo, cap, vel); } } return cmp; }
  3. Grande é a eficiência deste programa, no qual usa um vetor dinâmico para armazenar a quantidade de inteiros que são inseridos pelo usuário, dentro de limitações estabelecida pela #Macro tam, apoiado por um if onde a condição não deixa ultrapassar, Já na declaração deste if temos as mensagens de advertência ao usuário, onde são apagadas após suas exibições pela função clreol(); que por sua vez trabalha apontada pela função gotoxy(); Más nada disto teria sentido se não fosse o repetidor do{}while(); que confirma as condições do if e força a repetição do bloco. Passando pelas condições estabelecidas, um bloco comandado por um único laço for(); colhe a quantidade de números escolhido pelo usuário e armazena num vetor estático que foi declarado e está pronto para isto, más paro por aqui nos meus comentários, e deixo por conta dos interessados no código procurar entender como tudo foi feito. Veja abaixo imagens do programa em execução: Veja abaixo o link do código do programa: http://codigosfontes-ccplus-plus.blogspot.com.br/2015/09/inteiros-pesquisando-e-removendo.html
  4. Bom dia meus caros colegas, Eu cheguei hoje no fórum, tentei ajudar alguns mas também tenho minhas dificuldades... Eu trabalho com desenvolvimento de relatórios numa empresa de FLORES E PLANTAS Estou usando CRYSTAL XI Vou trocar as flores por carros para facilitar o entendimento... Eu criei um parâmetro no CRYSTAL que busca direto da tabela... Por exemplo... A tabela tem um ID e uma DESCRIÇÃO... 1 - GOL 2 - CORSA 3 - SANDERO 4 - PALIO ETC O meu parametro da a opção de eu selecionar apenas 1 ou mais de 1. Eu gostaria que houvesse uma opção '*' para puxar TODOS os tipos de automóveis... Dessa maneira, na minha lista de Parâmetros iria aparecer o seguinte: * - TODOS CARROS 1 - GOL 2 - CORSA 3 - SANDERO 4 - PALIO etc etc etc... Com isso, quando o usuário clicasse em * buscava todos carros, e quando ele clicasse em GOL, iria somente buscar o GOL... Conseguiram entender?? --- Outro detalhe, vou dar o exemplo da mesma tabela... Eu gostaria de criar uma fórmula para apresentar todos os carros selecionados... Por exemplo Se Parametro = '*' Retorna TODOS CARROS SELECIONADOS. senão Se Parametro = 'gol, corsa, palio' //(AQUI SERIA O EXEMPLO DE VETOR OU ARRAY QUE ESTOU FALANDO) Retorna CARROS SELECIONADOS -> GOL, CORSA, PALIO. Senao retorna Parametro Eu espero que tenha ficado claro pra vocês, qualquer dúvida me contatem whatsApp 19 991616871 ou [email protected] OBS: Hoje eu já consigo fazer isso, mas através de uma importação de uma lista, que não é nada dinâmico, a toda inserção nova, eu preciso atualizar uma penca de relatórios...
  5. Senhores, não estou conseguindo Inserir vários checkbox que vem de outras tabelas para tabela correspondente. Faz um tempo que estou tentando solucionar esse problema. Consigo inserir apenas em uma coluna. Mas, por exemplo, tenho umas tabelas chamadas PRODUTO, USUÁRIO e CATEGORIA; estou tentando gravar o ID de cada uma em outra tabela para que elas possam se relacionar. Não importa quantos checks eu venha marcar, sempre está pegando o id do produto corretamente, mas não os outros campos. Os outros campos são gravados na tabela sempre a partir da primeira linha, por exemplo, ou é gravado em outra tabela o último produto ou o primeiro. Também queria inserir preço para cada produto, sendo que acontece a mesma coisa. OBS: A quantidade de checkbox aparece de acordo com a quantidade de produtos. Vou postar o código aqui: add_carrinho.php <?php require_once('Connections/obraGenio2.php'); $maxRows_rsProd = 20; $pageNum_rsProd = 0; if (isset($_GET['pageNum_rsProd'])) { $pageNum_rsProd = $_GET['pageNum_rsProd']; } $startRow_rsProd = $pageNum_rsProd * $maxRows_rsProd; mysql_select_db($database_obraGenio2, $obraGenio2); $query_rsProd = "SELECT DISTINCT p.id_produtos, p.fk_cate3, c3.nome_cate3, p.desc_produto, p.preco_produto, p.fk_usuario_sessao, e.uf FROM tb_produtos p INNER JOIN tb_categoria3 c3 ON p.fk_cate3 = c3.id_cate3 INNER JOIN tb_endereco e INNER JOIN tb_clientes cli on e.id_endereco = cli.fk_endereco ORDER BY p.preco_produto"; $query_limit_rsProd = sprintf("%s LIMIT %d, %d", $query_rsProd, $startRow_rsProd, $maxRows_rsProd); $rsProd = mysql_query($query_limit_rsProd, $obraGenio2) or die(mysql_error()); $row_rsProd = mysql_fetch_assoc($rsProd); if (isset($_GET['totalRows_rsProd'])) { $totalRows_rsProd = $_GET['totalRows_rsProd']; } else { $all_rsProd = mysql_query($query_rsProd); $totalRows_rsProd = mysql_num_rows($all_rsProd); } $totalPages_rsProd = ceil($totalRows_rsProd/$maxRows_rsProd)-1; ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Documento sem título</title> </head> <body> <form id="form1" name="form1" method="post" action="config/function.php?funcao=gravarProdutosAddCarrinho3"> <table border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="7">&nbsp;</td> <td width="156">fk_cate3</td> <td width="148">nome_cate3</td> <td width="144">desc_produto</td> <td width="151">preco_produto</td> <td width="171">preço</td> <td width="171">fk_usuario_sessao</td> <td width="71">uf</td> <td width="124">&nbsp;</td> </tr> <?php do { ?> <tr> <td><?php echo $row_rsProd['id_produtos']; ?> <input name="id_produto[]" type=hidden" id="id_produto[]" value="<?php echo $row_rsProd['id_produtos]; ?>" /> <td><?php echo $row_rsProd['fk_cate3']; ?> <input name="nome_produto[]" type=hidden" id="nome_produto[]" value="<?php echo $row_rsProd['fk_cate3]; ?>" /></td> <td><?php echo $row_rsProd['nome_cate3']; ?></td> <td><?php echo $row_rsProd['desc_produto']; ?></td> <td><?php echo $row_rsProd['preco_produto']; ?></td> <td><label for="txt_preco"></label> <input type="text" name="txt_preco" id="txt_preco" /></td> <td><?php echo $row_rsProd['fk_usuario_sessao']; ?></td> <td><?php echo $row_rsProd['uf']; ?></td> <td><input type="checkbox" name="produto[]" id=produto[]" value="<?php echo $row_rsProd['id_produtos]; ?>"/> <label for="produto[]"></label></td> </tr> <?php } while ($row_rsProd = mysql_fetch_assoc($rsProd)); ?> <tr> <td></td> <td height="2"></td></ </table> <p> <input type="submit" name="btnenviar" id="button" value="Enviar" /> </p> </form> <p>&nbsp;</p> </body> </html> <?php mysql_free_result($rsProd); ?> </body> </html> ABAIXO É ONDE RECEBO OS DADOS: function.php //******************CADASTRAR CARRINHO TESTE **************************** $grava_desc_produto = $_POST["desc_produto"]; if (isset($_GET['funcao'])){ // AÇÃO - ADICIONA PRODUTOS if ($_GET['funcao'] == "gravarProdutosAddCarrinho3"){ $sql3 = "SELECT DISTINCT p.id_produtos, p.fk_cate3, c3.nome_cate3, p.desc_produto, p.preco_produto, p.fk_usuario_sessao, e.uf FROM tb_produtos p INNER JOIN tb_categoria3 c3 ON p.fk_cate3 = c3.id_cate3 INNER JOIN tb_endereco e INNER JOIN tb_clientes cli on e.id_endereco = cli.fk_endereco ORDER BY p.preco_produto"; $res = mysql_query($sql3); $dados = mysql_fetch_array($res); if ($_POST && isset($_POST['produto'])){ if ($_POST['btnenviar']){ $ativo = $_POST['produto']; foreach($ativo as $value){ $cat3 = $dados['fk_cate3']; $preço = $_POST["txt_preco"]; echo $value; $insert = mysql_query("INSERT INTO tb_car_teste(nome_produto, desc_produto, fk_produtos)VALUES('$cat3', '$preço', '$value')"); echo "Produto Cadastrado com Sucesso. Redirecionando..."; echo "<meta HTTP-EQUIV='Refresh' CONTENT='1;URL=../add_carrinho.php'>"; echo $_valor . '<br/>'; } } }}} Preciso gravar em outra tabela o ID do produto, da categoria, do usuário(que não está neste exemplo), o preço que cada usuário poderá "setar". Não sei onde estou errando no código. Algum amigo de profissão poderia me ajudar?
  6. Olá, essa é a minha primeira postagem nesse fórum (além de ser o terceiro em que pergunto) e peço desculpas por qualquer erro que eu esteja cometendo. Sou iniciante em programação orientada a objetos, estudando à apenas seis meses a IDE Delphi 7 em meu curso. Estou a 3 dias do termino do prazo final do trabalho que conclui essa matéria e boa parte de meu projeto está pronto, mas emperrei em um ponto do qual eu não sei o que fazer. A ideia do meu projeto é o gerenciamento de fichas e anotações para se jogar RPG (Role Playing Game) de mesa. O programa principal cria, conforme um registro é carregado ou um formulário para se criar um novo registro é chamado, dinamicamente abas contendo o formulário que será usado. Eu já desenvolvi uma procedure para salvar os dados do formulario no aquivo que eu determinei como "banco de dados" para esse tipo de registro e outra procedure para se abrir um registro - que foi bem simples depois de pensar algumas horas. Como eu executo essa procedure de salvamento ou como eu crio uma que ache os componentes dentro desse formulário dinâmico? Aqui vão as procedures citadas. //Função de abertura de registro/aba //No caso J_Principal é meu Main Form, Campanha é meu registro e PC_Area_de_Trabalho é o PageControl onde as abas que são criadas dinamicamente ficam localizadas procedure TJ_Principal.AbrirCampanha (C : String); var Tab : TTabSheet; Form : TJ_Campanha; begin Tab := TTabSheet.Create(Self); Form := TJ_Campanha.Create(Tab); Seek(ArqCam, 0); while (not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (C = Campanha.Titulo) then begin Seek(ArqCam, FilePos(ArqCam) -1); Break; end; end; if (AbaExiste(Campanha.Titulo)) then begin FreeAndNil(Tab); Exit; end; with Tab do begin PageControl := PC_Area_de_Trabalho; Caption := Campanha.Titulo; ImageIndex := 1; end; with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Tab; L_Cria_Mod.Caption := 'Criado por: ' + Campanha.Criador + ' em: ' + DateToStr(Campanha.DataDeCriacao) + ' Modificado em: ' + DateToStr(Campanha.DataDeModificacao); E_Nome.Text := Campanha.Titulo; M_Resumo.Text := Campanha.Resumo; M_Detalhes.Text := Campanha.Detalhes; if (Campanha.Permissao) then Form.RP_Permissao.ItemIndex := 1 else Form.RP_Permissao.ItemIndex := 0; Show; end; PC_Area_de_Trabalho.ActivePage := Tab; end; //Aqui a procedure padrão para se criar uma nova aba (Um formulario, no sentido literal, não de Form, onde é preenchido os dados que irão ser salvos em Registro) procedure TJ_Principal.CriarAba (F : TFormClass); var Tab : TTabSheet; Form : TForm; Tag : Integer; begin Tab := TTabSheet.Create(Self); Form := F.Create(Tab); if (F = TJ_Campanha) then Tag := 1 else if (F = TJ_Aventura) then Tag := 2 else if (F = TJ_Cena) then Tag := 3 else Tag := 0; Case (Tag) of 1 : Form.Caption := 'Novo - Campanha *'; 2 : Form.Caption := 'Novo - Aventura *'; 3 : Form.Caption := 'Novo - Cena *'; 4 : Form.Caption := 'Novo - Personagem *'; 5 : Form.Caption := 'Novo - Raça *'; 6 : Form.Caption := 'Novo - Classes *'; 7 : Form.Caption := 'Novo - Habilidade *'; 8 : Form.Caption := 'Novo - Item *'; end; if (AbaExiste(Form.Caption)) then begin FreeAndNil(Tab); Exit; end; with Tab do begin PageControl := PC_Area_de_Trabalho; Caption := Form.Caption; ImageIndex := Tag; end; with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Tab; //Name := 'Nome'; //Só coloquei isso pois minha ultima tentativa mal sucedida era usar o Application.FindCOmponent('Nome'), porém meu teste não funcionou v.v Show; end; PC_Area_de_Trabalho.ActivePage := Tab; end; //Função que verifica se já existe alguma aba igual já aberta function TJ_Principal.AbaExiste(NomeAba: string): Boolean; var I : Integer; Aba : TTabSheet; begin Result := False; for I := 0 to PC_Area_de_Trabalho.PageCount - 1 do begin if ((PC_Area_de_Trabalho.Pages[I].Caption = NomeAba) or (PC_Area_de_Trabalho.Pages[I].Caption = ('*' + NomeAba))) then begin Aba := PC_Area_de_Trabalho.Pages[I]; PC_Area_de_Trabalho.ActivePage := Aba; Result := True; Break; end; end; end; //Esse é a unica Procedure que não está localizada no Main Form //Processo que salva os dados preenchidos em um Form préviamente aberto com CriaAba. //Funciona perfeitamente se tiver um botão dentro do formulário que o ative, mas o Main Form(J_Principal) não consegue acessa-lo, pois como é criado dinamicamente //e se tem mais de um tipo de form TJ_Campanha aberto, ele não sabe para qual eu estou me referindo. procedure TJ_Campanha.SalvarArquivo; var I : Integer; begin I := 1; Seek(ArqCam, 0); while (not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (Self.E_Nome.Text = Campanha.Titulo) then if (MessageDlg('Já existe um registro com esse nome, deseja salvar mesmo assim?' + #13 + 'Caso SIM, ambos os registros serão mantidos.', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin Seek (ArqCam, 0); while(not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (Campanha.Titulo = Self.E_Nome.Text + IntToStr(I)) then begin Inc(I); Seek(ArqCam, 0); end; end; E_Nome.Text := E_Nome.Text + IntToStr(I); Break; end else Exit; end; with Campanha do begin Criador := Usuario.Nome; DataDeCriacao := Date + Time; DataDeModificacao := Date + Time; Titulo := E_Nome.Text; Resumo := M_Resumo.Text; Detalhes := M_Detalhes.Text; if (RP_Permissao.ItemIndex = 0) then Permissao := False else Permissao := True; for I := 1 to Self.LB_PJogaveis.Count do //O que é essa propriedade ItemHeight??? PJ[I] := Copy(Self.LB_PJogaveis.Items[I-1], 0, Pos(' ', Self.LB_PJogaveis.Items[I-1])); for I := 1 to Self.LB_PNJogaveis.Count do PnJ[I] := Copy(Self.LB_PNJogaveis.Items[I-1], 0, Pos(' ', Self.LB_PNJogaveis.Items[I-1])); for I := 1 to Self.LB_AventurasEscolhidas.Count do Aventuras[I] := Copy(Self.LB_AventurasEscolhidas.Items[I-1], 0, Pos(' ', Self.LB_AventurasEscolhidas.Items[I-1])); end; Write(ArqCam, Campanha); J_Principal.PC_Area_de_Trabalho.ActivePage.Caption := Campanha.Titulo; end; Todo esse código foi desenvolvido por mim, ao longo de dois dias com a ajuda desses links aqui: http://lucianopimenta.com/post.aspx?id=171- Que utilizou a abertura em abas para fazer um Navegador http://www.devmedia.com.br/websys.5/webreader.asp?cat=3&artigo=1907&revista=clubedelphi_110#a-1907- Inicialmente eu iria usar essa classe, mas ela se demonstrou incompativel com a minha IDE por motivos desconhecidos. Eu meio que estou desesperado. Se alguém tiver alguma ideia de como eu devo proceder a partir de agora, eu agradeço. Se algo ficou mal explicado, me desculpem, pois estou morrendo de sono, mas perguntem por que eu tento me explicar de novo com outras palavras. Desde já, agradeço.
  7. Olá, pessoas! Preciso de uma pequena ajuda com javascript. Preciso criar um questionário dinâmico. Pra falar a verdade, vai ser um criador de questionários pra depois se responder os questionários. Então eu preciso criar um campo de input, que eu já criei, que ao pressionar um botão criam-se novos inputs. Isso eu já fiz. Agora, ao tempo que crie esses inputs, criar um botão para adicionar respostas ligadas a um radiobox. E que esse radiobox possa receber um valor separado da pergunta. Bem, é isso, o resto eu me viro. Valeu!
  8. Boa tarde, galera! Estou com um problema que já esta me dando muita dor de cabeça. Tenho um formulário que pede alguns dados para geração de um contrato. Pois bem, preciso que ao selecionar o tipo de equipamento no primeiro list menu carregue as marcas no segundo list menu e ao selecionar a marca carregue os modelos no terceiro list menu. Até conseguir carregar as marcas eu consegui, mas não estou conseguindo popular o terceiro list menu com os modelos. Segue os códigos: monta_contrato.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <!-- #include file="../regras.css" --> <!-- #include file="../funcoes/conexao.asp" --> <script language="javascript"> function showCustomer(str, tipo) { if (tipo == "marca") { if (str=="") { document.getElementById("mostra_marca").innerHTML=""; return false; } xmlhttp=new XMLHttpRequest(); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4 && xmlhttp.status==200) { document.getElementById("mostra_marca").innerHTML=xmlhttp.responseText; } } xmlhttp.open("GET","mostra_marca.asp?q="+str,true); xmlhttp.send(); } else { if (tipo == "modelo") { if (str=="") { document.getElementById("mostra_modelo").innerHTML=""; return false; } xmlhttp=new XMLHttpRequest(); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4 && xmlhttp.status==200) { document.getElementById("mostra_modelo").innerHTML=xmlhttp.responseText; } } xmlhttp.open("GET","mostra_modelo.asp?q="+str,true); xmlhttp.send(); } } } </script> </head> <body> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3"><table bgcolor="#000000" width="100%" border="0"> <tr> <td width="160"><img src="../imagens/logo/logo.jpg" width="160" height="100" /></td> <td align="center"><font color="#FFFFFF"><strong>PAINEL DE CONTROLE</strong></font></td> </tr> </table></td> </tr> <tr> <td width="15%" valign="top">&nbsp;</td> <td>&nbsp;</td> <td width="5%">&nbsp;</td> </tr> <tr> <td width="160" valign="top"><!-- #include file="menu_painel.asp" --></td> <td align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000000"><font color="#FFFFFF"><strong>NOVO CONTRATO</strong></font></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><p>Você está iniciando um novo contrato para:</p> <% codigo_cli = request.QueryString("cliente") If codigo_cli < 5000 Then sqlCons = "SELECT nome_cf FROM cliente_fisico WHERE codigo_cf = '" & codigo_cli & "'" set rsCons = Conn.Execute(sqlCons) DO WHILE NOT rsCons.eof nome_cli = rsCons("nome_cf") rsCons.movenext LOOP rsCons.close set rsCons = nothing Else sqlCons = "SELECT fantasia_cj FROM cliente_juridico WHERE codigo_cj = '" & codigo_cli & "'" set rsCons = Conn.Execute(sqlCons) DO WHILE NOT rsCons.eof nome_cli = rsCons("fantasia_cj") rsCons.movenext LOOP rsCons.close set rsCons = nothing End If %> <p><% =nome_cli %></p></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#000000"><font color="#FFFFFF"><strong>DADOS NECESSÁRIOS</strong></font></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><form id="form1" name="form1" method="post" action="../funcoes/monta_contrato.asp"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="33%" bgcolor="#CCCCCC">Quantidade:</td> <td width="67%" bgcolor="#CCCCCC"><label for="txt_quantidade"></label> <input type="text" name="txt_quantidade" id="txt_quantidade" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Equipamento</td> <td bgcolor="#CCCCCC"><label for="txt_equipamento"></label> <select name="txt_equipamento" id="txt_equipamento" onchange="showCustomer(this.value,'marca')" > <% encheEquip = "SELECT DISTINCT(equipamento_pl) FROM produtos_locacao ORDER BY equipamento_pl ASC" set rsEncEqui = Conn.execute(encheEquip) DO WHILE NOT rsEncEqui.eof %> <option value="<% =rsEncEqui("equipamento_pl") %>"><% =rsEncEqui("equipamento_pl") %></option> <% rsEncEqui.movenext LOOP rsEncEqui.close set rsEncEqui = nothing %> </select></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Marca</td> <td bgcolor="#CCCCCC"><div id="mostra_marca" name="mostra_marca"> <label for="txt_marca"></label> <select name="txt_marca" id="txt_marca" onchange="showCustomer(this.value,'modelo')"> </select></div></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Modelo</td> <td bgcolor="#CCCCCC"><div id="mostra_modelo" name="mostra_modelo"><label for="txt_modelo"></label> <select name="txt_modelo" id="txt_modelo"> </select></div></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Franquia</td> <td bgcolor="#CCCCCC"><input type="text" name="txt_franquia" id="txt_franquia" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Valor</td> <td bgcolor="#CCCCCC"><label for="txt_valor"></label> <input type="text" name="txt_valor" id="txt_valor" /></td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Extenso</td> <td bgcolor="#CCCCCC"><label for="txt_valorext"></label> <input type="text" name="txt_valorext" id="txt_valorext" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Página Extra</td> <td bgcolor="#CCCCCC"><label for="txt_pgextra"></label> <input type="text" name="txt_pgextra" id="txt_pgextra" /></td> </tr> <tr> <td bgcolor="#CCCCCC">Valor Extenso</td> <td bgcolor="#CCCCCC"><label for="txt_pgextraext"></label> <input type="text" name="txt_pgextraext" id="txt_pgextraext" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Inicio do Contrato</td> <td bgcolor="#CCCCCC"><label for="txt_inicio"></label> <input type="text" name="txt_inicio" id="txt_inicio" /></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC">&nbsp;</td> </tr> <tr> <td bgcolor="#CCCCCC">Vencimento Boleto</td> <td bgcolor="#CCCCCC"><label for="txt_vencimento"></label> <select name="txt_vencimento" id="txt_vencimento"> </select></td> </tr> <tr> <td bgcolor="#CCCCCC">&nbsp;</td> <td bgcolor="#CCCCCC"><input name="txt_empresa" type="hidden" id="txt_empresa" value="<% =codigo_cli %>" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td><input type="image" src="../imagens/clientes/salvar_contrato.png" width="200" height="70" alt="Salvar" value="submit" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </form></td> </tr> </table> <p>&nbsp;</p></td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td bgcolor="#000000" colspan="3">&nbsp;</td> </tr> </table> </body> </html> mostra_marca.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <!-- #include file="../funcoes/conexao.asp" --> </head> <body> <% sql="SELECT DISTINCT(marca_pl) FROM produtos_locacao WHERE equipamento_pl='" & request.QueryString("q") & "' ORDER BY marca_pl ASC" set rs = Conn.execute(sql) %> <select name="txt_marca" onchange="showCustomer(this.value,'modelo')" > <option value="" selected>Selecione</option> <% DO WHILE NOT rs.EOF %> <option value="<%= rs("marca_pl") %>"><%= rs("marca_pl") %></option> <% rs.MoveNext LOOP rs.close Set rs =nothing %> </select> </body> </html> mostra_modelo.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <!-- #include file="../funcoes/conexao.asp" --> </head> <body> <% sql="SELECT DISTINCT(modelo_pl) FROM produtos_locacao WHERE equipamento_pl=" & request.QueryString("z") & "' AND marca_pl='" & request.QueryString("q") & "'" set rs = Conn.execute(sql) %> <select name="txt_modelo"> <option value="" selected>Selecione</option> <% DO WHILE NOT rs.EOF %> <option value="<%= rs("modelo_pl") %>"><%= rs("modelo_pl") %></option> <% rs.MoveNext LOOP rs.close Set rs =nothing %> </select> </body> </html>
×
×
  • Create New...