Создание базы данных магазина мобильных телефонов
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
исходные данные, ограничения, результаты, связь.26.01.2012 - 02.02.2012Выполнено3Подбор и изучение литературы Сбор информации о процессе работы магазина мобильных телефонов, о возможных характеристиках телефонов.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
Else
Beep
MsgBox "Доступ отстутствует", vbOKOnly, ""
End If
меню_Пользователи_Exit:
Exit Function
меню_Пользователи_Err:
MsgBox Error$
Resume меню_Пользователи_ExitFunction
меню_Сменить_пользователя()Error GoTo меню_Сменить_пользователя_Err
DoCmd.Close , ""
DoCmd.OpenForm "Авторизация", acNormal, "", "", , acNormal
меню_Сменить_пользователя_Exit:
Exit Function
меню_Сменить_пользователя_Err:
MsgBox Error$
Resume меню_Сменить_пользователя_ExitFunction
меню_Закрыть_окно()Error GoTo меню_Закрыть_окно_Err
DoCmd.Close , ""
меню_Закрыть_окно_Exit:
Exit Function
меню_Закрыть_окно_Err:
MsgBox Error$
Resume меню_Закрыть_окно_ExitFunction
В.3 Проверка на отсутствие клиента в базе
Sub ФИОКлиента_NotInList(NewData As String, Response As Integer)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 IfSub
В.4 Макрос архивации
Архивация_Телефоны_арх()Error GoTo Архивация_Телефоны_арх_Err
DoCmd.OpenQuery "архивация_телефоны", acViewNormal, acEdit
DoCmd.OpenQuery "удаление_телефоны", acViewNormal, acEdit
Архивация_Телефоны_арх_Exit:
Exit Function
Архивация_Телефоны_арх_Err:
MsgBox Error$
Resume Архивация_Телефоны_арх_ExitFunction
Архивация_Клиенты_арх()Error GoTo Архивация_Клиенты_арх_Err
DoCmd.OpenQuery "архивация_клиенты", acViewNormal, acEdit
DoCmd.OpenQuery "удаление_клиенты", acViewNormal, acEdit
Архивация_Клиенты_арх_Exit:
Exit Function
Архивация_Клиенты_арх_Err:
MsgBox Error$
Resume Архивация_Клиенты_арх_ExitFunction
Архивация_Продажи_арх()Error GoTo Архивация_Продажи_арх_Err
DoCmd.OpenQuery "архивация_продажи", acViewNormal, acEdit
DoCmd.OpenQuery "удаление_продажи", acViewNormal, acEdit
Архивация_Продажи_арх_Exit:
Exit Function
Архивация_Продажи_арх_Err:
MsgBox Error$
Resume Архивация_Продажи_арх_ExitFunction
Архивация_Поставки_арх()Error GoTo Архивация_Поставки_арх_Err
DoCmd.OpenQuery "архивация_поставки", acViewNormal, acEdit
DoCmd.OpenQuery "удаление_поставки", acViewNormal, acEdit
Архивация_Поставки_арх_Exit:
Exit Function
Архивация_Поставки_арх_Err:
MsgBox Error$
Resume Архивация_Поставки_арх_ExitFunction
В.5 Макрос восстановления
Восстановление_Телефоны_вост()Error GoTo Восстановление_Телефоны_вост_Err
DoCmd.OpenQuery "вост_телефоны", acViewNormal, acEdit
DoCmd.OpenQuery "арх_удаление_телефоны", acViewNormal, acEdit
Восстановление_Телефоны_вост_Exit:
Exit Function
Восстановление_Телефоны_вост_Err:
MsgBox Error$
Resume Восстановление_Телефоны_вост_ExitFunction
Восстановление_Клиенты_вост()Error GoTo Восстановление_Клиенты_вост_Err
DoCmd.OpenQuery "вост_клиенты", acViewNormal, acEdit
DoCmd.OpenQuery "арх_удаление_клиенты", acViewNormal, acEdit
Восстановление_Клиенты_вост_Exit:
Exit Function
Восстановление_Клиенты_вост_Err:
MsgBox Error$
Resume Восстановление_Клиенты_вост_Exit
Function
Восстановление_Продажи_вост()Error GoTo Восстановление_Продажи_вост_Err
DoCmd.OpenQuery "вост_продажи", acViewNormal, acEdit
DoCmd.OpenQuery "арх_удаление_продажи", acViewNormal, acEdit
Восстановление_Продажи_вост_Exit:
Exit Function
Восстановление_Продажи_вост_Err:
MsgBox Error$
Resume Восстановление_Продажи_вост_ExitFunction
Восстановление_Поставки_вост()Error GoTo Восстановление_Поставки_вост_Err
DoCmd.OpenQuery "вост_поставки", acViewNormal, acEdit
DoCmd.OpenQuery "арх_удаление_поставки", acViewNormal, acEdit
Восстановление_Поставки_вост_Exit:
Exit Function
Восстановление_Поставки_вост_Err:
MsgBox Error$
Resume