Помощь в написании студенческих работ
Антистрессовый сервис

Разработка информационной системы учета товара на складе

Курсовая: Разработка информационной системы учета товара на складе
Курсовая Купить готовую Узнать стоимостьмоей работы

StDocName = ChrW (1041) & ChrW (1083) & ChrW (1072) & ChrW (1085) & ChrW (1082) & ChrW (32) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (1074) & ChrW (1086) & ChrW (1088) & ChrW (1072). Пароль = InputBox («Для получения получения полного доступа необходимо ввести пароль», «Ввод пароля»). MsgBox «Информация о наличии комплектующих будет выдана для выбранного изделия», 1, «Выбор… Читать ещё >

Разработка информационной системы учета товара на складе (реферат, курсовая, диплом, контрольная)

Содержание

  • 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. Технико-экономическое обоснование проекта
    • 1. 3. Обоснование проектных решений
      • 1. 3. 1. Обоснование проектных решений по техническому обеспечению
      • 1. 3. 2. Обоснование проектных решений по программному обеспечению
  • 2. Проектная часть
    • 2. 1. Разработка проекта автоматизации: информационный менеджмент
      • 2. 1. 1. Разработка и описание проекта автоматизации
      • 2. 1. 2. Оценка стоимостных параметров проекта автоматизации
    • 2. 2. Информационное обеспечение задачи
      • 2. 2. 1. Информационная модель и её описание
      • 2. 2. 2. Характеристика используемых классификаторов
      • 2. 2. 3. Характеристика нормативно-справочной и входной информации
      • 2. 2. 4. Характеристика результатной информации
      • 2. 2. 5. Характеристика информационной базы проекта
    • 2. 3. Программное и технологическое обеспечение задачи
      • 2. 3. 1. Дерево функций проекта
      • 2. 3. 2. Сценарий диалога проекта
      • 2. 3. 3. Программная и техническая архитектура проектируемого решения
      • 2. 3. 4. Схемы технологического процесса (машинного этапа)
    • 2. 4. Контрольный пример реализации проекта и его описание
  • 3. Обоснование экономической эффективности проекта
    • 3. 1. Выбор и обоснование методики расчёта экономической эффективности
    • 3. 2. Расчёт показателей экономической эффективности проекта
  • Заключение
  • Список литературы
  • Приложение 1. Руководство пользователя
  • Приложение 2. Программный код

OpenForm stDocName,, , stLinkCriteria

DoCmd.GoToRecord acForm, stDocName, acNewRec

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err. Description

Resume Exit_Кнопка23_Click

End Sub

Private Sub Кнопка25_Click ()

On Error GoTo Err_Кнопка25_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Выдача комплектующих»

DoCmd.OpenForm stDocName,, , «Ном_заказа = Номер_заказа»

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err. Description

Resume Exit_Кнопка25_Click

End Sub

Private Sub Кнопка27_Click ()

On Error GoTo Err_Кнопка27_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация поступления изделий на склад»

DoCmd.OpenForm stDocName,, , stLinkCriteria

DoCmd.GoToRecord acForm, stDocName, acNewRec

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err. Description

Resume Exit_Кнопка27_Click

End Sub

Private Sub Кнопка29_Click ()

On Error GoTo Err_Кнопка29_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация поступления заказов»

DoCmd.OpenForm stDocName,, , stLinkCriteria

DoCmd.GoToRecord acForm, stDocName, acNewRec

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err. Description

Resume Exit_Кнопка29_Click

End Sub

Private Sub Кнопка31_Click ()

On Error GoTo Err_Кнопка31_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Способ_вып_зак»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err. Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка34_Click ()

On Error GoTo Err_Кнопка34_Click

DoCmd.Quit

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err. Description

Resume Exit_Кнопка34_Click

End Sub

Private Sub Кнопка35_Click ()

Dim Пароль As String

Пароль = InputBox («Для получения получения полного доступа необходимо ввести пароль», «Ввод пароля»)

If Пароль = «123 456» Then

DoCmd.OpenForm «Администратор»

Else

MsgBox «Неверный пароль», 48, «Ошибка»

End If

End Sub

Форма Администратор

Option Compare Database

Private Sub Option1_Click ()

End Sub

Private Sub Form_Load ()

DoCmd.OpenQuery «Недостаточно комплектующих»

DoCmd.OpenQuery «Невыполненные в срок заказы»

End Sub

Private Sub Кнопка23_Click ()

On Error GoTo Err_Кнопка23_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Поступление комплектующих на склад»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err. Description

Resume Exit_Кнопка23_Click

End Sub

Private Sub Кнопка25_Click ()

On Error GoTo Err_Кнопка25_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация выдачи комплектующих со склада»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err. Description

