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:

• Criar procedure "Evento de Filtro"

  
  procedure TFormAuditoria.EditBuscaChange(Sender: TObject); var auxFantasia, auxRazao, auxDoc, auxBusca: string; begin auxFantasia := DataSourceDados.DataSet.FieldByName('FANTASIA').AsString; auxRazao := DataSourceDados.DataSet.FieldByName('RAZAO').AsString; auxDoc := DataSourceDados.DataSet.FieldByName('DOC').AsString; auxBusca := EditBusca.Text; if Trim(auxBusca) = EmptyStr then begin Accept := True; Exit; end; Accept := Riba.ComparaTexto(auxFantasia, auxBusca) or Riba.ComparaTexto(auxRazao, auxBusca) or Riba.ComparaTexto(auxDoc, auxBusca);

• Adicionar Evendo ao objeto:

  
  BufDados.OnFilterRecord := @BufFilterRecord;

• Função para comparar texto:

  
  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;

• Evento de Busca:

  
  procedure TFormAuditoria.EditBuscaChange(Sender: TObject); begin try BufDados.DisableControls; BufDados.Filtered := False; BufDados.Filtered := True; finally BufDados.EnableControls; end; if BufDados.IsEmpty then begin ActionImprimir.Enabled := False; ActionExportar.Enabled := False; end else begin ActionImprimir.Enabled := True; ActionExportar.Enabled := True; end; end;

• Função para Limpar acentos:

  
  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;