Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ Π±Π°Π½ΠΊΠ° Π΄Π°Π½Π½ΡΡ Β«ΠΠΎΠ»ΡΠ½ΠΈΡΠ°Β»
Delphi ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΡΡΡΠΊΡΡΡΠ½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ (Object Pascal), ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡΠ΅ΡΠ°Π΅Ρ Ρ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ Π²ΡΡΠ°Π·ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΌΠΎΡΡ ΠΈ ΠΏΡΠΎΡΡΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π° Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΡΠ·ΡΠΊΠ°. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π½Π΅ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ ΠΌΠΎΠ³ΡΡ Π½Π°ΡΠ°ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈ ΠΈΠΌ Π½Π΅ ΠΏΡΠΈΠ΄Π΅ΡΡΡ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠΉ Π² Windows. Delphi ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄ΠΎΠ²ΡΠ΅… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ Π±Π°Π½ΠΊΠ° Π΄Π°Π½Π½ΡΡ Β«ΠΠΎΠ»ΡΠ½ΠΈΡΠ°Β» (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π°ΡΠΊΠΈ Π Π΅ΡΠΏΡΠ±Π»ΠΈΠΊΠΈ ΠΠ°Π·Π°Ρ ΡΡΠ°Π½ ΠΠ°ΡΠ°Π³Π°Π½Π΄ΠΈΠ½ΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΠΠ―Π‘ΠΠΠ’ΠΠΠ¬ΠΠΠ― ΠΠΠΠΠ‘ΠΠ ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΡ ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅: «Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ»
ΡΠ΅ΠΌΠ°: Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ Π±Π°Π½ΠΊΠ° Π΄Π°Π½Π½ΡΡ «ΠΠΎΠ»ΡΠ½ΠΈΡΠ°»
ΠΠ°ΡΠ°Π³Π°Π½Π΄Π°, 2009
1. Π’ΠΠ₯ΠΠΠ§ΠΠ‘ΠΠΠ ΠΠΠΠΠΠΠ
1.2 ΠΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ
1.3 Π¦Π΅Π»Ρ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΡ
1.4 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΠ΅
1.5 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.6 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π»ΠΈΠ½Π³Π²ΠΈΡΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.7 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.8 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.9 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
2. ΠΠΠ€ΠΠ ΠΠΠ¦ΠΠΠΠΠΠ ΠΠΠΠ‘ΠΠΠ§ΠΠΠΠ
2.1 Π‘ΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΏΠΎΡΠΎΠΊΠΎΠ²
2.2 ΠΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
2.3 Π€ΠΈΠ·ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
3. ΠΠΠΠΠΠΠ‘Π’ΠΠ§ΠΠ‘ΠΠΠ ΠΠΠΠ‘ΠΠΠ§ΠΠΠΠ
3.1 Π―Π·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
3.2 ΠΡ ΠΎΠ΄Π½ΡΠ΅ — Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
4.3 ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ ΡΠ·ΡΠΊΠΈ
4. ΠΠ ΠΠΠ ΠΠΠΠΠΠ ΠΠΠΠ‘ΠΠΠ§ΠΠΠΠ
4.1 ΠΠ±ΡΠ΅ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
4.2 ΠΠ°Π·ΠΎΠ²ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
4.3 ΠΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
5. ΠΠΠ’ΠΠΠΠ§ΠΠ‘ΠΠΠ ΠΠΠΠ‘ΠΠΠ§ΠΠΠΠ
5.1 Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π‘ ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ D
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π Π½Π°ΡΠ΅ Π²ΡΠ΅ΠΌΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ³ΡΠ°Π΅Ρ ΠΊΠ»ΡΡΠ΅Π²ΡΡ ΡΠΎΠ»Ρ Π² Π»ΡΠ±ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ ΠΆΠΈΠ·Π½Π΅Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ°. ΠΠ΄Π½Π°ΠΊΠΎ, ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΡΠ°ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΡΡΠ΄Π½ΠΎΡΡΡΠΌ Π² ΡΠ°Π±ΠΎΡΠ΅ Ρ Π½Π΅ΠΉ. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΉ Π½Π°ΠΌΠΈ ΠΏΡΠΎΠ΅ΠΊΡ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ ΡΠΎ, ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ΄ΠΎΠ±Π½ΠΎΠΉ ΠΈ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΠΎΠΉ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ΅Π½Ρ Π°ΠΊΡΡΠ°Π»ΡΠ½ΠΎΠΉ Π½Π° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ, ΠΎΠ½Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΡΠ΅Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ Π±ΠΎΠ»ΡΠ½ΠΈΡ ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ (ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ) ΠΏΠΎΠ½ΡΡΠ½ΡΠΉ ΠΈ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ.
1. Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅
1.1 ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΠ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°) ΠΈ ΠΎΠ±Π»Π°ΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ
1.1.1 Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΠΎΠ΄Π»Π΅ΠΆΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ «ΠΠΎΠ»ΡΠ½ΠΈΡΠ°»
1.1.2 ΠΠ°Π½Π½ΡΠΉ ΠΠ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π±ΠΎΠ»ΡΠ½ΠΈΡΠ°Ρ
1.1.3 ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΠ: ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ°Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΈ Π½ΠΎΠΌΠ΅ΡΡ ΠΏΠ°Π»Π°Ρ
1.2 ΠΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ
1.2.1 ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ: ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°Π΄Π°Π½ΠΈΠ΅, Π²ΡΠ΄Π°Π½Π½ΠΎΠ΅ ΠΊΠ°ΡΠ΅Π΄ΡΠΎΠΉ Π‘ΠΠΠ .
1.2.2 Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΠΠ: ΠΠ°ΡΡΠΌΠ±Π΅ΠΊΠΎΠ²Π° Π., Π’Π΅ΡΠ΅Ρ ΠΎΠ²Π° Π.
1.2.3 ΠΠ°ΠΊΠ°Π·ΡΠΈΠΊ ΠΠ: ΠΊΠ°ΡΠ΅Π΄ΡΠ° Π‘ΠΠΠ .
1.2.4 Π‘ΡΠΎΠΊΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ: Π½Π°ΡΠ°Π»ΠΎ — 01.10.2006 Π³., ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠ΅ — 23.12.2006 Π³.
1.3 Π¦Π΅Π»Ρ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΡ
1.3.1 ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠΉ ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠΈ ΡΡΠ°Π½Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² Π»ΡΠ±ΠΎΠΉ Π±ΠΎΠ»ΡΠ½ΠΈΡΠ΅. Π‘ΡΡΡΠΊΡΡΡΠ° Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΠ΅Π»ΡΡΠΈΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ. ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ Π±ΡΠ΄Π΅Ρ ΡΠΏΠΎΡΠΎΠ±Π½Π° ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π² Π»ΡΠ±ΡΡ ΠΎΠ±Π»Π°ΡΡΡΡ Π±ΠΎΠ»ΡΠ½ΠΈΡΠ½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ, ΡΠ΅ΡΠ°Ρ Π·Π°Π΄Π°ΡΠΈ ΡΠΎ ΡΠΊΠΎΡΠΎΡΡΡΡ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΡΠ΅Π²ΠΎΡΡ ΠΎΠ΄ΡΡΠ΅ΠΉ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ.
1.3.2 Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΠΈΠ½ΡΡΠ°ΡΡΡΡΠΊΡΡΡΠ° Π±ΠΎΠ»ΡΠ½ΠΈΡΡ ΡΡΠ°Π»Π° ΠΎΡΠ΅Π½Ρ ΠΎΠ±ΡΡΠΌΠ½ΠΎΠΉ, ΡΡΠΎ Π½Π΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡΡΡ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ°Π±ΠΎΡΡ. ΠΠ»Ρ ΡΠΏΡΠΎΡΠ΅Π½ΠΈΡ Π±ΡΠ»ΠΎ Π±Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΎΠ±Π»Π΅Π³ΡΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡ ΠΏΠΎΠΈΡΠΊΠ°, Π·Π°ΠΏΠΈΡΠΈ, Π²ΡΠΏΠΈΡΠΊΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°.
1.4 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΠ΅ Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ, ΠΏΡΠ΅Π΄ΡΡΠ²Π»ΡΠ΅ΠΌΡΠ΅ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ : ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΡΡΠΎΠΉΡΠΈΠ²ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ²ΠΎΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΏΠΎΠ½ΡΡΠ½ΠΎΠΉ Π΄Π»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π½Π°Π»ΠΈΡΠΈΠ΅ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°.
1.5 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.5.1 Π ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠ°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΡΡΡΠΊΡΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΏΠΎΡΠΎΠΊΠΎΠ², ΠΊΠΎΠ½ΡΠ΅ΠΏΡΡΠ°Π»ΡΠ½ΡΡ ΠΈ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΡΡ ΠΌΠΎΠ΄Π΅Π»ΠΈ Π΄Π°Π½Π½ΡΡ . ΠΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΠ±Π»Π°Π΄Π°ΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ: ΠΏΠΎΠ»Π½ΠΎΡΠ°, Π½Π΅ΠΏΡΠΎΡΠΈΠ²ΠΎΡΠ΅ΡΠΈΠ²ΠΎΡΡΡ, Π΄ΠΎΡΡΠΎΠ²Π΅ΡΠ½ΠΎΡΡΡ, Π°Π΄Π΅ΠΊΠ²Π°ΡΠ½ΠΎΡΡΡ, Π·Π°ΡΠΈΡΠ΅Π½Π½ΠΎΡΡΡ, ΡΡΠ³ΠΎΠ½ΠΎΠΌΠΈΡΠ½ΠΎΡΡΡ ΠΈ Ρ. Π΄.
1.5.2 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π²ΡΠ΅ Π±Π°Π·ΠΎΠ²ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ: ΠΏΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠ° Π΄Π°Π½Π½ΡΡ , Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ , ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ , ΠΏΡΠΎΡΠΌΠΎΡΡ Π΄Π°Π½Π½ΡΡ .
1.5.3 ΠΠ΅ΡΠ΅Π΄ ΡΠ°Π±ΠΎΡΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½Π° ΠΈΠ½Π΄Π΅ΠΊΡΠ°ΡΠΈΡ ΠΠ Ρ ΡΠ΅Π»ΡΡ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°Π½ΠΈΡ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΡΡΠΈ Π΄Π°Π½Π½ΡΡ , Π΄Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ ΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΡΡ ΠΏΠΎ Π½ΡΠΆΠ½ΡΠΌ ΠΏΠΎΠ»ΡΠΌ, Π° ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΡΡΠΊΠΎΡΠ΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠΎΠ²ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ.
1.6 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π»ΠΈΠ½Π³Π²ΠΈΡΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.6.1 ΠΠΈΠ½Π³Π²ΠΈΡΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΡΠ΅Π΄Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡΡΡ ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π²Ρ ΠΎΠ΄Π½ΡΡ ΠΈ Π²ΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ .
1.6.2 Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠ·ΡΠΊΠΎΠΌ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ.
1.6.3 ΠΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΠ·ΡΠΊ Π΄ΠΎΠ»ΠΆΠ΅Π½:
— ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠ΄ΠΎΠ±ΠΎΡΠΈΡΠ°Π΅ΠΌΠΎΡΡΡ ΠΈ ΠΊΠΎΠΌΠΏΠ°ΠΊΡΠ½ΠΎΡΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΉ;
— Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠΎΡΡΡΠΌ Π² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ.
1.6.4 ΠΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΠ·ΡΠΊ Π΄ΠΎΠ»ΠΆΠ΅Π½:
— Π² Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ;
— ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌ Π·Π°Π΄Π°ΡΠΈ.
1.7 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.7.1 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ³ΠΎ, Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΠΈ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ³ΠΎ ΠΠ.
1.7.2 Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Windows, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΡΠ°ΠΊΠΈΠ΅ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Ρ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°Ρ ΠΊΠ°ΡΠ΅Π΄ΡΡ Π‘ΠΠΠ .
1.7.3 Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΈ ΠΎΠΏΠΈΡΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ Π²ΡΡΠΎΠΊΠΎΡΠ°Π·Π²ΠΈΡΡΠΉ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΡ, ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠΉ ΠΏΠΎΠ΄ Windows.
1.8 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.8.1 Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π²ΡΠ±ΡΠ°Π½ΠΎ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ° ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΊΠ°ΡΠ΅Π΄ΡΡ Π‘ΠΠΠ .
1.8.2 ΠΠΎΠΌΠΏΠ»Π΅ΠΊΡ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ΅Π΄ΡΡΠ² Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ Π½Π° Π±Π°Π·Π΅ ΠΠΠΠ IBM PC ΠΈΠ»ΠΈ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΡ Ρ Π½Π΅ΠΉ.
1.8.3 Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°ΡΡΠ΅Π³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅ΡΡΠ°ΠΌΠΈ, Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½Π°Ρ ΠΏΠ°ΠΌΡΡΡ. ΠΠ΅ ΠΎΠ±ΡΠ΅ΠΌ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π±Π°Π·ΠΎΠ²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ, Π΄ΠΎΠΏΡΡΠΊΠ°ΡΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
1.9 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΡΡΠ°ΠΆΠ°ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌ, ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΡ (ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ) Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π² ΡΠ΅Π»ΠΎΠΌ.
2. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
2.1 Π‘ΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΏΠΎΡΠΎΠΊΠΎΠ² ΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠΎΠ±ΠΎΡΠΎΡΠ° ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°, ΡΠ΅Π³ΠΈΡΡΡΠ°ΡΠΈΠΈ, Π²ΡΠΏΠΈΡΠΊΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΆΠ΅ Π²Π½Π΅ΡΠ΅Π½Π½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ
Π ΠΈΡΡΠ½ΠΎΠΊ 1.1. Π‘ΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΏΠΎΡΠΎΠΊΠΎΠ² ΠΌΠ΅Π΄ΡΠ΅ΡΡΡΡ Π ΠΈΡΡΠ½ΠΎΠΊ 1.2. Π‘ΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΏΠΎΡΠΎΠΊΠΎΠ² Π²ΡΠ°ΡΠ°
2.2 ΠΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
2.3 Π€ΠΈΠ·ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π€ΠΈΠ·ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 2.3. ΠΠ΄Π΅ΡΡ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΈΠΏ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ, Π΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅Ρ. Π ΡΠ°ΠΊ ΠΆΠ΅ ΠΏΠ΅ΡΠ²ΠΈΡΠ½ΡΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΡ (ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΡΡΡ, ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°) ΠΈ Π²ΡΠΎΡΠΈΡΠ½ΡΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΡ (ΡΠ²ΡΠ·Ρ 1 ΠΊΠΎ ?).
Π’Π°Π±Π»ΠΈΡΠ° 1. Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠ°Π±Π»ΠΈΡΡ Pacients. db
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π’ΠΈΠΏ | ΠΠ°Π½Π½ΡΠ΅ | ΠΠ½Π΄Π΅ΠΊΡ 1 | ΠΠ½Π΄Π΅ΠΊΡ 2 | |
Famil | Alpha [25] | Π€Π°ΠΌΠΈΠ»ΠΈΡ | * | ||
βpalat | Long integer | β ΠΏΠ°Π»Π°ΡΡ | * | * | |
Diagnoz | Alpha [80] | ΠΠΈΠ°Π³Π½ΠΎΠ· | |||
DataPostup | data | ΠΠ°ΡΠ° ΠΏΠΎΡΡΡΠΏΠ»Π΅Π½ΠΈΡ | |||
βfamil | autoincrement | ΡΡΠ΅ΡΡΠΈΠΊ | |||
Π’Π°Π±Π»ΠΈΡΠ° 2. Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠ°Π±Π»ΠΈΡΡ Otdel. db
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π’ΠΈΠΏ | ΠΠ°Π½Π½ΡΠ΅ | ΠΠ½Π΄Π΅ΠΊΡ 1 | ΠΠ½Π΄Π΅ΠΊΡ 2 | |
Otdelenie | Alpha [30] | ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ | * | ||
βotdel | autoincrement | ΡΡΠ΅ΡΡΠΈΠΊ | |||
Kol_palat | short | ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠ°Π»Π°Ρ | |||
Π’Π°Π±Π»ΠΈΡΠ° 3. Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠ°Π±Π»ΠΈΡΡ Palata. db
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π’ΠΈΠΏ | ΠΠ°Π½Π½ΡΠ΅ | ΠΠ½Π΄Π΅ΠΊΡ 1 | ΠΠ½Π΄Π΅ΠΊΡ 2 | |
Palata | Alpha [10] | ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ | * | ||
βotdel2 | Long integer | βΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ | * | * | |
βpalat | autoincrement | Π‘ΡΠ΅ΡΡΠΈΠΊ | |||
Kol_pacient | short | ΠΠΎΠ». ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² | |||
Kol_mest | short | ΠΠΎΠ». ΠΌΠ΅ΡΡ | |||
3. ΠΠΈΠ½Π³Π²ΠΈΡΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
3.1 Π―Π·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π―Π·ΡΠΊ ObjectPascal ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π²ΡΡΠΎΠΊΠΎΡΠ°Π·Π²ΠΈΡΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π ΡΡΠ΅Π΄ΠΈ Π΄ΡΡΠ³ΠΈΡ , Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊΠΈΡ ΠΊΠ°ΠΊ Visual Basic ΠΈΠ»ΠΈ Visual C++, ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΏΡΠΎΡΡΠΎΡΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΡΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΏΠΎ ΡΡΠΎΠΌΡ ΡΠ·ΡΠΊΡ.
ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π΅ΡΡΠΌΠ° Π±Π»ΠΈΠ·ΠΊΠΎ Π½Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅Ρ Π½Π°ΡΠ΅ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅. ΠΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΠ²ΠΎΠ»ΡΡΠΈΠ΅ΠΉ Π±ΠΎΠ»Π΅Π΅ ΡΠ°Π½Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠ²Π²Π΅Π΄Π΅Π½ΠΈΠΉ Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΡΠΊΡΡΡΠ½ΡΠΌ, ΡΠ΅ΠΌ Π²ΡΠ΅ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ, ΠΊΠ°ΡΠ°ΡΡΠΈΠ΅ΡΡ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΡΠΌ ΠΈ Π±ΠΎΠ»Π΅Π΅ Π°Π±ΡΡΡΠ°ΠΊΡΠ½ΡΠΌ, ΡΠ΅ΠΌ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠ΅ ΠΏΠΎΠΏΡΡΠΊΠΈ Π°Π±ΡΡΡΠ°Π³ΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠ° Π΄Π΅ΡΠ°Π»Π΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ. ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΡΡΠ΅ΠΌΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌΠΈ:
1) ΠΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΡ. ΠΠΎΠΌΠ±ΠΈΠ½ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°ΠΌΠΈ ΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ, ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΡΡΡΠΈΠΌΠΈ ΠΏΠΎΠ»ΡΠΌΠΈ ΡΡΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ, ΡΠΎΡΠΌΠΈΡΡΠ΅Ρ Π½ΠΎΠ²ΡΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ — ΠΎΠ±ΡΠ΅ΠΊΡ.
2) ΠΠ°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅. ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΈ Π΅Π³ΠΎ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΎΡΠ½ΠΎΡΡΡΠ΅Π³ΠΎΡΡ ΠΊ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ, Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠΎΠ΄Ρ ΠΈ Π΄Π°Π½Π½ΡΠΌ Π²ΡΠ΅Ρ ΠΏΠΎΡΠΎΠΆΠ΄Π°ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
3) ΠΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ. ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π·Π°ΡΠ΅ΠΌ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²Π½ΠΈΠ· ΠΈ Π²Π²Π΅ΡΡ ΠΏΠΎ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΏΡΠΈΡΠ΅ΠΌ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΡΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ, ΠΈΠΌΠ΅Π½Π½ΠΎ Π΅ΠΌΡ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΠΌ.
Π’Π΅ΠΏΠ΅ΡΡ ΡΠΆΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ ΠΎΠΏΠ΅ΡΠΈΡΡΠ΅Ρ Π½Π΅ ΠΏΡΠΎΡΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°ΠΌΠΈ ΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ, Π° ΡΠ΅Π»ΡΠΌΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ.
ΠΠ±ΡΠ΅ΠΊΡ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ² ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ. Π§ΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ «ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ»? ΠΡΠΎ Π·Π½Π°ΡΠΈΡ, ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ²ΠΎΠΉΡΡΠ² ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ.
Π‘Π²ΠΎΠΉΡΡΠ²Π° — ΡΡΠΎ ΠΏΡΠΎΡΡΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Π»ΠΈΡΡΡ Π½Π° ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΈΡΠΈΠ½Π°, Π²ΡΡΠΎΡΠ° — ΡΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠ΅ΡΠΎΠ΄Ρ — ΡΡΠΎ ΡΠ΅ ΠΆΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Ρ. Π΅. ΡΡΠΎ ΡΠΎ, ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΌΠ΅Π΅Ρ Π΄Π΅Π»Π°ΡΡ (Π²ΡΡΠΈΡΠ»ΡΡΡ). ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ±ΡΠ΅ΠΊΡ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΊΠ°ΠΊΠΎΠ³ΠΎ-ΡΠΎ ΡΠ΅ΠΊΡΡΠ° Π½Π° ΡΠΊΡΠ°Π½. ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈ Π΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΎΠ±ΡΠ΅ΠΊΡΠ°.
Π‘ΠΎΠ±ΡΡΠΈΡ — ΡΡΠΎ ΡΠ΅ ΠΆΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΠ·ΡΠ²Π°ΡΡΡΡ ΠΏΡΠΈ Π½Π°ΡΡΡΠΏΠ»Π΅Π½ΠΈΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ»ΠΎΡΡ ΠΊΠ°ΠΊΠΎΠ΅-ΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°Π½ΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΈ Π²ΡΠ·Π²Π°Π½Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅Π°ΠΊΡΠΈΠΈ Π½Π° ΡΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅.
ΠΠΏΠ΅ΡΠ°ΡΠΎΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΉ Π΅Π΄ΠΈΠ½ΠΈΡΠ΅ΠΉ ΡΠ·ΡΠΊΠ°. ΠΠΏΠ΅ΡΠ°ΡΠΎΡ Π·Π°Π΄Π°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ. ΠΠ»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠ»ΠΎΠΆΠ½ΠΎΠ³ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ Π³ΡΡΠΏΠΏΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ². Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡΡΡ Π² ΡΠΎΡΡΠ°Π²Π½ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΈΠ»ΠΈ Π±Π»ΠΎΠΊ.
ΠΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ, ΡΠ°Π·Π²ΠΈΠ»ΠΎΠΊ ΠΈ ΡΠ»ΠΈΡΠ½ΠΈΠΉ ΡΡΡΠΎΡΡΡΡ Π±Π°Π·ΠΎΠ²ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ: ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅, Π²Π΅ΡΠ²Π»Π΅Π½ΠΈΠ΅, ΡΠΈΠΊΠ». ΠΡΠΈΠΌΠ΅Π½ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΈ ΡΡΠΈ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π»ΡΠ±ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π²ΡΡ ΠΈΠ»ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ, Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ.
ΠΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ, ΡΠΎΡΡΠΎΡΡΠ°Ρ ΠΈΠ· ΡΠ°Π·Π²ΠΈΠ»ΠΊΠΈ, Π΄Π²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΈ ΡΠ»ΠΈΡΠ½ΠΈΡ, Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ Π²Π΅ΡΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ. ΠΠ΄Π½Π° ΠΈΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠΎΠΆΠ΅Ρ ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ.
ΠΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ, ΠΈΠΌΠ΅ΡΡΠ°Ρ Π»ΠΈΠ½ΠΈΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, Π²Π΅Π΄ΡΡΠΈΠ΅ ΠΊ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌ ΠΈΠ»ΠΈ ΡΠ°Π·Π²ΠΈΠ»ΠΊΠ°ΠΌ, Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΈΠΊΠ»ΠΎΠΌ.
ΠΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅, Π²Π΅ΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠΈΠΊΠ» ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΈΠΌΠ΅ΡΡ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ Π²Ρ ΠΎΠ΄ ΠΈ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ Π²ΡΡ ΠΎΠ΄. ΠΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΠ΄Π½Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ.
ΠΠΎΠ΄ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ begin ΠΈ end ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΏΡΠ°Π²Π»ΡΠ΅Ρ Π»ΠΎΠ³ΠΈΠΊΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π² ΡΡΠΎΠΉ ΡΠ΅ΠΊΡΠΈΠΈ ΠΊΠΎΠ΄Π° ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡΡ Π²ΡΠ΅, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ. Π Π±ΠΎΠ»Π΅Π΅ ΠΊΡΡΠΏΠ½ΡΡ ΠΈ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π² ΡΡΠΎΠΉ ΡΠ΅ΠΊΡΠΈΠΈ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΌΠΎΠΆΠ΅Ρ Π·Π°ΡΡΡΠ΄Π½ΠΈΡΡ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π ΡΠΎΠΌΡ ΠΆΠ΅ Π΅Π΅ Π±ΡΠ΄Π΅Ρ ΡΡΡΠ΄Π½Π΅Π΅ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ.
ΠΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ Π»ΠΎΠ³ΠΈΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π±ΠΎΠ»Π΅Π΅ ΠΌΠ΅Π»ΠΊΠΈΠ΅ ΠΈ ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠ΅ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΡ, ΠΈ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌ Π² Π΄ΡΡΠ³ΠΈΡ ΡΠ·ΡΠΊΠ°Ρ . ΠΠ°ΠΊ ΠΈ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ Π±Π»ΠΎΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π²ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ ΠΈ ΡΡΠ½ΠΊΡΠΈΡΡ Π·Π°ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² begin ΠΈ end. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· ΡΡΠΈΡ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠΎΠ² ΠΊΠΎΠ΄Π° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ Π·Π°Π΄Π°ΡΡ.
ΠΡΠ»ΠΈ Π²Ρ ΠΎΠ±Π½Π°ΡΡΠΆΠΈΡΠ΅, ΡΡΠΎ Π² Π²Π°ΡΠ΅ΠΉ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠ΄Π½ΠΈ ΠΈ ΡΠ΅ ΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎ, ΡΠ°ΠΊΡΡ Π»ΠΎΠ³ΠΈΠΊΡ ΠΆΠ΅Π»Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΡ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΈΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π° Π·Π°ΡΠ΅ΠΌ ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎ Π²ΡΠ·ΡΠ²Π°ΡΡ Π΅Π³ΠΎ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π° ΡΠ·ΡΠΊΠ΅ ObjectPascal ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π±Π»ΠΎΠΊΠΈ ΠΊΠΎΠ΄Π° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΡ . ΠΠΎΠ΄ΡΠ»Ρ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΌΠΈΠ½ΠΈ-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²Π°ΡΠ° ΠΏΡΠΈΠΊΠ»Π°Π΄Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°. ΠΠ°ΠΊ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΎΠ½ ΠΈΠΌΠ΅Π΅Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ (ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Ρ) ΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π±Π»ΠΎΠΊ, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΡΠΉ begin ΠΈ end.
ΠΠΎΠ΄ΡΠ»ΠΈ ΡΠ²Π»ΡΡΡΡΡ ΠΎΡΠ½ΠΎΠ²ΠΎΠΉ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ½ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π²ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΠΏΡΠΈ ΡΡΠΎΠΌ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΌ ΠΈΠΌΠ΅ΡΡ Π² Π½Π°Π»ΠΈΡΠΈΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄), Π° Π±ΠΎΠ»ΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠ³ΡΡ ΠΏΠΎΠ΄ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ Π½Π° Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ ΠΌΠΎΠ΄ΡΠ»ΠΈ.
3.2 ΠΡ ΠΎΠ΄Π½ΡΠ΅ — Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠΌ Π² ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΠ°Ρ .
ΠΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠ²Π»ΡΡΡΡΡ: Π²ΠΎ-ΠΏΠ΅ΡΠ²ΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΡ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΠ΅ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°ΠΌΠΈ ΠΏΡΠΈ ΡΠ΅Π³ΠΈΡΡΡΠ°ΡΠΈΠΈ Π² Π±ΠΎΠ»ΡΠ½ΠΈΡΠ΅, Π²ΠΎ-Π²ΡΠΎΡΡΡ , Π·Π°ΠΏΡΠΎΡΡ Π²ΡΠ°ΡΠ° ΠΈΠ»ΠΈ ΠΌΠ΅Π΄ΡΠ΅ΡΡΡΡ Π½Π° ΠΏΠΎΠΈΡΠΊ Π½ΡΠΆΠ½ΠΎΠ³ΠΎ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°. ΠΠ°Π½Π½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ Π²Π²ΠΎΠ΄ΡΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² Π²Π²ΠΎΠ΄Π° — ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΠΈ ΠΌΡΡΠΈ (ΡΠΈΡΡΠ½ΠΎΠΊ 4.1).
ΠΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠ²Π»ΡΡΡΡΡ: Π²ΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½Π½ΡΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π½Π° ΠΌΠΎΠ½ΠΈΡΠΎΡΠ΅, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΠ°Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ; Π²ΠΎ-Π²ΡΠΎΡΡΡ , ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π½Π° ΠΌΠΎΠ½ΠΈΡΠΎΡΠ΅ ΠΏΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌ Π·Π°ΠΏΡΠΎΡΠ° Π½Π° ΠΏΠΎΠΈΡΠΊ. ΠΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΌΠΎΠ½ΠΈΡΠΎΡΠ° ΡΠΈΡΡΠ΅ΠΌΠ° ΠΈΠ½ΡΠΎΡΠΌΠΈΡΡΠ΅Ρ ΠΎ ΡΠ²ΠΎΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΈ Π½Π°ΠΏΡΠ°Π²Π»ΡΠ΅Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
Π ΠΈΡΡΠ½ΠΎΠΊ 4.1 — Π Π°Π±ΠΎΡΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ ΠΊΠΎΠ½ΡΡΠ»ΡΡΠ°ΡΠΈΠΈ Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΡΠ΅Π½Π°ΡΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΡΠΎΡΠ΅ΡΡ ΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠΎΡΡΡΠΌ ΠΈ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ, ΡΡΠΎΠ±Ρ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠ°Π½Π³Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠ³ ΠΌΠΎΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΠΎ ΠΎΡΠ²ΠΎΠΈΡΡΡ Π±Π΅Π· ΠΊΠ°ΠΊΠΈΡ -Π»ΠΈΠ±ΠΎ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΠΎΡΡΠ½Π΅Π½ΠΈΠΉ (ΡΠΈΡΡΠ½ΠΊΠΈ 3.2, 3.3).
ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ | ||
ΠΠΎΠ»Π΅ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΈ Π²ΡΠ±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ | Π’Π°Π±Π»ΠΈΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ | |
ΠΠΎΠ»Π΅ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π΄Π°Π½Π½ΡΡ | ||
Π ΠΈΡΡΠ½ΠΎΠΊ 3.2 — Π‘Ρ Π΅ΠΌΠ° Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° (ΠΌΠ΅Π΄ΡΠ΅ΡΡΡΠ°).
ΠΠ½ΠΎΠΏΠΎΡΠ½Π°Ρ ΡΠ°ΡΡΡ | ||
ΠΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ | ΠΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎ Π΄Π°ΡΠ΅ | |
ΠΠΎΠ»Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ | ||
Π ΠΈΡΡΠ½ΠΎΠΊ 3.3- Π‘Ρ Π΅ΠΌΠ° ΠΎΠΊΠ½Π° ΠΏΠΎΠΈΡΠΊΠ°
Π’Π°Π±Π»ΠΈΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ | |
Π’Π°Π±Π»ΠΈΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ | |
4. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
4.1 ΠΠ±ΡΠ΅ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΠ° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Windows ΡΠΈΡΠΌΡ Microsoft Π²ΠΎ Π²ΡΠ΅Ρ Π΅Π΅ ΠΏΡΠΎΡΠ²Π»Π΅Π½ΠΈΡΡ , Π±Π΅ΡΡΠΏΠΎΡΠ½ΠΎ, ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠ°ΠΌΠΎΠΉ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Π½Π° ΠΠ: Π² ΠΌΠΈΡΠ΅ Π±ΠΎΠ»Π΅Π΅ 150 ΠΌΠ»Π½. IBM PC-ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ², ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ° Windows ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π° Π½Π° 100 ΠΌΠ»Π½. ΠΈΠ· Π½ΠΈΡ .
ΠΠ‘ Windows Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΡΠ΅ΠΌ, ΡΡΠΎ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π½Π° Π²ΡΡΠΎΠΊΠΎΠΌ ΡΡΠΎΠ²Π½Π΅ ΡΡΠ³ΠΎΠ½ΠΎΠΌΠΈΡΠ½ΠΎΡΡΠΈ ΠΈ ΡΠ΄ΠΎΠ±ΡΡΠ²Π°. Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ, Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΡΡΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΎΡ 16 Π΄ΠΎ 128 ΠΠ± ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π²Π΅ΡΡΠΈΠΈ ΠΠ‘, ΡΡΠΎ ΠΏΠΎ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌ ΡΠΎΠ²ΡΠ΅ΠΌ Π½Π΅ ΠΌΠ½ΠΎΠ³ΠΎ.
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Π²ΡΠ±ΡΠ°Π½Π° ΠΠ‘ ΡΠ΅ΠΌΠ΅ΠΉΡΡΠ²Π° Windows, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ, Windows XP Professional. ΠΡΠΎΡ Π²ΡΠ±ΠΎΡ Π±ΡΠ» ΡΠ΄Π΅Π»Π°Π½ ΠΏΠΎ ΡΡΠ΄Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΏΡΠΈΡΠΈΠ½. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , ΠΎΠ½Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ Π½Π° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ. ΠΠΎ-Π²ΡΠΎΡΡΡ , Π² ΠΠ‘ Windows Π½Π°Π΄Π΅ΠΆΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΏΠΎΠ²ΡΡΠ°Π΅ΡΡΡ Π·Π° ΡΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΌΠ°ΡΡΠ΅ΡΠΎΠ², ΡΠ»ΡΠΆΠ΅Π±Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ ΡΠ΅ΡΡΡΡΠΎΠ², ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΡ Π±Π΅ΡΠΏΠ΅ΡΠ΅Π±ΠΎΠΉΠ½ΡΡ ΡΠ°Π±ΠΎΡΡ ΡΠΈΡΡΠ΅ΠΌΡ. Π-ΡΡΠ΅ΡΡΠΈΡ , Π² ΡΠΎΡΡΠ°Π² Windows Π²Ρ ΠΎΠ΄ΠΈΡ ΡΡΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΡΡ ΠΏΠΎΠ²ΡΡΠ°Π΅Ρ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. Π-ΡΠ΅ΡΠ²Π΅ΡΡΡΡ , Π½Π° ΠΊΠ°ΡΠ΅Π΄ΡΠ΅ Π‘ΠΠΠ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π° ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°.
4.2 ΠΠ°Π·ΠΎΠ²ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΠΠ ΠΏΡΠΈΠ½ΡΡΠ° ΡΡΠ΅Π΄Π° Delphi 7.0 ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ObjectPascal. ΠΠ°ΠΊΠ΅Ρ Delphi 7.0 ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ Π½Π° ΠΊΠ°ΡΠ΅Π΄ΡΠ΅ Π‘ΠΠΠ ΠΈ ΡΡΠ°Π±ΠΈΠ»ΡΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΏΠΎΠ΄ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Windows XP Professional.
Π‘ΡΠ΅Π΄ΠΈ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΡΠ΅Π΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Delphi 7.0 ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π° Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅Π΄ΠΎΠΉ Π±ΡΡΡΡΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ (RAD), ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΠ΅ΠΉ Π²ΡΠ΅ Π²Π΅Π΄ΡΡΠΈΠ΅ ΠΈΠ½Π΄ΡΡΡΡΠΈΠ°Π»ΡΠ½ΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΡ: XML, SOAP, WSDL ΠΈ XSL, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΡΠ²Π»ΡΡΡΠΈΠ΅ΡΡ ΠΏΠ»Π°ΡΡΠΎΡΠΌΡ — Microsoft.NET ΠΈ BizTalk, Sun Microsystems ONE, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ Π³ΠΈΠ±ΠΊΠΎΡΡΡ, Π½Π°Π΄Π΅ΠΆΠ½ΠΎΡΡΡ ΠΈ ΠΌΠ°ΡΡΡΠ°Π±ΠΈΡΡΠ΅ΠΌΠΎΡΡΡ.
ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΏΠΎΡ Π² Delphi Π΄Π΅Π»Π°Π΅ΡΡΡ Π½Π° ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΌ ΡΠ΅ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΊΠΎΠ΄Π°. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°ΠΌ ΡΡΡΠΎΠΈΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π²Π΅ΡΡΠΌΠ° Π±ΡΡΡΡΠΎ ΠΈΠ· Π·Π°ΡΠ°Π½Π΅Π΅ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²Π»Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², Π° ΡΠ°ΠΊΠΆΠ΅ Π΄Π°Π΅Ρ ΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ²ΠΎΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π΄Π»Ρ ΡΡΠ΅Π΄Ρ Delphi. ΠΠΈΠΊΠ°ΠΊΠΈΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠΉ ΠΏΠΎ ΡΠΈΠΏΠ°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ, Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ. ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ, Π²ΡΠ΅ Π² Delphi Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ Π½Π° Π½Π΅ΠΌ ΠΆΠ΅, ΠΏΠΎΡΡΠΎΠΌΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΠΈΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ΅ΠΌ ΠΆΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°ΠΌ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π½Π΅Ρ Π½ΠΈΠΊΠ°ΠΊΠΎΠΉ ΡΠ°Π·Π½ΠΈΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ, ΠΏΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΌΠΈ Borland ΠΈΠ»ΠΈ ΡΡΠ΅ΡΡΠΈΠΌΠΈ ΡΠΈΡΠΌΠ°ΠΌΠΈ, ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡ.
ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ (ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²) Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°, ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΠΌΠΈ, Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠ°, Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ DDE ΠΈ OLE.
Delphi ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΡΡΡΠΊΡΡΡΠ½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ (Object Pascal), ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡΠ΅ΡΠ°Π΅Ρ Ρ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ Π²ΡΡΠ°Π·ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΌΠΎΡΡ ΠΈ ΠΏΡΠΎΡΡΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π° Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΡΠ·ΡΠΊΠ°. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π½Π΅ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ ΠΌΠΎΠ³ΡΡ Π½Π°ΡΠ°ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈ ΠΈΠΌ Π½Π΅ ΠΏΡΠΈΠ΄Π΅ΡΡΡ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠΉ Π² Windows. Delphi ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄ΠΎΠ²ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ, Π²ΠΊΠ»ΡΡΠ°Ρ ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΡ, Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅, ΠΏΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΡΠΌΠΈ.
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΡΠΈΠ½Ρ Π²ΡΠ±ΠΎΡΠ° ΡΠ·ΡΠΊΠ° ObjectPascal:
— ΠΡΠΎΡΡΠΎΡΠ° ΡΠ·ΡΠΊΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π±ΡΡΡΡΠΎ Π΅Π³ΠΎ ΠΎΡΠ²ΠΎΠΈΡΡ ΠΈ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ»ΠΎΠΆΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ;
— Π Π°Π·Π²ΠΈΡΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡ Π΄Π°Π½Π½ΡΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΡ, ΠΊΠ°ΠΊ Ρ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ, ΡΠ°ΠΊ ΠΈ Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠΉ ΠΈ Π±ΠΈΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ;
— ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ (ΠΠΠ) Π² Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅.
ΠΠ΄Π½ΠΈΠΌ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ² ΠΠΠ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π·Π° ΡΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠ»Π°ΡΡΠΎΠ² Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ, ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΠΈ ΠΈ ΠΏΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌΠ°.
Π’Π°ΠΊΠΆΠ΅, Π½Π° Π²ΡΠ±ΠΎΡ Delphi 6.0 Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ, ΠΏΠΎΠ²Π»ΠΈΡΠ»ΠΈ ΡΠ°ΠΊΠΈΠ΅ ΠΎΠ±ΡΡΠΎΡΡΠ΅Π»ΡΡΡΠ²Π° ΠΊΠ°ΠΊ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΡΠΎΠΉ ΡΡΠ΅Π΄Π΅, ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΠΎΡΡΡ ΡΡΠΎΠΉ ΡΡΠ΅Π΄Ρ ΠΈ ΠΈΠΌΠ΅ΡΡΠΈΠΉΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΡΠΉ ΠΎΠΏΡΡ ΡΠ°Π±ΠΎΡΡ Π² Π½Π΅ΠΉ.
ΠΠ»Ρ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΈ ΠΏΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΊΠΈ Π±ΡΠ» ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Microsoft Word, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΠΌ ΠΈ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΡΡΡΡ ΠΈ ΡΠ»ΠΎΠΆΠ½ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ², Π²Π΅ΡΡΡΠΊΠΈ Π³Π°Π·Π΅ΡΠ½ΡΡ ΡΡΡΠ°Π½ΠΈΡ, ΠΌΠ°ΠΊΠ΅ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΡΠ΄ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³ Ρ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΡΠΌΠΈ ΠΈ Π½Π°ΡΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ ΠΈ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ, ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π²Π΅ΠΊΡΠΎΡΠ½ΠΎΠΉ Π³ΡΠ°ΡΠΈΠΊΠΈ, ΡΡ Π΅ΠΌ ΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ.
4.3 ΠΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΡΠΎΠ΅ΠΊΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ (ΡΠΈΡΡΠ½ΠΎΠΊ 3.1).
Π ΠΈΡΡΠ½ΠΎΠΊ 3.1 — Π‘ΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ³ΠΎ ΠΠ Π’Π°Π±Π»ΠΈΡΠ° 3. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Π€Π°ΠΉΠ»Ρ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | |
Unit2.pas | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Π΄Π»Ρ ΡΠΎΡΠΌΡ «Unit2» | |
UnitFilter.pas | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Π΄Π»Ρ ΡΠΎΡΠΌΡ «UnitFilter» | |
UnitGlavVrach.pas | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Π΄Π»Ρ ΡΠΎΡΠΌΡ «UnitGlavVrach» | |
UnitMedSestra.pas | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Π΄Π»Ρ ΡΠΎΡΠΌΡ «UnitMedSestra» | |
UnitPassword.pas | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Π΄Π»Ρ ΡΠΎΡΠΌΡ «UnitPassword» | |
ProjectHospital.dpr | ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° | |
ProjectHospital.exe | Π°Π²ΡΠΎΠ½ΠΎΠΌΠ½ΡΠΉ ΠΈΡΠΏΠΎΠ»Π½ΠΈΠΌΡΠΉ ΡΠ°ΠΉΠ», Π·Π°ΠΏΡΡΠΊΠ°ΡΡΠΈΠΉ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ | |
ΠΠΎΠ΄ΡΠ»Ρ «Unit2» ΠΏΡΠΎΠ΅ΠΊΡΠ° «ΠΠΎΠ»ΡΠ½ΠΈΡΠ°» ΡΠ»ΡΠΆΠΈΡ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΠ΅ΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ°. ΠΠΎΠ΄ΡΠ»Ρ «UnitMedSestra» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, «UnitFiter» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, «UnitGlavVrach» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π²ΡΠ°ΡΠ° ΠΈ «UnitPassword» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π·Π°ΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (ΡΡΠ½ΠΊΡΠΈΠΈ) | ΠΡΠ°ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ | |
ΠΠΎΠ΄ΡΠ»Ρ «Unit2» | ||
procedure TForm2. FormPaint | ΠΠ°ΠΊΡΠ°ΡΠΈΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | |
ΠΠΎΠ΄ΡΠ»Ρ «UnitMedSestra» | ||
Procedure N1Click | ΠΡΠ·ΠΎΠ² ΡΠΎΡΠΌΡ Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ | |
procedure mnFindClick | ΠΡΠ·ΠΎΠ² ΡΠΎΡΠΌΡ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° | |
procedure tbPalataBeforeDelete | ΠΠ°ΡΠΊΠ°Π΄Π½ΠΎΠ΅ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΏΠ°Π»Π°ΡΡ ΠΏΡΠΈ ΠΎΡΡΡΡΡΡΠ²ΠΈΠ΅ Π² Π½Π΅ΠΉ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² | |
procedure tbOtdelBeforeDelete | ΠΠ°ΡΠΊΠ°Π΄Π½ΠΎΠ΅ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ, Π΅ΡΠ»ΠΈ Π²ΡΠ΅ ΠΏΠ°Π»Π°ΡΡ ΠΏΡΡΡΡΠ΅ | |
procedure tbPalataAfterPost | ΠΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΠ°Π»Π°ΡΡ ΡΠΎΠ·Π΄Π°Π΅ΠΌ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² Π² Π½Π΅ΠΉ ΠΏΡΡΠ΅ΠΌ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ | |
procedure tbPacientAfterPost | ΠΠΎΡΠ»Π΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° Π² ΠΏΠ°Π»Π°ΡΡ ΠΎΠ½Π° Π½Π° ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π·Π°Π½ΠΈΠΌΠ°Π΅ΡΡΡ | |
procedure tbOtdelAfterScroll | ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ»Π΅ ΡΠΏΠΈΡΠΊΠ° Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΠΏΠ°Π»Π°ΡΡ | |
procedure tbPalataBeforeDelete | ΠΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π°Π»ΠΈΡΡ ΠΏΠ°Π»Π°ΡΡ ΠΏΡΠΈ Π½Π°Π»ΠΈΡΠΈΠ΅ Π² Π½Π΅ΠΉ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² | |
procedure tbOtdelBeforeDelete | ΠΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π°Π»ΠΈΡΡ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠΊΠ° Π²ΡΠ΅ ΠΏΠ°Π»Π°ΡΡ Π½Π΅ ΠΏΡΡΡΡΠ΅ | |
procedure tbPacientBeforeInsert | ΠΠ»ΠΎΠΊΠΈΡΡΠ΅ΡΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΠΈΠ· ΡΠ΅ΡΠΊΠΈ | |
procedure FormCanResize | ||
procedure FormClose | ||
procedure FormShow | ||
ΠΠΎΠ΄ΡΠ»Ρ «UnitFilter» | ||
procedure btnFilterClick | ΠΠΎΠΈΡΠΊ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΏΠΎ Π΄Π°ΡΠ΅ | |
procedure btnFamilClick | ΠΠΎΠΈΡΠΊ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ | |
procedure FormShow | ||
procedure FormCanResize | ||
ΠΠΎΠ΄ΡΠ»Ρ «UnitPassword» | ||
procedure FormShow | ||
procedure Timer1Timer | ΠΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡ Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ | |
Π’Π°Π±Π»ΠΈΡΠ° 1. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ
5. ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅
5.1 Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΡΡΠ°Π²ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 2).
Π ΠΈΡΡΠ½ΠΎΠΊ 2. ΠΠ°ΡΡΠ°Π²ΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΠΎΡΠ»Π΅ Π·Π°ΡΡΠ°Π²ΠΊΠΈ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π³Π»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 4). ΠΠ° Π½Π΅ΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π²ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, ΠΈΠΌΠ΅ΡΡΡΡΡΡ Π² ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΎΠ± ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅, ΠΏΠ°Π»Π°ΡΠ΅ ΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°Ρ , Π»Π΅ΡΠ°ΡΠΈΡ ΡΡ Π² Π΄Π°Π½Π½ΠΎΠΉ Π±ΠΎΠ»ΡΠ½ΠΈΡΠ΅. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΡΡΠ΅Π΅ Π²Π°Ρ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅, ΠΏΠ°Π»Π°ΡΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°. ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΡΡΠ΅Π³ΠΎ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΈ ΠΏΠ°Π»Π°ΡΡ Π² ΠΏΡΠ°Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ Π±ΡΠ΄ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°Ρ , Π»Π΅ΠΆΠ°ΡΠΈΡ ΡΠ°ΠΌ. ΠΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ (Π²ΡΠΏΠΈΡΠΊΠ°, ΠΏΠΎΡΡΡΠΏΠ»Π΅Π½ΠΈΠ΅). ΠΡΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ² ΠΈΠ· ΠΏΠ°Π»Π°ΡΡ ΠΎΠ½ΠΈ Π±ΡΠ΄ΡΡ ΡΠ΄Π°Π»Π΅Π½Ρ ΠΈΠ· Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ°ΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΡΠ²Π΅ΡΠ½ΡΡΡ Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ, ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Π½ΡΡ Π² ΠΏΡΠ°Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ Alt+F4.
Π ΠΈΡΡΠ½ΠΎΠΊ 4. ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΠΈΡΠΊΠΎΠΌ. ΠΠΎΠΈΡΠΊ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΈΠ»ΠΈ ΠΏΠΎ ΡΡΠΎΠΊΡ Π΅Π³ΠΎ ΠΏΡΠ΅Π±ΡΠ²Π°Π½ΠΈΡ Π² Π±ΠΎΠ»ΡΠ½ΠΈΡΠ΅. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ Π² Π³Π»Π°Π²Π½ΠΎΠΌ ΠΌΠ΅Π½Ρ «ΠΠΎΠΈΡΠΊ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°» Π½Π° Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° ΠΏΠΎΠΈΡΠΊΠ° (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 5).
Π ΠΈΡΡΠ½ΠΎΠΊ 5. ΠΠΎΠΈΡΠΊ ΡΡΡΠ΄Π΅Π½ΡΠ° Π ΡΡΠΎΠΉ ΡΠΎΡΠΌΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «ΡΠ°ΠΌΠΈΠ»ΠΈΡ», Π΅ΡΠ»ΠΈ ΠΏΠΎΠΈΡΠΊ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ, Π·Π°ΡΠ΅ΠΌ Π·Π°Π΄Π°ΡΡ ΡΠ°ΠΌΠΈΠ»ΠΈΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΠ, ΠΈΠ»ΠΈ Π΅ΡΠ»ΠΈ ΠΏΠΎΠΈΡΠΊ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΎ Π΄Π°ΡΠ΅, Π½Π°ΠΆΠ°ΡΡ «Π΄Π°ΡΠ°» ΠΈ Π²Π²Π΅ΡΡΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π½Π΅ΠΉ. ΠΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎΠΊΠ°Π·Π°Π½ Π½Π° Π ΠΈΡΡΠ½ΠΊΠ΅ 6 (Π°) ΠΈ (Π±).
Π ΠΈΡΡΠ½ΠΎΠΊ 6(Π°) ΠΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ Π ΠΈΡΡΠ½ΠΎΠΊ 6 (Π±). ΠΠΎΠΈΡΠΊ ΠΏΠΎ Π΄Π°ΡΠ΅ ΠΠΎΡΠ»Π΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΈΠ· Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ², Π² Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ Π»ΠΎΠΊΠ°Π»ΠΈΠ·Π°ΡΠΈΡ Π½Π° Π΄Π°Π½Π½ΠΎΠΌ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ΅ (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 7).
Π ΠΈΡΡΠ½ΠΎΠΊ 7. ΠΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎ Π±Ρ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΡΠΎΡΠΌΠ΅ Π΄Π»Ρ Π³Π»Π°Π²Π²ΡΠ°ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² Π³Π»Π°Π²Π½ΠΎΠΌ ΠΌΠ΅Π½Ρ, Π½Π° ΡΠΎΡΠΌΠ΅ Π΄Π»Ρ ΠΌΠ΅Π΄ΡΠ΅ΡΡΡΡ, Π²ΡΠ±ΡΠ°ΡΡ «ΡΠΎΡΠΌΠ° Π΄Π»Ρ Π³Π»Π°Π²Π²ΡΠ°ΡΠ°». ΠΠΎ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ, Π΄Π»Ρ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ, ΠΏΠΎΡΠ²ΠΈΡΡΡΡ ΡΠΎΡΠΌΠ° Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 8)
Π ΠΈΡΡΠ½ΠΎΠΊ 8. Π€ΠΎΡΠΌΠ° Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° Π²Π΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΠ°ΡΠΎΠ»Ρ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° Π΄Π»Ρ Π³Π»Π°Π²Π²ΡΠ°ΡΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π² Π±Π°Π·Ρ, ΠΈΠ»ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΈΠ· Π½Π΅Π΅ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΏΠ°Π»Π°ΡΡ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΠΎΠΉΠΊΠΎΠΌΠ΅ΡΡ (ΡΠΌ. Π ΠΈΡΡΠ½ΠΎΠΊ 9)
Π ΠΈΡΡΠ½ΠΎΠΊ 9. ΡΠΎΡΠΌΠ° Π΄Π»Ρ Π³Π»Π°Π²Π²ΡΠ°ΡΠ°
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ «ΠΠΎΠ»ΡΠ½ΠΈΡΠ°», ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π² Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΊΡΡΠ°Π»ΡΠ½ΠΎΠΉ Π½Π° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π²ΡΠ΅ Π±ΠΎΠ»ΡΠ½ΠΈΡΡ Π½ΡΠΆΠ΄Π°ΡΡΡΡ Π² Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. ΠΠ°ΠΌΠΈ Π±ΡΠ»ΠΈ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½Ρ Π½Π°Π²ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ Object Pascal Π² ΡΡΠ΅Π΄Π΅ Delphi 7.0. Π’Π°ΠΊΠΆΠ΅ ΠΌΡ Π½Π°ΡΡΠΈΠ»ΠΈΡΡ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°Ρ, ΠΎΠ²Π»Π°Π΄Π΅Π»ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΠΎΡΠ»Π°Π΄ΠΊΠΈ ΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π½Π°ΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΡΡΠΎΠΉΡΠΈΠ²ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Π²ΡΠ΅ ΡΠ²ΠΎΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½ΠΎ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π΅Π΅ Π² Π±ΠΎΠ»ΡΠ½ΠΈΡΠ°Ρ , ΠΎΠ½Π° ΡΡΠ΅Π±ΡΠ΅Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΡΠ°Π±ΠΎΡΠΎΠΊ: ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΏΡΡΠ΅ΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΡ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΡΡΠΈΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΠΎΠΈΡΠΊΠ° (ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ Π΄Π²ΡΠΌ ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»ΡΠΌ), ΠΈ Ρ. Π΄.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. Π. Π―. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi 7
2. Π. ΠΠΈΠΊΠ»ΡΠ΅Π² «Π£ΡΠ΅Π±Π½ΠΈΠΊ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ IBM PC», ΠΠΎΡΠΊΠ²Π° — 2000
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π
ΠΠΈΡΡΠΈΠ½Π³ ΠΌΠΎΠ΄ΡΠ»Ρ «Unit2.pas»
procedure TForm2. FormPaint (Sender: TObject);
var y: integer; red: byte;
const text='ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ Π±ΠΎΠ»ΡΠ½ΠΈΡΡ';
begin
with Canvas do
begin
for y := 0 to Form2. Height-1 do
begin
red:=round ($FF*(Form2.Height-y)/Form2.Height);
pen.Color:=rgb (red, 0,0);
moveTo (0,y);
LineTo (Form2.Width-1,y)
end; // for
Font.Size:=32;
Font.Style:=[fsBold, fsItalic, fsUnderLine];
Font.Name:='Times New Roman Cyr';
Brush.Style:=bsClear;
Font.Color:=clBlack;
TextOut (40,30,Text);
Font.Color:=clWhite;
TextOut (36,26,Text);
end;// with
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
close
end;
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ B
ΠΠΈΡΡΠΈΠ½Π³ ΠΌΠΎΠ΄ΡΠ»Ρ «UnitMedSestra.pas»
procedure TFormMedSestra. N1Click (Sender: TObject);
begin
FormDeactivate (Self);
if (FormPassword.ShowModal=mrOk) and
(FormPassword.Edit1.Text='1') then
FormGlavVrach.Showmodal;
FormActivate (Self);
end;
procedure TFormMedSestra. FormShow (Sender: TObject);
begin
tbOtdel.Open;
tbPalata.Open;
tbPacient.Open;
form2.ShowModal;
DBLookupComboBox1.KeyValue:=tbOtdel.fieldByName ('Notdel').AsInteger
end;
procedure TFormMedSestra. FormClose (Sender: TObject;
var Action: TCloseAction);
begin
tbOtdel.Close;
tbPalata.Close;
tbPacient.Close;
end;
procedure TFormMedSestra. tbPacientAfterDelete (DataSet: TDataSet);
begin // ΠΏΠΎΡΠ»Π΅ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΏΠ°Π»Π°ΡΠ° Π½Π° ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΎΡΠ²ΠΎΠ±ΠΎΠΆΠ΄Π°Π΅ΡΡΡ
tbPalata.Edit;
tbPalata.FieldByName ('Kol_pacient').AsInteger:=
tbPalata.FieldByName ('Kol_pacient').AsInteger-1;
tbPalata.Post;
if FormFilter. Visible then // Π΅ΡΠ»ΠΈ ΠΏΠΎΠΈΡΠΊΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° Π²ΠΈΠ΄ΠΈΠΌΠ° — ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π½Π° Π½Π΅ΠΉ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π°ΠΊΡΡΠ°Π»ΡΠ½Π°
begin
FormFilter.tbPalata2.Refresh;
FormFilter.tbPacient2.Refresh;
end;
end;
procedure TFormMedSestra. tbPacientBeforePost (DataSet: TDataSet);
begin // Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ Ρ ΠΏΡΡΡΡΠΌΠΈ ΠΏΠΎΠ»ΡΠΌΠΈ: «ΡΠ°ΠΌΠΈΠ»ΠΈΡ ΠΈ Π΄ΠΈΠ°Π³Π½ΠΎΠ·»
PacSt:= tbPacient. State;
if tbPacient. FieldByName ('Famil').AsString='' then
if tbPacient. FieldByName ('Diagnoz').AsString='' then
begin
tbPacient.Cancel;
Abort
end
else
begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ°ΠΌΠΈΠ»ΠΈΡ');
Abort
end
end;
procedure TFormMedSestra. tbPacientAfterPost (DataSet: TDataSet);
begin // ΠΏΠΎΡΠ»Π΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ (Π½ΠΎ Π½Π΅ ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ) ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° ΠΏΠ°Π»Π°ΡΠ° Π½Π° ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π·Π°Π½ΠΈΠΌΠ°Π΅ΡΡΡ
if PacSt=dsInsert then begin
tbPalata.Edit;
tbPalata.FieldByName ('Kol_pacient').AsInteger:=
tbPalata.FieldByName ('Kol_pacient').AsInteger+1;
tbPalata.Post;
end;
if FormFilter. Visible then // Π΅ΡΠ»ΠΈ ΠΏΠΎΠΈΡΠΊΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° Π²ΠΈΠ΄ΠΈΠΌΠ° — ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π½Π° Π½Π΅ΠΉ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π°ΠΊΡΡΠ°Π»ΡΠ½Π°
begin
FormFilter.tbPalata2.Refresh;
FormFilter.tbPacient2.Refresh;
end;
end;
procedure TFormMedSestra. tbPacientBeforeInsert (DataSet: TDataSet);
begin // Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ°, Π΅ΡΠ»ΠΈ Π²ΡΡ ΠΏΠ°Π»Π°ΡΠ° Π·Π°Π½ΡΡΠ°
if tbPalata. FieldByName ('Kol_pacient').AsInteger=
tbPalata.FieldByName ('Kol_mest').AsInteger then abort;
end;
procedure TFormMedSestra. tbPacientNewRecord (DataSet: TDataSet);
begin // ΠΌΠ°Π»Π΅Π½ΡΠΊΠΈΠΉ ΡΠ΅ΡΠ²ΠΈΡ Ρ Π²ΡΡΠ°Π²ΠΊΠΎΠΉ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π΄Π°ΡΡ ΠΏΡΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠ° (ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ Π²Π΅ΡΠΎΡΡΠ½ΠΎΡΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ ΠΏΡΠΈ Π²Π²ΠΎΠ΄Π΅ Π΄Π°ΡΡ)
tbPacient.FieldByName ('DataPostup').AsDateTime:=now;
end;
procedure TFormMedSestra. mnFindClick (Sender: TObject);
begin
FormFilter.Show
end;
procedure TFormMedSestra. tbOtdelAfterScroll (DataSet: TDataSet);
begin
if tbOtdel. fieldByName ('Notdel').AsInteger>0 then // Π±Π΅Π· ΡΡΠΎΠΉ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΡ
// Π² DBGrid ΡΡΡΠ΅Π»ΠΊΠΎΠΉ Π²Π½ΠΈΠ· Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ
DBLookupComboBox1.KeyValue:=tbOtdel.fieldByName ('Notdel').AsInteger;
StaticText1.Caption:=tbOtdel.fieldByName ('Kol_palat').AsString;
end;
procedure TFormMedSestra. tbPalataAfterScroll (DataSet: TDataSet);
begin
if tbPalata. fieldByName ('Npalat').AsInteger>0 then // Π±Π΅Π· ΡΡΠΎΠΉ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ°Π»Π°ΡΡ
// Π² DBGrid ΡΡΡΠ΅Π»ΠΊΠΎΠΉ Π²Π½ΠΈΠ· Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ
DBLookupListBox1.KeyValue:=tbPalata.fieldByName ('Npalat').AsInteger
end;
procedure TFormMedSestra. tbPalataBeforeDelete (DataSet: TDataSet);
begin
if tbPalata. FieldByName ('Kol_Pacient').AsInteger>0 then
begin
windows.beep (400,200);
windows.beep (200,200);
ShowMessage ('ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΏΠ°Π»Π°ΡΡ Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈ Π½Π°Π»ΠΈΡΠΈΠΈ Π² Π½Π΅ΠΉ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ²');
abort
end;
end;
procedure TFormMedSestra. tbPalataAfterDelete (DataSet: TDataSet);
begin
tbOtdel.Edit;
tbOtdel.FieldByName ('Kol_palat').AsInteger:=
tbOtdel.FieldByName ('Kol_palat').AsInteger-1;
tbOtdel.Post
end;
procedure TFormMedSestra. tbOtdelBeforeDelete (DataSet: TDataSet);
begin
tbPalata.First;
while not tbPalata. Eof do
begin
if tbPalata. FieldByName ('Kol_Pacient').AsInteger >0 then
begin
windows.beep (400,200);
windows.beep (500,200);
windows.beep (600,200);
ShowMessage ('Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π°Π»ΠΈΡΡ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π½Π΅ Π²ΡΠ΅ ΠΏΠ°Π»Π°ΡΡ ΠΏΡΡΡΡΠ΅');
abort;
end;
tbPalata.Next
end; // ΠΏΠ°Π»Π°ΡΡ ΠΊΠ°ΡΠΊΠ°Π΄Π½ΠΎ Π±ΡΠ΄ΡΡ ΡΠ΄Π°Π»ΡΡΡΡΡ, Π΅ΡΠ»ΠΈ Π½ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· Π½ΠΈΡ Π½Π΅ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ²
while not tbPalata. Bof do tbPalata. Delete
end;
procedure TFormMedSestra. tbPalataBeforePost (DataSet: TDataSet);
begin
if tbPalata. FieldByName ('Kol_mest').AsInteger < tbPalata. FieldByName ('Kol_pacient').AsInteger then
begin
windows.beep (500,200);
windows.beep (300,200);
windows.beep (200,200);
ShowMessage ('ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΠΎΠΉΠΊΠΎΠΌΠ΅ΡΡ Π½Π΅Π»ΡΠ·Ρ Π΄Π΅Π»Π°ΡΡ ΠΌΠ΅Π½ΡΡΠ΅, ΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠ°ΡΠΈΠ΅Π½ΡΠΎΠ²');
abort;
end;
PalSt:=tbPalata.State
end;
procedure TFormMedSestra. tbPalataAfterPost (DataSet: TDataSet);
begin
if PalSt=dsInsert then begin
tbOtdel.Edit;
tbOtdel.FieldByName ('Kol_palat').AsInteger:=
tbOtdel.FieldByName ('Kol_palat').AsInteger+1;
tbOtdel.Post;
end;
end;
procedure TFormMedSestra. DBLookupComboBox1DropDown (Sender: TObject);
begin // ΠΏΡΠΈ Π²ΡΠΏΠ°Π΄Π΅Π½ΠΈΠΈ ΡΠΏΠΈΡΠΊΠ°, StaticText1 — ΡΠ΅ΡΠ½ΠΎΠ΅ Π½Π° Π±Π΅Π»ΠΎΠΌ
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
procedure TFormMedSestra. DBLookupComboBox1CloseUp (Sender: TObject);
begin // ΠΏΡΠΈ Π·Π°Ρ Π»ΠΎΠΏΡΠ²Π°Π½ΠΈΠΈ ΡΠΏΠΈΡΠΊΠ°, StaticText1 — Π±Π΅Π»ΠΎΠ΅ Π½Π° ΡΠΈΠ½Π΅ΠΌ
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
procedure TFormMedSestra. DBLookupComboBox1Exit (Sender: TObject);
begin // ΠΏΡΠΈ ΠΏΠΎΡΠ΅ΡΠ΅ ΡΠΎΠΊΡΡΠ°, StaticText1 — ΡΠ΅ΡΠ½ΠΎΠ΅ Π½Π° Π±Π΅Π»ΠΎΠΌ
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
procedure TFormMedSestra. DBLookupComboBox1Enter (Sender: TObject);
begin // ΠΏΡΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠΈ ΡΠΎΠΊΡΡΠ°, StaticText1 — Π±Π΅Π»ΠΎΠ΅ Π½Π° ΡΠΈΠ½Π΅ΠΌ
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
procedure TFormMedSestra. FormDeactivate (Sender: TObject);
begin // ΠΏΡΠΈ Π΄Π΅Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΡΠΎΡΠΌΡ ΠΈ Π΅ΡΠ»ΠΈ ΡΠΏΠΈΡΠΎΠΊ Π² ΡΠΎΠΊΡΡΠ΅, StaticText1 — ΡΠ΅ΡΠ½ΠΎΠ΅ Π½Π° Π±Π΅Π»ΠΎΠΌ
if FormMedSestra. ActiveControl= DBLookupComboBox1 then
begin
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
end;
procedure TFormMedSestra. FormActivate (Sender: TObject);
begin // ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΡΠΎΡΠΌΡ ΠΈ Π΅ΡΠ»ΠΈ ΡΠΏΠΈΡΠΎΠΊ Π² ΡΠΎΠΊΡΡΠ΅, StaticText1 — Π±Π΅Π»ΠΎΠ΅ Π½Π° ΡΠΈΠ½Π΅ΠΌ
if FormMedSestra. ActiveControl= DBLookupComboBox1 then
begin
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
end;
procedure TFormMedSestra. FormCanResize (Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewWidth:=width
end;
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ C
ΠΠΈΡΡΠΈΠ½Π³ ΠΌΠΎΠ΄ΡΠ»Ρ «UnitPassword»
procedure TFormPassword. FormShow (Sender: TObject);
begin
AlphaBlendValue:=0;
Timer1.Enabled:=true;
edit1.SetFocus;
edit1.Clear
end;
procedure TFormPassword. Timer1Timer (Sender: TObject);
begin
if AlphaBlendValue<255 then
AlphaBlendValue:=AlphaBlendValue+15
else
Timer1.Enabled:=false
end;
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ D
ΠΠΈΡΡΠΈΠ½Π³ ΠΌΠΎΠ΄ΡΠ»Ρ «UnitFilter»
procedure TFormFilter. EdFilterKeyPress (Sender: TObject; var Key: Char);
begin
if not (key in ['0'.'9',#8]) then key:=#0
end;
procedure TFormFilter. btnFilterClick (Sender: TObject);
var a: TDate;
begin
try
a:=date-StrToInt (EdFilter.Text);
except
showMessage ('ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π½Π΅ΠΉ');
exit
end;
tbPacient2.Filter:= 'DataPostup<='+QuotedStr (DateToStr (a));
end;
procedure TFormFilter. FormShow (Sender: TObject);
begin
tbPacient2.Open;
tbPalata2.Open;
end;
procedure TFormFilter. FormClose (Sender: TObject; var Action: TCloseAction);
begin
tbPacient2.Close;
tbPalata2.Close;
end;
procedure TFormFilter. btnFamilClick (Sender: TObject);
begin
tbPacient2.Filter:='Famil='+QuotedStr (EdFamil.Text);
end;
procedure TFormFilter. tbPacient2AfterScroll (DataSet: TDataSet);
begin
FormMedSestra.tbOtdel.Locate ('Notdel', tbPacient2. FieldByName ('lkNotdel2').AsInteger,[]);
FormMedSestra.tbPalata.Locate ('Npalat', tbPacient2. FieldByName ('Npalat').AsInteger,[]);
FormMedSestra.tbPacient.Locate ('Nfamil', tbPacient2. FieldByName ('Nfamil').AsInteger,[]);
end;
procedure TFormFilter. SpeedButton1Click (Sender: TObject);
begin
EdFamil.Enabled:=true;
btnFamil.Enabled:=true;
EdFilter.Enabled:=false;
btnFilter.Enabled:=false
end;
procedure TFormFilter. SpeedButton2Click (Sender: TObject);
begin
EdFamil.Enabled:=false;
btnFamil.Enabled:=false;
EdFilter.Enabled:=true;
btnFilter.Enabled:=true
end;
procedure TFormFilter. FormCanResize (Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewWidth:=Width
end;