Файл: Обзор языков программирования высокого уровня..pdf

If objGen.ObjectName = "AcDbBlockReference" Then 'Проверка, отобранный массив блок или нет

Select Case objGen.Name 'Сверка, какой объект отобран

Case 1

If MsgBox("Выбрана Библиотека" & vbCr & "Показать информацию об этом помещении?", _

vbOKCancel, "Выбрано помещение") = vbOK Then 'Выдаем сообщение и запрос на вывод информации

ShowInf = True 'Показать информацию

End If

ID = 1 'Устанавливаем номер выбранного помещения

Case 2

If MsgBox("Выбран Деканат" & vbCr & "Показать информацию об этом помещении?", _

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

ShowInf = True

End If

ID = 2

Case 3

If MsgBox("Выбрана Кафедра" & vbCr & "Показать информацию об этом помещении?", _

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

При запуске кнопки «Информация о специалисте» активируется таблица с данными о каждом специалисте.

В случае формирования этого массива информации отправляется запрос в построенную базу данных, при этом ведется сбор сведений по всем табличным формам, выполняются также сверки с корректностью сведений в табличных формах.

Rem Фамилия

If rec!Family <> "" Then

.TextBox1.Text = rec!Family

.Caption = .Caption & rec!Family

Else TextBox1.Text = ""

End If

Инструменты ComboBox пополняются сведениями из всех табличных форм, в качестве примера приведем список кафедр университета:

Rem Составляем список кафедр

DopRec.Open ("Select * from tblDepartament") 'Получаем все кафедры

For i = 0 To DopRec.RecordCount - 1 'Проходим по всем записям

.ComboBox1.AddItem (DopRec!Departament) 'Добавляем запись в ComboBox1

DopRec.MoveNext 'Переходим к следующей записи

Next i

Rem Выбор Кафедры

If (Not rec!DepartamentID = 0) Then 'Если в поле кафедры есть значение

.ComboBox1.ListIndex = rec!DepartamentID - 1 'Выбираем его номер в списке

Else 'Иначе

.ComboBox1.ListIndex = -1 'Ничего не выбираем

End If

DopRec.Close

Из данной табличной формы становится доступным вспомогательное окно, содержащее сведения о состоянии трудовой книжки специалистов. Данные сведения приобретаются при помощи запросов к базе данных.

Из табличного массива с данными о специалисте необходимо осуществлять переход к начальному массиву, активировав необходимую кнопку. Здесь также появляется возможность смотреть пометки базы данных, редактировать, вносить новые сведения о работнике и удаления пометок.

ЗАКЛЮЧЕНИЕ

Целью проведенного исследования явился обзор применяемых в практике ведения учебного процесса программных продуктов на базе Университета «Университет».

Выбранная тема представляет интерес для специалистов, ведущих свою деятельность в поле высоких технологий, поскольку в последнее время имеет место увеличение роли применения компьютерной техники во всех сферах общественной жизни, а особенно в системе высшего образования, так как данный институт общества является определяющим для развития каждой личности и введение технических новшеств обеспечит большую эффективность образовательного процесса и, следовательно, развитие государства на мировой арене.

В Российской Федерации развитие компьютерной модели общества осуществляется высокими темпами, что дает возможность интегрироваться в мировую модель высшего образования, основанного на использовании передовых технологий.

В результате аналитической работы проанализированы особенности применения компьютерных технологий, основные модели программного обеспечения в Университете «Университет», а именно рассмотрены:

- модель системы, ее компоненты, взаимодействие между технической составляющей и прикладными программными продуктами;

- сравнительная характеристика различных языков программирования с целью определения перспектив их использования в конкретном университете;

- разработана собственная база данных как объект инновационного подхода для повышения эффективности деятельности учреждения.

В заключении можно сказать, что внедрение программных продуктов и высоких технологий в обществе приобретает все большую популярность.