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

SELECT degree,id_degree FROM degree;

WHERE degree.id_degree=professor2.id_degree INTO CURSOR deg

ThisForm.text1.Value=ALLTRIM(professor2.surname)+SPACE(1)+ALLTRIM(professor2.name)+SPACE(1)+ALLTRIM(professor2.patronymic)+SPACE(3)+ALLTRIM(deg.degree)

SELECT nametheme,id_theme FROM theme;

WHERE theme.id_theme=ccccwork.id_theme INTO CURSOR tema

ThisForm.text9.Value=ALLTRIM(tema.nametheme)

Кнопка «Добавить»:

SET PATH TO ('FORMS')

do FORM FORM2.Scx

Кнопка «Удалить»:

b=TRIM(ThisForm.List1.Value)

IF THISFORM.list1.ListIndex!=0 THEN

SELECT * from Student;

WHERE ALLTRIM(student.surname)+SPACE(1)+ALLTRIM(student.name)+SPACE(1)+ALLTRIM(student.patronymic)=b AND t10.id_group=student.id_group;

into cursor stu

SELECT * from courseworks;

WHERE courseworks.id_student=stu.id_student;

into cursor cour

SELECT * from professor;

WHERE professor.id_professor=cour.id_professor;

into cursor pro

DELETE FROM Student;

WHERE ALLTRIM(student.surname)+SPACE(1)+ALLTRIM(student.name)+SPACE(1)+ALLTRIM(student.patronymic)=b AND t10.id_group=student.id_group

DELETE FROM courseworks;

WHERE courseworks.id_student=stu.id_student

DELETE FROM subject;

WHERE subject.id_subject=cour.id_subject

DELETE FROM professor;

WHERE professor.id_professor=cour.id_professor