Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ΄ΡΠΊΡΠ° (ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ)
Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΠ ΠΈ Π² ΠΎΡΠΈΡΡΠΈΠ²ΡΠ΅Π΅ΡΡ ΠΏΠΎΠ»Ρ Π²Π²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΡ. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠΠΠΠΠΠ’Π¬». ΠΠ»Ρ ΠΎΡΠΌΠ΅Π½Ρ Π²Π²ΠΎΠ΄Π° Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠ’ΠΠΠΠ». ΠΠΎΠΌΠΈΠΌΠΎ Π²ΡΠ΅Π³ΠΎ ΡΡΠΎΠ³ΠΎ MS Access 2003 ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π΄Π΅Π»Π°ΡΡ Π·Π°ΠΏΡΠΎΡΡ. ΠΠ»Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ΄Π΅Π»Π°Π΅ΠΌ Π·Π°ΠΏΡΠΎΡ Π΄Π»Ρ ΡΠ°Π±Π»ΠΈΡΡ «ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ». Π Π½Π΅ΠΌ ΡΠ΄Π΅Π»Π°Π΅ΠΌ Π²ΡΠ±ΠΎΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ² Ρ ΡΡΠΌΠΌΠΎΠΉ Π±ΠΎΠ»ΡΡΠ΅ 5000 ΡΡΠ±. ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ· Π±Π°Π·Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠΊΡΡΡΠΈΡΡ ΡΠΏΠΈΡΠΎΠΊ Π΄ΠΎ ΡΠΎΠΉ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ΄ΡΠΊΡΠ° (ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ) (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π ΡΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΠΈ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΡΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ «Π Π°Π±ΠΎΡΠΈΠΉ ΠΏΡΠΎΠ΅ΠΊΡ». ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠΎΠΉ Π½Π° ΡΡΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ.
ΠΠ° ΡΡΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ ΠΊΠΎΠ΄ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠΌ. ΠΡΠ½ΠΎΠ²Π½ΡΠΌ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠΌ Π·Π΄Π΅ΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ. ΠΠ° ΡΡΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ, ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ΠΈ, ΠΊΠ°ΠΊ ERWin, ΠΌΠΎΠ³ΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π³Π΅Π½Π΅ΡΠ°ΡΠΈΡ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π½ΠΎ ΠΈ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡ ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΡΠΎΠ·Π΄Π°Π²Π°Ρ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠ΄Π΅Π»Π΅ΠΉ Π½Π° ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠΈ Π³ΠΎΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π»ΠΈΠ±ΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡ ΡΠΈΠ½Ρ ΡΠΎΠ½Π½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈ ΠΊΠΎΠ΄, ΠΈ ΠΌΠΎΠ΄Π΅Π»Ρ.
ΠΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π² ERwin ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ Π°ΡΡ ΠΈΡΠ΅ΠΊΡΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠ³Π΅Π½Π΅ΡΠΈΡΡΠ΅ΠΌ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π³Π΅Π½Π΅ΡΠ°ΡΠΈΠΈ Π±ΡΠ»ΠΎ Π²ΡΡΠ²Π»Π΅Π½ΠΎ 2 ΠΎΡΠΈΠ±ΠΊΠΈ. Π‘Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ ΠΠ ΠΈΠΌΠ΅Π΅Ρ 3 ΡΠ°Π±Π»ΠΈΡΡ. Π‘Ρ Π΅ΠΌΠ° Π΄Π°Π½Π½ΡΡ ΠΠ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° Π ΠΈΡ. 8.
Π ΠΈΡ. 8. Π‘Ρ Π΅ΠΌΠ° Π΄Π°Π½Π½ΡΡ
ΠΠ°Π»Π΅Π΅ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΡ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΎΡΠΌΡ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ Π±ΠΎΠ»Π΅Π΅ Π±ΡΡΡΡΡΠΉ ΠΏΡΠΎΡΠ΅ΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ.
Π ΠΈΡ. 9. Π€ΠΎΡΠΌΠ° «ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ»
Π ΠΈΡ. 10. Π€ΠΎΡΠΌΠ° «ΠΡΠ΄Π΅Π»Ρ»
Π ΠΈΡ. 11. Π€ΠΎΡΠΌΠ° «Π‘ΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΈ»
MS Access 2003 ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΡ Π΄Π»Ρ ΡΠ°Π±Π»ΠΈΡ, ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΡΠ΅ΡΡ ΠΈ Π·Π°ΠΏΡΠΎΡΡ. ΠΡΡΠ΅ΡΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ:
- Β· Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Π²ΡΡΠΈΡΠ»ΡΡΡ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΠ΅ ΠΈΡΠΎΠ³ΠΈ, Π΄Π»Ρ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ ;
- Β· Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π²ΠΈΠ΄Π΅.
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ ΠΎΡΡΠ΅ΡΡ Π΄Π»Ρ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡ Π² Π±Π°Π·Π΅ ΡΠ°Π±Π»ΠΈΡ:
Π ΠΈΡ. 12. ΠΡΡΠ΅Ρ «ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ»
Π ΠΈΡ. 13. ΠΡΡΠ΅Ρ «ΠΡΠ΄Π΅Π»Ρ»
ΠΠΎΠΌΠΈΠΌΠΎ Π²ΡΠ΅Π³ΠΎ ΡΡΠΎΠ³ΠΎ MS Access 2003 ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π΄Π΅Π»Π°ΡΡ Π·Π°ΠΏΡΠΎΡΡ. ΠΠ»Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ΄Π΅Π»Π°Π΅ΠΌ Π·Π°ΠΏΡΠΎΡ Π΄Π»Ρ ΡΠ°Π±Π»ΠΈΡΡ «ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ». Π Π½Π΅ΠΌ ΡΠ΄Π΅Π»Π°Π΅ΠΌ Π²ΡΠ±ΠΎΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ² Ρ ΡΡΠΌΠΌΠΎΠΉ Π±ΠΎΠ»ΡΡΠ΅ 5000 ΡΡΠ±.
SELECT ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ. ΠΠ°Π·Π²Π°Π½ΠΈΠ΅, ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ. Π₯ΠΎΠ·ΡΠΉΡΡΠ²ΠΎ, ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ. ΠΠ°ΡΠ°, ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ. Π‘ΡΠΌΠΌΠ°, ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ. ΠΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎΠ΅ Π»ΠΈΡΠΎ].
FROM ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ.
WHERE (((ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ.Π‘ΡΠΌΠΌΠ°)>5000));
ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ Π³ΠΎΡΠΎΠ²Π°. Π’Π΅ΠΏΠ΅ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΠΎΠΉ Π±Π°Π·ΠΎΠΉ. ΠΠ³ΠΎ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π² Visual Basic. ΠΠ°Π½Π½ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ Π·Π°ΠΏΠΈΡΠΈ, Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ Π½ΠΎΠ²ΡΠ΅ ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ. ΠΠ»Ρ ΡΡΠ½ΠΊΡΠΈΠΎΠ½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π΅Π³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ²ΡΠ·Π°ΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ . ΠΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ Π²Π΅ΡΡΠΈΡ Visual Basic ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ Ρ MS Access 97. ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅ΠΌ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ Π±Π°Π·Ρ Π² ΡΠΎΡΠΌΠ°Ρ Access 97.
Π Π°Π±ΠΎΡΠΈΠΉ ΠΏΡΠΎΠ΅ΠΊΡ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ Ρ ΠΎΠ·ΡΠΉΡΡΠ²Π° Π²ΡΠ³ΠΎΠ½ΠΈΡΡΠΊΠΎΠ³ΠΎ ΡΠ°ΠΉΠΎΠ½Π°». ΠΠ³ΠΎ Π·Π°Π΄Π°ΡΠ° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΎΠ±Π»Π΅Π³ΡΠ΅Π½ΠΈΠΈ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ . Π€ΠΎΡΠΌΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ (Π ΠΈΡ. 16) ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 17 ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΠΏΠΎΠ»Π΅ΠΉ, 3 ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΠΌΠΈ, 5 ΠΊΠ½ΠΎΠΏΠΎΠΊ, 18 Π½Π°Π΄ΠΏΠΈΡΠ΅ΠΉ.
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΉ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ:
Private Sub Command1_Click ().
reply = MsgBox («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ», vbOKCancel, «ΠΠΎΠ±Π°Π²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»).
If reply = vbOK Then.
Text1.SetFocus.
datDoc.Recordset.AddNew.
End If.
End Sub.
Private Sub Command2_Click ().
reply = MsgBox («ΠΡ ΠΆΠ΅Π»Π°Π΅ΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΡΡΡ Π·Π°ΠΏΠΈΡΡ», vbOKCancel, «Π£Π΄Π°Π»ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»).
If reply = vbOK Then.
datDoc.Recordset.Delete.
datDoc.Recordset.MoveFirst.
End If.
End Sub.
Private Sub Command3_Click ().
End.
End Sub.
Private Sub Command4_Click ().
reply = MsgBox («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ», vbOKCancel, «ΠΠΎΠ±Π°Π²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»).
If reply = vbOK Then.
Text1.SetFocus.
datOt.Recordset.AddNew.
End If.
End Sub.
Private Sub Command5_Click ().
reply = MsgBox («ΠΡ ΠΆΠ΅Π»Π°Π΅ΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΡΡΡ Π·Π°ΠΏΠΈΡΡ», vbOKCancel, «Π£Π΄Π°Π»ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»).
If reply = vbOK Then.
datOt.Recordset.Delete.
datOt.Recordset.MoveFirst.
End If.
End Sub.
Private Sub Form_Load ().
reply = MsgBox («Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠ΅Π·Π΅ΡΠ²Π½ΡΡ ΠΊΠΎΠΏΠΈΡ ΠΠ», vbOKCancel, datDoc. DatabaseName).
If reply = vbOK Then.
FileNm$ = InputBox$(«ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΡΡ Π΄Π»Ρ ΡΠ΅Π·Π΅ΡΠ²Π½ΠΎΠΉ ΠΊΠΎΠΏΠΈΠΈ»).
End If.
If FileNm$ «» Then.
FileCopy datDoc. DatabaseName, FileNmS.
End If.
End Sub.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΎ. ΠΠΎ ΠΊΠ°ΠΊ Ρ Π½ΠΈΠΌ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π·Π½Π°Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ Π΅Π³ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Ρ. ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΎΠ½ΠΎ ΡΡΠ°Π»ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌ, Π΄Π»Ρ Π½Π΅Π³ΠΎ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½ΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΡ Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
ΠΠ°Π½Π½ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΎΡΠ²ΠΎΠΈΡΡ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠΎΡΠΌΠΎΠΉ Π΄Π°ΠΆΠ΅ Π½Π΅ ΠΊΠ²Π°Π»ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΠ½ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ°ΠΊΠΈΠ΅ ΠΏΡΠ½ΠΊΡΡ ΠΊΠ°ΠΊ:
- Β· ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
- Β· ΠΡΠΎΡΠΌΠΎΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ
- Β· ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ
- Β· Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠ΅ΠΉ
- Β· ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΠΎΡΠΌΡ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΡΠ°ΠΉΠ»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΠ₯Π. ΠΠ° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ.
ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠ΅Π»ΡΡΠΊΠΈΠΉ.
ΠΠ½ΠΎ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠ΅Π·Π΅ΡΠ²Π½ΡΡ ΠΊΠΎΠΏΠΈΡ. ΠΡΠ»ΠΈ ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΡΠΌΠ΅Π½Π°», ΡΠΎ ΡΡΠ°Π·Ρ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ Π Π°Π±ΠΎΡΠ°Ρ ΡΠΎΡΠΌΠ°.
ΠΡΠ»ΠΈ ΠΆΠ΅ ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ, ΡΠΎ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ:
ΠΡΠΎ ΠΎΠΊΠ½ΠΎ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅Ρ Π²Π²Π΅ΡΡΠΈ ΠΏΡΡΡ Π΄Π»Ρ ΡΠ΅Π·Π΅ΡΠ²Π½ΠΎΠΉ ΠΊΠΎΠΏΠΈΠΈ Π±Π°Π·Ρ. ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΡΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΠ. Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ «ΠΡΠΌΠ΅Π½Π°» Π΄Π»Ρ ΠΎΡΠΊΠ°Π·Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΊΠΎΠΏΠΈΠΈ.
ΠΡΠΎΡΠΌΠΎΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ
ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π² ΡΠΎΡΠΌΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΏΠ΅ΡΠ²ΡΠ΅ Π·Π°ΠΏΠΈΡΠΈ, Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΠ΅ΡΡ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ . ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΎΡΡΠ°Π»ΡΠ½ΡΡ , ΡΠ»ΡΠΆΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ DATA:
ΠΠ»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΡΡΡΠ΅Π»ΠΎΡΠΊΠ΅.
ΠΠ»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΡΡΡΠ΅Π»ΠΎΡΠΊΠ΅ Ρ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅ΡΡΠΎΠΉ.
ΠΠ»Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΠΊ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ Π»Π΅Π²ΠΎΠΉ ΡΡΡΠ΅Π»ΠΎΡΠΊΠ΅ ΠΠ»Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΠΊ ΠΏΠ΅ΡΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ Π»Π΅Π²ΠΎΠΉ ΡΡΡΠ΅Π»ΠΎΡΠΊΠ΅ Ρ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅ΡΡΠΎΠΉ.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ
ΠΠ»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² Π±Π°Π·Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠΠΠΠΠΠ’Π¬». ΠΠ° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ:
Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΠ ΠΈ Π² ΠΎΡΠΈΡΡΠΈΠ²ΡΠ΅Π΅ΡΡ ΠΏΠΎΠ»Ρ Π²Π²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΡ. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠΠΠΠΠΠ’Π¬». ΠΠ»Ρ ΠΎΡΠΌΠ΅Π½Ρ Π²Π²ΠΎΠ΄Π° Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠ’ΠΠΠΠ».
Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ
ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ· Π±Π°Π·Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠΊΡΡΡΠΈΡΡ ΡΠΏΠΈΡΠΎΠΊ Π΄ΠΎ ΡΠΎΠΉ, ΠΊΠΎΡΠΎΡΡΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ. ΠΠ°ΡΠ΅ΠΌ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «Π£ΠΠΠΠΠ’Π¬». ΠΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ:
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠ΄ΠΈΡΡ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ.
Π§ΡΠΎΠ±Ρ ΠΎΡΠΌΠ΅Π½ΠΈΡΡ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΡΠΌΠ΅Π½Π°».
ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Π§ΡΠΎ Π±Ρ Π²ΡΠΉΡΠΈ ΠΈΠ· ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠ«Π₯ΠΠ».