Разработка и внедрение автоматизированной системы планирования HelpDesk для предприятия с развитой инфраструктурой

"<p> " & comment & "</p>" & _

"<p> </p> " & _

"<p> Просьба ответить на e-mail после выполенения задания и/или в случае задержки выполнения с объяснением ситуации. </p> " & _

"<p> C уважением, " & NameDisp & " </p> "

SendMail email, "Задание " & Str(c), strBody, ""

' MsgBox strBody

' MsgBox "E-mail Отправлен"

End Sub

Листинг программы П1.3 Поиск по базе данных

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

Dim SQL As String

Dim cod, Task, Orderer, Executor, Executor1 As Integer

Dim Date1, Date2, Date3, Date4, Date5, Date6, Date7 As Date

Dim Flag As Boolean

Dim check As Boolean

cod = Forms![Поиск]!Code

Date1 = Forms![Поиск]!Date1.Value

Date2 = Forms![Поиск]!Date2.Value

Date3 = Forms![Поиск]!Date3.Value

Date4 = Forms![Поиск]!Date4.Value

Date5 = Forms![Поиск]!Date5.Value

Date6 = Forms![Поиск]!Date6.Value

check = Forms![Поиск]!check.Value

room1 = Forms![Поиск]!Room.Value

fl2 = Forms![Поиск]!flag2.Value

pr = Forms![Поиск]!Prior.Value

qu = Forms![Поиск]!Qual.Value

Task = Forms![Поиск]!Task.Value

Orderer = Forms![Поиск]!Orderer.Value

Executor = Forms![Поиск]!Executor.Value

Dep = Forms![Поиск]!Depart.Value

' DoCmd.Close acForm, "Поиск", acSaveNo

If Not Открыта_форма("задачи(таблица)") Then

DoCmd.OpenForm "задачи(таблица)", acFormDS

End If

SelectSQL = "SELECT DISTINCT * FROM Общий1"

If Not IsNull(cod) Or Not IsNull(Date1) Or Not IsNull(Date2) Or Not IsNull(Date3) _

Or Not IsNull(Date4) Or Not IsNull(Date5) Or Not IsNull(Date6) Or _

Not IsNull(Task) Or Not IsNull(Executor) Or Not IsNull(Orderer) Or check _

Or fl2 Or Not IsNull(pr) Or Not IsNull(qu) Or Not IsNull(Room) Then _

WHERESQL = " WHERE "

Flag = False

If Not IsNull(cod) Then

WHERESQL = WHERESQL & "(задание.код_задания = " & Str(cod) & ")"

Flag = True

End If

If Not IsNull(Date1) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

If Not IsNull(Date1) And Not IsNull(Date2) Then

WHERESQL = WHERESQL & "(Задание.Дата_время Between #" & Format(Date1, "mm\/dd\/yy hh\:mm\:ss") & "# AND #" & Format(Date2, "mm\/dd\/yy hh\:mm\:ss") & "#)"

Else

WHERESQL = WHERESQL & "(Задание.Дата_время >= #" & Format(Date1, "mm\/dd\/yy") & "#)"

End If

Flag = True

End If

If Not IsNull(Date3) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

If Not IsNull(Date3) And Not IsNull(Date4) Then

WHERESQL = WHERESQL & "(Задание.Срок_исполнения Between #" & Format(Date3, "mm\/dd\/yy hh\:mm\:ss") & "# AND #" & Format(Date4, "mm\/dd\/yy hh\:mm\:ss") & "#)"

Else

WHERESQL = WHERESQL & "(Задание.Срок_исполнения >= #" & Format(Date3, "mm\/dd\/yy hh\:mm\:ss") & "#)"

End If

Flag = True

End If

If Not IsNull(Date5) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

If Not IsNull(Date5) And Not IsNull(Date6) Then

WHERESQL = WHERESQL & "(Задание_исполнитель.Дата_закрытия Between #" & Format(Date5, "mm\/dd\/yy hh\:mm\:ss") & "# AND #" & Format(Date6, "mm\/dd\/yy hh\:mm\:ss") & "#)"

Else

WHERESQL = WHERESQL & "(Задание_исполнитель.Дата_закрытия >= #" & Format(Date5, "mm\/dd\/yy hh\:mm\:ss") & "#)"

Flag = True

End If

End If

If Not IsNull(Task) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Задание.код_задачи = " & Str(Task) & " )"

Flag = True

End If

If Not IsNull(Orderer) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Задание.код_заказчика = " & Str(Orderer) & " )"

Flag = True

End If

If Not IsNull(Executor) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Задание_исполнитель.код_исполнителя = " & Str(Executor) & " )"

Flag = True

ElseIf Not IsNull(Dep) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Код_отдела = " & Str(Dep) & " )"

Flag = True

End If

If check Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Задание_исполнитель.дата_закрытия is null )"

Flag = True

End If

If fl2 Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( Задание.дополнительная = true )"

Flag = True

End If

If Not IsNull(pr) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( приоритет = """ & pr & """ )"

Flag = True

End If

If Not IsNull(room1) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( кабинет = """ & room1 & """ )"

Flag = True

End If

If Not IsNull(qu) Then

If Flag Then

WHERESQL = WHERESQL & " AND "

End If

WHERESQL = WHERESQL & "( качество = """ & qu & """ )"

Flag = True

End If

End If

SQL = SelectSQL & WHERESQL

' MsgBox SQL

Forms![Задачи(таблица)].Form.RecordSource = SQL

End Sub

ПРИЛОЖЕНИЕ 2

Экранные формы

Рисунок П2.1 Главная форма создание новой задачи

Рисунок П2.2 Справочник задач



Рисунок П2.3 справочник исполнителей

Рисунок П2.4 справочник заказчиков



Рисунок П2.5 справочник задач

Рисунок П2.6 Справочник кабинетов заказчиков



Рисунок П2.7 Справочник подразделений

Рисунок П2.8 Справочник департаментов



Рисунок П2.9 Справочник диспетчеров

Рисунок П2.10 выбор диспетчера

Рисунок П2.11 Поиск



Рисунок П2.12 форма для создания отчета по выбранному исполнителю

Рисунок П2.13 форма для создания отчета по качеству и приоритету

ПРИЛОЖЕНИЕ 3

формы выходных документов

Рисунок П3.1 отчет по исполнителям

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