ПРИЛОЖЕНИЯ. Иерархическое меню АРМ кладовщика склада материалов

 

Приложение 1

Иерархическое меню АРМ кладовщика склада материалов

 

 

Приложение 2

Экранные формы АРМ кладовщика склада материалов

Экранная форма «Приход»

Приложение 2 (окончание)

 

Экранная форма «Справочник " Материалы"»

Экранная форма «Ввод количества»

Приложение 3

Отчеты АРМ кладовщика склада материалов

 

Приложение 4

Реквизитный состав таблиц АРМ кладовщика

склада материалов

Реквизитный состав таблицы «Материалы»

Реквизитный состав таблицы «Приход»

Приложение 5

Макросы и модули, используемые в АРМ кладовщика

склада материалов

Макрос выбора наименования материала

из формы «Справочник " Материалы"»,

приходование которого осуществляется на склад

(форма «Приход», кнопка «Подбор материала»)

Private Sub Подбор_Материала_Click()

On Error GoTo Err_Подбор_Материала_Click

Dim strDocName As String

Dim strLinkCriteria As String

strDocName = " Справочник_Материалы"

DoCmd.OpenForm strDocName,,, strLinkCriteria

Exit_Подбор_Материала_Click:

Exit Sub

Err_Подбор_Материала_Click:

MsgBox(Err.Description)

Resume Exit_Подбор_Материала_Click

End Sub

Приложение 5 (продолжение)

Макрос проведения прихода материалов на склад

(форма «Приход», кнопка «Проводка прихода»)

Private Sub Провести_приход_Click()

On Error GoTo Err_Провести_приход_Click

With CodeContextObject

Dim i As Integer

DoCmd.GoToRecord acForm, " Приход", acFirst

f: DoCmd.OpenForm " Справочник_Материалы", acNormal, " ", " ",, acNormal

DoCmd.FindRecord Forms! Приход! Материал, acEntire, True,, True, acCurrent, True

DoCmd.GoToControl " [Остаток]"

Forms! Справочник_Материалы! Остаток = Forms! Приход! Количество + Forms! Справочник_Материалы! Остаток

DoCmd.Close acForm, " Ввод количества"

DoCmd.GoToRecord acForm, " Приход", acNext

If Forms! Приход! Количество = 0 Then

Exit Sub

Else: GoTo f:

End If

End With

Exit_Провести_приход_Click:

Exit Sub

Err_Провести_приход_Click:

MsgBox Err.Description

Resume Exit_Провести_приход_Click

End Sub

 

Приложение 5 (продолжение)

Макрос для печати приходного ордера

(форма «Приход», кнопка «Приходный ордер»)

Private Sub Приходный_ордер_Click()

On Error GoTo Err_Приходный_ордер_Click

Dim stDocName As String

stDocName = " Приходный Ордер"

DoCmd.OpenReport stDocName, acPreview

Exit_Приходный_ордер_Click:

Exit Sub

Err_Приходный_ордер_Click:

MsgBox (Err.Description)

Resume Exit_Приходный_ордер_Click

End Sub

Макрос для закрытия формы «Приход»

(кнопка «Выход»)

Private Sub Выход_Click()

On Error GoTo Err_Выход_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 9,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70

DoCmd.Close

Exit_Выход_Click:

Exit Sub

Err_Выход_Click:

MsgBox Err.Description

Resume Exit_Выход_Click

End Sub

Макрос для ввода количества приходуемого на склад

материала (форма «Ввод количества», кнопка «ОК»)

Приложение 5 (окончание)

Макрос для закрытия формы «Ввод количества»

(кнопка «Отмена»)

Private Sub Ввод_количества_Отмена_Click()

On Error GoTo Err_Ввод_количества_Отмена_Click

DoCmd.Close

Exit_Ввод_количества_Отмена_Click:

Exit Sub

Err_Ввод_количества_Отмена_Click:

MsgBox Err.Description

Resume Exit_Ввод_количества_Отмена_Click

End Sub

Макрос для переноса наименования материала,

оприходование которого осуществляется на склад

из справочника в форму «Приход»

(форма «Справочник " Материалы"»

кнопка «Пометить материал»)

 

 

Приложение 6

Запрос на выборку в АРМ кладовщика склада материалов

Приложение 7

Образец оформления титульного листа отчета

по лабораторному практикуму

Министерство образования и науки

Бирский филиал ФБГОУ ВПО

«Башкирский государственный университет»

Факультет физики и математики

Кафедра математического моделирования
и информационных систем

 

 

ЛАБОРАТОРНАЯ РАБОТА

по дисциплине проектирование информационных систем

на тему:

«______________________________________________________»

(Название темы лабораторной работы)

 

Выполнил: ____________________________________

(Фамилия И.О.)

студент _____ курса _________ направление __________

(срок обучения) (номер)

Группа: __________ № зачетной книжки _____________

Подпись: _______________________________________

Преподаватель: _________________________________

(Фамилия И.О.)

Должность: _____________________________________

(уч. степень, уч. звание)

Оценка: __________ Дата: _________________________

Подпись: _______________________________________

 

 

Бирск

Г.