Ordenar DBGrid

Question

Fala galera, esse eh meu primeiro post de muitos outros.... hehe... ainda sou novato no Delphi, mas assim q tiver condi��es espero poder contribuir muito c/ o Forum. Bom, vamos a minha duvida:Tenho um...

Otto · Answer

ja que vc ta usando um radiogroup eu faria assim:

No OnClick no radiogroup vc faz:

With query1 do Begin
  if active then close;
  case radiogroup.itemindex of
     0: SQL.Text := �Select * from tabela order by nome�;  
     1: SQL.Text := �Select * from tabela order by endereco�;  
     2: SQL.Text := �Select * from tabela order by cidade�;  
     3: SQL.Text := �Select * from tabela order by telefone�;  
  End;//Case
  Open; // Abrir query
End; // with

no radio gorup, os itens tem que esta assim:

Nome, Endereco, Cidade e telefone. olhando ai vc vai ter a ideia.... :wink:

Mascarade · Answer

Valeu cara, mas na hora q eu clico no radio ele nao atualiza automaticamente....[]s DB! :twisted:...

Otto · Answer

blz, ent�o me faz o seguinte, cola aqui o codigo, os itens que vc tem no radiogroup e os campos que vc tem na tabela...  :wink:...

Mascarade · Answer

campos da tabela: Data, Produto, Statuscampos do RadioGroup: Data, Produto, Pago, N�o Pagosendo q o pago e n�o pago deveria ser uma consulta c/ ASC e DESC consecutivamente.[]s DB! :twisted:...

Otto · Answer

ok, fa�a o seguinte teste:[code:1:a2163c4257]With query1 do Begin   if active then close;   case radiogroup.itemindex of      0: SQL.Text := �Select * from NomeDaTabela order by data�;       1: SQL.Text := �Select * from NomeDaTabela order by produto�;       2: SQL.Text := �Select * from NomeDaTabela order by status�;    End;//Case   Open; // Abrir query End; // with[/code:1:a2163c4257]verifique se a query ta ligada no componente de conex�o com o banco, e se o dbgrid ta ligado ao datasource e o datasource ligado a query.so coloquei pra organizar por Data, produto e status...testa e ver no que que dar...  :wink:...

Mascarade · Answer

Entao cara, eu jah tinha feito dessa meneira qdo vc colocou ai... mas qdo eu clico na opcao, ele nao ordena na hora, ele fica st�tico, como ele abriu....  :oops: []s DB! :twisted:...

Otto · Answer

Olha, aqui em casa eu fiz assim, no ontitleclick do dbgrid:

procedure TfmConUsuario.DBGrid1TitleClick(Column: TColumn);
begin
  Screen.Cursor := crHourGlass;
  if zq1.Active then zq1.Active := false;

  Case Column.Index of
     0 : zq1.SQL.Text := �Select * from tbUsuarios Order by Nome�;
     1 : zq1.SQL.Text := �Select * from tbUsuarios Order by Login�;
    Else
       MessageBox(0,�N�o � permitido organizar por Este campo !�,�ORGANIZA��O�,
                    MB_OK+MB_ICONERROR);
  end; //case

  zq1.Open;
  Screen.Cursor := crDefault;
end;

funciona tudo Ok.... bom, pelo menos valeu a inten��o... :wink:

F�rum Ordenar DBGrid #237036