Требования к курсовым работам
Независимо от конкретной проблемы, можно выделить некоторые формальные требования, на которых защищается квалификация разработчика.
 1 .	Устойчивость программы. Программа не должна терять работоспособности ни при каких, даже некорректных действиях пользователя. Всякие действия, грозящие потерей информации, выполняются только после повторного подтверждения. Вводимая информация там, где это возможно, подвергается логическому контролю.
 2 .	Обеспечение целостности баз данных. При любых действиях пользователя базы не должны терять целостности (некорректность индексов, потеря ссылок в связях после удаления – добавления записей и т.д.).
 3 .	Функциональная полнота. Должны быть реализованы все потребности пользователя.
 4 .	Терминологическая среда и интерфейс. В диалоговых средствах используются только термины, понятные пользователю, и не используются термины разработчика («запись», «индексация» и т.д.). Появление служебных англоязычных сообщений СУБД недопустимо. Язык диалога – с соблюдением норм вежливости, цветовая гамма – по общепринятым рекомендациям.
 5 .	Использование клавиатуры. На любом этапе нажатие любой клавиши (особенно функциональных) должно игнорироваться или вызывать предусмотренные действия (описанные в средствах помощи). Привязка действий к клавишам должна быть общепринятой: F1 – помощь; Enter – согласие, завершение ввода; Esc – отказ, возврат к предыдущему узлу ветви алгоритма (с восстановлением экранной формы); Tab – переход к следующему полю, окну и т.д.; Shift-Tab – возврат к предыдущему полю и т.д.
 6 .	Средства помощи. В любой момент по нажатии клавиши F1 должен выдаваться текст помощи.
 7 .	Входные и выходные документы. Экранные формы для ввода и корректировки должны быть максимально «похожими» на привычные пользователю документы; результаты работы не только отображаются на экране, но и выводятся в текстовой файл в привычной форме с возможностью корректировки и распечатки. 
 8 .	Средства документации. Программы снабжаются документацией в виде отчета (требования к оформлению отчета см. в файле Report_kurs.doc).
Программный продукт должен обеспечивать выполнение следующих операций над базами. 
 1 .	Должно быть несколько связанных баз данных с использованием (по необходимости) связей «один к одному», «один ко многим».
 2 .	Для облегчения просмотра и поиска используется упорядоченность с помощью индексации или (в крайнем случаи) сортировки. 
 3 .	Вся информация поддается просмотру и редактированию. 
Информация, поддающаяся стандартизации, хранится в отдельных базах-справочниках, также поддающихся корректировке (с соблюдением целостности).

Администратор гостиницы. Список номеров: класс, число мест. Список гостей: паспортные данные, даты приезда и отъезда, номер. Поселение гостей: выбор подходящего номера (при наличии свободных мест), регистрация, оформление квитанции. Отъезд: выбор всех постояльцев, отъезжающих сегодня, освобождение места или оформление задержки с выпиской дополнительной квитанции. Возможность досрочного отъезда с перерасчетом. Поиск гостя по произвольному признаку.

SET TALK OFF 
SET DATE GERMAN 
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F1 ACTIVATE WIND el && Вьиэов окна первого этажа 
ON KEY LABEL F2 ACTIVATE WIND e2 && Вызов окна второго этажа 
USE gost INDEX gost 
r=RECNO() 
DEFINE WINDOW gost FROM  0 , 0  TO  8 , 62 ; 
       TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  10 , 16  TO  19 , 42 ; 
       TITLE 'Fl Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 4  TO  18 , 30 ; 
       TITLE 'F2 Этаж 2' COLOR n/gb && Окно второго этажа 
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE()); 
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',; 
     r=IIF(r=RECNO(),'>',' ') :h='',; 
     mes :h='Место' :p='9999',; 
     fam :h='Фамилия' : 14 ,; 
     pol :h='Пол'; 
         :v=(pol='M'.ОR.ро1='Ж').AND.pl(LEFT(mes, 3 ),pol); 
         :e='Только М или Ж',; 
     pri :h='Прибытие',; 
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1 && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
         .................
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
         .................
READ CYCLE 
DEACTIVATE WINDOW el,e2,F10 
RELEASE WINDOWS el,e2,F10 
ON KEY 

FUNCTION ttt &&-----------ФУЯКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN 

BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE()); 
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',; 
     r=IIF(r=RECNO(),'>',' ') :h='',; 
     mes :h='Место' :p='9999',; 
     fam :h='Фамилия' : 14 ,; 
     pol :h='Пол'; 
         :v=(pol='M'.ОR.ро1='Ж').AND.pl(LEFT(mes, 3 ),pol); 
         :e='Только М или Ж',; 
     pri :h='Прибытие',; 
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()

SET TALK OFF 
SET DATE GERMAN 
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F1 ACTIVATE WIND el && Вьиэов окна первого этажа 
ON KEY LABEL F2 ACTIVATE WIND e2 && Вызов окна второго этажа 
USE gost INDEX gost 
r=RECNO() 
DEFINE WINDOW gost FROM  0 , 0  TO  8 , 62 ; 
       TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  10 , 16  TO  19 , 42 ; 
       TITLE 'Fl Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 4  TO  18 , 30 ; 
       TITLE 'F2 Этаж 2' COLOR n/gb && Окно второго этажа 
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
     r=IIF(r=RECNO(),'>',' ') :h='',;
     mes :h='Место' :p='9999',;
     fam :h='Фамилия' : 14 ,;
     pol :h='Пол';
         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
         :e='Только М или Ж',;
     pri :h='Прибытие',;
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
         .................
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
         .................
READ CYCLE 
DEACTIVATE WINDOW el,e2,F10 
RELEASE WINDOWS el,e2,F10 
ON KEY 

FUNCTION ttt &&-----------ФУЯКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN 

parameters progr
clea
clea all
set prin off
set cons on
set talk off
set conf on
set safe off
set esca off
SET CENTURY ON
set date to german
set bell to  300 , 1 
set clock on && включение часов
*close all && зыкрытие всех баз данных
set cursor off && выключение курсора
set talk off && отмена выдачи протокола 
set deleted on
clear && очистка экрана
define window p1 from  10 , 39  to  12 , 41 
define window m from  16 , 14  to  18 , 67  doubl float  color scheme  7             
activate window p1
store  12  to i,i1
store  40  to j,j1
&& цикл разворачивания окна
do while i# 0 .or.j# 0 .or.i1# 24 .or.j1# 79  
f= 0 
i=iif(i> 0 ,i- 1 , 0 )
j=iif(j> 0 ,j- 2 , 0 )
i1=iif(i1< 24 ,i1+ 1 , 24 )
j1=iif(j1< 79 ,j1+ 2 , 79 )
zoom window p1 norm at i,j to i1,j1
enddo
text && вывод на экран заставки, начало text

   ЯЯЯЯЯ             
   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ
   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я
   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ
   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я
   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я
                                                             Я                        


                              Добро пожаловать!
endtext && завершение вывода, endtext

save screen to jonny && сохраняем экран в переменную jonny
activate wind m
@ 0 , 5  say'Для пpодолжения pаботы нажмите любую клавишу.'
read

clear windows && убирает из памяти все окна
set cursor on && включение курсора
SET COLOR TO gr


*set defa to c:\

do menugl 

proc menugl
*--- помощь, если есть файл помощи ---*
 if file('HELP.PRG').or.file('HELP.TXT')
 on key labe F1 do HELP.TXT
 endi
*set defa to KURS

set cloc on
set color to  w,w/b, r/w && установка цвета - белый на синем,	
set color to  1 / 2 ,b/g+,gr+/rb+ 
&& а для часов красный на белом
SET CLOCK TO  0 , 713 
defi wind EWIND from  0 , 0  to  4 , 79  color gr+/r,gr+/r,gr+/r 
set hours to  24  && установка  24  часового исчисления

k=td1( 20 ,date())
@  10 , 1  say'   ЯЯЯЯЯ                                                              '
@  11 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я   Я    Я  Я     Я  Я    Я        ЯЯ  ' 
@  12 , 1  say'   Я     Я   Я  Я          Я     Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я      Я    Я' 
@  13 , 1  say'   Я     Я   Я  Я          Я     Я   Я Я  ЯЯЯЯ   Я   Я Я  Я    Я     ЯЯЯЯЯ'
@  14 , 1  say'   Я     Я   Я  Я          Я     Я  Я  Я  Я    Я  Я  Я  Я  Я    Я      Я    Я'
@  15 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ     Я     ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯ  Я    Я'
@  16 , 1  say'                                                                              Я         '               

