posicionando no grid

Question

Oi, Galera. J� pesquisei sobre o assunto no site, mas n�o consegui achar nada que me responda o que eu preciso.Usando Delphi 6, e componentes da paleta interbase.Como posso fazer o dbgrid ficar mostra...

Bruno Belchior · Answer

voc� pode usas o componente ClientDataSet e executar a pesquisa depois vc d� um locate no resultado do ClientDataSet com o nome indicado......

Salupe · Answer

Obrigado pela ajuda, mas isso eu j� fiz, a localiza��o do registro est� feita.

O problema � fazer o ponteiro ficar na 1� linha do dbgrid.

Preciso fazer com que ao fazer o locate, o dbgrid posicione o registro no primeiro lugar da tela.

Alguem sabe

Salupe · Answer

sobe...

R�mulo Barros · Answer

Salupe, para este exemplo que vou descrever agora, vamos supor que o campo NOME seja o campo �procurado� e o campo MATRICULA seja a chave prim�ria de nossa tabela. Segue:

procedure TForm1.Button1Click(Sender: TObject);
begin
   With(ClientDataSet1)Do
   Begin
      If(Locate(�NOME�,Edit1.Text,[loPartialKey]))Then
      Begin
         Filter := �MATRICULA >= � + FieldByName(�MATRICULA�).AsString;
         IndexFieldNames := �MATRICULA�;
         Filtered := True;
      End
      Else
        Begin
           If(Locate(�NOME�,Edit1.Text[1],[loPartialKey]))Then
           Begin
              Filter := �MATRICULA >= � + FieldByName(�MATRICULA�).AsString;
              IndexFieldNames := �MATRICULA�;
              Filtered := True;
           End
           Else
             MessageDlg(�N�o existem registros que comecem com a letra � + Edit1.Text[1],mtInformation,[mbOk],0);
        End;
   End;
end;

end.

:arrow: [color=red:b757f0c4f7][b:b757f0c4f7]N�o esque�e, ao final, de desfazer o filtro.[/b:b757f0c4f7]
:wink: :wink: [/color:b757f0c4f7]

F�rum posicionando no grid #270555