[delphi-br] Data e Hora
Bom dia galera Delphiana. Estou desenvolvendo um programa na empresa q eu trabalhe mais pintou uma duvia. tenho uma campo chamado de Dia_entrada e hora_entrada, o dia ja consegui formatar mais a hora tb mais quando eu chamo para atualiza ele pega a data e hora do campo Hora entra, mais só quero a hora sem a data. Alguem poderia me ajudar em???
[delphi-br] Re: onDrawDataCell
Ola , vamos ver se eu tiro a sua duvia onDrawDataCell ele muda a cor do campos do Grid, por exemple tenho uma tabela q contem 6 campo da mega sena, e tenho um cadastr de 29 jogos e gostaria de rachurar os numeros q saiu na ultima megasena. Olha como eu fiz. Bom não sei se eu te ajudei a exclarecer sua duvida, me manda resposta para eu saber se ja entendeu. procedure TfrmJogoDaSena.grdJogadorDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Var nOldB, nOldF : TColor; // contA : integer; Begin With grdJogador Do Begin n1 := Trim(DM.qryJogadorn1.Text); n2 := Trim(DM.qryJogadorn2.Text); n3 := Trim(DM.qryJogadorn3.Text); n4 := Trim(DM.qryJogadorn4.Text); n5 := Trim(DM.qryJogadorn5.Text); n6 := Trim(DM.qryJogadorn6.Text); nOldF := Canvas.Font.Color; nOldB := Canvas.Brush.Color; a := trim(edtN1.Text); b := trim(edtN2.text); c := trim(edtN3.text); d := trim(edtN4.text); e := trim(edtN5.text); f := trim(edtN6.text); If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; // If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 =(b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF;
[delphi-br] Capiturar numereos da mega sena
Estou desenvolvendo eu sistema de verifica jogo da mega sena, o sisema esta pronto mais gostaria de mordenizar e colocar em modulo de capitura de jogos da mega sena assim q eu abrir o meu programa ele verifica se tem alguma atualização e ele atualize automaticamente, sem q eu precise digitar um jogo de cada vez. Aguem poderia me ajudar em
[delphi-br] Re: Capiturar numereos da mega sena
vc poderia passar o nome do tema q já foi discutide aq nesta forun, se tiver o nome fica mais fasio procurar --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu O máximo que eu sei é que vc não consegue baixar do site da Caixa resultados específicos, e sim baixar um .ZIP que tem todos os resultados, inclusive o último sorteio. Pra vc fazer o download desses resultados vc pode usar duas alternativas: 1) Usar a função UrlDownloadToFile() da unit urlmon (Dica de uso: http://www.swissdelphicenter.ch/en/showcode.php?id=412); 2) Usar a action TDownloadURL da unit ExtActns. Se quiser incrementar o uso da opção de download (1), vc pode codificar um callback usando a interface IBindStatusCallback pra, por exemplo, codificar um download com barra de progresso. Pesquise sobre isso na Internet que vc com certeza vai achar algo. Agora, se quiser usar a opção 2, a action TDownloadURL possui evento OnDownloadProgress, onde vc pode implementar essa característica de barra de progresso. Seu outros dois problemas que vc terá que resolver, depois de implementar o download usando uma das sugestões que passei, será (a) abrir o .zip que vc efetuou o download e (b)analisar o arquivo HTML que possui todos os resultados. Pra essas coisas, tenho certeza que uma arregaçada de mangas e algumas pesquisas na Internet e vc conseguirá resolver. Boa sorte. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 17 Sep 2007 12:39:13 +Subject: [delphi-br] Capiturar numereos da mega sena Estou desenvolvendo eu sistema de verifica jogo da mega sena, o sisema esta pronto mais gostaria de mordenizar e colocar em modulo de capitura de jogos da mega sena assim q eu abrir o meu programa ele verifica se tem alguma atualização e ele atualize automaticamente, sem q eu precise digitar um jogo de cada vez.Aguem poderia me ajudar em _ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Consulta SQL
Estou querendo saber sobre SQL Tenho uma select aq que quero construir para contar os numeros de vezes q eu o numero aparece em cada campo. ex: Select count(*) as [n1] from senaJogos where n1='1' or n2='1' or n3='1' or n4='1' or n5='1' or n6='1' Aqui ele esta conferindo quantas vezes o numero um aparecenu no jogo da mega sena Mais quero fazer para 60 numero 1 a 60, e só consigo fazer para um unico numero, Quero fazer uma estatistica de numero da megasena quantas veses esse numero ja saiu na mega sena e comparar os meu numero com o da mega- sena Alguem pode me ajudar em???
[delphi-br] Re: arquivo INIFile
Não etendo oq vc me disse faz o seguinte estou passando o meu msn para podemos falar e tirar duvida tb [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, BandaLemuel [EMAIL PROTECTED] escreveu Vc poderia fazer o seguinte gravar as informções fdo caminho no banco de dados... como parametro. Eu por exemplo qualquer sistema q desenvolvo.. crio uma tabela só para parametros do sistema... por exemplo.. tenho um cadastro de cliente.. e existem os tipos de clientes... por exemplo... E=Especial, F=Fiel... exemplo... depois o cliente me pede para incluir o tipo de cliente A=Anonimo... eu apenas cadastro na tabela de parametros acho que seria este o caminho ficaria mais fácil e poderia alterar sem problema... o Ini eu uso apenas para configurar a conexão com o Banco... ai vc colocaria o nome do Arquivo apenas e pronto... qq coisa me contata em PVT que te ajudo a fazer isso... Wesley - Original Message - From: alan_adolfo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 9:03 AM Subject: [delphi-br] arquivo INIFile Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj. Tenho um programa q estou desenvolvendo na empresa q eu trabalha e o sistema faz a capitura de imagem com web can e salva a imagem na minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb em um Banco de dado. Oque estou precisando é de um arquivo INIFile para q eu não precise endicar todo o caminho em q eu salvo somento o nome do arquivo e fazendo um arquivo INI para q eu possa salvar a imagem e colocar o nome sem problema de colocar o caminho pois isto acarreta em um caminho muito londo para gravar uma imagem. Alguem poderia me ajudar em??? Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de exxemplho de como eu salvo uma imagem utilizando iniFile com base de dado SQL Server --- --- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] arquivo INIFile
Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj. Tenho um programa q estou desenvolvendo na empresa q eu trabalha e o sistema faz a capitura de imagem com web can e salva a imagem na minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb em um Banco de dado. Oque estou precisando é de um arquivo INIFile para q eu não precise endicar todo o caminho em q eu salvo somento o nome do arquivo e fazendo um arquivo INI para q eu possa salvar a imagem e colocar o nome sem problema de colocar o caminho pois isto acarreta em um caminho muito londo para gravar uma imagem. Alguem poderia me ajudar em??? Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de exxemplho de como eu salvo uma imagem utilizando iniFile com base de dado SQL Server