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

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

SELECT MAX(subject.id_subject) as m_subject FROM subject INTO CURSOR subject_max2

INSERT INTO subject(id_subject,namesubject);

VALUES (subject_max2.m_subject+1,ALLTRIM(ThisForm.text8.Value))

SELECT namesubject FROM subject INTO CURSOR subject22

ThisForm.Combo1.RowSourceType= 2

ThisForm.Combo1.RowSource='subject22.namesubject'

ThisForm.text8.Value=''

Нажатие на кнопку «»:

SET PATH TO ('Forms\')

DO FORM getdataform

Нажатие на кнопку «Добавить уч.степень»:

SELECT MAX(degree.id_degree) as m_degree FROM degree INTO CURSOR degree_max2

INSERT INTO degree(id_degree,degree);

VALUES (degree_max2.m_degree+1,ALLTRIM(ThisForm.text10.Value))

SELECT degree FROM degree INTO CURSOR degree22

ThisForm.Combo5.RowSourceType= 2

ThisForm.Combo5.RowSource='degree22.degree'

ThisForm.text10.Value=''

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

SELECT MAX(courseworks.id_student) as m_id_student,MAX(courseworks.id_subject) as m_id_subject,MAX(courseworks.id_professor) as m_id_professor,MAX(courseworks.id_theme) as m_id_theme FROM courseworks INTO CURSOR courseworks_save

SELECT * FROM subject INTO CURSOR subject_save

SELECT * FROM student INTO CURSOR student_save

SELECT * FROM professor INTO CURSOR professor_save

SELECT * FROM degree INTO CURSOR degree_save

SELECT MAX(degree.id_degree) as m_degree FROM degree INTO CURSOR degree_max

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

SELECT MAX(subject.id_subject) as m_subject FROM subject INTO CURSOR subject_max

SELECT MAX(theme.id_theme) as m_theme FROM theme INTO CURSOR theme_max