Информационная система "Приемная комиссия Евразийского института рынка"

End Sub

Private Sub место_рождения_Exit(Cancel As Integer)

If IsNull([место рождения].Value) Or [место рождения].Text = "" Then Exit Sub

[место рождения].Text = dhProperLookup(dhTrimAll([место рождения].Text))

End Sub

Private Sub наличие_грамоты_по_Exit(Cancel As Integer)

Call gg([наличие грамоты по])

End Sub

Private Sub отец_Exit(Cancel As Integer)

If IsNull([отец].Value) Or [отец].Text = "" Then Exit Sub

[отец].Text = dhProperLookup(dhTrimAll([отец].Text))

End Sub

Private Sub отчество_Exit(Cancel As Integer)

If IsNull([отчество].Value) Or [отчество].Text = "" Then Exit Sub

[отчество].Text = dhProperLookup(dhTrimAll([отчество].Text))

End Sub

Private Sub телефон_Exit(Cancel As Integer)

If IsNull([телефон].Value) Or [телефон].Text = "" Then Exit Sub

[телефон].Text = dhProperLookup(dhTrimAll([телефон].Text))

End Sub

Private Sub участие_в_спорте_по_Exit(Cancel As Integer)

Call gg([участие в спорте по])

End Sub

Private Sub художественная_самодеят_Exit(Cancel As Integer)

Call gg([художественная самодеят])

End Sub

Д) Форма «коррекция заявление абитуриента»

Дадим описание процедур обработки событий на форме:

Процедура обработки события обновления в поле со списком «f» - объявляется переменная s4 строкового типа внутренняя для процедуры. На текущей форме очищается выбор в поле со списком «n», присвоив последнему значение пустой строки. Сконструируем команду SQL в виде строки в переменной s4. Из таблицы «заявление анкета» выполняется выборка по полю имя, при условии, что значения по полю фамилия совпадает с выполненным выбором в данном элементе управления т.е. f; при этом дополнительно выборка группируется по полю имя. Для данной, реально существующей фамилии абитуриента формируется набор имен, соответствующих данной фамилии. Для элемента управления поле со списком «n» выполняется программная настройка, этому элементу присваивается источник строк из набора данных возвращаемых SQL командой, хранящиеся в переменной s4 и выполняется обновления этого элемента управления. Теперь он отображает отфильтрованные имена соответствующие данной фамилии.

Private Sub f_AfterUpdate()

Dim s4 As String

Me!n.Value = ""

s4 = "SELECT [заявление анкета].имя FROM [заявление анкета] WHERE ((([заявление анкета].фамилия) = '" & f.Text & "')) GROUP BY [заявление анкета].имя;"

Me!n.RowSource = s4

Me!n.Requery

End Sub

Процедура обработки щелчка на кнопку «m» - если не был выполнен выбор фамилии или имени, то выходим из процедуры без обработки. Если выбор был произведен, то определим глобальные переменные s2 и s3 присвоением выбранной фамилии и имени. Открывается «дочерняя» форма и закрывается текущая форма

«коррекция заявление абитуриента».

Private Sub m_Click()

If Me!f.Value = "" Or Me!n.Value = "" Then Exit Sub

s2 = Me!f.Value

s3 = Me!n.Value

DoCmd.OpenForm "дочерняя"

DoCmd.Close acForm, "коррекция заявление абитуриента"

End Sub

Процедура закрытия формы - открывает главную форму и закрывает текущую форму.

Private Sub Ctlзакрыть_форму_Click()

DoCmd.OpenForm "Главная форма"

DoCmd.Close acForm, "коррекция заявление абитуриента"

End Sub

Е) Форма «дочерняя»

Дадим описание процедур обработки событий на форме:

Объявляется вспомогательная переменная s1 строкового типа на уровне формы.

Dim s1 As String

Конструируется SQL команда, выполняющая запрос на выборку к таблице «заявление анкета», для заполнения всех присутствующих полей на форме при выполнении ограничения по полям фамилия и имя. В исходной таблице изымаются записи, для которых фамилия равна значению в переменной s2, а имя равна значению в переменной s3. Данные переменные были определены при выборе в родительских формах значений фамилии и имени абитуриента. Результирующий набор данных, возвращаемый SQL командой, хранящейся в переменной s1, присваивается как источник строк текущей форме. После чего выполняется обновление формы, при этом выполняется увязка возвращаемых значений в наборе данных по именам полей набора данных с соответствующими именами полей на форме.

