Смекни!
smekni.com

Описание прикладной программы 17 6 Заключение 19 Список использованных источников 20 Приложение а древообразная структура запуска файлов, процедур и функций 21 (стр. 6 из 7)

* Prompt: Ввод новых предложений

* Snippet: 8

*********************************************************

PROCEDURE _rkp12z3xg

SELECT 1

APPEND BLANK

GO BOTTOM

DO predl.spr


Приложение Г

(обязательное)

Листинг файла Seepredl.SPR

* *********************************************************

* * 18/05/97 SEEPREDL.SPR 18:05:46

* *********************************************************

#REGION 0

REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"

SET TALK OFF

m.talkstat = "ON"

ELSE

m.talkstat = "OFF"

ENDIF

m.compstat = SET("COMPATIBLE")

SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")

SET READBORDER ON

* *********************************************************

* * SEEPREDL/Windows Databases, Indexes, Relations

* *********************************************************

IF USED("predl")

SELECT predl

SET ORDER TO 0

ELSE

SELECT 0

USE (LOCFILE("predl.dbf","DBF","Where is predl?"));

AGAIN ALIAS predl ;

ORDER 0

ENDIF

IF USED("zayav")

SELECT zayav

SET ORDER TO 0

ELSE

SELECT 0

USE (LOCFILE("zayav.dbf","DBF","Where is zayav?"));

AGAIN ALIAS zayav ;

ORDER 0

ENDIF

SELECT predl

* *********************************************************

* * Windows Window definitions

* *********************************************************

IF NOT WEXIST("spredl") ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.PJX" ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.SCX" ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.MNX" ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.PRG" ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.FRX" ;

OR UPPER(WTITLE("SPREDL")) == "SPREDL.QPR"

DEFINE WINDOW spredl ;

AT 0.000, 0.000 ;

SIZE 30.385,92.400 ;

TITLE "АНКЕТА" ;

FONT "MS Sans Serif", 8 ;

FLOAT ;

NOCLOSE ;

MINIMIZE ;

SYSTEM

MOVE WINDOW spredl CENTER

ENDIF

* *********************************************************

* * SEEPREDL/Windows Screen Layout

* *********************************************************

#REGION 1

IF WVISIBLE("spredl")

ACTIVATE WINDOW spredl SAME

ELSE

ACTIVATE WINDOW spredl NOSHOW

ENDIF

@ 27.231,1.400 TO 30.231,91.000 ;

PATTERN 1 ;

PEN 2, 8 ;

STYLE "T" ;

COLOR RGB(255,0,255,255,255,0)

@ 0.000,17.200 SAY "для граждан, предоставляющих услуги." ;

PICTURE "@I" FONT "Courier New Cyr", 10 STYLE "IT"

@ 3.000,1.600 SAY "Фамилия, инициалы........................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 5.692,2.400 SAY "Адрес: город" FONT "Arial Cyr", 8 STYLE "IT"

@ 5.538,40.600 SAY "ул." FONT "Arial Cyr", 8 STYLE "IT"

@ 5.615,63.400 SAY "дом" FONT "Arial Cyr", 8 STYLE "IT"

@ 5.615,78.200 SAY "кв." FONT "Arial Cyr", 8 STYLE "IT"

@ 4.231,2.200 SAY "Дата рождения..............................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 7.077,2.400 SAY "Образование...................................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 10.231,2.400 SAY "Вид услуг (няня, воспитатель, репетитор).............................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 8.692,2.400 SAY "Стаж в сфере гувернёрства........................................................" ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 13.077,2.800 SAY "Занятость (полная / частичная)................................................" ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 14.615,3.000 SAY "Дополнительные услуги..............................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 11.692,2.800 SAY "Дисциплина обучения...................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 16.077,3.000 SAY "Условия работы (территория)..................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 17.615,2.600 SAY "Условия оплаты (почасовая, оклад, др.)....................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 20.692,2.400 SAY "Возраст ребёнка..........................................................................с" ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 20.615,78.000 SAY "до" FONT "Arial Cyr", 8 STYLE "IT"

