Thalles63

interessante Jhonas eu acabei que resolvi de outra forma aqui mas é muito boa idéia também vlw :D

Bom galera.. é o seguinte eu queria que meu datetimepicker só em deixasse escolher sabados no seu calendario sera que tem como fazer isso? vlw

capaz... não há problema ^^ bom q ajudou :P

eu tambem uso a algum tempo tenho a versao pro e tem esse numero tambem ou seja não representa nenhuma limitação até onde sei

é que o meu problema não era exatamente com as operações e sim que não aparecia no relatorio nada :/ coloquei de todas as maneiras possiveis e não apareceu daí eu desisti e fiz da forma que mostrei mais acima apesar de ser meio gambiarra, funciona perfeitamente agora estou sofrendo com alguns gráficos nos relatorios ^^ se eu não conseguir posto aqui minha duvida

valeu pela resposta victor eu tava tentando usar um qrexpr mas tentei bastante sem sucesso então segui parcialmente sua dica porem fiz assim procedure TFRacaoDetalhada.SummaryBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin qrlabel16.Caption := floattostr(soma); end; procedure TFRacaoDetalhada.QRBand2BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin soma:= soma + fdados.CDSLeiteMEDIA.AsFloat; end; vlw pela dica

dae galera seguinte o meu relatorio em si já está todo feito porém eu preciso acrescentar um detalhe no mesmo quero que ele some todas as linhas de uma coluna e depois divida pelo numero de linhas e mais uma coisa eu corro o risco do meu relatorio dar mais de uma folha então.. eu queria que aparecesse somente na ultima folha isso abaixo dos registros ou no fim da folha.. não influencia porem não estou conseguindo fazer isso alguém saberia como me explicar? algo nesse estilo aqui

é bem simples velho só ir em Project Options Aba application clicar no botao load icon e escolher ele espero que ajude abraço

vlw douglas vou testar aqui é um programa la pro sitio que fazem tudo no excel o controle leiteiro, de reprodução, sanidade , etc enfim.. no excel da muuuuito trabalho o programinha vai ajudar eles la ^^

dae galera apos uns dias sem duvidas surgiu mais uma é o seguinte tenho uma tabela "animais" onde eles são divididos por situação : "em lactação" e "seca" quando eu fizer uma inserção na tabela "secagens" queria que automaticamente o animal que eu selecionar seja alterado de "em lactação" para "seca" sei que da pra fazer por trigger porem não sei exatamente como fazer alguém saberia? não precisa ser necessariamente por trigger tambem se for pelo delphi não me importo vlws

eu uso firebird mas tudo bem eu já mudei o sistema não vou fazer desse jeito porque é muito suscetível a erros fiz de outra forma aqui que não tem erro mesmo assim vlw pela intenção

procedure TForm.SpeedButton1Click(Sender: TObject); var idx, //contador :integer begin fdados.tabelareceptora.append; //contador := 0; with DBGrid1.DataSource do if DBGrid1.SelectedRows.Count > 0 then for Idx :=0 to DBGrid1.SelectedRows.Count-1 do begin fdados.tabelaexportadora.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[Idx])); fdados.tabelareceptora.FieldByName('NOME').Value := fdados.tabelaexportadora.FieldByName('NOME').Value; fdados.tabelareceptora.FieldByName('PROFISSAO').Value := fdados.tabelaexportadora.FieldByName('PROFISSAO').Value; fdados.tabelareceptora.FieldByName('SALARIO').Value := fdados.tabelaexportadora.FieldByName('SALARIO').Value; //contador := contador+1; Fdados.tabelareceptora.Append; end; //onde_quer_o_texto.text := 'Foram arquivados ' + contador + ' registros.'; Fdados.tabelareceptora.ApplyUpdates(0); end; só adicionar as linhas que eu coloquei // na frente obviamente retirando as barras ou simplesmente fdados.tabelareceptora.first; while not fdados.tabelareceptora.eof do begin contador := contador +1; fdados.tabelareceptora.next; end; onde_quer_o_texto.text := 'Foram arquivados ' + contador + ' registros.';

bom.. eu fiz de outra maneira if column.Field.AsString = '0' then begin DBGrid1.Canvas.Brush.Color:= clWhite; DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; coloque isso no evento onDrawColumnCell

bom.. eu fiz algo dessse tipo aqui esses dias procedure TForm.SpeedButton1Click(Sender: TObject); var idx :integer begin fdados.tabelareceptora.append; with DBGrid1.DataSource do if DBGrid1.SelectedRows.Count > 0 then for Idx :=0 to DBGrid1.SelectedRows.Count-1 do begin fdados.tabelaexportadora.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[Idx])); fdados.tabelareceptora.FieldByName('NOME').Value := fdados.tabelaexportadora.FieldByName('NOME').Value; fdados.tabelareceptora.FieldByName('PROFISSAO').Value := fdados.tabelaexportadora.FieldByName('PROFISSAO').Value; fdados.tabelareceptora.FieldByName('SALARIO').Value := fdados.tabelaexportadora.FieldByName('SALARIO').Value; Fdados.tabelareceptora.Append; end; Fdados.tabelareceptora.ApplyUpdates(0); end; não esqueça que a tabela que receberá os dados deve conter campos com a mesma estrutura da que esta enviando os dados e não esqueça de habilitar as opçoes no dgbrid : dgMultiSelect, dgRowSelect não pude testar se esta funcionando mas o meu aqui trabalha de forma semelhante e funciona

adicione no metodo oncreate do seu form dbgrid1.Columns.Items[NUMERO DA COLUNA].Font.Color := COR; //por exemplo dbgrid1.Columns.Items[0].Font.Color := clRed;