João Paulo Taraciuk

Boa tarde a todos, gostaria de saber se tem como eu colocar dois QRDBText em um relatório de maneira que o segundo fosse posicionado logo após terminarem os caracteres do primeiro, tipo o primeiro seria nome da rua e o segundo seria o número, então se o nome da rua tivesse 5 caracteres, o segundo QRDBText começaria um caractere após, e assim por diante. valeu!!!

Então colega, eu tinha adicionado estas variáveis, mas no ReadLn(Caminho, Line), ele não chama, em todas as outras linhas onde elas foram colocadas, se apertar CTRL + Espacebar essas variáveis aparecem. Mas eu percebi que é por aí o caminho para resolver o meu problema, se eu conseguir fazer ele ler o arquivo txt acredito que vai funcionar, Valeu!!.

Jhonas , no ReadLn, ele não chama a variável Caminho e Line se tento CTRL + Spacebar, então ele não encontra o banco, alguma dica? Em todas as outras chama, somente no ReadLn é que não.

Bom, eu tentei fazer como no exemplo, mas não consegui, o meu projeto está assim program Meu Sistema; uses Forms, U_Principal in 'U_Principal.pas' {Frm_Principal}, U_Splash in 'U_Splash.pas' {Splash}; {$R *.res} begin Application.Initialize; Splash := TSplash.Create(Application); Splash.Show; Splash.Update; Application.Title := 'Meu Sistema'; Application.CreateForm(TMeusforms, Meusforms); Splash.Hide; Splash.Free; Application.Run; end. Eu utilizo o Mysql 3.23, o splash fica ativo enquanto carrega a aplicação, se tivesse como eu colocar o caminho do banco de dados do mysql tipo, estou no pc 10.1.1.5 e o banco está no 10.1.1.3, em um edit no splash, antes do programa buscar o banco, aí o usuário colocaria o ip e somente então o banco seria carregado, eu tentei fazer como no exemplo para o Interbase, mas não consegui, tentei também iniciar a aplicação com a ZConnection em Connected=False, para só então colocar o ip do banco, mas não deu certo, se tiver alguma dica, eu agradeço!!!

Boa tarde a todos. Estou trabalhando em uma aplicação, e gostaria de saber se, deixando o banco de dados instalado em um servidor, teria como, ao instalar o programa em uma máquina cliente, ao carregar a aplicação, tivesse a opção de colocar o hostname da ZConnection, ainda antes de iniciar o programa, sem que desse aquele erro, de que não encontrou banco de dados, tipo abrisse um form com o edit para colocar o ip do servidor. Utilizo o banco Mysql 3.23, comunicação via ZConnection, Delphi 7 Se alguém puder me ajudar, eu agradeço!!!!

valeu Jhonas, obrigado!!!

Obrigado Jhonas , funcionou, E, sem querer ser muito abusado, tem como colocar o hint no OnEnter de um GroupBox? valeu!!!

Infelizmente não deu, aqui não tem este evento no groupbox, pelo menos no Delphi 7 não, o que eu quero fazer é que ao sair com o mouse de dentro do TPanel ou TgroupBox, o componente fique invisível, pois é um painel que informa atalhos, como um popup, então fica alguns segundos e some, a não ser que o mouse esteja dentro dele. Falow!!!!

Bom Dia a todos, Alguém sabe como poderia fazer para ativar o evento OnMouseLeave em um TPanel ? Pois tal evento não existe no TPanel, utilizo Delphi 7 Valeu!!!

(Resolvido) Obrigado Jhonas, deu certo aqui, valeu!!!

Olá pessoal, é o seguinte, estou trabalhando em uma tela de vendas, então dentro de um groupbox tem alguns botões, ao quais eu atribuí teclas de atalho, o que eu gostaria de fazer é que, ao entrar no groupbox, fosse exibido uma janelinha apenas informando as teclas de atalho para os botões, tipo F1 Dinheiro F2 Cartão etc seria como um popup, mas apenas informando as teclas de atalho, sem função de clicar, e quando fosse pressionado a tecla respectiva ao atalho, tipo F1, desaparecesse a janelinha, Se alguém tiver alguma idéia de como eu poderia fazer, qual componente eu poderia utilizar, eu agradeço, valeu!!!!

Olá pessoal, bom lá vamos nós de novo, estou com um problema na configuração e página do QReport, seguinte, estou imprimindo em um formulário contínuo, tem duas colunas com 12 etiquetas cada, cada página tem 35 centimetros de altura, cada etiqueta eu fiz a detailBand com 25,1mm, imprime legal, mas quando vai passar para a próxima página, ela não está dando espaço suficiente entra as etiquetas, ela dá somente a metade do que precisa, então as etiquetas saem todas fora do local onde deveriam ser impressas, o quick está config sem margens superiores ou inferiores, se eu coloco margem superior, ela corta a impressão da última linha, alguém tem idéia de como eu poderia fazer para que de o espaço entre a última etiqueta da primeira página e a primeira da segunda ?

Ok, Obrigado pela dica, isso resolve o meu problema!! Valeu!!!

Olá, gostaria de saber se algum colega tem uma dica para o seguinte processo: tenho um form de cadastro de produtos, então cadastra o nome do produto, código, etc, porém o complemento do cadastro terá que ser em uma janelinha separada, que abriria tipo um popup, como eu poderia fazer uma janela que abrisse com os edit's de complemento sem fazer um outro form somente para estes 4 ou 5 campos. Se alguém puder me ajudar eu agradeço.

(Resolvido) Valeu colega, muito obrigado pela dica, vou colocar em prática Obrigado!!!

