Часть3.
3а:
UFI> delete
2 from STAGE
3 where research_id = 'МО-41';
4 records deleted.
UFI> delete
2 from RESEARCH
3 where id = 'МО-41';
1 record deleted.
3б:
UFI> delete from POWER_RESEARCH
2 where customer = 'ЛНПО "Красная заря"'or
3 customer = 'НПО "Ротор"';
2 records deleted.
Лабораторная работа№3.
A:
record_get(0:13)
Б:
Record_recscan_first(research)
Currensy_owner_record(research)
Record_recscan_next(research)
Currensy_member_record(research)
While (fail)
begin
Set_first(research);
end
B:
set_last(research_list)
while not(fail)
begin
get_record
set_previos(research_list)
end
Г:
Record_keyscan_keyfind(rs_shfp=АСОИУ-70)
Currensy_owner_record(student_in_research)
set_first(student_in_research)
while not(fail)
begin
record_get
set_next(student_in_research)
end
Д:
Record_recscan_first(research)
While fail
Begin
Currensy_member_record(part_of_research)
Set_owner(part_of_research)
Record_recscan_next(research)
End
E1:
Record_keyscan_keyfind(rs_shfp=АСОИУ-14)
Currensy_owner_record(Research_to_teacher)
set_first(research_to teacher)
while not(fail)
begin
currensy_member_record(teacher_in_research)
set_owner(teacher_in_research)
record_get
set_next(research_to_teacher)
end
E2:
Record_keyscan_keyfind(rs_shfp=АСОИУ-14)
Currensy_owner_record(Research_to_teacher)
set_first(research_to teacher)
currensy_member_record(teacher_in_research)
set_owner(teacher_in_research)
Currensy_owner_record(teacher_in_research)
set_first(teacher_in_research)
record_get
while not(fail)
begin
currensy_member_record(Research_to_teacher)
set_owner(Research_to_teacher)
record_get
set_next(teacher_in_research)
end
Ж:
Record_keyscan_keyfind(rs_shfp=АСОИУ-14)
Currensy_owner_record(Research_to_teacher)
set_first(research_to teacher)
record_get
while not(fail)
begin
currensy_member_record(teacher_in_research)
set_owner(teacher_in_research)
record_get
Currensy_owner_record(teacher_to_subject)
set_first(teacher_to_subject)
while not(fail)
begin
if teaching.tch_lab_vol >0 then
begin
currensy_member_record(subject_to_teacher)
set_owner(subject_to_teacher)
record_get
end
set_next(teacher_to_subject)
end
set_next(research_to_teacher)
end
Лабораторная работа №4
1.
Record_keyscan_keyfind(rs_shfp=’MO’)
While rs_shfp=’MO’
Begin
Record_keyscan_next()
End
Record_Enter(research, ‘Исследование и разработка языка спецификации для параллельных систем’)
Record_Enter(stage, ’Разработка и анализ требований к языку’)
Record_Enter(stage, ’Разработка спецификаций языка’)
Record_Enter(stage, Программирование и отладка)
Record_Enter(stage, Опытная эксплуатация и доработка)
Record_keyscan_keyfind(rs_shfp=’MO-41’)
set_owner(stage_of_research)
Record_keyscan_keyfind(sg_name= ’Разработка и анализ требований к языку’)
Set_connect(stage_of_research)
Record_keyscan_keyfind(sg_name= ’Разработка спецификаций языка’)
Set_connect(stage_of_research)
Record_keyscan_keyfind(sg_name= Программирование и отладка)
Set_connect(stage_of_research)
Record_keyscan_keyfind(sg_name= Опытная эксплуатация и доработка)
Set_connect(stage_of_research)
Record_recscan_scan(research,”Новые информационные технологии”)
Currency_owner_record(part_of_research)
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Set_connect(part_of_research)
Record_recscan_scan(teacher,”Ильин Иван Ильич”)
Currency_owner_record(manager)
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Set_connect(manager)
Set_connect(research_to_list)
2.
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Record_modify(Исследование и разработка интерактивной среды спецификации параллельных систем, 350000)
Record_keyscan_keyfind(sg_name= Опытная эксплуатация и доработка)
Record_modify(+50000)
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Currency_member_record(manager)
Set_discon(manager)
Record_recscan_scan(teacher,”Васькин Павел Ильич”)
Currency_owner_record(manager)
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Set_connect(manager)
3.
Record_keyscan_keyfind(rs_shfp=’MO-41’)
Currency_member_record(manager)
Set_discon(manager)
Currency_member_record(List_to_research)
Set_discon(List_to_research)
Currency_member_record(part_of_research)
Set_discon(part_of_research)
Currency_owner_record(stage_of_research)
Record_keyscan_keyfind(sg_name= ’Разработка и анализ требований к языку’)
Set_discon(stage_of_research)
Record_delete
Record_keyscan_keyfind(sg_name= ’Разработка спецификаций языка’)
Set_discon(stage_of_research)
Record_delete
Record_keyscan_keyfind(sg_name= Программирование и отладка)
Set_discon(stage_of_research)
Record_delete
Record_keyscan_keyfind(sg_name= Опытная эксплуатация и доработка)
Set_discon(stage_of_research)
Record_delete
Set_owner(part_of_research)
Record_delete