Progr'amador

Olá fernando_vip, fiz um pequeno tutorial - Criando Um Relatório no QuickReport, ve ae se ele pode te ajudar. http://scriptbrasil.com.br/forum/index.php...30entry266338 Abs. Progr'amador

Como você ta fazendo esse relatório? você ta usando QRBand rbDetail pra sair esses valores? Abs. Progr'amador.

Olá Carla, tenta assim: Abs. Progr'amador.

Criando Um Relatório no QuickReport Passo a Passo Olá Galera estou escrevendo este pequeno tutorial, pra quem quer começar a aprender e entender o QuickReport, Facil e Rápido!!! Vamos usar basicamente duas tabelas pincipais do DBDEMOS (ORDERS e ITEMS) e outras relacionadas (CUSTORMER, EMPLOYEE, PARTS ). Abra o Delphi, adicione dois(2) Forms (Form1 e Form2). 1º Passo: No Form2 adicione: TQuickRep (QuickRep1);TQRBand - opção BandType = rbTitle (QRBand1); TQRGroup (QRGroup1)e outro TQRBand - opção BandType = rbDetail (QRBand2).2º Passo: Adicione Duas TQuery's (vamos chamar de QryOrders e QryItems) e na opção DataBaseName escolha DBDEMOS e adicione um DataSource (DsOrders) na opção. DataSet coloque a QryOrders No QuickRep1 na opção DataSet coloque a QryOrders. - Na QryOrders: No Params: no parametro OrderNo na opção Data Type escolha a opção Integer; - Na QryItems: No Params: faça igual a qryOrders; Na Opção DataSource coloque o DsOrders. 3º Passo: - Adcicione Sete (7) QRDBText dentro do QRBand - rbTitle, na opção DataSet coloque QryOrders, e na opção DataFields coloque em cada QRDBText um campo da tabela. - No QRGroup adicione cinco (5) QRLabel's um para cada campo da QryITEMS, coloque um do lado do outro, e nos Catipions coloque: Part, Description, Qty, ListPrice e Total, respectivamente. - Agora no QRBand rbDetail adicione cinco QRDBText, um para cada campo da QryITEMS, na opção DataSet coloque QryItems e no DataField os respectivos campos e organize de acordo com os QRLabels (observe os espaços necessários entre cada Campo, OK!). 4º Agora no Form1: Adicione a Unit2 no uses (Unit2 refere-se ao Form2 onde foi criado o relatorio): Adicone tambem: um TEdit (Edit1) e um TButton (Button1) no onClick do Button coloque: Pra testar você pode usar alguns valores como 1003...1104... ect... Bom é só isso! o restante vai de sua criatividade, explore os recursos do quickreport, coloque linhas, grades essas coisas. by Progr'amador.

É verdade! eu sempre passo por aki, mas num vou avaliar uma coisa que eu num sei nem por onde começa! Abs. Progr'amador

Desculpe raphael_car, mas onde você viu ele dizer que ta querendo comprar!? acho que ele ta querendo uma dica de como usar o "negoço"! Abs. Progr'amador.

Como você ta querendo esse relatório? qual a estrutura? você já tentou usar o QRBand (rbTitle e rbDetail) em vez de usar GroupReader e QRSubDetail? Abs. Progr'amador.

Num precisa fazer nada, basta o focus está no Edit que quando você passar o Leitor o código vai aparecer nesse Edit. Abs. Progr'amador.

É isso ae OSJunior! movendo...

beleza! mas acho que num tem nada haver com delphi, acho que na seção de ASP fica melhor...

Olá s3c, o link não abriu aki! Progr'amador.

Só é usar uma select igual a select do DBGrid no QuickReport Abs. Progr'amador.

Olá! faz assim: Abs. Progr'amador.

Como assim: você já quer entrar na tela com os DBEdit's limpos? se for use o Append no onShow do form, ou seja, o form sempre vai abrir em um novo registro. Abs. Progr'amador.

ae vai: obs: pra alterar o tempo de espera, altere o valor do CurrentTime, se bem que na minha opnião pro que você ta querendo esse tempo é o suficiente. Abs. Progr'amador.

Olá! uma vez eu vi um programa de enviar fax direto do computador. Pergunto: Existe algum componente pra Delphi pra enviar fax??? isso é possível? existe algo relacionado a isso? Abs. Progr'amador.

assim: Abs. Progr'amador.

você precisara de um componente TRAY, você pode encontrar <<Aqui>> já com o Tray instalado, insira um TTimer no Form, no Interval coloque 900000 (15 min) e no evento no Timer coloque assim: (Exmplo) Abs. Progr'amador.

Num sei se entendi, mas tenta isso: Abs. Progr'amador.

Pode ser assim: qryDados.Close; qryDados.SQL.Clear; qryDados.SQL.Add('UPDATE Dados SET Nome = '+#39+edtNome2.Text+#39+', Niver = '+#39+edtNiver2.Text+#39+' where Cod_2 Like '+#39+'%'+edtCod.Text+'%'+#39); qryDados.ExecSql; Abs. Progr'amador.

Olá, Posta ae o código que você está usando? isso só acontece no XP? Abs. Progr'amador.

Ops!!! Foi mal, tira esse # deixe assim: Table1.Filter := 'NOME = '+''''+Edit1.Text+'*'+''''; Table1.Filtered := True; ou assim: Table1.Filter := 'NOME = '+#39+Edit1.Text+'*'+#39; Table1.Filtered := True; Abs. Progr'amador.

Isso mesmo, no canto direito superior desta pagina tem um combo >> Escolha um Portal..., que tem esse link. Abs. Progr'amador.

você já tentou usar variavel do tipo Double ou Real, faça um teste. ou Abs. Progr'amador.

Use esse código no evento do Timer: FlashWindow(Handle, true); FlashWindow(Application.Handle, true); Abs. Progr'amador.