Ir para conteúdo
Fórum Script Brasil

Nino Marques

Membros
  • Total de itens

    42
  • Registro em

  • Última visita

Tudo que Nino Marques postou

  1. Douglas_Soares a ideia q você deu é boa, mas dá forma q eu estou fazendo está fazendo exatamente oque eu quero, se: ao invés de colocar uma variavel eu der um valor já fixo: exemplo datainicial := strtodate(hoje2); datainicial := strtodate('11/08/2009'); intervalo := strtoint(diash1); >>>>> intervalo := strtoint('10'); Então assim... criei dois Edit's um que você registra o dia de hojee....e outro q registra quantos dias o usuario quer para ver o aviso!! Queria que o que o usuario escrevesse no edit fosse registrado em datainicial e intervalo....Mas da forma q fiz não deu certo.. Encima disso alguma sugestão?
  2. Estou fazendo um aviso q vai ser mostrado a cada X dias... o dia de hoje e o tempo para mostrar a mensagem eu quero q seja definida pelo usuario, então criei duas variaveis e coloquei +- assim... _______________________________________________ procedure TFhd1.FormCreate(Sender: TObject); var hoje2 : string; diash1: string; begin hoje2 := dhoje.Text; diash1:= diasf.Text; end; procedure aviso; var datainicial : TDatetime; intervalo : integer; begin datainicial := strtodate(hoje2); intervalo := strtoint(diash1); if ((trunc(date - datainicial) MOD intervalo) = 0) then try Application.CreateForm(TMainform,Mainform); MainForm.Showmodal; finally FreeAndNil(MainForm); end end; ____________________________ Mas não está dando certoo... Qual seria a forma certa de fazer isso?
  3. Li algumas coisas sobre tabela temporarias, e confesso que não sabia que existia esse recurso no Delphi, só que com o que li até então não sei bem como criar uma tabela dessas e enviar os dados da consulta sempre que o grafico for requerido.. Você pode dar uma mãozinha de como fazer? Grato por tudo! Abraço..
  4. Seguinte... estou fazendo um programa e ele envia para um BD em access as informações de uma linha telefonica... Na tabela 'chamadas' ele guarda data(tipo data/hora) e Tempo_de_Ligação(tipo data/hora) .... Há uma segunda tabela 'grafico' que eu quero que receba o seguinte: - na primeira tabela existem varias ligações do dia 17/05, outras do dia 16/05...de diferentes datas...eu preciso selecionar todas datas iguais e somar seus tempos de ligação, para saber quanto foi usado o telefone naquele dia... Essa tabelas grafico...tem duas colunas Dia (tipo data/hora) e horastotais (tipo data/hora). Estou tentando fazer um codigo para isso com a estrutura: Select from...Group By...mas sem sucesso até agora... alguém pode me dar uma ajuda?? Abraço
  5. Fazer conversão de tipos não adianta....porque o DbChart não recebe informações de uma consulta! =/ Oque será q dá p fazer?
  6. Então.. Mas foi o que eu flei.....a consulta salva como tabela num é gerada automaticamente.... Ou seja sempre q entrar uma nova ligação....a tabela chamadas vai receber, a consulta também recebe...mas a tabela que provem da consulta não será atualizada...a menos q eu entre no access e crie uma nova tabela encima da nova consulta... Ai que mora o problema! =/
  7. Eu só consigo alterar o tipo de dos campos de uma tabela....em uma consulta não dá p fazer eu ACHO... Se for mesmo possivel como faço?!
  8. Eu consegui fazer oque eu queria atraves do Access mesmo....eu executei uma consulta com a função em SQl q estava usando...e ela me retorna os valores q eu queria mesmo.... Só q tem um problema...o formato dos resultados são todos do tipo texto.... E o DbChart só recebe do tipo numerico ou data/hora..... Eu tentei então gerar uma tabela da consulta, essa é possivel gerar, mas não se atualiza sozinha, quando a consulta pe atualizada. Oque eu posso fazer? -Tem algum comando em SQL q posso colocar q envie os dados no formato q preciso? - Existe outro tipo de grafico no Delphi, que eu possa usar? Qual seria melhor saida?
  9. Nossaaa...Agoraaa entediii..... Vo pensar no que fazer agoraaaa! Brigadão! Abraço..
  10. Eu entendi isso de não poder somar aqueles valores... Só q assim...se "00:01:22" já é o valor da soma dos tempo.....porque ele está tentando somar mais coisas??? porque os valores estão todos no formato hh:mm:ss mesmo....então oque pode estar acontecendo? Posso até converter tudo p segundo mas será q é mesmo necessario?! Abraço..
  11. Mudei o Codigo para: DM.ADOQuery_grafico.Close; DM.ADOQuery_grafico.sql.Text := 'select '+ 'left(data, 10) as dia, '+ ' right(''0000''+cstr( (24*int(sum(Tempo_de_Ligação))) + datepart(''h'', cdate(sum(Tempo_de_Ligação)))), 2)+'':''+ '+ 'right(cdate(sum(Tempo_de_Ligação)), 5) as horastotais '+ 'from '+ 'chamadas '+ ' group by '+ ' left(data, 10) '; DM.ADOQuery_grafico.Open; Assim agora está dando o mesmo erro só q fla assim.... "exception class EConvertError whit message "00:01:22" is not a valid floating point value. Process Stop......" Esse tempo é a soma das ligações mesmo.....então creio q está somando certinho...mas não está enviando as informações para a tabela... Me dá uma mão...porque já tente de tudooo!!! ;)
  12. Seguinte.... Em uma tabela tem uma coluna data e uma tempo de ligação.....elas fazem o controle de ligações de um telefone... Eu tenho outra tabela no mesmo BD q se chama Grafico...e ela precisa armazenar o tempo total de ligação por dia... Então preciso selecionar todas ligações do dia....e soma seus tempos totais e lança-los na tabela grafico.. Porque com essa tabela vou criar um grafico DBChart... Estou usando então aquela rotinaa....
  13. Eu entendi que o erro seria este...mas esse é o problema, não estou encontrando erro no codigo em relação a isso... Poderia me dar uma sugestão de fazer isso de outra forma?
  14. Seguinte tenho um banco de dados...ele tem armazena em uma coluna 'Tempo_de_Ligação' os tempos de gravação de um programa aki... Preciso somar todos os valores de tempo por dia..e fazer um grafico Tempo de ligação X Dia... Eu fiz assim...mas não deu certoo.. _________________________________ DM.ADOQuery_grafico.Close; DM.ADOQuery_grafico.sql.Text := 'select '+ 'left(inicio, 10) as data, '+ ' right(''0000''+cstr( (24*int(sum(Tempo_de_Ligação))) + datepart(''h'', cdate(sum(Tempo_de_Ligação)))), 4)+'':''+ '+ 'right(cdate(sum(Tempo_de_Ligação)), 5) as horastotais '+ 'from '+ 'chamadas '+ ' group by '+ ' left(inicio, 10) '; DM.ADOQuery_grafico.Open; _______________________________________ Os dados eu pego de um Bd 'chamadas' e quero enviar para um 'grafico'..... Está dando um erro assim.. "exception class EConvertError whit message "31/07/2009" is not a valid floating point value. Process Stop......" Onde será que está o problema? Abraasss
  15. Eu consigo programar um timer com um tempo variavel?? porque na vdd queria q o Usuario estipulasse o tempo..
  16. Como faço para um determinado aviso aparecer a cada X dias?? Que tipo de função eu uso para trabalhar com o tempo dessa forma??? Grato...
  17. Valeu.....vo ler melhor o Codigo!!! Abrass
  18. "Dados Imcompativeis na Expressão de Criterio"..... Esse problema já consegui Resolver....então tópico resolvidoo!!! Grato!! Abraços
  19. Tenho uma variavel q recebe o caminho q o usuario deseja armazenar seus dados.. Queria uma rotina q mostrasse o tamnaho desse diretorio 'caminho' e atualizasse smpre q fosse alterado... Me flaram algo de usar a função Sizedir....mas não estou consiguindo... Abrass...
  20. Entendi sim....e usei para fazer uma aplicação parecida no meu soft, em outra tela.... Só q queria saber se consigo de forma simples...fazer apenas uma barra, ou janelinha q mostre o consumo do HD... Tem alguma ideia? Abraço..
  21. Queria saber se Dentro de uma list Box ou um Label, eu consigo deixar na tela o tamnaho de uma pasta.. Essa pasta é direcionada por uma variavel 'caminho' escolhida pelo usuario.. Tentei algo como Caption:= Size(caminho), mas não funcionou... alguém pode me ajudar?!
  22. Então os dados são unicamente numericos...mas quando converto o tipo da tebela para numeros aparece a seguinte msg no Soft... "Dados Imcompativeis na Expressão de Criterio"..... Outra coisa...aproveitando se você puder me ajudar.. Estou tentando fazer na tela do Soft algo q mostre sempre o tamanho em Bytes de uma pasta, p onde estão sendo encaminhados os arquivos... Eu posso fazer isso da seguinte forma.. Em um Label eu coloco o codigo ...Caption:= Size ('caminho');
  23. Uhn......os dados de todos campos tirando o inicio e final estão no tipo Texto..... Eu tentei mudar p tipo numero a coluna q eu precisava....mas dessa forma dá erro no programa... Oque precisa ser feito? Mudar no codigo o formato de envio?!
  24. Como eu faço p ver q tipo de dados eles são?! No sabado eu estava fazendo o envio dakela diferença de tempo inicial e final, pelo q entendi ele envia os dados no tipo Integer, certo?!
×
×
  • Criar Novo...