Составление программы, которая отображает на одном экране окно, содержащее сведения о личности студента и окно со сведениями об учебе

Министерство Общего и Профессионального Образования РФ

Н Г Т У

Кафедра ВТ

Лабораторная работа

по СУБД №3

Факультет:             АВТ

Группа:                   АМ – 811

Студент:                  Курамшин А.А.

Вариант:                   6

Преподаватель:         Трошина Г.В.

г. Новосибирск

 2002г.

Цель работы:

      Изучение возможностей создания различного рода меню в прикладных программах.

Задание:

      Составить программу, которая отображает на одном экране окно, содержащее сведения о личности студента с выбранным годом рождения и местом проживания (фамилия, имя, курс, факультет, номер студенческого, место жительства), окно со сведениями об учебе (оценки за 1, 2, 3, и 4 экзамены) и окно, содержащее цветные горизонтальные диаграммы оценок студентов за 1, 2, 3 и 4 экзамены.

Программа:

&& main.prg

        clear

DEFINE WINDOW w_info ;

   FROM 1, 1 TO 12, 70 ;

   font 'Arial', 10;

   TITLE "Информация о студенте";

   minimize;

   close

DEFINE WINDOW w_mark ;

   FROM 1, 80 TO 12, 120 ;

   font 'Arial', 10;

   TITLE "Информация об оценках";

   minimize;

   close

DEFINE WINDOW w_graph ;

   FROM 14, 1 TO 30, 70 ;

   font 'Arial', 10;

   TITLE "Графики"     ;

   minimize;

   close

         do 'd:\work\alex\subd\my\lab3\prg.prg'

&& конец main.prg

&& prg.prg

        set color to RGB(0,0,0,255,255,255)

        set message to 1 center

           @ 20,10 prompt ' Back ' message 'Предыдущая запись'

           @ 20,19 prompt ' Next ' message 'Следующая запись'

           @ 20,28 prompt ' Exit ' message 'Выход'

        menu to sel

       DO WHILE sel<1

         RETURN

       ENDDO

       DO WHILE sel==1

       if !BOF()

       skip -1

       ACTIVATE WINDOW w_info

       set color to RGB(0,0,0,255,255,255)

       clear

set message to

   @ 1,1 say 'имя'

   @ 1,15 say name_p

   @ 2,1 say 'фамилия'

   @ 2,15 say surname

   @ 3,1 say 'год_рожд'

   @ 3,15 say date_p

   @ 4,1 say 'место_жит'

   @ 4,15 say place

   @ 5,1 say 'курс'

   @ 5,15 say kurs

   @ 6,1 say 'факультет'

   @ 6,15 say faculty

   @ 7,1 say 'номер_студ'

   @ 7,15 say number_st

       ACTIVATE WINDOW w_mark

      set color to RGB(0,0,0,255,255,255)

      clear

         @ 1,1 say 'Экзамен 1'

         @ 1,15 say test1

         @ 2,1 say 'Экзамен 2'

         @ 2,15 say test2

         @ 3,1 say 'Экзамен 3'

         @ 3,15 say test3

         @ 4,1 say 'Экзамен 4'

         @ 4,15 say test4

      ACTIVATE WINDOW w_graph

      set color to RGB(0,0,0,255,255,255)

      clear

         @ 1,1 say 'Экзамен 1'

         @ 2,1 say 'Экзамен 2'

         @ 3,1 say 'Экзамен 3'

         @ 4,1 say 'Экзамен 4'

      set color to RGB(255,0,0,255,255,255)

      for i=1 to test1*3 step 1

         @ 1,15+i say '||'

      endfor

      set color to RGB(0,255,0,255,255,255)

      for i=1 to test2*3 step 1

         @ 2,15+i say '||'

      endfor

     set color to RGB(0,0,255,255,255,255)

     for i=1 to test3*3 step 1

         @ 3,15+i say '||'

     endfor

     set color to RGB(255,255,0,255,255,255)

     for i=1 to test4*3 step 1

         @ 4,15+i say '||'

     endfor

     EXIT

     else EXIT

     endif

     ENDDO

     DO WHILE sel==2

     if !EOF()

     skip 1 

     ACTIVATE WINDOW w_info

     set color to RGB(0,0,0,255,255,255)

     clear

     set message to

        @ 1,1 say 'имя'

        @ 1,15 say name_p

        @ 2,1 say 'фамилия'

        @ 2,15 say surname

        @ 3,1 say 'дата_рожд'

        @ 3,15 say date_p

        @ 4,1 say 'место_жит'

        @ 4,15 say place

        @ 5,1 say 'курс'

        @ 5,15 say kurs

        @ 6,1 say 'факультет'

        @ 6,15 say faculty

        @ 7,1 say 'номер_студ'

        @ 7,15 say number_st

     ACTIVATE WINDOW w_mark

     set color to RGB(0,0,0,255,255,255)

     clear

        @ 1,1 say 'Экзамен 1'

        @ 1,15 say test1

        @ 2,1 say 'Экзамен 2'

        @ 2,15 say test2

        @ 3,1 say 'Экзамен 3'

        @ 3,15 say test3

        @ 4,1 say 'Экзамен 4'

        @ 4,15 say test4

     ACTIVATE WINDOW w_graph

     set color to RGB(0,0,0,255,255,255)

     clear

        @ 1,1 say 'Экзамен 1'

        @ 2,1 say 'Экзамен 2'

        @ 3,1 say 'Экзамен 3'

        @ 4,1 say 'Экзамен 4'

     set color to RGB(255,0,0,255,255,255)

     for i=1 to test1*3 step 1

        @ 1,15+i say '||'

     endfor

     set color to RGB(0,255,0,255,255,255)

     for i=1 to test2*3 step 1

        @ 2,15+i say '||'

     endfor

     set color to RGB(0,0,255,255,255,255)

     for i=1 to test3*3 step 1

        @ 3,15+i say '||'

     endfor

     set color to RGB(255,255,0,255,255,255)

     for i=1 to test4*3 step 1

        @ 4,15+i say '||'

     endfor

   EXIT

   endif

   ENDDO

   Do while sel==3

   return

   enddo

   do 'd:\work\alex\subd\my\lab3\prg.prg'

&& конец prg.prg

Результат работы программы: