ну мобільних телефонів, про можливі характеристиках телефонов.02.02.2012 - 16.02.2012Выполнено4Формулирование знань про систему (визначення типів вихідних даних і їх взаємозв'язків). Побудова инфологической моделі даних, створення потоків даних, розробка ієрархічної, мережевої та реляційної моделей данних.16.02.2012 - 08.03.2012 Виполнено5Реалізація в Microsoft Access08.03.2012 - 05.04.2012Виполнено6Напісанія пояснювальній запіскі05.04.2012 - 26.04.2012Виполнено7Защіта курсового проекта.03.05.2012Виполнено
Додаток Б
ОСНОВНІ ПІДСУМКОВІ ДОКУМЕНТИ
В
Малюнок Б.1 - Чек
В
Рисунок Б.2 - Повний звіт по постачальниках
В
Малюнок Б.3 - Повний звіт по виробникам
В
Малюнок Б.4 - Всі телефони
В
Додаток В
лістингу та ОПИС ПРОГРАМНИХ вЂ‹вЂ‹МОДУЛІВ
В.1 Модуль авторизації
GroupID As Integer_АвторізаціяSub Кнопка1_Click () table As DAO.Recordsetfind As Boolean = Falsetable = CurrentDb.OpenRecordset ("users", dbOpenTable) While Not table.EOF
If table.Fields (3). Value = Me.логін.Value Then
find = True
If table.Fields (4). Value = Me.пароль.Value Then
GroupID = table.Fields (2)
UserID = table.Fields (1)
Me.логін.Value = ""
Me.пароль.Value = ""
DoCmd.Close
DoCmd.OpenForm ("Головне вікно")
Exit Sub
Else
MsgBox ("Пароль невірний")
End If
End If
table.MoveNextfind = False Then
MsgBox ("юзверя не знайдено") IfSub
В.2 Макрос контекстного меню головного вікна
меню_Справочние_табліци () Error GoTo меню_Справочние_табліци_Err
If (Forms! [Головне вікно]! Кнопка16.Visible) Then
DoCmd.OpenForm "Довідкові таблиці", acNormal, "", "",, acNormal
Else
Beep
MsgBox "Доступ відсутнє", vbOKOnly, ""
End If
меню_Справочние_табліци_Exit:
Exit Function
меню_Справочние_табліци_Err:
MsgBox Error $
Resume меню_Справочные_таблицы_ExitFunction
меню_Пользователі () Error GoTo меню_Пользователі_Err
If (Forms! [Головне вікно]! Кнопка16.Visible) Then
DoCmd.OpenForm "Користувачі", acNormal, "", "",, acNormal
Els...
