Buscar por:

Criar consulta de dados por texto e código da tabela simultaneamente

Código

{Esta dica tem como finalidade fazer uma consulta por botão e por texto simultaneamente! Pode ser feita com uma tabela, uma query, um clientdataset e creio eu, com outros controladores de dados do tipo (OBS: testei apenas com tabelas e Querys).

Abra o Delphi, crie uma nova aplicação e insira os seguintes componentes:

 1 - DBGRID , 1 - Tabela , 1 - Datasource , 1 - Edit , 1 - Button , 1 - database

1º) Ligue o database no seu banco de dados ou diretório com as tabelas paradoxx;

2º) Ligue a tabela no seu database(propriedade da table : database), ative seu database e selecione a tabela para seu componente table (propriedade tablename) e ative sua tabela!

3º) Inisira todos os fields(campos) na sua tabela; 

4º) ligue o datasource na sua tabela;

5º) ligue a propriedade datasource do seu DBGRID com o datasource da tabela.

7º) No caption do BUTTON, coloque localizar código (Este botão localizará a chave da sua tabela)

No evento ONCHANGE do seu edit coloque o seguite código: }

  table1.locate('NomeCampo', edit1.text, [loCaseInsensitive, LoPartialKey]);

// NO evento ONCLICK do Button coloque o seguinte código:

  table1.cancel;

  table1.FindKey([edit1.text]);

{ 8º Na propriedade OPTIONS do DBGRID, coloque true para as seguintes opções:

dgrowselect

dgalwaysshowselection

Dica: Marcio Junior - Uberaba -MG}