Re: [delphi-br] Atributos de uma classe

2009-04-21 Por tôpico Paulo Coutinho
Se eu estou postando aqui é porque já procurei e não achei, pois este é um
assunto desconhecido por mim, posso então não estar buscando da forma
correta.

Mas sem problemas, como sempre já achei sozinho mesmo.

Não custa nada ajudar.

Se for assim ninguém vai ajudar ninguém aqui, pois tudo tem no google :)  É
só uma questão de boa vontade, assim como respondo a várias perguntas mesmo
tendo no google.

2009/4/20 Rubem Nascimento da Rocha djpardalro...@hotmail.com





 Retificando: é RTTI (Run-Time Type Infomation)!


 Sds.

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 From: djpardalro...@hotmail.com djpardalrocha%40hotmail.com
 Date: Mon, 20 Apr 2009 12:06:58 +
 Subject: RE: [delphi-br] Atributos de uma classe


 Se, e somente se, os atributos de sua classe estiverem declarados como
 published, basta usar as rotinas de RTI (Run-Time Type Information) contidas
 na unit TypInfo. Tem material a botão na Internet mostrando como fazer isso.
 Quem procura, acha!

 Boa sorte.

 Sds.

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 From: pa...@prsolucoes.com paulo%40prsolucoes.com
 Date: Mon, 20 Apr 2009 00:54:26 -0300
 Subject: [delphi-br] Atributos de uma classe

 Olá galera,

 Alguém sabe como eu consigo saber os atributos e os valores dos atributos
 da
 minha classe.

 Exemplo:

 Classe Produto
 |__ Atributos
 |Nome
 |Quantidade
 |Preco

 --
 Atenciosamente,
 Paulo Coutinho.
 Blog: www.prsolucoes.com/blog
 Site: www.prsolucoes.com
 Msn: pa...@prsolucoes.com paulo%40prsolucoes.com

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

 __
 Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!
 http://specials.br.msn.com/ilovemessenger/pacotes.aspx

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

 __
 Messenger 2009: Instale já!
 http://download.live.com

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

  




-- 
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn:  pa...@prsolucoes.com


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



[delphi-br] Re: Erro no meu FWK - clientDataSet

2009-04-21 Por tôpico Paulo Coutinho
Resolvido.

2009/4/20 Paulo Coutinho pa...@prsolucoes.com

 Olá galera,

 Refiz boa parte e funcionou em partes:

 procedure TGerente.adicionarCampoChave(nomeCampo: String; tipoCampo:
 TFieldKind);
 var
   campo: TIntegerField;
 begin
   campo := TIntegerField.Create(aClientDataSet);

   with campo do
   begin
 FieldName := nomeCampo;
 FieldKind := tipoCampo;
 DisplayLabel  := nomeCampo;
 Name  := aSqlDataSet.Name + nomeCampo;
 ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];
 DataSet   := aClientDataSet;
   end;

   with aSqlDataSet.Fields do
   begin
 //Add(campo.Name, ftInteger, 0, False);
 Add(campo);
   end;

   with aClientDataSet.FieldDefs do
   begin
 Add(campo.Name, ftInteger, 0, False);
 //Add(campo);
   end;
 end;

 O problema era que eu não estava informando: DataSet   :=
 aClientDataSet;

 Mas isso resolvi, e agora estou criando os FieldDefs, mas quando chamo o :
 aClientDataSet.CreateDataSet;

 Da erro dizendo que o campo ID não existe, sendo que ja fiz:

 aSqlDataSet.CommandText := 'SELECT id, nome FROM ' +
 TEntidade(entidade).nomeTabela;
 aClientDataSet.CommandText := 'SELECT id, nome FROM ' +
 TEntidade(entidade).nomeTabela;

 O que pode ser?

 2009/4/20 Paulo Coutinho pa...@prsolucoes.com

 Olá pessoal,

 Estou fazendo um framework de persistência no delphi mas estou me
 deparando com o seguinte erro que ainda não consegui resolver.

 Minha classe de gerência tem o seguinte método construtor:

 constructor TGerente.Create;
 begin
   inherited;

   aMapeamentoAtributos := TList.Create;

   //adiciona chave primária - toda tabela precisa ter este campo
   adicionarMapeamento(tpInteiro, 'ID', false);

   //cria objetos de conexão
   aClientDataSet   := TClientDataSet.Create(nil);
   aSqlDataSet  := TSQLDataSet.Create(nil);
   aDataSetProvider := TDataSetProvider.Create(nil);

   //define nomes
   aClientDataSet.Name   := 'CDS';
   aSqlDataSet.Name  := 'SDS';
   aDataSetProvider.Name := 'DSP';

   //define atributos do SDS
   aSqlDataSet.DbxCommandType := 'Dbx.SQL';
   aSqlDataSet.CommandType:= ctQuery;
   aSqlDataSet.SQLConnection  := aConexao.conexaoSql;
   aSqlDataSet.CommandText:= '';

   //define atributos do DSP
   aDataSetProvider.DataSet:= aSqlDataSet;
   aDataSetProvider.UpdateMode := TUpdateMode.upWhereKeyOnly;
   aDataSetProvider.Options:=
 [poAllowCommandText,poUseQuoteChar,poPropogateChanges,poCascadeDeletes,poCascadeUpdates];
   aDataSetProvider.Exported   := true;

   //define atributos do CDS
   aClientDataSet.ProviderName := aDataSetProvider.Name;
   aClientDataSet.StoreDefs:= True;
   aClientDataSet.SetProvider(aDataSetProvider);

 end;

 Até ai tudo bem.

 Mas após criar um campo chave primária no meu clientDataSet e dar um open
 no clientDataSet , ocorre um access violation:

 procedure TGerente.adicionarCampoChave(nomeCampo: String; tipoCampo:
 TFieldKind);
 var
   campo: TIntegerField;
 begin
   campo := TIntegerField.Create(aClientDataSet);

   with campo do
   begin
 FieldName := nomeCampo;
 FieldKind := tipoCampo;
 DisplayLabel  := nomeCampo;
 Name  := aSqlDataSet.Name + nomeCampo;
 ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];
   end;

   with aSqlDataSet.Fields do
   begin
 //Add(campo.Name, ftAutoInc, 0, False);
 Add(campo);
   end;

   with aClientDataSet.Fields do
   begin
 //Add(campo.Name, ftAutoInc, 0, False);
 Add(campo);
   end;
 end;


 Eu chamo esse metodo ai e faço:

 aClientDataSet.Open;   - access violation


 A Query contida no sqlDataSet é (select * from clientes)

 --
 Atenciosamente,
 Paulo Coutinho.
 Blog: www.prsolucoes.com/blog
 Site: www.prsolucoes.com
 Msn:  pa...@prsolucoes.com




 --
 Atenciosamente,
 Paulo Coutinho.
 Blog: www.prsolucoes.com/blog
 Site: www.prsolucoes.com
 Msn:  pa...@prsolucoes.com




