Ir para conteúdo
Fórum Script Brasil

Nino Marques

Membros
  • Total de itens

    42
  • Registro em

  • Última visita

Sobre Nino Marques

Perfil

  • Gender
    Male

Nino Marques's Achievements

0

Reputação

  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
×
×
  • Criar Novo...