Resume Exit_Кнопка25_Click

End Sub

Private Sub Кнопка27_Click ()

On Error GoTo Err_Кнопка27_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация поступления изделий на склад»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err. Description

Resume Exit_Кнопка27_Click

End Sub

Private Sub Кнопка29_Click ()

On Error GoTo Err_Кнопка29_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация поступления заказов»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err. Description

Resume Exit_Кнопка29_Click

End Sub

Private Sub Кнопка31_Click ()

On Error GoTo Err_Кнопка31_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Регистрация выполнения заказов»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err. Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка34_Click ()

On Error GoTo Err_Кнопка34_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Изделие»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err. Description

Resume Exit_Кнопка34_Click

End Sub

Private Sub Кнопка36_Click ()

On Error GoTo Err_Кнопка36_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Клиенты

Адм"

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка36_Click:

Exit Sub

Err_Кнопка36_Click:

MsgBox Err. Description

Resume Exit_Кнопка36_Click

End Sub

Private Sub Кнопка38_Click ()

On Error GoTo Err_Кнопка38_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Способ_компл»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка38_Click:

Exit Sub

Err_Кнопка38_Click:

MsgBox Err. Description

Resume Exit_Кнопка38_Click

End Sub

Private Sub Кнопка40_Click ()

On Error GoTo Err_Кнопка40_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Учет метизов по изделиям»

DoCmd.OpenForm stDocName,, , acReadOnly

Exit_Кнопка40_Click:

Exit Sub

Err_Кнопка40_Click:

MsgBox Err. Description

Resume Exit_Кнопка40_Click

End Sub

Private Sub Кнопка42_Click ()

On Error GoTo Err_Кнопка42_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Учет керамики по изделиям»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка42_Click:

Exit Sub

Err_Кнопка42_Click:

MsgBox Err. Description

Resume Exit_Кнопка42_Click

End Sub

Private Sub Кнопка45_Click ()

On Error GoTo Err_Кнопка45_Click

Dim stDocName As String

stDocName = «Регистрация заказов и их выполнения»

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка45_Click:

Exit Sub

Err_Кнопка45_Click:

MsgBox Err. Description

Resume Exit_Кнопка45_Click

End Sub

Private Sub Кнопка47_Click ()

On Error GoTo Err_Кнопка47_Click

DoCmd.Quit

Exit_Кнопка47_Click:

Exit Sub

Err_Кнопка47_Click:

MsgBox Err. Description

Resume Exit_Кнопка47_Click

End Sub

Private Sub Кнопка49_Click ()

On Error GoTo Err_Кнопка49_Click

Dim stDocName As String

stDocName = ChrW (1047) & ChrW (1072) & ChrW (1082) & ChrW (1072) & ChrW (1079) & ChrW (1099)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка49_Click:

Exit Sub

Err_Кнопка49_Click:

MsgBox Err. Description

Resume Exit_Кнопка49_Click

End Sub

Private Sub Кнопка50_Click ()

On Error GoTo Err_Кнопка50_Click

Dim stDocName As String

stDocName = ChrW (1053) & ChrW (1072) & ChrW (1082) & ChrW (1083) & ChrW (1072) & ChrW (1076) & ChrW (1085) & ChrW (1099) & ChrW (1077)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка50_Click:

Exit Sub

Err_Кнопка50_Click:

MsgBox Err. Description

Resume Exit_Кнопка50_Click

End Sub

Private Sub Кнопка51_Click ()

On Error GoTo Err_Кнопка51_Click

Dim stDocName As String

stDocName = ChrW (1058) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088) & ChrW (1085) & ChrW (1099) & ChrW (1081) & ChrW (32) & ChrW (1095) & ChrW (1077) & ChrW (1082)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка51_Click:

Exit Sub

Err_Кнопка51_Click:

MsgBox Err. Description

Resume Exit_Кнопка51_Click

End Sub

Private Sub Кнопка52_Click ()

On Error GoTo Err_Кнопка52_Click

Dim stDocName As String

stDocName = ChrW (1057) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (45) & ChrW (1092) & ChrW (1072) & ChrW (1082) & ChrW (1090) & ChrW (1091) & ChrW (1088) & ChrW (1072)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка52_Click:

Exit Sub

Err_Кнопка52_Click:

MsgBox Err. Description

Resume Exit_Кнопка52_Click

End Sub

Private Sub Кнопка53_Click ()

On Error GoTo Err_Кнопка53_Click

Dim stDocName As String

stDocName = ChrW (1041) & ChrW (1083) & ChrW (1072) & ChrW (1085) & ChrW (1082) & ChrW (32) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (1074) & ChrW (1086) & ChrW (1088) & ChrW (1072)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка53_Click:

