[delphi-br] Re: figuras para botoes e icones download?

[Silvio Clecio]

Olá galera,

--- Em delphi-br@yahoogrupos.com.br, alessandra porto  
escreveu
>
> Amigos
> alguem pode dar uma dica de onde conseguir boas images para botões e icones
> mais modernos ( futuristas)

Alessandra, tem 1.000 (no formato .png):

Link - [http://sites.google.com/site/silvioprogbs/downloads].

Procure lá por "1.000 Glyph's super atraentes para incrementar suas 
aplicações". Caso queira usar PNG em seus projetos, no mesmo link tem um 
componente para Delphi.
---
[]'s, Silvio Clécio
---
Linux User: #481900
Gmail, GTalk: silviop...@gmail.com
E-mail, Y! Messenger: silviop...@yahoo.com.br
BlogSite: http://silvioprog.blogspot.com/
BlogSpot: http://silvioclecio.blogspot.com/
VirtualDriver: http://silvioprog.4shared.com/
°oO| Seja livre, use Linux! |Oo°

[delphi-br] figuras para botoes e icones download?

[alessandra porto]

Amigos
alguem pode dar uma dica de onde conseguir boas images para botões e icones
mais modernos ( futuristas)

Tenho muitos aqui mais são antiguinhos.

Agradeço a dica dos amigos

Abraços a todos 



  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Novo arquivo carregado em delphi-br

[delphi-br]

Olá,

Esta mensagem é uma notificação para informá-lo que um novo arquivo foi 
adicionado no grupo delphi-br.

  Arquivo : /facHTMLReport.zip 
  Carregado por   : silvioprog  
  Descrição   : Componente para gerar relatório (com templates HTML) 
Contrib.: Caique, autor: Facunte 

Você pode acessar o arquivo pela URL:

http://br.groups.yahoo.com/group/delphi-br/files/facHTMLReport.zip 

Para saber mais sobre compartilhamento de arquivos no grupo, leia:

http://help.yahoo.com/help/br/groups/files

Atenciosamente,

silvioprog 
 

Re: [delphi-br] erro em splash screen

[felipe govoni]

descobri


foi so tirar o:

Application.MainFormOnTaskbar := True;


2009/5/18 felipe govoni 

> agradeço mas nao resolveu, continua a mesa coisa.
>
>
>
>
> 2009/5/18 EmbarcaDelphi 
>
>
>>
>> begin
>> frmSplash := TfrmSplash.Create(Nil);
>> frmSplash.Show;
>> Application.Initialize;
>>
>> Application.CreateForm(TfrmPrincipal, frmPrincipal);
>>
>> Application.CreateForm(TDMGeral, DMGeral);
>> Application.CreateForm(TfrmM_Prima, frmM_Prima);
>> Application.CreateForm(TfrmProdutos, frmProdutos);
>> Application.CreateForm(TfrmCompras, frmCompras);
>> Application.CreateForm(TfrmConsultas, frmConsultas);
>> Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
>> Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
>> Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
>> Application.CreateForm(TfrmVendas, frmVendas);
>> Application.CreateForm(TfrmClientes, frmClientes);
>> frmSplash.Free;
>> Application.Run;
>> end.
>>
>> felipe govoni escreveu:
>>
>> >
>> >
>> > bom dia
>> >
>> > criei uma splash screeen para meu sistema, ta funcionando porem na
>> > barra de tarefas do windows aparece como se estivesse 2 sistemas
>> abertos.
>> >
>> > to utilizando esse codigo:
>> >
>> > begin
>> > frmSplash := TfrmSplash.Create(Application) ;
>> > frmSplash.Show;
>> > Application.Initialize;
>> > frmSplash.Update;
>> > Application.MainFormOnTaskbar := True;
>> > Application.CreateForm(TfrmPrincipal, frmPrincipal);
>> > Application.CreateForm(TDMGeral, DMGeral);
>> > Application.CreateForm(TfrmM_Prima, frmM_Prima);
>> > Application.CreateForm(TfrmProdutos, frmProdutos);
>> > Application.CreateForm(TfrmCompras, frmCompras);
>> > Application.CreateForm(TfrmConsultas, frmConsultas);
>> > Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
>> > Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
>> > Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
>> > Application.CreateForm(TfrmVendas, frmVendas);
>> > Application.CreateForm(TfrmClientes, frmClientes);
>> > frmSplash.Hide;
>> > frmSplash.Free;
>> > Application.Run;
>> >
>> > end.
>> >
>> > oq estou fazendo errado?
>> >
>> > --
>> > Felipe Govoni
>> > -
>> > GOVONI Sistemas
>> > Fone 8472-8718
>> > www.govoni.com.br
>> >
>> > [As partes desta mensagem que não continham texto foram removidas]
>> >
>> >
>>
>>  
>>
>
>
>
> --
> Felipe Govoni
> -
> GOVONI Sistemas
> Fone 8472-8718
> www.govoni.com.br
>



-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] erro em splash screen

[felipe govoni]

agradeço mas nao resolveu, continua a mesa coisa.




2009/5/18 EmbarcaDelphi 

>
>
> begin
> frmSplash := TfrmSplash.Create(Nil);
> frmSplash.Show;
> Application.Initialize;
>
> Application.CreateForm(TfrmPrincipal, frmPrincipal);
>
> Application.CreateForm(TDMGeral, DMGeral);
> Application.CreateForm(TfrmM_Prima, frmM_Prima);
> Application.CreateForm(TfrmProdutos, frmProdutos);
> Application.CreateForm(TfrmCompras, frmCompras);
> Application.CreateForm(TfrmConsultas, frmConsultas);
> Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
> Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
> Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
> Application.CreateForm(TfrmVendas, frmVendas);
> Application.CreateForm(TfrmClientes, frmClientes);
> frmSplash.Free;
> Application.Run;
> end.
>
> felipe govoni escreveu:
>
> >
> >
> > bom dia
> >
> > criei uma splash screeen para meu sistema, ta funcionando porem na
> > barra de tarefas do windows aparece como se estivesse 2 sistemas abertos.
> >
> > to utilizando esse codigo:
> >
> > begin
> > frmSplash := TfrmSplash.Create(Application) ;
> > frmSplash.Show;
> > Application.Initialize;
> > frmSplash.Update;
> > Application.MainFormOnTaskbar := True;
> > Application.CreateForm(TfrmPrincipal, frmPrincipal);
> > Application.CreateForm(TDMGeral, DMGeral);
> > Application.CreateForm(TfrmM_Prima, frmM_Prima);
> > Application.CreateForm(TfrmProdutos, frmProdutos);
> > Application.CreateForm(TfrmCompras, frmCompras);
> > Application.CreateForm(TfrmConsultas, frmConsultas);
> > Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
> > Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
> > Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
> > Application.CreateForm(TfrmVendas, frmVendas);
> > Application.CreateForm(TfrmClientes, frmClientes);
> > frmSplash.Hide;
> > frmSplash.Free;
> > Application.Run;
> >
> > end.
> >
> > oq estou fazendo errado?
> >
> > --
> > Felipe Govoni
> > -
> > GOVONI Sistemas
> > Fone 8472-8718
> > www.govoni.com.br
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>  
>



-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] ENC: CARREGAR RESOLUÇÃO DE VIDEO

[Leonardo Quinino]

É uma boa pedida mesmo, tenho aqui na empresa que trabalho uma estação que
usa um monitor desses novos LCD, no formato Wide-Screen, que acho que fora
feitos para assistir filmes e não trabalhar...  é uma bronca para acertar
com uma boa resolução mesmo.

Alguém tem uma boa sugestão ?


2009/5/18 ruberval-yahoo 

>
>
>
>
> De: ruberval-bol [mailto:ruber...@bol.com.br ]
> Enviada em: segunda-feira, 18 de maio de 2009 16:10
> Para: 'delphi-br@yahoogrupos.com.br <%27delphi-br%40yahoogrupos.com.br>'
> Assunto: CARREGAR RESOLUÇÃO DE VIDEO
>
> Boa tarde Galera, tudo bom, espero que sim, é o seguinte estou precisando
> de
> uma ajuda sobre como carregar a resolução de vídeo que esta na maquina na
> hora de abrir meu programa para ele não ficar desconfigurado, pois na
> maquina que trabalho tem uma resolução muito grande e quando coloco em
> outras que não tem fica horrível os forms, alguém tem esta dica ai.
>
> Desde já fico grato pela atenção.
>
> ruberval
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Leonardo Quinino


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] ENC: CARREGAR RESOLUÇÃO DE VIDEO

