Delphi tilida

9.8 DataSet muharriri 

DataSet muharriri TTable va TQuery obyektlari yordamida 
chaqirilishi mumkin. Muharrir bilan ishlash uchun TQuery obyektini 

262 

formaga joylashtirib, DBDEMOS 
psevdonimini o‘rnating. '' select
AvalsNe h*td: 
lCu-JKn *from customer'' SQL so‘rovini 
kiriting, Active xossasiga True 
Ad41 
ft qiymatini bering. Obektlar 
inspektori yuqorisida ikki kom- 
Zp ponent: TForm i TQuery 
[Fhwir joylashgan. 

Objrct lm p « to r 

AOOCuetylOy 
ADOGuciyl 
ADOCuefylAddrl 
AOOCuety1Addr2 
AOOCuervlCkv 
AO0 Cuery1Compan^ 
AOOCuecylContact
AOOCuetylCouniry 
A00Cue*y1CustNo 

TAODQ^v 
IW df 5^-ngFicU 

TWrieSlmfjetd 
TVfcb$hri(fieltf 
TWjtJeSmgF*td 
PwVifcSTjigFxW 
TFJgalFwij 

- 

IH _ 

| H w 
!A 00Q ^1Cily 

fiijhow n 
6 

Bu yangi obyektlar CUSTOMER jadvalini tasvirlaydi.
QuerylCustNo: TFloatField; 
QuerylCompany: TStringField; 
QuerylAddrl:TStringField; 

263 

QuerylAddr2: TStringField; 
QuerylCity: TStringField; 
QuerylState: TStringField; 
QuerylZip: TStringField; 
QuerylCountry: TStringField; 
QuerylPhone: TStringField; 
QuerylFAX: TStringField; 
QuerylTaxRate: TFloatField; 
QuerylContact: TStringField; 
Agar biz Queryl obyektini Customer deb o‘zgartirsak quyidagi
nomlar hosil boladi: 
CustomerCustNo 
CustomerCompany 
Har bir yangi yaratilgan obyekt T t TField sinfining avlodi hisoblanadi.
Ajdodning turi ma’lumotlar turiga bog‘liq. Masalan, CustNo 
maydonining turi TFloatField, QuerylCity tipi TStringField. 
Bu sinflarning eng asosiy xossasi Value deb ataladi. Bu xossaga 
quyidagicha murojaat qilish mumkin: 
procedure TForml.ButtonlClick(Sender: TObject);
var 
d: Double; 
S: string;
begin 
d := QuerylCustNo.Value; 
S := QuerylCompany.Value; 
d:=d+l; 
S := 'Zoo'; 
QuerylCustNoValue := d; 
QuerylCompanyValue := S; 
end; 
Value qiymatining turi har doim o‘zi tegishli bolgan may-don 
turiga mos keladi. Masalan, TStringFields uchun — string, 
TCurrencyFields uchun —double. 
Agar joriy DataSet da maydonlar nomini olish lozim bo‘lsa. 
FieldName xossasidan ikki usulda foydalanish lozim: 

264 

S := Queryl.Fields[0].Name; 
S := QuerylCustNo.Name; 
CUSTOMER jadvali uchun birinchi misol "CustNo" qatorini,