@ 3.615,66.000 EDIT zayav.fio SIZE 1.000,23.600,15.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)
@ 5.231,20.000 EDIT zayav.town SIZE 1.000,17.000,0.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)
@ 5.154,43.000 EDIT zayav.street SIZE 1.000,17.800,20.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)
@ 5.154,67.400 EDIT zayav.house SIZE 1.000,7.600,3.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 5.154,80.400 EDIT zayav.flat SIZE 1.000,9.200,3.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 7.923,66.800 EDIT zayav.kind SIZE 1.000,22.800,12.000 ;
DEFAULT " " FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 9.308,66.800 EDIT zayav.discipline SIZE 1.000,22.800,15.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 10.692,66.800 EDIT zayav.time SIZE 1.000,22.800,25.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 12.077,66.800 EDIT zayav.uslov_rab SIZE 1.000,22.800,15.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 13.462,66.800 EDIT zayav.uslov_opl SIZE 1.000,22.800,10.000 DEFAULT " " ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 14.923,66.800 GET zayav.oklad SIZE 1.000,22.200 DEFAULT 0 ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 16.385,66.800 GET zayav.date SIZE 1.000,22.200 DEFAULT { / / } ;
FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)
@ 0.308,38.200 SAY "№" FONT "Times New Roman Cyr", 8 STYLE "T" COLOR RGB(,,,255,255,255)
@ 0.308,41.600 SAY zayav.number SIZE 1.000,11.000 FONT "MS Sans Serif", 8 COLOR RGB(,,,255,255,255)
@ 6.692,1.000 SAY "Контактный телефон...................................................................." ;
FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)
@ 6.538,66.600 EDIT zayav.phone SIZE 1.000,23.000,8.000 DEFAULT " " ;
FONT "Arial Cyr", 8 COLOR ,RGB(,,,255,255,255)
@ 18.923,1.200 EDIT zayav.dop_sved SIZE 2.000,88.200,0.000 DEFAULT " " ;
FONT "MS Sans Serif", 8 SCROLL COLOR ,RGB(,,,255,255,255)
@ 17.769,1.200 SAY "Дополнительные сведения:" FONT "Arial Cyr", 8 STYLE "IT"
@ 2.385,0.800 SAY "Номер текущей записи..................................................................." ;
FONT "Arial Cyr", 8 STYLE "IT"
@ 2.231,66.000 SAY STR(RECNO(),4)+" из "+STR(RECCOUNT(),4) SIZE 1.000,23.200 FONT "Arial Cyr", 8 ;
STYLE "I" PICTURE "@TJ" COLOR RGB(,,,255,255,255)
@ 21.462,0.600 TO 24.539,90.200 PATTERN 1 PEN 2, 8 STYLE "T" COLOR RGB(255,0,255,255,255,0)
@ 21.846,10.600 GET act3 PICTURE "@*HN Начало;Назад;Вперёд;Конец;Выход" SIZE 2.385,10.000,2.000 ;
DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "B" VALID _rkg0nr9rc()
IF NOT WVISIBLE("zayav")
ACTIVATE WINDOW zayav
ENDIF
READ CYCLE ;
SHOW _rkg0nr9yl()
RELEASE WINDOW zayav
#REGION 0
SET readborder &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* * _RKG0NR9RC ACT3 VALID
*!*****************************************************************************
*! Function: _RKG0NR9RC
*! Called by: SEEZAYAV.SPR
*!****************************************************************************
FUNCTION _rkg0nr9rc && ACT3 VALID
#REGION 1
SELECT 2
DO CASE
CASE act3 = 1
GO TOP
CASE act3 = 2
IF !BOF()
SKIP -1
ENDIF
IF BOF()
WAIT WINDOW "Достигнуто начало файла" NOWAIT
GOTO 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
bailout = .T.
CLEAR READ
ENDCASE
SHOW GETS
* *********************************************************
* * _RKG0NR9YL Read Level Show
* * Called By: READ Statement
* * Snippet Number: 2
* *********************************************************
*!*****************************************************************************
*! Function: _RKG0NR9YL
*! Called by: SEEZAYAV.SPR
*!*****************************************************************************
FUNCTION _rkg0nr9yl && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
* Show Code from screen: SEEZAYAV
#REGION 1
IF SYS(2016) = "ZAYAV" OR SYS(2016) = "*"
ACTIVATE WINDOW zayav SAME
@ 0.308,41.600 SAY zayav.number SIZE 1.000,11.000, 0.000 FONT "MS Sans Serif", 8 ;
COLOR RGB(,,,255,255,255)
@ 2.231,66.000 SAY STR(RECNO(),4)+" из "+STR(RECCOUNT(),4) ;
SIZE 1.000,23.200, 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
*: EOF: SEEZAYAV.SPR
Ввиду однотипности технологии разработки экранных форм, листинги остальных файлов экранных форм (файлы с расширением .spr не приводятся).
Номер варианта N выбирается по формуле:
N=(K*KB) div 100,
где:
K – две последние цифры пароля;
KB – общее количество вариантов;
div – целочисленное деление (полученный в результате вычисления формулы остаток отбрасывается без округления).
В случае если в результате расчета получается 0 – выполняется вариант №10
Вариант 1
Система «КАДРЫ»
В системе должны редактироваться атрибуты служащих и отделов, поиск служащих по фамилии, выбор служащих по величине зарплаты. В отделе могут работать несколько служащих.
Вариант 2
Системам «Библиография»
Система предназначена для хранения и выдачи информации о книгах: автор, название, выходные данные. Система должна обеспечивать: ввод и редактирование данных о книгах, выдачу списка книг по заданной тематике, поиск книг по одному из заданных реквизитов (автор, название).
Вариант 3
Система «Телефонный справочник»
Система предназначена для хранения информации о телефонах двух групп абонентов: организации и физические лица. Система должна обеспечивать:
выдачу списка абонентов любой группы на заданную начальную букву фамилии или названия организации, ввод и редактирование данных.
Вариант 4
Система «Справочная система аэропорта»
Система содержит информацию обо всех авиарейсах: номер рейса, пункт назначения, пункты посадки, стоимость билета и др. Система должна обеспечивать редактирование данных и выдачу информации по пункту назначения или списка рейсов в алфавитном порядке.
Вариант 5
Система «Турист»
Система содержит информацию о туристических маршрутах (страна, время пребывания, цена, условия проживания и др.). Система должна обеспечивать просмотр маршрутов, подбор по ряду условий.
Вариант 6
Система «Справочник предприятий города»
Система содержит информацию о предприятиях. Поиск можно осуществлять по специализации предприятия (торговые, производственные и др). Предусмотреть возможность выбора предприятия по признаку местоположения, времени работы и т.д.
Вариант 7
Система «Поликлиника»
Данные организовать в виде сведений о пациентах и медперсонале. У одного врача может быть несколько пациентов. В системе должна быть обеспечена фильтрация пациентов по видам заболеваний.
Вариант 8
Система «Подписка»
Данные организовать в виде сведений о подписчике и переодических изданиях. В системе реализовать поиск по фамилии, адресу подписчика, фильтрация подписчикав по конкретному переодическому изданию.
Вариант 9
Система «Агенство занятости населения»
Система должна содержать сведенгия о предприятиях и безработных. В системе обеспечить редактирование параметров безработного и предприятия. Поиск предприятия по условиям безработного.
Вариант 10
Система «Фильмотека»
Система предназначена для хранения и выдачи информации о видеофильмах: название, жанр, продолжительность, страна-производитель и др. Система должна обеспечить поиск фильма по заданному ключу, выдачу списка фильмов.