* 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)