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

Para baixo

Bom dia, preciso de conselhos, plz Encontre agências semelhantes


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

Para pesquisar na tabela, eu uso o processo padrão:

procedimento TForm1.Edit1Change (Sender: TObject);
começar
se Edit1.Text <> "" então
começar
Table1.Locate ("NUM", Edit1.Text, loCaseInsensitive, loPartialKey]);
end;
end;

mas, neste caso, o campo "NUM" é do tipo Int ... Resumidamente, o cursor rastreia para o registro somente quando Text corresponde totalmente ao valor do campo, ou seja, como se não houvesse loPartialKey, mas eu realmente gostaria. Eu tentei todos os outros métodos (e Pos também) ... finalmente chegou aqui.

Aconselhar quem pode, obrigado antecipadamente :-).



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]

O fato é que meu Table1 é um assistente e ainda o cursor precisa ser movido para seu DataSet "e .... embora eu tente amarrar TmpQuery ao mesmo 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.56 MB
Hora: 0.022 c
1-22206
T2
2001-12-16 07:11
2002.01.08
Alinhar campo


3-21914
Axel
2001-12-03 18:05
2002.01.08
Pergunta sobre o MIDAS.


4-22490
SergeyDonetsk
2001-11-06 09:22
2002.01.08
como na API você pode conhecer o Handle Canvas e perguntar


1-22088
Mikhalyov Dmitry
2001-12-19 14:58
2002.01.08
chamada de evento do programa


14-22408
fliz
2001-11-08 15:24
2002.01.08
Isso é um bug no Delphi ?! : ((





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