Jump to content

Almir_Santos

Members
  • Content count

    28
  • Joined

  • Last visited

Everything posted by Almir_Santos

  1. Almir_Santos

    [PEDIDO] SISTEMA ESTOQUE

    Olá amigo. Eu sei onde você encontra essa solução.Na realidade eu a desenvolvi. Trata-se do CSV Comp DB (tipo nosql que tem uma CGI totalmente integrada e usa arquivos no formato CSV como tabelas reais). *Não o subestime,pode inclusive fazer relações entre tabelas csv usando a própria linguagem (CQL ,comma query language). Tal linguagem serve tanto para manipular os dados como escrever as páginas web Veja exemplos no meu canal,deixo um vídeo como aperitivo: https://www.youtube.com/watch?v=p2hq-we5cB8 Documentação,software livre no meu blog: http://adltecnologia.blogspot.com.br
  2. Almir_Santos

    TRANFORMAR ARQUIVO XLS PARA SQL

    Veja como usar o aplicativo:
  3. Almir_Santos

    TRANFORMAR ARQUIVO XLS PARA SQL

    Eu tenho uma solução para você.No meu blog tenho um conjunto de aplicativos.Entre eles,tenho um editor de sql que consegue transformar um arquivo csv em "inserts" SQL. Basta ir até meu blog e na página de "download" baixar a versão CSV Comp DB (Desktop para Windows). Depois de instalar,abra o prompt e poderá procurar no menu o editor SQL Você precisará apenas salvar seu xls como CSV antes de usar o aplicativo. No aplicativo de editor sql bastará ir no menu "Editar" e preencher os dados do formulário (questões sobre delimitadores,campos)
  4. Almir_Santos

    Banco de Dados

    Tem um erro no html do codigo acima.O erro é na parte: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> </head> Está faltando abrir o cabeçalho "<head>"
  5. Almir_Santos

    Banco de Dados

    Isso vai depender da boa vontade de alguem.Se eu soubesse de php te ajudaria já.Mas como disse,uso outra tecnologia.
  6. Almir_Santos

    Banco de Dados

    Não se preocupe,pois em breve um especialista em php vai te ajudar.
  7. Almir_Santos

    Banco de Dados

    Como citei no post anterior , eu apenas corrigi a parte a respeito do codigo em html.Não sou especialista em PHP e não o uso para meus projetos WEB.Nas minhas aplicações WEB eu utilizo outra tecnologia.De qualquer forma,caso você desejar criar um sistema de cadastro WEB usando a tecnologia que eu domino poderei faze-lo com baixo custo. A saber: Um servidor semi dedicado (15 mensais,pag em taxa unica de 190 anual) um dominio (opcional ou poderá direcionar pelo numero IP apenas) (30 anual) Mais detalhes em mensagem privada Sim.Seu erro anterior era no html.Agora você progrediu e o erro está apenas no Mysql
  8. Almir_Santos

    Banco de Dados

    Descobri vários erros no seu html e resolvi os erros dele.Basta agora você juntar com seu codigo PHP. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <head> <!--estava faltando fechar o head--></head> <BGSOUND src="'.$url_site.'/afrecom/'.$arq_som.'" loop=infinite> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=iso-8859-1"> <link href="'.$url_site.'/afrecom/style.css" rel="stylesheet" type="text/css"> <body background="'.$url_site.'/afrecom/'.$fundopag.'" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0"> <div align="center"> <table border="7" bordercolor="#808000" bordercolorlight="#FFFF99"> <tr> <td align="center"> <table border="10" bordercolor="#808000"> <tr> <td> <img border="0" src="'.$url_site.'/afrecom/banner1.gif" width="468" height="60"> </td> </tr> </table> </td> </tr> </table> </div> <p>&nbsp;</p> <div align="center"> <table border="15" cellpadding="6" width="90%" bordercolordark="#808000" bordercolorlight="#FFFF99"> <tr> <td width="100%" align="left" class="tabela"> <i><font color="#ffffff" size="1">Mensagem automática, por favor não responda.<br>'.$data.'</font></i> <HR width="100%" color=#ffffff SIZE=1 align="left"> <br> Olá <b>&nbsp;'.$nnome.'! </font></b><br><br> A&nbsp;mensagem&nbsp;que&nbsp;você&nbsp;enviou&nbsp;para:&nbsp; <br><b>'.$namigo.'</b>&nbsp;&nbsp;e-mail:&nbsp;&nbsp;<b>'.$eamigo.'</b> <br>foi&nbsp;visualizada&nbsp;em&nbsp;nossos&nbsp;servidores&nbsp; nesta(e)&nbsp;&nbsp; <br><b>'.$data.'</b><br><br> <!-- faltava td--> </td> <!-- faltava tr--> </tr> </table> <!--estava faltando esta div--> </div> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <!--estava faltando fechar o head--></head> <BGSOUND src="'.$url_site.'/afrecom/'.$arq_som.'" loop=infinite> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=iso-8859-1"> <link href="'.$url_site.'/afrecom/style.css" rel="stylesheet" type="text/css"> <body background="'.$url_site.'/afrecom/'.$fundopag.'" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0"> <div align="center"> <table border="7" bordercolor="#808000" bordercolorlight="#FFFF99"> <tr> <td align="center"> <table border="10" bordercolor="#808000"> <tr> <td> <img border="0" src="'.$url_site.'/afrecom/banner1.gif" width="468" height="60"> </td> </tr> </table> </td> </tr> </table> </div> <p>&nbsp;</p> <div align="center"> <table border="15" cellpadding="6" width="90%" bordercolordark="#808000" bordercolorlight="#FFFF99"> <tr> <td width="100%" align="left" class="tabela"> <i><font color="#ffffff" size="1">Mensagem automática, por favor não responda.<br>'.$data.'</font></i> <HR width="100%" color=#ffffff SIZE=1 align="left"> <br> <font color="#ffffff" size="1">Olá &nbsp;'.$nnome.'! </font><br><br> A&nbsp;mensagem&nbsp;que&nbsp;você&nbsp;enviou&nbsp;para:&nbsp; <br><b>'.$namigo.'</b>&nbsp;&nbsp;e-mail:&nbsp;&nbsp;<b>'.$eamigo.'</b> <br>foi&nbsp;visualizada&nbsp;em&nbsp;nossos&nbsp;servidores&nbsp; nesta(e)&nbsp;&nbsp; <br><b>'.$data.'</b><br><br> <!-- faltava td--> </td> <!-- faltava tr--> </tr> </table> <!--estava faltando esta div--> </div> </body> </html> Fui no site Amorepaixão e vi um design bonito.Parabéns.Eu não uso PHP para construir meus sites.Uso outra tecnologia.Faça uma visita no meu blog
  9. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    sua label tem esse valor 41.756.271 Casa_dos_dezmilhoes : =copy(label.caption , 1, 1); //pegou o primeiro caractere "4" Casa_dos_unidmilhoes : =copy(label.caption , 2, 1); //pegou o segundo caractere "1" (o importante é considerar a casa decimal e ignorar o valor em si) você não deve se preocupar com sua aplicação.Deve entender como fiz o codigo de exemplo.Deve criar as variaveis para cada casa decimal.
  10. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    sua label tem esse valor 41.756.271 Casa_dos_dezmilhoes : =copy(label.caption , 1, 1); //pegou o primeiro caractere "4" Casa_dos_unidmilhoes : =copy(label.caption , 2, 1); //pegou o segundo caractere "1" (o importante é considerar a casa decimal e ignorar o valor em si) você não deve se preocupar com sua aplicação.Deve entender como fiz o codigo de exemplo.Deve criar as variaveis para cada casa decimal.
  11. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    A diretiva é do compilador free Pascal no modo Object PASCAL FPC (não estou usando modo Delphi) Você vai pegar o label onde se mostra os tempo dos segundos da mesma forma que o codigo exemplo pega os valor do Edit1 (use a função copy)
  12. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Siga o modelo acima.Lembre-se que para cada casa decimal do numero ( 41.756.271 )será necessário um laço FOR encadeado.Nesse seu numero será necessario 8 FOR encadeado.
  13. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Fiz exemplo com 3 casas decimais carregando do arquivo.Você poderá acrescentar a casa do milhar Roda perfeito: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, TplRadioButtonUnit, TplCheckBoxUnit, TplSpinEditUnit, TplLCDLineUnit, TplLed7SegUnit, ECGroupCtrls, LedNumber, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TForm1 } TForm1 = class(TForm) a: TplLed7Seg; b: TplLed7Seg; Button1: TButton; c: TplLed7Seg; Edit1: TEdit; Image1: TImage; Image2: TImage; Image3: TImage; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; Lc,Ld,Lu:integer;//valores limitadores do inicio da contagem begin Lc:=strtoint( copy(edit1.text,1,1) );//centenas Ld:=strtoint( copy(edit1.text,2,1) );//dezenas Lu:=strtoint( copy(edit1.text,3,1) ); //unidades for cen:=(Lc) downto 0 do begin for d:=(Ld) downto 0 do begin for u:=(Lu) downto 0 do begin sleep(500); application.ProcessMessages; image1.Picture.LoadFromFile('c:\num\'+inttostr(cen)+'.bmp'); image2.Picture.LoadFromFile('c:\num\'+inttostr(d)+'.bmp'); image3.Picture.LoadFromFile('c:\num\'+inttostr(u)+'.bmp'); end; end; end; end; procedure TForm1.FormShow(Sender: TObject); begin doublebuffered:=true; end; end. Resultado
  14. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Carregar imagem não é problema e é até fácil.O problema é a transição.Se for usar imagem de números estáticos isso fica fácil até demais.Basta dar nome aos arquivos de imagem com numeros: "1.bmp" e carregar dentro do laço for(u) (como no exemplo acima) imagem.picture.loadfromfile(inttostr( u) + '.bmp' ) ; Depois basta seguir o modelo do meu codigo acima com o carregamento das 3 imagens no lugar do (a.value ,b.value , c.value)
  15. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    O código de contagem é simples.O problema da imagem com transiçõ é que deve criar uma função para desenhar essas transições usando Tcanvas.Isso é mais questão de design do que programação em Si. Poderia por dentro do laço For (u) um conjunto de carregamento de imagem do arquivo com várias transições.Mais isso fica complexo e pesado.
  16. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Se fosse você eu faria usando a IDE do CodeTyphon .Veja um exemplo que fiz especialmente para você.Tem componentes legais. fiz um contador simples (500 ms).Cada display recebeu um nome (a,b,c) procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; begin for cen:=0 to 9 do begin for d:=0 to 9 do begin for u:=0 to 9 do begin sleep(500); application.ProcessMessages; a.Value:=cen; b.Value:=d; c.Value:=u; end; end; end; Aqui o codigo com contagem regressiva: procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; begin for cen:=9 downto 0 do begin for d:=9 downto 0 do begin for u:=9 downto 0 do begin sleep(500); application.ProcessMessages; a.Value:=cen; b.Value:=d; c.Value:=u; end; end; end; Visite meu blog
  17. Almir_Santos

    AJUDA PASCAL

    Isso é apenas um exercício básico e didático.Ninguem vai ajudar a resolver isso,pois é muito fácil.Tente você mesmo.
  18. Almir_Santos

    como salvo informações do meu form html?

    Pode tentar tambem dessa forma: Neste exemplo ,mostro formulario rodando em Windows + Apache com banco de dados CSV Comp DB (nosql).Não precisa de PHP e nem de Mysql neste exemplo integracao do formulario fonte do exemplo no meu blog <html> <title>CQL WEB test</title> <!--The action is called "default" in every application.GET Method only--> <form action='http://server.com/cgi-bin/executa.exe/default'> <h1>Input data on form</h1> Type your name:<br> <input type='text' name='id_name'></a><p> Type your phone:<br> <input type='text' name='id_phone'></a> <input type='submit' name='your_script.cql' value='Register'></a> </form> </html> Salve o html form na pasta htdocs como "home.html" Na pasta ".../cgi-bin" ,salve o script "your_script.cql" { c:\servidor\apache2\htdocs\AGENDA; @adicionar; (id_name;id_phone); 0;0;0; query=0; destino=0 } { c:\servidor\apache2\htdocs\AGENDA; @html; 1; 3;red;(<link_of_css>); query=0; destino=0 } { none; @resposta; <script>window.location='http://server.com/AGENDA.html'</script>; 0; 0; 0; query=0; destino=0 } (script de nome "your_script.cql" acima) (*A paggina web "agenda.html" é um espelho da tabela original "agenda.csv" .O servidor pode ser localhost) Crie uma tabela * .csv * de nome AGENDA.csv no ... \ htdocs \ AGENDA.csv " com 2 campos na primeira linha: NAME;PHONE
  19. Almir_Santos

    Relatório de horas

    Sou usuário de Object Pascal com a IDE Lazarus.Fiz uma solução de contagem do tempo desta forma: { Yehovah é o Nome do Santo Função para medir tempos em processos com precisão de 1 milisegundo Criação:02/12/2016 Autor:Almir Bispo Ribeirão das Neves } function milisegundo(tempo_inicio:Ttime):string; var meut:Ttimestamp; begin meut:=DateTimeToTimeStamp(now - tempo_inicio); result:= copy(Variant(TimeStampToMSecs( Ttimestamp(meut) ) *10), length(Variant(TimeStampToMSecs( Ttimestamp(meut) )*10 ) )-4 ,4) ; end; //eu uso assim procedure conta; var t:Ttime; begin T:=Ttime(now);//inicio da contagem {processamento} showmessage(milisegundo(T)); end; //Você pode fazer calculos de soma,subtração de variáveis tipo Tdatetime
  20. Almir_Santos

    [Resolvido] Relatorio com PHPExcel

    O exemplo mostrado por mim ,com office.org consegue gerar em poucos segundos.
  21. Você precisa de criar um programa de computador que rode no PC com um controle remoto.Eu sei como fazer,mas não sei como explicar num simples post. Basicamente vai precisar dominar : -programação de Hardware (firmware) -programação de computador -Eletronica Uma dica que te dou é faça um programa com object pascal (para PC) ,um programa no microcontrolador com c++. Eu sei como criar um equipamento desse.tenho portfólio e podemos falar em particular,caso necessário.Não é possível explicar detalhes num simples post.Tenho um projeto em andamento de um cliente que é uma pedaleira para controlar um player de musica onde podemos inclusive por a letra das músicas (tipo videokê) Basta colocar o o projetor na saida do vga do PC para mandar a letra para o telão (veja letra) (veja print)
  22. Almir_Santos

    Conexão JSON com BD Access e FrontEnd com Angular

    Olá eu sei exatamente o que você deseja.Porém eu fiz com a solução com outras tecnologias. -Usa base de dados em tabelas csv (ao invés de Access) -Pode ser apresentado na página html (inclusive podem ser integrados a Angular) -A base não é em Json ,mas em csv e usa uma linguagem específica Para você ter noção ,deixo o vídeo
  23. Almir_Santos

    [Resolvido] Relatorio com PHPExcel

    Olá.Percebi sua grande demanda qual você relatou: " Pessoal preciso fazer um relatório que venha a gerar um arquivo xlsx automaticamente, de uma consulta do banco de dados, estou usando o "PHPEXcel" para isso. " Eu entendi que sua DEMANDA PRINCIPAL é gerar relatórios apartir de uma consulta em banco de dados e que tais relatórios possam ser abertos em planilha (Excel especificamente).Você se propôs a usar PHP para tal demanda.Você não citou o banco usado. Para solucionar sua DEMANDA PRINCIPAL outros meios podem ser usados.Vou citar uma solução que conheço: Você deveria ter um banco de dados online e usar a linguagem CQL para fazer a consulta de busca e com os resultados da consulta fazer o tratamento(Testes com 5 milhoes de registros e 15 mil campos ja foram feitos) Suponha que tem a tabela "EMPREGADOS" conforme abaixo. ID ; EMPREGADO ; SALARIO ;FUNCAO 001 ;José Silva ; 1220,00 ; Aux.Produção 002;Maria Santos ; 1230,00 ; Diretora ... ; .. . ; centenas de rows ; ...... 999;Sandro Maciel ; 5900,00 ; Presidente Então você faria uma busca : {none;@coment;(Vai selecionar os valores entre 1200 e 1250 do campo Salario (índice 2 da tabela));0;0;0;0;query=0;destino=0} { c:\Path_servidor\htdocs\EMPREGADOS; @min_max; (*); (1200,00); (1250,00); 0; query=2; destino=0 } {none;@coment;(Apos a busca,poderá fazer um relatório online mesmo em html borda 1,fonte 12 ,cor de fonte orange,folha de estilo);0;0;0;0;query=0;destino=0} { c:\Path_servidor\htdocs\EMPREGADOS; @html; 1; 12; ('hostpath\sua_folha_de_estilos.css'); Orange; query=0; destino=0 } Poderá baixar o resultados e abrir diretamente no openOficce (Calc) ou Excel (importação),bastaria apenas copiar os resultados da busca para uma nova tabela temporária.(2 linhas de código para fazer isso) Poderá até manipular a base que se encontra remota por uma aplicação personalizada como nas fotos anexadas: (Com essa tecnologia não é necessário manipular xls,pois a base inteira é em formato CSV.So usaríamos o Excel ou Calc para abrir o arquivo). Mais informações no blog do autor Fiz o exemplo do video abaixo hoje,especialmente para você ter noção:
  24. Almir_Santos

    Catalogo de produto + orçamento

    Posso disponibilizar algo pronto (codigo fonte completo) por um certo valor ou Posso te indicar a ferramenta do vídeo.Basta seguir os documentos e tutoriais: (Observação.Vendo o código fonte do projeto do vídeo) Para se fazer algo como o apresentado no vídeo requer dedicação de anos de estudos,mesmo nessa ferramenta.O video mostra de forma cabal a capacidade de solução a qual as tecnologias apresentadas se propõem.Você pode baixar toda documentação e aplicativos no meu blog sem custo.
  25. Evasão de divisas é uma gambiarra antiga
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.