Exit Sub

Err_Кнопка53_Click:

MsgBox Err. Description

Resume Exit_Кнопка53_Click

End Sub

Private Sub Кнопка55_Click ()

Dim qwe As Object

Set qwe = CreateObject («Word.Application»)

qwe.documents.Open («c:ордер.doc»)

qwe.Visible = True

End Sub

Форма Изделие

Option Compare Database

Private Sub Кнопка12_Click ()

On Error GoTo Err_Кнопка12_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Комплектующие»

DoCmd.OpenForm stDocName

DoCmd.GoToRecord acForm, stDocName, acNewRec

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err. Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка14_Click ()

On Error GoTo Err_Кнопка14_Click

DoCmd.GoToRecord, , acNext

Exit_Кнопка14_Click:

Exit Sub

Err_Кнопка14_Click:

MsgBox Err. Description

Resume Exit_Кнопка14_Click

End Sub

Private Sub Кнопка15_Click ()

On Error GoTo Err_Кнопка15_Click

DoCmd.GoToRecord, , acNewRec

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err. Description

Resume Exit_Кнопка15_Click

End Sub

Private Sub Кнопка16_Click ()

On Error GoTo Err_Кнопка16_Click

DoCmd.GoToRecord, , acPrevious

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err. Description

Resume Exit_Кнопка16_Click

End Sub

Private Sub Кнопка21_Click ()

On Error GoTo Err_Кнопка21_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70

Exit_Кнопка21_Click:

Exit Sub

Err_Кнопка21_Click:

MsgBox Err. Description

Resume Exit_Кнопка21_Click

End Sub

Private Sub Кнопка22_Click ()

On Error GoTo Err_Кнопка22_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err. Description

Resume Exit_Кнопка22_Click

End Sub

Форма Регистрация поступления заказов

Option Compare Database

Private Sub Form_Load ()

End Sub

Private Sub Внедренный27_Enter ()

End Sub

Private Sub Кнопка26_Click ()

On Error GoTo Err_Кнопка26_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Клиенты2»

DoCmd.OpenForm stDocName,, , stLinkCriteria

DoCmd.GoToRecord acForm, stDocName, acNewRec

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err. Description

Resume Exit_Кнопка26_Click

End Sub

Private Sub Количество_BeforeUpdate (Cancel As Integer)

End Sub

Private Sub Надпись32_Click ()

End Sub

Private Sub Поле33_AfterUpdate ()

End Sub

Private Sub Поле33_BeforeUpdate (Cancel As Integer)

End Sub

Private Sub Поле33_DblClick (Cancel As Integer)

End Sub

Private Sub Кнопка45_Click ()

On Error GoTo Err_Кнопка45_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70

Exit_Кнопка45_Click:

Exit Sub

Err_Кнопка45_Click:

MsgBox Err. Description

Resume Exit_Кнопка45_Click

End Sub

Private Sub Кнопка48_Click ()

On Error GoTo Err_Кнопка48_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Стоимость_заказа»

DoCmd.OpenForm stDocName,, , «Ном_заказа = Ном_заказа»

Exit_Кнопка48_Click:

Exit Sub

Err_Кнопка48_Click:

MsgBox Err. Description

Resume Exit_Кнопка48_Click

End Sub

Private Sub Кнопка49_Click ()

On Error GoTo Err_Кнопка49_Click

DoCmd.GoToRecord, , acNewRec

Exit_Кнопка49_Click:

Exit Sub

Err_Кнопка49_Click:

MsgBox Err. Description

Resume Exit_Кнопка49_Click

End Sub

Форма Способ_вып_зак (способ получения информации о выполненных заказах)

Option Compare Database

Private Sub Кнопка1_Click ()

On Error GoTo Err_Кнопка1_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW (1056) & ChrW (1077) & ChrW (1075) & ChrW (1080) & ChrW (1089) & ChrW (1090) & ChrW (1088) & ChrW (1072) & ChrW (1094) & ChrW (1080) & ChrW (1103) & ChrW (32) & ChrW (1074) & ChrW (1099) & ChrW (1087) & ChrW (1086) & ChrW (1083) & ChrW (1085) & ChrW (1077) & ChrW (1085) & ChrW (1080) & ChrW (1103) & ChrW (32) & ChrW (1079) & ChrW (1072) & ChrW (1082) & ChrW (1072) & ChrW (1079) & ChrW (1086) & ChrW (1074)

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err. Description

Resume Exit_Кнопка1_Click

End Sub

Private Sub Кнопка2_Click ()

On Error GoTo Err_Кнопка2_Click

Dim stDocName As String

Dim Номер_заказа As String

