|
ｿｽ@ｿｽｿｽlocateｿｽﾖ撰ｿｽｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽ 2010/01/06(ｿｽｿｽ) 23:12:55
ｿｽｿｽｿｽﾑゑｿｽｿｽﾑゑｿｽｿｽﾝまゑｿｽｿｽｿｽBdelphi4ｿｽｿｽoracle8iｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBselectｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ趣ｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽquery.nextｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽDBGridｿｽﾉに鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟ、query.nextｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾖ移難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅ、locateｿｽｿｽgｿｽｿｽｿｽｿｽDBGridｿｽﾉ全ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾔで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIDｿｽﾖカｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾟでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
locate('ID', aID.Text, []);
ｿｽｿｽｿｽｿｽｿｽｿｽDBGridｿｽｿｽIｿｽ[ｿｽvｿｽｿｽ ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽいｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
GTR 2010/01/07(ｿｽｿｽ) 10:22:36
QueryｿｽｿｽDataSourceｿｽﾅ関連ｿｽﾃゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
Query.Active := True;
Query.locate('ID', aID.Text, []);
ｿｽﾅ難ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾜゑｿｽ
Query.First; //ｿｽﾅ擾ｿｽｿｽﾌ行ｿｽｿｽ
Query.Next;
Query.Next;
Query.Next;
ｿｽｿｽ4ｿｽsｿｽﾚのデｿｽ[ｿｽ^ｿｽﾖ移難ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
HOta 2010/01/07(ｿｽｿｽ) 12:35:18
locateｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ、TDatasetｿｽﾉ対ゑｿｽｿｽﾄ費ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽBTDBGridｿｽｿｽTDatasetｿｽﾌ難ｿｽeｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、TDatasetｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊの場合ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾌ趣ｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾍ、TDatasetｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで表ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAquery.nextｿｽﾅゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは難ｿｽｿｽｿｽｿｽｿｽOｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽZｿｽｿｽｿｽ^ｿｽﾅ、ｿｽsｿｽｿｽwｿｽ閧ｵｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽAlocateｿｽｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊになゑｿｽｿｽｿｽﾌゑｿｽlocateｿｽﾅ鯉ｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
HOta 2010/01/07(ｿｽｿｽ) 21:02:04
ｿｽSｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄなのでゑｿｽｿｽﾋ。
Select * From Table
ｿｽﾅ全ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From Table');
Query1.Open;
if Query1.Locate('ID',aID.text,[]) then
begin
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ;
Query1.next;
end else
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ;
ｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽ 2010/01/07(ｿｽｿｽ) 23:23:42
ｿｽﾝなゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
