TabControl - filtrando registros
:?: Olá a todos.
Tenho uma tabela com 120.000 registros.
Gostaria de usar TabControl, e cada Tab (aba)
correspondesse a uma letra do alfabeto.
Quando clicar em determinada letra o programa listasse num DBGrid apenas os registros que o campo nome inicie com a letra correspondente ao Tab selecionado.
Uso Paradox e Table, como posso fazer isso.
Muito obrigado.
Neto.
Tenho uma tabela com 120.000 registros.
Gostaria de usar TabControl, e cada Tab (aba)
correspondesse a uma letra do alfabeto.
Quando clicar em determinada letra o programa listasse num DBGrid apenas os registros que o campo nome inicie com a letra correspondente ao Tab selecionado.
Uso Paradox e Table, como posso fazer isso.
Muito obrigado.
Neto.
Neto
Curtidas 0
Respostas
Motta
19/04/2004
crie suas tabs com a letra
faça
procedure TForm1.TabControl1Change(Sender: TObject);
begin
Table1.Filter := ´COMPANY = ´ + Quotedstr(TabControl1.Tabs[TabControl1.TabIndex] +
´*´);
Table1.Filtered := True;
end;
faça
procedure TForm1.TabControl1Change(Sender: TObject);
begin
Table1.Filter := ´COMPANY = ´ + Quotedstr(TabControl1.Tabs[TabControl1.TabIndex] +
´*´);
Table1.Filtered := True;
end;
GOSTEI 0