Ir para conteúdo
Fórum Script Brasil

acdestefani

Membros
  • Total de itens

    74
  • Registro em

  • Última visita

Tudo que acdestefani postou

  1. Valeu Denis Courcy!!! Muito obrigado mesmo!!! Funcionou certinho. Um grande abraço
  2. Olá pessoal! Onde trabalho existe um sistema de cadastro em PHP, com banco de dados Mysql. Nesse cadastro é digitado o número do CPF, porém na hora da digitação não era feita nenhuma filtragem, ou seja, era permitido digitar o CPF com ponto e traço ou somente os números. Agora estamos tentando melhorar o sistema e gostaríamos que na tabela constasse somente os números do CPF, sem pontos e sem traço. No formulário PHP incluimos um filtro, onde é permitido somente a digitação dos números. O problema está com os cadastrados realizados antes da alteração do formulário. A dúvida é a seguinte: existe algum comando Mysql que posso remover todos os pontos e traços do campo CPF, deixando somente os números ou terei que fazer isso na unha mesmo, alterando cada registro? Desde já agradeço a ajuda de todos. Um grande abraço
  3. Valeu Denis!!! Muito obrigado pela grande ajuda! Esse comando agilizou muito as atualizações que eu precisava fazer. Um grande abraço
  4. Obrigado pela ajuda Denis! Eu até consegui utilizar o camano UPDATE, lendo alguns textos na internet, mas não consegui alterar vários registros ao mesmo tempo. Fiquei em dúvida na condição WHERE, como coloco vários registros? Por exemplo, gostaria de alterar o campo (de 1 para 0) dos registros com ID 10, 20, 30, 40 e 50 ao tempo.
  5. Bom dia! Estou precisando alterar o valor do campo de "1" para "0" de vários registros. Preciso utilizar o campo "ID" para selecionar os registros que serão alterados. Alguém pode me dar uma ajuda? Obrigado!
  6. Olá!!! Como faço pra criar um site com câmeras online? Uma amiga tem um berçário com câmeras instaladas. Ela gostaria de disponibilizar os vídeos online, no site do berçário, para que os pais possam acessá-los via internet? Desde já agradeço a ajuda de todos
  7. Olá Denis Courcy! Muito obrigado pelo esclarecimento. Abraços
  8. Olá! Acabei de instalar o Mysql no Fedora 7. Seguindo uma apostila use o comando - GRANT ALL ON teste.* TO alunos IDENTIFIED BY '123456'; - para criar o usuário alunos com acesso ao banco de dados teste e dá essa mensagem: Query OK, 0 rows affected (0.15 sec) Isso significa que o usuário na foi criado? Obrigado!
  9. Olá! Estou tentando montar um formulário de contato, usando a função "mail". Hospedei os arquivos, contato.php e envia.php, o primeiro com o formulário de contato e o segundo que faz o envio das informaçõs inseridas no formulário. Ao fazer um teste, deu esse erro: ERRO: Warning: mail() [function.mail]: Failed to connect to mailserver at "localhost" port 25, verify your "SMTP" and "smtp_port" setting in php.ini or use ini_set() in D:\web... Entrei em contato com o provedor, onde o site está hospedado, me informaram que devo incluir uma variavel no script apontando o SMPT para 192.xxx.xx.xx. Acredito que o provedor não tem nenhum SMTP configurado, por isso preciso incluir estas informações no meu script. Alguém sabe como fazer isso? Obrigado a todos pela ajuda.
  10. Olá! Dei uma olhada na internet e não conseguir achar nada. Alguém sabe algumas dessas informações: Tamanho máximo de um banco de dados: Tamanho máximo de uma tabela: Tamanho máximo de um registro: Tamanho máximo de um campo: Número máximo de registros em uma tabela: Número máximo de colunas em uma tabela: Número máximo de índices em uma tabela: Desde já agradeço a ajuda de todos.
  11. Valeu ESerra! Vou tentar aqui. Qualquer coisa posto novamente. Obrigado! Caso alguém mais precise, tá aí o que fiz: Criei 10 arquivos de imagem: 1.jpg, 2.jpg, 3.jpg... No início do arquivo php, que quero exibir as imagens, coloquei a seguinte instrução php: <? $imgdavez=rand(1,10); ?> e onde quero que apareça a imagem, inseri essa linha: <img src="caminhodasimagens/<? echo $imgdavez ?>.jpg"> Obrigado pela ajuda ESerrra
  12. Olá! Estou começando a trabalhar com PHP e confesso que estou apanhando um pouco. Queria colocar na página principal do site fotos que seriam trocadas a cada acesso, por exemplo: o internauta acessa o site e é mostrado uma foto, se ele acessar o site novamente a foto mostrada será outra. Queria colocar aproximadamente umas dez fotos. É possível criar isso sem o uso de banco de dados? Se alguém souber como fazer isso, me ajude por favor. Desde já agradeço a ajuda de todos.
  13. Olá! Estou precisando criar uma calculadora, com as funções de adição, subtração, multiplicação, divisão, raiz quadrada e elevação ao quadrado, usando programação orientada a objetos para um trabalho da faculdade. Já criei o formulário porém não tenho a mínima idéia de como fazer para pegar os valore digitados e efetuar os cálculos. Alguém sabe onde posso encontrar algum tutorial ou até mesmo me darem dicas de como fazer essa calculadora. Encontrei alguns modelos de calculadoras na internet, mas gostaria de eu mesmo fazer a minha, porém, como sou iniciante preciso da ajuda de vocês. Desde já o meu muito obrigado.
  14. acdestefani

    Rede Caindo

    Eu perco a conexão com o banco de dados, porém é coisa de segundos. Já fiz um teste com o comando ping e, as vezes, o ping falha.
  15. acdestefani

    Rede Caindo

    Olá! Na empresa onde trabalho temos uma rede com um servidor e 10 micros que compartilham a Internet (Velox) através de um modem roteado. A rede está caindo com muita freqência e são quedas muito rápidas. Por exemplo estou usando um sistema através da rede, de repente a rede cai e dá uma mensagem de erro no sistema dizendo que não pode conectar no banco de dados. Fecho o sistema e abro novamente e ele funciona. Passa algum tempo e a rede cai novamente. Tenho que sair do sistema e acessá-lo novamente. Será que o problema pode estar no hub ou no modem Velox? Alguém tem alguma sugestão de como detectar onde está o problema? Desde já agradeço a ajuda de vocês
  16. Obrigado Raul pela ajuda! Fiz a alteração e agora mostra a seguinte mensagem: "Falha na identificação" Se tiver mais alguma dica, por favor post aí. Abraços
  17. Ok heltonritter! Confesso que já apanhei bastante, mas vou continuar tentando. Se conseguir posto aqui. Abraços
  18. Olá! Estou com o mesmo problema. Você já conseguiu resolvê-lo heltonritter? Se sim, poderia postar a solução por favor. Muito obrigado
  19. Valeu LuizAraujo! Luito obrigado pela grande ajuda. Abraçcos
  20. É a última procedure do código. Desde já agradeço a ajuda de todos
  21. Olá! Como não tenho experência nenhuma em programação, gostaria de pedir a ajuda de vocês. Criei uma Procedure pra listar os registros cadastrados, mas ao clicar no botâo LISTAR não acontece. Vocês poderiam me ajudar a descobrir porque não tá funcionando essa Procedure? Abaixo segue o código do meu sistema. unit imc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const Min=1; Max=2; type TForm1 = class(TForm) titulo: TLabel; Lbnome: TLabel; Lbpeso: TLabel; Lbaltura: TLabel; Lbimc: TLabel; Lbresultado: TLabel; LbResImc: TLabel; Btincluir: TButton; Btlocalizar: TButton; Btalterar: TButton; Btexcluir: TButton; Btlistar: TButton; Btsair: TButton; Listreg: TListBox; LbResRes: TLabel; EdNome: TEdit; EdPeso: TEdit; EdAltura: TEdit; procedure FormCreate(Sender: TObject); procedure BtincluirClick(Sender: TObject); procedure BtsairClick(Sender: TObject); procedure BtcalcularClick(Sender: TObject); procedure BtlistarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; type Ptr = Integer; Ficha = Record Nome : String; Peso,Altura,Imc : Real; Condicao : String; End; ListaPessoas = Record Pessoa : array [Min..Max] of Ficha; Primeiro : Ptr; Ultimo : Ptr; end; var Form1 : TForm1; L : ListaPessoas; F : Ficha; Aux : Integer; implementation {$R *.dfm} Procedure FlVazia(var Lista:ListaPessoas); Begin Lista.Primeiro := Min; Lista.Ultimo := Lista.Primeiro; end; procedure TForm1.FormCreate(Sender: TObject); begin Flvazia(L); end; procedure Inclui(x:Ficha; var Lista:ListaPessoas); begin if Lista.Ultimo > Max then showmessage('Erro: Lista Cheia') else begin Lista.Pessoa[Lista.Ultimo] := x; Lista.Ultimo := Lista.Ultimo + 1; end; end; Function Vazia (var Lista:ListaPessoas): boolean; begin Vazia := Lista.Primeiro = Lista.Ultimo; end; procedure TForm1.BtincluirClick(Sender: TObject); begin F.Nome:=EdNome.text; F.Peso:=strtofloat(EdPeso.text); F.Altura:=strtofloat(EdAltura.text); Listreg.Items.Add(F.Nome); Listreg.Items.Add(FloatToStr(F.Peso)); Listreg.Items.Add(FloatToStr(F.Altura)); Listreg.Items.Add(FloatToStr(F.Imc)); Listreg.Items.Add(F.Condicao); Listreg.Items.Add(''); Ednome.Clear; Edpeso.Clear; Edaltura.Clear; LbResImc.Caption:=''; LbResRes.Caption:=''; Ednome.SetFocus; end; procedure TForm1.BtsairClick(Sender: TObject); begin Close end; procedure TForm1.BtcalcularClick(Sender: TObject); begin F.Imc:=strtofloat(EdPeso.text)/(strtofloat(EdAltura.text)*strtofloat(EdAltura.text)); Lbresimc.Caption:=floattostr(F.Imc); if F.Imc < 20 then Lbresres.Caption:='IDEAL' else if (F.Imc>=20) and (F.Imc<=25) then Lbresres.Caption:='IDEAL' else if (F.Imc>=25) and (F.Imc<=30) then Lbresres.Caption:='EXCESSO DE PESO' else if (F.Imc>=30) and (F.Imc<=35) then Lbresres.Caption:='OBESIDADE' else if F.Imc > 35 then Lbresres.Caption:='OBESIDADE MÓRBITA' end; procedure TForm1.BtlistarClick(Sender: TObject); var i:integer; begin listreg.clear; for i:=L.Primeiro to L.Ultimo-1 do begin Listreg.Items.Add(L.Pessoa.Nome); Listreg.Items.Add(FloatToStr(L.pessoa.Peso)); Listreg.Items.Add(FloatToStr(L.pessoa.Altura)); Listreg.Items.Add(FloatToStr(L.pessoa.Imc)); Listreg.Items.Add(L.pessoa.Condicao); Listreg.Items.Add(''); end; end; end.
  22. Olá!!! Estou cursando a faculdade de Sistema de Informação e estamos começando a utilizar o Delphi. Estou fazendo um trabalho em Delphi onde tenho que calcular o índice de massa corporal (IMC - peso/(altura*altura) da pessoa cadastrada. Gostaria que ao digitar os campos peso e altura, o campo IMC fosse calculado e preenchido automaticamente. Alguém poderia me explicar como fazer isso. Abaixo segue o código do programa, caso precisem dar uma olhada. Desde já agradeçco a grande ajuda. Obrigado!!! unit imc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const min=1; max=10; type TForm1 = class(TForm) titulo: TLabel; Lbnome: TLabel; Lbpeso: TLabel; Lbaltura: TLabel; Lbimc: TLabel; Lbresultado: TLabel; Edpeso: TEdit; Ednome: TEdit; Edaltura: TEdit; Lbresimc: TLabel; Lbresresultado: TLabel; Btincluir: TButton; Btlocalizar: TButton; Btalterar: TButton; Btexcluir: TButton; Btlistar: TButton; Btsair: TButton; Listreg: TListBox; procedure FormCreate(Sender: TObject); procedure BtincluirClick(Sender: TObject); procedure BtsairClick(Sender: TObject); private { Private declarations } public { Public declarations } end; type ptr=integer; ficha=record nome: string; peso,altura,imc: real; condicao: string; end; lista_pessoas=record pessoa: array [min..max] of ficha; primeiro:ptr; ultimo:ptr; end; var Form1: TForm1; l:lista_pessoas; f:ficha; implementation {$R *.dfm} Procedure flvazia(var lista:lista_pessoas); Begin lista.primeiro:=min; lista.ultimo:=lista.primeiro; end; procedure inclui(x:ficha; var lista:lista_pessoas); begin if lista.ultimo>max then showmessage('Erro: Lista Cheia') else begin lista.pessoa[lista.ultimo]:=x; lista.ultimo:=lista.ultimo + 1; end; end; Function vazia (var lista:lista_pessoas): boolean; begin vazia:=lista.primeiro=lista.ultimo; end; procedure TForm1.FormCreate(Sender: TObject); begin Flvazia(L); end; procedure TForm1.BtincluirClick(Sender: TObject); begin f.nome:=Ednome.text; f.peso:=strtofloat(Edpeso.text); f.altura:=strtofloat(Edaltura.text); Listreg.Items.Add(f.Nome); Listreg.Items.Add(FloatToStr(f.peso)); Listreg.Items.Add(FloatToStr(f.altura)); Listreg.Items.Add(''); Ednome.SetFocus; Ednome.Clear; Edpeso.clear; Edaltura.Clear; end; procedure TForm1.BtsairClick(Sender: TObject); begin close end; end.
  23. Eu queria imprimir somente os números gerados (Ex: 120650000101) em etiquetas numa impressora matricial (Epson LX-300).
  24. Brigadão pessoal! Agora ele tá funcionando. Mais um dúvida...ao invés de mostrar o resultado na tela teria como imprimir cada número gerado em etiquetas? É muito difícil fazer isso?
  25. Olá!!! Através de materias encontrados na internet, estou tentando aprender um pouco de Delphi. Pra começar estou criando um contador que tá me dando uma surra, mas pra vocês deve ser moleza. Ele funciona da seguinte forma: Você digita um número inicial e um número final, o sistema pega o número inicial e vai adicionado 1 até atingir o valor do número final. O que criei tá mostrando só o último número e eu gostaria de mostrar todos. Acho que o problema está no meu loop. Segue o código abaixo pra você entenderem melho. procedure TForm1.ButgeretiqClick(Sender: TObject); var numini, numfin, digver, numetiq, contador:integer; begin numini:=strtoint(Ednumini.Text); numfin:=strtoint(Ednumfin.Text); digver:=strtoint(Eddigver.Text); For numetiq:=numini To numfin Do Labgeretiq.caption:=inttostr(numetiq); end; end. Desde já agradeça ajuda de todos.
×
×
  • Criar Novo...