Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Bases";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

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


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

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

procedimento TForm1.Edit1Change (Sender: TObject);
começar
if Edit1.Text<>"" then
começar
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
Boa sorte.



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

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



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

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

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



Страницы: 1 filial inteira

Fórum: "Bases";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.81 MB
Hora: 0.029 c
14-22321
Olgerd
2001-11-01 21:44
2002.01.08
Pergunta séria


1-22183
XeN
2001-12-21 11:21
2002.01.08
Delphix_play


3-21987
bem
2001-12-06 08:44
2002.01.08
Rxlib


4-22469
Zibaro
2001-11-01 19:38
2002.01.08
Картинка в popup меню (как из кнопки


4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Comandos da impressora Epson





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol