danielrgoes
-
Total de itens
295 -
Registro em
-
Última visita
Posts postados por danielrgoes
-
-
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
-
geralmente fazemos assim
variavel :=modulo.fieldbyname('NOME_DO_CAMPO').asString;
qualquer coisa posta ai.
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
-
Olá Pessoal, resurgi das cinzas.... eehehe, gostaria de uma ajudinha :wacko:
Estou tentando fazer um painel de controle na rede, para saber quem esta utilizando "(meu sistema :rolleyes: )" no entando, isso eu consigo fazer tranquilo.........
o fato, é que quando eu clicar em alguém no DBGrid que vou ter, eu queria um botão, pra que quando eu mandasse parar, essa aplicação fosse fechada lá no computador da rede que mandei que fosse fechado... :blink:
Alguma ideia?
Abraços!
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
-
no mySQL por exemplo, com a instrução:
select day(curdate())
me retorna o dia da data atual ...
pelo delphi, você pode utilizar a função:
dayof(date) ... //não se esqueça de declarar a unit DateUtils em uses ...
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
-
Que bom que ajudei em alguma coisa, eheh! qual o componente que você está se referindo?, eu testei aqui, tem arquivos que não copia mesmo, pois são arquivos do proprio windows, e não temos permissões para copiar eles, procura no forum algo como: Dar permissões em pastas e arquivos....
é isso.... eehehe!
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
-
Ae Amigao, você tá com muita, muita sorte mesmo! como hoje estou de bom humor! ehehe!, passei o fimzinho de tarde para fazer o programinha especialmente para você e para quem mais quiser aproveitar!
Ta do jeitinho que você pediu! Testa o programa ai e me fala !
http://www.4shared.com/file/108617837/3dc5...lizaeCopia.html
Olha a Imagem dele:
Agora cá entre nós, isso é mais do que uma ajuda eim?, eheheh!
Abraços!!!! :P
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
-
Putz, tava desde de cedo me matando para descobrir isso pra você, eu consegui, se precisar tá aqui:
modulo.cds_funcionario.close;
modulo.sql_funcionario.SQL.clear;
modulo.sql_funcionario.SQL.Add('SELECT CODIGO, USUARIO, SENHA, TIPO, DT_ANIVERSARIO, extract(day from dt_aniversario) as dia, extract(month from dt_aniversario) as mes '
+ 'FROM '
+ 'FUNCIONARIO '
+ 'WHERE '
+ 'extract(day from dt_aniversario) = :c_dia '
+ 'and extract(month from dt_aniversario) = :c_mes');
modulo.cds_funcionario.FetchParams;
modulo.cds_funcionario.Params.ParamByName('c_dia').AsInteger := strtoint(copy(datetostr(date),1,2));
modulo.cds_funcionario.Params.ParamByName('c_mes').AsInteger := strtoint(copy(datetostr(date),4,2));
modulo.cds_funcionario.Open;
Obs: ali no SELECT, você tem que especificar todos os seus fields, eu coloquei * mas não funcionou, porcausa do extract....
se precisar usa ae, ehehe!
Abraços!
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
-
Amigo estive dando uma olhada já tive esta duvida o que resolvel para o meu sistema foi espalhar este codigo pelas linhas de codigos
Application.ProcessMessages;
tipo :
while not query1.eof do begin
//funcoes..
query1.next;
Application.ProcessMessages;
end;
isto deve resolver seu problema.
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
-
Opa
um exemplo
type TClearDB = class(TThread) private protected procedure Execute; override; procedure ClearDB; end; ... procedure TClearDB.ClearDB; begin with NomedoForm do begin 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(); end; end; end; procedure TClearDB.Execute; begin FreeOnTerminate := True; //limpa da memória ao finalizar Synchronize(ClearDB); //faz a limpeza do banco de dados sem travar o programa end; procedure TForm1.Button1Click.... var ClearDB: TClearDB; begin //o False indica que a thread sera iniciada assim q ela for criada... //se colocar True, depois só chamar ClearDB.Resume pra iniciá-la ClearDB := TClearDB.Create(False); end;
De uma olhada neste tópico também...
http://scriptbrasil.com.br/forum/index.php?showtopic=136897
entendeu?
abrxxx
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
-
claro brother pode sim :)
abrx
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
-
Opa
A resposta para seus problemas se chama Thread
Da uma olhada
http://greatis.com/delphicb/tips/lib/appli...ynchthread.html
http://scriptbrasil.com.br/forum/index.php?showtopic=136897
abrxxx
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
DBGrid com coluna de outra cor
em Delphi, Kylix
Postado
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