Создание экранной формы с элементами управления согласно тематике лабораторной работы с базой данных студенты

Цель работы:  Создать свою экранную форму с элементами управления согласно тематике лабораторной работы №1 с базой данных студенты.

Результат выполнения работы:

Рисунок 1.            Форма сортировки

Данная форма позволяет сортировать файлы БД по выбранному полю.

Рисунок 2    Форма поиска

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

Также данная форма позволяет формировать отчет.

Приме запроса для сортировки:

tmp = thisform.chose_page.page_sort.field_sort.value

do case

                  case tmp = "name_student"

                                    SELECT TABLE1.Name_student,TABLE1.Family_student,TABLE1.Otchestvo_student,;

                      TABLE1.Stependia,TABLE1.Curs,TABLE2.Name_facultet,TABLE2.Napravlenie,;

                      TABLE2.Forma;

                      FROM STUDENT!TABLE1 TABLE1 LEFT OUTER JOIN STUDENT!TABLE2 TABLE2 ON TABLE1.ID_FACULTET = TABLE2.ID_FACULTET;

                      ORDER BY TABLE1.name_student

endcase

Запрос для поиска:

find_key = thisform.chose_page.find_page

SELECT TABLE1.Name_student,TABLE1.Family_student,TABLE1.Otchestvo_student,;

    TABLE1.Stependia,TABLE1.Curs,TABLE2.Name_facultet,TABLE2.Napravlenie,;

    TABLE2.Forma;

    FROM STUDENT!TABLE1 TABLE1 LEFT OUTER JOIN STUDENT!TABLE2 TABLE2 ON TABLE1.ID_FACULTET = TABLE2.ID_FACULTET;

                  WHERE;

                                    TABLE1.Name_student = find_key.name_st.value and;

                                    TABLE1.Family_student = find_key.family_st.value and;

                                    TABLE1.Stependia >= find_key.stip_st_min.value and;

                                    TABLE1.Stependia <= find_key.stip_st_max.value and;

                                    TABLE1.Curs >= find_key.curs_st_min.value and;

                                    TABLE1.Curs <= find_key.curs_st_max.value and;

                                    TABLE2.Name_facultet = find_key.fac_st.value

Вызов отчета:

report form u:\users\a79\laba6\report\report1 preview