Unit Form1
Form1.Init
ThisForm.Combo1.ListIndex=1
ThisForm.Combo1.InterActiveChange
Combo1.InteractiveChange
ThisForm.List1.Clear
sp=ThisForm.Combo1.ListItem(ThisForm.Combo1.ListIndex)
select 'special'
locate for sp=special.names
if found('special') then
spk=special.kodspec
select 'specdis'
locate for spk=specdis.kodspec
do while not eof('specdis')
spd=specdis.koddisc
select 'disiples'
locate for spd=disiples.koddisc
if found('disiples')
ThisForm.List1.AddItem(disiples.name)
endif
select 'specdis'
continue
enddo
endif
Command1.Click
thisformset.form4.show
thisformset.form1.hide
Листинг программного модуля №2 (Form2)
Unit Form2
Form2.Init
ThisForm.Combo1.ListIndex=1
Command1.Click
if Len(AllTrim(ThisForm.Text1.Text))=0 then
MessageBox('Не введена дисциплина!',16,'Ошибка')
Cancel
endif
select 'disiples'
nk=RecCount()+1
append blank
replace 'koddisc' with nk in 'disiples'
replace 'name' with ThisForm.Text1.Text
select 'special'
sp=ThisForm.Combo1.ListItem(ThisForm.Combo1.ListIndex)
locate for special.names=sp
sk=special.kodspec
select 'specdis'
append blank
replace 'koddisc' with nk in 'specdis'
replace 'kodspec' with sk in 'specdis'
replace 'kurs' with val(ThisForm.Text2.Text) in 'specdis'
replace semestr with val(ThisForm.Text3.Text) in 'specdis'
replace 'chasov' with val(ThisForm.Text4.Text) in 'specdis'
messagebox('Запись добавлена!',48,'Сообщение')
Command2.Click
thisformset.form4.show
thisformset.form2.hide
Листинг программного модуля №3 (Form3)
UnitForm3
Command1.Click
thisformset.form4.show
thisformset.form3.hide
Листинг программного модуля №4 (Form4)
UnitForm3
Command1.Click
thisformset.form5.show
thisformset.form4.hide
Command2.Click
thisformset.form6.show
thisformset.form4.hide
Command3.Click
thisformset.form1.show
thisformset.form4.hide
Command4.Click
thisformset.form2.show
thisformset.form4.hide
Command5.Click
thisformset.form3.show
thisformset.form4.hide
Command6.Click
if messagebox ('Вы действительно хотите выйти?',4+32+256,'Bыход')=6
thisformset.release()
else
thisformset.refresh()
endif
Листинг программного модуля №5,6 (Form5, Form6)
UnitForm5
Command1.Click
thisformset.form4.show
thisformset.form5.hide
UnitForm6
Command1.Click
thisformset.form4.show
thisformset.form5.hide
Отзыв
на курсовую работу
по дисциплине «Технология разработки программных продуктов»
на тему Программа контроля процесса образовательного учреждения № 3.10
(тема курсовой работы и номер задания)
Выполнил студент 3 курса группы 07 – 3(п)
Колосов Николай Сергеевич
(фамилия, имя, отчество)
Курсовая работа заслуживает оценки _____________________
________________________ ________________________
(дата) (подпись)