Private Sub Form_Load()

s1 = "SELECT [заявление анкета].[дата заполнения],[заявление анкета].фамилия, [заявление анкета].имя, [заявление анкета].отчество, [заявление анкета].[место обучения], [заявление анкета].[форма обучения], [заявление анкета].специальность, [заявление анкета].[дата рождения], [заявление анкета].[место рождения], [заявление анкета].национальность, [заявление анкета].[язык обучения], [заявление анкета].[год окончан учебн завед], [заявление анкета].[какое учеб завед окончил], [заявление анкета].[в какой ВУЗ сдав док], [заявление анкета].[кол набран баллов ент(КТ)],"

s1 = s1 & "[заявление анкета].[балл (математика)], [заявление анкета].[балл (физика)],"

s1 = s1 & "[заявление анкета].[иносранный язык], [заявление анкета].мать, [заявление анкета].отец, [заявление анкета].[кол братьев и сестер], [заявление анкета].[братья и сестры], [заявление анкета].[домашний адрес], [заявление анкета].телефон, [заявление анкета].[наличие грамоты по], [заявление анкета].[диплом олимпиады по], [заявление анкета].[художественная самодеят], [заявление анкета].[участие в спорте по], [заявление анкета].f1,"

s1 = s1 & "[заявление анкета].f2, [заявление анкета].g1, [заявление анкета].g2, "

s1 = s1 & " [заявление анкета].g3, [заявление анкета].g4, [заявление анкета].g5, [заявление анкета].g6, [заявление анкета].g7, [заявление анкета].g8, [заявление анкета].g9, [заявление анкета].g10, [заявление анкета].g11, [заявление анкета].g12, [заявление анкета].g13"

s1 = s1 & " FROM [заявление анкета] WHERE ((([заявление анкета].фамилия)='" & s2 & "') AND (([заявление анкета].имя)='" & s3 & "'));"

Me.RecordSource = s1

Me.Requery

End Sub

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

Private Sub Закрыть_форму_Click()

DoCmd.RunCommand acCmdSaveRecord

DoCmd.OpenReport "Отчет заявление абитуриента", acNormal, "", ""

DoCmd.Close acReport, "Отчет заявление абитуриента"

On Error GoTo Err_Ctlзакрыть_форму_Click

DoCmd.OpenForm "Главная форма"

DoCmd.Close acForm, "дочерняя"

Exit_Ctlзакрыть_форму_Click:

Exit Sub

Err_Ctlзакрыть_форму_Click:

MsgBox Err.Description

Resume Exit_Ctlзакрыть_форму_Click

End Sub

Выполняется аналогичная обработка событий выхода из текстовых полей, что и на форме «заявление анкета».

Private Sub Ctlв_какой_ВУЗ_сдав_док_Exit(Cancel As Integer)

If IsNull([в какой ВУЗ сдав док].Value) Or [в какой ВУЗ сдав док].Text = "" Then Exit Sub

[в какой ВУЗ сдав док].Text = dhProperLookup(dhTrimAll([в какой ВУЗ сдав док].Text))

End Sub

Private Sub братья_и_сестры_Exit(Cancel As Integer)

If IsNull([братья и сестры].Value) Or [братья и сестры].Text = "" Then Exit Sub

[братья и сестры].Text = dhProperLookup(dhTrimAll([братья и сестры].Text))

End Sub

Private Sub диплом_олимпиады_по_Exit(Cancel As Integer)

Call gg([диплом олимпиады по])

End Sub

Private Sub домашний_адрес_Exit(Cancel As Integer)

If IsNull([домашний адрес].Value) Or [домашний адрес].Text = "" Then Exit Sub

[домашний адрес].Text = dhProperLookup(dhTrimAll([домашний адрес].Text))

End Sub

Private Sub имя_Exit(Cancel As Integer)

If IsNull([имя].Value) Or [имя].Text = "" Then [имя].SetFocus: Exit Sub

[имя].Text = dhProperLookup(dhTrimAll([имя].Text))

s3 = [имя].Text

End Sub

Private Sub какое_учеб_завед_окончил_Exit(Cancel As Integer)

If IsNull([какое учеб завед окончил].Value) Or [какое учеб завед окончил].Text = "" Then Exit Sub

[какое учеб завед окончил].Text = dhProperLookup(dhTrimAll([какое учеб завед окончил].Text))

