Criar indice Paradox
Uso do Delphi 7 com Paradox, por enquanto, mas...
Estou terminando um programa de locadora. Gostaria de saber se é viável só utilizar os indices somente quando precisari realmente tipo. Não criei nenhum indeci das tabelas, mas na hora que preciso indexar qualquer CRIO e depois de feito o que quero DESTRUO o indice. Resumindo, vou estar sempre criando e re-criando os indices.
Motivo: Afim de economizar aqueles monte de arquivos gerados pelo PARADOX e nisto menos corrupto
Estou terminando um programa de locadora. Gostaria de saber se é viável só utilizar os indices somente quando precisari realmente tipo. Não criei nenhum indeci das tabelas, mas na hora que preciso indexar qualquer CRIO e depois de feito o que quero DESTRUO o indice. Resumindo, vou estar sempre criando e re-criando os indices.
Motivo: Afim de economizar aqueles monte de arquivos gerados pelo PARADOX e nisto menos corrupto
Wallacest
Curtidas 0
Melhor post
Edukobra
21/10/2003
var
IndPri, IndSec : TIndexOptions;
begin
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
with tabela do
begin
Active := False;
Exclusive := True;
DatabaseName := ´Dados´;
TableName := ´SINS0102´;
TableType := ttDefault;
IndexDefs.Clear;
Addindex(´´ ,´CD_FUNCIONARIO´, IndPri);
Addindex(´admissaontx´ ,´DT_ADMISSAO´ , IndSec);
Addindex(´cargontx´ ,´NM_CARGO´ , IndSec);
Addindex(´enderecontx´ ,´NM_ENDERECO´ , IndSec);
AddIndex(´funcaontx´ ,´NM_FUNCAO´ , IndSec);
Addindex(´funcionariontx´,´NM_FUNCIONARIO´, IndSec);
end;
end;
IndPri, IndSec : TIndexOptions;
begin
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
with tabela do
begin
Active := False;
Exclusive := True;
DatabaseName := ´Dados´;
TableName := ´SINS0102´;
TableType := ttDefault;
IndexDefs.Clear;
Addindex(´´ ,´CD_FUNCIONARIO´, IndPri);
Addindex(´admissaontx´ ,´DT_ADMISSAO´ , IndSec);
Addindex(´cargontx´ ,´NM_CARGO´ , IndSec);
Addindex(´enderecontx´ ,´NM_ENDERECO´ , IndSec);
AddIndex(´funcaontx´ ,´NM_FUNCAO´ , IndSec);
Addindex(´funcionariontx´,´NM_FUNCIONARIO´, IndSec);
end;
end;
GOSTEI 1