Курсовая работа: Разработка прикладной информационной системы

Нажатие на кнопку «Отчет по студентам»:

SET PATH TO('REPORTS\')

REPORT FORM st PREVIEW

Нажатие на кнопку «Отчет по преподавателям»:

SET PATH TO('REPORTS\')

REPORT FORM prof PREVIEW

Form 2 – «Добавление информации о студенте и курсовой работе»

Инициализации формы:

SELECT namegroup FROM group INTO CURSOR group2

ThisForm.Combo1.RowSourceType= 2

ThisForm.Combo1.RowSource='group2.namegroup'

SELECT namesubject FROM subject INTO CURSOR subject2

ThisForm.Combo2.RowSourceType= 2

ThisForm.Combo2.RowSource='subject2.namesubject'

ThisForm.Combo4.RowSourceType= 2

ThisForm.Combo4.RowSource='subject2.namesubject'

SELECT degree FROM degree INTO CURSOR degree222

ThisForm.Combo5.RowSourceType= 2

ThisForm.Combo5.RowSource='degree222.degree'

ThisForm.Combo3.AddItem("3")

ThisForm.Combo3.AddItem("4")

ThisForm.Combo3.AddItem("5")

Нажатие на кнопку «Добавить группу»:

SELECT MAX(group.id_group) as m_group FROM group INTO CURSOR group_max2

INSERT INTO group(id_group,namegroup);

VALUES (group_max2.m_group+1,ALLTRIM(ThisForm.text7.Value))

SELECT namegroup FROM group INTO CURSOR group2

ThisForm.Combo1.RowSourceType= 2

ThisForm.Combo1.RowSource='group2.namegroup'