Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ²
ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Ρ ΡΠ°Π½ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ, ΠΎΠ±Π»Π΅Π³ΡΠ°Π΅Ρ Π΄ΠΎΡΡΡΠΏ ΠΊ Π΄Π°Π½Π½ΡΠΌ, ΠΏΠΎΠΈΡΠΊ ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ. ΠΡΠΎΡΡΠ΅ΠΉΡΠ΅ΠΉ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΈΡΠ°ΡΡ ΡΠ΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΈΠ»ΠΈ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠ½ΠΈΠ³ Π² Π²Π°ΡΠ΅ΠΉ Π΄ΠΎΠΌΠ°ΡΠ½Π΅ΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅. Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΎΠΏΠ΅ΡΠΈΡΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π² ΡΠ°ΠΌΠΎΠΌ ΡΠ°Π·Π½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, — ΠΎΡ ΠΎΠ±ΡΡΠ½ΡΡ ΡΠΈΡΠ΅Π» ΠΈ ΡΠ΅ΠΊΡΡΠ°… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π¦Π΅Π»Ρ ΠΌΠΎΠ΅ΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π΄Π»Ρ Π±Π°Π· Π΄Π°Π½Π½ΡΡ . ΠΠ»Π°Π³ΠΎΠ΄Π°ΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ, ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ, Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ ΠΈ ΡΠ΄Π°Π»ΡΡΡ Π΄Π°Π½Π½ΡΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² Π² ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΡΠ΅Π΄Π΅ Delphi.
1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ
1.1 ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ΠΠ΅ΡΡ ΠΎΠΊΡΡΠΆΠ°ΡΡΠΈΠΉ Π½Π°Ρ ΠΌΠΈΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠΎΠ². ΠΡΠ±ΠΎΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΈΠ»ΠΈ ΡΠΈΡΡΠ°ΡΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠΎΠ², ΠΎΠ±Π»Π°Π΄Π°ΡΡΠΈΡ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ ΡΠ²ΠΎΠΉΡΡΠ². ΠΠΎΠΏΡΡΠΊΠ° ΠΎΠΏΠΈΡΠ°ΡΡ Π²Π΅ΡΡ ΠΎΠΊΡΡΠΆΠ°ΡΡΠΈΠΉ Π½Π°Ρ ΠΌΠΈΡ Π²ΠΎ Π²ΡΠ΅ΠΌ Π΅Π³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΎΠ±ΡΠ°Π·ΠΈΠΈ, Ρ. Π΅. ΡΠΎΠ·Π΄Π°ΡΡ Π΅Π³ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΌΠΎΠ΄Π΅Π»Ρ, — Π·Π°Π½ΡΡΠΈΠ΅ Π±Π΅ΡΡΠΌΡΡΠ»Π΅Π½Π½ΠΎΠ΅ ΠΈ Π±Π΅ΡΠΏΠΎΠ»Π΅Π·Π½ΠΎΠ΅. ΠΠ΅ΠΏΠΎΠ½ΡΡΠ½ΠΎ, Π½Π°ΡΠΊΠΎΠ»ΡΠΊΠΎ Π΄Π΅ΡΠ°Π»ΡΠ½ΠΎ, ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΈ Ρ ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΡΡ ΡΠΎΡΠ½ΠΎΡΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ. ΠΠ±ΡΠ΅ΠΊΡΠΈΠ²Π½Π°Ρ ΡΠ΅Π°Π»ΡΠ½ΠΎΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ° ΠΈ Π²ΡΡΠ°ΠΆΠ΅Π½Π° Π² ΡΠΎΡΠΌΠ°Ρ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ, ΡΠ·ΡΠΊΠ΅, Π·Π½Π°Π½ΠΈΡΡ . ΠΠ±ΡΠ΅ΠΊΡ — ΡΡΠΎ ΠΏΠΎΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΌΠ΅Ρ, ΠΎΠ±Π»Π°Π΄Π°ΡΡΠΈΠΉ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌΠΈ, Π½Π° ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅. ΠΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎ ΡΠΈΠ·ΠΈΠΊΠ΅ ΠΌΡ ΠΏΡΠ΅Π½Π΅Π±ΡΠ΅Π³Π°Π΅ΠΌ ΡΠΈΠ»ΠΎΠΉ ΡΡΠ΅Π½ΠΈΡ, Π²Π΅ΡΠΎΠΌ Π»ΠΈΠ±ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΡΠ΅Π», Π½ΠΎ ΠΏΡΠΈ Π΄ΡΡΠ³ΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΡΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΡΠΈΠ²Π΅Π΄ΡΡ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅.
ΠΠ½Π°Π½ΠΈΡ ΠΎΠ± ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ² Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡ Π² Π»ΡΠ±ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ, Π±ΡΠ΄Ρ ΡΠΎ Π±ΡΡ Π³Π°Π»ΡΠ΅ΡΠΈΡ, Π³Π΅ΠΎΠ»ΠΎΠ³ΠΈΡ ΠΈΠ»ΠΈ ΡΡΠ°Π½ΡΠΏΠΎΡΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ·ΠΊΠΈ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π½Π°Ρ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΠ΅Ρ ΡΠΎΡ ΠΌΠΈΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ Π½Π°ΡΠΈ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΡ, Ρ. Π΅.Π·Π°ΠΌΠΊΠ½ΡΡΠ°Ρ, Π² ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ, ΡΠΈΡΡΠ΅ΠΌΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² — ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠ±Π»Π°ΡΡΡ (ΠΠ).
Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° Π·Π°Π΄Π°Ρ ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ Π±ΠΎΠ»ΡΡΠΈΠΌΠΈ ΠΎΠ±ΡΠ΅ΠΌΠ°ΠΌΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΠ°Π»Π΅ΠΊΠΎ Π½Π΅ Π²ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅. Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΈΡ Π·Π°Π΄Π°Ρ ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΡΠΎΠΊΠ°ΠΌΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, Π°Π½Π°Π»ΠΈΠ·Ρ Π΄Π°Π½Π½ΡΡ . ΠΡΠ±Π°Ρ ΡΠΏΡΠ°Π²ΠΊΠ°, Π³Π»Π°Π²Π° ΠΊΠ½ΠΈΠ³ΠΈ, ΠΏΠΈΡΡΠΌΠΎ, ΠΊΠ²ΠΈΡΠ°Π½ΡΠΈΡ — ΡΡΠΎ Π΄Π°Π½Π½ΡΠ΅, ΠΎΡΠΎΡΠΌΠ»Π΅Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ Π±ΡΠΌΠ°Π³ΠΈ, Π² ΡΠ°Π±Π»ΠΈΡΠ΅. ΠΡΠ±ΡΠ΅ Π·Π½Π°Π½ΠΈΡ — ΡΡΠΎ ΡΠ²ΠΎΠ΅Π³ΠΎ ΡΠΎΠ΄Π° Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠΌΠΈ ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ. ΠΡΠ»ΠΈ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π°ΡΠΈΡ Π·Π°Π΄Π°Ρ Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡ Π·Π½Π°Π½ΠΈΡ ΠΎΠ± ΠΎΠ΄Π½ΠΎΡΠΈΠΏΠ½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ ΠΈΠ»ΠΈ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΡ ΡΡ ΡΠ²Π»Π΅Π½ΠΈΡΡ , ΡΠΎ Π½Π°ΠΌ ΡΡΠΎΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ (ΠΠ) — ΡΡΠΎ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π·Π½Π°Π½ΠΈΡ ΠΎΠ± ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ .
ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Ρ ΡΠ°Π½ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ, ΠΎΠ±Π»Π΅Π³ΡΠ°Π΅Ρ Π΄ΠΎΡΡΡΠΏ ΠΊ Π΄Π°Π½Π½ΡΠΌ, ΠΏΠΎΠΈΡΠΊ ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ. ΠΡΠΎΡΡΠ΅ΠΉΡΠ΅ΠΉ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΈΡΠ°ΡΡ ΡΠ΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΈΠ»ΠΈ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠ½ΠΈΠ³ Π² Π²Π°ΡΠ΅ΠΉ Π΄ΠΎΠΌΠ°ΡΠ½Π΅ΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅. Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΎΠΏΠ΅ΡΠΈΡΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π² ΡΠ°ΠΌΠΎΠΌ ΡΠ°Π·Π½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, — ΠΎΡ ΠΎΠ±ΡΡΠ½ΡΡ ΡΠΈΡΠ΅Π» ΠΈ ΡΠ΅ΠΊΡΡΠ° Π΄ΠΎ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ Π²ΠΈΠ΄Π΅ΠΎΠ΄Π°Π½Π½ΡΡ .
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π·Π°Π΄Π°ΡΡ ΠΎ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΠΊΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΆΡΡΠ½Π°Π»Π°. ΠΡ ΡΡΠ°Π»ΠΊΠΈΠ²Π°Π΅ΠΌΡΡ Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΌΠΎΠΌ ΠΎΠ΄Π½ΠΎΡΠΈΠΏΠ½ΡΡ Π·Π½Π°Π½ΠΈΠΉ ΠΎΠ± ΡΡΠ°ΡΠΈΡ ΡΡ (Π°Π΄ΡΠ΅Ρ, ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΡΠΎΠ΄ΠΈΡΠ΅Π»Π΅ΠΉ, Π΄Π°ΡΠ° ΡΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΈ Ρ. Π΄.) ΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ (ΡΠΈΠΏΡ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΠΌΡΡ ΡΠ°Π±ΠΎΡ, ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΡ ΠΈ Π΄Ρ.). ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ·ΡΠΊΠΎΠ² Π½Π΅ΡΠΌΠ΅ΡΡΠ½ΠΎ. ΠΠΌΠ΅Π½Π½ΠΎ Π΄Π»Ρ ΡΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΡΠ»ΡΠΆΠΈΡ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ (Π‘Π£ΠΠ)
1.2 Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ (Π‘Π£ΠΠ) — ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡ ΡΠ·ΡΠΊΠΎΠ²ΡΡ , ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΈ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ΅Π΄ΡΡΠ², ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈ ΠΠ. ΠΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π΅ ΠΏΡΠΈΠ²ΡΠ·ΡΠ²Π°ΡΡΡΡ ΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌ. Π Π½ΠΈΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ , Π° Ρ.ΠΊ. Π²ΡΠ΅ΠΌΡ Π½Π΅ ΡΡΠΎΠΈΡ Π½Π° ΠΌΠ΅ΡΡΠ΅, ΡΠΎ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π½ΠΎΠ²ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΈΠ»ΠΈ Π½ΠΎΠ²ΠΎΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠ΅ Π‘Π£ΠΠ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ΠΎ Π²ΡΠ΅ Π±ΠΎΠ»ΡΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ.
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Ρ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π‘Π£ΠΠ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ (ΠΠ‘).
ΠΠΎ ΡΡΠ΅ΡΠ°ΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ°ΡΡ Π΄Π²Π° ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΊΠ»Π°ΡΡΠ° ΠΠ‘: ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ (ΠΠΠ‘) ΠΈ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ (Π‘ΠΠ).
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Ρ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π½Π° ΠΈΠ·Π²Π»Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Ρ ΡΠ°Π½ΠΈΠΌΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ, ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡΠΈΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΌΡ ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΌΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡ. ΠΡΠΈΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΡΡ Π½Π΅ ΡΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΡΠΈΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ, ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΠ° ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅ΠΌΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ: ΠΊΠ°ΠΊΠΈΠ΅ ΠΎΡΠ΅Π½ΠΊΠΈ ΠΏΠΎΠ»ΡΡΠΈΠ» ΡΡΠ°ΡΠΈΠΉΡΡ ΠΠ²Π°Π½ΠΎΠ² Π² ΠΏΡΠΎΡΠ»ΠΎΠΌ Π³ΠΎΠ΄Ρ ΠΏΠΎ ΡΠΈΠ·ΠΈΠΊΠ΅).
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΌΠΎΠΆΠ΅Ρ Π²ΠΎΠ²ΡΠ΅ ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΠΈΠ»ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Ρ ΡΠ°Π½ΠΈΠΌΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ, Π° Π½Π΅ ΡΠ°ΠΌΠΈ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ. ΠΡΠΈΠΌΠ΅ΡΠΎΠΌ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΠ‘ ΡΠ±Π΅ΡΠ΅Π³Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Π±Π°Π½ΠΊΠ° Π³ΠΎΡΠΎΠ΄Π°. ΠΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π²ΠΊΠ»Π°Π΄Π°Ρ ΠΆΠΈΡΠ΅Π»Π΅ΠΉ Π³ΠΎΡΠΎΠ΄Π°, Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΎΠΊ Π±Π°Π½ΠΊΠΎΠ²ΡΠΊΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌ Π²ΠΊΠ»Π°Π΄ΠΎΠ², ΡΠ°ΡΡΠ΅Ρ ΠΏΡΠΎΡΠ΅Π½ΡΠΎΠ², ΠΏΠΎΠ΄Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΈΡΠΎΠ³ΠΎΠ² Π·Π° Π½Π΅ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄ ΡΠ°Π±ΠΎΡΡ ΠΈ Ρ. Π΄.
ΠΠΎΠΊΠ°Π»ΡΠ½ΡΠ΅ ΠΈ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ
Π§ΡΠΎΠ±Ρ ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡΡΡ Π² Π·Π°Π΄Π°ΡΠ΅, Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ:
* ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΡΡ ΠΎΠ±Π»Π°ΡΡΡ, Π² ΡΠ°ΠΌΠΊΠ°Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ, Π²Π΅ΡΠΎΡΡΠ½Π΅Π΅ Π²ΡΠ΅Π³ΠΎ, Π»Π΅ΠΆΠΈΡ Π½Π°ΡΠ° Π·Π°Π΄Π°ΡΠ°;
* ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΡΠ°ΡΡΠ½ΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ ΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈΡ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠΎΠ²;
* ΡΡΠ΅Π΄ΠΈ Π²Π·Π³Π»ΡΠ΄ΠΎΠ² ΡΡΠ°ΡΡΠ½ΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ Π½Π° ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΡ ΡΠ°ΡΡΡ, ΠΊΠΎΡΠΎΡΡΡ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ Π½Π°ΡΠ° Π·Π°Π΄Π°ΡΠ°.
ΠΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΠ‘ Π²Π·Π³Π»ΡΠ΄Ρ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ Π½Π° ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π½Π°Π·ΡΠ²Π°ΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΌΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡΠΌΠΈ (ΠΠΠ).
Π‘Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΡΡΠΈΡ Π²Π·Π³Π»ΡΠ΄ΠΎΠ² Π² Π΅Π΄ΠΈΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ, Π²ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΠΈΡ ΡΡ ΡΠΏΠΈΠ·ΠΎΠ΄ΠΎΠ² ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠΎΠΉ ΡΠ°ΡΡΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠ° Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½ΠΈ Π² ΠΊΠΎΠ΅ΠΉ ΠΌΠ΅ΡΠ΅ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΊΠ»Π°Π΄ΡΠ²Π°ΡΡ Π½Π° ΠΏΠ»Π΅ΡΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΡΠΎΡ ΡΡΠ°ΠΏ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΠ‘. ΠΠ³ΠΎ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Π±Π΅Π· ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΎΡΠ΅ΠΊΠ°ΡΡ Π² ΠΈΠ·ΡΡΠ°Π΅ΠΌΠΎΠΉ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ.
ΠΠ°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΡΠ°ΠΏΠ° ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ (ΠΠΠ), Ρ. Π΅. Π±ΡΠ΄Π΅Ρ ΠΎΡΡΠ°ΠΆΠ°ΡΡ ΡΠΎΡΠΊΡ Π·ΡΠ΅Π½ΠΈΡ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΠ° ΠΠ.
2. ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°
2.1 ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ²
1) FormΠ³Π»Π°Π²Π½ΡΠΉ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΡΠ²Π»ΡΡΡΠΈΠΉΡΡ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠΎΠΌ Π΄Π»Ρ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ².
2) Button-ΠΏΡΠΎΡΡΠ°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ°, ΠΏΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°.
3) BitBtn-ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ
4) EditΠΎΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΠΎΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠ΅ΠΌΠΎΠ΅ ΠΏΠΎΠ»Π΅
5) Label-ΠΌΠ΅ΡΠΊΠ°. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π² ΠΎΠΊΠ½Π΅ Π½Π΅ ΠΎΡΠ΅Π½Ρ Π΄Π»ΠΈΠ½Π½ΡΡ ΠΎΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΡΡ Π½Π°Π΄ΠΏΠΈΡΠ΅ΠΉ.
6) MainMenu-ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΠΉ Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΡΠΎΡΠΌΡ.
7) DBGridΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΠΠ
8) Memo-ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΡΡΠΎΡΡΡ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΡΠΎΠΊ.
9) Image-ΡΠΎΠ·Π΄Π°Π΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΡΡΠ½ΠΊΠ° (ΡΠ°ΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ, ΠΏΠΈΠΊΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠ°ΡΠ°ΠΉΠ»Π°).
10) DataSource-ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ ΠΈΡΡΠΎΡΠ½ΠΈΠΊ Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΡΠ·ΡΡΡΠΈΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠΌ ΠΌΠ΅ΠΆΠ΄Ρ Π½Π°Π±ΠΎΡΠΎΠΌ Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π΄Π°Π½Π½ΡΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ.
11) DBNavigator-ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ, Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ. ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ.
12) Query-ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ°ΡΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ — Π·Π°ΠΏΠΈΡΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΊΠΎΡΠΎΡΡΡ ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΠ΅Ρ ΠΊΡΠΈΡΠ΅ΡΠΈΡ SQL-Π·Π°ΠΏΡΠΎΡΠ° ΠΊ ΡΠ°Π±Π»ΠΈΡΠ΅.
13) Table-ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π²ΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
14) MonthCalendar-ΠΎΠ±ΡΠ΅ΠΊΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΊΠ°Π»Π΅Π½Π΄Π°ΡΡ.
15) TimerΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²Π²ΠΎΠ΄ΠΈΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π·Π°Π΄Π΅ΡΠΆΠΊΠΈ ΠΌΠ΅ΠΆΠ΄Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠ΅Ρ ΠΈΠ»ΠΈ ΠΈΠ½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ. Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Timer Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠ°ΡΡ Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ.
16) ComboBox-Π΄Π°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π²Π΅ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΏΠΎΠ»Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΡΠ΅ΠΌ Π½Π°Π±ΠΎΡΠ° Π½Π° ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ΅ ΠΈΠ»ΠΈ Π²ΡΠ±ΠΎΡΠΎΠΌ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ°.
17) CheckBoxΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ (ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ).
2.2 Π€ΠΎΡΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π€ΠΎΡΠΌΠ° «ΠΠ°Π·Π°"(Π³Π»Π°Π²Π½Π°Ρ)
Π€ΠΎΡΠΌΠ° «Π’Π°Π±Π»ΠΈΡΠ°»
Π€ΠΎΡΠΌΠ° «SQL»
Π€ΠΎΡΠΌΠ° «ΠΠΎΠΈΡΠΊ»
Π€ΠΎΡΠΌΠ° «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅»
3. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π±Π°Π·Π° Π΄Π°Π½Π½ΡΠ΅ delphi ΡΠΎΡΠΌΠ°
3.1 ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΡΠΌ Π€ΠΎΡΠΌΠ° «ΠΠ°Π·Π°"(Π³Π»Π°Π²Π½Π°Ρ).
ΠΡΠ° ΡΠΎΡΠΌΠ° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅, ΠΏΠΎΠ΄Π³ΡΡΠΆΠ΅Π½Π½ΡΠ΅ ΠΈΠ· Π±Π°Π·Ρ (ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ DBDEMOS), Π° ΡΠ°ΠΊΠΆΠ΅ Π½Π°Π²ΠΈΠ³Π°ΡΠΎΡ ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ, Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ. ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° Π½Π° ΡΠΎΡΠΌΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Ρ ΡΠ°ΡΡ ΠΈ ΠΊΠ°Π»Π΅Π½Π΄Π°ΡΡ. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΡΠΎΡΠΌ.
Π€ΠΎΡΠΌΠ° «Π’Π°Π±Π»ΠΈΡΠ°»
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠΎΠΉ ΡΠΎΡΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΌΠ΅Π½Π° ΡΠ°Π±Π»ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½Ρ .
Π€ΠΎΡΠΌΠ° «SQL»
ΠΠ° ΡΡΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π·Π°ΠΏΡΠΎΡΠΎΠ² Π½Π° ΡΠ·ΡΠΊ SQL.
Π€ΠΎΡΠΌΠ° «ΠΠΎΠΈΡΠΊ»
ΠΠ° Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ ΡΠ°Π±Π»ΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
Π€ΠΎΡΠΌΠ° «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅»
Π‘ΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅.
3.2 Π’Π΅ΠΊΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π€ΠΎΡΠΌΠ° «ΠΠ°Π·Π°"(Π³Π»Π°Π²Π½Π°Ρ).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls,
StdCtrls, ComCtrls;
type
TForm1 = class (TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
Query1: TQuery;
DBNavigator1: TDBNavigator;
N3: TMenuItem;
MonthCalendar1: TMonthCalendar;
Label1: TLabel;
Timer1: TTimer;
N4: TMenuItem;
N5: TMenuItem;
procedure N2Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure FormCanResize (Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure Timer1Timer (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure FormDestroy (Sender: TObject);
procedure N5Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm1. N2Click (Sender: TObject);
begin
Form2.Visible:=True;
end;
procedure TForm1. N3Click (Sender: TObject);
begin
Form3.Visible:=True;
end;
procedure TForm1. FormCanResize (Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Form1.DBGrid1.Height:=Form1.Height-249;
Form1.DBGrid1.Width:=Form1.Width;
MonthCalendar1.Top:=Form1.Height-234;
Label1.Top:=Form1.Height-234;
DBnavigator1.Top:=Form1.Height-234;
end;
procedure TForm1. Timer1Timer (Sender: TObject);
begin
Label1.Caption:=TimeToStr (Time);
end;
procedure TForm1. N4Click (Sender: TObject);
var i: integer;
begin
Form4.Combobox1.Items.Clear;
for i:=0 to Form1. DBGrid1.Columns.Count-1 do
Form4.ComboBox1.Items.add (Form1.DBGrid1.Columns[i]. Title. Caption);
Form4.Show;
end;
procedure TForm1. FormDestroy (Sender: TObject);
begin
ShowMessage ('looool');
end;
procedure TForm1. N5Click (Sender: TObject);
begin
Form5.Show;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
end;
end.
Π€ΠΎΡΠΌΠ° «Π’Π°Π±Π»ΠΈΡΠ°»
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit1, DBCtrls;
type
TForm3 = class (TForm)
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3. Button1Click (Sender: TObject);
begin
if Form3. ComboBox1. Text='customer' then begin
Form1.Table1.Active:=False;
Form1.Table1.TableName:='customer.db';
Form1.Table1.Active:=true;
Form1.DataSource1.DataSet:=Form1.Table1;end;
if Form3. ComboBox1. Text='employee' then begin
Form1.Table1.Active:=False;
Form1.Table1.TableName:='employee.db';
Form1.Table1.Active:=true;
Form1.DataSource1.DataSet:=Form1.Table1;end;
if Form3. ComboBox1. Text='orders' then begin
Form1.Table1.Active:=False;
Form1.Table1.TableName:='orders.db';
Form1.Table1.Active:=true;
Form1.DataSource1.DataSet:=Form1.Table1;end;
end;
procedure TForm3. Button2Click (Sender: TObject);
begin
Form3.Close;
end;
procedure TForm3. FormCreate (Sender: TObject);
begin
end;
end.
Π€ΠΎΡΠΌΠ° «SQL»
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class (TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2. Button1Click (Sender: TObject);
begin
Form1.Query1.Active:=False;
Form1.Query1.Sql.Clear;
Form1.Query1.Sql:=Form2.Memo1.Lines;
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1;
end;
procedure TForm2. Button2Click (Sender: TObject);
begin
Form2.Close;
end;
procedure TForm2. FormCreate (Sender: TObject);
begin
end;
end.
Π€ΠΎΡΠΌΠ° «ΠΠΎΠΈΡΠΊ»
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;
type
TForm4 = class (TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
CheckBox1: TCheckBox;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
procedure Button2Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
procedure ComboBox1KeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1Select (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure Edit7KeyPress (Sender: TObject; var Key: Char);
procedure Edit6KeyPress (Sender: TObject; var Key: Char);
procedure Edit5KeyPress (Sender: TObject; var Key: Char);
procedure Edit4KeyPress (Sender: TObject; var Key: Char);
procedure Edit3KeyPress (Sender: TObject; var Key: Char);
procedure Edit2KeyPress (Sender: TObject; var Key: Char);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4; perem: integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4. Button2Click (Sender: TObject);
begin
Form4.Close;
end;
procedure TForm4. Button1Click (Sender: TObject);
Label 2;
var i: integer;
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftString then begin
Form1.Query1.SQL.Clear;
Form4.Memo1.Lines.Clear;
Form4.Memo1.Lines.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');
Form1.Query1.Active:=False;
Form1.Query1.SQL.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end
else
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType in [ftSmallint, ftInteger, ftFloat]
then begin
Form1.Query1.SQL.Clear;
Form4.Memo1.Lines.Clear;
Form4.Memo1.Lines.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');
Form1.Query1.Active:=False;
Form1.Query1.SQL.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1;goto 2;
end else
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime
then begin
for i:=0 to length (Form4.Edit2.Text) do begin
if Form4. Edit2.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π΄Π΅Π½Ρ');goto 2;end;end;
for i:=0 to length (Form4.Edit3.Text) do begin
if Form4. Edit3.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΌΠ΅ΡΡΡ');goto 2;end;end;
for i:=0 to length (Form4.Edit4.Text) do begin
if Form4. Edit4.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π³ΠΎΠ΄');goto 2;end;end;
if form4. CheckBox1.Checked=true then begin
for i:=0 to length (Form4.Edit2.Text) do begin
if Form4. Edit2.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π΄Π΅Π½Ρ');goto 2;end;end;
for i:=0 to length (Form4.Edit3.Text) do begin
if Form4. Edit3.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΌΠ΅ΡΡΡ');goto 2;end;end;
for i:=0 to length (Form4.Edit4.Text) do begin
if Form4. Edit4.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π³ΠΎΠ΄');goto 2;end;end;
for i:=0 to length (Form4.Edit5.Text) do begin
if Form4. Edit5.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ°Ρ');goto 2;end;end;
for i:=0 to length (Form4.Edit6.Text) do begin
if Form4. Edit6.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΌΠΈΠ½ΡΡΡ');goto 2;end;end;
for i:=0 to length (Form4.Edit7.Text) do begin
if Form4. Edit7.Text[i] in ['a'.'z','Π°'.'Ρ'] then begin
ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅ΠΊΡΠ½Π΄Ρ');goto 2;end;end;
Form1.Query1.SQL.Clear;
Form4.Memo1.Lines.Clear;
Form4.Memo1.Lines.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'
+Form4.Edit3.Text+'.'+Form4.Edit4.Text+' '+Form4.Edit5.Text+':'
+Form4.Edit6.Text+':'+Form4.Edit7.Text+#39+';');
Form1.Query1.Active:=False;
Form1.Query1.SQL.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'
+Form4.Edit3.Text+'.'+Form4.Edit4.Text+' '+Form4.Edit5.Text+':'
+Form4.Edit6.Text+':'+Form4.Edit7.Text+#39+';');
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end;
Form1.Query1.SQL.Clear;
Form4.Memo1.Lines.Clear;
Form4.Memo1.Lines.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'
+Form4.Edit3.Text+'.'+Form4.Edit4.Text+#39+';');
Form1.Query1.Active:=False;
Form1.Query1.SQL.Add ('Select * from '+Form1.Table1.TableName+
' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'
+Form4.Edit3.Text+'.'+Form4.Edit4.Text+#39+';');
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end;
2:
end;
procedure TForm4. Button3Click (Sender: TObject);
begin
Form1.DataSource1.DataSet:=Form1.Table1;
end;
procedure TForm4. Edit1KeyPress (Sender: TObject; var Key: Char);
var k: integer;
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType in [ftSmallint, ftInteger, ftFloat]
then begin
if Key in ['0'.'9','.',#8] then begin
if key='.' then //ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π΄Π»Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠΉ Π·Π°ΠΏΡΡΠΎΠΉ
begin
if Form4. Edit1.Text='' then key:=#0;
For k:=1 to Length (Form4.Edit1.Text) do
begin
if Form4. Edit1.Text[k]='.' then key:=#0;
end;
end;
end else key:=#0;
end;end;
procedure TForm4. ComboBox1KeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Form4.ComboBox1.Text:='';
end;
procedure TForm4. ComboBox1Select (Sender: TObject);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime
then begin
Form4.CheckBox1.Show;
Form4.Edit1.Visible:=false;
Form4.Edit2.Show;
form4.Edit2.Text:='Π΄Π΄';
Form4.Edit3.Show;
form4.Edit3.Text:='ΠΌΠΌ';
Form4.Edit4.Show;
form4.Edit4.Text:='Π³Π³Π³Π³';
end
else begin Form4. CheckBox1. hide;
Form4.Edit2.Visible:=false;
Form4.Edit3.Visible:=false;
Form4.Edit4.Visible:=false;
Form4.Edit5.Visible:=false;
Form4.Edit6.Visible:=false;
Form4.Edit7.Visible:=false;
Form4.Edit1.Show; end;
end;
procedure TForm4. CheckBox1Click (Sender: TObject);
begin
if form4. CheckBox1.Checked=true then begin
Form4.Edit5.Show;
form4.Edit5.Text:='ΡΡ';
Form4.Edit6.Show;
form4.Edit6.Text:='ΠΌΠΌ';
Form4.Edit7.Show;
form4.Edit7.Text:='ΡΡ';
end else begin
Form4.Edit5.Hide;
Form4.Edit6.Hide;
Form4.Edit7.Hide; end;
end;
procedure TForm4. Edit7KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. Edit6KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. Edit5KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. Edit4KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. Edit3KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. Edit2KeyPress (Sender: TObject; var Key: Char);
begin
if Form1. Table1.FieldByName (Form4.ComboBox1.Text).DataType=ftDateTime then
begin
if not (key in['0'.'9',#8]) then key:=#0;end;
end;
procedure TForm4. FormCreate (Sender: TObject);
begin
end;
end.
Π€ΠΎΡΠΌΠ° «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅»
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm5 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
BitBtn1: TBitBtn;
Label3: TLabel;
procedure BitBtn1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5. BitBtn1Click (Sender: TObject);
begin
Form5.Hide;
end;
procedure TForm5. FormCreate (Sender: TObject);
begin
end;
end.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ» ΠΌΠ½ΠΎΠΉ ΡΠΎΠ·Π΄Π°Π½ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π΄Π»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π±ΡΠ» ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°Π·Π½ΡΠΌ ΠΏΠΎΠ»ΡΠΌ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΠΊΠΆΠ΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π±Π°Π·ΠΎΠΉ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·ΡΠΊΠ° SQL (Structured Query Language — «ΡΠ·ΡΠΊ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π·Π°ΠΏΡΠΎΡΠΎΠ²»).
ΠΠ°Π΄Π°ΡΠ° ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π° Π² ΠΏΠΎΠ»Π½ΠΎΠΉ ΠΌΠ΅ΡΠ΅, Π½ΠΎ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΈΠ΄Π΅ΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ Π΄Π»Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ΅Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ.
.ur