[ruberval-yahoo]

 

 

De: ruberval-bol [mailto:ruber...@bol.com.br] 
Enviada em: segunda-feira, 18 de maio de 2009 16:10
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: CARREGAR RESOLUÇÃO DE VIDEO

 

Boa tarde Galera, tudo bom, espero que sim, é o seguinte estou precisando de
uma ajuda sobre como carregar a resolução de vídeo que esta na maquina na
hora de abrir meu programa para ele não ficar desconfigurado, pois na
maquina que trabalho tem uma resolução muito grande e quando coloco em
outras que não tem fica horrível os forms, alguém tem esta dica ai.

 

 

Desde já fico grato pela atenção.

 

 

 

ruberval



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda....

[Ricardo César Cardoso]

Pode ser que o Yahoo acabou desconfigurando a mensagem, por isso apareceram os 
espaços em branco.

[]'s
Ricardo.

"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"

--- Em seg, 18/5/09, Vinicius da Silva Pinto  escreveu:

De: Vinicius da Silva Pinto 
Assunto: RES: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 15:23
















  
  

Não entendi, pq os espaços em branco?



-Mensagem original -

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em

nome de Claudiney Cogo

Enviada em: segunda-feira, 18 de maio de 2009 15:15

Para: delphi...@yahoogrup os.com.br

Assunto: RES: [delphi-br] Ajuda



Dê uma olhada nessas linhas:



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;

FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



Não seria correto assim?



FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;

FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;



Abraço



_



Claudiney Cogo

N2 Sistemas e Soluções em Informática

Av. São Paulo, 172 - 15º Andar - Sala 1505

Fone/Fax: (44) 3029-6053 - Maringá - Paraná

 <http://www.n2soluti ons.com.br/> www.n2solutions. com.br

 <http://www.nfe. n2solutions. com.br/> www.nfe.n2solutions .com.br

 <http://www.studion2 .com.br/> www.studion2. com.br



De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em

nome de Vinicius da Silva Pinto

Enviada em: segunda-feira, 18 de maio de 2009 09:15

Para: delphi...@yahoogrup os.com.br

Assunto: [delphi-br] Ajuda



Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:



Em uma determinado momento do sistema eu faço uma consulta por data e tudo

corre muito bem, como neste exemplo abaixo:



FrmDm.SdsCadEventos 1.Close;

FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM

BDEVENTOS WHERE DATAEVENTO = :WDATA';

FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date;

FrmDm.SdsCadEventos 1.Open;



Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o

problema



Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"



Como se os parametros não foram definidos



Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..



FrmDm.SimpleDataSet 1.Close;



FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from

BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;

<<<<<--- -- pelo log, o erro é nesta linha



FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



FrmDm.SimpleDataSet 1.Open;



Agradeço qualquer dica ou ajuda...



Vinicius



__ Informação do NOD32 IMON 4082 (20090518) __



Esta mensagem foi verificada pelo NOD32 sistema antivírus

http://www.eset. com.br



[As partes desta mensagem que não continham texto foram removidas]



 - - --



--

<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>




 

  




 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Não entendi, pq os espaços em branco?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Claudiney Cogo
Enviada em: segunda-feira, 18 de maio de 2009 15:15
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda


Dê uma olhada nessas linhas:



FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;



Não seria correto assim?



FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;



Abraço



  _

Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 <http://www.n2solutions.com.br/> www.n2solutions.com.br
 <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br
 <http://www.studion2.com.br/> www.studion2.com.br



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: segunda-feira, 18 de maio de 2009 09:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda








Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos1.Close;
FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date;
FrmDm.SdsCadEventos1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet1.Close;

FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet1.Params[0].AsInteger := 1;
<<<<<- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius





