João Paulo Taraciuk

Obrigado Denis Courcy, hoje mesmo vou iniciar o uso da versão do MySql 5. Valeu!!

Olá Denis Courcy, obrigado pela resposta, não fazia nem idéia que teria que mudar alguns tipos de dados, foi bom perguntar antes de instalar. Na verdade, em casa eu não estou com o banco instalado ainda(acabei de formatar o micro e vou aproveitar para atualizar o banco) E, gostaria de saber também, se você recomenda algum gerenciador de banco de dados para o MySQL 5.0, no MySQL 3.23 eu utilizo o EMS SQL Manager 2005 Lite for MySQL, que torna muito prático as tarefas de criar tabelas e bancos. Valeu!!

Olá pessoal, estou trabalhando com o MySql 3.23, aí, resolvi instalar em casa o 5.0 No 3.23, ao instalar, cria-se uma pasta dentro do C: , onde coloca-se o banco dentro da pasta Data. Mas no 5.0 a pasta MySql foi para o Arquivos de Programas, e aí? Coloco o banco dentro da pasta Data da mesma maneira que no 3.23? E no 3.23 tem o exe WinMySqlAdmin dentro da pasta bin, qual seria este serviço no 5.0 e, aproveitando, No banco atual eu utilizo o Zeos 6.5, e na ZConnection não tem o Protocolo MySql 5.0, então qual versão do Zeos eu deveria utilizar? Ou tem outro componente fácil de utilizar, como o Zeos para eu conectar ao banco 5.0 ? Qualquer dica eu agradeço. Valeu

Grande Micheus, funcionou aqui :) , exatamente da maneira que eu precisava. Valeu mesmo. Abraço..

Olá Rejane Mendes, não sei se é isso que você procura, mas, eu utilizo este procedimento para enviar do QReport para o Word QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.doc'));

Olá Micheus, antes de mais nada, obrigado pela atenção. No exemplo que você criou, sai exatamente como eu quero, mas se eu troco a Query da paleta BDE que está no relatóriozinho pela ZQuery do Zeos que é a que estou utilizando no projeto, coloco todos os dados e as propriedades da mesma maneira, mas com a ZQuery não sai igual, não sei porque, mas não sai. Se tivesse como ligar a Query da paleta BDE ao MySql... Valeu.

Olá agora saiu todos os clientes,mas ainda não consegui separá-los por mês vou colocar as propriedades dos componentes que estão no form: aí tem um QRLabel no QRGroup onde está o código indicado QRLabelMes.Caption := UpperCase(FormatDateTime('mmmm', ZQuery_nivernascimento.AsDateTime)); e na QRBand estão os QRDBText, cada qual setado no campo desejado, aí, agora saiu todos os clientes em ordem cerscente por mês e dia respectivamente, mas só sai um QRGroup em cima impresso 'JANEIRO', o que eu estou fazendo errado? Tenho que colocar mais algum componente no form, ou mudar a propriedade de algum destes componentes?

Olá, lá vamos nós de novo, eu fiz o select como está na dica select extract(month from nascimento) as mes, id_cliente, nome, telefone, email, nascimento from clientes order by 1, extract(day from nascimento) Aí no QReport saiu apenas um cliente e o Mês no QRLabel, mas eu coloquei o Record count, que retornou o número dos clientes, que no caso é 14, o que eu estou fazendo errado? Minha consulta está assim procedure Tfrm_niver.novapesquisa; begin Form3.ZQuery_niver.Active:=False; Form3.ZQuery_niver.SQL.Clear; Form3.ZQuery_niver.SQL.Add('Select extract(month from nascimento) as mes, id_cliente, nome, telefone, email, nascimento '); Form3.ZQuery_niver.SQL.Add(' from clientes order by 1, extract(day from nascimento)'); Form3.ZQuery_niver.Active:=True; end; No caso o QuickReport está no Form3, o que eu tenho que colocar neste código para ele continuar escrevendo a consulta? AH, consegui colocar o QRGroup e setar na ZQuery, Valeu Micheus!!!

Então Micheus, é exatamente no momento de fazer esta relação do qrGroup que eu estou perdido, coloquei o selet exatamente como você indicou aí saiu em ordem crescente por mês, agora só falta separá-los para ficar cada cada mês em um qrGroup, eu tentei olhei os exemplos Demo do Delphi, mas não consegui compreendê-los, bom eu fiz assim no QReport: O QuickReport no DataSet eu coloquei a ZQuery_niver(Que estou utilizando), aí eu coloquei um QRGroup, que ficou como Group Header, e coloquei uma DetailBand, aí, eu estou perdido no expression, como eu devo colocá-lo?coloco apena mes ou deve ser entre parenteses? Eu tentei até fazer no RichEdit, mas não consegui deixá-lo tabulado Valeu!!

