Ir ao conteúdo
  • Cadastre-se

mm_edilson

Membros Plenos
  • Total de itens

    70
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

2

Sobre mm_edilson

  • Data de Nascimento 23/09/1979 (40 anos)

Informações gerais

  • Cidade e Estado
    Ipanema, MG
  1. Bom dia, amigos. Tenho um programa de cadastro de membros de uma igreja. Criei um relatório de aniversariantes entre duas datas. Por exemplo, seleciono duas datas (inicial e final) cada uma em um datetimepicker, e o grid me mostra os aniversariantes entre aquelas datas. Contudo, quando a data inicial é em dezembro, e a final é em janeiro, o filtro buga. Ele acrescenta datas de outubro e novembro. E nada faz com que isso se acerte. Meu código: procedure TAniversarios.DateTimePicker1Change(Sender: TObject); begin Edit2.Text := DateToStr(Datetimepicker1.Date); AdoQuery1.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('SELECT Nome, DtNasc, tel, Cel, Status FROM CadPessoas'); AdoQuery1.SQL.Add('WHERE ( ((Month(DtNasc) * 100) + Day(DtNasc)) between :pinicial and :pfinal'); AdoQuery1.SQL.Add('or ((Month(DtNasc) * 100) + Day(DtNasc)) between :pinicial2 and :pfinal2 )'); ADOQuery1.SQL.add('and not (status in ('+QuotedStr('Falecido')+','+QuotedStr('Transferido')+','+QuotedStr('Desligado')+'))'); AdoQuery1.SQL.Add('Order by Day(DtNasc)'); AdoQuery1.Parameters.ParamByName('pinicial').Value := MonthOf(datetimepicker1.Date) * 100 + DayOf(datetimepicker1.Date); AdoQuery1.Parameters.ParamByName('pfinal').Value := MonthOf(datetimepicker2.Date) * 100 + DayOf(datetimepicker2.Date); AdoQuery1.Parameters.ParamByName('pinicial2').Value := MonthOf(datetimepicker1.Date) * 100 + DayOf(datetimepicker1.Date); AdoQuery1.Parameters.ParamByName('pfinal2').Value := MonthOf(datetimepicker2.Date) * 100 + DayOf(datetimepicker2.Date); if monthOf(Datetimepicker1.DateTime) > monthOf(Datetimepicker2.DateTime) then begin AdoQuery1.Parameters.ParamByName('pfinal').Value := 1231; AdoQuery1.Parameters.ParamByName('pinicial2').Value := 101; end; Adoquery1.Open; end; : Assim, na minha lógica, se a data inicial for, por exemplo, 25 de dezembro e a data final for 5 de janeiro, estaria na condicional if, do código cima. Assim: pinicial = 12 * 100 + 25 = 1225 pfinal = 1231 pinicial 2 = 101 pfinal2 = 1 * 100 + 5 = 105 Logo ele só poderia retornar os aniversários cuja soma fosse entre 101 e 105, e entre 1225 e 1231. Ou seja, os únicos aceitos seriam: 01, 02, 03, 04 e 05 de janeiro, cujas somas são, 101, 102, 103, 104 e 105, respectivamente e 25, 26, 27, 28, 29, 30 e 31 de dezembro, cujas somas são 1225, 1126, 1227, 1228, 1229, 1230 e 1231. Mas aí está o problema. Ele também retorna datas de nascimento do mês 10 e do mês 11. Por exemplo, nessa consulta, ele retornou um aniversário de 29/10, um de 02/11 e um de 04/11, cujas somas são 1029, 1102 e 1104, três números que estão fora dos parâmetros, mas aparecem no grid. E nada do que eu faça consegue resolver isso. Penso que tem algo a ver com o mês 10 e 11 terem o número 1 na composição, mas acredito ser algo totalmente sem sentido. Alguém pode tentar dar uma força?
  2. Boa tarde. Preciso que minha query retorne os aniversariantes entre duas datas selecionadas em dois datetimepickers. Fiz assim: //Realiza a consulta Adoquery1.Close; Adoquery1.SQL.Clear; Adoquery1.SQL.Add('Select * from CadPessoas'); ADOQuery1.SQL.add('where ((Month(DtNasc) * 100) + Day(DtNasc)) between :DtNascIni and :DtNascFim'); AdoQuery1.SQL.add('Order by DtNasc'); ADOQuery1.Parameters.ParamByName('DtNascIni').Value := MonthOf(DateTimePicker1.DateTime) * 100 + DayOf(DateTimePicker1.DateTime); ADOQuery1.Parameters.ParamByName('DtNascFim').Value := MonthOf(DateTimePicker2.DateTime)*100 + DayOf(DateTimePicker2.DateTime); AdoQuery1.Open; Só que ele ta confundindo os meses que tem o numero 1. Por exemplo, fiz uma consulta entre 01 de Janeiro e 01 de fevereiro. Ele retornou todos os aniversariantes de outubro, novembro, dezembro e janeiro. Já se a consulta for entre fevereiro e março, por exemplo, que não envolve meses que começam com o numero 1, dá certinho. Alguém poderia ajudar? Uso Delphi 7 e Access.
  3. Olá amigos. Estou com um problema queimando meus neurônios. Estou fazendo um programinha de gestão financeira para uma pequena igreja. Como o movimento é muito pequeno e não exige muito do banco de dados, utilizo Access conectado com ADO. No formulário tenho um combobox com os seguintes itens: dízimos, ofertas e total. Logo abaixo tenho um label, que deve me retornar a soma das entradas do mês corrente, do campo selecionado no combobox. Inseri no próprio formulário uma adoquery para cada item: dízimos, ofertas e total, e um dbtext (não visível) para cada adoquery que recebe o campo Expr1, Expr2 e Expr3, respectivamente. No evento onchange do combobox, coloquei o seguinte código: procedure TFinanceiro.ComboBox1Change(Sender: TObject); var num1, num2, num3: real; begin Label25.Caption := ''; AdoQuery1.Close; AdoQuery2.Close; AdoQuery3.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('Select Sum(Valor) as Expr1'); AdoQuery1.SQL.Add('from entradas'); AdoQuery1.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (1)'); AdoQuery2.SQL.Clear; AdoQuery2.SQL.Add('Select Sum(Valor) as Expr2'); AdoQuery2.SQL.Add('from entradas'); AdoQuery2.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (2)'); AdoQuery3.SQL.Clear; AdoQuery3.SQL.Add('Select Sum(Valor) as Expr3'); AdoQuery3.SQL.Add('from entradas'); AdoQuery3.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (3)'); AdoQuery1.Open; AdoQuery2.Open; AdoQuery3.Open; If Combobox1.Text = 'Total Geral de Entradas' Then begin if Dbtext3.Caption = '' then label25.Caption := 'R$0,00' else num3 := StrToFloat(DbText14.Caption); Label25.Caption := FloatToStrF(num3, ffcurrency, 8,2); end; If Combobox1.Text = 'Dízimos' Then begin if Dbtext1.Caption = '' then label25.caption := 'R$0,00' else num1 := StrToFloat(DbText1.Caption); Label25.Caption := FloatToStrF(num1, ffcurrency, 8,2); end; If Combobox1.Text = 'Ofertas' Then begin if Dbtext2.Caption = '' then label25.caption := 'R$0,00' else num2 := StrToFloat(DbText2.Caption); Label25.Caption := FloatToStrF(num2, ffcurrency, 8,2); end; End; Pois bem, quando seleciono, por exemplo, Dízimos, na combobox, ele retorna no label 25 a soma de todos os dízimos que entraram no mês. Se seleciono, ofertas, o label muda para a soma das ofertas. Funciona tudo perfeito. O problema é quando eu edito ou adiciono um novo lançamento. Meu código para isso é: procedure TFinanceiro.Button7Click(Sender: TObject); var data: string; begin data := FormatDateTime('DD/MM/YYYY', DateTimePicker1.Date); dbedit2.Text := data; dbnavigator1.BtnClick(nbpost); Combobox1.Text := 'Selecione a Opção'; Depois de clicar e salvar o lançamento, se eu volto no combobox1 e seleciono qualquer campo, o label sempre aparece zerado. Ou seja, ele não me retorna mais os totais. O mesmo ocorre após excluir um registro. Aí eu preciso sair do programa e entrar de novo, e quando faço isso, lá estão os valores atualizados. Já tentei inserir um close e um open na tabela após o insert, já tentei o mesmo com a conexão, e nada. Aliás, acredito que não deveria ser necessário algo assim, pois o evento onchange do combobox vai sempre fechar e abrir as adoquery, logo os valores deveriam atualizar. Enfim... não sei o que fazer para ele atualizar sem eu ter que fechar e abrir o programa. Se alguém puder dar uma força...
  4. Bom dia, amigos. Estou tentando desenvolver um programinha em delphi 7 e access para registro de contribuições. Tenho uma tabela com os dados das pessoas contribuintes, e outra tabela para registar as contribuições. Essa tabela de contribuições recebe a ID do contribuinte, a data e o valor. Pois bem, coloquei um dbgrid no formulário para ir listando as contribuições lançadas. Um lookupcombobox seleciona o nome do contribuinte e grava a ID do mesmo na tabela de contribuições. Mas aí está o meu problema. No DBgrid aparece a id do contribuinte, pois esse é o dado que foi salvo na tabela de contribuições. Mas quero que apareça o nome. É possivel fazer isso? Ou seja, o mesmo DBGrid estar lincado à tabela de contribuições e buscar o nome do contribuinte em outra tabela? Abraços e obrigado.
  5. Olá, obrigado. Era isso mesmo. Agora está funcionando...
  6. Boa tarde, estou criando um site para minha igreja, mas sou muito cru ainda m PHP. Fiz um menu horizontal, e aparentemente funciona. Contudo o submenu abre mesmo quando passo o mouse la em baixo, fora da barra. Alguém pode dar uma dica? Se quiser dar uma olhada já tá publicado em www.ibnagv.com.br Segue o código <style type="text/css"> .menu_corpo { width: 1000px; position: absolute; } .menu_corpo p { margin: 0px; padding: 0px; } </style> <link href="SpryAssets/SpryMenuBarHorizontal.css" rel="stylesheet" type="text/css" /> <script src="SpryAssets/SpryMenuBar.js" type="text/javascript"></script> </head> <body> <div class="menu_corpo"> <ul id="MenuBar1" class="MenuBarHorizontal"> <li><a href="index.php?pagina=home">Home</a></li> <li><a class="MenuBarItemSubmenu" href="#">Sobre Nós</a> <ul> <li><a href="index.php?pagina=visao">Nossa Visão</a></li> <li><a href="index.php?pagina=missao">Nossa Missão</a></li> <li><a href="index.php?pagina=valores">Nossos Valores</a></li> <li><a href="index.php?pagina=fe">Nossa Fé</a></li> </ul> </li> <li><a class="MenuBarItemSubmenu" href="#">Para Você</a> <ul> <li><a href="index.php?pagina=como_chegar">Como Chegar</a></li> <li><a href="index.php?pagina=como_se_tornar_membro">Como se tornar membro</a></li> <li><a href="index.php?pagina=atividades">Atividades</a></li> <li><a href="index.php?pagina=calendario">Calendário Anual</a></li> <li><a href="index.php?pagina=boletim">Boletim Semanal</a></li> <li><a href="index.php?pagina=escalas">Escalas de Serviços</a></li> <li><a class="MenuBarItemSubmenu" href="#">Pedidos</a> <ul> <li><a href="index.php?pagina=pedido_de_oracao">Oração</a></li> <li><a href="index.php?pagina=pedido_de_visita">Visita</a></li> <li><a href="index.php?pagina=pedido_de_estudo_biblico">Estudo Bíblico</a></li> <li><a href="index.php?pagina=pedido_de_aconselhamento">Aconselhamento</a></li> </ul> </li> </ul> </li> <li><a class="MenuBarItemSubmenu" href="#">Ministérios</a> <ul> <li><a href="index.php?pagina=pastoral">Pastoral</a></li> <li><a href="index.php?pagina=musica">Música</a></li> <li><a href="index.php?pagina=infantojuvenil">Infantojuvenil</a></li> <li><a href="index.php?pagina=adojovem">Adojovem</a></li> <li><a href="index.php?pagina=conviver">Conviver</a></li> <li><a href="index.php?pagina=anunciai">Anunciai</a></li> <li><a href="index.php?pagina=mcm">MCM</a></li> <li><a href="index.php?pagina=er">ER</a></li> <li><a href="index.php?pagina=intercessao">Intercessão</a></li> <li><a class="MenuBarItemSubmenu" href="#">EBD</a> <ul> <li><a class="MenuBarItemSubmenu" href="#">Classes</a> <ul> <li><a href="index.php?pagina=ebd_classe_amiguinhos_de_jesus">Amiguinhos de Jesus</a></li> <li><a href="index.php?pagina=ebd_classe_joias_de_cristo">Joias de Cristo</a></li> <li><a href="index.php?pagina=ebd_classe_andando_com_jesus">Andando Com Jesus</a></li> <li><a href="index.php?pagina=ebd_classe_adojovem_siloe">Adojovem - Siloé</a></li> <li><a href="index.php?pagina=ebd_classe_jovens_casados_pedras_vivas">Jovens Casados - Pedras Vivas</a></li> <li><a href="index.php?pagina=ebd_classe_adultos_salvos_para_servir">Adultos - Salvos para Servir</a></li> <li><a href="index.php?pagina=ebd_classe_doutrinas">Doutrinas</a></li> </ul> </li> <li><a class="MenuBarItemSubmenu" href="#">Capacitação</a> <ul> <li><a href="index.php?pagina=ebd_capacitacao_videos">Vídeos</a></li> <li><a href="index.php?pagina=ebd_capacitacao_materiais">Materiais</a></li> </ul> </li> </ul> </li> <li><a class="MenuBarItemSubmenu" href="#">PGMs</a> <ul> <li><a href="index.php?pagina=pgm_roteiros">Roteiros</a></li> <li><a class="MenuBarItemSubmenu" href="#">Capacitação</a> <ul> <li><a href="index.php?pagina=pgm_capacitacao_videos">Vídeos</a></li> <li><a href="index.php?pagina=pgm_capacitacao_materiais">Materiais</a></li> </ul> </li> </ul> </li> </ul> </li> <li><a class="MenuBarItemSubmenu" href="#">Mídia</a> <ul> <li><a href="index.php?pagina=videos">Vídeos</a></li> <li><a href="index.php?pagina=audios">Áudios</a></li> <li><a href="index.php?pagina=galeria">Galeria</a></li> <li><a class="MenuBarItemSubmenu" href="#">Cultos</a> <ul> <li><a href="index.php?pagina=culto_ao_vivo">Ao Vivo</a></li> <li><a href="index.php?pagina=cultos_gravados">Gravados</a></li> </ul> </li> </ul> <li><a href="index.php?pagina=fale_conosco">Contato</a></li></li></ul> <p> </p> </div> <script type="text/javascript"> var MenuBar1 = new Spry.Widget.MenuBar("MenuBar1", {imgDown:"SpryAssets/SpryMenuBarDownHover.gif", imgRight:"SpryAssets/SpryMenuBarRightHover.gif"}); </script>
  7. Executou normalmente, só que quando volta para a pagina home, volta logado. Não ta encerrando
  8. Pessoal, sou iniciante nível zero em php. Estou com uma dúvida cruel. Com algumas dicas da internet consegui fazer um sistema de login simples com cookie que está funcionando perfeitamente. Exceto pelo fato de não conseguir encerrar. Quero assim: quando não está logado, aparece um botão chamado "login" com o link para a página de login. Quando está logado, no lugar desse botão, aparece um de logout, que encerra e retorna para a home. Fiz assim: <td> <?php $login_cookie = $_COOKIE['login']; if(isset($login_cookie)){ ?> <a href="logout.php"><img src="images/logout.jpg" width="110" height="40" /></a> <? } else { ?> <a href="index.php?p_login"><img src="images/login-button.png" width="110" height="40" /></a> <?php }?> </td> e fiz a página "logout.php" assim: <? $login_cookie = $_COOKIE['login']; (setcookie($login_cookie));echo "<script>alert('Logout realizado com sucesso!');top.location.href='index.php?home';</script>"; ?> Aí que tá o problema. Ta logando direitinho, ta aparecendo o botão logout (depois de logado), quanto clico no botão logout aparece a mensagem "logout realizado com sucesso" e redireciona para a página home, certinho. Mas permanece logado. Onde estou errando? Se alguém puder dar uma força...
  9. Não, ele deu boot no pendrive normalmente, começou a gravar os arquivos... quando apareceu a tela com a logo do windows, e instantes depois aparece logo em baixo aquela "bolinha" de "pontinhos" que normalmente fica girando por alguns segundos... nessa tela ele trava tudo. Para o disco, mouse, teclado, tudo. Não reinicia, não responde a nenhum tipo de comando.Aí só dá pra desligar apertando o botão "power" e segurando por 10 segundos. E depois que instalei o windows no hd, usando outro computador, e coloquei o hd de novo nele, ele começa a iniciar o windows, e na mesma tela trava tb. Notei ainda que a tela perde um pouquinho do brilho segundos antes de travar. É mais ou menos aquela perda de brilho que dá quando desconectamos a fonte e fica só na bateria.
  10. Amigos, me deparei essa semana com um problema que está me tirando o sono. Um netbook da megaware tava com hd queimado. Coloquei um hd novo e fui instalar o windows. Começou a instalação normalmente, mas quando de repente travou... a instalação não prosseguia. Tentei várias vezes e nada. Troquei de novo o hd e o problema continuou. Tentei instalar linux e travou tb. Tirei o hd, coloquei em outro computador e instalei o windows normalmente. Coloquei de volta o hd com o windows instalado e ele começa a inicializar, mas logo depois da tela do windows (que fica com os pontinhos girando em círculo) ele trava e não termina de inicializar. Já dei clear na bios, tentei iniciar com live cd, através de hd externo, com pendrive, nenhum S.O. inicia. Sempre trava no meio da inicialização. Alguém tem alguma ideia do que possa ser?
  11. Pessoal, recorro mais uma vez a vocês. Meu projeto é em Delphi 10 usa BD access. preciso somar os valores do campo "Valor" da tabela "Detalhe_Entrada", do mês corrente. Fiz assim: DateTimePicker2.Date := StartOfTheMonth(Date());DateTimePicker3.Date := EndOfTheMonth(Date()); QueryMes.Close; QueryMes.SQL.Clear; QueryMes.SQL.Add('Select Sum(Valor)as SOMA from Detalhe_Entrada WHERE Data >= :DATAINI and Data <=:DATAFIN group by Data'); QueryMes.Parameters.paramByname('DATAINI').Value := DateTimePicker2.Datetime; QueryMes.Parameters.paramByname('DATAFIN').Value := DateTimePicker3.Datetime; QueryMes.Open; Label20.Caption := formatfloat('#,#0.00', QueryMes.fieldbyname('SOMA').ASCURRENCY); Só que o danado só soma os valores do primeiro dia do mês e ignora o restante. Não sei mais o que fazer. Alguém pode dar uma luz? Abraços. Tentei usar: QueryMes.SQL.Add('Select Sum(Valor)as SOMA from Detalhe_Entrada WHERE Data Between :DATAINI and :DATAFIN group by Data'); Mas também não resolveu. Também tentei com essa linha Label20.caption := formatfloat('#,#0.00', QueryMesSoma2.asfloat); mas assim não compila. Dá esse erro:
  12. Amigos, estou tentando criar uma forma de expirar uma aplicação. Algo simples, só para aprender mesmo. Fiz assim: Criei uma tabela no Banco de dados para receber a data. Depois inseri um edit, um dbedit, e um datatimepicker, ligados a uma adotable. Criei o código abaixo: procedure TfrmAtivacao.FormShow(Sender: TObject); Var Data : TDate; begin Data := Now; if DbEdit2.Text = '' then begin DbNavigator2.BtnClick(NbEdit); DbEdit2.Text := DatetoStr(Date); DbNavigator2.BtnClick(NbPost); end else DateTimePicker1.Date := StrToDate(DbEdit2.Text); end; If DateTimePicker1.Date < Data -15 then ShowMessage('O Período de testes terminou.'); end; Mas quando rodo, dá erro: "Value assigned to 'Data' never used. Alguém pode dar uma força? Abraços.
  13. Opa, valeu. Resolvido. Aff, depois de horas na frente da tela, a gente já não enxerga mais o óbvio. Abraços...
  14. Amigos, acredito que seja simples, mas não consegui resolver. Quero que minha adoquery selecione os registros cuja id é igual à que aparece em um DBEdit, no formulário. Fiz assim: Adoquery1.Close; Adoquery1.SQL.Clear; Adoquery1.SQL.Add('Select *'); Adoquery1.SQL.Add('From Filhos'); Adoquery1.SQL.Add('From IDResponsavel = 'DbEdit1.text'); Adoquery1.Open; mas dá erro: "[Error]UnCadFilhos.pas(65): ')' expected but identifier "DbEdit1' found" Alguém pode ajudar?
  15. Amigos, tenho um formulário com uma AdoQuery, 2 DateTimePickers, 2 botões e 1 DBGrid onde seleciono os aniversariantes da semana, através do seguinte código, no onclick do botão: AdoQuery1.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('SELECT Nome, DtNasc FROM Dados'); AdoQuery1.SQL.Add('WHERE ((Month(DtNasc) * 100) + Day(DtNasc)) between :pinicial and :pfinal'); AdoQuery1.SQL.Add('Order by DtNasc'); AdoQuery1.Parameters.ParamByName('pinicial').Value := MonthOf(datetimepicker1.Date) * 100 + DayOf(datetimepicker1.Date); AdoQuery1.Parameters.ParamByName('pfinal').Value := MonthOf(datetimepicker2.Date) * 100 + DayOf(datetimepicker2.Date); Adoquery1.Open; O Dbgrid e o Adoquery ligados por um datasource. Td funciona direitinho. Seleciono a data inicial e data final nos Datetimepickers, e o dbgrid, que tá ligado à Adoquery, me dá a lista certinho. O problema é para imprimir. Coloquei um RvDataSetConnection1 ligado à essa adoQuery, e um RvProject1, onde criei o relatório. O problema é que, quando executo o RvProject, ele me dá todos os registros do banco de dados, mesmo o dbgrid me dando só os do período que selecionei. Me pergunto: como pode ser isso? É a mesma AdoQuery para o dbgrid e para o RvDataSetConnection. Alguém pode dar uma força? abraços.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Eletrônica

PROMOÇÃO DE QUARENTENA

Aproveite o isolamento social para aprender eletrônica!
De R$ 39,90 por apenas R$ 19,90
Só até as 23h59min desta sexta-feira 10/04/2020

CLIQUE AQUI E COMPRE AGORA MESMO!