Ir ao conteúdo
  • Cadastre-se

mm_edilson

Membros Plenos
  • Total de itens

    197
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

1

Sobre mm_edilson

  • Data de Nascimento 23-09-1979 (39 anos)

Informações gerais

  • Cidade e Estado
    Ipanema, MG
  1. 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.
  2. 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...
  3. 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.
  4. Olá, obrigado. Era isso mesmo. Agora está funcionando...
  5. 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>
  6. Executou normalmente, só que quando volta para a pagina home, volta logado. Não ta encerrando
  7. 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...
  8. 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.
  9. 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?
  10. 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:
  11. 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.
  12. Opa, valeu. Resolvido. Aff, depois de horas na frente da tela, a gente já não enxerga mais o óbvio. Abraços...
  13. 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?
  14. 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.
  15. Opa, deu certo. O mais fácil é sempre o mais difícil, rsrsrs. Obrigado.

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

×