Olá pessoal, estou realizando uma pesquisa de aniversariantes e preciso que ele seja enviado para o QReport separando por mês, eu fiz uma Procedure enviando para txt, o resultado seria mais ou menos o mesmo, mas queria enviar para o QReport ao invés de txt, o código está assim procedure Tfrm_niver.Pesquisa_Mensal; var a: TextFile; Linha1, campo1, campo2, campo3 : string; begin AssignFile(a, 'C:\'+Edit1.Text+'.txt'); Rewrite(a); Writeln(a, 'Codigo'+' '+'Nome'+' '+'Data Nascimento'); Writeln(a,); //=============================================================================\\ //-------------------------------JANEIRO---------------------------------------\\ ZQuery_niver.Active:= False; ZQuery_niver.SQL.Clear; ZQuery_niver.SQL.Add('select id_cliente, nome, telefone, email, nascimento '); ZQuery_niver.SQL.Add('from clientes where extract(month from nascimento)=1'); ZQuery_niver.Active:=True; if(ZQuery_niver.RecordCount>0)then begin Writeln(a); Writeln(a,('=========================JANEIRO==============================')); Writeln(a); while not ZQuery_niver.Eof do begin campo1 := AjustaStr(ZQuery_niver.FieldByName('id_cliente').AsString,6); campo2 := AjustaStr(ZQuery_niver.FieldByName('nome').AsString,23); campo3 := ZQuery_niver.FieldByName('nascimento').AsString; Linha1 := campo1+' '+campo2+' '+campo3; Writeln(a, Linha1); ZQuery_niver.Next; end end else begin Writeln(a); Writeln(a); Writeln(a,(' JANEIRO ')); Writeln(a,('Nenhum aniversariante cadastrado para o mês de Janeiro')); Writeln(a); end; //=============================================================================\\ //-------------------------------FEVEREIRO-------------------------------------\\ ZQuery_niver.Active:= False; ZQuery_niver.SQL.Clear; ZQuery_niver.SQL.Add('select id_cliente, nome, telefone, email, nascimento '); ZQuery_niver.SQL.Add('from clientes where extract(month from nascimento)=2'); ZQuery_niver.Active:=True; if(ZQuery_niver.RecordCount>0)then begin Writeln(a); Writeln(a); Writeln(a,('=========================FEVEREIRO============================')); Writeln(a); while not ZQuery_niver.Eof do begin campo1 := AjustaStr(ZQuery_niver.FieldByName('id_cliente').AsString,6); campo2 := AjustaStr(ZQuery_niver.FieldByName('nome').AsString,23); campo3 := ZQuery_niver.FieldByName('nascimento').AsString; Linha1 := campo1+' '+campo2+' '+campo3; Writeln(a, Linha1); ZQuery_niver.Next; end; end else begin Writeln(a); Writeln(a); Writeln(a,(' FEVEREIRO ')); Writeln(a,('Nenhum aniversariante cadastrado para o mês de Fevereiro')); Writeln(a); end; E por aí vai, até Dezembro, Não sei como fazer este procedimento, de separar mês a mês, colocando a descrição do mês e passando um traço, o que sai no txt é assim Se alguém puder me dar uma dica, eu agradeço!!

Não tem problema não Micheus, eu só tenho a agradecer a vocês colegas do fórum, pois têm me ajudado muito. Realmente no início do post o objetivo estava meio confuso, e utilizando a dica do Denis Courcy e a dica do Locate deu exatamente da maneira que eu precisava, ele destaca as linhas referentes ao pedido e com o locate vai direto para as linhas destacadas,aí vai o código, se alguém tiver com a mesma dúvida procedure Tfrm_vendas.DBGrid3DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if DBGrid3.Fields[0].Value = DBGrid2.Fields[0].AsInteger then begin DBGrid3.Canvas.Brush.Color := clInactiveCaptionText; DBGrid3.Canvas.Font.Color:=clRed; end else DBGrid3.Canvas.Brush.Color := clWhite; DBGrid3.Canvas.Font.Color:=clBlack; DBGrid3.Canvas.FillRect(Rect); DBGrid3.DefaultDrawDataCell(Rect,Field,State); end; aí eu coloquei o locate no OnShow do TabSheet que é onde está o DBGrid3, ficando assim procedure Tfrm_vendas.TS_Contas_receberShow(Sender: TObject); begin ZQuery2.Locate('numero_documento',ZQuery1.Fields[0].AsString,[LoPartialKey,LoCaseInsensitive]); {No caso, Zquery2 é a do DBGrid3 e ZQuery1 é a do DBGrid2, 'numero_documento' é o nome do campo da ZQuery2 que está relacionado com a Zquery1} end; Valeu!!!

Olá Denis Courcy, deu certinho, coloriu as linhas da maneira que eu queria, eu peguei o número direto das células do DBGrid, o código ficou assim procedure Tfrm_vendas.DBGrid3DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if DBGrid3.Fields[0].Value = DBGrid2.Fields[0].AsInteger then begin DBGrid3.Canvas.Brush.Color := clInactiveCaptionText; DBGrid3.Canvas.Font.Color:=clRed; end else DBGrid3.Canvas.Brush.Color := clWhite; DBGrid3.Canvas.Font.Color:=clBlack; DBGrid3.Canvas.FillRect(Rect); DBGrid3.DefaultDrawDataCell(Rect,Field,State); end; Agora, o único problema é que as linhas do DBGrid não mostram as linhas coloridas se elas estiverem para baixo do final do DBGrid, tem que rolar manualmente o BDGrid, porque da maneira que eu fiz, não setei nada na ZQuery. Mas destaca exatamente as linhas que forem do mesmo pedido. Obrigado!!

Bom pessoal, ainda não consegui fazer o proposto acima, e estava pensando, será que com um StringGrid eu poderia realizar este procedimento?, e de repente, se puder dar uma dica de como manipular este componente, para fazer estas tarefas eu ficarei muito grato.

Bom, o select deu certinho, agora vem o segundo problema, o cliente quer que Quando ele clique em cima de um pedido no grid1, fiquem selecionadas as parcelas correspondentes ao mesmo no grid dois, seria mais ou menos assim Ele clica no pedido no grid1, no caso o pedido 161 Aí ficaria selecionado as parcelas referentes a esse pedido no grid2, assim Agora, como eu faço para deixar selecionado estas linhas? Eu vou colocar no OnDoubleClick do grid1 para ActivePageIndex:=1, que aparece o grid2, o das parcelas, e ele já está com o Options > dgMultiSelect como true, eu não tenho nem idéia de como deixar selecionadas estas linhas. Qualquer dica, eu agradeço Valeu!!!

Boa tarde pessoal, lá vamos nós de novo Estou trabalhando em uma tela de faturamento, onde tenho dois DBGrid, em um deles tenho as compras dos clientes, no segundo tem as parcelas destas compras , então o que eu quero fazer é o seguinte, No grid 1, se eu clico em uma linha, que é um pedido, quero que selecione no grid 2 as parcelas referentes ao pedido selecionado no grid 1, pois, por exemplo, tem um pedido no grid 1 que é uma linha, no grid 2 estão as parcelas referentes a este pedido, e não sei nem por onde começar a fazer este processo... Se alguém tiver uma dica, eu agradeço!!! Valeu.

Obrigado Jhonas, era isso mesmo que queria

Olá pessoal, estou com a seguinte dúvida na inserção de dados no Mysql, eu tenho que inserir dados no banco com o seguinte critério: Se o produt já existe no banco, insere normalmente, senão, o usuário vai cadastrá-lo, e, se não quiser cadastrá-lo, ele poderá inserí-lo manualmente, aí, para inserí-lo manualmente, quero que seja gerado um código diferente dos demais, como se fosse um dígito verificador, porque o código normal é assim 123 gostaria que os inseridos manualmente ficassem mais ou menos assim 123.1 123.2 e por aí vai, ou assim 123A 123B E não sei como fazer isso, se alguém puder me ajudar eu agradeço Valeu!!!

Olá pessoal, estou com a seguinte dúvida na inserção de dados no Mysql, eu tenho que inserir dados no banco com o seguinte critério: Se o produt já existe no banco, insere normalmente, senão, o usuário vai cadastrá-lo, e, se não quiser cadastrá-lo, ele poderá inserí-lo manualmente, aí, para inserí-lo manualmente, quero que seja gerado um código diferente dos demais, como se fosse um dígito verificador, porque o código normal é assim 123 gostaria que os inseridos manualmente ficassem mais ou menos assim 123.1 123.2 e por aí vai, ou assim 123A 123B E não sei como fazer isso, se alguém puder me ajudar eu agradeço Valeu!!!

Olá pessoal, fiquei um bom tempo sem mexer nesta conexão com o banco de dados, mas hoje tive que realizar esta tarefa, e como não tinha muito tempo para testar, fiz um procedimento da seguinte maneira: Criei um txt dentro da pasta do Projeto, onde coloco o IP do servidor(Ex:10.1.1.50), e no OnCreate do DataModule coloquei um código para ler o txt, vou postar o código, se de repente mais alguém tiver o mesmo problema procedure TDM_Dados.DataModuleCreate(Sender: TObject); var A: String; B: TextFile; begin AssignFile(B,'C:\Caminho.txt');//Aqui vai o caminho do txt onde está o ip do servidor Reset(B); ReadLN(B,A); ZConnection.Connected:=False; ZConnection.HostName:=A; ZConnection.Connected:=True; CloseFile(B); end; E funcionou, não sei se é a maneira correta de realizar este procedimento, mas conectou o banco no Servidor. Obrigado ao Jhonas e ao Micheus, pois sem a ajuda de vocês eu não sairia do Zero. Valeu!!!

Obrigado Erso, deu certo aqui, funcionou das duas maneiras Valeu!!!

Olá pessoal, estou fazendo um select dessa maneira ZQuery1.Active:= False; ZQuery1.SQL.Clear; ZQuery.SQL.Add('Select nome "Nome do Cliente", End_cliente "Endereco" from Clientes'); ZQuery.Active:=True; Mas eu preciso trabalhar com mais um campo, para fazer o relacionamento, mas não quero que ele apareça no DBGrid que estou utilizando,no caso, é o campo Código do cliente, eu também gostaria de fazer sem colocar o código do select dentro da ZQuery, pois no código original estou trabalhando com tres tabelas e ao colocar o código dentro da ZQuery e ativá-la ela deixa o sistema bem lento. Acredito que o Select ficaria mais ou menos assim ZQuery1.Active:= False; ZQuery1.SQL.Clear; ZQuery.SQL.Add('Select nome "Nome do Cliente", End_cliente "Endereco",cod_cliente from Clientes');{cod_cliente Não deve aparecer no DBGrid} ZQuery.Active:=True; Edit1.Text :=ZQuery1.Fields[2].AsString; Edit2.Text :=ZQuery1.Fields[0].AsString; Edit3.Text :=ZQuery1.Fields[1].AsString; Será que tem como incluir ele na pesquisa sem mostrá-lo no Grid? Qualquer dica, eu agradeço.

Obrigado Micheus, já testei aqui e deu certo, isso vai me ajudar bastante, pois assim, não vou ter que criar a mesma função em cada form que for utilizá-la, crio na nova Unit e somente chamo quando onde for utilizá-la. E a outra função também, vou acabar implementando aqui no meu Projeto. Valeu!!!

Deu certo, ficou alinhadinho, também no txt, agora, sem querer ser muito chato, Como eu poderia fazer esta Unit, pois tem funções que utilizo em vários forms, como esta function Tfrm_clientes.Novo_Id: integer; begin DM_Dados.ZQuery_apoio.Active:=False; DM_Dados.ZQuery_apoio.SQL.Clear; DM_Dados.ZQuery_apoio.SQL.Add('select max(id_cliente)from clientes'); DM_Dados.ZQuery_apoio.Active:=true; Result:=DM_Dados.ZQuery_apoio.FieldByName('id_cliente').AsInteger + 1 end; e, facilitaria bastante colocá-la em uma Unit e depois somente chamá-la, assim como eu faço com as funções da Bemafi. Mas eu não sei onde deveria declarar a função em um form diferente.

Funcionou aqui Micheus, Obrigado. Primeiro eu testei enviando para um txt(Economia antes de tudo), aí,no txt ainda saiu desalinhado, mas aí, mandei Direto para a impressora e saiu alinhadinho, perfeito. Obrigado, não sei o que faria sem a ajuda de vocês, porque, algumas coisas, a gente até consegue fazer sozinho, mas tem outras que só com a ajuda dos profissionais na área (Que em breve pretendo me tornar um :D ) Abraço!!!

Micheus, está dando erro na função FormatStrSize, assim function Tfrm_vendas.FormatStrSize(Source: string; Ch: char; Size: byte): string; begin Result := RightStr(StringOfChar(Ch, Size) +Source); end; Dá o error There is no overloaded version of 'RightStr' that can be called with these arguments Eu utilizo Delphi 7.