define menu mainmenu in screen color gr/bg,r/bg,gr/bg,gr/bg,gr+/w,rb/w,gr+/bg
set defa to c:\kurs
define pad gosti of mainmenu prompt'\<Список гостей' at  5 , 7 ;
message 'Ввод, просмотр и редакторование данных по количеству гостей в гостинице.'
define pad etaji of mainmenu prompt'\<Этажи' at  5 , 25 ;
message 'Просмотр и ввод новых блюд в базу данных'
define pad pom of mainmenu prompt'\<Помощь' at  5 , 55 ;
message 'Помощь в работе с программой'
define pad vih of mainmenu prompt'\<Выход' at  5 , 64 ;
message 'Выход из программы'
on selection pad gosti of mainmenu do guests.prg
on selection pad etaji of mainmenu do floor.prg
on selection pad pom of mainmenu do help.txt 
on selection pad vih of mainmenu activate wind w5
 
acti wind EWIND
@ 0 , 15  say 'Курсовая работа студента 1 курса гр.9ПИЭ-51' 
@ 2 , 27  say'Сегодня: '+k               
acti menu mainmenu




************************************************
function td1
para m,k
dn=alltrim(STR(day(k)))
g=alltrim(STR(year(k)))
ms=month(k)
dime s( 12 )
s( 1 )='ЯHВАРЯ'
s( 2 )='ФЕВРАЛЯ'
s( 3 )='МАРТА'
s( 4 )='АПРЕЛЯ'
s( 5 )='МАЯ'
s( 6 )='ИЮHЯ'
s( 7 )='ИЮЛЯ'
s( 8 )='АВГУСТА'
s( 9 )='СЕHТЯБРЯ'
s( 10 )='ОКТЯБРЯ'
s( 11 )='HОЯБРЯ'
s( 12 )='ДЕКАБРЯ'
sd=padr((dn+s(ms)+' '+g),m)
**** Процедура выхода ****
         **** процедура выхода в FOXPRO *****
proc end
define window vf from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vf in w5 
A= 0 
B= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU

**** процедура выхода в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vnc
A= 0 
b= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU

return sd

@ 2 , 27  say'Сегодня: '+k

text && вывод на экран заставки, начало text

   ЯЯЯЯЯ             
   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ
   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я
   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ
   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я
   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я
                                                             Я                        


                              Добро пожаловать!
endtext && завершение вывода, endtext

SET TALK OFF 
SET DATE GERMAN 
*ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F6 ACTIVATE WIND el && Выэов окна первого этажа 
ON KEY LABEL F7 ACTIVATE WIND e2 && Вызов окна второго этажа 
ON KEY LABEL F8 ACTIVATE WIND e3 && Вызов окна третьего этажа 

*USE floor.dbf INDEX floor 
r=RECNO() 
*DEFINE WINDOW floor FROM  0 , 0  TO  8 , 62 ; 
*      TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  8 , 16  TO  17 , 36 ; 
       TITLE 'F6 Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 40  TO  18 , 60 ; 
       TITLE 'F7 Этаж 2' COLOR n/gb && Окно второго этажа 
DEFINE WINDOW e3 FROM  12 , 30  TO  21 , 58 ; 
       TITLE 'F8 Этаж 3' COLOR n/gb && Окно третьего этажа 
*BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
*FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
*     r=IIF(r=RECNO(),'>',' ') :h='',;
*     mes :h='Место' :p='9999',;
*     fam :h='Фамилия' : 14 ,;
*     pol :h='Пол';
*         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
*         :e='Только М или Ж',;
*     pri :h='Прибытие',;
*     otb :h='Отбытие',;
*     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
*@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
ACTIVATE WINDOW e3   && Открытие окна третьего этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-301----302----303---304--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-305----306--      --307--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3012')

READ CYCLE 
DEACTIVATE WINDOW el,e2,e3*,F10 
RELEASE WINDOWS el,e2,e3*,F10 
ON KEY 

FUNCTION ttt &&-----------ФУНКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN

ACTIVATE WINDOW e1                           && Открытие окна первого этажа

SET TALK OFF 
SET DATE GERMAN 
*ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F6 ACTIVATE WIND el && Выэов окна первого этажа 
ON KEY LABEL F7 ACTIVATE WIND e2 && Вызов окна второго этажа 
ON KEY LABEL F8 ACTIVATE WIND e3 && Вызов окна третьего этажа 