End Sub

Private Sub мать_Exit(Cancel As Integer)

If IsNull([мать].Value) Or [мать].Text = "" Then Exit Sub

[мать].Text = dhProperLookup(dhTrimAll([мать].Text))

End Sub

Private Sub место_рождения_Exit(Cancel As Integer)

If IsNull([место рождения].Value) Or [место рождения].Text = "" Then Exit Sub

[место рождения].Text = dhProperLookup(dhTrimAll([место рождения].Text))

End Sub

Private Sub наличие_грамоты_по_Exit(Cancel As Integer)

Call gg([наличие грамоты по])

End Sub

Private Sub отец_Exit(Cancel As Integer)

If IsNull([отец].Value) Or [отец].Text = "" Then Exit Sub

[отец].Text = dhProperLookup(dhTrimAll([отец].Text))

End Sub

Private Sub отчество_Exit(Cancel As Integer)

If IsNull([отчество].Value) Or [отчество].Text = "" Then Exit Sub

[отчество].Text = dhProperLookup(dhTrimAll([отчество].Text))

End Sub

Private Sub телефон_Exit(Cancel As Integer)

If IsNull([телефон].Value) Or [телефон].Text = "" Then Exit Sub

[телефон].Text = dhProperLookup(dhTrimAll([телефон].Text))

End Sub

Private Sub участие_в_спорте_по_Exit(Cancel As Integer)

Call gg([участие в спорте по])

End Sub

Private Sub фамилия_Exit(Cancel As Integer)

If IsNull([фамилия].Value) Or [фамилия].Text = "" Then [фамилия].SetFocus: Exit Sub

[фамилия].Text = dhProperLookup(dhTrimAll([фамилия].Text))

s2 = [фамилия].Text

End Sub

Private Sub gg(tt As TextBox)

tt.SetFocus

If IsNull(tt.Value) Or tt.Text = "" Then Exit Sub

tt.Text = dhProperLookup(dhTrimAll(tt.Text))

End Sub

Private Sub художественная_самодеят_Exit(Cancel As Integer)

Call gg([художественная самодеят])

End Sub

И) Отчет «Отчет заявление абитуриента»

Дадим описание процедур обработки событий на отчете:

Объявляется вспомогательная переменная s5 строкового типа на уровне отчета.

Dim s5 As String

Конструируется SQL команда, выполняющая запрос на выборку к таблице «заявление анкета», для заполнения всех присутствующих полей на отчете при выполнении ограничения по полям фамилия и имя. В исходной таблице изымаются записи, для которых фамилия равна значению в переменной s2, а имя равна значению в переменной s3. Данные переменные были определены при выборе в родительских формах значений фамилии и имени абитуриента. Результирующий набор данных, возвращаемый SQL командой, хранящейся в переменной s5, присваивается как источник строк текущему отчету. После чего выполняется обновление отчета, при этом выполняется увязка возвращаемых значений в наборе данных по именам полей набора данных с соответствующими именами полей на отчете.

Private Sub Report_Open(Cancel As Integer)

s5 = "SELECT [заявление анкета].[дата заполнения],[заявление анкета].фамилия, [заявление анкета].имя, [заявление анкета].отчество, [заявление анкета].[место обучения], [заявление анкета].[форма обучения], [заявление анкета].специальность, [заявление анкета].[дата рождения], [заявление анкета].[место рождения], [заявление анкета].национальность, [заявление анкета].[язык обучения], [заявление анкета].[год окончан учебн завед], [заявление анкета].[какое учеб завед окончил], [заявление анкета].[в какой ВУЗ сдав док], [заявление анкета].[кол набран баллов ент(КТ)],"

s5 = s5 & "[заявление анкета].[балл (математика)],[заявление анкета].[балл (физика)], "

s5 = s5 & "[заявление анкета].[иносранный язык], [заявление анкета].мать, [заявление анкета].отец, [заявление анкета].[кол братьев и сестер], [заявление анкета].[братья и сестры], [заявление анкета].[домашний адрес], [заявление анкета].телефон, [заявление анкета].[наличие грамоты по], [заявление анкета].[диплом олимпиады по], [заявление анкета].[художественная самодеят], [заявление анкета].[участие в спорте по], [заявление анкета].f1,"

s5 = s5 & "[заявление анкета].f2, [заявление анкета].g1, [заявление анкета].g2, "

