Delphi tilida

Hisoblanuvchi maydonlar 

Hisoblanuvchi maydonlar yaratish DataSet muharririning asosiy

avfzalliklaridan biridir. Quyida shunday maydon yaratishga misol
ko'ramiz. Formaga Query, DataSource, DBGrid obyektlarini 
joylashtirib, DBDEMOS psevdonimini o‘rnating. 
Queryl uchun SQL xossasiga quyidagi tekstni kiriting:
select *from Items I, Parts P 
where (I.PartNo=P.PartNo) 
Queryl obyektini akti i aktivlashtirib, DataSet (Fields Editor) muharririni 
chaqiring, Add Fields oynasidan OrderNo(buyurtma nomeri), 
PartNo(tovar nomeri), Qty(son) va ListPrice(narx) maydonlarini 
qo‘shing. 
Muharrir ekranida sichqonchaning o‘ng klavishasini bosing va 
menyudan NewField buyrug‘ini tanlab, dialog oynasini ekranga 
chiqaring: 
NewFleld 

FnWprope»tiei 
tffllM | 

r 


~z\ 

(• 
r OiniAlMl 
C 

Lecfcupdefntion 

.!:Rdri 

Name qatoriga Total so‘zini kiriting. Type xossasiga CurrencyField 
qiymatini bering. Calculated tanlanganligini tekshiring. Ok tugmasini
bosib, DataSet muharririni berkiting. 

265 

Hisoblanuvchi maydon yaratish uchun obyektlar inspektoridan 
Queryl uchun hodisalar (Events) ro‘yxatini oching va OnCalcFields 
qatoriga ikki marta cherting. Usulni quyidagicha toldiring: 
procedure TForml. Queryl CalcFields(DataSet: TDataset); 
begin 
Queryl Total.Value:= Queryl QtyValue* Queryl ListPriceValue; 
end; 
Agar dastumi ishga tushirsangiz Total maydoni kerakli qiymatga 
ega bo'ladi. 

.f Forrnl 

jlPa^e
\()\v
|LttiPfoi
\TcA *
\