*USE floor.dbf INDEX floor 
r=RECNO() 
*DEFINE WINDOW floor FROM  0 , 0  TO  8 , 62 ; 
*      TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  8 , 16  TO  17 , 36 ; 
       TITLE 'F6 Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 40  TO  18 , 60 ; 
       TITLE 'F7 Этаж 2' COLOR n/gb && Окно второго этажа 
DEFINE WINDOW e3 FROM  12 , 30  TO  21 , 58 ; 
       TITLE 'F8 Этаж 3' COLOR n/gb && Окно третьего этажа 
*BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
*FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
*     r=IIF(r=RECNO(),'>',' ') :h='',;
*     mes :h='Место' :p='9999',;
*     fam :h='Фамилия' : 14 ,;
*     pol :h='Пол';
*         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
*         :e='Только М или Ж',;
*     pri :h='Прибытие',;
*     otb :h='Отбытие',;
*     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
*@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
ACTIVATE WINDOW e3   && Открытие окна третьего этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-301----302----303---304--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-305----306--      --307--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3012')

READ CYCLE 
DEACTIVATE WINDOW el,e2,e3*,F10 
RELEASE WINDOWS el,e2,e3*,F10 
ON KEY 

FUNCTION ttt &&-----------ФУНКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN

ACTIVATE WINDOW e1                           && Открытие окна первого этажа

set proc to menuden.prg
if file('help.txt')
close alte to 
do ModiDisp with 'help.TXT'
else
set alte to help.txt
set alte on
?'Файл помощи удален!!! Разбирайся сам.'
close alte to 
do ModiDisp with 'help.TXT'
endif
set proc to 
return

do ModiDisp with 'help.TXT'

set proc to menuden.prg

parameters progr
clea
clea all
set prin off
set cons on
set talk off
set conf on
set safe off
set esca off
set century on
set date to german
set bell to  300 , 1 
set clock off && включение часов
close all && зыкрытие всех баз данных
set cursor off && выключение курсора
set talk off && отмена выдачи протокола 
set deleted on
clear && очистка экрана
define window p1 from  10 , 39  to  12 , 41 
define window m from  16 , 14  to  18 , 67  doubl float  color scheme  7             
activate window p1
store  12  to i,i1
store  40  to j,j1
&& цикл разворачивания окна
do while i# 0 .or.j# 0 .or.i1# 24 .or.j1# 79  
f= 0 
i=iif(i> 0 ,i- 1 , 0 )
j=iif(j> 0 ,j- 2 , 0 )
i1=iif(i1< 24 ,i1+ 1 , 24 )
j1=iif(j1< 79 ,j1+ 2 , 79 )
zoom window p1 norm at i,j to i1,j1
enddo
text && вывод на экран заставки, начало text

   ЯЯЯЯЯ             
   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ
   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я
   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ
   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я
   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я
                                                             Я                        


                              Данные о посетителях.
endtext && завершение вывода, endtext

save screen to jonny && сохраняем экран в переменную jonny
activate wind m
@ 0 , 5  say'Для пpодолжения pаботы нажмите любую клавишу.'
read

clear windows && убирает из памяти все окна
set cursor on && включение курсора
SET COLOR TO gr


*set defa to c:\

do menugl 

proc menugl
*--- помощь, если есть файл помощи ---*
 if file('HELP.PRG').or.file('HELP.TXT')
 on key labe F1 do HELP.TXT
 endif
*set defa to KURS

set clock on
set color to  w,w/b, r/w && установка цвета - белый на синем,	
set color to  1 / 2 ,b/g+,gr+/rb+ 
&& а для часов красный на белом
SET CLOCK TO  0 , 71 
defi wind EWIND from  0 , 0  to  4 , 79  color gr+/r,gr+/r,gr+/r 
set hours to  24  && установка  24  часового исчисления
k=td1( 20 ,date())
               
@  10 , 1  say'   ЯЯЯЯЯ                                                              '
@  11 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ  ' 
@  12 , 1  say'   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я' 
@  13 , 1  say'   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ'
@  14 , 1  say'   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я'
@  15 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я'
@  16 , 1  say'                                                             Я        '               

