ActiveDelphi

[brunokchimbo]

Fala galera!!! Eu aqui de novo!

Gostaria de saber se alguém sabe me explicar qual é o código que eu uso para o DBGrid da minha aplicação ficar igual aquela função do Windows.
Aquela em que é só clicar no título da coluna que ela organiza em ordem alfabética de cima para baixo ou de baixo para cima!

Valeu galera!

[Keron]

SELECT nome, endereco FROM clientes ORDER BY nome DESC
SELECT nome, endereco FROM clientes ORDER BY nome ASC

por esses dois comandos dá para você tirar a base de como fazer
_________________
Filho de Deus
em Cristo Jesus

[renanvaz]

No evento OnTitleClick do dbGrid voce coloca este codigo.
ClientDataSet.IndexFieldNames := Column.FieldName;

Exemplo:
procedure TFormulario.dbGridTitleClick(Column: TColumn);
begin
ClientDataSet.IndexFieldNames := Column.FieldName;
end;

[renanvaz]

Achei este outro codigo que ordena decrescente..
o outro era so crescente..
se executar fora do delphi n da erro..
no delphi é so colocar pa continuar..
o erro é so uma "notificação"

procedure TFormulario.dbGridTitleClick(Column: TColumn);
var
indice: string;
existe: boolean;
begin
ClientDataset:= TClientDataset(Column.Grid.DataSource.DataSet);

if ClientDataset.IndexFieldNames = Column.FieldName then
begin
indice := AnsiUpperCase(Column.FieldName);

try
ClientDataset.IndexDefs.Find(indice);
existe := true;
except
existe := false;
end;

if not existe then
with ClientDataset.IndexDefs.AddIndexDef do begin
Name := indice;
Fields := Column.FieldName;
Options := [ixDescending];
end;
ClientDataset.IndexName := indice;
end
else
ClientDataset.IndexFieldNames := Column.FieldName;
end;

[brunokchimbo]

Não consegui usar esses códigos, talvez porque no meu form não tem DATASET.
Esqueci de informar que estou usando PARADOX.
Aluguém pode me ajudar?

[Keron]

Bom, faz muito tempo que não utilizo paradox mas dá uma estudada nesse tutorial. http://www.cefetrn.br/~gilbert/doc/prog_aula05.pdf acho que ele pode te ajudar

Outras dicas sobre banco de dados podem ser encontradas aqui http://www.tecnobyte.com.br/dica1.html
_________________
Filho de Deus
em Cristo Jesus

[adriano_servitec]

[brunokchimbo]

Olha, eu tentei isso mas só o primeiro e o segundo campos funcionam. O resto dos campos só provocam uma excessão e nem mudam pra ordem nenhuma.
A excessão diz que não existe FILE NAME INDEX para o campo ativado (CLICADO).

Devo rever as propriedades?
Devo criar outra vez o Form?
Alguém poderia me ajudar?

Valeu!

[brunokchimbo]

Galera, achei isso aí, ainda não testei, só vou testar amanhã no trabalho. Mas será que é isso mesmo?

http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg44253.html