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

код	Сана	Сумма
НДС
001	11\02\2002	3510-00	690
001	15\02\2002	4400-00	400
001	204\2002	3800-00	345
002	11\03\2002	5500-00	500
002	18\04\2002	7700-00	700
…	…	…	…

33-расм. «битта барчаси билан» боғликлигига мисол.
Келтирилган мисолда «Контрагентлар» жадвали «хужжатлар» жадвалини тўлдириш учун маълумотнома сифатида ишлатилган. Янги хужжатни киритишда контрагент номини рўйҳатдан танлаш мумкин.
Ушбу тажриба ишида маълумотлар базаси билан боғланиш АDО компоненти оркали амалга оширилади.
Аввалги ишдаги каби топширикни кайта ишлаймиз.
Ишни бажариш этаплари:

• 
  - MS-Access дастури ёрдамида маълумотлар базасига кўшимча жадваллар кўшиш.
  
• 
  - Илова (дастурлар) билан ишлашни ташкил этиш ва жадвалдаги калит майдонларни тўлдириш.
  

Ишни бажариш учун топширик.

1. 
   1. Аввалги тажриба ишидаги «Кундалик» маълумотлар базасининг (db1.mdb) файлини Lab5 папкасига нусхасини кўчиринг.
   
2. 
   2. MS-Access дастурини ишга туширинг: Пуск\программы\Microsoft Access. Lab5 папкасидаги db1.mdb файлини очинг.
   
3. 
   3. Бу маълумотлар базасига янги Person номли жадвал тузинг ва у куйидаги структурага эга бўлсин:
   

Соde – счетчик (хисоблагич)
Family- текстовой (матнли)
Name- текстовой (матнли)
Post- текстовой (матнли)
Phone- текстовой (матнли)

4. 
   4. Person жадвалига бир неча ёзувларни киритинг (34-расм).
   

34 - расм. Person жадвали.

5. 
   5. MainData жадвалига ўзгартириш киритинг, яъни PersCode майдонини (устунини) (формат-числовой, число десятичных знаков-0). Бу майдонга 1¸4 гача бўлган сонларни критинг. Демак, сиз иккита ўзаро, яъни Персон коди бўйича боғланган жадвалларга эга бўлдингиз.
   
6. 
   6. Lab4 папкасидаги файллардан Lab5 папкасига нусха кўчиринг. Delphi 7 дастурини ишга туширинг. Пуск\Программы\Borland Delphi 7\Delphi 7. Lab4 проектини очинг ва уни Lab5 номи билан сакланг. Проектни ишга туширинг ва унинг ишлашини текшириб кўринг.
   
7. 
   7. DataModule2 формасига ўтинг ва унга ADOTable ва DataSource компонентларини жойлаштиринг. ADOTable2 компоненти учун боғланиш каторини (Connection string) db1.mdb маълумотлар базаси билан боғланишини созланг ва TableName каторида Person жадвалини танланг (35-расмга каранг).
   

35 - расм. Data Module2 модулини созланг.

8. 
   8. Person жадвалини MainData жадвали билан боғланг. Бунинг учун MasterSource хусусиятига DataSource1 cўзини кўйинг ва MasterFields жадвалини 36-расмда кўрсатилганидек боғланиш хосил килинг.