Курсовая работа: Разработка прикладного программного обеспечения отдела кадров университета

vbOKCancel, "Выбрано помещение") = vbOK Then

ShowInf = True

End If

ID = 3

End Select

Далее, если пользователь нажимает "Да", то появляется окно с информацией о работниках данного помещения:

При этом происходит соединение с базой данных и посылается запрос на работников, работающих в данном помещении. Список работников выводится в ListBox. Текст запроса и вывода:

Public record As ADODB.Recordset 'Переменная запроса к базе данных

…

Set record = New ADODB.Recordset 'Создаем переменную запроса к базе

…

With record

'Создаём запрос в базу

.Source = "Select tblWorker.PersonID, tblWorker.Family, tblWorker.FirstName, tblWorker.SecondName, " & _

"tblWorkPlace.Place From tblWorker, tblWorkPlace where tblWorker.WorkPlace=tblWorkPlace.WorkPlace and " & _

"tblWorker.WorkPlace=" & ID & " order by Family, FirstName, SecondName"

'Открываем его

.Open

CountQuery = .RecordCount 'Считаем кол-во записей в запросе

End With

FlatInf.ListBox1.Clear

FlatInf.TextBox1.Text = record!Place 'Устанавливаем место работы сотрудника

FlatInf.Label3.Caption = "Всего: " & CountQuery & " " & Operations.intToStroka(CountQuery) 'Устанавливаем в Label3 кол-во работников, попавших в запрос

For i = 0 To CountQuery - 1 'Перебираем все записи

FlatInf.ListBox1.AddItem (record!Family & " " & record!FirstName & " " & record!SecondName) 'Добавляем в список Фамилию, имя и отчество работника record.MoveNext 'Переходим к следующей записи

Next i

При нажатии на кнопку "Показать информацию о работнике" вызывается форма, в которой содержится вся информация о данном работнике.