ЗАКЛЮЧЕНИЕ. Цель ДП, заключающаяся в сокращение времени формирования выходных документов (квитанция получения товаров на склад (Отчет 1); квитанция выдачи товаров со

Цель ДП, заключающаяся в сокращение времени формирования выходных документов (квитанция получения товаров на склад (Отчет 1); квитанция выдачи товаров со склада (Отчет 2); отчет о наличии товаров на складе и их количестве на текущую дату (Отчет 3); отчет об ущербе от просроченного товара (Отчет 4); акт списания просроченного товара (Отчет 5)) на основе использования разработанной ИС, достигнута.

Показатели эффективности от внедрения проекта представлены в таблице 3.3 пояснительной записки. По результатам расчетов, представленных в таблице 3.3 можно сделать следующие выводы:

1. Индексы изменения трудовых (I_T) и стоимостных (I_С) затрат в нашем случае равны 5,35, так как стоимостные затраты зависят от трудовых затрат.

2. Внедрение проекта позволяет сократить трудовые и cтоимостные затраты на 81,32%. При этом, как видно из диаграмм меняется соотношение затрат. Так, трудовые затраты на обработку данных на этапе прихода комплектующих и расходных материалов при проектируемом варианте уменьшились в 3,2 раза, тогда как на всех остальных этапах сократились в 5 раз, а при формировании отчетов - сократились в 12,5 раз. То же самое можно сказать и про стоимостные затраты.

3. Прямой эффект от внедряемого проекта при грубых расчетах составит около 7400 рублей в год. Данная сумма напрямую зависит от заработной платы специалиста, выполняющего данную работу. Заработная плата специалиста невысокая, а значит и прямой эффект не очень высок.

Во время работы над ДП закреплены основные навыки для проведения этапов проектирования БД, выбрана СУБД создания и ведения БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”.

В результате работы над ДП решены следующие задачи:

· проведен обзор методов построения ИС БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”. Выбрана СУБД для создания и ведения БД;

· разработана концептуальная модель ИС БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”;

· разработана инфологическая модель ИС БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”;

· разработана даталогическая модель БД ИС БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”;

· разработаны формы выходных документов ИС БД ИС “СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”;

· разработаны запросы для формирования таблиц, на основе которых формируются выходные документы;

· разработаны экранные формы, позволяющие в режиме диалога вести БД ИС БД ИС “ СКЛАД ПРОДОВОЛЬСТВЕННЫХ ТОВАРОВ”, формировать отчеты выходных документов;

· разработаны отчеты, позволяющие по предложенным формам формировать выходные документы;

· разработаны модули программного обеспечения на VBA, позволяющие формировать квитанции и выходные документы.

При решении задач автоматизации склада продовольственных товаров большую помощь оказали учебные пособия руководителя проекта [7, 11].

В целом получены практические навыки проектирования ИС.

СПИСОК ЛИТЕРАТУРЫ

1. Байгарова Н.С. Организация управления базами визуальных данных // Н.С. Байгарова, Ю.А. Бухштаб, А.А. Воробьев, А.А. Горный. - М., 2008. 21 с.

2. Бекаревич Ю.Б. MS Access 2000 за 30 занятий: [Технология разраб. баз данных от проектирования до создания прил.: Практ. пособие] // Юрий Бекаревич, Нина Пушкина. - СПб. [и др.]: БХВ-Санкт-Петербург, 2007. 492 с.

3. Волгин В.В. Кладовщик: Устройство складов. Склад. операции. Упр. складом. Норматив. док. -М.:Ось-89, 2002. 270 с.

4. Волгин В.В. Склад: Логистика. Управление. Анализ: Учебное пособие для подготовки специалистов по управлению складскими операциями и товарными запасами. - М: Изд.-торговая корпорация "Дашков и Кº", 2009. 196 с.

5. Волгин В.В. Склад: организация и управление: Практ. Пособие. -М.:Дашков и К° 2002. 361 с.

6. Дейт К. Дж. Введение в системы баз данных. - 6-е изд. - М., СПб.,Киев, Изд. дом Вильяме, 2008. 245с.

7. Дзюбенко А.Л., Ильин А.А. Мишин П.Н. и др. Информационные технологии управления: Учебное пособие / под ред. Ю.В. Обрубова. - М.: Изд-во "Ваш Домъ", 2006. 192 с.

8. Диго С.М. Создание баз данных в среде СУБД Access Учебное пособие по курсу “Базы данных” / Моск. гос. ун-т экономики, статистики и информатики. - М., 2006. 106 с.

9. Дубнов, П.Ю. Access 2009: Проектирование баз данных: Конвертирование баз. данных из различ. программ. сред. Формирование макросов при диалоге с базой данных. Выполнение нестандарт. запросов при помощи Visual Basic. - М.: ДМК, 2005. 271 с.

10.Золотова С.И. Практикум по Aссеss: Подгот. курс, предваряющий более глубокое изучение технологии баз данных // С. И. Золотова. - М.: Финансы и статистика, 2009. 141 с.

11.Ильин А.А., Евсюков В.В., Ильин Р.А. Информатика: Учебное пособие. – М.: Серебряная нить, 2005. 376 с.

12.Когаловский М.Р. Энциклопедия технологий баз данных: Эволюция технологий. Технологии и стандарты. Инфраструктура. Терминология // М.Р. Когаловский. - М.: Финансы и статистика, 2007. 798 с.

13.Курганов В.М. Логистика. Транспорт и склад в цепи поставок товаров: Учебное пособие для студентов высших учебных заведений. -М: Кн. мир, 2009. 212 с.

14.Мамаев Е. MS SQL Server 7.0: проектирование и реализация баз данных // Евгений Мамаев.- СПб.[и др.]: Cbhv, [2008].416 с.

15. Манжосов, Г.П. Современный склад. Организация и технология. -М. КИА центр 2006. 219 с.

16.Новалис С. Access 2007: Руководство по VBA: Разработка собств. баз дан. и проектов с помощью VBA: Учеб. рук. и справ. для опыт. пользователей и разраб. // [Науч. ред. А. Бернштейн; Пер. А. Киселева ]. - М.: Лори, 2000.- XII, 506 с.

17. Подольский М.П. Введение в 1C-бухгалтерию: Тонкости, советы и способы работы: [Автоматизация бухгалт. учета. Принципы компьютер. бухгалтерии. Аналит. учет. 1C: бухгалтерия без проводок!. 1C: предприятие. 1C: торговля и склад. 1C: зарплата и кадры. 1C: проблема 2000. -М.: Познават. кн. плюс 2000. 191 с.

18.Селищев Н.В. 1С: Торговля и Склад 7.7: шаг за шагом: Учебное. Пособие. -М: ТРИУМФ, 2007. 232 с.

19.Хортон Р. Разработка баз данных Microsoft SQL server 2000 на примерах: [Изучение процесса разраб. базы данных SQL Server 2000 на прим. создания прил. SpyNet] // Роб Хортон; [Пер. с англ. В. В. Александрова и др.]. - М. [и др.]: Вильямс, 2005. 460 с.

20.Чертовской В. Д., Шеховцов О. И. Объектно-ориентированный подход в построении баз данных: Учеб. пособие для студентов, обучающихся по специальности 220200 "Автоматизир. системы обраб. информ. и упр." М-во образования Рос. Федерации. С.-Петерб. ин-т (фил.) Моск. гос. 222 с.

21.Шаша Д., Бонне Ф. Оптимизация баз данных: принципы, практика, решение проблем / Пер. с англ. - М.:КУДиЦ - ОБРАЗ, 2006. 432 с.

 

ПРИЛОЖЕНИЕ 1.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ФОРМЫ ВЕДЕНИЯ ТАБЛИЦЫ “ИНФОРМАЦИЯ О КВИТАНЦИЯХ НА ПОЛУЧЕНИЕ
ТОВАРА” (Kvit_In)

Option Compare Database

' Просмотреть отчет

Private Sub B_Ot_Kvit_In_Click()

On Error GoTo Err_B_Ot_Kvit_In_Click

 

Dim stDocName As String

 

Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

stDocName = "Kvit_Tovar_In"

DoCmd.OpenReport stDocName, acPreview

 

' B_Ot_Kvit_In.SetFocus ' Установить фокус на кнопку B_Ot_Kvit_In

Exit_B_Ot_Kvit_In_Click:

Exit Sub

 

Err_B_Ot_Kvit_In_Click:

MsgBox Err.Description

Resume Exit_B_Ot_Kvit_In_Click

 

End Sub

' Напечатать отчет

Private Sub B_Print_Kvit_In_Click()

On Error GoTo Err_B_Print_Kvit_In_Click

 

Dim stDocName As String

 

Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

stDocName = "Kvit_Tovar_In"

DoCmd.OpenReport stDocName, acNormal

 

 

B_Print_Kvit_In.SetFocus ' Установить фокус на кнопку B_Print_Kvit_In

Exit_B_Print_Kvit_In_Click:

Exit Sub

 

Err_B_Print_Kvit_In_Click:

MsgBox Err.Description

Resume Exit_B_Print_Kvit_In_Click

 

End Sub

' Открыть форму

Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord, "", acLast ' Отобразить на форме последнюю запись

End Sub

' Удалить текущую запись

Private Sub B_Del_Rec_Click()

On Error GoTo Err_B_Del_Rec_Click

 

 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70

 

Exit_B_Del_Rec_Click:

Exit Sub

 

Err_B_Del_Rec_Click:

MsgBox Err.Description

Resume Exit_B_Del_Rec_Click

 

End Sub

ПРИЛОЖЕНИЕ 2.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ФОРМЫ ВЕДЕНИЯ ТАБЛИЦЫ “ИНФОРМАЦИЯ О КВИТАНЦИЯХ НА ВЫДАЧУ ТОВАРА” (Kvit_Out)

Option Compare Database

' Открыть форму

Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord, "", acLast ' Отобразить на форме последнюю запись

End Sub

' Просмотреть отчет

Private Sub B_Ot_Kvit_Click()

On Error GoTo Err_B_Ot_Kvit_Click

 

Dim stDocName As String

Sel_Kladov_FIO.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

 

stDocName = "Kvit_Tovar_Out"

DoCmd.OpenReport stDocName, acPreview

B_Ot_Kvit.SetFocus ' Установить фокус на кнопку B_Ot_Kvit

 

Exit_B_Ot_Kvit_Click:

Exit Sub

 

Err_B_Ot_Kvit_Click:

MsgBox Err.Description

Resume Exit_B_Ot_Kvit_Click

 

End Sub

' Напечатать отчет

Private Sub B_Pr_Out_Kvit_Click()

On Error GoTo Err_B_Pr_Out_Kvit_Click

 

Dim stDocName As String

Sel_Kladov_FIO.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

stDocName = "Kvit_Tovar_Out"

DoCmd.OpenReport stDocName, acNormal

B_Ot_Kvit.SetFocus ' Установить фокус на кнопку B_Ot_Kvit

 

Exit_B_Pr_Out_Kvit_Click:

Exit Sub

 

Err_B_Pr_Out_Kvit_Click:

MsgBox Err.Description

Resume Exit_B_Pr_Out_Kvit_Click

 

End Sub

' Удалить текущую запись

Private Sub B_Del_Rec_Click()

On Error GoTo Err_B_Del_Rec_Click

 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70

 

Exit_B_Del_Rec_Click:

Exit Sub

 

Err_B_Del_Rec_Click:

MsgBox Err.Description

Resume Exit_B_Del_Rec_Click

 

End Sub

ПРИЛОЖЕНИЕ 3.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ФОРМЫ ФОРМИРОВАНИЯ КВИТАНЦИИ ПОЛУЧЕНИЯ ТОВАРА” (Kvit_In_F)

Option Compare Database

Dim bs As Database ' База данных

Dim tab_01, tab_02, tab_04 As Recordset ' Таблицы базы данных

' Поиск записи по первичному ключу методом дихотомии

Public Sub Find_Rec(r_tab As Recordset, ind As Integer)

Dim i, i1, i2, k As Integer

r_tab.MoveFirst

k = r_tab.Fields(0).Value

If k = ind Then Exit Sub ' Если индекс в первой записи = ind

r_tab.MoveLast

k = r_tab.Fields(0).Value

If k = ind Then Exit Sub ' Если индекс в последней записи = ind

i1 = 1 ' i1:= 1

i2 = r_tab.RecordCount ' i2:= количество_записей_в_таблице

While Abs(i1 - i2) <> 0 ' Пока не найдется запись с ключом ind

i = Int((i1 + i2) / 2)

' If i > r_tab.RecordCount Then i = r_tab.RecordCount

r_tab.MoveFirst

r_tab.Move (i)

k = r_tab.Fields(0).Value

If k = ind Then Exit Sub

If ind > k Then

i1 = i

Else

i2 = i

End If ' Конец If

Wend ' Конец цикла While

End Sub

 

' Добавить товар в квитанцию

Private Sub B_Add_Kvit_Click()

Dim Res

Dim Kol As Double

Dim ind As Integer

Set tab_04 = bs.OpenRecordset("Mesto_Chran") ' tab_04 связать с таблицей "Mesto_Chran";

Sel_Mesto_Chran.SetFocus ' Установить фокус на список мест хранения

ind = Sel_Mesto_Chran.Column(0) ' ind:= првичный_индекс_места_хранения

Call Find_Rec(tab_04, ind) ' Встать на нужную запись в таблице "Mesto_Chran";

Kol = Kol_Tov.Value + tab_04.Fields(4).Value ' Прибавка товара в месте хранения

If Kol > tab_04.Fields(2).Value Then ' Вывод предупреждения

Res = MsgBox("Некуда складывать товар", vbOKOnly, "Предупреждение", "", 1000)

Exit Sub

Else

tab_04.Edit ' Разрешить редактирование таблицы "Mesto_Chran";

tab_04.Fields(4).Value = Kol ' Добавить кол-во хранимого товара

tab_04.Update ' Обновить результаты редактирования таблицы "Mesto_Chran";

End If

Set tab_02 = bs.OpenRecordset("Input") ' tab_02 связать с таблицей "Input";

tab_02.MoveLast ' Встать на последнюю запись таблицы "Input";

' tab_02.Edit

tab_02.AddNew ' Добавить запись в таблицу "Input";

tab_02.Fields(1).Value = ind_Kvit_In.Value

ind = Sel_Tov.Column(0)

tab_02.Fields(2).Value = ind 'Выбор товара

tab_02.Fields(3).Value = Kol_Tov.Value ' Выбор количества товара

tab_02.Fields(5).Value = tab_04.Fields(0) ' Выбор места хранения

tab_04.Close ' Закрыть таблицу "Mesto_Chran";

Set tab_04 = bs.OpenRecordset("Tovar") ' tab_04 связать с таблицей "Tovar";

ind = Sel_Tov.Column(0) '.ListIndex

Call Find_Rec(tab_04, ind) ' Встать на необходимуюую запись таблицы "Tovar";

Itogo.Value = Itogo.Value + Kol_Tov.Value * tab_04.Fields(3).Value ' Формирование итоговой стоимости квитанции

tab_02.Fields(4).Value = Kol_Tov.Value * tab_04.Fields(3).Value ' Выбор стоимости товара

tab_04.Edit ' Редактировать таблицу Tovar

Kol = tab_04.Fields(5).Value ' Kol:= Количество_товара_на_складе

Kol = Kol + Kol_Tov.Value ' Прибавка товара на складе

tab_04.Fields(5).Value = Kol

tab_04.Update ' Обновить результаты редактирования таблицы "Tovar";

tab_02.Update ' Обновить результаты редактирования таблицы "Input";

Form_Kvit_In_F.Refresh ' Отобразить на форме результаты редактирования

End Sub

' Просмотр отчета по квитанции

Private Sub B_Ot_Kvit_In_F_Click()

On Error GoTo Err_B_Ot_Kvit_In_F_Click

 

Dim stDocName As String

Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

stDocName = "Kvit_Tovar_In_F"

DoCmd.OpenReport stDocName, acPreview

 

' B_Ot_Kvit_In_F.SetFocus ' Установить фокус на кнопке B_Ot_Kvit_In_F

Exit_B_Ot_Kvit_In_F_Click:

Exit Sub

 

Err_B_Ot_Kvit_In_F_Click:

MsgBox Err.Description

Resume Exit_B_Ot_Kvit_In_F_Click

 

End Sub

' Печать отчета по квитанции

Private Sub B_Print_Kvit_In_F_Click()

On Error GoTo Err_B_Print_Kvit_In_F_Click

 

Dim stDocName As String

Sel_Kladov.SetFocus ' Установить фокус на визуальный компонент Sel_Kladov

stDocName = "Kvit_Tovar_In_F"

DoCmd.OpenReport stDocName, acNormal

 

B_Print_Kvit_In_F.SetFocus ' Установить фокус на кнопке B_Print_Kvit_In_F

Exit_B_Print_Kvit_In_F_Click:

Exit Sub

 

Err_B_Print_Kvit_In_F_Click:

MsgBox Err.Description

Resume Exit_B_Print_Kvit_In_F_Click

 

End Sub

' Открытие формы

Private Sub Form_Open(Cancel As Integer)

Set bs = CurrentDb ' bs:= текущую базу данных ("Sklad")

Set tab_01 = bs.OpenRecordset("Kvit_In") ' tab_01 связать с таблицей "Kvit_In";

tab_01.MoveLast ' Встать на последнюю запись таблицы "Kvit_In";

tab_01.AddNew ' Добавить запись в таблицу "Kvit_In";

tab_01.Fields(1).Value = Date + Time ' Вставить текущую дату/время

tab_01.Fields(2).Value = 1 ' Вставить в запись 1-го кладовщика (по умолчанию)

tab_01.Fields(3).Value = 0 ' Обнулить поле Itogo

tab_01.Update ' Обновить результаты редактирования таблицы "Kvit_In";

Form_Kvit_In_F.Refresh ' Отобразить на форме результаты редактирования

DoCmd.GoToRecord, "", acLast ' Отобразить на форме последнюю запись

End Sub

' Закрытие формы

Private Sub B_Close_Click()

On Error GoTo Err_B_Close_Click

DoCmd.Close

Exit_B_Close_Click:

Exit Sub

 

Err_B_Close_Click:

MsgBox Err.Description

Resume Exit_B_Close_Click

 

End Sub

ПРИЛОЖЕНИЕ 4.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ФОРМЫ ФОРМИРОВАНИЯ КВИТАНЦИИ ВЫДАЧИ ТОВАРА” (Kvit_Out / Kvit_Out_F)

Option Compare Database

Dim bs As Database ' База данных

Dim tab_01, tab_02, tab_03, tab_04 As Recordset ' Таблица базы данных

' Добавить товар в квитанцию выдачи

Private Sub Add_Tov_Click()

Call B_Add_Out_Click ' Добавить отпущенный товар

Call B_Rec_Out_Click ' Изменить количество товара и его стоимость в таблицах БД

End Sub

 

' Закрытие формы

Private Sub B_Close_Click()

On Error GoTo Err_B_Close_Click

DoCmd.Close

Exit_B_Close_Click:

Exit Sub

Err_B_Close_Click:

MsgBox Err.Description

Resume Exit_B_Close_Click

End Sub

 

' Открытие формы

Private Sub Form_Open(Cancel As Integer)

Set bs = CurrentDb ' bs:= текущую базу данных ("Sklad")

Set tab_01 = bs.OpenRecordset("Kvit_Out") ' tab_01 связать с таблицей "Kvit_Out";

tab_01.MoveLast ' Встать на последнюю запись таблицы "Kvit_Out";

tab_01.AddNew ' Добавить запись в таблицу "Kvit_Out";

' tab_01.Edit

tab_01.Fields(1).Value = Date + Time ' Вставить текущую дату/время

tab_01.Fields(2).Value = 1 ' Вставить в запись 1-го кладовщика (по умолчанию)

tab_01.Fields(3).Value = 0 ' Обнулить поле Itogo

tab_01.Update ' Обновить результаты редактирования таблицы "Kvit_Out";

Sel_Tov.SetFocus

Refresh ' Отобразить на форме результаты редактирования

DoCmd.GoToRecord, "", acLast ' Отобразить на форме последнюю запись

End Sub

 

' Печать отчета

Private Sub B_Pr_Kvit_Out_Click()

On Error GoTo Err_B_Pr_Kvit_Out_Click

Dim stDocName As String

Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков

stDocName = "Kvit_Tovar_Out_F"

DoCmd.OpenReport stDocName, acNormal

B_Pr_Kvit_Out.SetFocus ' Установка фокуса на кнопке печати отчета

Exit_B_Pr_Kvit_Out_Click:

Exit Sub

Err_B_Pr_Kvit_Out_Click:

MsgBox Err.Description

Resume Exit_B_Pr_Kvit_Out_Click

End Sub

 

' Просмотр отчета

Private Sub B_Kvit_Out_F_Click()

On Error GoTo Err_B_Kvit_Out_F_Click

Dim stDocName As String

Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков

stDocName = "Kvit_Tovar_Out_F"

DoCmd.OpenReport stDocName, acPreview

B_Kvit_Out_F.SetFocus ' Установка фокуса на кнопке просмотра отчета

Exit_B_Kvit_Out_F_Click:

Exit Sub

Err_B_Kvit_Out_F_Click:

MsgBox Err.Description

Resume Exit_B_Kvit_Out_F_Click

End Sub

 

' Изменение в списке товаров

Private Sub Sel_Tov_Change()

Sel_Tov.SetFocus

Refresh

B_Add_Kvit.SetFocus

End Sub

 

' Добавить запись в таблицу Output

Private Sub B_Add_Out_Click()

On Error GoTo Err_B_Add_Out_Click

Dim stDocName As String

stDocName = "Add_Out"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Add_Out_Click:

Exit Sub

Err_B_Add_Out_Click:

MsgBox Err.Description

Resume Exit_B_Add_Out_Click

End Sub

 

' Обновить в таблицах БД количество товара и его стоимость в табл. Kvit_Out

Private Sub B_Rec_Out_Click()

On Error GoTo Err_B_Rec_Out_Click

Dim stDocName As String

stDocName = "Obn_Kol_TO"

Sel_Tov.SetFocus ' Установить фокус на списке товаров

DoCmd.OpenQuery stDocName, acNormal, acEdit

B_Add_Out.SetFocus ' Установить фокус на кнопке "Добавить выданный товар";

Exit_B_Rec_Out_Click:

Refresh

Exit Sub

Err_B_Rec_Out_Click:

MsgBox Err.Description

Resume Exit_B_Rec_Out_Click

End Sub

ПРИЛОЖЕНИЕ 5.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ФОРМЫ ФОРМИРОВАНИЯ КВИТАНЦИИ ВЫДАЧИ ТОВАРА” (Kvit_Out / Kvit_Out_F)

' Формирование таблиц списания

Private Sub B_Tab_Akt_Click()

' Добавить запись в таблицу Akt_Spis

Dim bs As Database ' База данных

Dim tab_01 As Recordset ' Таблица базы данных

Set bs = CurrentDb ' bs:= текущую базу данных ("Sklad_PT")

Set tab_01 = bs.OpenRecordset("Akt_Spis") ' tab_01 связать с таблицей "Akt_Spis";

tab_01.AddNew

tab_01.Fields(1).Value = Date

tab_01.Fields(2).Value = ind_Kladov.Value

tab_01.Update

' Добавить таблицу просроченных товаров (Prosrotch)

Call B_Add_Tov_Click

' Удалить из таблиц Input, Mesto_Cran, Tovar просроченные товары

Call B_Del_Tov_Click

End Sub

 

' Открытие формы

Private Sub Form_Open(Cancel As Integer)

Sel_Kladov.SetFocus ' Установить фокус на списке кладовщиков

Sel_Kladov.ListIndex = 0 ' Выбрать 1-го кладовщика из списка

B_Prosro.SetFocus ' Установить фокус на кнопке "Обновить на контрольную дату";

End Sub

 

' Просмотреть Акт списания просроченных товаров

Private Sub B_Akt_Spis_Click()

On Error GoTo Err_B_Akt_Spis_Click

Dim stDocName As String

stDocName = "Akt_Spis"

Sel_Kladov.SetFocus ' Установить фокус на списке кладовщиков

DoCmd.OpenReport stDocName, acPreview

Exit_B_Akt_Spis_Click:

Refresh ' Обновить форму

B_Akt_Spis.SetFocus ' Установить фокус на кнопке просмотра акта списания

Exit Sub

Err_B_Akt_Spis_Click:

MsgBox Err.Description

Resume Exit_B_Akt_Spis_Click

End Sub

 

' Напечатать отчет о просроченных товарах

Private Sub B_Prin_Prosr_Click()

On Error GoTo Err_B_Prin_Prosr_Click

Dim stDocName As String

stDocName = "Prosr_Tov"

DoCmd.OpenReport stDocName, acNormal

Exit_B_Prin_Prosr_Click:

Exit Sub

Err_B_Prin_Prosr_Click:

MsgBox Err.Description

Resume Exit_B_Prin_Prosr_Click

End Sub

 

' Напечатать Акт списания

Private Sub B_Prin_Akt_Click()

On Error GoTo Err_B_Prin_Akt_Click

Dim stDocName As String

stDocName = "Akt_Spis"

DoCmd.OpenReport stDocName, acNormal

 

Exit_B_Prin_Akt_Click:

Exit Sub

Err_B_Prin_Akt_Click:

MsgBox Err.Description

Resume Exit_B_Prin_Akt_Click

End Sub

 

' Добавить таблицу просроченных товаров (Prosrotch)

Private Sub B_Add_Tov_Click()

On Error GoTo Err_B_Add_Tov_Click

Dim stDocName As String

stDocName = "Add_Prosrotch"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Add_Tov_Click:

Exit Sub

Err_B_Add_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Add_Tov_Click

End Sub

 

' Удалить списанный товар из таблиц БД

Private Sub B_Del_Tov_Click()

On Error GoTo Err_B_Del_Tov_Click

Dim stDocName As String

stDocName = "Del_Tov"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Del_Tov_Click:

Refresh

Exit Sub

Err_B_Del_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Del_Tov_Click

End Sub

 

' Удалить списанный товар из таблиц БД

Private Sub B_Prosr_Tov_Click()

On Error GoTo Err_B_Prosr_Tov_Click

 

Dim stDocName As String

 

stDocName = "Prosr_Tov"

Sel_Kladov.SetFocus ' Установить фоккус на спике кладовщиков (Sel_Kladov)

DoCmd.OpenReport stDocName, acPreview

 

Exit_B_Prosr_Tov_Click:

Refresh ' Обновить форму

B_Prosr_Tov.SetFocus ' Установить фоккус на кнопке B_Prosr_Tov

Exit Sub

Err_B_Prosr_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Prosr_Tov_Click

End Sub

 

' Обновить на контрольную дату

Private Sub B_Prosro_Click()

On Error GoTo Err_B_Prosro_Click

Dim stDocName As String

stDocName = "Prosr_Tov"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Prosro_Click:

Refresh ' Обновить форму под контрольную дату

DoCmd.Close ' Закрыть окно таблицы запроса

Exit Sub

Err_B_Prosro_Click:

MsgBox Err.Description

Resume Exit_B_Prosro_Click

End Sub