-- 
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn:  pa...@prsolucoes.com


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



Re: [delphi-br] Atributos de uma classe

2009-04-21 Por tôpico Ricardo César Cardoso
Sem querer polemizar (muito) mas o Rubem explicou direitinho o que fazer, ou 
seja, deu o caminho das pedras. Ele só não quis ou achou redundante ou até 
mesmo desnecessário postar um exemplo. E citou que existe bastante exemplo na 
internet.

Agora se isso não ajuda pelo menos a dar um norte nas pesquisas, não sei o que 
mais ajudaria.

Atte,
Ricardo.

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

--- Em ter, 21/4/09, Paulo Coutinho pa...@prsolucoes.com escreveu:
De: Paulo Coutinho pa...@prsolucoes.com
Assunto: Re: [delphi-br] Atributos de uma classe
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 21 de Abril de 2009, 5:04
















  
  Se eu estou postando aqui é porque já procurei e não achei, pois este é um

assunto desconhecido por mim, posso então não estar buscando da forma

correta.



Mas sem problemas, como sempre já achei sozinho mesmo.



Não custa nada ajudar.



Se for assim ninguém vai ajudar ninguém aqui, pois tudo tem no google :)  É

só uma questão de boa vontade, assim como respondo a várias perguntas mesmo

tendo no google.



2009/4/20 Rubem Nascimento da Rocha djpardalrocha@ hotmail.com











 Retificando: é RTTI (Run-Time Type Infomation)!





 Sds.



 To: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br

 From: djpardalrocha@ hotmail.com djpardalrocha% 40hotmail. com

 Date: Mon, 20 Apr 2009 12:06:58 +

 Subject: RE: [delphi-br] Atributos de uma classe





 Se, e somente se, os atributos de sua classe estiverem declarados como

 published, basta usar as rotinas de RTI (Run-Time Type Information) contidas

 na unit TypInfo. Tem material a botão na Internet mostrando como fazer isso.

 Quem procura, acha!



 Boa sorte.



 Sds.



 To: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br

 From: pa...@prsolucoes. com paulo%40prsolucoes .com

 Date: Mon, 20 Apr 2009 00:54:26 -0300

 Subject: [delphi-br] Atributos de uma classe



 Olá galera,



 Alguém sabe como eu consigo saber os atributos e os valores dos atributos

 da

 minha classe.



 Exemplo:



 Classe Produto

 |__ Atributos

 |Nome

 |Quantidade

 |Preco



 --

 Atenciosamente,

 Paulo Coutinho.

 Blog: www.prsolucoes. com/blog

 Site: www.prsolucoes. com

 Msn: pa...@prsolucoes. com paulo%40prsolucoes .com



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



  _ _ _ _ _ _

 Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!

 http://specials. br.msn.com/ ilovemessenger/ pacotes.aspx



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



  _ _ _ _ _ _

 Messenger 2009: Instale já!

 http://download. live.com



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



  





-- 

Atenciosamente,

Paulo Coutinho.

Blog: www.prsolucoes. com/blog

Site: www.prsolucoes. com

Msn:  pa...@prsolucoes. com



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




 

  




 

















  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] Atributos de uma classe

2009-04-21 Por tôpico Edu Nicácio
Paulo, basicamente você deverá definir os aributos que sua classe terá, e criar 
os métodos para ler e gravar esses atributos. Alguns deles podem ser somente 
leitura, como o atributo Count que temos, por exemplo, em um TStringList.

Dá uma pensada, uma analisada de como está sua classe hoje e o que você quer 
que ela faça. Se tiver alguma dificuldade, me contato em privado.

Abraço.


Eduardo Nicácio
http://www34.brinkster.com/ecnsoft


  - Original Message - 
  From: Paulo Coutinho 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 21, 2009 5:04 AM
  Subject: Re: [delphi-br] Atributos de uma classe





  Se eu estou postando aqui é porque já procurei e não achei, pois este é um
  assunto desconhecido por mim, posso então não estar buscando da forma
  correta.

  Mas sem problemas, como sempre já achei sozinho mesmo.

  Não custa nada ajudar.

  Se for assim ninguém vai ajudar ninguém aqui, pois tudo tem no google :) É
  só uma questão de boa vontade, assim como respondo a várias perguntas mesmo
  tendo no google.

  2009/4/20 Rubem Nascimento da Rocha djpardalro...@hotmail.com

  
  
  
  
   Retificando: é RTTI (Run-Time Type Infomation)!
  
  
   Sds.
  
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   From: djpardalro...@hotmail.com djpardalrocha%40hotmail.com
   Date: Mon, 20 Apr 2009 12:06:58 +
   Subject: RE: [delphi-br] Atributos de uma classe
  
  
   Se, e somente se, os atributos de sua classe estiverem declarados como
   published, basta usar as rotinas de RTI (Run-Time Type Information) contidas
   na unit TypInfo. Tem material a botão na Internet mostrando como fazer isso.
   Quem procura, acha!
  
   Boa sorte.
  
   Sds.
  
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   From: pa...@prsolucoes.com paulo%40prsolucoes.com
   Date: Mon, 20 Apr 2009 00:54:26 -0300
   Subject: [delphi-br] Atributos de uma classe
  
   Olá galera,
  
   Alguém sabe como eu consigo saber os atributos e os valores dos atributos
   da
   minha classe.
  
   Exemplo:
  
   Classe Produto
   |__ Atributos
   |Nome
   |Quantidade
   |Preco
  
   --
   Atenciosamente,
   Paulo Coutinho.
   Blog: www.prsolucoes.com/blog
   Site: www.prsolucoes.com
   Msn: pa...@prsolucoes.com paulo%40prsolucoes.com
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   __
   Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!
   http://specials.br.msn.com/ilovemessenger/pacotes.aspx
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   __
   Messenger 2009: Instale já!
   http://download.live.com
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Atenciosamente,
  Paulo Coutinho.
  Blog: www.prsolucoes.com/blog
  Site: www.prsolucoes.com
  Msn: pa...@prsolucoes.com

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



  


--



  No virus found in this incoming message.
  Checked by AVG - www.avg.com 
  Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 
17:56:00

  --


  --


No virus found in this outgoing message.
Checked by AVG - www.avg.com 
Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 
17:56:00


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



Re: [delphi-br] Atributos de uma classe

2009-04-21 Por tôpico José Mário Silva Guedes
Desenvolvi um rascunho de Object Inspector, veja se ajuda:

http://eugostododelphi.blogspot.com/2009/02/object-inspector.html


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



Re: [delphi-br] delforexp

2009-04-21 Por tôpico Fellipe Henrique
Vixi.. voce acerta o codigo na mao mesmo? Ou usa outro aplicativo?

Pois ele é bem util pra acertar o codigo.

[]s

