Поисковик в Grid

[Liprikon7]

Здравствуйте всем я столкнулся с ситуацией которая мне не по зубам и вот решил спросить совета у знающих людей.
Проблема такова, у меня есть таблица Sab в dbf формате и я не как не могу прикрутить к ней вот этот код;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
TForm1 = class(TForm)
con1: TADOConnection;
qry1: TADOQuery;
ds1: TDataSource;
dbgrd1: TDBGrid;
edt1: TEdit;
btn1: TButton;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
{ В этой закладке хранится ссылка на строку
с предыдущим найденным числом }
BookMark: TBookmark;

implementation

uses StrUtils;

{$R *.dfm}
{ Фунция поиска строки в столбце Dataset-a
ACol - столбец, в котором ищется значение
AStr - строка для поиска }
function FindStr(dbgrd1: TDataSet; ds1: Integer; fio: String): Boolean;
var
OldPos: Integer;
begin
Result := False;
{ Запоминаем номер строки для выхода из цикла }
OldPos := dbgrd1.RecNo;

{ Если закладка пустая - ставим закладку на
первую запись}
if BookMark <> nil then
begin
dbgrd1.GotoBookmark(BookMark);
dbgrd1.Next;
end else begin
dbgrd1.First;
BookMark := dbgrd1.GetBookmark;
end;

repeat
{ Если достигли конца DataSet - ищем с первой записи }
if dbgrd1.Eof then
dbgrd1.First;

{ Если строка найдена - выставляем на нее закладку
и выходим }
if Pos(fio, dbgrd1.Fields[ds1].AsString) <> 0 then
begin
BookMark := dbgrd1.GetBookmark;
Result := True;
Exit;
end;

{ Если прошли все записи - выходим }
if OldPos = dbgrd1.RecNo then exit;
{ Иначе переходим на следующую запись }
dbgrd1.Next;
until not True;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
DBGrd1.DataSource.DataSet.DisableControls;
FindStr(DBGrd1.DataSource.DataSet, 0, Edt1.Text);
DBGrd1.DataSource.DataSet.EnableControls;
DBGrd1.SetFocus;

end;

end.

Код я нашол на одном из сайтов поэтому не знаю на сколько он рабочий но при моих экспериментах над ним он так не разу и не заработал, может я что то не до понимаю? Хотя и расписано довольно таки понятно но почему то не хочет он в моих руках работать.
Таблицу я подключал через ADOQuery на картинке должно быть видно.



Суть задачи такова мне надо что бы при нажатии на кнопку поиска выводилась первая подходящая запись, при нажатии ещё раз следующая подходящая запись и так далее, конечно если бы в конце поиска ещё и сообщение выдавало типа поиск завершён было бы не плохо.
Поиск мне надо выполнить по полю FIO в Gride.
Я изначально хотел с FindDialog сделать но подходящей информации так и не нашол а это был бы идеальный вариант.
В общем заранее очень признателен за советы.

[_SERGEYX_]

Неинтересный поиск. Особенно если там записей несколько тысяч.

Напиши в событии OnChange своего Edita

procedure TForm1.Edit1Change(Sender: TObject);
var aSQL: string;
begin
  with qry1 do
  begin
    if (Edit1.Text = '') or (Length(Edit1.Text) < 2) then 
{искать будем если в Edit1 больше 2-х символов, иначе покажем всю таблицу}
    aSQL := 'select * from TABL' else
      aSQL := 'Select * from TABL where FIO LIKE "%' + Edit1.Text + '%";';
    Close;
    SQL.Clear;
    SQL.Add(aSQL);
    Open;
  end;
end;

TABL - имя твоей таблицы

[grafgrial]

еси что нибудь поймещь, подгоняй под свой проект
работает если введешь хотябы несколько искомых букв

var SearchFields:string;
begin
if memo1.Text<>'' then
  begin
 DataModule2.tbl2.Filtered:=False;
  case combobox1.ItemIndex of
      0: SearchFields:= DataModule2.dtmfldtbl2DSDesigner3.FullName;
      1: SearchFields:= DataModule2.wdstrngfldtbl2DSDesigner5.FullName;
  end;
  if combobox1.ItemIndex<>1 then
    DataModule2.tbl2.Locate(SearchFields,memo1.Text,[loPartialKey,
      loCaseInsensitive])
  else
  begin
    DataModule2.tbl2.Filter:= SearchFields+' LIKE '+QuotedStr('%'+
      memo1.Text+'%');
    DataModule2.tbl2.Filtered:=True;
  end;
end
else
begin
 DataModule2.tbl2.Filtered:=False;
end;
end;

[artemavd]

Хранить ФИО в одном столбце - это мягко говоря неправильно.

[Liprikon7]

Сообщение от _SERGEYX_

Неинтересный поиск. Особенно если там записей несколько тысяч.

Напиши в событии OnChange своего Edita

procedure TForm1.Edit1Change(Sender: TObject);
var aSQL: string;
begin
  with qry1 do
  begin
    if (Edit1.Text = '') or (Length(Edit1.Text) < 2) then 
{искать будем если в Edit1 больше 2-х символов, иначе покажем всю таблицу}
    aSQL := 'select * from TABL' else
      aSQL := 'Select * from TABL where FIO LIKE "%' + Edit1.Text + '%";';
    Close;
    SQL.Clear;
    SQL.Add(aSQL);
    Open;
  end;
end;

TABL - имя твоей таблицы

Я не понял почему вы сказали что не интересный поиск и мой или ваш тоже не понятно но всё же спасибо за старания хотя и у меня ваш код не заработал, выдал ошибку и что с ней делать я не знаю да и разбираться не стал так как не понятно как дальше делать поиск после первого подходящего результата?
Кстати записей 30704.

[Liprikon7]

Сообщение от grafgrial

еси что нибудь поймещь, подгоняй под свой проект
работает если введешь хотябы несколько искомых букв

var SearchFields:string;
begin
if memo1.Text<>'' then
  begin
 DataModule2.tbl2.Filtered:=False;
  case combobox1.ItemIndex of
      0: SearchFields:= DataModule2.dtmfldtbl2DSDesigner3.FullName;
      1: SearchFields:= DataModule2.wdstrngfldtbl2DSDesigner5.FullName;
  end;
  if combobox1.ItemIndex<>1 then
    DataModule2.tbl2.Locate(SearchFields,memo1.Text,[loPartialKey,
      loCaseInsensitive])
  else
  begin
    DataModule2.tbl2.Filter:= SearchFields+' LIKE '+QuotedStr('%'+
      memo1.Text+'%');
    DataModule2.tbl2.Filtered:=True;
  end;
end
else
begin
 DataModule2.tbl2.Filtered:=False;
end;
end;

Спасибо но я не настолько знаком с делфи чтобы что то подгонять я больше надеялся что тот код который я пытался прикрутить в первом посте мне помогут найти в нём ошибку и он заработает, темболее у вас тут сплошные мемо поля, много переделывать наверное.

[Liprikon7]

Сообщение от artemavd

Хранить ФИО в одном столбце - это мягко говоря неправильно.

Да вы правы но что есть то и имеем.

[Liprikon7]

Может если с первым постом не получится ответить тогда может кто подскачет такова рода

если в Edit1 ввести первые искомые буквы тогда в DBGrid1 выводятся все подходящии записи без нажатия кнопок но с кнопкой очистить Edit1

И если вас не затруднит с кратким описанием, заранее примного благодарен, спасибо.