- •Проектирование информационных систем
- •Содержание
- •Лабораторная работа
- •Проектирование иерархического меню
- •Проектирование экранных форм.
- •Проектирование отчетов
- •Перечень заданий к лабораторной работе
- •Порядок выполнения лабораторной работы
- •Содержание отчета по лабораторной работе
- •Лабораторная работа «Разработка диаграмм потоков данных с использованием case-технологии»
- •Цель работы
- •Программно-техническая платформа
- •ТеоретическАя часть
- •Перечень заданий к лабораторной работе
- •Порядок выполнения лаботаротной работы
- •Содержание отчета по лабораторной работе
- •Список литературы
- •Приложения
- •201__ Г.
Приложения
Приложение 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
Образец оформления титульного листа отчета
по лабораторному практикуму
Министерство образования и науки
Бирский филиал ФБГОУ ВПО
«Башкирский государственный университет»
Факультет физики и математики
Кафедра математического моделирования и информационных систем
учебная практика
по дисциплине проектирование информационных систем
на тему:
«______________________________________________________»
(Название темы лабораторной работы)
Выполнил:
(Фамилия И.О.)
студент _____ курса _________ направление
(срок обучения) (номер)
Группа: __________ № зачетной книжки
Подпись:
Преподаватель:
(Фамилия И.О.)
Должность:
(уч. степень, уч. звание)
Оценка: __________ Дата:
Подпись:
Бирск