Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Доброго времени суток, нуждаюсь в совете, плз 


DeadMoroz   (2001-12-03 15:21) [0]

Для поиска в таблице использую стандартную процу:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>"" then
begin
Table1.Locate("NUM",Edit1.Text,loCaseInsensitive,loPartialKey]);
end;
end;

но, в данном случае поле "NUM" типа Int...Короче, курсор переползает на запись только при полном совпадении Text со значением поля, то есть как бы никакого loPartialKey и нету, а очень хотелось бы. Перепробовал все остальные методы (и Pos тоже)... в итоге пришел сюда.

Присоветуйте, кто чем может, заранее Спасибо :-).



Deniz   (2001-12-03 15:50) [1]


procedure TForm1.Edit1Change(Sender: TObject);
var i : integer;
begin
if Edit1.Text<>"" then begin
TmpQuery.SQL.Clear;
TmpQuery.SQL.Add("select num from table1
where cast(num as varchar(20)) like :aNum");
TmpQuery.Prepare;
TmpQuery.Params[0].asString:=Edit1.Text;
TmpQuery.Open;
if TmpQuery.IsEmpty then begin
TmpQuery.Close;
ShowMessage("Not found.");
Exit;
end
else begin
i:=TmpQuery.Fields[0].asInteger;
TmpQuery.Close;
Table1.Locate("NUM", i, []);
end;
end;
end;

TmpQuery - временная Query
Удачи.



DeadMoroz   (2001-12-03 16:09) [2]

Дело в том, что мой Table1 является Мастером и все равно курсор нужно перемещать в его DataSet"e....хотя попробую TmpQuery завязать на тотже DataSet1...



DeadMoroz   (2001-12-04 09:16) [3]

Попробовал.....работает, но жуткий тормозняк...

Есть еще советы?




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-21962           phantom2040           2001-12-04 13:27  2002.01.08  
Установка фильтра в TDStringGrid


6-22286           ReY                   2001-10-08 18:07  2002.01.08  
Пиплы!!! Нужен ICQ!


1-22036           Smuggler              2001-12-18 14:01  2002.01.08  
Текстовый редактор


1-22157           Flagman               2001-12-20 13:55  2002.01.08  
Найти два возврата каретки подряд.


7-22440           Rumrunner             2001-05-13 00:32  2002.01.08  
В Win98 есть возможность разрешить общий доступ к Интернету для локальной сети