@ 19.231,2.800 SAY "Требуемый размер тарифа оплаты..........................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 2.692,66.800 EDIT Predl.fio

SIZE 1.000,23.400,15.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 4.077,67.000 GET Predl.birth ;

SIZE 1.000,22.600 ;

DEFAULT { / / } ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

PICTURE "@E" ;

COLOR ,RGB(,,,255,255,255)

@ 5.615,21.600 EDIT Predl.town ;

SIZE 1.000,17.000,0.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 5.538,44.600 EDIT Predl.street ;

SIZE 1.000,16.400,12.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 5.538,69.000 EDIT Predl.house ;

SIZE 1.000,7.600,3.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 5.538,81.600 EDIT Predl.flat ;

SIZE 1.000,8.600,3.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 7.000,67.400 EDIT Predl.education ;

SIZE 1.000,22.800,15.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 8.538,67.400 EDIT Predl.stag ;

SIZE 1.000,22.800,2.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 10.000,67.600 EDIT Predl.kind ;

SIZE 1.000,22.600,12.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 11.385,67.600 EDIT Predl.discipline ;

SIZE 1.000,22.600,15.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 12.846,67.600 EDIT Predl.zanyatost ;

SIZE 1.000,22.600,10.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 14.308,67.800 EDIT Predl.dop_uslug ;

SIZE 1.000,22.400,15.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 15.846,67.800 EDIT Predl.uslov_rab ;

SIZE 1.000,22.400,15.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 17.538,68.000 EDIT Predl.uslov_opl ;

SIZE 1.000,22.200,10.000 ;

DEFAULT " " ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 19.154,67.800 GET Predl.oklad ;

SIZE 1.000,21.800 ;

DEFAULT 0 ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 20.615,67.800 GET Predl.age_min ;

SIZE 1.000,8.000 ;

DEFAULT 0 ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 20.615,82.000 GET Predl.age_max ;

SIZE 1.000,7.600 ;

DEFAULT 0 ;

FONT "Arial Cyr", 8 ;

STYLE "I" ;

COLOR ,RGB(,,,255,255,255)

@ 22.077,2.800 SAY "Пол ребёнка....................................................................................." ;

FONT "Arial Cyr", 8 ;

STYLE "IT"

@ 24.769,3.200 EDIT Predl.dop_sved ;

SIZE 2.000,86.800,0.000 DEFAULT " " FONT "MS Sans Serif", 8 SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 23.385,3.000 SAY "Дополнительные сведения:" ;

FONT "Arial Cyr", 8 ;

STYLE "IT"

@ 27.615,11.400 GET ACT3 ;

PICTURE "@*HN Начало;Назад;Вперёд;Конец;Выход" ;

SIZE 2.385,10.000,2.000 ;

DEFAULT 1 ;

FONT "MS Sans Serif", 8 ;

STYLE "B" ;

VALID _rkp12scvj()

@ 1.538,1.600 SAY "Номер текущей записи..................................................................." ;

FONT "Arial Cyr", 8 ;

STYLE "IT"

@ 1.308,66.800 SAY STR(recno(),4)+" из "+str(reccount(),4) ;

SIZE 1.000,22.800 FONT "Arial Cyr", 8 STYLE "I" PICTURE "@TJ" COLOR RGB(,,,255,255,255)

IF NOT WVISIBLE("spredl")

ACTIVATE WINDOW spredl

ENDIF

READ CYCLE ;

SHOW _rkp12sd64()

RELEASE WINDOW spredl

#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"

SET TALK ON

ENDIF

IF m.compstat = "ON"

SET COMPATIBLE ON

ENDIF

* *********************************************************

* * _RKP12SCVJ ACT3 VALID

* *********************************************************

FUNCTION _rkp12scvj && ACT3 VALID

#REGION 1

DO CASE

CASE act3 = 1

GO TOP

CASE act3 = 2

IF !BOF()

SKIP -1

ENDIF

IF BOF()

