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


Download 0.95 Mb.
bet20/22
Sana21.02.2023
Hajmi0.95 Mb.
#1218548
1   ...   14   15   16   17   18   19   20   21   22
Bog'liq
LaboratoriyaDelphi

код

Сана

Сумма

НДС

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- текстовой (матнли)

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


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

  1. 5. MainData жадвалига ўзгартириш киритинг, яъни PersCode майдонини (устунини) (формат-числовой, число десятичных знаков-0). Бу майдонга 1¸4 гача бўлган сонларни критинг. Демак, сиз иккита ўзаро, яъни Персон коди бўйича боғланган жадвалларга эга бўлдингиз.

  2. 6. Lab4 папкасидаги файллардан Lab5 папкасига нусха кўчиринг. Delphi 7 дастурини ишга туширинг. Пуск\Программы\Borland Delphi 7\Delphi 7. Lab4 проектини очинг ва уни Lab5 номи билан сакланг. Проектни ишга туширинг ва унинг ишлашини текшириб кўринг.

  3. 7. DataModule2 формасига ўтинг ва унга ADOTable ва DataSource компонентларини жойлаштиринг. ADOTable2 компоненти учун боғланиш каторини (Connection string) db1.mdb маълумотлар базаси билан боғланишини созланг ва TableName каторида Person жадвалини танланг (35-расмга каранг).


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

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



Download 0.95 Mb.

Do'stlaringiz bilan baham:
1   ...   14   15   16   17   18   19   20   21   22




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling