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

Файлы помощи

Help.hlp

Файлы программ.

main.prg

quit.prg

Приложение 2. Листинг программы.

Form 1 – «Учет курсовых работ кафедры ВИТ»

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

SET DELETE on

SELECT namegroup FROM group INTO CURSOR group1

ThisForm.Combo1.RowSourceType= 2

ThisForm.Combo1.RowSource='group.namegroup'

Выборе группы из списка (Combo1):

gg=TRIM(THISFORM.Combo1.Value)

SELECT Group.id_group;

FROM 1!group;

WHERE TRIM(Group.namegroup)==gg;

INTO CURSOR t10

SELECT surname,name,patronymic;

FROM student;

WHERE student.id_group=t10.id_group;

INTO CURSOR clici

ThisForm.text9.Value=''

ThisForm.text11.Value=''

ThisForm.text12.Value=''

ThisForm.List1.RowSourceType= 2

ThisForm.List1.Value=''

ThisForm.List1.RowSource='ALLTRIM(clici.surname)+SPACE(1)+ALLTRIM(clici.name)+SPACE(1)+ALLTRIM(clici.patronymic)'

ThisForm.List2.RowSourceType= 2