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"

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...

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

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.

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?

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...

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?

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.

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

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?

To usando é SqlQuery, num é Query não. Erro: Deu Closed dataset.

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;

Mas como assim?

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.

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?

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

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?

MySql

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.

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?

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?

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.

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?

Pessoal, vejam só o problema? Eu acesso o Mysql atraves de SqlConnecions porem, depois que compila acontece o seguinte, todas as vezes que o SqlConnecions conecta o MySql, ele pede login e senha pro usuarioi. Tem como pedir a senha pro MySql uma vez só? Como?

Ola pessoal, to precisando de uma ajuda. É o seguinte. To criando um programinha pra uma imobiliária mas o dono dela não quer bater os contratos de aluguel no programa. Ele tem um arquivo word com o texto de um contrato e cada vez que ele fecha outro, ele só autera o texto. O problema é que preciso gerar um recibo de aluguel até que bem simples mas que todos os meses ele troca a data sozinho. Por exempo: Contratato vencendo todo dia 7 * Todo dia 7 ele vai mostrar na data do vencimento 07/08/2005..07/09/2005..07/10/2005.. Hoje essa data ta sendo mudada na mão mesmo como um campo de texto. Outra coisa é que, a cada recibo emitido ele conte o numero do recibo tipo: Recibo 001 vencimento 07/08/2005 Recibo 002 vencimento 07/09/2005 Como fazer isso? Obs.: Já tive a ideia de somar 30 dias a cada recibo mas dentro de dois anos ficaria um pra tras por causa dos meses com 31 dias... Outra coisa é como poderia guardar em um banco de dados cada recibo gerado para cada locatario para que futuramente possa ser tirada uma segunda via dele? Deu pra perceber o quanto estou cru né? Mas da uma fora aí pessoal, eu sei que um dia voces tambem precisaram. Um grande abraço. Carlos Rocha