António44

Agora a extração deu certo,mas o TQRExpr com a propriedade Expression contendo COUNT vai somando os valores anteriores se no 1º grupo tem 10 marcações e no segundo 5 =15 onde devia ser '5' sumou e ainda,na soma de atletas faz a mesma coisa,e no QRLabel1.Caption := FormatFloat('0.00', QRExpr1.Value.dblResult/QRExpr2.Value.dblResult); o valor é 1.00...de resto alinhou tudo por clube e escalão certinho. TQRBand com BandType=rbGroupFooter (esta banda deve ser selecionada na propriedade FooterBand da banda group anteirior - NomeEscalão -> 3º) isto eu fiz como você disse, e o QRLabel1,TQRExpr estão no rbGroupFooter que poderá ser o problema agradeço sua ajuda,e desculpe a mssg.. :( Abraço.

SQL Select extract(year from data) as Ano, extract(month from data) as Mes, T.* from Tabela T where data between :DataIni and :DataFim Order by extract(Year from data), extract(Month from data), NomeClube, NomeEscalão Micheus tá dando erro em extract(year from data)Erro =Invalide Keyword Token e tb deve dar em Ano, extract(month from data) ,o campo data na Tabela é mesmo Tipo Data porque dará esse erro???

procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin if btGravar.enabled=true then begin if Dataset.State = dsBrowse then DataSet.Edit; end; end; Micheus,eu usei assim e funcionou bem agora já passo de registo no navigador e fica sempre em edição. Obrigado Abraço.

Micheus...espetacular esta sua informacão funciona ás mil maravilhas. Muito Obrigado. Agora eu estou aqui com um problemazinho,é o seguite: Tenho um DBGrid com a informação e quando seleciono uma linha e carrego o btEditar tudo bem,mas se carrego no dBNavegador para editar linha seguinte(Alterar informação) editando ou não quando vou gravar dá erro (Dataset not in edit or insert mode)... isto tem maneira de contornar ??? é que assim só posso editar um registo de cada vez gravar e editar o seguinte ,o que é bastante chato haverá maneira de ficar sempre em modo de edição até gravar,e não sai do modo edição avaçando no DBnavegador???. Agradecia uma ajuda vossa. Abraço.

Obrigado pela sua preciosa ajuda. um abraço ai Jhonas e Feliz Natal.

Eu tentei com o rbSummary,e tb não deu resultado...será preciso declarar alguma coisa na unit.????

mas isso eu fiz uso um rbGroupFooter e o Dataset está dentro do Report.... :!: variaveis internas eu não sei fazer. sou bastante basico confesso... Abraço ai pra você.

Usei assim e deu certo. Agora eu quero sumar o campo atletas e para isso uso um 'QRExpr', mas a expressão não dá certo 'SUM(Nº Atletas)' fica a expressão escrita no 'QRExpr' em lugar de dar a soma dos atletas. Abraço ai amigos.

procedure TForm1.Button1Click(Sender: TObject); begin Query1.Active := false; Query1.Params[0].AsDate := DateTimePicker1.Date; // parametro Dataini 01/02/2008 Query1.Params[1].AsDate := DateTimePicker1.Date; // parametro Datafim 31/12/2008 Query1.Prepare; Query1.Active := true; end; Usei este aqui e quando faço o click no botão não acontece nada...!nem erro dá???rsrssrrss não estou conseguindo fazer isto funcionar defeni os parametros Dataini e DataFinal na Query1 e nada...que chatice agradeço a vossa paciência amigos Se puderem safem-me lá desta....Abraço

Dá um erro no componente... ClientDataSet1....onde encontro esse componente??? eu uso o delphi3 o velhinho... abbbraço ai.

Select * from Tabela Where NomeClube <> ' ' and NomeEscalão <> ' ' and ( data >= :DataIni and Data <= :DataFim ) Order by NomeClube, NomeEscalão Eu só tenho um campo data na tabela, como usar um DateTimePicker para Dataini e DataFim. Agradecido pela sua ajuda. Abraço

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 ) O filtro está optimo assim,mas só me dá um resultado de cada vez... será possivel Onde tem'Ollhanense' esteja dirigido a todos os clubes que testiverem cadastrados...??? e para Escalões, Onde tem 'Veteranos' possa estar dirigido a todos os escalões cadastrados e assim dar todos os resultados Clube/Escalão seguidos.... eu criei uma tabela só com o nome dos clubes e queria que ao filtrar me dê a lista completa dos clubes que tiverem cadastrados e respectivos escalões...peço desculpa por ser tão basico.

No final de cada més preciso filtrar por Clube e Escalão +numero de presenças de cada escalão + soma de atletas de cada Escalão + Média de atletas de cada escalão e média geral de atletas de cada clube. 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 . Olhanense -Infantis -Nºatletas -Média por escalão-Média Geral do clube Olhanense -iniciados-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Olhanense -Juvenis-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Olhanense -juniores-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Olhanense -Seniores-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Olhanense -Veteranos-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Seguindo outro clube......... Maritimo -Veteranos-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Maritimo -Juniores-Nºatletas-Média por escalão-Média Geral do clube no més de Dezembro. Fazendo um filtro do més, faz uma contagem mas só dando 1 resultado para cada Clube / escalão e não todos os registros do Clube / escalão durante o més... problema é que eu sou novo nesta coisa da programação e não percebo nada de SQL.

