danielrgoes

Bom dia pessoal tenho um DbGrid no meu sistema e gostaria de deixar o que esta escrito em uma coluna com a cor dirferente ou seja existem 8 colunas mais somente uma delas gostaria de mudar a cor da fonte como faço isso abraços

Bom dia pessoal estou com um problema quando eu salvo um campo no banco ele é grande tem varios caracteres (150) e quando eu coloco no relatorio um QRDBText ligado nesse campo ele exibe todos os caracteres e atropela todos os outros campos gostaria de saber se tem como eu limitar somente o que vai paracer no QRDBText já tentei colocar macara ####### mais não deu muito obrigado

usei a sua dica mais usei assim data := modulo.sql_rt.Fields[0].Value; pois tenho certeza que sempre vai retornar um valor mais sua dica me salvou valeu

Bom dia pessoal estou executando uma query no meu banco FireBird modulo.cds_rt.close; modulo.sql_rt.sql.clear; modulo.sql_rt.sql.Add('SELECT Cast(EXTRACT(YEAR FROM current_date) AS VARCHAR(4)) FROM RDB$DATABASE '); modulo.sql_rt.ExecSQL(); ela me retorna o ano corrente mais eu quero jogar esse ano que retornou em uma varialvel como eu faço? abraços

Boa Tarde pessoal estou fazendo gráficos com lines e fast line utilizando o componente Chart nativo do delphi 2007 mais esta acontecendo um problema quando eu faç as curvar ou retas nas diagonais ela fica serrilhada alguém tem alguma ideia pra me ajudar valeu abraçossss

e ai Douglas beleza cara eu to precisando disso que você conseguiu faze saber quem esta usando meu programa na rede se puder me dizer como faz agradeço abraços

sim mais como eu faço pra selecionar a data de um determinado registyro da tabela por exemplo da tabela TESTE eu quero retornar os dias da coluna data_inclusao

Boa tarde pessoal eu sei que esse forum é de delphi mais é que eu to tentando fazer isso pra retornar uma query para o delphi estou tentando retornar o dia de uma data a data eu retorno assim select data_inclusao from teste where cod_teste = 4 ai me retorna 11.02.2008 por exemplo eu quero retornat o 11 apenas como eu faço

Boa tarde pessoal estou tentando retornar o dia de uma data no progress 10 a data eu retorno assim select data_inclusao from teste where cod_teste = 4 ai me retorna 11.02.2008 por exemplo eu quero retornat o 11 apenas como eu faço

Bom dia pessoal Gostaria de saber se alguém sabe enviar email automatico tipo ele faz uma rotina e no final me envia um email avisando abraços

Bom Dia pessoal Gostaria de saber como enviar email automatico via html ou seja ele faz uma determinada rotina depois envia um email avisando para determinada pessoa muito obrigado

Bom Dia pessoal Não sei se vocês acompanham a minha luta implacavel com um componente para fazer gráficos no delphi 2007 eu já postei uns 3 topicos sobre isso mais não consigo achar nenhum componete FREE que faça gráficos com curvas e que deixei colocar varios eixos Y é uma coisa que eu procuro muito e posto mais uma vez para ver se acho uma boa alma que tenha um componente desses hehehhehe pois estou precisando muito e alguém deve ter...... eu achei o componente RT-Tools mais ele é pago e a versao demo não funciona sem ide então não da para utilizar fora dda minha maquina se alguém tirver um jeito de usar esse programa nem que seja trial já ajudaria muito agradeço muito quem puder me ajudar abraços

é realmente tem arquivos que não copia mais é meio caminho andado o componente he aquele do combo com a imagem muito obrigado pela atençao valeu mesmo

Bom Dia pessoal Eu sou programador em Delphi e Java mais estou com um problema aki na empresa aonde eu trabalho a muito tempo um desenvolvedor fez um sistema aki para a empresa a muito tempo mesmo e tem algumas maquinas que ele não funciona quando eu clico no executar ele da o seguinte erro Erro " O arquivo VBA do Jet... não foi possível inicializar quando chamado " alguém pode me ajudar o que poderia ser isso abraçossssss

Douglas primeiro de td MUito obrigado mesmo pela atenção cara valeu mesmo por ter pertido tempo ai pra ajudar seguinte to testando ela aki e ela encontyra os arquivos certinho mais na hora de copiar tem uns que não copia saberia me dizer porque? a e outra uso o delphi 2007 e você coloco um componete que eu não tenho eu já dei um jeitinho coloquei no codigo o caminho mais eu gostei do componente poderia me dizer se tem pra delphi 2007 muito obrigado pela atençao abraçossss

Boa tarde pessoal eu queria fazer um programa de BackUp mais ele tem que entrar no C:\ da pessoa e copiar todos os xls por exemplo mais do c inteiro das pastas e sub pastas alguém tem alguma ideia? abraçossss

