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

Выбор студента (List1):

SELECT surname,name,patronymic,id_student FROM student;

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

INTO CURSOR student3

ThisForm.text9.Value=''

ThisForm.text11.Value=''

ThisForm.text12.Value=''

ThisForm.text1.Value=''

SELECT id_professor,id_theme,id_subject,mark,datedelivery,id_student FROM courseworks;

WHERE courseworks.id_student=student3.id_student INTO CURSOR cwork

SELECT Subject.id_subject, Subject.namesubject, Courseworks.id_student,;

Courseworks.id_subject, Courseworks.id_professor,;

Courseworks.datedelivery, Courseworks.mark, Courseworks.id_theme;

FROM ;

1!subject ;

INNER JOIN 1!courseworks ;

ON Subject.id_subject = Courseworks.id_subject;

INTO CURSOR ccwork

SELECT * FROM ccwork;

where ccwork.id_student=cwork.id_student INTO CURSOR cccwork

ThisForm.List2.RowSourceType=2

ThisForm.List2.Value=''

ThisForm.List2.RowSource='ALLTRIM(cccwork.namesubject)'

Выбор предмета(List2):

SELECT * FROM cccwork;

where ALLTRIM(cccwork.namesubject)=ALLTRIM(this.value) INTO CURSOR ccccwork

ThisForm.text11.Value=ccccwork.mark

ThisForm.text12.Value=ccccwork.datedelivery

SELECT surname,name,patronymic,id_degree FROM professor;