Jhonas

Se voce quiser incluir todos os clubes e todos escalões basta fazer assim Select * from Tabela where ( data >= :DataIni and Data <= :DataFim ) Order by NomeClube, NomeEscalão ou ainda Select * from Tabela Where NomeClube <> ' ' and NomeEscalão <> ' ' and ( data >= :DataIni and Data <= :DataFim ) Order by NomeClube, NomeEscalão Neste caso todos os registros dentro da faixa de datas seriam ordenados por NomeClube e NomeEscalão abraço

Antonio.. voce terá que aprender, pois desta maneira será mais falcil fazer o filtro que está querendo, pois isso vai o conceito básico sobre instrução SQL. Então de acordo com o que foi explicado, voce deve tentar montar a sua instrução: ( Exemplo do que quero filtrar da tabela e imprimir. NomeClube , NomeEscalão , AtletasMédia do escalão no més , AtletasMédia Geral do clube no més .) exemplo: Select * from Tabela Where NomeClube = 'Olhanense' and NomeEscalão = 'Veteranos' and ( data >= :DataIni and Data <= :DataFim ) Neste caso o seu filtro procurará todos os registros que tenham o nome do clube igual 'Olhanense' e o nome escalão igual a 'Veteranos' e que esses registros estejam dentro de uma faixa de datas exemplo: 01/12/2008 a 31/12/2008 entretanto as datas serão passadas via parametros (:DataIni e :Datafim) ou poderiam tambem ser digitadas na própria instrução SQL OBS: Se voce não está familiarizado com este tipo de procedimento, sugiro que leia mais sobre isso... e faça tambem uma pesquisa no forum com palavras chave ex: SQL, Select, filtros...etc abraço