define menu mainmenu in screen color gr/bg,r/bg,gr/bg,gr/bg,gr+/w,rb/w,gr+/bg
set defa to c:\kurs
define pad gosti of mainmenu prompt'\<Список гостей' at  5 , 7 ;
message 'Ввод, просмотр и редакторование данных по количеству гостей в гостинице.'
define pad etaji of mainmenu prompt'\<Этажи' at  5 , 25 ;
message 'Просмотр этажей гостиницы'
define pad pom of mainmenu prompt'\<Помощь' at  5 , 55 ;
message 'Помощь в работе с программой'
define pad vih of mainmenu prompt'\<Выход' at  5 , 64 ;
message 'Выход из программы'

on selection pad gosti of mainmenu do guests.prg
on selection pad etaji of mainmenu do floor.prg
on selection pad pom of mainmenu do help.txt 
on selection pad vih of mainmenu activate window w5

acti wind EWIND
@ 0 , 15  say 'Курсовая работа студента 1 курса гр.9ПИЭ-51'
@ 2 , 27  say'Сегодня: '+k 
acti menu mainmenu


************************************************
function td1
para m,k
dn=alltrim(STR(day(k)))
g=alltrim(STR(year(k)))
ms=month(k)
dime s( 12 )
s( 1 )='ЯHВАРЯ'
s( 2 )='ФЕВРАЛЯ'
s( 3 )='МАРТА'
s( 4 )='АПРЕЛЯ'
s( 5 )='МАЯ'
s( 6 )='ИЮHЯ'
s( 7 )='ИЮЛЯ'
s( 8 )='АВГУСТА'
s( 9 )='СЕHТЯБРЯ'
s( 10 )='ОКТЯБРЯ'
s( 11 )='HОЯБРЯ'
s( 12 )='ДЕКАБРЯ'
sd=padr((dn+s(ms)+' '+g),m)
return sd
**** Процедура выхода ****
         **** процедура выхода в FOXPRO *****
proc end
define window vf from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vf in w5 
A= 0 
B= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU

**** процедура выхода в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vnc in w5
A= 0 
b= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU

return sd

set safety off
CLEA
CLOSE ALL
set date germ
set clock on
defi wind w5 from  1 , 0  to  30 , 73  doub shad title ' "М Е Н Ю" ';
footer'Учёт компьютерной техники'
acti wind W5
do zast
defi menu m  SHADOW 
defi pad n1 of m prom '  БД  ' at  1 , 3   COLOR scheme  4  
defi pad n2 of m prom 'Просмотр ведомостей'at  1 , 15  COLOR scheme  4   
defi pad n4 of m prom 'Сервис'at  1 , 40  COLOR scheme  4  
defi pad n5 of m prom ' Выход 'at  1 , 55  COLOR scheme  4  
on sele pad n1 of m acti popup a1 
on sele pad n2 of m acti popup a2
on sele pad n4 of m acti popup a4 
on pad n5 of m acti popup a5

**** A1 ****
defi popup a1 from  2 , 3  SHADOW COLOR scheme  4 
defi bar  1  of a1 prom'Ввод д нных '
defi bar  2  of a1 prom'Просмотр'
on bar  1  of a1 acti popup c1 
on bar  2  of a1 acti popup c2 
defi popup c1 from  3 , 17  SHADOW COLOR scheme  4 
defi bar  1  of c1 prom'Поступление ПК'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  2  of c1 prom'Друг я оргтехник 'color ,,,, 4 */ 9 , 4 */ 9 
on sele bar  1  of c1 do C:\FOXPRO\agu\vvod.PRG
on sele bar  2  of c1 do C:\FOXPRO\agu\drosv.PRG

defi popup c2 from  4 , 17  SHADOW COLOR scheme  4 
defi bar  1  of c2 prom'Оргтехник 'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  2  of c2 prom'Х р ктеристик  компов'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  3  of c2 prom'Д нные для  мортиз ции'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  4  of c2 prom'Д нные о монитор х'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  5  of c2 prom'Амортиз ция з  прошл.мес.'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  6  of c2 prom'Амортиз ция з  отчетн.мес.'color ,,,, 4 */ 9 , 4 */ 9 
on sele bar  1  of C2 do dros
on sele bar  2  of c2 do har
on sele bar  3  of c2 do b
on sele bar  4  of c2 do mon
on sele bar  5  of c2 do bd3
on sele bar  6  of c2 do bd4

