MENI (Автоматизированное рабочее место)
Описание файла
Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "MENI"
Текст из документа "MENI"
Стартующий файл – MENI.PRG
***********************************************************************
** Основной загрузочный модуль **
***********************************************************************
SET ESCAPE OFF
CLEAR MACROS
SET DELETE ON
SET SAFETY OFF
SET DATE GERMAN
SET HEADING OFF
SET TALK OFF
SET STATUS OFF
SET CENTURY ON
SET COLOR OF SCHEME 12 TO N/W,GR/W, GR+/B,GR+/B,GR+/B,GR/N,GR/W,GR/W,GR/W,GR/W
SET COLOR OF SCHEME 14 TO N/W,GR/W, N/W, N/W,GR/W,W/GR,GR/W,GR/W,GR/W,W+/W
SET COLOR OF SCHEME 15 TO W/B,W/BG, N/W, N/W,GR/W,W/GR+,GR/W,GR/W,GR/W,B/W+
SET COLOR OF SCHEME 16 TO W+/BG,W+/BG, R/BG,N/BG,W+/BG,W+/GR,W+/BG,W+/BG,W+/BG,N/BG
SET COLOR OF SCHEME 17 TO N/G,B/W+, N/W, N/W,GR/W,W/GR+,GR/W,GR/W,GR/W,W/BG
SET COLOR OF SCHEME 18 TO W+/B,N/W, N/W, N/W,GR/W,B/W,B/W,GR/W,GR/W,B/W+
SET COLOR OF SCHEME 19 TO GR+/RB,W+/R, N/R, N/R,GR/W,B/R,GR/W,GR/W,N/R,W+/RB
SET PROC TO FUNC
ON ERROR DO EROR WITH ERROR()
DO open
PUBLIC _PAD_OTCH, _REC,_FILTR,
DIMENSION mes(4,3)
mes(1,1)='Январь'
mes(1,2)='Февраль'
mes(1,3)='Март'
mes(2,1)='Апрель'
mes(2,2)='Май'
mes(2,3)='Июнь'
mes(3,1)='Июль'
mes(3,2)='Август'
mes(3,3)='Сентябрь'
mes(4,1)='Октябрь'
mes(4,2)='Ноябрь'
mes(4,3)='Декабрь'
mess=month(date())
_tel=0 && телефон
_pod=SPACE(15) && подпись
_rad=0 && радио-точка
_kom=0 && коммунальные услуги
_gor_w=0 && горячая вода
_xol_w=0 && холодная вода
_otopl=0 && отопление
_elek=0 && электро-энергия
_kv_pl=0 && квартплата
avs=.f. && автосохранение в функции ввода оплаты
IF FILE('M_ZAR.MEM')
RESTORE FROM m_zar ADDITIVE
ENDIF
_POS_CH=.T. && Переменная для формирования отчета
***(Принимает значение - .F. в процедуре ДОПОЛНЕНИЕ/ИЗМЕНЕНИЕ
*** в процедуре РАСЧЕТА(СЛИЯНИЯ) принимает значение - .T.)
_REC=RECNO()
_FILTR=1
***********************************************************************
** Определение окон **
***********************************************************************
DEFINE WINDOW poisk SHADOW FROM 15,20 TO 18,50;
TITLE 'Укажите ключ'
DEFINE WINDOW kdr FROM 1,0 TO 20,80 DOUBLE;
FOOTER 'F3 - Меню F5 - Поиск' COLOR W+/B,N/BG,n/w,W+/W+,N+/GR,N/BG,N/BG,N/BG,N/BG,N/BG
DEFINE WINDOW INS FROM 0,0 TO 24,80 GROW MINIMIZE FLOAT;
FOOTER 'F1 - помощь' COLOR SCHEME 12
DEFINE WINDOW vib FROM 8,14 TO 16,57 SHADOW COLOR SCHEME 7
***********************************************************************
** Определение меню **
***********************************************************************
DEFINE MENU ZAR KEY F3
DEFINE PAD kadr OF zar PROMPT '\<Кадры';
message 'Работа с картотекой'
DEFINE PAD norm OF zar PROMPT '\<Нормативы';
message 'Ввод\просмотр нормативно-справочной информации'
DEFINE PAD prin OF zar PROMPT '\<Просмотр';
message 'БУХГАЛТЕРСКАЯ информация'
DEFINE PAD print OF zar PROMPT 'П\<ечать'
DEFINE PAD serv OF zar PROMPT '\<Сервис'
DEFINE PAD ras OF zar PROMPT '\<Расчет';
MESSAGE 'Расчет услуг'
DEFINE PAD help OF zar PROMPT 'П\<омощь';
MESSAGE 'Нажмите - F1'
DEFINE PAD konec OF zar PROMPT '\<Выход';
MESSAGE 'Выход из системы'
ON SELECTION PAD kadr OF zar activate popup kadr
ON SELECTION PAD prin OF zar ACTIVATE POPUP viev
ON SELECTION PAD print OF zar ACTIVATE POPUP prin_t
ON SELECTION PAD serv OF zar ACTIVATE POPUP serv
ON SELECTION PAD ras OF zar ACTIVATE POPUP ras
ON SELECTION PAD help OF zar ACTIVATE POPUP hlp
ON SELECTION PAD konec OF zar do QUIT
DEFINE POPUP KADR FROM 1,0 SHADOW
DEFINE BAR 1 OF kadr PROMPT '\<Работа с картотекой'
DEFINE BAR 2 OF kadr PROMPT 'К\<вартиросъемщики'
DEFINE BAR 3 OF kadr PROMPT '\<Картотека льготников'
DEFINE BAR 4 OF kadr PROMPT '\<База жильцов'
DEFINE BAR 5 OF kadr PROMPT 'Вв\<од данных счетчика'
DEFINE BAR 6 OF kadr PROMPT '\<Ввод оплаты'
ON SELECTION BAR 1 OF kadr DO pos_ch
ON SELECTION BAR 2 OF kadr DO kdr_r IN bazes
ON SELECTION BAR 3 OF kadr DO kdr_l IN bazes
ON SELECTION BAR 4 OF kadr DO baza IN bazes
ON SELECTION BAR 5 OF kadr DO ent_sch IN bazes
ON SELECTION BAR 6 OF kadr DO ent_opl IN bazes
DEFINE POPUP VIEV FROM 1,8 color scheme 1 SHADOW
DEFINE BAR 1 OF viev PROMPT 'Списки по начислению'
DEFINE BAR 2 OF viev PROMPT 'Списки по льготам'
DEFINE BAR 3 OF viev PROMPT 'Списки с показаниями счетчика'
DEFINE BAR 4 OF viev PROMPT 'Оплата э\энергии по квартиросъёмщикам'
DEFINE BAR 5 OF viev PROMPT 'Сальдо по квартиросъемщикам'
DEFINE BAR 6 OF viev PROMPT 'Свод по квартплате за месяц'
ON SELECTION BAR 1 OF viev DO SP_NACH IN OTCHET
ON SELECTION BAR 2 OF viev DO SP_lg_kw IN OTCHET
ON SELECTION BAR 3 OF viev DO SP_SCHET IN OTCHET
ON SELECTION BAR 4 OF viev DO SP_SCHET_PL IN OTCHET
ON SELECTION BAR 5 OF viev DO SP_OST IN OTCHET
ON SELECTION BAR 6 OF viev DO SVOD IN OTCHET
DEFINE POPUP prin_t FROM 1,16 PROMPT FILES LIKE *-1.TXT SHADOW;
MESSAGE 'Enter - Просмотр,Space - Печать'
ON SELECTION POPUP prin_t DO print3 WITH PROMPT(),LASTKEY()
DEFINE POPUP serv FROM 1,26 SHADOW
DEFINE BAR 1 OF SERV PROMPT '\<Дополнение'
DEFINE BAR 2 OF SERV PROMPT 'Дополнение \<льгот'
DEFINE BAR 3 OF SERV PROMPT '\<Тарифы'
DEFINE BAR 4 OF serv PROMPT '\<Нормы оплаты услуг'
DEFINE BAR 5 OF SERV PROMPT '\-'
DEFINE BAR 6 OF serv PROMPT 'Упаковка данных';
MESSAGE 'Сжатие и переиндексация данных' color ,r/w
DEFINE BAR 7 OF SERV PROMPT 'Переиндексация' color ,r/w
ON SELECTION BAR 1 OF serv DO ins WITH 1 IN add_del
ON SELECTION BAR 2 OF serv DO ins_lg IN add_del
ON SELECTION BAR 3 OF serv DO TARIFS_zar
ON SELECTION BAR 4 OF serv DO norms IN bazes
ON SELECTION BAR 6 OF serv DO SERV
ON SELECTION BAR 7 OF serv DO P_INDEX
DEFINE POPUP ras FROM 1,35 SHADOW
DEFINE BAR 1 OF ras PROMPT '\<Расчет квартплаты'
DEFINE BAR 2 OF ras PROMPT 'Р\<аcчет по льготам'
DEFINE BAR 3 OF ras PROMPT '\-'
DEFINE BAR 4 OF ras PROMPT '\<Слияние квартплаты с льготами'
ON SELECTION BAR 1 OF ras DO ras in ras
ON SELECTION BAR 2 OF ras DO ras_l in ras
ON SELECTION BAR 4 OF ras DO ras_i in ras
DEFINE POPUP hlp FROM 1,44 SHADOW
DEFINE BAR 1 OF hlp PROMPT '\<Помощь'
DEFINE BAR 2 OF hlp PROMPT '\<Справка'
ON SELECTION BAR 1 OF HLP DO HELP WITH 6
ON SELECTION BAR 2 OF HLP DO HELP WITH 3
DEFINE POPUP poisk FROM 3,14 TITLE;
'Выберите критерий поска' shadow
DEFINE BAR 1 OF poisk PROMPT 'По фамилии'
DEFINE BAR 2 OF poisk PROMPT 'По табелю'
DEFINE BAR 3 OF poisk PROMPT 'По адресу'
DEFINE BAR 4 OF poisk PROMPT 'Отмена сортировки';
COLOR ,R/W
ON SELECTION POPUP poisk DO poisk
DEFINE POPUP FAMIL FROM 7,0 TITLE;
'-------Ф-А-М-И-Л-И-Я----------------|-Льгота-|-Пл-к';
PROMPT FIELD LEFT(FAM,38)+'|'+IIF(LGOT=.T.,' ДА ',' ---- ')+;
'|'+IIF(OR_R=1,' v ',' ') COLOR SCHEME 16
ON SELECTION POPUP FAMIL DEACTIVATE POPUP FAMIL
ACTIVATE MENU ZAR
П риложение № 1.1
- 4 -