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

 

Private Sub очистить_форму_DblClick(Cancel As Integer)

Dim element As Control

For Each element In Me.Controls()

If element.Name <> "дата заполнения" Then

If (TypeOf element Is TextBox) Or (TypeOf element Is ComboBox) Then

element.SetFocus

element.Text = ""

ElseIf (TypeOf element Is CheckBox) Then

element.SetFocus

element.Value = False

End If

End If

Next element

End Sub

 

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

 Если поле было не заполнено, т.е. хранит пустую строку или  неопределенность, то установим  на нем фокус и прекратим  выполнение процедуры.

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

 

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

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

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

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

End Sub

 

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

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 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 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 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)

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, "