ПРИЛОЖЕНИЯ

Дата добавления: 2014-11-24 | Просмотров: 1538

Приложение 1

Приложение 2

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

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

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

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

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

Приложение 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

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

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

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

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

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

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

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

учебная практика

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

на тему:

«______________________________________________________»

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

Выполнил: ____________________________________

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

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

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

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

Подпись:______________________________________

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

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

Должность:____________________________________

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

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

Подпись:______________________________________

Бирск

Г.