Советы по Delphi

       

Быстрый поиск в базах данных


Я представляю на Ваш суд утилиту быстрого поиска по базе данных. Данная технология производит поиск по полям, преобразуя их значения в строки (все значения преобразуются в верхний регистр, включая действительные числа). Данное решение может быть не самым быстрым, однако на поверку оно оказывается быстрее остальных, обнаруженных мною в Интернете (может вам повезет больше). Более того, представьте, что действительное значение какого-либо поля равно 4.509375354, а значение поиска равно 7, в этом случае утилита засчитает "попадание". Утилита удобна также тем, что она за один проход производит поиск более, чем в одном поле. Это удобно, если у Вас имеются, к примеру, два поля с адресами. Это моя первая "серьезная" разработка, так как первое, с чем я столкнулся, изучая Delphi, стала необходимость включения процедуры поиска в любое приложение, работающее с базой данных. А так как поиск - вещь тоже сугубо специфическая, как и любое приложение, то мне пришлось побороть свой страх перед "крутым программированием" и попробовать написать свой поисковый механизм, удовлетворивший меня (и, надеюсь, других) своей скоростью и возможностью "мульти"-поиска по нескольким полям. Я надеюсь, что он поможет тем программистам, кто часто сталкивается с подобными задачами. Технология довольно легка для понимания, но если у Вас возникли какие-либо вопросы, пошлите мне письмо электронной почтой, я буду рад Вам помочь. Посмотрев код, можно легко узнать поддерживаемые типы полей (добавить новые не составит проблем). Если кто-либо обнаружит ошибочный код или расширит функциональность утилиты, пожалуйста, пошлите это мне, я буду весьма благодарен. Спасибо.

unit Finder;

interface

uses
DB, DBTables, SysUtils;

function GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
function DoFindIn(TheField : TField; SFor : String): Boolean;
function FindIt(TheTable : TDataSet; TheFields : array of integer;
SearchBackward : Boolean; FromBeginning : Boolean; SFor : String): Boolean;{применение функции FindIt -
if FindIt(NotesSearchT,[NotesSearchT.FieldByName('Leadman').Index],False, True, SearchText.Text) then DoSomething; }
implementation

function
GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
begin
with
TBlobStream.Create(TheField, bmRead) do
begin
GetMem(Result, Size + 1);FillChar(Result^, Size + 1, #0);Read(Result^, Size);Free;end;end;

function DoFindIn(TheField : TField; SFor : String): Boolean;
var
PChForMemo : PChar;begin
Result := False;
case TheField.DataType of
ftString :beginif (Pos(SFor, UpperCase(TheField.AsString)) > 0) thenResult := True;end;ftInteger :beginif (Pos(SFor, TheField.AsString) > 0) then Result := True;end;ftBoolean :beginif SFor = UpperCase(TheField.AsString) thenResult := True;end;ftFloat :beginif (Pos(SFor, TheField.AsString) > 0) then Result := True;end;ftCurrency :beginif (Pos(SFor, TheField.AsString) > 0) then Result := True;end;ftDate .. ftDateTime :beginif (Pos(SFor, TheField.AsString) > 0) then Result := True;end;ftMemo :beginSFor[Ord(SFor[0]) + 1] := #0;PChForMemo := GrabMemoFieldAsPChar(TMemoField(TheField));StrUpper(PChForMemo);if not (StrPos( PChForMemo, @SFor[1] ) = nil) then Result :=True; FreeMem(PChForMemo, StrLen(PChForMemo + 1));end;end;end;

function FindIt(TheTable : TDataSet; TheFields : array of integer;
SearchBackward : Boolean; FromBeginning : Boolean; SFor : String): Boolean;var
i, HighTheFields, LowTheFields : integer;BM : TBookmark;begin
TheTable.DisableControls;
BM := TheTable.GetBookmark;
try
LowTheFields := Low(TheFields);
HighTheFields := High(TheFields);
SFor := UpperCase(SFor);
Result := False;
if FromBeginning then TheTable.First;
if SearchBackward then
begin
TheTable.Prior;while not TheTable.BOF dobeginfor i := LowTheFields to HighTheFields dobeginif DoFindIn(TheTable.Fields[TheFields[i]], SFor) thenbeginResult := True;Break;end;end;if Result then Break else TheTable.Prior;end;end elsebeginTheTable.Next;while not TheTable.EOF dobeginfor i := LowTheFields to HighTheFields dobeginif DoFindIn(TheTable.Fields[TheFields[i]], SFor) thenbeginResult := True;Break;end;end;if Result then Break else TheTable.Next;end;end;finally
TheTable.EnableControls;
if not Result then
TheTable.GotoBookmark(BM);TheTable.FreeBookmark(BM);
end;

end;

end.
[000030]



Содержание раздела