Приложение б
ОСНОВНЫЕ ИТОГОВЫЕ ДОКУМЕНТЫ
Отчет №1 – «Заявление на работу»
Отчет №2 – «Отчет о владельцах аптек»
Отчет №3 – «Отчет о типах медикаментов»
Отчет №4 – «Отчет о медикаментах их изготовителях и аптеках»
Отчет №5 – «Отчет о медикаментах»
Отчет №6 – «Отчет об аптеках»
Отчет №7 – «Отчет о поступлении за определенную дату»
Приложение в
ЛИСТИНГ И ОПИСАНИЕ ПРОГРАММНЫХ МОДУЛЕЙ
Модуль на вход в систему данных. Открывает Доступ в систему, проверяет правильность пароля.
Private Sub Кнопка5_Click()
Select Case rab.Value
Case "Управляющий":
s = uin.Value
If s = "111" Then
ent = 1
DoCmd.OpenForm "Главная форма"
DoCmd.Close acForm, "Вход"
Else
MsgBox ("Пароль неверный, повторите ввод")
End If
Case "Клиент":
s = uin.Value
If s = "222" Then
ent = 2
DoCmd.OpenForm "Главная форма"
DoCmd.Close acForm, "Вход"
Else
MsgBox ("Пароль неверный, повторите ввод")
End If
Case "Администратор":
s = uin.Value
If s = "333" Then
ent = 3
DoCmd.SelectObject acForm, "Вход", True
DoCmd.Close acForm, "Вход"
Else
MsgBox ("Пароль неверный, повторите ввод")
End If
End Select
End Sub
Модуль на добавление нового медикамента в форму «Аптека»
Private Sub Медикамент_NotInList(NewData As String, Response As Integer)
Dim strTmp As String
strTmp = "Добавить '" & NewData & "' как название нового медикамента?"
If MsgBox(strTmp, vbYesNo + vbDefaultButton2 + vbQuestion, "Not in list") = vbYes Then
strTmp = "INSERT INTO Медикамент([Название]) " & _
"VALUES ('" & NewData & "');"
DBEngine(0)(0).Execute strTmp, dbFailOnError
Response = acDataErrAdded
End If
End