Boa tarde amigos será que me podem ajudar? Fiz um programa para gestão de treinos num campo de futebol Treinam varias equipas e em varios escalões todos os dias. exemplo: Olhanense -Infantis Olhanense -iniciados Olhanense -Juvenis Olhanense -juniores Olhanense -Seniores Olhanense -Veteranos Maritimo _ ''''''' MAritimo -''''''' Fuseta _'''''' Fuseta -''''''' e por ai fora... é tudo regiatado em tabela Paradox com os seguites campos. Data,Clube,Escalão,NºAtletas,tempo de utilização. O que preciso é filtrar entre datas dos resultados desta tabela onde apareça só uma linha para cada clube e escalão. Clube ,escalão,Total Atletas ,total de registos para cada escalão e média de atletas. Exemplo:Maritimo,Iniciados,300,100 presenças,media=3 Atletas Maritimo,Juniores ,200 ,100 presenças,Média=2 Atletas Olhanense,Veteranos,100 ,10 Presenças,Média=10 Atletas será possivel filtrar estes dados e mete-los numa report para impressão.? Eu ao filtrar aparece os registos todos,isto é de todas as presenças. Meu E-mail abotinas@sapo.pt

Consegui finalmente resolver o problema...que sem a vossa ajuda ainda estava aqui a patinar. Um grande obrigado para vocês todos confesso que foi a 1ª vez que entrei num Forum para pedir ajuda,minha area é de base de dados Oracle ,e fiquei satisfeito, principalmente pela disponibilidade e boa vontade que vocês tem em ajudar. Um abraço a todos se precisarem de minha ajuda é só me mandar um Email- abotinas@sapo.pt

Pessoal amigo,tentei aqui usar este codigo mas nada,ele faz o backup para a drive de onde extraio os files para copia o resto está bom mesmo...e preciso dar um diretório especifico onde será criado o file de backup. um colega daqui do forum tb deu uma ajuda mas não tou conseguindo fazer, vai criar o arquivo sempre na drive onde estão os arquvos que puxo para fazer o backup...não sei mais o que fazer. um abraço ai pra vocês e obrigado pela disponibilidade em ajudar. Var S : string; begin //............MONTAR UM NOME DE BACKUP...................... EdBackupTitle.Text := 'Backup'+datetostr(date()); S := EdBackupTitle.Text; while Pos('/', S) > 0 do delete(s,Pos('/', S),1); EdBackupTitle.Text := s; //........................................................... if Filelistbox.items.count = 0 then begin Showmessage('Nenhum arquivo selecionado'); exit; end; if EdBackupTitle.Text = '' then SaveDialog.Execute; begin if uppercase(copy(SaveDialog.filename, 1, 1)) = 'A' then begin Showmessage('Drive A selecionado - por favor inserir um disco vazio'); BackupFile1.maxSize := 1400000; end else BackupFile1.maxSize := 0; if EdBackupTitle.Text <> '' then backupfile1.backuptitle := EdBackupTitle.text; if rgBackupmode.itemindex = 0 then backupfile1.backupmode := TBackupMode(bmAll) else backupfile1.backupmode := TBackupMode(bmIncremental); case rgCompressionLevel.itemindex of 0 : backupfile1.compressionLevel := TCompressionLevel(clFastest); 1 : backupfile1.compressionLevel := TCompressionLevel(clDefault); 2 : backupfile1.compressionLevel := TCompressionLevel(clMax); 3 : backupfile1.compressionLevel := TCompressionLevel(clNone); end; backupfile1.SaveFileID := CbSaveFileID.checked; if EdBackupTitle.Text = '' then begin if backupfile1.backup(filelistbox.items, Dir.Text) then Showmessage('Backup realizado com sucesso. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou abortou'); end else begin if backupfile1.backup(filelistbox.items, Edit1.Text + '\' + EdBackupTitle.Text) then Showmessage('Backup realizado com sucesso. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou abortou'); end; end;

Meus amigos vocês foram espetaculares na resposta me ajudaram e isso eu desde já agradeço mas cntinuo com um problema...é que eu tenho um tedit onde será digitado o directório para onde será feita a cópia,até poderá ser feita para uma drive externa...compreendem,esse directório ficará gravado num Arquivo.ini...com essa sugestão que me mandaram ai e eu testei é o seguinte se eu estiver a copiar arquivo um arquivo de C:\ ele manda o backup para C:\ se eu tiver em em D:\ ele manda o backup para D:\ e eu que ria que o backup independente de onde seja a origem dos arquivos se faça sempre para uma drive especifica como referi atras do arquivo.ini. Um abraço amigos se puderem ajudar agradeco muito.

Preciso de ajuda,sou um curioso em programação,e estou tentar modificar o Sistema de backup do Tbackup componente do delphi3 e no botão de salvar o backup eu não quero que apareça a caixa do savedialog quero dar um caminho num Tedit em que possa sempre modificar, porque vou gravar num file.ini o directório para onde será feito o backup, e será carregado do Form.Create e atomáticamente faz logo o backup vocês podem se for possivel dar-me umas luzes ai.é que assim tirando o savedialog ele manda o backup para a pasta onde está o backup.exe e já tentei várias maneiras... Agradecia a sua ajuda. (Este código é o original, está no Botão Criar backup). procedure TForm1.Button2Click(Sender: TObject); begin if Filelistbox.items.count = 0 then Showmessage('No files added') else with SaveDialog do if execute then begin if uppercase(copy(filename, 1, 1)) = 'A' then begin Showmessage('Drive A indicates a floppy drive - please a new empty disk'); BackupFile1.maxSize := 1400000; //backup to floppy end else BackupFile1.maxSize := 0; backupfile1.backuptitle := EdBackupTitle.text; backupfile1.backupmode := TBackupMode(rgBackupmode.itemindex); backupfile1.compressionLevel := TCompressionLevel(rgCompressionLevel.itemindex); backupfile1.SaveFileID := CbSaveFileID.checked; if backupfile1.backup(filelistbox.items, filename) then Showmessage('Backup sucessful. Compression rate = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup failed or aborted'); end; end;