__ Informação do NOD32 IMON 4082 (20090518) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



[As partes desta mensagem que não continham texto foram removidas]





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

RES: [delphi-br] Ajuda....

[Claudiney Cogo]

Dê uma olhada nessas linhas:

 

FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;

 

Não seria correto assim?

 

FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;

 

Abraço

 

  _  

Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 <http://www.n2solutions.com.br/> www.n2solutions.com.br
 <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br
 <http://www.studion2.com.br/> www.studion2.com.br

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: segunda-feira, 18 de maio de 2009 09:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda

 






Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos1.Close;
FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date;
FrmDm.SdsCadEventos1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet1.Close;

FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet1.Params[0].AsInteger := 1;
<<<<<- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius





__ Informação do NOD32 IMON 4082 (20090518) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Já, só muda o display do erro, dizendo que o campo não existe.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de leite romano
Enviada em: segunda-feira, 18 de maio de 2009 12:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda


ja tentou Utilizar paramByName

--- Em seg, 18/5/09, Vinicius da Silva Pinto 
escreveu:


De: Vinicius da Silva Pinto 
Assunto: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 9:14








Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos 1.Close;
FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date;
FrmDm.SdsCadEventos 1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet 1.Close;

FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
<--- -- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet 1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]





--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Re: [delphi-br] Sistema Campeonato de Futebol

[Marcio F. Cruz]

O sistema terá 3 funções principais:

1) Cadastro de equipes;
2) Cadastro de jogos e resultados;
3) Relatório de classificação.

Cada jogo, vai poder ter 3 possibilidades...  empate, derrota ou empate...
E, deve ser colocado sempre o placar...

Na hora de emitir relatório, calcula-se dinamicamente a posição de cada
time... se houver empate, aí tem que ver a regra da competição.. se é por
número de vitórios, saldo de gols, etc...

2009/5/18 Luciano Angelini 

>
>
> Caro Marcio ...
>
> Como é pra mim ter uma base 
> vou começar com pontos corridos 
>
> Marcio F. Cruz escreveu:
>
> >
> >
> > é pontos corridos? tem oitavas-de-final?
> >
> > 2009/5/18 Alisson  alssnco%40yahoo.com.br >>
> >
> > >
> > >
> > > Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é
> > esse
> > > programa? Qual a finalidade dele?
> > > O que ele vai controlar? Quem vai usar? Você deve definir o que
> > realmente
> > > quer fazer.
> > >
> > > __
> > > Faça ligações para outros computadores com o novo Yahoo! Messenger
> > > http://br.beta.messenger.yahoo.com/
> > 
> > >
> > >
> >
> > --
> > Márcio F. Cruz
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>  
>



-- 
Márcio F. Cruz


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Sistema Campeonato de Futebol

[Luciano Angelini]

Caro Marcio ...

   Como é pra mim ter uma base  
  vou começar com pontos corridos 


Marcio F. Cruz escreveu:
>
>
> é pontos corridos? tem oitavas-de-final?
>
> 2009/5/18 Alisson mailto:alssnco%40yahoo.com.br>>
>
> >
> >
> > Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é 
> esse
> > programa? Qual a finalidade dele?
> > O que ele vai controlar? Quem vai usar? Você deve definir o que 
> realmente
> > quer fazer.
> >
> > __
> > Faça ligações para outros computadores com o novo Yahoo! Messenger
> > http://br.beta.messenger.yahoo.com/ 
> 
> >
> >
>
> -- 
> Márcio F. Cruz
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

Re: [delphi-br] Sistema Campeonato de Futebol

[Marcio F. Cruz]

é pontos corridos? tem oitavas-de-final?

2009/5/18 Alisson 

>
>
> Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse
> programa? Qual a finalidade dele?
> O que ele vai controlar? Quem vai usar? Você deve definir o que realmente
> quer fazer.
>
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger
> http://br.beta.messenger.yahoo.com/
>  
>



-- 
Márcio F. Cruz


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Sistema Campeonato de Futebol

[Luciano Angelini]

