[delphi-br] Indices em TDBF

Sun, 25 Mar 2007 04:39:41 -0800 

Olá,

Estou utilizando o código abaixo para criar tabelas e seus índices com
o componente tDBF;

tbTabela.FilePathFull  := '';
tbTabela.TableLevel    := 25;
tbTabela.TableName   := 'tabela.dbf';

if not(fileexists(extractfilepath(paramstr(0))+'tabela.dbf')) then
begin
  with tbTabela.FieldDefs do begin
  add('Cliente', ftInteger, 0, True);
  add('Data', ftDate, 0, True);
  add('Hora', ftDateTime, 0, True);
  add('Horario', ftString, 5, True);
  add('Obse', ftString, 100, True);
  add('Valor', ftCurrency, 0, True);
end;

 tbTabela.createtable;

 tbTabela.AddIndex('iCliente', 'Cliente', [ixPrimary, ixUnique]);

//  tbTabela.AddIndex('iData','Data', []);
 tbTabela.open;
end;

Não estou conseguindo criar índices com campo tipo data, tentei:

tbTabela.AddIndex( 'iData',datetostr(data), [ixExpression]);

Gostaria de criar índice com dois campos: Data + Horario, e como fazer
a pesquisa ?

tbTabela.IndexName := 'iData';
tbTabela.SearchKeyPChar(Edit1.Text+Edit2.Text);


[]s
Fabiano

Responder a