RibaSoft

BufDataSet

• • Criar campos, ordenação e indice
  • Inserir Registros
  • Alterar Registros
  • Deletar Registros
  • Salvar em Disco
  • Carregar do Disco
  • Buscar parcial
  • Busca parcial com caracteres especiais

Criar campos, ordenação e indice:

• //Limpa Buf.Clear; //Adiciona Campos Buf.FieldDefs.Add('ID', ftInteger); Buf.FieldDefs.Add('CPROD', ftString, 30); Buf.FieldDefs.Add('XPROD', ftString, 120); Buf.FieldDefs.Add('QTD', ftCurrency); //Cria Ordenação/Indexação Buf.IndexDefs.Add('ID', 'ID', [ixDescending]); //Cria Banco Buf.CreateDataset; //Ordena/Indexa Buf.IndexName := 'ID';

• Ordenar por mais campos

  ABuf.IndexDefs.Add('Ordem', 'NOME;MODIFICADO', [ixDescending, ixCaseInsensitive]]);

Inserir Registros:

• Buf.Append; Buf.FieldByName('QTD').AsCurrency := AQTD; Buf.Post;

Alterar Registros:

• Buf.Edit; Buf.FieldByName('QTD').AsCurrency := AQTD; Buf.Post;

Deletar Registros:

• Buf.Delete;

Salvar em Disco:

• Buf.SaveToFile('.\dados.db');

Carregar do Disco:

• Buf.LoadFromFile('.\dados.db');

Buscar parcial:

• auxBusca := Riba.FormataTexto(EditBusca.Text); DataSourceDados.DataSet.Filtered := False; if(auxBusca = EmptyStr)then DataSourceDados.DataSet.Filter := EmptyStr else DataSourceDados.DataSet.Filter := 'CPROD = ''*' + auxBusca+ '*'' OR XPROD = ''*' + auxBusca + '*'''; DataSourceDados.DataSet.Filtered := True;

Busca parcial com caracteres especiais:

• O filtro simples com Dataset.Filter := '...' não funciona quando o texto tem acentos, cedilhas ou outros caracteres especiais, pois a comparação é literal. A solução é usar o evento OnFilterRecord do dataset, que é chamado para cada registro enquanto o filtro está ativo, permitindo aplicar sua própria lógica de comparação.

  São necessários quatro elementos, na ordem abaixo:

• Passo 1 — Função para remover acentos:

  Percorre a string caractere por caractere e substitui letras acentuadas pelas equivalentes sem acento. Funciona com strings WIN1252 (AnsiString), padrão nos projetos Lazarus/Firebird com charset WIN1252.

  function TRibaTools.RemoveAcentos(const S: string): string; const Acentos = 'áàãâäéèêëíìîïóòõôöúùûüçÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÔÖÚÙÛÜÇ'; SemAcentos = 'aaaaaeeeeiiiiooooouuuucAAAAAEEEEIIIIOOOOOUUUUC'; var i, p: integer; begin Result := S; for i := 1 to Length(Result) do begin p := Pos(Result[i], Acentos); if p > 0 then Result[i] := SemAcentos[p]; end; end;

• Passo 2 — Função para comparar texto (ignora acento e maiúscula):

  Remove os acentos de ambos os textos, converte para maiúsculo e verifica se o texto buscado está contido no texto do campo. É o equivalente a um LIKE '%BUSCA%' do Firebird, mas funcionando em memória no TBufDataset.

  function TRibaTools.ComparaTexto(const ATexto, ABusca: string): boolean; var T1, T2: string; begin T1 := UpperCase(RemoveAcentos(ATexto)); T2 := UpperCase(RemoveAcentos(ABusca)); Result := Pos(T2, T1) > 0; end;

• Passo 3 — Criar o procedure "Evento de Filtro" (OnFilterRecord):

  Este procedure não é o evento do campo de busca. Ele é chamado automaticamente pelo dataset para cada registro enquanto Filtered = True. O parâmetro var Accept: Boolean define se o registro atual será exibido (True) ou ocultado (False).

  Pense nele como um filtro de linha do Firebird — WHERE campo LIKE '%busca%' — só que executado em Pascal, registro por registro, dentro do TBufDataset já carregado em memória.

  Atenção: a assinatura obrigatória é (DataSet: TDataSet; var Accept: Boolean). Use o parâmetro DataSet para ler os campos do registro atual.

  // Declarar na seção "private" do Form: // procedure BufFilterRecord(DataSet: TDataSet; var Accept: Boolean); procedure TFormAuditoria.BufFilterRecord(DataSet: TDataSet; var Accept: Boolean); var auxFantasia, auxRazao, auxDoc, auxBusca: string; begin auxBusca := EditBusca.Text; // Se o campo de busca estiver vazio, exibe todos os registros if auxBusca.Trim = EmptyStr then begin Accept := True; Exit; end; // Lê os campos do registro ATUAL via parâmetro DataSet auxFantasia := DataSourceDados.DataSet.FieldByName('FANTASIA').AsString; auxRazao := DataSourceDados.DataSet.FieldByName('RAZAO').AsString; auxDoc := DataSourceDados.DataSet.FieldByName('DOC').AsString; // Aceita o registro se a busca bater em qualquer um dos campos Accept := Riba.ComparaTexto(auxFantasia, auxBusca) or Riba.ComparaTexto(auxRazao, auxBusca) or Riba.ComparaTexto(auxDoc, auxBusca); end;

• Passo 4 — Atribuir o evento ao dataset (geralmente no FormCreate):

  Liga o procedure criado acima ao evento OnFilterRecord do dataset. A partir daí, toda vez que Filtered for alternado, o Lazarus chamará BufFilterRecord para cada registro.

  BufDados.OnFilterRecord := @BufFilterRecord;

• Passo 5 — Evento do campo de busca (EditBuscaChange):

  Este sim é o evento OnChange do TEdit de busca. Ele não filtra nada diretamente — apenas "desliga e liga" o filtro para forçar o dataset a percorrer todos os registros novamente, chamando BufFilterRecord para cada um.

  O DisableControls e EnableControls evitam que os componentes visuais (DBGrid, etc.) piscarem a cada registro avaliado — equivalente a usar BeginUpdate/EndUpdate em listas visuais no Delphi/Lazarus.

  procedure TFormAuditoria.EditBuscaChange(Sender: TObject); begin try BufDados.DisableControls; BufDados.Filtered := False; BufDados.Filtered := True; finally BufDados.EnableControls; end; // Habilita ou desabilita ações conforme o resultado do filtro ActionImprimir.Enabled := not BufDados.IsEmpty; ActionExportar.Enabled := not BufDados.IsEmpty; end;