Caro Alisson .

   Talvez vc não entendeu o que eu quiz dizer 
   o sistema seria pra gerar a classificação do campéonato ...
   tipo o Campeonato brasileiro  tem os jogos ... o sistema faz os 
calculo dos pontos ...
   dos jogos realizados


Alisson escreveu:
>
>
> Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse
> programa? Qual a finalidade dele?
> O que ele vai controlar? Quem vai usar? Você deve definir o que realmente
> quer fazer.
>
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger
> http://br.beta.messenger.yahoo.com/ 
>
> 

Re: [delphi-br] Sistema Campeonato de Futebol

[Alisson]

Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse 
programa? Qual a finalidade dele?
O que ele vai controlar?  Quem vai usar? Você deve definir o que realmente 
quer fazer. 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

RES: [delphi-br] WEBSERVICE - COMO DADOS DE UMA UNIT D ENTRO DA APLICAÇÃO ISAPI??

[Rubem Rocha]

Um pequeno aviso: é falta de educação escrever tudo em caixa de alta. Pelas
regras da Netiqueta, isto quer dizer que vc está gritando com o destinatário
da sua mensagem.

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de iran_uesb
Enviada em: domingo, 17 de maio de 2009 21:04
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] WEBSERVICE - COMO DADOS DE UMA UNIT DENTRO DA APLICAÇÃO
ISAPI??

 






TENHO UM WEBSERVICE - ISAPI,NELE TEM UM SOAPDATAMODULE E CONSIGO CONSUMIR OS
DADOS DELE NORMALMENTE POREM GOSTARIA DE ACESSAR DADOS DIRETAMENTE DA
DLL(WEBSERVECE) EM FUNÇÕES.

- JÁ TENTEI ACESSAR O SOAPDATAMODULE(LOCALMENTE), MAS NÃO DÁ.
- JÁ TENTEI CRIAR UM DATAMODULO COMUM, ELE ACESSA, COMPILA MAS DA ERRO EM
TEMPO DE EXECUÇÃO (ACHO QUE NÃO PODE USAR UM DM COMUM NELA).

SE ALGUEM PUDER ME DAR UMA AJUDA, AGRADEÇO.





[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] erro em splash screen

[EmbarcaDelphi]

begin
frmSplash := TfrmSplash.Create(Nil);
frmSplash.Show;
Application.Initialize;
Application.CreateForm(TfrmPrincipal, frmPrincipal);

Application.CreateForm(TDMGeral, DMGeral);
Application.CreateForm(TfrmM_Prima, frmM_Prima);
Application.CreateForm(TfrmProdutos, frmProdutos);
Application.CreateForm(TfrmCompras, frmCompras);
Application.CreateForm(TfrmConsultas, frmConsultas);
Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
Application.CreateForm(TfrmVendas, frmVendas);
Application.CreateForm(TfrmClientes, frmClientes);
frmSplash.Free;
Application.Run;
end.



felipe govoni escreveu:
>
>
> bom dia
>
> criei uma splash screeen para meu sistema, ta funcionando porem na
> barra de tarefas do windows aparece como se estivesse 2 sistemas abertos.
>
> to utilizando esse codigo:
>
> begin
> frmSplash := TfrmSplash.Create(Application) ;
> frmSplash.Show;
> Application.Initialize;
> frmSplash.Update;
> Application.MainFormOnTaskbar := True;
> Application.CreateForm(TfrmPrincipal, frmPrincipal);
> Application.CreateForm(TDMGeral, DMGeral);
> Application.CreateForm(TfrmM_Prima, frmM_Prima);
> Application.CreateForm(TfrmProdutos, frmProdutos);
> Application.CreateForm(TfrmCompras, frmCompras);
> Application.CreateForm(TfrmConsultas, frmConsultas);
> Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
> Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
> Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
> Application.CreateForm(TfrmVendas, frmVendas);
> Application.CreateForm(TfrmClientes, frmClientes);
> frmSplash.Hide;
> frmSplash.Free;
> Application.Run;
>
> end.
>
> oq estou fazendo errado?
>
> -- 
> Felipe Govoni
> -
> GOVONI Sistemas
> Fone 8472-8718
> www.govoni.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