(Resolvido) OK,perfeito. Valeu colega, muito obrigado!!!

Esta é a procedure do form do qreport unit U_etiquetamala; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, QRCtrls, ExtCtrls; type Tfrm_etiquetamaladireta = class(TForm) QuickRep1: TQuickRep; QRBand1: TQRBand; QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRDBText8: TQRDBText; QRDBText9: TQRDBText; QRDBText10: TQRDBText; QRBand2: TQRBand; procedure QRDBText6Print(sender: TObject; var Value: String); private { Private declarations } public { Public declarations } end; var frm_etiquetamaladireta: Tfrm_etiquetamaladireta; implementation uses U_Etiquetas; {$R *.dfm} procedure Tfrm_etiquetamaladireta.QRDBText6Print(sender: TObject; var Value: String); begin Frm_Etiquetas.CDS_Selecao.Next; Value := Frm_Etiquetas.CDS_SelecaoNOME.Value; end; end. esta é do botão que chama o qreport procedure TFrm_Etiquetas.btn_etiquetas(Sender: TObject); begin frm_etiquetamaladireta.QuickRep1.Preview; end; ë somente a ordem de impressão das páginas que está ao contrário tipo, começa da décima para a primeira página, Obrigado pela atenção!!

Jhonas, Show de bola cara, muito obrigado, deu 100% certo. Sem querer ser muito chato, tem como mudar a ordem de impressão do QuickReport ? Porque ele imprime da última para a primeira página, se tivesse como imprimir da primeira para a última seria interessante. valeu!!!

Dúvida na impressão em linha Desculpa amigo, sou iniciante e não sei como poderia fazer dessa maneira, teria como você me dar uma luz, eu estou utilizando um ClientDataSet em um outro form, 4 QRBDText em cada etiqueta, Nome, Endereço, Bairro, CEP, pretendo imprimir etiquetas Pimaco, página com 24 etiquetas, 12 em cada coluna, Um QRBand, o Qreport está marcado como duas colunas, a dúvida é como eu posso controlar a leitura dos dados. Se puder me ajudar eu agradeço valeu!!!

Gostaria de saber como eu faço para imprimir etiquetas corrtamente no Qreport, quero imprimir em formulário contínuo, sem espaços nem em cima nem embaixo da página, a primeira página, imprime beleza, mas na segunda, ele dá um espaço antes da primeira etiqueta, então todas saem fora , estou utilizando página com duas colunas de 12 etiquetas cada, etiquetas de 2,4cm por 8,9cm. Utilizo Delphi 7, a impressão é tipo mala direta, com 4 linhas por etiqueta. Este erro ocorre em impressora matricial, em jato de tinta ele imprime legal, sem cabeçalhos. Ah, gostaria de saber também como faço para imprimir em linhas ao invés de colunas.

Denis Courcy, surgiram algumas dúvidas, tipo, onde eu coloco o nome do banco de dados e onde coloco o local destino, e eu tenho que chamar a function CreateProcessSimple em algum button ou somente a procedure ExecutarBackup ? desculpe a minha ingenuidade, mas se puder me dar um help, eu agradeço. valeu!!!

Valeu Micheus , muito obrigado .

O que eu percebi, é que mesmo que o programa esteja em execução, se eu for pelo Windows, eu consigo copiar o banco para outra pasta tranquilamente, sem dar erros, somente com CTRL+c e CTRL+V, então eu penso que se eu fizer um procedimento para fazer a cópia do banco para uma pasta temporária, para depois compactá-lo, poderia dar certo, alguém sabe como eu poderia fazer essa procedure de cópia de pastas do Windows. Ah, obrigado a todos que responderam.

Muito obrigado Micheus, segui o seu exemplo e deu exatamente como eu queria, o único problema é que o Tedit_margem está no Frm_Configuracoes, aí só calculava o valor da margem se eu abrir e fechar o Frm_Configuracoes antes, então eu adicionei esta linha, pode ser desta maneira ou tem outra mais prática ? procedure TFrm_Produtos.Txnumedit_aprazoExitExit(Sender: TObject); var um, dois: Double; begin Frm_Configuracoes.Atualiza; um := StrToFloat(Txnumedit_aprazo.Text); dois:= StrToFloatDef(Frm_Configuracoes.TEdit_Margem.Text,0) /100 + 1; Txnumedit_Custo.Text := FormatFloat('#0.00', um /dois); end; Muito Obrigado!!!

Olá pessoal, estou encontrando dificuldades em realizar uma divisão no Delphi 7, assim, eu tenho um Txnumedit onde coloco o valor de um produto à prazo, aí em um edit tem o valor da margem de lucro, então em um outro Txnum edit tem que aparecer o valo de custo, mais ou menos assim Eu tentei dessa maneira, é que eu sou iniciante em programação!! procedure TFrm_Produtos.Txnumedit_aprazoExit(Sender: TObject); var um, dois: String; begin um:= Txnumedit_aprazo.Text; dois:= '1,' + TEdit_Margem.Text;//Aqui coloque 1, + porque no edit eu pus 10,00, então ficaria 1,10 porcento a margem Txnumedit_Custo.Text:=(um)div (dois) ; end; //Seria mais ou menos assim, o usuário coloca o valor do produto à prazo no Txnumedit à prazo, então o sistema //calcularia pela margem que está no Tedit_margem e joga o valor do custo no Txnumedit_custo //por que digamos que eu coloque no valor à prazo R$ 5,50 e na margem 10% então 5,50 Dividido por 1,10 //dá exatamente o valor de custo R$ 5,00