Neste endereço ( (http://192.168.48.22/snap.jpg)...) não consigo ver nada... me passa um endereço ( internet ) que tenha imagem em tempo real que vou fazer uns testes e depois retorno. abraço

Se voce reparou é o seu proprio comando que está fazendo isto //coloquei um codigo no Afterprint no band no quick report procedure TQRNotaFiscal.QRBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X); end; Não coloque o código no AfterPrint da banda e sim do quickreport procedure TQRNotaFiscal.QuickRepAfterPreview(Sender: TObject); begin X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X); end; abraço

Antonio ... use a apostila de SQL Básico para aprender filtrar os resultados da sua tabela http://www.delphix.org/?q=downloads/apostilas abraço

Tenho sistemas funcionando com componentes da paleta bde e dbexpress ... ambos funcionam perfeitamente e a única vez que tive probemas com perdas de dados, foi quando houve queda de energia elétrica. Entretanto pedi ao cliente que comprasse um nobreak, desde então nunca mais o problema voltou. OBS: procure sempre usar este jogo de componentes object Query1: TQuery object ClientDataSet1: TClientDataSet object DataSetProvider1: TDataSetProvider object DataSource1: TDataSource ou object IBQuery1: TIBQuery object ClientDataSet1: TClientDataSet object DataSetProvider1: TDataSetProvider object DataSource1: TDataSource abraço

Se este componente for um tipo Memo.. veja este exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=473652 abraço

Veja nestes endereços http://www.baixaja.com.br/downloads/Window...abber_2527.html http://www.ksourcerer.org/pt/13508/details...oo5j7GoHo0t2DlA http://scriptbrasil.com.br/forum/index.php...st&p=500632 http://scriptbrasil.com.br/forum/index.php...st&p=467535 http://delphi.about.com/od/graphics/l/aa030299.htm http://forum.wmonline.com.br/index.php?sho...st&p=142318 abraço

Voce encontra bem em cima do seu post .... rs OBS: voce tem dois caminhos a seguir, montar o seu preview usando esta unit como exemplo, ou se souber usar os recursos do delphi, voce pode trocar o preview do delphi, por este, alterado. abraço

Erro : Classe TThinTrackBar não encontrada. Ignora o erro e continua ? Nota: Ignorando o erro pode causar perda do componente ou os valores das propriedades serão perdidas. OBS: Ou o componente não foi instalado ou arquivo .dcu não está dentro do diretório Lib do delphi. Verifique. abraço

Leia o post http://scriptbrasil.com.br/forum/index.php...st&p=520169 Voce teria que mexer neste programa { ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: QuickReport 3.0 for Delphi and C++Builder :: :: :: :: QRPREV.PAS - QUICKREPORT STANDARD PREVIEW FORM :: :: :: :: Copyright (c) 1998 QuSoft AS :: :: All Rights Reserved :: :: :: :: web: http://www.qusoft.no :: :: :: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: } {$I QRDEFS.INC} unit QRPrev; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, QRPrntr, QR3const, ComCtrls, ToolWin, Menus {$ifdef ver110}, ImgList{$endif}; type TQRStandardPreview = class(TForm) StatusBar: TStatusBar; ToolBar1: TToolBar; ZoomFit: TToolButton; Zoom100: TToolButton; ZoomToWidth: TToolButton; Separator1: TToolButton; FirstPage: TToolButton; PreviousPage: TToolButton; ToolButton2: TToolButton; LastPage: TToolButton; Separator2: TToolButton; PrintSetup: TToolButton; Print: TToolButton; Separator3: TToolButton; SaveReport: TToolButton; LoadReport: TToolButton; Separator4: TToolButton; Images: TImageList; ToolButton1: TToolButton; ExitButton: TSpeedButton; QRPreview: TQRPreview; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ZoomToFitClick(Sender: TObject); procedure ZoomTo100Click(Sender: TObject); procedure ZoomToWidthClick(Sender: TObject); procedure FirstPageClick(Sender: TObject); procedure PrevPageClick(Sender: TObject); procedure NextPageClick(Sender: TObject); procedure LastPageClick(Sender: TObject); procedure PrintClick(Sender: TObject); procedure ExitClick(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure SaveClick(Sender: TObject); procedure PrintSetupClick(Sender: TObject); procedure LoadClick(Sender: TObject); procedure QRPreviewPageAvailable(Sender: TObject; PageNum: Integer); procedure QRPreviewProgressUpdate(Sender: TObject; Progress: Integer); procedure FormCreate(Sender: TObject); private FQRPrinter : TQRPrinter; Gauge : TProgressBar; LastProgress : integer; public constructor CreatePreview(AOwner : TComponent; aQRPrinter : TQRPrinter); virtual; procedure Show; procedure UpdateInfo; property QRPrinter : TQRPrinter read FQRPrinter write FQRPrinter; end; implementation uses QuickRpt; {$R *.DFM} constructor TQRStandardPreview.CreatePreview(AOwner : TComponent; aQRPrinter : TQRPrinter); begin inherited Create(AOwner); QRPrinter := aQRPrinter; WindowState := wsMaximized; QRPreview.QRPrinter := aQRPrinter; if (QRPrinter <> nil) and (QRPrinter.Title <> '') then Caption := QRPrinter.Title; Gauge := TProgressBar.Create(Self); // Gauge.Parent := self;// Gauge.Top := 2; Gauge.Left := 2; Gauge.Height := 10;// Gauge.Width := 100; LastProgress := 0; ZoomToWidth.Down := true; if qrprinter.status = mpFinished then Print.Enabled := true; end; procedure TQRStandardPreview.FormClose(Sender: TObject; var Action: TCloseAction); begin QRPrinter.ClosePreview(Self); Action := caFree; end; procedure TQRStandardPreview.UpdateInfo; begin StatusBar.Panels[1].Text := SqrPage + ' ' + IntToStr(QRPreview.PageNumber) + ' ' + SqrOf + ' ' + IntToStr(QRPreview.QRPrinter.PageCount); end; procedure TQRStandardPreview.ZoomToFitClick(Sender: TObject); begin Application.ProcessMessages; QRPreview.ZoomToFit; end; procedure TQRStandardPreview.ZoomTo100Click(Sender: TObject); begin Application.ProcessMessages; QRPreview.Zoom := 100; end; procedure TQRStandardPreview.ZoomToWidthClick(Sender: TObject); begin Application.ProcessMessages; QRPreview.ZoomToWidth; end; procedure TQRStandardPreview.FirstPageClick(Sender: TObject); begin QRPreview.PageNumber := 1; UpdateInfo; end; procedure TQRStandardPreview.PrevPageClick(Sender: TObject); begin QRPreview.PageNumber := QRPreview.PageNumber - 1; UpdateInfo; end; procedure TQRStandardPreview.NextPageClick(Sender: TObject); begin QRPreview.PageNumber := QRPreview.PageNumber + 1; UpdateInfo; end; procedure TQRStandardPreview.LastPageClick(Sender: TObject); begin QRPreview.PageNumber := QRPrinter.PageCount; UpdateInfo; end; procedure TQRStandardPreview.PrintClick(Sender: TObject); begin if QRPrinter.Master = nil then QRPrinter.Print else if TCustomQuickRep(QRPrinter.Master).QRPrinter.Status = mpFinished then QRPrinter.Print; end; procedure TQRStandardPreview.ExitClick(Sender: TObject); begin Close; end; procedure TQRStandardPreview.FormResize(Sender: TObject); begin QRPreview.UpdateZoom; end; procedure TQRStandardPreview.Show; begin { QRPreview.QRPrinter.ShowingPreview:=true;} inherited Show; UpdateInfo; end; procedure TQRStandardPreview.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_Next : if Shift = [ssCtrl] then LastPageClick(Self) else NextPageClick(Self); VK_Prior : if Shift = [ssCtrl] then FirstPageClick(Self) else PrevPageClick(Self); VK_Home : FirstPageClick(Self); VK_End : LastPageClick(Self); VK_Escape : ExitClick(self) end; end; procedure TQRStandardPreview.SaveClick(Sender: TObject); var aExportFilter : TQRExportFilter; {$ifndef win32} FileExt : string; I : integer; {$endif} begin aExportFilter := nil; with TSaveDialog.Create(Application) do try Title := SqrSaveReport; Filter := QRExportFilterLibrary.SaveDialogFilterString; DefaultExt := cQRPDefaultExt; if Execute then begin {$ifdef win32} if FilterIndex = 1 then QRPrinter.Save(Filename) else begin try aExportFilter := TQRExportFilterLibraryEntry( QRExportFilterLibrary.Filters[FilterIndex - 2]).ExportFilterClass.Create(Filename); QRPrinter.ExportToFilter(aExportFilter); finally aExportFilter.Free end end {$else} FileExt := ExtractFileExt(Filename); if copy(FileExt, 1, 1) = '.' then delete(FileExt, 1, 1); if (FileExt = '') or (FileExt = cQRPDefaultExt) then QRPrinter.Save(Filename) else begin for I := 0 to QRExportFilterLibrary.Filters.Count - 1 do begin if TQRExportFilterLibraryEntry(QRExportFilterLibrary.Filters[I]).Extension = FileExt then try aExportFilter := TQRExportFilterLibraryEntry( QRExportFilterLibrary.Filters[I]).ExportFilterClass.Create(Filename); QRPrinter.ExportToFilter(aExportFilter); finally aExportFilter.Free; end; end; end; {$endif} end; finally Free; end; end; procedure TQRStandardPreview.PrintSetupClick(Sender: TObject); begin QRPrinter.PrintSetup; end; procedure TQRStandardPreview.LoadClick(Sender: TObject); begin with TOpenDialog.Create(Application) do try Title := SqrLoadReport; Filter := SqrQRFile + ' (*.' +cQRPDefaultExt + ')|*.' + cqrpDefaultExt; if Execute then if FileExists(FileName) then begin QRPrinter.Load(Filename); QRPreview.PageNumber := 1; QRPreview.PreviewImage.PageNumber := 1; UpdateInfo; PrintSetup.Enabled := False; Print.Enabled := true; end else ShowMessage(SqrFileNotExist); finally free; end; end; procedure TQRStandardPreview.QRPreviewPageAvailable(Sender: TObject; PageNum: Integer); begin UpdateInfo; if qrprinter.status = mpFinished then begin PrintSetup.Enabled := true; Print.Enabled := true; end; end; procedure TQRStandardPreview.QRPreviewProgressUpdate(Sender: TObject; Progress: Integer); begin if Progress >= LastProgress + 5 then begin StatusBar.Panels[0].Text := IntToStr(Progress)+'%'; LastProgress := Progress; end; // Gauge.Position := Progress; if (Progress = 0) or (Progress = 100) then StatusBar.Panels[0].Text := ''; end; procedure TQRStandardPreview.FormCreate(Sender: TObject); begin {$ifdef win32} HorzScrollbar.Tracking := true; VertScrollbar.Tracking := true; {$endif} end; end. abraço

Veja estes artigos http://www.mrsoftware.com.br/user/martins/...tigos.php?num=3 http://br.geocities.com/roselitofs/artigo1.htm abraço

Eder ... o Micheus já havia lhe postado que voce teria que criar o seu proprio preview para conseguir isso http://scriptbrasil.com.br/forum/index.php...st&p=445056 Baixe os exemplos que voce consegue fazer ................................................................ Outra forma, seria voce alterar o codigo do proprio preview do delphi, nesta parte do codigo e recompilando o programa QRPREV.PAS procedure TQRStandardPreview.LoadClick(Sender: TObject); begin with TOpenDialog.Create(Application) do try Title := SqrLoadReport; Filter := SqrQRFile + ' (*.' +cQRPDefaultExt + ')|*.' + cqrpDefaultExt; if Execute then if FileExists(FileName) then begin QRPrinter.Load(Filename); QRPreview.PageNumber := 1; QRPreview.PreviewImage.PageNumber := 1; UpdateInfo; PrintSetup.Enabled := False; <<----- alterar para True Print.Enabled := true; end else ShowMessage(SqrFileNotExist); finally free; end; end; OBS: Só faça isso se tiver certeza do que está fazendo e onde está mexendo abraço

Exemplo para voce usar no seu programa http://delphi.about.com/od/fullcodeprojects/l/aa012704a.htm Download do código http://delphi.about.com/library/weekly/code/src012704.zip abraço

Eder .... o código para mexer no botão do preview não seria este.... mas voce pode mexer na procedure AbreRelatorio basta incluir o componente PrinterSetupDialog e chamá-lo antes do preview e escolher a impressora para imprimir o relatório. procedure AbreRelatorio(FileName:string); var QRPrinter: TQRPrinter; begin if FileExists(FileName) then begin QRPrinter := TQRPrinter.Create; try QRPrinter.Load(FileName); Form1.PrinterSetupDialog1.Execute; QRPrinter.Preview; repeat Application.HandleMessage; until not QRPrinter.ShowingPreview; finally QRPrinter.Free; end; end; end; abraço

Xafam ... por default ( padrão ) toda vez que voce faz um select em uma tabela e abre esta tabela, o cursor estará sempre no primeiro registro da tabela. assim sendo, quando voce clica no botão proximo, voce estará sempre abrindo a tabela com o cursor no primeiro registro, e desta maneira o comando next sempre apontará para o segundo registro, e voce nunca conseguirá ver o terceiro registro. sugestão: Tire a select do botão deixando somente os comandos de navegação exemplo: procedure TFrmMenu.BitBtn1Click(Sender: TObject); begin // Ir para o primeiro registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.First; DMSISRET.Qvoto.First; end; procedure TFrmMenu.BitBtn2Click(Sender: TObject); begin // Ir para o primeiro o proximo registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.Next; DMSISRET.Qvoto.Next; end; procedure TFrmMenu.BitBtn3Click(Sender: TObject); begin // Voltar para o primeiro o registro anterior da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.Prior; DMSISRET.Qvoto.Prior; end; procedure TFrmMenu.BitBtn4Click(Sender: TObject); begin // Ir para o ultimo registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.last; DMSISRET.Qvoto.Last; end; A select voce pode colocar no evento OnExit do Edit ou em outro lugar... o importante é não colocar os comandos de navegação de registros junto com a abertura da tabela. procedure TFrmMenu.Edit1Exit(Sender: TObject); begin // tabela TAB_FROM_VIEW18_VOTO with DMSISRET.Q_TAB_FROM_VIEW18_VOTO do begin Close; SQL.Clear; SQL.Add('select * from TAB_FROM_VIEW18 where mt_analistaalteracao = ' + FrmSenha.Edit1.Text + ' ORDER BY mt_analistaalteracao'); Open; // tabela Qvoto with DMSISRET.Qvoto do begin Close; SQL.Clear; SQL.Add('select * from dbo.tbvoto where mt_analista = ' + FrmSenha.Edit1.Text + ' ORDER BY mt_analista'); Open; end; abraço

Flavio ... levando-se em conta que o cliente recuperará o investimento no seu software a curto ou médio prazo, voce deve incluir no preço do software o valor de componentes pagos, que irão fazer parte do software. abraço

Realmente o componente para isto é pago... mas de qualquer modo veja os exemplos disponibilizados http://www.cobrebem.com/downloads/cbx.html Procure por: Exemplos Delphi (testados apenas nas versões distribuídas pelo fabricante do software) Aplicação com banco de dados de Impressão de Boletos, Envio de Boletos por Email, Geração de Arquivo de Remessa e Leitura de Arquivo de Retorno Aplicação de Impressão sem banco de dados Aprovação de Cartões de Crédito Layouts Personalizados para o Recibo do Sacado Tela de configuração de conta corrente genérica Download do componente para o windows: http://www.cobrebem.com/downloads.html Isso vai dar uma clareada nas suas idéias abraço

Se voce não entendeu o que está escrito é porque o que está escrito é um link para vários outros posts onde voce encontrará alguma coisa referente a sua dúvida... para isto basta clicar no link. abraço

Neste caso tente cada uma das opções que aparece até que voce consiga algo como te mostrei de imediato, esta seria uma solução..... na verdade a coisa não seria tão simples, porque voce teria que extrair os espaços em branco deixando apenas a parte escrita ... depois traduzir as palavras. Teria que criar pontos de pesquisa no arquivo original que depois deveria ser trocado pelo texto traduzido (mantendo a mesma formatação do arquivo) Esse é um trabalho que tomaria um bom tempo... e se voce não conhece bem a linguagem, fica dificil de resolver. abraço

Para que montar uma tela de cores se o proprio delphi já possui. abraço

Oi Eder ... faça as modificações necessárias no seu código: uses QRPrntr; procedure AbreRelatorio(FileName:string); var QRPrinter: TQRPrinter; begin if FileExists(FileName) then begin QRPrinter := TQRPrinter.Create; try QRPrinter.Load(FileName); QRPrinter.Preview; repeat Application.HandleMessage; until not QRPrinter.ShowingPreview; finally QRPrinter.Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then AbreRelatorio(OpenDialog1.FileName); end; abraço

Veja um exemplo neste tópico: http://scriptbrasil.com.br/forum/index.php...st&p=498247 Veja estes Tópicos ... faça uma pesquisa que voce achará muita coisa a respeito http://scriptbrasil.com.br/forum/index.php...ighlite=filtrar abraço

Veja estes tópicos... http://scriptbrasil.com.br/forum/index.php...e=rodar+em+rede Outros tópicos que voce pode pesquisar http://scriptbrasil.com.br/forum/index.php...p;highlite=rede abraço

Veja este Post: http://scriptbrasil.com.br/forum/index.php...st&p=490884 Outros Topicos que abragem este assunto: http://scriptbrasil.com.br/forum/index.php...enPictureDialog abraço