Re: [delphi-br] Ajuda....

[leite romano]

ja tentou Utilizar paramByName

--- Em seg, 18/5/09, Vinicius da Silva Pinto  escreveu:


De: Vinicius da Silva Pinto 
Assunto: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 9:14








Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

FrmDm.SdsCadEventos 1.Close;
FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date;
FrmDm.SdsCadEventos 1.Open;

Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

FrmDm.SimpleDataSet 1.Close;

FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
<--- -- pelo log, o erro é nesta linha

FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;

FrmDm.SimpleDataSet 1.Open;

Agradeço qualquer dica ou ajuda...

Vinicius

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] WEBSERVICE - COMO DADOS DE UMA UNIT DENTRO DA APLICAÇÃO I SAPI??

[EmbarcaDelphi]

Creio que será muito difícil alguém te responder, na net, escrever em 
caixa alta é GRITAR com quem está lendo!

iran_uesb escreveu:
>
>
> TENHO UM WEBSERVICE - ISAPI,NELE TEM UM SOAPDATAMODULE E CONSIGO 
> CONSUMIR OS DADOS DELE NORMALMENTE POREM GOSTARIA DE ACESSAR DADOS 
> DIRETAMENTE DA DLL(WEBSERVECE) EM FUNÇÕES.
>
> - JÁ TENTEI ACESSAR O SOAPDATAMODULE(LOCALMENTE), MAS NÃO DÁ.
> - JÁ TENTEI CRIAR UM DATAMODULO COMUM, ELE ACESSA, COMPILA MAS DA ERRO 
> EM TEMPO DE EXECUÇÃO (ACHO QUE NÃO PODE USAR UM DM COMUM NELA).
>
> SE ALGUEM PUDER ME DAR UMA AJUDA, AGRADEÇO.
>
> 

[delphi-br] Sistema Campeonato de Futebol

[l_o_angelini]

Bom dia 

  Gostaria de desenvolver um sistema para Campeonatos de Futebol ..
tipo o campeonato brasileiro 2009, só que não sei nem por onde começar ..
alguem ja desenvolveu um programa assim... gostaria de informações com criar as 
tabelas ...


Luciano Angelini
Prefeitura de Lupionópolis-Pr

Re: [delphi-br] JEDI em D2009

[Daniel Augusto Bastos]

Salve Geraldo .
O Instalador não funcionou? Dá alguma mensagem? Ou vc ta tentando instalar
manualmente?
O ùnico lugar que tive problemas (E faz muuito tempo, hoje em dia não sei se
ainda da problema) foi num windows 2003, ma s de resto tudo funcionou
beleza.
Se estiver usando o instalador que vem junto, poste os passos que está
seguindo e a saida do instalador pra poder-mos dar uma olhada.
Que a força esteja com você (Não resisti a piada sem graça)
Abs
Daniel Augusto Bastos


2009/5/18 geraldodbfadom 

> Bom dia a todos, estou tentando instalar o Jedi 3.36 no delphi 2009 nao
> estou conseguindo. Alguem tem um tutorial ou como fazer segui os mesmos
> passos para o D7 e nao ta dando certo, e o d2009 é o trial que baixei da
> codegear.
>
> Desde ja agradeço a todos.
> Geraldo
>
>
>
> 
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
>


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] erro em splash screen

[felipe govoni]

bom dia


criei uma splash screeen para meu sistema, ta funcionando porem na
barra de tarefas do windows aparece como se estivesse 2 sistemas abertos.

to utilizando esse codigo:



begin
  frmSplash := TfrmSplash.Create(Application) ;
  frmSplash.Show;
  Application.Initialize;
  frmSplash.Update;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TDMGeral, DMGeral);
  Application.CreateForm(TfrmM_Prima, frmM_Prima);
  Application.CreateForm(TfrmProdutos, frmProdutos);
  Application.CreateForm(TfrmCompras, frmCompras);
  Application.CreateForm(TfrmConsultas, frmConsultas);
  Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos);
  Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima);
  Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica);
  Application.CreateForm(TfrmVendas, frmVendas);
  Application.CreateForm(TfrmClientes, frmClientes);
  frmSplash.Hide;
  frmSplash.Free;
  Application.Run;