**** A2 ****
defi popup a2 from  2 , 15  SHADOW COLOR scheme  4   
defi bar  1  of A2 prom'Ведомость о н личии ПК по р бочим мест м'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  2  of A2 prom'Переход'message 'Перед формиров нием вед-ти  мортиз ции ОБЯЗАТЕЛЬНО выполни эту ком нду!' 
defi bar  3  of A2 prom'Н числение  мортиз ции н  комп.техн.'message 'Ты не з был  ктивизиров ть ком нду ПЕРЕХОД?'
defi bar  4  of A2 prom'Ведомость о н личии мониторов'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  5  of A2 prom'Ведомость о н личии комп.техники'color ,,,, 4 */ 9 , 4 */ 9 

on sele bar  1  of A2 do C:\FOXPRO\agu\VED.PRG
on sele bar  2  of A2 do C:\FOXPRO\agu\perehod.PRG
on sele bar  3  of A2 do C:\FOXPRO\agu\am.PRG
on sele bar  4  of A2 do C:\FOXPRO\agu\monitor.PRG
on sele bar  5  of A2 do C:\FOXPRO\agu\dros1.PRG
**** А4 **** 
defi popup a4 from  2 , 40  SHADOW COLOR scheme  4 
defi bar  1  of a4 prom 'Печ ть'
defi bar  2  of a4 prom 'Созд ние резервной копии '
defi bar  3  of a4 prom 'Поиск'

on bar  1  of a4 acti popup b1
on bar  2  of a4 acti popup b2
on sele bar  3  of a4 do PO
         ***b1
defi popup b1 from  3 , 40  SHADOW COLOR scheme  4 
defi bar  1  of b1 prom'Ведомость о н личии ПК по р бочим мест м'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  2  of b1 prom'Н числение  мортиз ции н  комп.техн.'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  3  of b1 prom'Ведомость о н личии мониторов'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  4  of b1 prom'Ведомость о н личии комп.техники'color ,,,, 4 */ 9 , 4 */ 9 

on sele bar  1  of b1  do pech1 
on sele bar  2  of b1  do p2 
on sele bar  3  of b1  do p3 
on sele bar  4  of b1  do p4 
       ***b2
defi popup b2 from  4 , 40  SHADOW COLOR scheme  4 
defi bar  1  of B2 prom 'Созд ть'
defi bar  2  of B2 prom 'Восст новить '

on sele bar  1  of b2  do sozd
on sele bar  2  of b2 do vost
**** A5 ****
defi popup a5 from  2 , 55  SHADOW COLOR scheme  4 
defi bar  1  of a5 prom 'FoxPro'color ,,,, 4 */ 9 , 4 */ 9 
defi bar  2  of a5 prom 'Windows'color ,,,, 4 */ 9 , 4 */ 9 

on sele bar  1  of a5 do CANCEL
on sele bar  2  of a5 do quit
acti wind w5      
acti menu m
                    ***Процедуры просмотр  БД
proc mon
use C:\FOXPRO\agu\mon.dbf
BROW FIEL INVM:H='Инв.ь монитор ',naim:H='М рк ',invn:H='Инв.ь сист.блок ',RABM:H='Р бочее место',thar:h='Тех.х р-ки';
TITLE'Д нные о монитор х'
pack
return

proc dros
use C:\FOXPRO\agu\dros.dbf
BROW FIEL invn:H='Инвент.ь',vid:h='Вид оргтехн-ки',naim:h='Н именов ние',rabm:h='Р боч.место';
TITLE'Другие ОС' 
pack
return

proc har 
use C:\FOXPRO\agu\har.dbf
BROW FIEL invn:H='Инвент.ь',video:H='Видеок рт ',cpu:H='Процессор',;
mathe:H='М тери-я пл т ',hdd:H='Жест.диск',fdd:H='Floppy disk',;
ram:H='ОЗУ',cd:H='cd-привод',setkar:H='Сетев я к рт ',;
npk:H='ь ПК',rabm:H='Р боч. место';
TITLE'Х р ктеристик  компов' 
pack
retu    

proc b 
use C:\FOXPRO\agu\b.dbf
BROW FIEL invn:H='Инвент.ь',ps:H='Первон ч ль.ст-сть',;
dve:H='Д т  ввод  в эксплу-ию',spi:H='Срок полез.исп-ия';
TITLE'Д нные для  мортиз ции'
pack
retu    