2009/4/20 Daniel Augusto Bastos danbas...@gmail.com



 Muitos anos que não uso ele :) e ão to trabalhando c/ 2009 :(
 Mas, pelo que eu lembro dele, o Delphi 2007(E, possívelmente o 2009) tem a
 maior parte(senão todas) das funcionalidades dele na própria IDE.

 Abs
 Daniel Augusto Bastos

 2009/4/19 Augusto Pj gutop...@yahoo.com.br gutopj01%40yahoo.com.br


  Alguem sabe se tem versão do delforexp para o D2009?
 
 
 
  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 
 
 
 
 

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

  




-- 
_
T.·.F.·.A.·.
Fellipe Henrique
Blog: www.digitumsoft.com.br/blogs/fellipeh
---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


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



[delphi-br] Webinar de lançamento do Embarcadero All-Access

2009-04-21 Por tôpico Andreano Lanusse
Oi pessoal,

Gostaria de convidar a todos a participar do webinar sobre All-Access na 
próxima sexta-feira às 10:00 horário de Brasília.

All-Access é a primeira caixa de ferramentas multi-plataforma e sob demanda do 
mercado. Com o All-Access você tem acesso a todas as ferramentas para 
desenvolvimento e administração de banco de dados da Embarcadero.

Além disso executar as ferramentas sem a necessidade de instalação através do 
InstantOn, várias das ferramentas do All-Access já estão disponíveis para serem 
executadas nesta modalidade.

Para maiores informações e efetuar a inscrição, acesse: 
http://latam.embarcadero.com/br/allaccess/edm.htm


Andreano Lanusse
Product Line Manager and Technincal Lead Evangelist Latin America  Caribbean
Embarcadero Technologies
http://blogs.embarcadero.com/andreanolanusse


CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) and may contain confidential and privileged information. Any 
unauthorized review, use, disclosure or distribution is prohibited. If you are 
not the intended recipient, please contact the sender by reply email and 
destroy all copies of the original message.



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



Res: [delphi-br] pouco por um sistema!!!

2009-04-21 Por tôpico Silvio Clécio
Olá pessoal,

Meu Deus!! vai aprender a escrever um e-mail.

Rs... O massa é esse tipo de cara sempre ter uma desculpa, eu participo de uma 
lista que um membro tem deficiência visual e escreve genuinamente bem com o(a) 
Orca do Ubuntu, é normal o trocar algumas letras pq tem teclados com teclas bem 
próximas (Notebooks), um alô mundpo pode sai, pq O e P são juntinhas, 
agora UM EMAIL TODO EM UPPERCASE E SEM VIRGULA NEM PARA TOMAR CAFÉ PQ TÔ QUASE 
PRA BOTAR UM OVO, opa, CAFE, ñ tem acento, aí é lasca véio.

Ainda aprendo a banalizar email pelo título enviando p Spam, eu abro a pasta, 
se eu ver só emails tipo vc ganhou X € na loteria de blá...blá...blá... ou um 
pouco por um sistema!!!, apenas clico em Limpar!

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
BlogSite: http://silvioprog.blogspot.com/
BlogSpot: http://silvioclecio.blogspot.com/
VirtualDriver: http://silvioprog.4shared.com/
°oO| Seja livre, use Linux! |Oo°


  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] FastMM

2009-04-21 Por tôpico Edelson Regis de Lima
Olá Silvio.

Não, pelo contrário, eu acho isso bom pra caramba!!! Um recurso
indispensável para quem quer aumentar a performance da aplicação, eliminando
possíveis vazamentos de memória, e consequentemente eliminando problemas
futuros.
A minha dúvida é se o FastMM tem mais algum recurso além do que voce mostrou
no exemplo (o que já é muito).
Tipo, tirando as configurações do FastMM4Options.inc, o qual podemos
configurar a nosso gosto, há mais alguma coisa que podemos fazer com o
FastMM?
E obrigado pelo e-mail! Já recebi aqui. :-)

Abraços,

Edelson.


2009/4/20 Silvio Clécio silviop...@yahoo.com.br



 Olá galera,


 Preciso pesquisar sobre o assunto, e até agora o que eu vi na internet são
 exemplos em que o cara esqueceu de liberar um objeto da memória, e o
 FastMM o avisa sobre isso.

 Cara num leve a mal não, mas, vc acha isso pouco?
 Enviei o FastMM4 para teu email, veja o projeto teste na pasta
 Exemplo-PtBr.
 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Skype: silvioprog
 ICQ: 432519902
 E-mail, Y! Messenger: silviop...@yahoo.com.br silvioprog%40yahoo.com.br
 Gmail, GTalk: silviop...@gmail.com silvioprog%40gmail.com
 BlogSite: http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 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]

  



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



[delphi-br] Re: pouco por um sistema!!!

2009-04-21 Por tôpico carneirofsa
Concordo com Mário e ainda acrescento:

8 - Programinha: Desenvolvedor não faz programinha, quem faz programinha é 
prostituta barata. Desenvolvedor faz software.

um abraço, 

Carneiro