end.



oq estou fazendo errado?


-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] JEDI em D2009

[geraldodbfadom]

Bom dia a todos, estou tentando instalar o Jedi 3.36 no delphi 2009 nao estou 
conseguindo. Alguem tem um tutorial ou como fazer segui os mesmos passos para o 
D7 e nao ta dando certo, e o d2009 é o trial que baixei da codegear.

Desde ja agradeço a todos.
Geraldo

Re: [delphi-br] Mono para Multiempresa

[Moacir - GMail]

Valdir,

Tive uma situação parecida com a sua e resolvi criando um procedure. 
Veja o código abaixo:

SET TERM ^ ;

CREATE OR ALTER PROCEDURE GEN_EMPRESA (
cod integer = 1)
as
declare variable qtd integer = 0;
begin
  select count(RDB$GENERATOR_NAME) from RDB$GENERATORS where 
RDB$GENERATOR_NAME='GEN_EMPRESA_'||:COD into :qtd;
  if (qtd<1) then
  begin
  INSERT INTO RDB$GENERATORS (RDB$GENERATOR_NAME)
  VALUES ('GEN_EMPRESA_'||:COD);
  end
end^

SET TERM ; ^

No programa vc chama assim (no meu caso):

   With DM.qryGeral do
   begin
  Close;
  SQL.Text := 'EXECUTE PROCEDURE 
GEN_EMPRESA('+IntToStr(G_CODEMPRESA)+')';
  ExecSQL;
  Close;
   end;


Sucesso !!

Moacir


valdirdill escreveu:
> Olá,
>
> Há muito venho adiando isso, mas agora preciso "colocar a mão na massa".
> Estou trabalhando no projeto para transformar um sistema - que já está em 
> utilização - para que possa ser controlar duas ou mais empresas no mesmo bd.
> O que defini até agora é que vou manter os cadastros de produtos, clientes e 
> fornecedores públicos (acessível a todas as filiais). Nas demais tabelas 
> criarei o ID_Filial e, nos registros existentes até o momento dessa 
> implantação receberão valor 1 nesse campo. A partir da implantação da nova 
> sistemática, esse campo receberá valor conforme a filial que estiver ativa, o 
> que é definido no login ao sistema.
> Muito bem, até aqui me parece que a coisa, apesar de ser trabalhosa, não é lá 
> muito complexa.
> Porém, encontrei uma dificuldade: em tenho alguns generators no banco que são 
> utilizados para gerar um código único para determinadas tabelas que não 
> possuem um campo específico para isso. Por exemplo, na tabela de lançamentos 
> do livro caixa utilizo um generator para que a cada novo lançamento o campo 
> código - que é o campo chave - dessa tabela receba o valor do 
> generator_Caixa, já incrementado em 1.
> A dúvida: no caso da segunda, terceira, ..., filiais, como isso poderia ser 
> feito? Não posso utilizar o mesmo generator. Então, cada vez que o usuário 
> cadastrar uma nova filial devo criar um generator com o nome ou código dela? 
> Tipo generator_Caixa_Filial_2?
>
> Consegui me fazer entender?
> Alguém pode me auxiliar com alguma dica?
>
> Obrigado.
>
>
>
> 
>
>   

[delphi-br] Ajuda....

[Vinicius da Silva Pinto]

Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro:

Em uma determinado momento do sistema eu faço uma consulta por data e tudo
corre muito bem, como neste exemplo abaixo:

  FrmDm.SdsCadEventos1.Close;
  FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM
BDEVENTOS WHERE DATAEVENTO = :WDATA';
  FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date;
  FrmDm.SdsCadEventos1.Open;


Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o
problema

Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)"

Como se os parametros não foram definidos

Juro que não estou enxergando o erro ou se tenho que fazer algo diferente..

  FrmDm.SimpleDataSet1.Close;

  FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from
BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA';

  FrmDm.SimpleDataSet1.Params[0].AsInteger := 1;
<-  pelo log, o erro é nesta linha

  FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date;

  FrmDm.SimpleDataSet1.Open;


