Ir para conteúdo
Fórum Script Brasil

Carlos Rocha

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1.302

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Carlos Rocha postou

  1. Carlos Rocha
    Alo pessoal, to enviando por email um conteudo html que entreguei pra uma variavel. A função mail() faz certo mas quando o email chega, em vez de ver as figuras, ve o código que escrevi. Onde estya o erro? <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Envio de Email's</title> </head> <body> <form action="email.php?action=enviar" method="post"> <input type="submit" value="Enviar"> </form> <? if($action=="enviar"){ $texto=" <html> <head> <meta http-equiv=Content-Type content=text/html; charset=iso-8859-1> <title>Emails Enviados</title> </head> <body> <pre> <img src=http://www.vivendocomcristo.lgz.com.br/figuras/limites.jpg> Estamos enviando este e-mail para todos os usuários do Clube do Vivendo. Por favor, sinta-se à vontade. Se não puder nos ajudar talvez possa nos indicar. Para a tua alma ler e ajudar, No Dia Primeiro de Maio de 2003 enquanto Auxiliava o Pedreiro na Construção de um Muro de Arrimo nos fundos da minha Casa que foi Construída em um Barranco, Encostei Acidentalmente em um Fio de Alta Tensão sofrendo uma descarga Elétrica de 13.800 volts. Levado ao Hospital pela minha Esposa, minhas Duas Mãos tiveram que ser Amputadas, pois foram Carbonizadas pela descarga restando apenas 13(treze) centímetros de coto no antebraço. Veja Abaixo a Fotografia de Minhas Mãos. Elas Não Existem. Contudo, a Vida continua e o meu Trabalho foi muito Prejudicado. Um ano mais tarde Tivemos Nossa Filha, que hoje se encontra com um ano e três meses. Em virtude desse Acontecimento Trágico, minha Esposa teve que Sair do Emprego para se dedicar à Ciência do Lar e me Apoiar nas minhas Necessidades tais como: Tomar Banho, Me Limpar, Me Alimentar e outros. Depois do acidente me Aposentei, mas não parei de trabalhar, pois hoje o que mais necessito é de Um Par de Próteses para ter de Volta minha Independência Física, meus Movimentos, Reconquistar minha Capacidade Plena de Trabalhar e serei muito útil. Por Falta das Mãos, meu Trabalho ficou Reduzido em (7) sete vezes. Hoje, minha Aposentadoria é de Apenas R$1350,00 por mês, a qual apenas paga nossas despesas de Sobrevivência Humana. Para isso Unimos nossas Forças, Eu e minha Esposa e desenvolvemos Programas para computador, Sites e Cartões de visita. Com o nosso trabalho Jamais vamos Comprar a Prótese porque ela custa R$100.000,00(Cem mil reais). Por isso, Eu e minha Esposa, Vimos te Comunicar que precisamos da TUA ajuda agora para Construir-mos esse Sonho. Para isso FAÇA a Tua Caridade com uma contribuição no Banco Unibanco. Nome : Carlos Alberto Ferreira Rocha Agencia : 0878 Conta Corrente : 100282-2 Cidade : Muriaé/MG Ou FAÇA a Tua Caridade com uma solicitação de trabalhos, Programas de Computador , Sites e Cartões de Visita. Em Respeito e Agradecimento, Eu Estou Esperando a Tua Contribuição. Comunique Comigo: a) E-mail : carcleo@bol.com.br b) Telefone : (32) 3721-6149 Agora e Sempre com a Paz do Senhor Jesus. Carlos Alberto Ferreira Rocha VÍTIMA DE UM ACIDENTE </pre> <img src=http://www.vivendocomcristo.lgz.com.br/figuras/foto.jpg><br> </body> </html> "; include("global/funcoes.php"); $envio = "FROM: vivendocomcristo@vivendocomcristo.lgz.com.br"; $data = mysql_query("select * from usuarios") or die ("Deu Tiuch".mysql_error()); while ($mala = mysql_fetch_array($data)) { $mail = mail ($mala['Email'], "Prezado(a) ".$mala['nome'].", Abra o teu coração e nos ajude a continuar nosso trabalho", " $texto", $envio); print "E-mail enviado para ".$mala['Email']."<br>"; }; if ($mail){echo "ok";} else {echo "não";} } ?> </body> </html>
  2. Carlos Rocha
    Como?
  3. Carlos Rocha
    Como criar uma função onde eu cliko num botao e a função pega o conteudo de um arquivo word e envia por email para uma lista de emails cadastrada numa tabela mysql para cadastro de usuarios do meu site aonde um dos campos é "Emal"
  4. Carlos Rocha
    Estou usando a função mail() do php normalmente mas surgiu uma dificuldade: O texto do email, normalmente eu coloco numa variavel $texto, mas se eu precisa-se entregar à variavel $texto não um texto mas o conteudo de um arquivo, tem jeito? Tipo o texto só tem texto mas um arquivo tem imagens...
  5. Carlos Rocha
    Opa kiko, depois de fazer os testes é que fui perceber que o código é o mesmo. Vela só: A busca faz certo, o update tambem, mas, depois do upate, quando o cursor deveria voltar pro combobox nome novamente, ta dando um erro(que parece ser na busca).. ve só Can not retrieved resultset data. já procurei a ner pra la e pra ca e nada.. me ajua aí mano.. Um abraço Carlos Rocha
  6. Carlos Rocha
    O problema é que desse jeito, é mostrado na janelinha de busca, apenas o primeiro resultado da query, e o que eu preciso, é que a cada letra que eu digitar na janelinha de busca, seja feita uma busca na tabela e se houver um nome la que começe com essas letras, o resto do nome seja completado automticamente na janelinha de busca como acontece na combobox.
  7. Carlos Rocha
    Ola Pessoal, Tenho o código abaixo, que entrega o resultado de uma query a uma ComboBox. Como eu faço para entregar o resultado dessa query a uma variavel? ZQueryBusca.Close; ZQueryBusca.SQL.Clear; ZQueryBusca.SQL.Add('Select * From Clientes'); ZQueryBusca.Open; ZQueryBusca.first; while not ZQueryBusca.EOF do begin ComboBoxNome.Items.Add(VarToStr(ZQueryBusca.Fields[1].value)); ZQueryBusca.Next; end; Tenho que adaptar o código abaixo aonde a variavel 'Nome' recebe inicialmente valor vazio, Eu quero que ela receba o resultado da query do codigo acima. procedure TFormAlteraClientes.ButtonProcurarClick(Sender: TObject); var Nome:String; begin //Nome := ''; // inicia definindo uma string vazia(quero entregar o resultado da query) if InputQuery('Procurar', 'CliNome', Nome) then if not zTableClientes.Locate('CliNome', Nome, [loCaseinsensitive, loPartialKey]) then ShowMessage('Nome não encontrado!'); end; O codigo anterior, entrega o resultado da query pra ComboBox quero tirar a ComboBox e entregar o resultado da query pra variavel. Outra Coisa: esta busca não é tem a propriedade loCaseinsensitive se tiver como gostaria que tivesse.... Muito obrigado a todos e um grande abraço!!!!!!!!!!!!!!! Como entregar o resultado de uma query a uma variavel?
  8. Carlos Rocha
    O pessoal. alguém por favor me da uma ajuda. Ou alguém me ajude a criar um pequeno script onde eu digito o nome e a cada letra digitada, é completado com o resto dos nomes e a partir daí, os outros campos se preenchem sózinhos buscando tipo o cpf, endereço...
  9. Carlos Rocha
    Ola Pessoal, to pelejandfo pra apreder a trabalhar com zeos e mysql e quero agradecer a paciencia de voces. Minha duvida agora é a seguinte: Enxuquei meu código. E agora tenho dois butoons, um atualizar com um update um cadastrar com um insert mas apois clikar em um ou no outro botão, ta dando a seguinte mensagem. Can not Retrieve ResultSet Data Olhem meu código: unit cadastros; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection, Buttons, Grids, DBGrids; type TFormCadastros = class(TForm) ZConnectionImobiliaria: TZConnection; ZQueryClientes: TZQuery; DataSource1: TDataSource; ComboBoxNome: TComboBox; ComboBoxCpfCnpj: TComboBox; ButtonSalvar: TButton; ComboBoxTelefone: TComboBox; ComboBoxEndereco: TComboBox; ComboBoxCidade: TComboBox; ComboBoxNacimento: TComboBox; LabelNome: TLabel; LabelCpfCnpj: TLabel; LabelTelefone: TLabel; LabelEndereco: TLabel; LabelCidade: TLabel; LabelNacimento: TLabel; ZQueryClientesCliId: TLargeintField; ZQueryClientesCliNome: TStringField; ZQueryClientesCliCpfCnpj: TStringField; ZQueryClientesCliTelefone: TIntegerField; ZQueryClientesCliEndereco: TStringField; ZQueryClientesCliCidade: TStringField; ZQueryClientesCliNacimento: TStringField; ButtonAtualizar: TButton; ComboBoxID: TComboBox; LabelID: TLabel; ZQueryClientes2: TZQuery; procedure ComboBoxNomeChange(Sender: TObject); procedure ButtonSalvarClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ButtonAtualizarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormCadastros: TFormCadastros; implementation {$R *.dfm} procedure TFormCadastros.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; // remove o form da memória FormCadastros := NIL; // informa que foi destruído (não criado) end; procedure TFormCadastros.ComboBoxNomeChange(Sender: TObject); begin ZQueryClientes.Open; ZQueryClientes.first; while not ZQueryClientes.EOF do begin ComboBoxNome.Items.Add(VarToStr(ZQueryClientes.Fields[1].value)); ZQueryClientes.Next; end; ZQueryClientes.LOCATE('CliNome',ComboBoxNome.Text,[loCaseInsensitive, loPartialKey]); ComboBoxID.TEXT:=ZQueryClientes.fieldbyname('CliID').Value; ComboBoxCPFCNPJ.TEXT:=ZQueryClientes.fieldbyname('CliCpfCnpj').Value; ComboBoxTelefone.TEXT:=ZQueryClientes.fieldbyname('CliTelefone').Value; ComboBoxEndereco.TEXT:=ZQueryClientes.fieldbyname('CliEndereco').AsString; ComboBoxCidade.TEXT:=ZQueryClientes.fieldbyname('CliCidade').AsString; ComboBoxNacimento.TEXT:=ZQueryClientes.fieldbyname('CliNacimento').Value; ZQueryClientes.Next; end; procedure TFormCadastros.ButtonSalvarClick(Sender: TObject); begin ZQueryClientes.Active := False; ZQueryClientes.SQL.Clear; ZQueryClientes.SQL.Add('Insert into Clientes(CliNome,CliCpfCnpj,CliTelefone,CliEndereco,CliCidade,CliNacimento) Values('+''''+ComboBoxNome.Text+''''+','+''''+ComboBoxCpfCnpj.Text+''''+','+''''+ComboBoxTelefone.Text+''''+','+''''+ComboBoxEndereco.Text+''''+','+''''+ComboBoxCidade.Text+''''+','+''''+ComboBoxNacimento.Text+''''+')'); ZQueryClientes.Open; ZQueryClientes.ExecSQL; ZQueryClientes.Append; ShowMessage('Ok!'); ComboBoxNome.SetFocus; // posiciona na caixa de texto novamente Exit; // retorna end; procedure TFormCadastros.ButtonAtualizarClick(Sender: TObject); begin ZQueryClientes.Active := False; ZQueryClientes.SQL.Clear; ZQueryClientes.SQL.Add('Update Clientes set CliNome='+''''+ComboBoxNome.Text+''''+',CliCpfCnpj='+''''+ComboBoxCpfCnpj.Text+''''+',CliTelefone='+''''+ComboBoxTelefone.Text+''''+',CliEndereco='+''''+ComboBoxEndereco.Text+''''+',CliCidade='+''''+ComboBoxCidade.Text+''''+',CliNacimento='+''''+ComboBoxNacimento.Text+''''+' where CliId='+''''+ComboBoxId.Text+''''+''); ZQueryClientes.Open; ZQueryClientes.ExecSQL; ZQueryClientes.Append; ShowMessage('Ok!'); ComboBoxNome.SetFocus; // posiciona na caixa de texto novamente Exit; // retorna end; end. Qual sera agora o erro?
  10. Carlos Rocha
    To usando o código abaixo com zeos, zquery e mysql. Tenho 2 combobox no form ComboBoxNome ComboBoxCpfCnpj To usando o código abaixo pra mostrar o cpf do cliente cujo nome, à medida que o nome é digitado no ComboBoxNome, mostrar no ComboBoxCpfCnpj. Esse código funciona mas... O Problema é que se eu quizer alterar os dados depois de listados, num consigo pois o DBNavigator1, não disponibiliza os botoes de update e insert. O que eu faço neste caso: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection; type TForm1 = class(TForm) ZConnectionImobiliaria: TZConnection; ZQueryClientes: TZQuery; ZQueryClientesCliId: TLargeintField; ZQueryClientesCliNome: TStringField; ZQueryClientesCliCpfCnpj: TIntegerField; ZQueryClientesCliTelefone: TIntegerField; ZQueryClientesCliEndereco: TStringField; ZQueryClientesCliCidade: TStringField; ZQueryClientesCliNacimento: TStringField; DataSource1: TDataSource; DBNavigator1: TDBNavigator; ComboBoxNome: TComboBox; ComboBoxCpfCnpj: TComboBox; procedure ComboBoxNomeChange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ComboBoxNomeChange(Sender: TObject); begin ZQueryClientes.ACTIVE:=TRUE; ZQueryClientes.REFRESH; ZQueryClientes.Close; ZQueryClientes.SQL.Clear; ZQueryClientes.SQL.Add('Select * From Clientes'); ZQueryClientes.Open; ZQueryClientes.LOCATE('CliNome',ComboBoxNome.Text,[LoPartialKey]); ComboBoxCPFCNPJ.TEXT:=ZQueryClientes.fieldbyname('CliCpfCnpj').AsString; ZQueryClientes.first; while not ZQueryClientes.EOF do begin ComboBoxNome.Items.Add(VarToStr(ZQueryClientes.Fields[1].value)); ZQueryClientes.Next; end; end; end.
  11. Carlos Rocha
    Valeu pelo apoio, deu certo, agora vou estudar o que eu consegui pra ver se entendo. Quanto ao zeos(Que é muito mais facil de trabalhar),´o código é o mesmo, só muda de SQLQueryClientes pra ZQueryClientes
  12. Carlos Rocha
    Fiz meus ajustes e cheguei nesse código que funcionou: procedure TFormCadastros.ComboBoxNomeChange(Sender: TObject); begin SQLQueryClientes.ACTIVE:=TRUE; SQLQueryClientes.REFRESH; SQLQueryClientes.Close; SQLQueryClientes.SQL.Clear; SQLQueryClientes.SQL.Add('Select * From Clientes'); SQLQueryClientes.Open; SQLQueryClientes.LOCATE('CliNome',ComboBoxNome.Text,[LoPartialKey]); ComboBoxCPFCNPJ.TEXT:=SQLQueryClientes.fieldbyname('CliCpfCnpj').AsString; SQLQueryClientes.first; while not SQLQueryClientes.EOF do begin ComboBoxNome.Items.Add(VarToStr(SQLQueryClientes.Fields[1].value)); SQLQueryClientes.Next; end; end; Mas.. Estou usando DBExpress, portanto SQLConnection com SQLQueryGridClientes. Como ficaria esse mesmo código caso eu usasse o zeos pra acessar o mysql?
  13. Carlos Rocha
    To usando é SqlQuery, num é Query não. Erro: Deu Closed dataset.
  14. Carlos Rocha
    Minha ultima tentativa foi assim. procedure TFormCadastros.ComboBoxNomeChange(Sender: TObject); begin SQLQueryClientes.Close; SQLQueryClientes.SQL.Clear; SQLQueryClientes.SQL.Add('select * from Clientes'); SQLQueryClientes.Open; SqlQueryClientes.first; while not SqlQueryClientes.EOF do begin ComboBoxNome.Items.Add(VarToStr(SqlQueryClientes.Fields[1].value)); ComboBoxCpfCnpj.Items.Add(VarToStr(SqlQueryClientes.Fields[2].value)); SqlQueryClientes.Next; end; end;
  15. Carlos Rocha
    Mas como assim?
  16. Carlos Rocha
    Eu quero digitar no comboboxnome o nome do cliente e receber o CNPJ/Cpf no comboboxCPFCNPJ. E a medida que vou mudando o nome o CpfCnpj do cliente(Claro que Se tiver cadastrado) muda junto. Mas sem precisar submeter o formulario.
  17. Carlos Rocha
    Tentei teu código mas num saiu nada, fora ele, outros códigos tambem forao testados. procedure TFormCadastros.ComboBoxCpfCnpjChange(Sender: TObject); begin SQLQueryClientes.Close; SQLQueryClientes.SQL.Clear; // SQLQueryClientes.SQL.Add('select * from Clientes where CliNome = :Nome'); // SQLQueryClientes.ParamByName('Nome').AsString := ComboBoxNome.Text; // SQLQueryClientes.SQL.Add('select * from Clientes where CliNome nomecliente like '+''''+ComboBoxNome.Text+''''+''); // ComboBoxCpfCnpj.text := SQLQueryClientes.fieldbyname('CliCpfCnpj').AsString; // SQLQueryClientes.SQL.Add('select * from Clientes where CliNome like :Nome'); // SQLQueryClientes.ParamByName('Nome').AsString := '%'+ComboBoxNome.Text'%'; // SqlQueryClientes.SQL.Add('Select * from Clientes where CliNome Like %'+ ComboBoxNome.Text + '%'); // SqlQueryClientes.SQL.Add('Select * from Clientes where CliNome Like :Parametro'); // SqlQueryClientes.ParamByName('Parametro').Value := '%' + ComboBoxNome.Text + '%'; SQLQUERYCLIENTES.LOCATE('NOME',COMBOBOXNOME.Text,[LoPartialKey]); COMBOBOXCPFCNPJ.TEXT:=SQLQUERYCLIENTES.Text; SQLQueryClientes.Open; SqlQueryClientes.first; while not SqlQueryClientes.EOF do begin ComboBoxCpfCnpj.Items.Add(VarToStr(SqlQueryClientes.Fields[2].value)); SqlQueryClientes.Next; end; end; Sera que eu num to errando nos eventos?
  18. Carlos Rocha
    Olá pessoal, olha só. Tenho 2 combobox no form ComboBoxNome ComboBoxCpfCnpj o usando os dois códigos abaixo pra mostrar o cpf do cliente cujo nome, à medida que o nome é digitado no ComboBoxNome, mostrar no ComboBoxCpfCnpj. Mas num dá certo, num da erro, nem sai o cpf. O que estou fazendo de errado? procedure TFormCadastros.ComboBoxCpfCnpjChange(Sender: TObject); begin SqlQueryClientes.Close; SqlQueryClientes.sql.Clear; SqlQueryClientes.SQL.Add('Select * from Clientes where CliNome = '+''''+ComboBoxNome.Text+''''+''); SqlQueryClientes.Open; SqlQueryClientes.first; while not SqlQueryClientes.EOF do begin ComboBoxCpfCnpj.Items.Add(VarToStr(SqlQueryClientes.Fields[2].value)); SqlQueryClientes.Next; end; end; procedure TFormCadastros.ComboBoxCpfCnpjChange(Sender: TObject); begin SQLQueryClientes.Close; SQLQueryClientes.SQL.Clear; SQLQueryClientes.SQL.Add('select * from Clientes where CliNome = :Nome'); SQLQueryClientes.ParamByName('Nome').AsString := ComboBoxNome.Text; SQLQueryClientes.Open; SqlQueryClientes.first; while not SqlQueryClientes.EOF do begin ComboBoxCpfCnpj.Items.Add(VarToStr(SqlQueryClientes.Fields[2].value)); SqlQueryClientes.Next; end; end; Depois pretendo fazer o mesmo para todos os outros campos da tabela... Endereco, telefone... Obrigado
  19. Carlos Rocha
    olá todos. Como faço pra ligar um dbgrid à um datasource que vai mostrar os dados de um sqlquery que pega conecção de um dbconnecction da aba dbexpress?
  20. Carlos Rocha
    MySql
  21. Carlos Rocha
    Tenho 2 ComboBox.: ComboBoxNomeCliente ComboBoxCpfCliente No ComboBoxNomeCliente, tenho um código de autocompletamento do nome do cliente, ou seja, à medida que se vai digitando um nome, é feita uma busca na tabela de clientes e se tiver aquele nome, completa o resto do nome automaticamente. No ComboBoxCpfCliente, preciso por um código que à medida que o ComboBoxNomeCliente é preenchido, é feita uma pesquiza na tabela de clientes que seleciona o campo CPF da tabela clientes onde o nome do cliente recebe o nome autocompletado no ComboBoxNomeCliente. Mas sem submeter o formulario, ou seja: Trocou de Carlos pra Carla troca o CPF automaticamente No ComboBoxCpfCliente.
  22. Carlos Rocha
    Ola, to usando esse codigo pra autocompletar uma comobox: procedure TFormCadastros.ComboBoxLocadorChange(Sender: TObject); begin SQLQueryClientes.Close; SQLQueryClientes.SQL.Clear; SQLQueryClientes.SQL.Add('Select * From Clientes'); SQLQueryClientes.Open; SQLQueryClientes.First; while not SQLQueryClientes.EOF do begin ComboBoxLocador.Items.Add(VarToStr(SQLQueryClientes.Fields[1].value)); SQLQueryClientes.Next; end; end; Porem se tiverem os nomes na tabela gravados. Carla Carlito Carlos E eu digitar na comobox Carl A comobox completa com o primeiro nome Carla. Mas, se eu continuar e digitar a proxima letra i, Carli, ele passa pro proximo nome Carlito e ta certo. Porem se eu voltar uma letra e apagar o i voltando pro Carl, ele mantem o Carl e não completa o Carla que é o primeiro nome. Como fazer isso?
  23. Carlos Rocha
    Ola pessoal ta dificil mas to conseguindo. A minha duvida agora é: To usando DBConection cum SqlQuery, e to cadastrando clientes numa tabela clientes com Mysql. To precisando fazer o seguinte.: A medida que vai digitando as letras do nome a ser cadastrado, vai sendo feito um filtro na tabela, e vai aparecendo no edit os nomes já cadastrados, e se não tiver op nome aí sim vou cadastrar. E a medida que vai aparecendo os nomes já cadastrados na tabela, os outros dados tambem se autopreencham por exemplo. edit1 = Jose Roberto Cliente: Jose Roberto Cpf: 12345678910 Endereço: Rua a numero 10 e se eu trocar no edit para edit1 = Jose Rabelo Cliente: Jose Rabelo Cpf: 12345678911 Endereço: Rua 5 numero 100 Como faz isso?
  24. Carlos Rocha
    Ola Pessoal: Eu acesso o Mysql atraves de SqlConnection e faço a query através do SqlQuery. Estou pondo o seguinte na SqlQuery: Select * from Clientes; Porem, quando eu vou para o formulario, num consigo escrever nada nosd DBEdit's. Parece que o teclado travou. Como fazer? Problema com DBEdit.
  25. Carlos Rocha
    Ta, o problema é: A função IncMonth(), calcula 30 dias, ou uma variação do mes 01, mes 02, etc...? Se for a segunda opção, quando chegar o ano que vem, num vai dar pau com os meses 01/02/etc... não?
×
×
  • Criar Novo...