stDocName = «Регистрация выполнения заказов»

DoCmd.OpenForm stDocName,, , «Ном_заказа = Номер_заказа»

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err. Description

Resume Exit_Кнопка2_Click

End Sub

Форма Способ_компл (выбор способа получения информации о наличии комплектующих на складе)

Option Compare Database

Private Sub Кнопка1_Click ()

On Error GoTo Err_Кнопка1_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Учет комплектующих на складе»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err. Description

Resume Exit_Кнопка1_Click

End Sub

Private Sub Кнопка2_Click ()

Dim Название_изделия As String

MsgBox «Информация о наличии комплектующих будет выдана для выбранного изделия», 1, «Выбор изделия»

DoCmd.OpenForm «Учет комплектующих на складе», ,, «Назв

Изд = Название_изделия", acReadOnly

End Sub

Форма Регистрация выполнения заказов

Option Compare Database

Private Sub Внедренный27_Enter ()

End Sub

Private Sub Кнопка26_Click ()

On Error GoTo Err_Кнопка26_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «Клиенты1»

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err. Description

Resume Exit_Кнопка26_Click

End Sub

Private Sub Кнопка35_Click ()

Dim strDocName As String

Dim strFilter As String

strDocName = «Заказы»

strFilter = «Ном_заказа = Forms![Регистрация выполнения заказов]![Номер заказа]»

DoCmd.OpenReport strDocName, acPreview,, strFilter

strFilter = «Ном_заказа = Forms![Регистрация выполнения заказов]![Номер заказа]»

DoCmd.OpenReport «Накладные», acPreview,, strFilter

DoCmd.OpenReport «Счет-фактура», acPreview,, strFilter

DoCmd.OpenReport «Товарный чек», acPreview,, strFilter

End Sub

Private Sub Кнопка36_Click ()

On Error GoTo Err_Кнопка36_Click

Exit_Кнопка36_Click:

Exit Sub

Err_Кнопка36_Click:

MsgBox Err. Description

Resume Exit_Кнопка36_Click

End Sub

Private Sub Кнопка37_Click ()

On Error GoTo Err_Кнопка37_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70

DoCmd.PrintOut acSelection

Exit_Кнопка37_Click:

Exit Sub

Err_Кнопка37_Click:

MsgBox Err. Description

Resume Exit_Кнопка37_Click

End Sub

Private Sub Кнопка39_Click ()

On Error GoTo Err_Кнопка39_Click

Dim stDocName As String

stDocName = «Заказы»

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка39_Click:

Exit Sub

Err_Кнопка39_Click:

MsgBox Err. Description

Resume Exit_Кнопка39_Click

End Sub

Менеджеры

Маркетологи

Руководитель

Руководитель

Плановый отдел

сотрудники

Кладовщики

Бухгалтера

Водите ли

Диспетчеры

менеджеры

Канцелярия

Агенты

Кассир

Отделы продаж

Начальник ТО

Руководитель Отдел кадров

Руководитель

Гл.бух.

Начальник.

склада

Склад

Отдел рекламы

Администрация

Транспортный отдел

Бухгалтерия

Отдел обслуживания

Управляющий директор

Директор по продажам

Генеральный

Директор

По всем поставщикам

По одному поставщику

По всем товарам

По одному товару

Расход товара

Конец

Приход товара

Формирование отчета за период

Начало

Показать весь текст

Список литературы

  1. РД 50−34.698−90
  2. ГОСТ 34.601−90
  3. ГОСТ 34.602−89
  4. ГОСТ 19.701−90
  5. РД IDEF0 2000
  6. Федеральный закон № 149-ФЗ от 27.07.2006 «Об информации, информационных технологиях и о защите информации»
  7. Федеральный закон № 152-ФЗ от 27.07.2006 «О защите персональных данных»
  8. Постановление правительства № 612 от 27.09.2007 «Об утверждении правил продажи дистанционным способом»
  9. Закон РФ № 2300−1 от 7.02.92 «О защите прав потребителей»
  10. Т.В. Проектирование информационных систем.-Москва: Феникс, 2009.-508с.
  11. Н.В. Проектирование информационных систем на основе современных CASE технологий-Москва:МГИУ, 2008.-280с.
  12. Л. Анализ и проектирование информационных систем с помощью UML 2.0.-Москва: Вильямс, 2008.-816 с.
  13. Производительность WEB-служб. Анализ, оценка и планирование: Пер. с англ./Дэниел А. Менаске, Виргилио А. Ф., Алмейда.-СПб: ООО ДиаСофтЮП, 2003.-480 с.
Заполнить форму текущей работой
Купить готовую работу

ИЛИ
↓


Сессия? Спокойно!