s5 = s5 & " [заявление анкета].g3, [заявление анкета].g4, [заявление анкета].g5, [заявление анкета].g6, [заявление анкета].g7, [заявление анкета].g8, [заявление анкета].g9, [заявление анкета].g10, [заявление анкета].g11, [заявление анкета].g12, [заявление анкета].g13"

s5 = s5 & " FROM [заявление анкета] WHERE ((([заявление анкета].фамилия)='" & s2 & "') AND (([заявление анкета].имя)='" & s3 & "'));"

Me.RecordSource = s5

End Sub

Глава 3. Применение информационной системы - приемная комиссия Евразийского Института рынка и колледжа при институте

3.1 Порядок работы

При запуске приложения открывается главная форма, где можно произвести выбор режима работы:

1) Заполнить заявление абитуриента2) Выполнить коррекцию ранее заполненного заявление абитуриента3) Закрыть форму и завершить приложения

При выборе первого режима работы откроется форма заявление анкета, где можно внести персональные данные абитуриента, пример заполнения формы приведен ниже -

Рассмотрим подробнее данную форму: Форма содержит текстовые поля, комбинированные поля со списком и элементы управления - флажки, при чем в комбинированных полях производиться выбор одного из фиксированных значении элементов списка. Форма содержит три командных кнопки: первая кнопка «добавить запись» запускает процедуру вставки в таблицу «заявление анкета» внесенные персональные данные текущей записи, вторая кнопка «очистить форму» запускает процедуру очистки элементов управления на форме, третья кнопка «закрыть форму» запускает процедуру, закрывающую данную форму и возвращающую нас к главной форме. При заполнении полей формы фамилия и имя, набранные значения становятся критериями для формирования отчета «Отчет заявление абитуриента» -

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

При выборе второго режима откроется форма «коррекция заявление абитуриента» -



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

После открытия формы «дочерняя» становятся доступными ранее внесенные персональные данные абитуриента для корректировки -

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



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

При выборе третьего режима работы выполняется процесс завершения приложения, т.е. закрывается главная форма и производится выход из Access.

3.2 Зачисление в студенты

С помощью формы «зачисление в студенты» дополняется информация в исходную таблицу «заявление анкета». Устанавливаются значения полей «зачислен в студенты», «номер приказа» и «дата зачисления». Данные поля заполняется для записей соответствующим зачисленным студентам, при чем на форме отображаются эти поля для корректировки, а дополнительные поля «фамилия», «имя», «отчество», «место обучения», «форма обучения», «специальность» и «язык обучения» отображается но не доступны для изменения. Процесс зачисления выполняется щелчком по флажку «зачислен в студенты», внесением номера приказа и даты зачисления в студенты.

3.3 Формирования итогов по работе приемной комиссии

а) Создадим студенческие группы: по месту обучения институт или колледж, по форме обучения дневная или заочная форма, по специальности обучения, и по языку обучения (русский или казахский) с помощью SQL команды:SELECT [заявление анкета].[место обучения], [заявление анкета].[форма обучения], специальности.специальность, [заявление анкета].[язык обучения], [заявление анкета].фамилия, [заявление анкета].имя, [заявление анкета].отчество INTO [студенческие группы]FROM специальности INNER JOIN [заявление анкета] ON специальности.шифр = [заявление анкета].специальностьWHERE ((([заявление анкета].[зачислен в студенты])=True))ORDER BY [заявление анкета].[место обучения], [заявление анкета].[форма обучения], специальности.специальность, [заявление анкета].[язык обучения];Приведем пример созданной таблицы студенческих групп:

место обучения	форма обучения	специальность	язык обучения	фамилия	имя	отчество
Институт	очного	Информационные системы - ВУЗ	русский	Самарина	Снежана	Владимировна
Институт	очного	Информационные системы - ВУЗ	русский	Хен	Ольга	Геннадьевна
Институт	очного	Учет и аудит - ВУЗ	русский	Мамедова	Наргиля	Гасановна
Институт	очного	Финансы (Банковское дело, Налоговое дело, Таможенное дело) - ВУЗ	русский	Барзу	Баян	Рахымжановна