--- Em delphi-br@yahoogrupos.com.br, Mário Antonio de A. Pagnozzi 
mario.antonio.pagno...@... escreveu

 Amigos,
 
 Precisamos mudar alguns conceitos como:
 
 1 - Projetinho: Desenvolvedor não faz projetinho, faz projetos;
 2 - Sisteminha: Sisteminha se faz em laboratório é coisa de estudante ou 
 aprendiz, desenvolvedor desenvolve sistemas.
 3 - Em questão de salário e valor do seu sistema, alguem já ouviu falar me 
 APF?(Analise de Ponto de Função). Com ele é possivel medir o tamanho do seu 
 sistema, horas de trabalho, tempo, e então tirar a base de quanto um analista 
 ou desenvolvedor merece ganhar por hora.
 4 - Temos que valorizar nossa classe, ou vamos ficar igual formandos de 
 odontologia (não querendo denigrir esta classe e respeitando muito, mais 
 apenas o que realmente acontece) vendendo orçamento e serviços em praças 
 comerciais com folhetins por um valor de 5 reais.
 6 - no caso de um sistema operacional (SO) que foi citado aqui na lista, a 
 questão é: Ele vai para as prateleiras (pois é um software de prateleira) por 
 400 - 500 rais (alguns custam bem mais), valor este cobrado por licença, 
 porém alguem saberia falar o valor real para o desenvolvimento de um SO ??
 7 - O valor de um programador (lógico que depende de região), como dito aqui 
 é de 50 - 100 reais a hora (para o interior), de um DBA é de 200-400 
 reais/hora (também para interior).
 NÃO VAMOS TRABALHAR POR ESMOLAS - VAMOS VALORIZAR NOSSA CLASSE, porque embora 
 não parece somos uma classe.
 
 Abraços a todos.
 
 --- Em delphi-br@yahoogrupos.com.br, Alexandre Rodrigues 
 alexandre_rodrigues_poa@ escreveu
 
  Me desculpe, mas não acredito que uma pessoa, por mais ocupada que seja, 
  não disponha de 2 horas para terminar um sistema!
  
  
  jamilton oliveira felix escreveu:
   
   
   
   
   O MAIS ENGRAÇADO AMIGOS E QUE EM 1 A 2 HORAS NO MAXIMO DE TRABALHO , 
   PARA COMCLUIR O PROJETO RSRRSRS ERA ISSO JA ESTAVA COM O PROJETO QUASE 
   PRONTO MAS POR FALTA DE TEMPO RESOLVI POSTAR AQUI PARA UM FREE , MAS 
   TUDO BEM E ISSO AI NAO ESTOU DENIGRINDO O TRABALHO DE DESENVOLVEDORES, 
   SOU ESTUDANDO DE CIENCIA DA COMPUTAÇAO POIS NAO TENHO MUINTA EXPERIENCIA 
   COM OOP MAS ENTENDO E CRIO ALGUMAS COISAS, ME DEDICO MAIS A A 
   ESTRUTURADA EM C E C ++ MAS EM TODO CASO OBRIGADO A TODOS E UM BOM DIA.
   
   
   To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   From: hudson_dias@ mailto:hudson_dias%40yahoo.com.br
   Date: Sun, 19 Apr 2009 16:20:15 -0300
   Subject: Re: [delphi-br] pouco por um sistema!!!
   
   kakaka,
   
   Uma garota de programa cobra + / - 100,00 a hora (uma que da gosto), é 
   so parar para pensar, se elas cobram isso para fazer sacanagem, então 
   podemos cobrar 50,00 por hora, pois é um investimento na sua empresa, 
   vejo empresários comprando celulares, iphone de 2 a 4 mil reais e 
   fazerem o absurdo na hora de pagar um sistema que ira servir para o 
   crescimento de sua empresa...
   
   A culpa disso são os carinhas que pegam uma apostila em algum site 
   qualquer estudam no final de semana, depois sai dizendo que faz sistemas 
   sem conhecer a complexidade...
   
   quando algum dono de empresa me fala isso, a minha resposta e a mesma, 
   pode procurar o carinha barateiro, sabendo que ira ser um laboratório na 
   mao do mesmo...kkakakaka
   
   não quero ofender ninguém e cada um tem o seu valor, porem venho 
   acompanhando a lista, e vejo que so tem associados de bons conhecimentos 
   ou seja, o seu salário e igual ou maior que 50,00 a hora...
   
   - Original Message -
   From: Iran Lima
   To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   Sent: Sunday, April 19, 2009 11:46 AM
   Subject: RES: [delphi-br] pouco por um sistema!!!
   
   Essa é boa, daqui a pouco ele quer que alguém faça um SO pra ele por 200
   Reais.
   
   De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
   [mailto:delphi-br@yahoogrupos.com.br 
   mailto:delphi-br%40yahoogrupos.com.br] Em
   nome de Elazar Dornelles Ceza
   Enviada em: sábado, 18 de abril de 2009 22:08
   Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   Assunto: [delphi-br] pouco por um sistema!!!
   
   9) Sistemas operacionais custam barato porque vendem em escala para
   empresas, sistemas comercias custam isto ou algumas dezenas de vezes 
   porque
   fazem com que estas mesmas empresas possam comprar sistemas 
   operacionais...
   :-) e sustentam nossa familia;
   
   10) desculpa se ofendi em algum ponto, e desculpas novamentes pois lancei
   uma afirmação infundada e sem base de embasamento para tal pois não 
   conhecia
   o modelo do seu projeto.
   
   Atenc;
   Elazar
   
   
   De: jamilton oliveira felix ton600@ 
   

Re: [delphi-br] p/ rubens (É Rubem. R-u-b-e-m)

2009-04-21 Por tôpico Andrei Luís
Desculpa aí moderação... só pra descontrair...

Báh Walter, com essa de 'Para os feras' me lembrei de uma pérola que rolou
numas das listas uma vez, saiu no meio de uma flame war, mas eu ri muito, e
tô rindo agora só de lembrar. Se seguiu mais ou menos assim:

- Um camarada tinha postado uma msg e colocado esse subject enfadonho 'Para
os feras' ou bem parecido
- Alguém muito mau humorado disse que se era 'pros feras' que ele fosse ao
zoológico. A tirada foi velhinha, mas é boa.
- Aí o primeiro se sentiu ofendido, e disse que quando fosse ao zoológico,
iria visitar a vaca da mãe do segundo indivídio. Chamou a mãe do cara de
vaca, e não o animal, entenderam né...
- Aí alguém deu o golpe de misericórdia no desbocado, e perguntou: 'Ué, vaca
no zoológico?'

ahushushusausahusahsasahusah, gente isso se passou numa das listas da vida
aí

[]
Andrei


2009/4/19 Walter Chagas (Bol) wchag...@bol.com.br

 E pior, entra ano sai ano, entra associado sai associado e isso não muda.
 Quando eles não postam aqueles subjects scrotos tais como Para os feras,
 para os mestres para os cobras, etc...

 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br
 http://www.geocities.com/SiliconValley/Bay/1058
 http://delphitocorporerm.blogspot.com/
 MSN: whitesock...@hotmail.com
 SKYPE: WalterChagasJr




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



[delphi-br] Re: Procedure no IB EXPERT(ajuda)

2009-04-21 Por tôpico Mário Antonio de A . Pagnozzi
Ricardo,

O nome da procedure em firebird não fica entre aspas (nem dupla nem simples), e 
não se usa varchar2 para firbird, use apenas varchar(n) onde 'n' é o numero Max 
de caracter que você deseja armazenar, se deixar apenas como varchar ele vai 
assumir '255' (padrão) o que não é recomendável fazer.

Espero ter ajudado

Mário

