Jump to content
Fórum Script Brasil

Thalles63

Membros
  • Content Count

    26
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Thalles63

  • Birthday 08/12/1989

Contatos

Perfil

  • Gender
    Male
  1. interessante Jhonas eu acabei que resolvi de outra forma aqui mas é muito boa idéia também vlw :D
  2. Bom galera.. é o seguinte eu queria que meu datetimepicker só em deixasse escolher sabados no seu calendario sera que tem como fazer isso? vlw
  3. capaz... não há problema ^^ bom q ajudou :P
  4. 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
  5. é 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
  6. 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
  7. 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
  8. é bem simples velho só ir em Project Options Aba application clicar no botao load icon e escolher ele espero que ajude abraço
  9. 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 ^^
  10. 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
  11. 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
  12. 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;
  13. 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
  14. 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(
  15. 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;
×
×
  • Create New...