б) Определим количество учащихся в каждой группе обучения с помощью SQL команды:SELECT [заявление анкета].[место обучения], [заявление анкета].[форма обучения], специальности.специальность, [заявление анкета].[язык обучения], Count([заявление анкета].фамилия) AS [Count-фамилия] INTO [студенческие группы]FROM специальности INNER JOIN [заявление анкета] ON специальности.шифр = [заявление анкета].специальностьGROUP BY [заявление анкета].[место обучения], [заявление анкета].[форма обучения], специальности.специальность, [заявление анкета].[язык обучения], [заявление анкета].[зачислен в студенты]HAVING ((([заявление анкета].[зачислен в студенты])=True))ORDER BY [заявление анкета].[место обучения], [заявление анкета].[форма обучения], специальности.специальность, [заявление анкета].[язык обучения];Пример использования этой команды:

в) исследование национального представительства учащихся в институте и в колледже: выполним SQL команду - SELECT [заявление анкета].[место обучения], [заявление анкета].национальность, Count([заявление анкета].фамилия) AS [Count-фамилия]FROM [заявление анкета]WHERE ((([заявление анкета].[зачислен в студенты])=True))GROUP BY [заявление анкета].[место обучения], [заявление анкета].национальность;Будет получена таблица аналогичная представленной ниже:

место обучения	форма обучения	специальность	язык обучения	количество студентов
Институт	очного	Информационные системы - ВУЗ	русский	2
Институт	очного	Учет и аудит - ВУЗ	русский	1
Институт	очного	Финансы (Банковское дело, Налоговое дело, Таможенное дело) - ВУЗ	русский	1

место обучения	национальность	количество студентов
Институт	азербайжанская	1
Институт	казахская	1
Институт	корейская	1
Институт	русская	1

г) определим уровень подготовки абитуриентов по сданным балам ЕНТ(КТ), с помощью SQL команд:

Первая группа с наименьшим балам ЕНТ (50 до 64) -

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия]

FROM [заявление анкета]

WHERE ((([заявление анкета].[кол набран баллов ент(КТ)])<=64 And ([заявление анкета].[кол набран баллов ент(КТ)])>=50) AND (([заявление анкета].[зачислен в студенты])=True));

Пример, в тестовой отладке -

Вторая группа с балами (от 65 до 74) -

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия]

FROM [заявление анкета]

WHERE ((([заявление анкета].[кол набран баллов ент(КТ)])<=74 And ([заявление анкета].[кол набран баллов ент(КТ)])>=65) AND (([заявление анкета].[зачислен в студенты])=True));

Третья группа с балами (от 75 до 84) -

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия]

FROM [заявление анкета]

WHERE ((([заявление анкета].[кол набран баллов ент(КТ)])<=84 And ([заявление анкета].[кол набран баллов ент(КТ)])>=75) AND (([заявление анкета].[зачислен в студенты])=True));

Четвертая группа свыше 85 баллов -

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия]

FROM [заявление анкета]

WHERE ((([заявление анкета].[кол набран баллов ент(КТ)])<=120 And ([заявление анкета].[кол набран баллов ент(КТ)])>=85) AND (([заявление анкета].[зачислен в студенты])=True));

д) Анализ рекламной компании ВУЗа по работе с абитуриентами:

определим количество абитуриентов привлеченных в ВУЗ следующей группой факторов -

1)) «Евразир закончили ранее родственики и знакомые», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].f1

FROM [заявление анкета]

WHERE ((([заявление анкета].f1)=True))

GROUP BY [заявление анкета].f1;

Пример, в тестовой отладке -

количество абитуриентов	Евразир закончили ранее родственики и знакомые
1	Да

2)) «В Евразире работают родственики и знакомые», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].f2

FROM [заявление анкета]

WHERE ((([заявление анкета].f2)=True))

GROUP BY [заявление анкета].f2;

3)) «Я пришел в Евразир по объявлению в газете - Караване», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g1

FROM [заявление анкета]

WHERE ((([заявление анкета].g1)=True))

GROUP BY [заявление анкета].g1;

4)) «Я пришел в Евразир по объявлению в газете - Алматы акшамы», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g2

FROM [заявление анкета]

WHERE ((([заявление анкета].g2)=True))

GROUP BY [заявление анкета].g2;

5)) «Я пришел в Евразир по объявлению в газете - Экономе», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g3

FROM [заявление анкета]

WHERE ((([заявление анкета].g3)=True))

GROUP BY [заявление анкета].g3;

6)) «Я пришел в Евразир по объявлению в газете - Абитурент», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g4

FROM [заявление анкета]

WHERE ((([заявление анкета].g4)=True))

GROUP BY [заявление анкета].g4;