--- Em delphi-br@yahoogrupos.com.br, Ricardo Mendes rickba...@... escreveu

 Dae galerinha...td blz...
 Estou com o seguinte problema e to recorrendo a vcs...
 Eu costumo fazer esse tipo de procedure no oracle...e sempre ta tudo 100% 
 funcional...
 Mas agora preciso começar a usar o IB Expert para criar as procedures para a 
 Base em Firebird...e não estou conseguindo montar a procedure abaixo no IB 
 Expert...
 Alguém pode me ajudar?
 
 Att.:
 Ricardo
 
 
 CREATE OR REPLACE PROCEDURE SEL_FUNCIONARIO
 ( PFILIAL IN VARCHAR2,
   PCODIGO IN VARCHAR2,
   PNOME IN VARCHAR2,
   IOCURSOR OUT SYS_REFCURSOR
 ) AS
   SQL_CONSULTA VARCHAR2(1000);
   LNOME VARCHAR2(100);
 
 BEGIN
   SELECT REPLACE(PNOME, '+', '%') || '%' INTO LNOME FROM DUAL;
 
   SQL_CONSULTA := ' SELECT * ';
   SQL_CONSULTA := SQL_CONSULTA ||' FROM FUNCIONARIO ';
   SQL_CONSULTA := SQL_CONSULTA ||' WHERE 1 = 1 ';
 
   IF (PFILIAL IS NOT NULL) THEN
 SQL_CONSULTA := SQL_CONSULTA || ' AND FILIAL= ''' || PFILIAL ;
   END IF;
 
   IF (PCODIGO IS NOT NULL) THEN
 SQL_CONSULTA := SQL_CONSULTA || ' AND CODIGO = ''' || PCODIGO ;
   END IF;
 
   IF (LNOME IS NOT NULL) THEN 
 SQL_CONSULTA := SQL_CONSULTA || ' AND LOWER(NOME) LIKE LOWER( 
 '''||LNOME|| ''')';
   END IF;
 
   SQL_CONSULTA := SQL_CONSULTA || 'ORDER BY NOME ';
 
 OPEN IOCURSOR FOR SQL_CONSULTA;
 
 END SEL_FUNCIONARIO;





Re: [delphi-br] FastMM

2009-04-21 Por tôpico Joao Morais
2009/4/20 Edelson Regis de Lima edre...@ig.com.br:
 Salve Galera!

 O FastMM serve só para gerenciar, no período do desenvolvimento do sistema,
 se esquecemos de liberar algo da memória???
 Ou tem outras funcionalidades? Como deixar a aplicação mais leve, alocar
 memória, etc...
 Preciso pesquisar sobre o assunto, e até agora o que eu vi na internet são
 exemplos em que o cara esqueceu de liberar um objeto da memória, e o
 FastMM o avisa sobre isso.
 E eu gostaria de saber se a finalidade é só essa mesmo...

FastMM é um gerenciador de memória que trabalha mais rápido e de forma
mais otimizada do que o gerenciador padrão da Borland (até o Delphi
2005). Do Delphi2006 em diante, a Borland adotou o FastMM como seu
gerenciador de memória.

Joao Morais


[delphi-br] Sql Server 2005 Express em Rede

2009-04-21 Por tôpico Arrobba Sistemas
Boa tarde,

 

Estou tentando instalar o SQL Server 2005 Express em rede, mas na maquina
Cliente não estou

 

Conseguindo encontrar o Servidor pelo SQL Server Management, alguma dica ???

 

 

Qual é o mais indicado para acessar o banco de dados DbExpress ou DbGo ???

 

 

Obrigado pela ajuda

 

 

 

Antonio C. de M. Pires

 

 



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



Res: [delphi-br] Sql Server 2005 Express em Rede

2009-04-21 Por tôpico Sergio - Jundiaí / SP

Configurando o SQL Server Express para ser acessado via rede 
por Aldinei Sampaio - — posted at 17/12/2007 12:25 Última modificação
17/12/2007 12:25 
As opções de instalação padrão do Microsoft SQL Server Express não permitem
que a instância instalada seja acessada por outra máquina da rede. Para isso
 é necessário realizar algumas manobras:
a) Ativar o acesso remoto
(fonte: http://www.mcdbabrasil.com.br/modules
php?name=Newsfile=articlesid=400)
1. Inicie o SQL Server Surface Area através do menu Iniciar == Programas
== Microsoft SQL Server 2005 == Configuration Tools == SQL Server Surface
Area Configuration, 
2. Após iniciar o Surface Area, selecione a opção Surface Area Configuration
for Services and Connections,
3. Selecione o nó SQLEXPRESS,
4. Em Database Engine clique sobre Remote Connections,
5. Selecione a opção Local and remote connections, 
6. Certifique-se de também deixar selecionada a opção Using TCP/IP only.
Esta opção permitirá que o SQL Express passe a aceitar conexões TCP/IP.
7. Depois de ativar a comunicação TCP/IP, selecione o nó SQL Server Browser,
8. Em Service clique em Start (iniciar) para iniciar o serviço. Este serviço
é necessário para que as estações possam se conectar com sucesso ao SQL
Express caso ele não esteja usando a porta default 1433.
b) Adicionar exceções ao Firewall do Windows XP
No firewall do Windows XP (onde o SQL Express está instalado), adicione as
seguintes exceções:
- Porta UDP 1434
- C:\Arquivos de Programas\Microsoft SQL Server\90\Shared\sqlbrowser.exe



 
---Mensagem original---
 
De: Arrobba Sistemas
Data: 04/21/09 17:52:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Sql Server 2005 Express em Rede
 



Boa tarde,

Estou tentando instalar o SQL Server 2005 Express em rede, mas na maquina
Cliente não estou

Conseguindo encontrar o Servidor pelo SQL Server Management, alguma dica ???

Qual é o mais indicado para acessar o banco de dados DbExpress ou DbGo ???

Obrigado pela ajuda

Antonio C. de M. Pires

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



 

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



[delphi-br] Filtro SQL

2009-04-21 Por tôpico Sergio - Jundiaí / SP


Boa noite


estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves de um
no exempo abaixo.