Agradeço qualquer dica ou ajuda...

Vinicius

[delphi-br] Mono para Multiempresa

[valdirdill]

Olá,

Há muito venho adiando isso, mas agora preciso "colocar a mão na massa".
Estou trabalhando no projeto para transformar um sistema - que já está em 
utilização - para que possa ser controlar duas ou mais empresas no mesmo bd.
O que defini até agora é que vou manter os cadastros de produtos, clientes e 
fornecedores públicos (acessível a todas as filiais). Nas demais tabelas 
criarei o ID_Filial e, nos registros existentes até o momento dessa implantação 
receberão valor 1 nesse campo. A partir da implantação da nova sistemática, 
esse campo receberá valor conforme a filial que estiver ativa, o que é definido 
no login ao sistema.
Muito bem, até aqui me parece que a coisa, apesar de ser trabalhosa, não é lá 
muito complexa.
Porém, encontrei uma dificuldade: em tenho alguns generators no banco que são 
utilizados para gerar um código único para determinadas tabelas que não possuem 
um campo específico para isso. Por exemplo, na tabela de lançamentos do livro 
caixa utilizo um generator para que a cada novo lançamento o campo código - que 
é o campo chave - dessa tabela receba o valor do generator_Caixa, já 
incrementado em 1.
A dúvida: no caso da segunda, terceira, ..., filiais, como isso poderia ser 
feito? Não posso utilizar o mesmo generator. Então, cada vez que o usuário 
cadastrar uma nova filial devo criar um generator com o nome ou código dela? 
Tipo generator_Caixa_Filial_2?

Consegui me fazer entender?
Alguém pode me auxiliar com alguma dica?

Obrigado.

[delphi-br] Componente Mercury

[Ricardo Rocha]

Olá pessoal tenho uma dúvida em quais componentes usar para inserir/atualizar e 
deletar utilizando o mercury (componente acesso ao firebird). Estou usando 
procedure no banco de dados. Gostaria de uma idéia.

Atenciosamente,

 
Ricardo Messias da Silva Rocha
Ciência da Computação - 2009 -



  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] BANCO DE DADOS DE MARCAS E MODELOS DE VEICULOS

[Gerson Machado]

Eu tenho um banco de dados assim:
Tabela de montadoras relacionados a tabela de veículos, relacionados a tabela 
de modelos, relacionado a tabela de caracteristicas técnicas (potencia, motor, 
etc).
Se interessar me chame em PVT (private).
Um abraço


--- Em dom, 17/5/09, iran_uesb  escreveu:


De: iran_uesb 
Assunto: [delphi-br] BANCO DE DADOS DE MARCAS E MODELOS DE VEICULOS
Para: delphi-br@yahoogrupos.com.br
Data: Domingo, 17 de Maio de 2009, 22:07








ESTOU PROCURANDO UM BANCO DE DADOS COM MARCAS E MODELOS DE VEICULOS, COMO O QUE 
E USADO PELA WEBMOTORS, OU QUEM SABE SE ALGUEM PODE ME AJUDAR A CRIAR UM SCRIPT 
PARA PEGAR OS DADOS DO SITE DA WEBMOTORS??? ? 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Off Topic Converter função de VB p/ Delphi

[fabio_giro]

Alguém poderia me ajudar a converter esta função?

VB
Public Function binret(s1 As String, i1 As Integer) As Double
   Dim l1 As Double
   Dim i2 As Integer
   Dim i3 As Integer
   l1 = 0
   For i2 = 1 To i1
  i3 = Asc(Mid$(s1, i2, 1))
  l1 = l1 + (i3 * (256 ^ (i1 - i2)))
   Next
   binret = l1
End Function

Delphi
Function binret(s1 : string; i1 : Integer) : Double;
var
   l1 : Double;
   i2 : Integer;
   i3 : Integer;
begin
   l1 := 0;
   For i2 := 1 To i1 do
begin
  i3 := ord(copy(s1, i2, 1)[1]);
  l1 := l1 + (i3 * (?));
end;
   binret := l1;
End;

Agradeço antecipadamente.