Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

36 - расм. Жадваллар орасидаги боғланшни созлаш.

9. 
   9. DataSource2 маълумотлар учун ADOTable2 маълумотларини ўрнатинг. ADOTable2 жадвалини активлаштиринг.
   
10. 
    10. Form1 формасига DBEdit компонентини жойлаштиринг ва маълумотлар манбаига DataModule2.DataSource2 ни ўрнатинг. DataField майдонига (каторига) Family майдонини ўрнатинг. Ушбу каторни тахрирлашни чеклаб кўйинг, яъни ReadОnly = Тrue.
    
11. 
    11. Проектни ишга туширинг. Ходисаларни кўриш ойнасида керакли катор маълумоти чикиб туриш керак.
    
12. 
    12. 37- расмда кўрсатилган намунадагидек янги Form6 формасини тузинг. Бу форма маълумотномани тахрирлаш учун хизмат килади. Унга TDBGrid ва TDBNavigator компонентларини жойлаштиринг.
    

37- расм. Маълумотномани тахрирлаш формаси.

9. 
   13. Person жадвалини тахрирлаш учун формани фаоллаштириш ва ёпиш процедураларига 38-расмда кўрсатилган ўзгатиришларни киритинг.
   

38-расм. Формани фаоллаштириш ва ёпиш процедураси матни.

9. 
   14. Биринчи формадаги «Файл» менюсига «Фамилиялар маълумотномаси» пунктини кўшинг ва унга Form6 формасини чакириш амалини кўйинг.
   
10. 
    15. Проектни сакланг ва уни ишга тушуринг. Натижани ўкитувчига кўрсатинг.
    
11. 
    16. Киритиш/Тахрирлаш формасини (Form3) тахрирланг, яъни маълумотномадан керакли фамилияни танлаш имкониятини кўйинг.
    
12. 
    17. Бу имкониятни берувчи майдон LookUp деб аталади. Form3 формасига TDBLookupComboBox компонентини жойлаштиринг.
    
13. 
    18. TDBLookUpCombobox компоненти учун куйидаги хусусиятларни куйинг.
    

DataSource - DataModule2.DataSource1;
DataField – PersCode;