DMAgenda.QControle.active := false;
DMAgenda.QControle.sql.clear;
DMAgenda.QControle.sql.add('select * from Controle where numinicial like ' +
#39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial');
DMAgenda.QControle.active := true;


Se alguem poder me dar uma luz agradeço

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



Re: [delphi-br] Filtro SQL

2009-04-21 Por tôpico Alexandre Rodrigues
DMAgenda.QControle.sql.add('select * from Controle where numinicial like 
' + #39 + '%' + CAMPO1 + '%' + #39+ ' or numinicial like ' + #39 + '%' + 
CAMPO2 + '%' + #39+ ' Order By Numinicial');

Seria isso?

Sergio - Jundiaí / SP escreveu:
 
 
 
 
 
 Boa noite
 
 
 estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves de um
 no exempo abaixo.
 
 
 DMAgenda.QControle.active := false;
 DMAgenda.QControle.sql.clear;
 DMAgenda.QControle.sql.add('select * from Controle where numinicial like ' +
 #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial');
 DMAgenda.QControle.active := true;
 
 
 Se alguem poder me dar uma luz agradeço
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 



[delphi-br] Cartões no Formulário

2009-04-21 Por tôpico Infogil

Olá Srs

   Estou Querendo Construir um formulário que mostre alguns registros de uma 
tabela de Funcionários, como: fotos, telefone, endereço e etc, como se fosse 
uns cartões de visita em uma tabela em que cada célula fosse um cartão.

Eu poderia criar isso em HTML, mas eu queria em um formulário do Windows mesmo.

Alguém poderia me dar uma dica de como fazer isso. 

Certo da Colaboração desde já agradeço. 

 

Gilvan Costa

Natal - RN


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



Res: [delphi-br] FastMM

2009-04-21 Por tôpico Silvio Clécio
Olá galera,

Eu queria(-o) o poder do FastMM4 no Lazarus, pq eu só deixo TForm1, ativo 
Project | Compiler Options ... | Linking | Use Heaptrc Unit (-gh), dou um F9, 
quando fecho aparece uma mensagem de erro, sem eu ter colocado nada no Form e 
nem na Unit. :(

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
BlogSite: http://silvioprog.blogspot.com/
BlogSpot: http://silvioclecio.blogspot.com/
VirtualDriver: http://silvioprog.4shared.com/
°oO| Seja livre, use Linux! |Oo°




De: Joao Morais jcmorai...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 21 de Abril de 2009 16:50:32
Assunto: Re: [delphi-br] FastMM


2009/4/20 Edelson Regis de Lima edre...@ig.com. br:

 Salve Galera!

 O FastMM serve só para gerenciar, no período do desenvolvimento do sistema,
 se esquecemos de liberar algo da memória???
 Ou tem outras funcionalidades? Como deixar a aplicação mais leve, alocar
 memória, etc...
 Preciso pesquisar sobre o assunto, e até agora o que eu vi na internet são
 exemplos em que o cara esqueceu de liberar um objeto da memória, e o
 FastMM o avisa sobre isso.
 E eu gostaria de saber se a finalidade é só essa mesmo...

FastMM é um gerenciador de memória que trabalha mais rápido e de forma
mais otimizada do que o gerenciador padrão da Borland (até o Delphi
2005). Do Delphi2006 em diante, a Borland adotou o FastMM como seu
gerenciador de memória.

Joao Morais   


  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] FastMM

2009-04-21 Por tôpico Silvio Clécio
Olá galera,

Edelson, até onde eu sei o FastMM é só para gerenciar memória.

Um dica: quando vc for entregar o sistema ao cliente, remova FastMM4 da 
cláusula uses, pq se der um pepino o teu cliente vai achar a mensagem de erro 
um tanto _cabiluda_ :D

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
BlogSite: http://silvioprog.blogspot.com/
BlogSpot: http://silvioclecio.blogspot.com/
VirtualDriver: http://silvioprog.4shared.com/
°oO| Seja livre, use Linux! |Oo°




De: Edelson Regis de Lima edre...@ig.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 21 de Abril de 2009 12:31:29
Assunto: Re: [delphi-br] FastMM


Olá Silvio.

Não, pelo contrário, eu acho isso bom pra caramba!!! Um recurso
indispensável para quem quer aumentar a performance da aplicação, eliminando
possíveis vazamentos de memória, e consequentemente eliminando problemas
futuros.
A minha dúvida é se o FastMM tem mais algum recurso além do que voce mostrou
no exemplo (o que já é muito).
Tipo, tirando as configurações do FastMM4Options. inc, o qual podemos
configurar a nosso gosto, há mais alguma coisa que podemos fazer com o
FastMM?
E obrigado pelo e-mail! Já recebi aqui. :-)

Abraços,

Edelson.   


  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] Cartões no Formulário

2009-04-21 Por tôpico Edu Nicácio
Olá.

Algo parecido com o que você quer saiu em uma edição da Clube Delphi, em que o 
Adriano Santos mostrava como trabalhar com webcams no Delphi.

O código-fonte deve estar disponível no site da revista. Vale a pena dar uma 
olhada lá.

Abraço.

Eduardo Nicácio
http://www34.brinkster.com/ecnsoft


  - Original Message - 
  From: Infogil 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 21, 2009 6:27 PM
  Subject: [delphi-br] Cartões no Formulário






  Olá Srs

  Estou Querendo Construir um formulário que mostre alguns registros de uma 
tabela de Funcionários, como: fotos, telefone, endereço e etc, como se fosse 
uns cartões de visita em uma tabela em que cada célula fosse um cartão.

  Eu poderia criar isso em HTML, mas eu queria em um formulário do Windows 
mesmo.

  Alguém poderia me dar uma dica de como fazer isso. 

  Certo da Colaboração desde já agradeço. 

  Gilvan Costa

  Natal - RN

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



  


--



  No virus found in this incoming message.
  Checked by AVG - www.avg.com 
  Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 
17:56:00

  --


  --


No virus found in this outgoing message.
Checked by AVG - www.avg.com 
Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 
17:56:00


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



Re: [delphi-br] FastMM

2009-04-21 Por tôpico Joao Morais
2009/4/21 Silvio Clécio silviop...@yahoo.com.br:
 Olá galera,

 Edelson, até onde eu sei o FastMM é só para gerenciar memória.

 Um dica: quando vc for entregar o sistema ao cliente, remova FastMM4 da 
 cláusula
 uses, pq se der um pepino o teu cliente vai achar a mensagem de erro um 
 tanto
 _cabiluda_ :D

Por padrão o FastMM só reporta vazamentos se encontrar a IDE na
memória. Ainda assim vale a pena ter o FastMM no projeto por ser um
gerenciador de memória melhor do que o da Borland, mas configurar o
FastMMOptions.inc corretamente para não trabalhar em modo de depuração
e não apresentar mensagens de erro.

Joao Morais


Re: [delphi-br] Filtro SQL

2009-04-21 Por tôpico Ricardo César Cardoso
Olha... esse código funciona, mas fica um pouco difícil de ler, não?

Não testei, mas não dá pra escrever assim:

[ code ]
DMAgenda.QControle.SQL.Add( ' Select * From Controle Where numinicial like 
%:CAMPO1% Or numinicial like %:CAMPO2% Order By numinicial ' );
DMAgenda.QControle.Params[0].AsString :=  
variavel_ou_controle_que_alimenta_CAMPO1 ;
DMAgenda.QControle.Params[1].AsString :=  
variavel_ou_controle_que_alimenta_CAMPO2 ;
[ /code ]

Em caso negativo, desconsiderar essa mensagem.

Atte,
Ricardo.

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

--- Em ter, 21/4/09, Alexandre Rodrigues alexandre_rodrigues_...@yahoo.com.br 
escreveu:
De: Alexandre Rodrigues alexandre_rodrigues_...@yahoo.com.br
Assunto: Re: [delphi-br] Filtro SQL
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 21 de Abril de 2009, 19:21
















  
  DMAgenda.QControle. sql.add(' select * from Controle where numinicial 
like 

' + #39 + '%' + CAMPO1 + '%' + #39+ ' or numinicial like ' + #39 + '%' + 

CAMPO2 + '%' + #39+ ' Order By Numinicial') ;



Seria isso?



Sergio - Jundiaí / SP escreveu:

 

 

 

 

 

 Boa noite

 

 

 estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves de um

 no exempo abaixo.

 

 

 DMAgenda.QControle. active := false;

 DMAgenda.QControle. sql.clear;

 DMAgenda.QControle. sql.add(' select * from Controle where numinicial like ' +

 #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial') ;

 DMAgenda.QControle. active := true;

 

 

 Se alguem poder me dar uma luz agradeço

 

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

 

 




 

  




 

















  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: Res: Re: [delphi-br] Filtro SQL

2009-04-21 Por tôpico Alexandre Rodrigues
Então seria assim.

DMAgenda.QControle.sql.add('select * from Controle where numinicial like
  ' + #39 + '%' + edit3.text + '%' + #39+ ' or Bloco like ' + #39 + '%' 
+ edit3.text + '%' + #39+ ' Order By Numinicial');


Sergio - Jundiaí / SP escreveu:
  
 Alexandre
  
  
 Muito obrigado pela ajuda, mas eu coloquei errado no email
  
 nao me refiria a dois campos mas sim a duas colunas de minha tabela
  
  
 gostaria de buscar em duas colunas de uma tabela chamada controle
  
 sendo elas numinicial  e Bloco
  
  
 mesmo assim muito obrigado
  
  
  
  
  
 /---Mensagem original---/
  
 /*De:*/ Alexandre Rodrigues mailto:alexandre_rodrigues_...@yahoo.com.br
 /*Data:*/ 21/04/2009 19:22:07
 /*Para:*/ delphi-br@yahoogrupos.com.br mailto:delphi-br@yahoogrupos.com.br
 /*Assunto:*/ Re: [delphi-br] Filtro SQL
  
 
 
 DMAgenda.QControle.sql.add('select * from Controle where numinicial like
 ' + #39 + '%' + CAMPO1 + '%' + #39+ ' or numinicial like ' + #39 + '%' +
 CAMPO2 + '%' + #39+ ' Order By Numinicial');
 
 Seria isso?
 
 Sergio - Jundiaí / SP escreveu:
  
  
  
  
  
   Boa noite
  
  
   estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves 
 de um
   no exempo abaixo.
  
  
   DMAgenda.QControle.active := false;
   DMAgenda.QControle.sql.clear;
   DMAgenda.QControle.sql.add('select * from Controle where numinicial 
 like ' +
   #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial');
   DMAgenda.QControle.active := true;
  
  
   Se alguem poder me dar uma luz agradeço
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
  
   
 
 http://www.incredimail.com/app/?tag=default_stampid=522lang=22rui=113618969



Re: [delphi-br] Filtro SQL

2009-04-21 Por tôpico Infogil

tente assim:

With DMAgenda.QControle.SQL Do
Begin
Clear;
Add('Select * From Controle');
add('where numinicial like ' + #39 + '%' + edit3.text + '%' + 
#39+ ');
add('and campo2 like ' + #39 + '%' + editx.text + '%' + #39+ 
');// ou usar OR
add('order by Numinicial asc');
End;
try
DMAgenda.QControle.open;
except
DMAgenda.QControle.ExecSQL;
end;





  - Original Message - 
  From: Sergio - Jundiaí / SP 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 21, 2009 6:48 PM
  Subject: [delphi-br] Filtro SQL







  Boa noite 


  estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves de um
  no exempo abaixo. 


  DMAgenda.QControle.active := false; 
  DMAgenda.QControle.sql.clear; 
  DMAgenda.QControle.sql.add('select * from Controle where numinicial like ' +
  #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial'); 
  DMAgenda.QControle.active := true; 


  Se alguem poder me dar uma luz agradeço

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



  


--



  Internal Virus Database is out of date.
  Checked by AVG. 
  Version: 8.0.100 / Virus Database: 270.11.45/2045 - Release Date: 7/4/2009 
06:41


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



Res: Re: Res: Re: [delphi-br] Filtro SQL (resolvido)

2009-04-21 Por tôpico Sergio - Jundiaí / SP
Alexandre

Muito obrigado


 
---Mensagem original---
 
De: Alexandre Rodrigues
Data: 04/21/09 22:10:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: Re: [delphi-br] Filtro SQL
 



Então seria assim.

DMAgenda.QControle.sql.add('select * from Controle where numinicial like
' + #39 + '%' + edit3.text + '%' + #39+ ' or Bloco like ' + #39 + '%' 
+ edit3.text + '%' + #39+ ' Order By Numinicial');

Sergio - Jundiaí / SP escreveu:
 
 Alexandre
 
 
 Muito obrigado pela ajuda, mas eu coloquei errado no email
 
 nao me refiria a dois campos mas sim a duas colunas de minha tabela
 
 
 gostaria de buscar em duas colunas de uma tabela chamada controle
 
 sendo elas numinicial e Bloco
 
 
 mesmo assim muito obrigado
 
 
 
 
 
 /---Mensagem original---/
 
 /*De:*/ Alexandre Rodrigues mailto:alexandre_rodrigues_...@yahoo.com.br
 /*Data:*/ 21/04/2009 19:22:07
 /*Para:*/ delphi-br@yahoogrupos.com.br mailto:delphi...@yahoogrupos.com
br
 /*Assunto:*/ Re: [delphi-br] Filtro SQL
 
 
 
 DMAgenda.QControle.sql.add('select * from Controle where numinicial like
 ' + #39 + '%' + CAMPO1 + '%' + #39+ ' or numinicial like ' + #39 + '%' +
 CAMPO2 + '%' + #39+ ' Order By Numinicial');
 
 Seria isso?
 
 Sergio - Jundiaí / SP escreveu:
 
 
 
 
 
  Boa noite
 
 
  estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves 
 de um
  no exempo abaixo.
 
 
  DMAgenda.QControle.active := false;
  DMAgenda.QControle.sql.clear;
  DMAgenda.QControle.sql.add('select * from Controle where numinicial 
 like ' +
  #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial');
  DMAgenda.QControle.active := true;
 
 
  Se alguem poder me dar uma luz agradeço
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 
 http://www.incredimail
com/app/?tag=default_stampid=522lang=22rui=113618969



 

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



Res: Re: [delphi-br] Filtro SQL

2009-04-21 Por tôpico Sergio - Jundiaí / SP

Ricardo


Muito obrigado pela ajuda  



 
---Mensagem original---
 
De: Ricardo César Cardoso
Data: 21/04/2009 22:02:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Filtro SQL
 



Olha... esse código funciona, mas fica um pouco difícil de ler, não?

Não testei, mas não dá pra escrever assim:

[ code ]
DMAgenda.QControle.SQL.Add( ' Select * From Controle Where numinicial like
%:CAMPO1% Or numinicial like %:CAMPO2% Order By numinicial ' );
DMAgenda.QControle.Params[0].AsString := 
variavel_ou_controle_que_alimenta_CAMPO1 ;
DMAgenda.QControle.Params[1].AsString := 
variavel_ou_controle_que_alimenta_CAMPO2 ;
[ /code ]

Em caso negativo, desconsiderar essa mensagem.

Atte,
Ricardo.

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

--- Em ter, 21/4/09, Alexandre Rodrigues alexandre_rodrigues_...@yahoo.com
br escreveu:
De: Alexandre Rodrigues alexandre_rodrigues_...@yahoo.com.br
Assunto: Re: [delphi-br] Filtro SQL
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 21 de Abril de 2009, 19:21

DMAgenda.QControle. sql.add(' select * from Controle where numinicial like 

' + #39 + '%' + CAMPO1 + '%' + #39+ ' or numinicial like ' + #39 + '%' + 

CAMPO2 + '%' + #39+ ' Order By Numinicial') ;

Seria isso?

Sergio - Jundiaí / SP escreveu:

 

 

 

 

 

 Boa noite

 

 

 estou fazendo um filtro SQL, mas gostaria de pegar 2 campos ao inves de um

 no exempo abaixo.

 

 

 DMAgenda.QControle. active := false;

 DMAgenda.QControle. sql.clear;

 DMAgenda.QControle. sql.add(' select * from Controle where numinicial like
' +

 #39 + '%' + edit3.text + '%' + #39+ ' Order By Numinicial') ;

 DMAgenda.QControle. active := true;

 

 

 Se alguem poder me dar uma luz agradeço

 

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

 

 











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]



 

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



Re: [delphi-br] Re: pouco por um sistema!!!

2009-04-21 Por tôpico Andy
Me ajudem com essa conta: R$100,00 para fazer 20% de um sisteminha, que
expresso em horas dá 2 horas.
Bom, aplicando a famosa regra de três:
20% - 2h --- 100% - 10h
20% - R$100,00 --- 100% - R$500,00

Conclusão: Um sistema que custa R$500,00 e leva 10h para ser desenvolvido É
um SISTEMINHA mesmo.

Na faculdade um exercício, de uma matéria demorava mais que isso...


[]'s

2009/4/20 carneirofsa carneiro_...@ig.com.br



 Concordo com Mário e ainda acrescento:

 8 - Programinha: Desenvolvedor não faz programinha, quem faz programinha é
 prostituta barata. Desenvolvedor faz software.

 um abraço,

 Carneiro

 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Mário Antonio de A. Pagnozzi mario.antonio.pagno...@... escreveu

 
  Amigos,
 
  Precisamos mudar alguns conceitos como:
 
  1 - Projetinho: Desenvolvedor não faz projetinho, faz projetos;
  2 - Sisteminha: Sisteminha se faz em laboratório é coisa de estudante ou
 aprendiz, desenvolvedor desenvolve sistemas.
  3 - Em questão de salário e valor do seu sistema, alguem já ouviu falar
 me APF?(Analise de Ponto de Função). Com ele é possivel medir o tamanho do
 seu sistema, horas de trabalho, tempo, e então tirar a base de quanto um
 analista ou desenvolvedor merece ganhar por hora.
  4 - Temos que valorizar nossa classe, ou vamos ficar igual formandos de
 odontologia (não querendo denigrir esta classe e respeitando muito, mais
 apenas o que realmente acontece) vendendo orçamento e serviços em praças
 comerciais com folhetins por um valor de 5 reais.
  6 - no caso de um sistema operacional (SO) que foi citado aqui na lista,
 a questão é: Ele vai para as prateleiras (pois é um software de prateleira)
 por 400 - 500 rais (alguns custam bem mais), valor este cobrado por licença,
 porém alguem saberia falar o valor real para o desenvolvimento de um SO ??
  7 - O valor de um programador (lógico que depende de região), como dito
 aqui é de 50 - 100 reais a hora (para o interior), de um DBA é de 200-400
 reais/hora (também para interior).
  NÃO VAMOS TRABALHAR POR ESMOLAS - VAMOS VALORIZAR NOSSA CLASSE, porque
 embora não parece somos uma classe.
 
  Abraços a todos.
 
  --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Alexandre Rodrigues alexandre_rodrigues_poa@ escreveu
  
   Me desculpe, mas não acredito que uma pessoa, por mais ocupada que
 seja,
   não disponha de 2 horas para terminar um sistema!
  
  
   jamilton oliveira felix escreveu:
   
   
   
   
O MAIS ENGRAÇADO AMIGOS E QUE EM 1 A 2 HORAS NO MAXIMO DE TRABALHO ,
PARA COMCLUIR O PROJETO RSRRSRS ERA ISSO JA ESTAVA COM O PROJETO
 QUASE
PRONTO MAS POR FALTA DE TEMPO RESOLVI POSTAR AQUI PARA UM FREE , MAS
TUDO BEM E ISSO AI NAO ESTOU DENIGRINDO O TRABALHO DE
 DESENVOLVEDORES,
SOU ESTUDANDO DE CIENCIA DA COMPUTAÇAO POIS NAO TENHO MUINTA
 EXPERIENCIA
COM OOP MAS ENTENDO E CRIO ALGUMAS COISAS, ME DEDICO MAIS A A
ESTRUTURADA EM C E C ++ MAS EM TODO CASO OBRIGADO A TODOS E UM BOM
 DIA.
   
   
To: delphi-br@yahoogrupos.com.br 
delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
From: hudson_dias@ 
mailto:hudson_dias%40yahoo.com.brhudson_dias%2540yahoo.com.br
 
Date: Sun, 19 Apr 2009 16:20:15 -0300
Subject: Re: [delphi-br] pouco por um sistema!!!
   
kakaka,
   
Uma garota de programa cobra + / - 100,00 a hora (uma que da gosto),
 é
so parar para pensar, se elas cobram isso para fazer sacanagem, então

podemos cobrar 50,00 por hora, pois é um investimento na sua empresa,

vejo empresários comprando celulares, iphone de 2 a 4 mil reais e
fazerem o absurdo na hora de pagar um sistema que ira servir para o
crescimento de sua empresa...
   
A culpa disso são os carinhas que pegam uma apostila em algum site
qualquer estudam no final de semana, depois sai dizendo que faz
 sistemas
sem conhecer a complexidade...
   
quando algum dono de empresa me fala isso, a minha resposta e a
 mesma,
pode procurar o carinha barateiro, sabendo que ira ser um laboratório
 na
mao do mesmo...kkakakaka
   
não quero ofender ninguém e cada um tem o seu valor, porem venho
acompanhando a lista, e vejo que so tem associados de bons
 conhecimentos
ou seja, o seu salário e igual ou maior que 50,00 a hora...
   
- Original Message -
From: Iran Lima
To: delphi-br@yahoogrupos.com.br 
delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Sent: Sunday, April 19, 2009 11:46 AM
Subject: RES: [delphi-br] pouco por um sistema!!!
   
Essa é boa, daqui a pouco ele quer que alguém faça um SO pra ele por
 200
Reais.
   
De: delphi-br@yahoogrupos.com.br 
delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br