WAIT WINDOW "Достигнуто начало файла" NOWAIT

GO TOP

ENDIF

CASE act3 = 3

IF !EOF()

SKIP 1

ENDIF

IF EOF()

WAIT WINDOW "Достигнут конец файла" NOWAIT

GOTO BOTTOM

ENDIF

CASE act3 = 4

GO BOTTOM

CASE act3 = 5

CLEAR READ

ENDCASE

SHOW GETS

* *********************************************************

* * _RKP12SD64 Read Level Show

* *********************************************************

FUNCTION _rkp12sd64 && Read Level Show

PRIVATE currwind

STORE WOUTPUT() TO currwind

* Show Code from screen: SEEPREDL

#REGION 1

IF SYS(2016) = "SPREDL" OR SYS(2016) = "*"

ACTIVATE WINDOW spredl SAME

@ 1.308,66.800 SAY STR(recno(),4)+" из "+str(reccount(),4) ;

SIZE 1.000,22.800, 0.000 FONT "Arial Cyr", 8 STYLE "I" PICTURE "@TJ" ;

COLOR RGB(,,,255,255,255)

ENDIF

IF NOT EMPTY(currwind)

ACTIVATE WINDOW (currwind) SAME

ENDIF


Приложение Д

(обязательное)

Листинг файла Seezayav.SPR

* *********************************************************

* * 09/05/97 SEEZAYAV.SPR 11:05:01

* *********************************************************

#REGION 0

REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"

SET TALK OFF

m.talkstat = "ON"

ELSE

m.talkstat = "OFF"

ENDIF

m.compstat = SET("COMPATIBLE")

SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")

SET READBORDER ON

* *********************************************************

* * SEEZAYAV/Windows Databases, Indexes, Relations

* *********************************************************

IF USED("predl")

SELECT predl

SET ORDER TO 0

ELSE

SELECT 0

USE (LOCFILE("predl.dbf","DBF","Where is predl?"));

AGAIN ALIAS predl ;

ORDER 0

ENDIF

IF USED("zayav")

SELECT zayav

SET ORDER TO 0

ELSE

SELECT 0

USE (LOCFILE("zayav.dbf","DBF","Where is zayav?"));

AGAIN ALIAS zayav ;

ORDER 0

ENDIF

SELECT predl

* *********************************************************

* * Windows Window definitions

* *********************************************************

IF NOT WEXIST("zayav") ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.PJX" ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.SCX" ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.MNX" ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.PRG" ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.FRX" ;

OR UPPER(WTITLE("ZAYAV")) == "ZAYAV.QPR"

DEFINE WINDOW zayav AT 4.667, 0.000 SIZE 24.692,91.400 ;

TITLE "ЗАЯВКА НА УСЛУГИ АГЕНТСТВА" ;

FONT "MS Sans Serif", 8 FLOAT NOCLOSE MINIMIZE SYSTEM

MOVE WINDOW zayav CENTER

ENDIF

* *********************************************************

* * SEEZAYAV/Windows Screen Layout

* *********************************************************

#REGION 1

IF WVISIBLE("zayav")

ACTIVATE WINDOW zayav SAME

ELSE

ACTIVATE WINDOW zayav NOSHOW

ENDIF

@ 3.923,0.400 SAY "Фамилия, инициалы........................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 5.308,0.800 SAY "Адрес: город" FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 5.154,39.000 SAY "ул." FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 5.231,61.800 SAY "дом" FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 5.231,76.600 SAY "кв." FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 8.000,1.200 SAY "Вид услуг (няня, воспитатель, репетитор).............................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 10.923,1.600 SAY "Время работы................................................................................" ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 9.385,1.000 SAY "Дисциплина обучения....................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 12.308,1.800 SAY "Условия работы (территория)..................................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 13.538,1.400 SAY "Условия оплаты (почасовая, оклад, др.)....................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 16.462,1.000 SAY "Дата заполнения............................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 15.000,1.600 SAY "Требуемый размер тарифа оплаты............................................" ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)