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

Courseworks.id_subject, Courseworks.id_professor,;

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

FROM ;

1!theme ;

INNER JOIN 1!courseworks ;

ON theme.id_theme = Courseworks.id_theme;

INTO CURSOR corrwork

SELECT * FROM corrwork;

WHERE subfind.id_subject=corrwork.id_subject INTO CURSOR corwork

ThisForm.List1.RowSourceType=2

ThisForm.List1.Value=''

ThisForm.List1.RowSource='ALLTRIM(corwork.nametheme)'

Getdataform – «Выбор даты»

Нажатие кнопки «Выбрать»:

y=YEAR(THISFORM.olecontrol1.SelEnd)

m=MONTH(THISFORM.olecontrol1.SelEnd)

ch=DAY(THISFORM.olecontrol1.SelEnd)

form2.text12.Value=DATE(y,m,ch)

THISFORM.Release