Delphi tilida

Maiumodar boza^i 

LOCK 
[rffl 

13S ZUtarow2a*af>5n 
139 U sm w w Sob » 
140 A w w dov Sawot) 
1 J[ N BTw ^JA baffin 
14£ MOTmxKHYTofWtcn 
OSJW fKTD 

■# 

> 

ChtqWh | 
[m(T 
Kod noyicl-n 
sfr | 

Bu formani ishga tushirgandan so‘ng Editl tahrirlash qatoridan 
kerakli o erakli o‘qtituvchi kodi kiritilib «Kod bo‘yicha izlash» tugmasi bosiladi. 

252 

Windows, Messages, SysUtils, Variants, Classes, Graphics, 
Controls, Forms, 
Dialogs, StdCtrls, Orids, DBOrids, DB, DBTables, ExtCtrls, 
DBCtrls; 

TForml = class(TForm) 
DataSourcel: TDataSource; 
Queryl: TQuery; 
DBGridl: TDBGrid; 
Buttonl: TButton; 
Button2: TButton; 
Editl: TEdit; 
Labell: TLabel; 
DBNavigatorl: TDBNavigator; 
procedure Button2Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
Var 
Forml: TForml; 
implementation 
{$R*.dfin} 
procedure TForml.Button2Click(Sender: TObject); 
begin 
Queryl.LocateCkodx',editl.Text,[LopartialKey,LoCaseInsensitive]); 
end; 
end. 

253 

Bu funksiyaning Locate funksiyasidan farqi shundaki, u topilgan 
yozuvni joriy deb aniqlamaydi, u topilgan yozuvning berilgan maydon 
qiymatini qaytaradi. Xuddi oldingi holdagi kabi uning parametrlari 
quyidagilami aniqlaydi.