[delphi-br] Re: Impressão em bandejas diferentes - Quick Report

2005-10-19 Por tôpico Ricardo Vicente
Olá, novamente.
 
Alguém consegue resolver isso ?
 
Obrigado.
 
Ricardo

Ricardo Vicente [EMAIL PROTECTED] escreveu:
Olá.
 
Possuo uma impressora N40 da Xerox com duas bandejas.
Quando eu configuro a impressão (quick Report) para sair na bandeja 2 (outro 
papel), a impressão insiste em sair na bandeja 1.
O estranho é que outros aplicativos (Word, Excel) a impressão obedece a bandeja 
configurada.
 
Alguém tem alguma dica ?
 
Ricardo
 
 


 


-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 






Re: [delphi-br] Re: Catracas online

2005-09-13 Por tôpico Ricardo Vicente
Pois é, Marcelo... 
 
Por incrível que pareça, existe (existiu) um leitor e uma catraca de uma 
empresa chamada XPTO. Essa empresa fica na Rua Américo Brasiliense ( Sto Amaro 
) em São Paulo. Hj quem representa é a Trix (www.trixtec.com.br).
 
Ricardo


Marcelo Moacir Florindo [EMAIL PROTECTED] escreveu:
qual catraca??
eu fiz para academia... e funciona onlineé uma bala...heheheh