proc bd3 
use C:\FOXPRO\agu\bd3.dbf
BROW FIEL n:H='Аморт.з  прошл.мес.',amm1:H='Аморт.з  мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер';
TITLE'Амортиз ция з  прошлый месяц' 
pack
retu    

proc bd4 
use C:\FOXPRO\agu\bd4.dbf
BROW FIEL n:H='Аморт.з  прошл.мес.',amm1:H='Аморт.з  мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер';
TITLE'Амортиз ция з  отчетный месяц' 
pack
retu    
****процедур  копиров ния****
proc SOZD
define window E from  10 , 15  to  15 , 60  title '"КОПИРОВАНИЕ"';
shad  color  4 / 1 , 8 / 3 , 3 / 5  
ACTI WIND E
A= 0 
b= 0 
@  1 , 10  GET A FUNC '* СОХРАНИТЬ НА ДИСКЕТЕ'
@  2 , 10  GET B FUNC '* СОХРАНИТЬ НА ДИСКЕ С'
READ
IF A= 1 
clos data 
do nd
do ZAST
COPY FILE DROS.dbf TO a:\DROS.dbf
COPY FILE HAR.dbf TO a:\HAR.dbf
COPY FILE B.dbf TO a:\B.dbf
COPY FILE MON.dbf TO a:\MON.dbf
COPY FILE BD3.dbf TO a:\BD3.dbf
COPY FILE BD4.dbf TO a:\BD4.dbf
ENDIF
if b= 1 
clos data 
do nd 
do ZAST
set default to c:\foxpro\AGU
COPY FILE DROS.dbf TO c:\DROS.dbf
COPY FILE HAR.dbf TO c:\HAR.dbf
COPY FILE B.dbf TO c:\B.dbf
COPY FILE MON.dbf TO c:\MON.dbf
COPY FILE BD3.dbf TO c:\BD3.dbf
COPY FILE BD4.dbf TO c:\BD4.dbf
endif
DEAC WIND E
do zast
retu
             ***Процедур  восст новления р.к.
PROCEDURE vost
hide menu M
hide popup b2 
hide popup a4
DEFINE WINDOW w FROM  10 , 14  ;
TO  13 , 64  SHADOW DOUBLE COLOR SCHEME  5 						 
ACTIVATE WINDOW w SAME
@  1 , 15  SAY "и н жмите Enter." ;
SIZE  1 , 16 ,  0 
@  0 , 2  SAY "Вст вте дискету c резерв. копией в дискoвод А:" ;
SIZE  1 , 43 ,  0 
READ CYCLE
RELEASE WINDOW all
use
 DELETE FILE DROS.dbf
 DELETE FILE HAR.dbf
 DELETE FILE B.dbf
 DELETE FILE MON.dbf
 DELETE FILE BD3.dbf
 DELETE FILE BD4.dbf
COPY FILE a:\DROS.dbf TO c:\foxpro\AGU\DROS.dbf
COPY FILE a:\HAR.dbf TO c:\foxpro\AGU\HAR.dbf
COPY FILE a:\B.dbf TO c:\foxpro\AGU\B.dbf
COPY FILE a:\MON.dbf TO c:\foxpro\AGU\MON.dbf
COPY FILE a:\BD3.dbf TO c:\foxpro\AGU\BD3.dbf
COPY FILE a:\BD4.dbf TO c:\foxpro\AGU\BD4.dbf
show menu M 
show popup b2
show popup a4 
DEAC WIND w
retur
**** процедур  фон  меню ****
PROC zast
@  5 , 1   say'      '                                                                         
@  6 , 1   say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                            
@  7 , 1   say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                            
@  8 , 1   say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                           
@  9 , 1   say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                               
@  10 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                           
@  11 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                   
@  12 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                              
@  13 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                              
@  14 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                            
@  15 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                            
@  16 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                         
@  17 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                           
@  18 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                           
@  19 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                         
@  20 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                 
@  21 , 1  say'      °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'                                                            
@  22 , 1  say'      '                                                          
?'       ' 
?'                           СЕГОДHЯ: '+dtoc(date())+''
RETU
         **** процедур  выход  в FOXPRO *****
