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;

Dae galera eu aqui com duvidas denovo seguinte eu tenho 3 clientdatasets animais, auxiliar e vacinas a animais esta ligada com um dbgrid neste dbgrid seleciono alguns animais e passo pro cds auxiliar que lista em um outro dbgrid até aí tudo bem não sei se é a melhor maneira de fazer isso mas é como esta funcionando aqui vale lembrar que não sou programador tambem só faendo o programa la pro sitio pra ajudar la ^^ então se tiver outro geito melhor, por favor me digam ^^ continuando pra cada registro na grid auxiliar eu salvo uma vacina [todas iguais obviamente] até aí sem problemas só que se uma pessoa selecionar um animal que não quer eu quero fazer um botao remover dessa grid auxiliar nessa parte estou tendo alguns problemas acredito que seja porque eu não estou dando applyupdates nas tabelas quando tiro de uma e passo pra outra e tentando deletar porem eu não quero que salve nada na auxiliar mesmo, nem delete nada dos animais só ali na hora pra não selecionar o emsmo animal duas vezes e eles irem sumindo da listinha teria como fazer? não sei se fui muito claro porque não é uma situação muito comum, tentei explicar o melhor possivel

então daniel acabei de fazer um teste aqui e descobri uma coisa ele só não pega a exceçao de chave primária :/ eu adcionei um botao pra testar la e daí dou um clique e nada acontece dou mais um clique nele ele aparece a mensagem dizendo que não pode fazer porque não esta em modo de inserção (porque o post de antes executou :/) será que é porque tenho uma chave primária "composta"? ela compõe 2 campos da minha tabela ------------------------------- EDIT bom.. já resolvi minha duvida coloquei um reconcile error form funcionou perfeitamente pro meu caso pois estou fazendo uma inserçao em massa neste form e ele esta fazendo exatamente o q eu quero se já existe ele aparece a tela com os dados do animal duplicado e as opçoes do que afzer se é pra pular, corrigir e etc e continua a inserção se o proximo da lista não for duplicado perfeito podem dar como resolvido o tópico

pois é.. eu sei disso o problema é o seguinte não sei se está certo mas eu li por aí que quando se usa um clientdataset ele não gera uma exceçao no post e sim no applyupdates por isso eu já descartei a opçao de colocar algo no evento onposterror do cds já tentei 48954312491843128 formas diferentes com todos os tipos de exceçoes e nada acontece aqui sei que em tempo de programa não vai mostrar nada tambem mas nem indo la no executavel e rodando por la resolveu... segue o codigo try fdados.clientdataset.Post; fdados.clientdataset.ApplyUpdates(0); except on e:edatabaseerror do showmessage('Data já cadastrada no sistema.'); end;

como posso tratar um erro de violaçao de chave primaria em um clientdataset? já tentei varias formas e nenhuma deu resultado aqui já tentei com try except, no onposterror do clientdataset etc... alguma sugestao?

juro q se funcionar paro de encomodar Ok ... vou colocar do jeito que voce precisa OBS: Deixe a propriedade dgRowSelect como true ( voce não vai ver o foco na celula apenas o triangulo no canto esquerdo ) abraço Funcionoooouuu \o/\o/\o/\o/\o/\o/\o/\o/\o/\o/\o/\o/ bom Jhonas tu vai querer me bater mas a tua ultima soluçao tava realmente funcionando não sei porque mas antes não havia funcionado agora coloquei denovo e bingo... funcionou \o/ espero que não seja porque la eu usava XP e aqui vista mas acho que nada a ver vlw mesmo pela atençao e paciencia abraço, segue o codigo caso mais alguém queira ver coloquei mais um if ali pra não pintar de branco as que já foram selecionadas tambem agora sim funcionando 100% procedure TFSelecionaAnimais.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (dbgrid1.SelectedRows.CurrentRowSelected) then //nada else if (gdSelected in state) then begin DBGrid1.Canvas.Brush.Color:= clWhite; DBGrid1.Canvas.Font.Color:= clBlack; end; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; vlw

quase funcionou eahuiaeoh mas ainda ta pintando só uma coluna :/ só pinta a que eu clico se a propriedade dgRowSelect diver desativada se tiver ativada pinta só a primeira coluna juro q se funcionar paro de encomodar

tem razão mas como não desisto fácil voltei hehe seguinte é sobre aquela bendita linha q segue o grid quando se navega por ele na barra vertical se não posso tirá-la.. quero ao menos deixar branca achei um modo fiz algumas alterações e consegui parcialmente porem deixa só a primeira coluna branca :/ segue o codigo pra ver se me sujerem algo o q poderia ser? :/

sim essa era minha idéia porém queria que passasse pra outro dbgrid no final quando tiver selecionado todos os registros que quiser porem essa linha ta me atrapalhando :S mas acho que no fim das contas, vou deixar ela mesmo o ruim é só porque ela parece que é um registro selecionado :/ no string grid acabou que não pega ctrl, somente o shift e vai dar muito trabalho, pra passar e tal então acho que vo deixa selecionando só pelo ctrl no dbgrid e pronto a unica coisa que vou afzer mesmo é retirar a funçao do scroll do mouse porque atrapalha mesmo mas isso eu já fiz

é uma pena mesmo acho que vou mudar para um string grid então e ver se resolve meu caso já que é só para mostrar ao usuário o que ele está selecionando e depois em outra o que foi selecionado com dbgrid ficava bem mais pratica a gravaçao no bd... mas vamos ver no que da com um string list então vlw pela resposta

bom.. só pra atualizar já desabilitei o scroll, já fiz PARCIALMENTE o shift funcionar ainda ta meio bugado se alguém tiver uma soluçao melhorzinha eu aceito porem ainda tenho o problema de quando eu desço pela barra vertical o dbgrid vem uma linha me acompanhando eu ano quero essa linha me acompanhando ou que pelo menos não fique selecionada alguém saberia o q fazer?