При добавлении клиники все данные являются обязательными!

Внимание! При удалении клиники будут удалены все ее сотрудники, но данные касающиеся товаров будут сохранены. Будьте внимательными!

В.4.2 Редактирование персонала

Для перехода к списку сотрудников выберите кнопку "Персонал". В открывшемся окне находится список всех сотрудников, которые записаны в базе. Есть возможность поиска информации. Для удаления - выберите сотрудника и нажмите на кнопку "Удалить". Для добавления нового сотрудника - "Добавить".

При добавлении сотрудника все данные являются обязательными!

Внимание! При удалении сотрудника данные о проданном им товаре не изменяться. Будьте внимательными!

В.4.3 Редактирование магазинов

Для перехода к списку магазинов выберите кнопку "Магазины". В открывшемся окне находится список всех клиентов, обслуживаемых складами БД. Есть возможность поиска информации. Для удаления - выберите магазин и нажмите на кнопку "Удалить". Для добавления нового клиента - "Добавить ".

При добавлении магазина все данные являются обязательными!

В.4.4 Редактирование Товара

Для перехода к списку товаров выберите кнопку "Товар". В открывшемся окне находится список всех товаров, которые находятся на складе. Есть возможность поиска информации. Для удаления - выберите товар и нажмите на кнопку "Удалить". Для добавления нового товара - "Добавить".

При добавлении товара все данные являются обязательными!

В.4.5 Архивация и восстановление данных

Для перехода к окну архивации выберите кнопку "Архивация и восстановление данных". В открывшемся окне администратор может выбрать действие которое ему необходимо выполнить:

1. Выполнить архивацию

2. Восстановить все из архива

3. Очистить архив

При архивации в таблицу "АРХИВ" будут занесены все данные о лечении животных с годом выпуска меньшим, чем текущий!

Очистка архива удаляет все данные без возможности восстановления!

Приложение Г

ЛИСТИНГ ПРОГРАММНЫХ МОДУЛЕЙ

Функция выполняющая авторизацию системы.

Option Compare Database

Private Sub Кнопка6_Click()

Select Case ПолеСоСписком6.Value

Case "Пользователь":

pass = Поле8.Value

If pass = "1" Then

id = 1

DoCmd.Close acForm, "Авторизация"

DoCmd.OpenForm "Главное меню", , , , , acDialog

Else

MsgBox ("Пароль неверный, повторите ввод")

End If

Case "Управляющий":

pass = Поле8.Value

If pass = "2" Then

id = 2

DoCmd.Close acForm, "Авторизация"

DoCmd.OpenForm "Главное меню", acNormal, , , , acDialog

Else

MsgBox ("Пароль неверный, повторите ввод")

End If

Case "Администратор":

pass = Поле8.Value

If pass = "3" Then

id = 3

AllowFullMenus = True

DoCmd.SelectObject acForm, "Авторизация", True

DoCmd.Close acForm, "Авторизация"

AllowFullMenus = True

Else

MsgBox ("Пароль неверный, повторите ввод")

End If

End Select

End Sub

Private Sub Кнопка7_Click()

DoCmd.OpenForm "Выход", acNormal, , , , acDialog

End Sub

Private Sub Кнопка10_Click()

On Error GoTo Err_Кнопка10_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1043) & ChrW(1083) & ChrW(1072) & ChrW(1074) & ChrW(1085) & ChrW(1086) & ChrW(1077) & ChrW(32) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1102)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Help"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

Размещено на Allbest.ru