Marcelo
- Original Message - 
From: Ricardo Vicente [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 1:51 PM
Subject: Re: [delphi-br] Re: Catracas online


Olá !

Eu desenvolvi um sistema assim para um clube e as informações eram online, 
ou seja, o associado ( no seu caso aluno) passava a carteirinha no leitor 
que mandava uma mensagem para o micro interpretar, processar e devolver a 
mensagem (libera ou não) para a catraca.
Eu desenvolvi isso em Clipper em 96 e utilizei o leitor e catraca da XPTO( 
nem sei se essa empresa está atuando ainda).

Qquer coisa, me escreva em pvt.

Ricardo

Ricardo Vieira [EMAIL PROTECTED] escreveu:
Estou desenvolvendo uma ferramenta para um cliente.. uma escola.. que
está pensando em colocar catracas na entrada de alunos.. eu já
conheço algumas que não são online tipo você carrega os dados e ela
autentica o dia.. mas tem algumas que são online.. ela libera
conforme o sistema manda.. ou uma dll ... embutida no sistema...
como tenho o software escolar.. gostaria de saber se alguém já fez
esse tipo de serviço e poderia me dar uma ajuda com dicas de como
proceder para controlar a catraca via meu sistema.

Obrigado pela ajuda.

Desde já agradeço

Ricardo
[EMAIL PROTECTED]

--- Em delphi-br@yahoogrupos.com.br, NextCorp Informatica
[EMAIL PROTECTED] escreveu
 Oque vc esta precisando ?

 Atenciosamente

 Washington A. Müller da Silva

 #
 NextCorp Informática Ltda
 www.nextcorp.com.br
 [EMAIL PROTECTED]
 0 xx (51)-589-3690
 
 - Original Message - 
 From: Ricardo Vieira [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, August 29, 2005 2:50 PM
 Subject: [delphi-br] Catracas online


 Alguém já trabalhou ou trabalha com sistema para catracas online
que possa me dar umas dicas ???

 Desde já agradeço.

 Obrigado

 Ricardo
 RvInfoSistemas
 [EMAIL PROTECTED]

 __
 Converse com seus amigos em tempo real com o Yahoo! Messenger
 http://br.download.yahoo.com/messenger/

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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










 -- 
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.0.344 / Virus Database: 267.10.16/83 - Release Date:
26/08/2005




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!.



-
Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 
Participe!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos














-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new 
Array();lrec_URL[1]=http://br.rd.yahoo.com/SIG=12f59bgko/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126579481/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);var
 
lrec_altURL=http://br.rd.yahoo.com/SIG=12f59bgko/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126579481/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;var
 lrec_width=300;var

Re: [delphi-br] Re: Catracas online

2005-09-12 Por tôpico Ricardo Vicente
Olá !
 
Eu desenvolvi um sistema assim para um clube e as informações eram online, ou 
seja, o associado ( no seu caso aluno) passava a carteirinha no leitor que 
mandava uma mensagem para o micro interpretar, processar e devolver a mensagem 
(libera ou não) para a catraca.
Eu desenvolvi isso em Clipper em 96 e utilizei o leitor e catraca da XPTO( nem 
sei se essa empresa está atuando ainda).
 
Qquer coisa, me escreva em pvt.
 
Ricardo

Ricardo Vieira [EMAIL PROTECTED] escreveu:
Estou desenvolvendo uma ferramenta para um cliente.. uma escola.. que 
está pensando em colocar catracas na entrada de alunos.. eu já 
conheço algumas que não são online tipo você carrega os dados e ela 
autentica o dia.. mas tem algumas que são online.. ela libera 
conforme o sistema manda.. ou uma dll ... embutida no sistema...
como tenho o software escolar.. gostaria de saber se alguém já fez 
esse tipo de serviço e poderia me dar uma ajuda com dicas de como 
proceder para controlar a catraca via meu sistema.

Obrigado pela ajuda.

Desde já agradeço

Ricardo
[EMAIL PROTECTED]

--- Em delphi-br@yahoogrupos.com.br, NextCorp Informatica 
[EMAIL PROTECTED] escreveu
 Oque vc esta precisando ?
 
 Atenciosamente
 
 Washington A. Müller da Silva
 
 #
 NextCorp Informática Ltda
 www.nextcorp.com.br
 [EMAIL PROTECTED]
 0 xx (51)-589-3690
 
 - Original Message - 
 From: Ricardo Vieira [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, August 29, 2005 2:50 PM
 Subject: [delphi-br] Catracas online
 
 
 Alguém já trabalhou ou trabalha com sistema para catracas online 
que possa me dar umas dicas ???
 
 Desde já agradeço.
 
 Obrigado
 
 Ricardo
 RvInfoSistemas
 [EMAIL PROTECTED]
 
 __
 Converse com seus amigos em tempo real com o Yahoo! Messenger
 http://br.download.yahoo.com/messenger/
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 Links do Yahoo! Grupos
 
 
 
 
 
 
 
 
 
 
 -- 
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.0.344 / Virus Database: 267.10.16/83 - Release Date: 
26/08/2005




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



-
 Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 
Participe!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: RES: [delphi-br] Off Topic - Programa para win2000

2005-07-28 Por tôpico Ricardo Vicente
Vc pode copiar o MSCONFIG.EXE do Windows XP e colar no Windows 2000
 
Ricardo


Rodrigo Tognin [EMAIL PROTECTED] escreveu:
Eu não conheço, mas eu retiro eles pelo registro (cuidado!!!)

No executar digite regedit

Abra a chave:
HKEY_LOCAL_MACHINE/SOFTWARE/MICROSOFT/WINDOWS/CURRENTVERSION/RUN

Todos os itens desativados pelo msconfig vão parar dentro da chave RUN-, mas
no Windows 2000 eu não sei se ele faz isso.

É isso aí

Rodrigo Tognin

  - Original Message -
  From: Eduardo Silva ®
  To: Grupo Delphi-br
  Sent: Thursday, July 28, 2005 8:48 AM
  Subject: [delphi-br] Off Topic - Programa para win2000


  Galera, no windows 98, a gente digitava na linha de comando msconfig e ele
  abria uma tela pra gente verificar quais programas iniciavam com o windows
e
  outras configurações que ajudavam a melhorar o desempenho do mesmo.

  Qual é este programa no windows 2000 ?

  ~\\|//~
  -(o o)-
  o--oOOOo--(_)--oOOOo-o
  ||
  |   Eduardo de Almeida Silva |
  |   Câmara Municipal de Lençóis Paulista |
  |  [EMAIL PROTECTED]  -   (14)3263-0326   |
  ||
  |.oooO   Oooo.   |
  o(   )---(   )---o
\ ( ) /
 \_)   (_/



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.





--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/07/2005


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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





=?iso-8859-1?q?Re:=20[delphi-br]=20Problema=20com=20rel=F3gio...?=

2005-05-11 Por tôpico Ricardo Vicente
Olá, Eduardo.
 
Substitua as linhas 
   XCenter := ClientWidth div 2;
   YCenter := ClientHeight div 2;
por 
   XCenter := 200;
   YCenter := 200; 
ou então pelas coordenadas onde vc quer deixar o relógio.
 
Ricardo
  

Eduardo Silva ® [EMAIL PROTECTED] escreveu:
Tenho esse código e gostaria de poder criar o relógio em qualquer parte do
form e não somente no centro
Pois eu queria colocar ao lado dele um calendário, alguém pode me dar uma
mão?


procedure TForm1.Timer1Timer(Sender: TObject);
var
   HSec: Word; {valor temporário, não utilizado}
begin
   {obtém a hora do sistema}
   DecodeTime (Time, Hour, Minute, Second, HSec);
   Refresh;
end;

// Evento OnPaint do componente Form
procedure TForm1.FormPaint(Sender: TObject);
var
   Angle : Real;
   I, X, Y, Size : Integer;
begin
   {calcula o centro do formulário}
   XCenter := ClientWidth div 2;
   YCenter := ClientHeight div 2;
   if XCenter  YCenter then
  Radius := YCenter - 10
   else
  Radius := XCenter - 10;

   {0. Desenha o marcador de horas}
   Canvas.Pen.Color   := clBlue;
   Canvas.Brush.Color := clBlue;
   Size := Radius div 100;
   for I := 0 to 11 do
   begin
  Angle := 2 * Pi * I / 12;
  X := XCenter - Round (Radius * Cos (Angle));
  Y := YCenter - Round (Radius * Sin (Angle));
  Canvas.Ellipse (X - Size, Y - Size, X + Size, Y + Size);
   end;

   {1. Desenha o ponteiro dos minutos}
   Canvas.Pen.Width := 2;
   Canvas.Pen.Color := clBlue;
   Angle := 2 * Pi * Minute / 60;
   DrawHand (XCenter, YCenter, Radius * 90 div 100, 0, Angle);

   {2. Desenha o ponteiro das horas: percentual dos minutos adicionado à
   hora para mover o ponteiro suavemente}
   Angle := 2 * Pi * (Hour + Minute / 60) / 12;
   DrawHand (XCenter, YCenter,
   Radius * 70 div 100, 0, Angle);

   {3. Desenha o ponteiro dos segundos}
   Canvas.Pen.Width := 1;
   Canvas.Pen.Color := clRed;
   Angle := 2 * Pi * Second / 60;
   DrawHand (XCenter, YCenter, Radius,
   Radius * 30 div 100, Angle);
end;

procedure TForm1.DrawHand (XCenter, YCenter, Radius, BackRadius: Integer;
Angle: Real);
begin
   Angle := (Angle + 3*Pi/2);
   Canvas.MoveTo (
   XCenter - Round (BackRadius * Cos (Angle)),
   YCenter - Round (BackRadius * Sin (Angle)));
   Canvas.LineTo (
   XCenter + Round (Radius * Cos (Angle)),
   YCenter + Round (Radius * Sin (Angle)));
end;

// Evento OnResize do Form
procedure TForm1.FormResize(Sender: TObject);
begin
   Refresh;
end;

// Evento OnCreate do Form
procedure TForm1.FormCreate(Sender: TObject);
begin
   {lê as horas antes do formulário ser exibido}
   Timer1Timer(self);
end;

~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 

-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




=?iso-8859-1?q?Re:=20[delphi-br]=20Mudar=20ordena=E7=E3o=20dasz=20colunas?= =?iso-8859-1?q?=20clicando=20no=20t=EDtulo=20do=20dbgrid?=

2005-05-08 Por tôpico Ricardo Vicente
Olá !

Você pode usar o DBGrid mesmo, usando ClientDataSet.
 
No Evento OnTitleClick coloque :
 DATAMODULE.TabelaDoClientDataSet.IndexFieldNames:=Column.FieldName;
LabelDaBusca.Caption:='Busca por '+Column.Title.Caption;


Ricardo

Celso Redes [EMAIL PROTECTED] escreveu:
Utilize o grid  Jvdbgrid e no evento  On title click   



Procedure TForm1.JvDBGrid1TitleClick(Column: TColumn);
begin

CASE Column.Index OF

0: SimpleDataSet1.IndexFieldNames:= 'CODIGO';
1: SimpleDataSet1.IndexFieldNames:= 'NOME';
2: SimpleDataSet1.IndexFieldNames:= 'ENDERECO';
3: SimpleDataSet1.IndexFieldNames:= 'BAIRRO';
end;

end;

obs. Setar para  TRUE  a  opção TitleButtons.



  Celso   Redes

- Original Message - 
  From: Eduardo Silva ® 
  To: Grupo Delphi-br 
  Sent: Friday, May 06, 2005 10:27 AM
  Subject: [delphi-br] Mudar ordenação dasz colunas clicando no título do dbgrid


  Galera tenho o código abaixo que serve para mudar a ordenação do dbgrid
  conforme eu clico na coluna.

  Só que no dbgrid, para exibir os dados eu uso um datamodule com tabelas.

  Eu gostaria de saber se existe algum outro meio de estar ordenado estas
  colunas, pois do jeito que está baixo, eu tenho que

  associar o dbgrid a outro datasource, mudar os displaylabel e quando for
  fazer alguma operação na tabela (incluir, alterar,

  etc) eu tenho que voltar ao dataset anterior (tabela).

  Resumindo: é muita linha de programação que eu terei que fazer, não teria um
  jeito mais fácil e mais seguro de resolver isso ?

  var
 campo: string;
  begin
 campo:= column.fieldname; // CAMPO RECEBE O NOME DA COLUNA CLICADA
 application.processmessages; // CONSIDERAR ALGO QUE ACONTEÇA NO DBGRID
  DURANTE A ENTRADA NESTA PROCEDURE
 query.sql.clear; // LIMPA A QUERY
 query.sql.add('SELECT * FROM TABELA ORDER BY ' + campo); // ESCREVE O
  SELECT COM O ORDER BY
 if not query.Prepared then
 begin
query.Prepare;
query.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA.
DBGrid.DataSource := DataSource1;
 end;
  end;

  ~\\|//~
  -(o o)-
  o--oOOOo--(_)--oOOOo-o
  ||
  |   Eduardo de Almeida Silva |
  |   Kobra Sistemas   |
  |  [EMAIL PROTECTED]  -   (14)3263-0326   |
  ||
  |.oooO   Oooo.   |
  o(   )---(   )---o
\ ( ) /
 \_)   (_/



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 

-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html