Cara muito obrigado mesmo pela atençao eu testei também a sua ideia e funcionou certinho muito bom ate melho que o meu pois o meu é tipo um gambi não é? valeu mesmo abraçossssss

pessoal resolvi ai vai a soluçao sData := FormatDateTime('dd''.''mm''.''yyyy',now); sql := 'SELECT * FROM FUNCIONARIO WHERE DT_ANIVERSARIO = '+Chr(39)+ sData +Chr(39); modulo.cds_funcionario.close; modulo.sql_funcionario.SQL.clear; modulo.sql_funcionario.SQL.Add(sql); modulo.cds_funcionario.Open(); o firebird só aceita . em vez de barra e a data tem que ser entre aspas simples por isso o Chr(39) valeu

Bom Dia pessoal gostaria de saber como eu faço para comparar a data atual com o banco de dados FireBird para ver se é aniversario hj to tentando fazer o cod dData := date; // pega a data modulo.cds_funcionario.close; modulo.sql_funcionario.SQL.clear; modulo.sql_funcionario.SQL.Add('SELECT * FROM FUNCIONARIO '); modulo.sql_funcionario.SQL.Add('WHERE DT_ANIVERSARIO = '+ DateToStr(dData) ); modulo.cds_funcionario.Open(); mais esta dando erro alguém pode me ajudar

Willian A dica parece ser muito boa mais não entendi muito bem poderia me dar mais explicaçoes pois o que resolveu o problema deu alguns problemas em outras coisas abraços

Bom dia Churc antes de mais nada muito obrigado pela ajuda você deu uma força e tanto estou aprendendo mais de thread para inplementar pois tem varias coisas aki que precisam disso qualquer coisa eu corro aki atrz de você hahahhahah muito obrigado mais uma vez abraços

Churc primeiro de td muito obrigado mesmo pela ajuda você da dando uma força imensa depois eu ate entendi mais nesse caso você esta colocando o delete na threand o meu problema esta na repetiçao no until porque ele repeti muitas vezes 2500 ai eu não posso mais mexer em nada que trava ve se eu entendi direito abraços

if SBDesenhos.Down = true then begin // delete tudo da tabela modulo.cds_arquivos.close; modulo.sql_arquivos.sql.clear; modulo.sql_arquivos.sql.Add('DELETE FROM ARQUIVOS '); modulo.sql_arquivos.sql.Add('WHERE TIPO = 2 '); modulo.sql_arquivos.ExecSQL(); // essa query é necessaria porque depois que faz um delete a sql não aceita um append modulo.cds_arquivos.close; modulo.sql_arquivos.sql.clear; modulo.sql_arquivos.sql.Add('SELECT * FROM ARQUIVOS '); modulo.sql_arquivos.sql.Add('WHERE TIPO = 2 '); modulo.cds_arquivos.Open(); if FindFirst(caminho+'*.pdf', faAnyFile, searchResult) = 0 then begin repeat // incrementa a barra de progresso aguarde.Frmaguarde.progresso.Position := aguarde.Frmaguarde.progresso.Position + 1; if aguarde.Frmaguarde.progresso.Position = 100 then aguarde.Frmaguarde.progresso.Position := 1; if (searchResult.Name <> '.') AND (searchResult.Name <> '..') then begin // desenhos tipo = 2 codigo := codigo + 1; modulo.CDS_arquivos.Append; modulo.cds_arquivosCOD_ARQ.Value := codigo; modulo.cds_arquivosNOME_ARQ.Value := searchResult.Name; modulo.cds_arquivosTIPO.Value := 2; modulo.cds_arquivos.post; end; until FindNext(searchResult) <> 0; FindClose(searchResult); frmaguarde.Close; ShowMessage ('Atualização efetuada com sucesso'); end; end; essa rotina faz o seguinte quando eu clico ele ve o Speed botoon que esta precionado e executa essa rotina com o caminho que eu passar ela apaga td que tem no banco depois vai no caminho que eu passei por exemplo (C:\Teste) pega o nome do arquivo e salva o nome no banco e fica no while ate acabar só que essa rotina é pesada porque tem uns 2000 arquivos e salva no banco da rede compreende e tem outros processos que eu preciso fazer isso mais se você me ajudar nessa já consigo andar com a proprias pernas depois muito obrigado pela ajuda valeu mesmo abraços

posso postar um pedaço do codigo para você me ajudar com as threads?

boa tarde pessoal estou com uma duvida eu desenvolvi um sistema que possui um rotina em um botao essa rotina é bem pesada possui varios calculos, whiles selects e grava no banco da rede quando essa rotina esta sendo executada eu não posso mexer em nada no computador que o programa trava e fica sem responder alguém tem alguma dica para melhorar isso muito obrigado