Проектирование базы данных системы принятия, обработки и учёта заявок в отдел информационных технологий; разработка инфологической и даталогической моделей, реализация физической модели. Создание приложений для визуализации работы с базой данных.
Анализ задачи 3.1 Обзор существующих систем 3.1.1 Службы поддержки (Service Desk) 3.1.1.1 Naumen Service Desk 3.1.1.2 TrackStudio Service Desk 3.1.2 Службы помощи (Help Desk) 3.1.2.1 HelpdeskAdvanced 3.1.2.2 AstroSoft HelpDesk 3.1.2.3 HEAT Power Desk 3.1.3 Системы учета заявок 3.1.3.1 Регистрация заявок LAN 3.1.3.2 Заявки ИТ 3.1.4 Вывод 3.2 Выбор инструментальных средств 3.2.1 Клиент-серверные СУБД 3.2.1.1 Microsoft SQL Server 3.2.1.2 Interbase 3.2.1.3 Firebird (FirebirdSQL) 3.2.1.4 MySQL 3.2.2 Язык программирования и среда разработки 3.2.3 Вывод 4. Решение задачи 4.1 Создание модели ИС 4.2 Проектирование базы данных 4.2.1 Инфологическая модель данных 4.2.2 Даталогическая модель данных 4.2.3 Физическая модель данных 4.2.4 Построение схемы данных 4.3 Разработка интерфейса 4.3.1 Приложение «Заявки - Пользователь» 4.3.1.1 Главное окно 4.3.1.2 Окно «Настройки» 4.3.1.3 Окно заявки 4.3.1.4 Окно «Снимок экрана» 4.3.2 Приложение «Заявки - Оператор» 4.3.2.1 Главное окно 4.3.2.2 Окно «Заявка» 4.3.2.3 Окно настроек 4.3.2.4 Окно «Снимок экрана» 4.3.3 Приложение «Заявки - Исполнитель» 4.3.3.1 Главное окно 4.3.3.2 Окно «Настройки» 4.3.3.3 Окно «Заявка» 4.3.3.4 Окно «Снимок экрана» 4.3.4 Приложение «Заявки - Настройка» 4.3.4.1 Главное окно 4.3.4.2 Окно «Инциденты» 4.3.4.3 Окно «Исполнители» 4.3.4.4 Окно «Настройка БД» 4.3.4.5 Окно «Очистка БД за период» 4.3.4.6 Окно «Очистка всей БД» 4.3.4.7 Окно «Отчеты» 5. Обратитесь к администратору за именем базы данных, MsgBoxStyle.Information, Информация) Dim result As MsgBoxResult = MsgBox(Изменить базу данных?, MsgBoxStyle.OkCancel, Информация) If result = MsgBoxResult.Ok Then Form2.Visible = True Me.Enabled = False End If End If Else MsgBox(Не правильные настройки. Настроить?, MsgBoxStyle.OkCancel, Сообщение) If result = MsgBoxResult.Ok Then Form2.Visible = True Me.Enabled = False End If End If End Sub Private Sub tbox_room_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbox_room.Click tbox_room.BackColor = Color.White End Sub Private Sub cbox_priority_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbox_priority.Click cbox_priority.BackColor = Color.White End Sub Private Sub tbox_phone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbox_phone.Click tbox_phone.BackColor = Color.White End Sub Private Sub cbox_type_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbox_type.Click cbox_type.BackColor = Color.White End Sub Private Sub tbox_ticket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbox_ticket.Click tbox_ticket.BackColor = Color.White End Sub Private Function GetDateNowString() As String Dim sd, sm, sy, sh, sn, ss As String Dim dn As Date = DateAndTime.Now If DateAndTime.Hour(dn) 1 And it_db
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