7)) «Я пришел в Евразир по объявлению в справочнике - наш город», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g5

FROM [заявление анкета]

WHERE ((([заявление анкета].g5)=True))

GROUP BY [заявление анкета].g5;

8)) «Я пришел в Евразир по рекламе щитов в городе», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g6

FROM [заявление анкета]

WHERE ((([заявление анкета].g6)=True))

GROUP BY [заявление анкета].g6;

9)) «Я пришел в Евразир по рекламе на ТАНе», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g7

FROM [заявление анкета]

WHERE ((([заявление анкета].g7)=True))

GROUP BY [заявление анкета].g7;

10)) «Я пришел в Евразир по буклету», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g8

FROM [заявление анкета]

WHERE ((([заявление анкета].g8)=True))

GROUP BY [заявление анкета].g8;

11)) «Я пришел в Евразир по объявлению в справочнике Абитурент», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g9

FROM [заявление анкета]

WHERE ((([заявление анкета].g9)=True))

GROUP BY [заявление анкета].g9;

12)) «Я пришел в Евразир после посещение моей школы», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g10

FROM [заявление анкета]

WHERE ((([заявление анкета].g10)=True))

GROUP BY [заявление анкета].g10;

13)) «Я пришел в Евразир после Выставки - Образование», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g11

FROM [заявление анкета]

WHERE ((([заявление анкета].g11)=True))

GROUP BY [заявление анкета].g11;

14)) «Я пришел в Евразир по совету знакомых», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g12

FROM [заявление анкета]

WHERE ((([заявление анкета].g12)=True))

GROUP BY [заявление анкета].g12;

15)) «Мне советовали родители поступать в Евразир», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия], [заявление анкета].g13

FROM [заявление анкета]

WHERE ((([заявление анкета].g13)=True))

GROUP BY [заявление анкета].g13;

Также, можно анализировать совместное влияние различных факторов рекламной деятельности ВУЗа. Например, совместное действие двух факторов: «Я пришел в Евразир по рекламе на ТАНе» и «Я пришел в Евразир по объявлению в газете - Экономе», определяется выполнением SQL команды:

SELECT Count([заявление анкета].фамилия) AS [Count-фамилия]

FROM [заявление анкета]

WHERE ((([заявление анкета].g3)=True) AND (([заявление анкета].g7)=True));

е) Доступны и другие виды анализа совместного влияния факторов рекламной деятельности ВУЗа. В частности, при наличии заполненной базы данных анкет абитуриентов можно провести исследование в системе Statistica методом «Главных компонент» существенных и не существенных факторов рекламной компании ВУЗа.

и) Исследуя таблицу «заявление анкета» по полям «дата заполнения», «кол братьев и сестер» и «кол набран баллов ент(КТ)» администрация ВУЗа может предоставить льготы при приеме на обучение.

Например, если заявление абитуриента подано до 1 июня, то предоставим 15 % скидки в обучении - выполним SQL команду:

SELECT [заявление анкета].[дата заполнения], [заявление анкета].фамилия, [заявление анкета].имя, [заявление анкета].отчество, [заявление анкета].[место обучения], [заявление анкета].[форма обучения], [заявление анкета].специальность

FROM [заявление анкета]

WHERE ((([заявление анкета].[дата заполнения])<#6/1/2006#));

В тестовом примере будет выдан результат:

дата заполнения	фамилия	имя	отчество	место обучения	форма обучения	специальность
17-май-06	Хен	Ольга	Геннадьевна	Институт	очного	050703
17-май-06	Мамедова	Наргиля	Гасановна	Институт	очного	050508
17-май-06	Самарина	Снежана	Владимировна	Институт	очного	050703
17-май-06	Барзу	Баян	Рахымжановна	Институт	очного	050509

Если набраны высокие балы ЕНТ (КТ), свыше 85 баллов, также, предоставим 15 % скидки в обучении - выполним SQL команду:

SELECT [заявление анкета].фамилия, [заявление анкета].имя, [заявление анкета].отчество, [заявление анкета].[место обучения], [заявление анкета].[форма обучения], [заявление анкета].специальность, [заявление анкета].[кол набран баллов ент(КТ)]

FROM [заявление анкета]

WHERE ((([заявление анкета].[кол набран баллов ент(КТ)])>=85));

Заключение

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

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

Работа состоит из следующих частей.

Глава 1. Основные понятия технологии проектирования информационных систем.

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

...