Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Visual Basic 6.0
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠΈΡ , ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΡΡ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ΄Π΅ΡΡ Π·Π°ΡΡΠ°Π³ΠΈΠ²Π°ΡΡΡΡ Π²ΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎ ΡΠ·ΡΠΊΠ΅ Visual Basic. ΠΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΡΡΠΎΠ΅Π½ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎ ΠΊΠ°ΠΆΠ΄Π°Ρ Π·Π°Π΄Π°ΡΠ° Π² Π½ΡΠΌ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΏΡΠΈΠΌΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ. ΠΡΠΎ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Visual Basic 6.0 (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ Π Π΅ΡΠΏΡΠ±Π»ΠΈΠΊΠΈ Π’Π°Π΄ΠΆΠΈΠΊΠΈΡΡΠ°Π½ Π’Π°Π΄ΠΆΠΈΠΊΡΠΊΠΈΠΉ Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ Π£Π½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΈΠΌ. Π°ΠΊ. Π. Π‘. ΠΡΠΈΠΌΠΈ ΠΊΠ°ΡΠ΅Π΄ΡΠ° ΠΠ‘ΠΠΠΈΠ£ ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° Π½Π° ΡΠ΅ΠΌΡ:
«Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Visual Basic 6.0»
ΠΡΡΠ°Π½Π±Π΅ 2009
1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
2. ΠΠ°ΠΊΠ΅Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ
3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
4. Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
5. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
ΠΡΠ²ΠΎΠ΄ Π‘ΠΏΡΠ°Π²ΠΊΠΈ 1
ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ) ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΠ°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
ΠΡΠ²ΠΎΠ΄ Π‘ΠΏΡΠ°Π²ΠΊΠΈ 2
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ PROD
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ) ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ Π’Π°Π±Π»ΠΈΡΠ΅ PROD
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
ΠΡΠ²ΠΎΠ΄ Π‘ΠΏΡΠ°Π²ΠΊΠΈ 3
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎΠ³ΠΎ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ VIP ΠΈ PROD
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ) ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎΠ³ΠΎ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ VIP ΠΈ PROD
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ) ΠΈ Π΅Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
6. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ
7. ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
8. Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
ΠΠ°Π½Π½ΡΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ Π½Π° ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΡΠ½ΠΎΠ² ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic 6.0. ΠΠ°Π½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΎΡΡΠ°ΡΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΡΠ°ΠΌΡΡ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΡ Π² ΠΌΠΈΡΠ΅. ΠΠ½Π° ΠΌΠΎΠΆΠ΅Ρ ΡΠ΅ΡΠ°ΡΡ ΡΠ΅Π»ΡΠΉ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡ Π·Π°Π΄Π°Ρ: ΠΎΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅ΡΠ»ΠΎΠΆΠ½ΡΡ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ, Π΄ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Π²Π°ΠΆΠ½Π΅ΠΉΡΠΈΡ ΡΠ΅Π»ΡΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ . ΠΡΠΈ ΡΡΠΎΠΌ Visual Basic ΠΎΡΡΠ°ΡΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡΡΠΌ Π² ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΠΈ ΠΈ Π² ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΌΠΎΡΠ½ΡΡ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ»Ρ ΡΠ΅Π³ΠΎ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΎΠΈΡ Π² Π½Π°ΡΠ΅ΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΡΠΊΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅? ΠΠ·ΡΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ°, Π½Π΅ΡΠΎΠΌΠ½Π΅Π½Π½ΠΎ, ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΡΠΎΡΠ½ΡΡ Π½Π°ΡΠΊ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ΅, ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ ΡΡΡΠΊΠΎ ΡΠ°Π·Π²ΠΈΡΡ ΠΎΠ±ΡΠ΅Π΅ ΠΌΡΡΠ»Π΅Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΠΎΠ² Π½Π°ΡΠ΅Π³ΠΎ ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ°, ΡΡΠΈΡ ΡΠ΅ΡΠ°ΡΡ Π·Π°Π΄Π°ΡΠΈ ΡΠ°Π·Π½ΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, ΠΎΡΠ½ΠΎΠ²ΡΠ²Π°ΡΡΡ Π½Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ Π·Π½Π°Π½ΠΈΡΡ , ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ ΡΠ΅Π»Π΅ΡΡΡΡΠ΅ΠΌΠ»ΡΠ½Π½ΠΎΡΡΠΈ ΠΈ ΡΠΎΡΡΠ΅Π΄ΠΎΡΠΎΡΠ΅Π½Π½ΠΎΡΡΠΈ, ΠΎΠ±ΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΠΈ ΡΠΎΡΠ½ΠΎΡΡΠΈ, Π»ΠΎΠ³ΠΈΡΠ½ΠΎΡΡΠΈ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ Π² ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΡΠΌΠ΅Π½ΠΈΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΡΠ°Π²ΠΈΡΡ Π·Π°Π΄Π°ΡΡ ΠΈ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΡΡΠΈ Π΅Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ. ΠΠ΅ ΠΌΠ΅Π½Π΅Π΅ Π²Π°ΠΆΠ½ΠΎ ΡΠΌΠ΅ΡΡ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ , ΠΏΡΠΎΠ°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π΅Ρ.
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠΈΡ , ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΡΡ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ΄Π΅ΡΡ Π·Π°ΡΡΠ°Π³ΠΈΠ²Π°ΡΡΡΡ Π²ΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎ ΡΠ·ΡΠΊΠ΅ Visual Basic. ΠΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΡΡΠΎΠ΅Π½ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎ ΠΊΠ°ΠΆΠ΄Π°Ρ Π·Π°Π΄Π°ΡΠ° Π² Π½ΡΠΌ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΏΡΠΈΠΌΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ. ΠΡΠΎ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΠΎ ΡΠ΅ΡΠΈΡΡ Π·Π°Π΄Π°ΡΡ, ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡΡΡ Π² Π½Π΅ΠΉ ΠΈ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ Π² ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΡΡΠΈ Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ.
Π₯ΠΎΡΡ ΠΌΠΈΠ»Π»ΠΈΠΎΠ½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ² Π²ΠΎ Π²ΡΡΠΌ ΠΌΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΠ·ΡΠΊ Visual Basic Π΄Π»Ρ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΈ Π±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ², ΠΎΠ½ Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΡΡΠ°ΡΠΈΡ ΡΡ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π ΠΏΠΎ ΡΠ΅ΠΉ Π΄Π΅Π½Ρ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic ΡΡΠΈΡΠ°Π΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΆΠ΅Π»Π°ΡΠ΅Π»ΡΠ½ΡΠΌ Π΄Π»Ρ ΡΠ΅Ρ . ΠΊΡΠΎ ΡΠΎΠ²Π΅ΡΡΠ°Π΅Ρ ΡΠ²ΠΎΠΈ ΠΏΠ΅ΡΠ²ΡΠ΅ ΡΠ°Π³ΠΈ Π² ΡΡΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ.
1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠ°Π±Π»ΠΈΡ:
Π’Π°Π±Π»ΠΈΡΠ° VIP (Π²ΡΠΏΡΡΠΊ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π² ΡΡΠ±Π»ΡΡ )
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | ΠΠ»Π°Π½ΠΎΠ²ΡΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | |||||||
1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ² | 3_ΠΉ ΠΊΠ² | 4_ΠΉ ΠΊΠ² | 1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ² | 3_ΠΉ ΠΊΠ² | 4_ΠΉ ΠΊΠ² | |||
Π ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ΅Ρ Π΅ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠΏΡΡΠΊΠ°ΡΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²ΠΈΠ΄ΠΎΠ² ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ. ΠΠ°ΠΆΠ΄ΡΠΉ Π²ΠΈΠ΄ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΠΎΠ΄Π½ΠΎΠΌ ΡΠ΅Ρ Π΅. ΠΠ° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠΈ ΠΈΠΌΠ΅ΡΡΡΡ ΡΠ΅Ρ Π° Ρ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ ΠΎΡ 1 Π΄ΠΎ 5.
Π’Π°Π±Π»ΠΈΡΠ° PROD (ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΡ)
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°Π»ΠΈΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠ° ΠΊΠ°ΡΠ΅ΡΡΠ²Π° | |
Π‘ΠΎΡΡΠ°Π² ΠΌΠ΅Π½Ρ:
1. Π Π°ΡΠΏΠ΅ΡΠ°ΡΠΊΠ° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ
2. Π€ΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ Π²ΡΠ΄Π°ΡΠ° ΡΠΏΡΠ°Π²ΠΎΠΊ:
Π‘ΠΏΡΠ°Π²ΠΊΠ° 1. ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠ½ΠΎΡΠΎΠ½Π½ΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π΅Ρ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ. ΠΠ°ΠΏΠΈΡΠΈ ΡΠΏΡΠ°Π²ΠΊΠΈ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠΈΡΡ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ Π½ΠΎΠΌΠ΅ΡΠΎΠ² ΡΠ΅Ρ ΠΎΠ²
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅Ρ Π° | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | ||||
1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ². | 3_ΠΉ ΠΊΠ². | 4_ΠΉ ΠΊΠ². | |||
Π‘ΠΏΡΠ°Π²ΠΊΠ° 2. ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΠΈΠΌΠ΅ΡΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΊΠ°ΡΠ΅ΡΡΠ²Π°. ΠΠ°Π·Π²Π°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ Π±ΡΠΊΠ² ΠΎΡ «Π» Π΄ΠΎ «Π’».
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°Π»ΠΈΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠ° ΠΊΠ°ΡΠ΅ΡΡΠ²Π° | |
Π‘ΠΏΡΠ°Π²ΠΊΠ° 3. ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Ρ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠΎΠΌ ΠΊΠ°ΡΠ΅ΡΡΠ²Π°, ΠΏΠ»Π°Π½ ΠΏΠΎ ΠΊΠΎΡΠΎΡΡΠΌ Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π² 1_ΠΎΠΌ ΠΈ 4_ΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π°Ρ ΠΈ ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΡΡ Π² ΡΠ΅Ρ Π°Ρ Ρ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌΠΈ 3 ΠΈ 5.
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | Π‘Π΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | ||||
1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ². | 3_ΠΉ ΠΊΠ². | 4_ΠΉ ΠΊΠ². | |||||
3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°. Π‘Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅ ΡΠ΅ΡΡΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π² 1, 2 ΠΈ 3 ΡΠ΅Ρ Π°Ρ
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | Π‘Π΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΠ°ΡΠ΅ΡΡΠ²Π° | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | ΠΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΠΈ | |
ΠΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
Π ΠΎΡ=|F1_P1|+|F2_P2|+|F3_P3|+|F4_P4|
Π³Π΄Π΅ — F1, F2, F3, F4 — ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠΎΠΊΠ²Π°ΡΡΠ°Π»ΡΠ½ΡΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ
— P1, P2, P3, P4 — ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠΎΠΊΠ²Π°ΡΡΠ°Π»ΡΠ½ΡΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ.
ΠΡΡΡΠ°Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΡ Π΄ΠΎΡΡΠΈΠ³Π°Π΅ΡΡΡ ΠΏΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΌ Π ΠΎΡ.
2. ΠΠ°ΠΊΠ΅Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ
PROD | ||||||||||
Π¨ΠΈΡΡ | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ | ΠΠ°Π»ΠΈΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠ° | ||||||||
ΠΠ½ΡΠΈΡΠ³ΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° | ΠΠ° | |||||||||
ΠΠΎΠ»Ρ | ΠΠ΅Ρ | |||||||||
ΠΠ°ΠΉΠΊΠ° | ΠΠ° | |||||||||
ΠΡΠ·ΠΎΠ² | ΠΠ° | |||||||||
ΠΠ²Π΅ΡΠ½Π°Ρ ΡΡΡΠΊΠ° | ΠΠ΅Ρ | |||||||||
ΠΡΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ | ΠΠ° | |||||||||
ΠΡΠΈΠΊΡΡΠΈΠ²Π°ΡΠ΅Π»Ρ | ΠΠ° | |||||||||
ΠΠΈΠΏΠ΅Π»Ρ | ΠΠ° | |||||||||
ΠΠΊΠΊΡΠΌΡΠ»ΡΡΠΎΡ | ΠΠ° | |||||||||
ΠΠΎΡΡΠ΅Π½Ρ | ΠΠ΅Ρ | |||||||||
ΠΡΠΎΠΊΠ»Π°Π΄ΠΊΠ° | ΠΠ΅Ρ | |||||||||
ΠΠ½ΠΆΠ΅ΠΊΡΠΎΡ | ΠΠ° | |||||||||
Π‘Π²Π΅ΡΠΈ | ΠΠ° | |||||||||
Π ΡΠ»Ρ | ΠΠ΅Ρ | |||||||||
VIP | ||||||||||
Π¨ΠΈΡΡ | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | ΠΏΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° 1_ΠΉ ΠΊΠ². | ΠΏΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° 2_ΠΉ ΠΊΠ². | ΠΏΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° 3_ΠΉ ΠΊΠ². | ΠΏΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° 4ΠΉ ΠΊΠ². | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ 1_ΠΉ ΠΊΠ². | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ 2_ΠΉ ΠΊΠ². | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ 3_ΠΉ ΠΊΠ². | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ 4_ΠΉ ΠΊΠ². | |
3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
Π‘ΡΠ΅Π΄Π° Visual Basic 6.0 ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ Microsoft Access, ΠΊΠΎΡΠΎΡΡΡ ΠΎΡΠ½ΠΎΡΡΡ ΠΊ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ ΡΠ°ΠΉΠΎΠ½Π½ΡΡ Π‘Π£ΠΠ.
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½Π°Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ° Visual Basic-Manager (ΠΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅Ρ Π΄Π°Π½Π½ΡΡ ), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΠ΄ΡΠΎ ΡΠΈΡΡΠ΅ΠΌΡ Access, ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΠ΅Π΅ΡΡ Π² VB.
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π΄Π°Π½Π½ΡΡ (Table Structure). ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΠ»Π°Π²Π½ΠΎΠΌ ΠΌΠ΅Π½Ρ ΠΠ»Π°Π²Π½ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ° Visual Basic 6.0 Π²ΡΠ±Π΅ΡΠ΅ΠΌ ΠΎΠΏΡΠΈΡ Add-lns (ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ), Π° Π² Π½Π΅ΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Visual Data Manager (ΠΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅Ρ Π΄Π°Π½Π½ΡΡ ). Π Π°ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ VisData.
ΠΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΌΠ΅Π½Ρ File ΠΏΠ°Π½Π΅Π»ΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ VisData ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρ New. Π ΡΠ°ΡΠΊΡΡΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠΈΠΏΠ° ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Microsoft Access, Π° Π²ΠΎ Π²ΡΠΎΡΠΎΠΌ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ Version 7.0 MDB. Π Π°ΡΠΊΡΠΎΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Microsoft Access.
Π ΠΎΠΊΠ½Π΅ ΠΠΌΡ ΡΠ°ΠΉΠ»Π° ΡΠΊΠ°ΠΆΠ΅ΠΌ ΠΈΠΌΡ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ Ρ ΡΠ°Π½ΠΈΡΡΡΡ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠ°Ρ Π±Π°Π·Π° (ΠΈΠ½Π°ΡΠ΅, ΠΈΠΌΡ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ Π±Π°Π·Ρ, Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ — Π‘ΡΡΠ΄Π΅Π½ΡΡ). Π Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΎΠΊΠ½Π° Database Window Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠ»ΠΊΠ½ΡΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΌΡΡΠΈ. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΠΌΠ΅Π½Ρ Π²ΡΠ±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ New Table. Π Π°ΡΠΊΡΠΎΠ΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ Table Structure — ΡΡΡΡΠΊΡΡΡΠ° ΡΠ°Π±Π»ΠΈΡΡ. ΠΡΠΈΡΡΡΠΏΠ°Π΅ΠΌ ΠΊ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ VIP.
ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΡΡΠΊΡΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ VIP
1 Π ΠΏΠΎΠ»Π΅ Table Name Π²Π²ΠΎΠ΄ΠΈΡΡΡ ΠΈΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ — VIP
2 ΠΠ½ΠΎΠΏΠΊΠΎΠΉ Add Field Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Table Structure ΡΠ°ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Add Field
3. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Add Field ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠΎΡΠ΅ΡΠ΅Π΄Π½ΡΠΉ Π²Π²ΠΎΠ΄ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊ Π²ΡΠ΅Ρ ΠΏΠΎΠ»Π΅ΠΉ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ — Π²Π²ΠΎΠ΄ΡΡΡΡ ΠΈΠΌΠ΅Π½Π° ΠΏΠΎΠ»Π΅ΠΉ, ΠΈΡ ΡΠΈΠΏΡ ΠΈ ΡΠ°Π·ΠΌΠ΅ΡΡ. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΏΠΎΠ»Π΅ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΡΡΠ»ΠΊΠ°Π΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΠ. ΡΠ°Π·ΠΌΠ΅ΡΡΠ½Π½Π°Ρ Π½Π° ΠΎΠΊΠ½Π΅ Add Field.
4. ΠΏΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ Π²Π²ΠΎΠ΄Π° Π²ΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΏΠΎΠ»Ρ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΡΡΠ»ΠΊΠ°Π΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Close Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Add Field — ΠΎΠΊΠ½ΠΎ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ.
5. ΠΠΎΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ Table Structure ΡΠΎ ΡΠΏΠΈΡΠΊΠΎΠΌ ΠΏΠΎΠ»Π΅ΠΉ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ.
6. Π΄Π»Ρ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ ΡΡΠ»ΠΊΠ°Π΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Build the Table (Π‘ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±Π»ΠΈΡΡ) Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Table Structure, ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ Π·Π°ΠΊΡΡΡΠΈΡ ΠΎΠΊΠ½Π° ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΡ ΠΊ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ ΠΎΠΊΠ½ΠΎΠΌ Database Window, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠ°Ρ Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ , ΠΏΠΎΠΊΠ° Π²ΠΊΠ»ΡΡΠ°ΡΡΠ°Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½Ρ ΡΠ°Π±Π»ΠΈΡΡ VIP.
ΠΡΠΎΡΠ°Ρ ΡΠ°Π±Π»ΠΈΡΠ° PROD ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
Π‘ΠΎΠ·Π΄Π°Π½Π° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ ΠΡΠΎΠ΄ΡΠΊΡΠΈΡ, Π²ΠΊΠ»ΡΡΠ°ΡΡΠ°Ρ Π΄Π²Π΅ ΡΠ°Π±Π»ΠΈΡΡ VIP ΠΈ PROD.
ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Add Filed, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΠΎΠ΅ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ ΡΠ°Π±Π»ΠΈΡΡ
ΠΠ°Π½Π΅Π»Ρ Table Structure ΡΠΎ ΡΠΏΠΈΡΠΊΠΎΠΌ ΠΏΠΎΠ»Π΅ΠΉ Π² ΠΎΠΊΠ½Π΅ Field List ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ VIP
ΠΠ°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ ΠΠ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ
ΠΠ»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ ΠΠ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
1. ΠΡ ΠΎΠ΄ Π² ΡΡΠ΅Π΄Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π²ΡΠ±ΡΠ°Π² ΠΏΠΈΠΊΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Standard EXE.
2. Π ΠΠ»Π°Π²Π½ΠΎΠΌ ΠΌΠ΅Π½Ρ ΠΠ»Π°Π²Π½ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ° Visual Basic 6.0 Π²ΡΠ±Π΅ΡΠ΅ΠΌ ΠΎΠΏΡΠΈΡ Add-Ins (ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ), Π° Π² Π½Π΅ΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Visual Data Manager (ΠΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅Ρ Π΄Π°Π½Π½ΡΡ ). Π Π°ΡΠΊΡΠΎΠ΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ VisData.
3. ΠΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄:
File — Open Data Base — Microsoft Access
4. ΠΡΠΊΡΡΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΡΠΊΡΡΡΡ, ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΠ² ΠΌΡΡΠΊΠΎΠΉ ΠΈΠΌΡ — ΡΠ°ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ VisData ΡΠΎ ΡΡΡΡΠΊΡΡΡΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π²ΠΊΠ»ΡΡΠ°ΡΡΠ΅ΠΉ Π² ΡΠ΅Π±Ρ ΡΠ°Π±Π»ΠΈΡΡ VIP ΠΈ PROD.
5. Π©Π΅Π»ΡΠΊΠΎΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ ΠΌΡΡΠΈ ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP ΠΈΠ»ΠΈ PROD ΡΠ°ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠ΅ ΠΌΠ΅Π½Ρ Π²ΡΠ±ΠΎΡΠ° ΠΎΠΏΡΠΈΠΉ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΉ ΡΡΡΡΠΊΡΡΡ ΡΠ°Π±Π»ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ½Π°ΡΠ°Π»Π΅ Π·Π°ΠΏΠΎΠ»Π½ΠΈΠΌ ΡΠ°Π±Π»ΠΈΡΡ VIP.
ΠΡΠ±ΡΠ°Π² ΠΎΠΏΡΠΈΡ Open, ΡΠ°ΡΠΊΡΠΎΠ΅ΠΌ ΠΎΠΊΠ½ΠΎ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΉ ΡΠ°Π±Π»ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
6. ΠΡΠ±ΡΠ°Π² ΠΎΠΏΡΠΈΡ Add ΠΌΠΎΠ΄Π΅ΠΌ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Π²Π²ΠΎΠ΄ Π·Π°ΠΏΠΈΡΠ΅ΠΉ — ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠΎΠ»Π΅ΠΉ ΡΠ°Π±Π»ΠΈΡΡ.
7. ΠΠ²ΠΎΠ΄ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ ΠΠ°Π·Ρ ΠΠ°Π½Π½ΡΡ Π·Π°Π²Π΅ΡΡΠ°Π΅ΡΡΡ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ Close.
ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ Spec.
Π‘ΠΎΠ·Π΄Π°Π½Π° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ , ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ°Ρ 2 ΡΠ°Π±Π»ΠΈΡΡ, Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌΠΈ Π·Π°ΠΏΠΈΡΡΠΌΠΈ.
4. Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΠ°Π·Ρ ΠΠ°Π½Π½ΡΡ
4.1 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΠ»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΠΊΠΈ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ½Π° Toolbox:
— ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Data Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Data1 ΠΈ Data2, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΠ°Π·Π΅ ΠΠ°Π½Π½ΡΡ ;
— ΠΠ΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠΉ Π² Π±Π°Π·ΠΎΠ²ΡΠΉ Π½Π°Π±ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ MsFlexGrid (Π³ΠΈΠ±ΠΊΠ°Ρ ΡΠ΅ΡΠΊΠ°) Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Grid1, Grid2, Grid3, ΡΠ»ΡΠΆΠ°ΡΠ°Ρ Π΄Π»Ρ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡ VIP, PROD ΠΈ ΡΠΏΡΠ°Π²ΠΎΠΊ.
— ΠΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Command Button Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Command1, Command2, Command3, Command4, Command5
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Data1:
Caption = Π’Π°Π±Π»ΠΈΡΠ° VIP
Name = Data1
Connect = Access
RecordSource = VIP
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Caption = Π’Π°Π±Π»ΠΈΡΠ° PROD
Name = Data2
Connect = Access
RecordSource = PROD
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° MSFlexGrid:
Name = Grid1
Data Source = Data1
Fixed Cols = 0
Fixed Rows = 1
Name = Grid2
Data Source = Data2
Fixed Cols = 0
Fixed Rows = 1
Name = Grid3
Data Source =
Fixed Cols = 0
Fixed Rows = 1
4.2 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ
5. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΠ°Π·Ρ ΠΠ°Π½Π½ΡΡ
5.1 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
Π‘ΠΏΡΠ°Π²ΠΊΠ° 1: ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠ½ΠΎΡΠΎΠ½Π½ΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π΅Ρ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ. ΠΠ°ΠΏΠΈΡΠΈ ΡΠΏΡΠ°Π²ΠΊΠΈ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠΈΡΡ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ Π½ΠΎΠΌΠ΅ΡΠΎΠ² ΡΠ΅Ρ ΠΎΠ².
ΠΠ°ΠΊΠ΅Ρ ΡΠΏΡΠ°Π²ΠΊΠΈ 1.
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅Ρ Π° | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | ||||
1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ². | 3_ΠΉ ΠΊΠ². | 4_ΠΉ ΠΊΠ². | |||
5.1.1 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ°ΠΏΡΠΎΡΠ° 1 (ΡΠΏΡΠ°Π²ΠΊΠΈ 1) ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
5.1.2 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° (ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ) ΠΈ Π΅Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΠ»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΠΊΠΈ ΠΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ½Π° Toolbox:
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Data Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Data1, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Data Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Data2, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ ΠΠ΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠΉ Π² Π±Π°Π·ΠΎΠ²ΡΠΉ Π½Π°Π±ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ MSFlexGrid Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Grid1 ΠΈ Grid2, ΡΠ»ΡΠΆΠ°ΡΠΈΠ΅ Π΄Π»Ρ Π½Π΅ΠΏΡΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΡ VIP ΠΈ PROD;
ΠΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Command Button Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Command1, Command2, Command 3, Command 4, Command5 ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠ΅ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠΏΡΠ°Π²ΠΎΠΊ ΠΈ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Data1:
Caption = Π’Π°Π±Π»ΠΈΡΠ° VIP
Name = Data1
Connect Access
RecordSource =0
DataBaseName = C: base. mdb
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Data2:
Caption = Π’Π°Π±Π»ΠΈΡΠ° PROD
Name = Data2
Connect = Access
RecordSource = Spec
RecordSetType = 0
DataBaseName = C: base. mdb
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² MSFlexGrid:
Name = Grid1
Fixed Cols = 0
Fixed Rows = 1
DataSource = Data1
Name = Grid2
Fixed Cols = 0
Fixed Rows = 1
DataSource = Data2
Name = Grid3
Fixed Cols = 0
Fixed Rows = 1
Visible = False
5.1.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ VIP
Private Sub Command1_Click ()
Dim I%, K%, Kz%, T%, H%, J%, Zeh%
Dim P As String
Dim Cn As String
grid3. Visible = True
Data1. Visible = False
Data2. Visible = False
Data1. Recordset. MoveFirst
grid3. Rows = 1: grid3. Cols = 6
For I = 0 To 1 'ΠΠ°Π΄ΠΈΠΌ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ ΠΠ ΠΏΠΎΠ»ΡΠΌ Π² Π³ΠΈΠ±ΠΊΠΎΠΉ ΡΠ΅ΡΠΊΠ΅
grid3. TextMatrix (0, I) = Data1. Recordset. Fields (I).Name
Data1. Recordset. MoveFirst
Next I
For I = 6 To 9
grid3. TextMatrix (0, I — 4) = Data1. Recordset. Fields (I).Name
Data1. Recordset. MoveFirst
Next I
For I = 1 To Data1. Recordset. RecordCount 'ΠΡΠ±ΠΎΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², ΡΠ°ΠΊΡ. Π²ΡΠΏΡΡΠΊ ΠΊΠΎΡΠΎΡΡΡ ΡΠ°Π²Π½ΠΎΠΌΠ΅ΡΠ½ΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π»
If Data1. Recordset. Fields (6).Value < Data1. Recordset. Fields (7).Value And Data1. Recordset. Fields (7).Value < Data1. Recordset. Fields (8).Value And Data1. Recordset. Fields (8).Value < Data1. Recordset. Fields (9).Value Then
grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows — 1
For L = 0 To 1
grid3. TextMatrix (Kz, L) = Data1. Recordset. Fields (L).Value
Next L
For L = 6 To 9
grid3. TextMatrix (Kz, L — 4) = Data1. Recordset. Fields (L).Value
Next L
End If
Data1. Recordset. MoveNext
Next I
grid3. Col = 1 'ΠΡΠ±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡ Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ
grid3. Sort = 1 'Π‘ΠΎΡΡΠΈΡΡΠ΅ΠΌ ΡΡΡΠΎΡΠΊΠΈ ΠΏΠΎ Π½ΠΈΡΡ ΠΎΠ΄ΡΡΠ΅ΠΉ
End Sub
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ
5.1.4 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
5.2 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΠ°ΠΏΡΠΎΡΠ° 2 (ΡΠΏΡΠ°Π²ΠΊΠΈ 2) ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ PROD
Π‘ΠΏΡΠ°Π²ΠΊΠ° 2. ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΠΈΠΌΠ΅ΡΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΊΠ°ΡΠ΅ΡΡΠ²Π°. ΠΠ°Π·Π²Π°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ Π±ΡΠΊΠ² ΠΎΡ «Π» Π΄ΠΎ «Π’».
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°Π»ΠΈΡΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠ° ΠΊΠ°ΡΠ΅ΡΡΠ²Π° | |
5.2.1 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ°ΠΏΡΠΎΡΠ° 2 (ΡΠΏΡΠ°Π²ΠΊΠΈ2) ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ PROD
5.2.2 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΠ»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΠΊΠΈ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ½Π° Toolbox:
— ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Data Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Data1 ΠΈ Data2, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΠ°Π·Π΅ ΠΠ°Π½Π½ΡΡ ;
— ΠΠ΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠΉ Π² Π±Π°Π·ΠΎΠ²ΡΠΉ Π½Π°Π±ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ MsFlexGrid (Π³ΠΈΠ±ΠΊΠ°Ρ ΡΠ΅ΡΠΊΠ°) Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Grid1, Grid2, Grid3, ΡΠ»ΡΠΆΠ°ΡΠ°Ρ Π΄Π»Ρ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡ VIP, PROD ΠΈ ΡΠΏΡΠ°Π²ΠΎΠΊ.
— ΠΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Command Button Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Command1, Command2, Command3, Command4, Command5
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Data1:
Caption = Π’Π°Π±Π»ΠΈΡΠ° VIP
Name = Data1
Connect = Access
RecordSource = VIP
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Caption = Π’Π°Π±Π»ΠΈΡΠ° PROD
Name = Data2
Connect = Access
RecordSource = PROD
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° MSFlexGrid:
Name = Grid1
Data Source = Data1
Fixed Cols = 0
Fixed Rows = 1
Name = Grid2
Data Source = Data2
Fixed Cols = 0
Fixed Rows = 1
Name = Grid3
Data Source =
Fixed Cols = 0
Fixed Rows = 1
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ
5.2.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΠ°ΠΏΡΠΎΡΠ° (ΡΠΏΡΠ°Π²ΠΊΠΈ 2) ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ PROD
Private Sub Command2_Click ()
Dim I%, K%, Kz%, L%
Dim P As String
P = «ΠΠΠΠΠΠΠΠΠΠΠΠΠ Π‘Π’»
grid3. Visible = True
Data1. Visible = False
Data2. Visible = False
Data2. Recordset. MoveFirst
grid3. Rows = 1: grid3. Cols = 3
grid3. TextMatrix (0, 0) = Data2. Recordset. Fields (0).Name
grid3. TextMatrix (0, 1) = Data2. Recordset. Fields (1).Name
grid3. TextMatrix (0, 2) = Data2. Recordset. Fields (2).Name
Data2. Recordset. MoveFirst
For I = 1 To Data2. Recordset. RecordCount
If Data2. Recordset. Fields (2).Value = «ΠΠ°» And (InStr _
(P, Mid (Data2. Recordset. Fields (1).Value, 1, 1))) <> 0 Then
grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows — 1
For L = 0 To 2
grid3. TextMatrix (Kz, L) = Data2. Recordset. Fields (L).Value
Next L
End If
Data2. Recordset. MoveNext
Next I
End Sub
5.2.4 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
5.3 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ VIP ΠΈ PROD
Π‘ΠΏΡΠ°Π²ΠΊΠ° 3. ΠΠΈΠ΄Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Ρ ΡΠ΅ΡΡΠΈΡΠΈΠΊΠ°ΡΠΎΠΌ ΠΊΠ°ΡΠ΅ΡΡΠ²Π°, ΠΏΠ»Π°Π½ ΠΏΠΎ ΠΊΠΎΡΠΎΡΡΠΌ Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π² 1_ΠΎΠΌ ΠΈ 4_ΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π°Ρ ΠΈ ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΡΡ Π² ΡΠ΅Ρ Π°Ρ Ρ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌΠΈ 3 ΠΈ 5.
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | Π‘Π΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ | ||||
1_ΠΉ ΠΊΠ² | 2_ΠΉ ΠΊΠ². | 3_ΠΉ ΠΊΠ². | 4_ΠΉ ΠΊΠ². | |||||
5.3.1 ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ VIP ΠΈ PROD
5.3.2 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎΠ³ΠΎ Π·Π°ΠΏΡΠΎΡΠ° ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ VIP ΠΈ PROD
Private Sub Command4_Click ()
Dim I%, K%, Kz%, T%, H%, J%, Zeh%
grid3. Visible = True
Data1. Visible = False
Data2. Visible = False
Data1. Recordset. MoveFirst
Data2. Recordset. MoveFirst
grid3. Rows = 1: grid3. Cols = 8
For I = 0 To 2 'ΠΠ°Π΄ΠΈΠΌ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ ΠΠ ΠΏΠΎΠ»ΡΠΌ Π² Π³ΠΈΠ±ΠΊΠΎΠΉ ΡΠ΅ΡΠΊΠ΅
grid3. TextMatrix (0, I) = Data2. Recordset. Fields (I).Name
Next I
grid3. TextMatrix (0, 3) = Data1. Recordset. Fields (1).Name
For I = 6 To 9
grid3. TextMatrix (0, I — 2) = Data1. Recordset. Fields (I).Name
Data1. Recordset. MoveFirst
Next I
For I = 1 To Data1. Recordset. RecordCount 'ΠΡΠ±ΠΎΡ ΡΠ΅ΡΡΠΈΡ. ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², ΠΏΠ»Π°Π½ ΠΏΠΎ ΠΊΠΎΡΠΎΡΡΠΌ Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ
'Π² 1 ΠΈ 4 ΠΊΠ²Π°ΡΡΠ°Π»Π°Ρ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡ ΠΊΠΎΡΠΎΡΡΠ΅ Π² ΡΠ΅Ρ Π°Ρ 3 ΠΈ 5.
If Data2. Recordset. Fields (2).Value = «ΠΠ°» And Data1. Recordset. Fields (6) < Data1. Recordset. Fields (2) And Data1. Recordset. Fields (9) < Data1. Recordset. Fields (5) Then
If Data1. Recordset. Fields (1) = «3» Or Data1. Recordset. Fields (1) = «5» Then
grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows — 1
For L = 0 To 2
grid3. TextMatrix (Kz, L) = Data2. Recordset. Fields (L).Value
Next L
grid3. TextMatrix (Kz, 3) = Data2. Recordset. Fields (1).Value
For L = 6 To 9
grid3. TextMatrix (Kz, L — 2) = Data1. Recordset. Fields (L).Value
Next L
End If
End If
Data1. Recordset. MoveNext
Data2. Recordset. MoveNext
Next I
End Sub
5.3.4 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
5.4 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΠΎΠΊΡΠΌΠ΅Π½ΡΠ°:
Π‘Π²Π΅Π΄Π΅Π½ΠΈΡ j Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅ ΡΠ΅ΡΡΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π² 1, 2 ΠΈ 3 ΡΠ΅Ρ Π°Ρ
Π¨ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | Π‘Π΅ΡΡΠΈΡΠΈΠΊΠ°Ρ ΠΠ°ΡΠ΅ΡΡΠ²Π° | ΠΠΎΠΌΠ΅Ρ ΡΠ΅Ρ Π° | ΠΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΠΈ | |
ΠΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
Π ΠΎΡ=|F1_P1|+|F2_P2|+|F3_P3|+|F4_P4|
Π³Π΄Π΅ — F1, F2, F3, F4 — ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠΎΠΊΠ²Π°ΡΡΠ°Π»ΡΠ½ΡΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ
— P1, P2, P3, P4 — ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠΎΠΊΠ²Π°ΡΡΠ°Π»ΡΠ½ΡΠΉ Π²ΡΠΏΡΡΠΊ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ.
ΠΡΡΡΠ°Ρ ΡΠΈΡΠΌΠΈΡΠ½ΠΎΡΡΡ Π΄ΠΎΡΡΠΈΠ³Π°Π΅ΡΡΡ ΠΏΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΌ Π ΠΎΡ.
5.4.1 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
5.4.2 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° ΠΈ Π΅Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
ΠΠ»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΠΊΠΈ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ½Π° Toolbox:
— ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Data Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Data1 ΠΈ Data2, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΠ°Π·Π΅ ΠΠ°Π½Π½ΡΡ ;
— ΠΠ΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠΉ Π² Π±Π°Π·ΠΎΠ²ΡΠΉ Π½Π°Π±ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ MsFlexGrid (Π³ΠΈΠ±ΠΊΠ°Ρ ΡΠ΅ΡΠΊΠ°) Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Grid1, Grid2, Grid3, ΡΠ»ΡΠΆΠ°ΡΠ°Ρ Π΄Π»Ρ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡ VIP, PROD ΠΈ ΡΠΏΡΠ°Π²ΠΎΠΊ.
— ΠΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Command Button Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Command1, Command2, Command3, Command4, Command5
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Data1:
Caption = Π’Π°Π±Π»ΠΈΡΠ° VIP
Name = Data1
Connect = Access
RecordSource = VIP
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Caption = Π’Π°Π±Π»ΠΈΡΠ° PROD
Name = Data2
Connect = Access
RecordSource = PROD
RecordSetType=0 (ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ)
DataBaseName=C:base.mdb
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° MSFlexGrid:
Name = Grid1
Data Source = Data1
Fixed Cols = 0
Fixed Rows = 1
Name = Grid2
Data Source = Data2
Fixed Cols = 0
Fixed Rows = 1
Name = Grid3
Data Source =
Fixed Cols = 0
Fixed Rows = 1
5.4.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
Private Sub Command5_Click ()
Dim I%, K%, Kz%, T%, H%, J%
grid3. Visible = True
Data1. Visible = False
Data2. Visible = False
Data1. Recordset. MoveFirst
Data2. Recordset. MoveFirst
grid3. Rows = 1: grid3. Cols = 5
For I = 0 To 2 'ΠΠ°Π΄ΠΈΠΌ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ ΠΠ ΠΏΠΎΠ»ΡΠΌ Π² Π³ΠΈΠ±ΠΊΠΎΠΉ ΡΠ΅ΡΠΊΠ΅
grid3. TextMatrix (0, I) = Data2. Recordset. Fields (I).Name
Next I
grid3. TextMatrix (0, 3) = Data1. Recordset. Fields (1).Name
grid3. TextMatrix (0, 4) = «ROS»
For I = 1 To Data2. Recordset. RecordCount
If Data2. Recordset. Fields (2).Value = «ΠΠ°» Then
If Data1. Recordset. Fields (1) = 1 Or Data1. Recordset. Fields (1) = 2 Or Data1. Recordset. Fields (1) = 3 Then
grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows — 1
For L = 0 To 2
grid3. TextMatrix (Kz, L) = Data2. Recordset. Fields (L).Value
Next L
grid3. TextMatrix (Kz, 3) = Data1. Recordset. Fields (1).Value
grid3. TextMatrix (Kz, 4) = Abs (Data1. Recordset. Fields (6) — Data1. Recordset. Fields (2)) + Abs (Data1. Recordset. Fields (7) — Data1. Recordset. Fields (3)) + Abs (Data1. Recordset. Fields (8) — Data1. Recordset. Fields (4)) + Abs (Data1. Recordset. Fields (9) — Data1. Recordset. Fields (5))
End If
End If
Data1. Recordset. MoveNext
Data2. Recordset. MoveNext
Next I
grid3. Col = 4 'ΠΡΠ±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡ Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ
grid3. Sort = 1 'Π‘ΠΎΡΡΠΈΡΡΠ΅ΠΌ ΡΡΡΠΎΡΠΊΠΈ ΠΏΠΎ Π½ΠΈΡΡ ΠΎΠ΄ΡΡΠ΅ΠΉ
End Sub
5.4.4 ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ Π²ΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ
6. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ
ΠΠ΅Π½Ρ — ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ. ΠΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΏΠΈΡΠΎΠΊ ΠΡΠ½ΠΊΡΠΎΠ², ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π²ΡΠ±ΡΠ°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΉ.
Π ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Visual Basic 6.0 ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΠ΅Π½Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π Π΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΌΠ΅Π½Ρ Menu Editor.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ
Π‘ΠΎΠ·Π΄Π°Π½Π° ΠΠ ΠΈΠ· Π΄Π²ΡΡ ΡΠ°Π±Π»ΠΈΡ VIP ΠΈ PROD.
Π‘ΠΎΠ·Π΄Π°Π΅ΡΡΡ Π΄Π²ΡΡ ΡΡΠΎΠ²Π½Π΅Π²ΠΎΠ΅ ΠΌΠ΅Π½Ρ. ΠΠ΅ΡΡ Π½ΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ — ΡΡΠΎ ΡΡΡΠΎΠΊΠ° ΠΌΠ΅Π½Ρ, ΠΊΠΎΡΠΎΡΡΡ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΠΎΠ»ΠΎΠ²Π½ΡΠΌ ΠΠ΅Π½Ρ. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΏΡΠ½ΠΊΡ Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΌΠΎΠΆΠ΅Ρ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΏΡΠ½ΠΊΡΠΎΠ².
ΠΠ΅Π½Ρ ΠΡΠΎΠ΅ΠΊΡΠ° Π±ΡΠ΄Π΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ Π²ΠΈΠ΄:
ΠΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π² ΠΎΠΊΠ½Π΅ Π Π΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΌΠ΅Π½Ρ Menu Editor.
ΠΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΌΠ΅Π½Ρ Π±ΡΠ»Π° Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π° ΡΠ»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
1. Π€ΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ΅Π½Ρ Π‘ΠΏΡΠ°Π²ΠΊΠ° Π ΠΎΠΊΠ½ΠΎ ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ (Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Caption) Π²Π²Π΅ΡΡΠΈ Π‘ΠΏΡΠ°Π²ΠΊΠ° Π ΠΎΠΊΠ½ΠΎ ΠΈΠΌΡ (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ name) Π²Π²Π΅ΡΡΠΈ mnuSpravka
ΠΠ°ΠΆΠ°ΡΠΈΠ΅ ΠΠ°Π»ΡΡΠ΅ — ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Π΅ ΠΌΠ΅Π½Ρ Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΡΡΡΡΠΏΠ° (ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ — ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ) Π‘Π²ΠΎΠΉΡΡΠ²Ρ Caption ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΡΠ°Π²ΠΊΠ° 1, Π° ΡΠ²ΠΎΠΉΡΡΠ²Ρ Name — mnuSpravka1
ΠΠ°ΠΆΠ°ΡΠΈΠ΅ Next
Π‘Π²ΠΎΠΉΡΡΠ²Ρ Caption ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΡΠ°Π²ΠΊΠ° 2, Π° ΡΠ²ΠΎΠΉΡΡΠ²Ρ Name — mnuSpravka2
ΠΠ°Π»Π΅Π΅ ΠΌΠ΅Π½Ρ ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ.
ΠΡΠΈ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΌΠ΅Π½Ρ Π±ΡΠ»ΠΎ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΎ Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΠ ΠΈ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΠΏΠΎΡΠ²ΠΈΠ»ΠΎΡΡ Π½Π° ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅. ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ ΠΌΠ΅Π½Ρ — Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ. Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅ Click. ΠΠ»Ρ ΡΠ°ΡΠΊΡΡΡΠΈΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ ΠΈΠ»ΠΈ Π·Π°ΠΏΡΡΠΊΠ° Π»ΡΠ±ΠΎΠ³ΠΎ ΠΏΡΠ½ΠΊΡΠ° ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΠΌΡΡΠΊΠΎΠΉ ΠΏΠΎ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ ΠΏΡΠ½ΠΊΡΡ.
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ΅Π°Π»ΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π² ΠΏΡΠ½ΠΊΡΠ°Ρ ΠΌΠ΅Π½Ρ Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ design ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΠΌ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ ΠΏΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅. ΠΠ²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΠ΅Π½Ρ Π Π°ΡΠΏΠ΅ΡΠ°ΡΠΊΠ° VIP Π²ΡΠ·ΠΎΠ²Π΅Ρ Π½Π° ΡΠΎΡΠΌΠ΅ Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
Private Sub mnuSpravka1_Click ()
…
End Sub
Π Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΡ Π²ΠΊΠ»ΡΡΠ°Π΅ΠΌ Π·Π°ΡΠ°Π½Π΅Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΠΈ ΠΎΡΠ»Π°ΠΆΠ΅Π½Π½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. Π’Π°ΠΊΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΠΌ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ. Π’Π΅ΠΏΠ΅ΡΡ ΠΎΠ½ΠΎ Π³ΠΎΡΠΎΠ² Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π΅Π³ΠΎ Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠ΅ Π² ΠΎΠΊΠ½Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΌΠ΅Π½Ρ
ΠΠΊΡΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΌ ΠΌΠ΅Π½Ρ
1. Michael Halvorson. Microsoft Visual Basic 6.0 Step by Step — Redmond, Washington, USA, 1998
2. Π‘. Π. ΠΠ»ΡΡΠ°ΠΊΠΎΠ², Π. Π‘. Π‘ΡΡΡΠ΄Π½ΡΠΉ, «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° Visual Basic 6.0». ΠΈΠ·Π΄ «Π€ΠΎΠ»ΠΈΠΎ». Π. 2005.