Ir para conteúdo
Fórum Script Brasil

tux_boy

Membros
  • Total de itens

    38
  • Registro em

  • Última visita

Tudo que tux_boy postou

  1. O erro é que do jeito que está ele simplesmente não cadastra, na tela não da erro nenhum. Aqui vai o codigo completo: <? $totcf=0; $totcb=0; $totc=0; $totp=0; $totba=0; $tots=0; $totl=0; $tota=0; $xra= $_POST["vra"]; $vin=$_POST["escondido"]; $xx=$_POST["vnumteste"]; echo $_POST["area"]; echo $xx; if ($_POST["resp"] == 1) { if ($_POST["area"] == 1) $totcf++; else if ($_POST["area"]== 2) $totcb++; else if ($_POST["area"]== 3) $totc++; } $conexao=mysql_connect('localhost','root',''); mysql_select_db('teste_vocac',$conexao); $mudavalor = mysql_query("UPDATE resposta_aluno SET totcf = totcf+'$totcf', totcb = totcb+'$totcb', totc = totc+'$totc', totp = '$totp', totba = '$totba', tots = '$tots', totl = '$totl', tota = '$tota' WHERE num_teste= '$xx' ", $conexao); if ($mudavalor) echo 'Resposta cadastrado'; else echo 'Não deu certo'; //echo "<meta HTTP-EQUIV='Refresh' CONTENT='0;URL=teste.php'>"; echo '<form method="post" action="teste.php" >'; echo '<input type=hidden name=escondido value="'.$vin.'">'; echo '<input type=hidden name=vra value="'.$xra.'">'; echo'<input type="reset" value="Cancelar">'; echo'<input type="submit" value="Avançar">'; ?>
  2. Socorro pessoal. Estou com um problema, não estou me acertando com as aspas e com a concatenação no seguinte codigo: $mudavalor = mysql_query("UPDATE resposta_aluno SET totcf = '$totcf', totcb = '$totcb', totc = '$totc', totp = '$totp', totba = '$totba', tots = '$tots', totl = '$totl', tota = '$tota' WHERE num_teste= '$xx' ", $conexao); if ($mudavalor) echo 'Resposta cadastrado'; else echo 'Não deu certo'; Meu problema está no update, tentei inumeras variações, mais a maiorira retorna que não consegue atualizar o registro. alguém pode me ajudar? Muito Obrigado
  3. Olá Onde trabalho instalamos um servidor de bando de dados com o oracle, e eu gostaria de fazer alguns testes. O problema é que todos os componetes com acesso nativo a oracle que encontrei são pagos, gostaria de saber se tenho alguma opção gratuita. alguém pode me ajudar? Muito Obrigado pela atenção
  4. Pessoal, tenho um groupbox com 6 opções e de acordo com a opção se gera um arquivo texto diferente. O meu problema que quando vou tentar gravar no arquivo texto, e apenas em uma das opções aparece o erro de "invalid file name". Olhi tudo e não achei porque ele não ta pegando o nome do arquivo, até porque essa parte do codigo está igual a das outras cinco opções, que não dão erro. Abaixo vou colocar o trecho com erro: ... LabelStatus.Caption := 'Gerando Notas de Saida'; LabelStatus.visible := TRUE; MessageDlg('Esta operação pode demorar alguns minutos, por favor aguarde !!!', mtWarning, [mbOK], 0); QSaida.close; QSaida.parambyname('WFI').AsInteger := QFILIAL.FIELDBYNAME('FILIAL').AsInteger; QSaida.parambyname('TIPO').Asstring := 'S'; QSaida.parambyname('WDTINI').AsDATE := dtInicial.Date; QSaida.parambyname('WDTFIM').AsDATE := dtFinal.DATE; IF QSaida.ParamByName('WdtfiM').AsDate < QSaida.ParamByName('Wdtini').AsDate THEN begin MessageDlg('Data Final menor que data inicial!', mtWarning, [mbOK], 0); dtFinal.SetFocus; end else BEGIN QSaida.Open; QSaida.First; GaugeStatus.MaxValue := QSaida.RecordCount; {$I-} { Get directory name from TEdit control } MkDir('C:\teste\'+ IBLKFILIAL.Text + '\Saidas\'+ copy(DateToStr(dtInicial.Date),1,2)+ ' a ' + copy(DateToStr(dtFinal.Date),1,2) + ' do ' + copy(DateToStr(dtInicial.Date),4,2) + ' de ' + copy(DateToStr(dtInicial.Date),7,4)); {$I+} Salvar1.InitialDir := 'C:\teste\'+ IBLKFILIAL.Text + '\Saidas\'+ copy(DateToStr(dtInicial.Date),1,2)+ ' a ' + copy(DateToStr(dtFinal.Date),1,2) + ' do ' + copy(DateToStr(dtInicial.Date),4,2) + ' de ' + copy(DateToStr(dtInicial.Date),7,4); Salvar1.FileName := 'saida.txt'; Salvar1.Title := 'Salvar arquivo remessa em:'; SALVAR1.Execute; AssignFile (arq,Salvar1.FileName); Rewrite (arq); O sistema da o erro na ultima linha, no rewrite, mais não consigo descubrir o porque! Por favor, vocês podem me ajudar!!!!
  5. Pessoal, meu problema é o seguinte: sou novo em delphi, estou tentando fazer um sistema de backup e fazer a cópia de um arquivo de um lugar para outro eu consegui. O problema é que eu queria compactar o backup, procurei na internet e achei alguns exemplos de como fazer isso utilizando o winzip e o winrar. Meu problema é que nenhum que eu tenha encontrado funcinou e queria saber se vocês poderiam me ajudar. Utilizo o delphi 5. Muito obrigado!
  6. tux_boy

    VSSpell

    Ainda sou novo em programação e estou utilizando o delphi 5 e gostaria de saber como posso utilizar esse componente. Sei que um corretor ortográfico, mais coloquei-o no formulário e não sei como faze-lo funcionar. alguém pode me dar um exemplo ou me explicar como ele funciona? Muito Obrigado!
  7. Alguém poderia me dizer qual banco utiliza arquivos com a extenção dbb? Muito obrigado
  8. tux_boy

    Delphi e MySql

    Qual é o jeito mais facil? Achei um tutorial na internet de como fazer, mandando eu utilizar um sqlconection, um datasource e um sqlquery, só que quando testo a conexão da um erro de Failure to Conect: Unable to load LibMysql.dll. se alguém puder me dizer como contornar esse erro, ou outra maneira de faze-lo, agradeceria muito!
  9. Pessoal, tenho um servidor MySql na escola em que trabalho, e estou desenvolvendo um sistema para a biblioteca, e o chefe quer que utilize um banco criado no servidor, o problema é que não sei como posso fazer isso! alguém pode me ajudar? Obrigado
  10. Muito obrigado micheus! Resolveu o meu problema sim, vlw
  11. Pessoal, eu baixei da internet um novo componente para utilizar no delphi. No arquivo zipado que eu baizei vei 3 arquivos: um com extensão DCR, outro DCU e um PAS. Como faço para instala-lo no delphi? Eu não sei, pois sou iniciante e nunca havia utilizado componentes diferentes antes. Muito obrigado!
  12. Micheus, desculpe a folga, mais seria possivel você colocar um exemplo de como faz isso? Muito obrigado!
  13. No meu fomulario tenho um page control, e em cada uma das "abas" estou montando um cadastro diferente. O problema é que a quantidade de informações é grande e queria usar esse componente para que o ususario pudesse rolar essa barra, para eu poder organizar melhor o cadastro. porém quando altero a propriedade associate e coloco o tab sheet, ou qualquer outro componente que esteja no formulario, ele fica em branco. alguém poderia me dizer o porque? Estou utilizando errado o componente? Muito obrigado!
  14. tux_boy

    Instalador

    Realçmente o InnoSetup é muito bom, porem como faço para gerar um instalador de um sistema que uiliza bando de dados Access. Tentei utilizar o InnoSetup, mais depois da instalação do sistema, fui tentar executar e não deu certo, deu erro. Muito obrigado
  15. tux_boy

    Instalador

    Algum poderia me ajudar me dizendo onde consigo download de programas que gerem instaladores para aplicações em delphi. Eu utilizo o InstallShield com o delphi 5, mais estou com alguns problemas e queria saber se exitem outras opções. Muito obrigado!
  16. Estou exportando alguns dados para o excel, porem não estou conseguindo ajustar o tamanho das colunas para que o meu texto fique todo exibido. Aproveitando a pergunta, tambem gostaria de saber como posso fazer para mesclar células. O código que estou utilizando é: procedure TForm1.Button1Click(Sender: TObject); var excel :variant; begin try excel := CreateOleObject('excel.application'); if not Excel.Application.Visible then Excel.Application.Visible := true; Excel.WorkBooks.Add; Excel.Cells[1,1] := Edit1.Text; Excel.Cells[1,1].Font.Size := 14; Excel.Cells[1,1].Font.Color := clRed; Excel.Cells[1,1].Font.Name := 'Arial Black'; Excel.Cells[1,1].Borders.LineStyle := xlDouble; Excel.Cells[1,1].Borders.Color := clYellow; Excel.Cells[1,1].Interior.Color := clBlack; Excel.Cells[1,2] := Edit2.Text; except showmessage('Ocorreu erro ao executar a transferência') end; end; Se alguém puder me ajudar, agradeço muito!!!
  17. Pessoal, como faço para contar quantos caracteres foram digitados em um edit? Obrigado
  18. Valeu cara, como sempre, ajudou muito!!!! Muito obrigado
  19. Estou tentado exportar alguns dados para o excel, o problema é que eu não sei como formatar o tipo de celula, seu tamanho e cor. Estou utlizando o seguinte código: uses COMobj ... ... procedure TForm1.Button1Click(Sender: TObject); var excel :variant; begin try excel := CreateOleObject('excel.application'); if not Excel.Application.Visible then Excel.Application.Visible := true; Excel.WorkBooks.Add; Excel.Cells[1,1] := Edit1.Text; Excel.Cells[1,2] := Edit2.Text; except showmessage('Ocorreu erro ao executar a transferência') end; end; alguém pode me ajudar? Muito obrigado!!!
  20. Bom, meu problema é o seguinte: Estou fazendo uma consulta utilizando query onde eu digito um genero de filme, por exemplo, e o sistema me traz todos os filmes cadastrados com aquele genero. Porem, na hora de cadastrar filmes, eu não padronizei deixando tudo minusculo ou tudo maiusculo, entaum eu qeuria saber se na hora de efetuar a pesquisa tenha alguma maneira de fazer com que o sistema ignore maiusculas e minusculas para fazer a pesquisa. O código do batão que efetua a pesquisa é: procedure TfrmConsultaDVD.btGenClick(Sender: TObject); begin qrDVD.Close; qrDVD.SQL.Clear; qrDVD.SQL.Add('Select * From DVD Where GenDVD = :pGen'); qrDVD.Params[0].AsString := edtGen.Text; qrDvd.Open; end; Muito obrigado
  21. Obrigado pessoal. Resolveu o meu problema!!! Abraços!
  22. Pode ser uma pergunta boba, mais ainda sou novo em delphi e isso é uma coisa que eu não sei fazer: Como faço para verificar qual é a ultima letra em um edit? Por exemplo: digito a palavra menino no edt, como faço para verificar que a ultima letra é o? Muito Obrigado!
  23. Pessoal, estou fazendo uma calculadora e queria fazer com que quando eu precionasse o botão de + do teclado, o programa executasse a procedure que criei para o botão de soma no formulário. Só que quando preciono o botão no teclado, ele apernas escreve + no edt que utilizo como visor. o código que eu usei foi: procedure TForm1.btnmaisKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=43 then btsoma; end; alguém pode me ajudar? obrigado!
  24. Muito obrigado pela ajuda! Era exatamente o que eu precisava, valeu mesmo!
×
×
  • Criar Novo...