proc cancel
define window vf from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vf in w5 
A= 0 
B= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU
          **** Процедур  поиск  ****
PROC PO
define window find from  1 , 1  to  23 ,  60  title ;
'
...поиск...' double 
acti wind find
store SPACE( 15 ) to U
@  17 , 10  say'ESC-Выход'
@  1 , 9  say'Инв.ь,процессор или р бочее место:' get U  picture  ('xxxxxxxxxxxxxxx')
@  4 , 12  say'      Где иск ть?'
read
k= 0 
@  5 , 5   prompt 'БД Х р ктеристик  компов'
@  7 , 5   prompt 'БД Д нные о ПК'
@  9 , 5   prompt 'БД Мониторы '
@  11 , 5  prompt 'БД Амортиз ция з  прошлый месяц'
@  13 , 5  prompt 'БД Амортиз ция з  отчетный месяц'
@  15 , 5  prompt '         Отмен        '
menu to k
do case
case k= 1 
use C:\FOXPRO\agu\har.dbf
brow title 'Х р ктеристик  компов';
field invn:h='Инв.ь',;
video:H='Видеок рт ',;
cpu:H='Процессор',;
hdd:H='Ж.диск',;
ram:H='ОЗУ',;
npk:H='ь ПК',;
rabm:H='Р б.место' FOR cpu=U .OR. U=invn.OR.u=rabm

case k= 2 
use C:\FOXPRO\agu\b.dbf
brow title 'Д нные о ПК';
field invn:H='Инвент.ь',;
ps:H='Первон ч.ст-сть',;
dve:H='Д т  ввод  в экс-ию',;
spi:H='Срок полез.исп.' FOR U=invn

case k= 3 
use C:\FOXPRO\agu\mon.dbf
brow title 'Мониторы';
field INVM:H='Инв.ь монитор ',;
naim:H='Н именов ние',;
invn:H='Инв.ь сист.блок ',;
RABM:H='Р бочее место',;
thar:h='Тех.х р-ки' FOR U=invn.OR.u=rabm

case k= 4 
use C:\FOXPRO\agu\bd3.dbf
brow title 'Амортиз ция з  прошлый месяц' FIEL n:H='Аморт.з  прошл.мес.',amm1:H='Аморт.з  мес.',;
am1:H='Аморт.включ я отчетн.мес.',invn:H='Инвент.номер' FOR U=invn
case k= 5 
use C:\FOXPRO\agu\bd4.dbf
brow title 'Амортиз ция з  отчетный месяц';
fields n:H='Аморт.з  прошл.мес.',;
amm1:H='Аморт.з  мес.',;
am1:H='Аморт.включ я отчетн.мес.',;
invn:H='Инвент.номер' FOR U=invn
case k= 6 
deacti wind find
endcase
do wixod 
retu
proc wixod
define window w1 from  7 ,  25  to  12 ,  55  ;
double color scheme  9 
acti wind w1
k= 0 
@  1 , 2  say'     Продолжить поиск? '
@  3 , 2   prompt'  Нет   '
@  3 , 20  prompt'  Д     '
menu to k
do case
case k= 1 
hide wind w1
deacti wind w1
do po
case k= 2 
deacti wind w1
deacti wind find
close data
endcase
retu    
           **** процедур  выход  в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vnc
A= 0 
b= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU
******
proc nd
close all
set talk off
clear
DEFI WINDOW W1 FROM  9 , 13  TO  13 , 64  title"КОПИРОВАНИЕ"DOUBLE SHADOW COLOR  0 / 5 , 1 / 2 , 3 / 4 
acti wind w1 in w5
i= 1 
I1= 0 
@ 1 , 0  SAY '                                                 'color N/n
do while i< 49 
@ 1 ,i say ''  color b+/n
@ 1 , 0  get i1 pict '999'+'%'
=inkey( 0 . 0001 )
i=i+ 1 
I1=I1+ 2 . 16 
enddo
deac wind w1
clear
           **** процедур  печ ти ****
PROCEDURE pech1
type C:\FOXPRO\AGU\VED.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p2
type C:\FOXPRO\AGU\AM.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p3
type C:\FOXPRO\AGU\MONITOR.TXT to print
CLEAR
CLOSE ALL
retur
PROCEDURE p4
type C:\FOXPRO\AGU\DROS1.TXT to print
CLEAR
CLOSE ALL
retur