Базы данных и знаний. Мартьянова А.Е. - 153 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

Составители: 

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 153
Т
Объект Свойс Значение
аблица II.29. Таблица свойств формы frmzPlanStudingGroup
тво
Форма Name
Caption
frmzPlanStudingGroup
ан проведения занятий в
ппе
Пл
гру
Элемент CommandButton Name
Caption Ввести в предложение
WHERE обозначение
группы и номер семестра,
выполнить запрос
cmdInq
Элемент CommandButton Name
Caption
cmdCreate
Создать текстовый файл и
отобразить его текст
Элемент CommandButton Name
Caption
dClose
&Close
cm
Элемент TextBox Name
MultiLine
Text
txtInq
True
. запрос под табл. II.29
см
Элемент TextBox Name
MultiLine
ScrollBars
txtReport
True
3 – Both
Элемент Data Name Data17
Установите для элемента управления TextBox с именем txtInq
свойство MultiLine в позицию True, в свойства Text введите текст сле-
дующ
его запроса:
SELECT DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,
TEACHER.Name, TEACHER.Patronymic, TEACHER.TabularedNumber,
STUDYING.Hours, STUDYING.NumberOfSemester, STUDYING.Ki
ndOfStudying
FROM
1' And STUDYING.NumberOfSemester =1
GROU
NG.NumberOfSemester, STUDYING.KindOfStudying
scipline As String * 25
Dim N eGroup As String * 20
ADVANCED, DISCIPLINE, GROUP_, STUDENT, STUDYING, TEACHER
WHERE ADVANCED.CodeStudent=STUDENT.CodeStudent And
GROUP_.CodeGroup=STUDENT.CodeGroup And
DISCIPLINE.CodeDiscipline=STUDYING.CodeDiscipline And
STUDYING.CodeTeacher=TEACHER.CodeTeacher And
ADVANCED.CodeStudying=STUDYING.CodeStudying And GROUP_.NameGroup =
'DFD-3
P BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,
TEACHER.Name, TEACHER.Patronymic, TEACHER.TabularedNumber,
STUDYING.Hours, STUDYI
ORDE
R BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname;
В окно кода формы frmzPlanStudingGroup введите следующий
текст:
Dim Na eDim
am
   Мартьянова А.Е. Базы данных и знаний                                    153


                    Таблица II.29. Таблица свойств формы frmzPlanStudingGroup

           Объект                     Свойство                 Значение
 Форма                      Name                     frmzPlanStudingGroup
                            Caption                  План проведения занятий в
                                                     группе
 Элемент CommandButton      Name                     cmdInq
                            Caption                  Ввести в предложение
                                                     WHERE          обозначение
                                                     группы и номер семестра,
                                                     выполнить запрос
 Элемент CommandButton      Name                     cmdCreate
                            Caption                  Создать текстовый файл и
                                                     отобразить его текст
 Элемент CommandButton      Name                     cmdClose
                            Caption                  &Close
 Элемент TextBox            Name                     txtInq
                            MultiLine                True
                            Text                     см. запрос под табл. II.29
 Элемент TextBox            Name                     txtReport
                            MultiLine                True
                            ScrollBars               3 – Both
 Элемент Data               Name                     Data17

     Установите для элемента управления TextBox с именем txtInq
свойство MultiLine в позицию True, в свойства Text введите текст сле-
дующего запроса:
SELECT DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,
TEACHER.Name,          TEACHER.Patronymic,        TEACHER.TabularedNumber,
STUDYING.Hours, STUDYING.NumberOfSemester, STUDYING.KindOfStudying
FROM ADVANCED, DISCIPLINE, GROUP_, STUDENT, STUDYING, TEACHER
WHERE            ADVANCED.CodeStudent=STUDENT.CodeStudent             And
GROUP_.CodeGroup=STUDENT.CodeGroup                                    And
DISCIPLINE.CodeDiscipline=STUDYING.CodeDiscipline                     And
STUDYING.CodeTeacher=TEACHER.CodeTeacher                              And
ADVANCED.CodeStudying=STUDYING.CodeStudying And GROUP_.NameGroup =
'DFD-31' And STUDYING.NumberOfSemester =1
GROUP BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,
TEACHER.Name,          TEACHER.Patronymic,        TEACHER.TabularedNumber,
STUDYING.Hours, STUDYING.NumberOfSemester, STUDYING.KindOfStudying
ORDER BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname;
         В окно кода формы frmzPlanStudingGroup введите следующий
текст:
Dim NameDiscipline As String * 25
Dim NameGroup As String * 20

Страницы