Разработка базы данных "Кадры" — страница 13

сотруднику Если номер экрана больше 5, то управление передается экрану №1. Если номер экрана меньше 1, то управление передается экрану №5. Подобная же схема действует и на выбор следующего или предыдущего сотрудника. <НАЙТИ> - позволяет не перебирать сотрудников по порядку, а сразу выбрать его из списка. <ПЕЧАТЬ> - выводит на печать все данные о текущем сотруднике. <ВЫХОД> - возврат в главное меню. Кроме данных опций, экраны

содержат дополнительно опции, позволяющие просмотреть связанную с ними дополнительную информацию. На каждом экране эти опции разные. С правой части от опции - выводится количество записей в разделе. Все опции описаны LIGHTBAR-меню. При выборе некоторой опции происходит выход из текущего модуля WIEVn с возвращением списка переменных в модуль R_W.PRG. В соответствии со значением переменных, управление передается тому или иному модулю.

Переменная Значение Условие на выполнение Действие Выбрано не выбрано up 1 5 Up=1 list=list+1 (затем в соответствии со значением list запускается один из модулей WIEV.PRG) down 1 5 Down=1 list=list-1 (затем в соответствии со значением list запускается один из модулей WIEV.PRG) previos 1 5 Previos=1 SKIP –1 (затем в соответствии со значением list запускается один из модулей WIEV.PRG (при этом меняется сотрудник)) next 1 5 Next=1 SKIP 1 (затем в соответствии со значением list запускается один из

модулей WIEV.PRG (при этом меняется сотрудник)) find 1 5 Find=1 DO search.prg WITH orgnum1, edit (переменная orgnum1 необходима для связи с ключом, переменная edit разрешает (edit=.t.) или запрещает (edit=.f.) редактирование поля) print 1 5 Print=1 DO print.prg exit 1 5 Exit=1 END DO (возвращение в вышестоящий модуль и затем в модуль с главным меню START.PRG) eduadd 1 5 Eduadd=1 DO educat.prg WITH orgnum1, edit forlang 1 5 Forlang=1 DO language.prg WITH orgnum1, edit conv 1 5 Conv=1 DO convict.prg WITH orgnum1, edit structfam 1 5 Structfam=1 DO family.prg WITH orgnum1, edit bok 1 5 Bok=1 DO workcard.prg WITH

orgnum1, edit purpos 1 5 Purpos=1 DO move.prg WITH orgnum1, edit qualcateg 1 5 Qualcateg=1 DO qualif.prg WITH orgnum1, edit tripsbus 1 5 Tripsbus=1 DO bus_trip.prg WITH orgnum1, edit holid 1 5 Holid=1 DO holiday.prg WITH orgnum1, edit pass 1 5 Pass=1 DO passport.prg WITH orgnum1, edit Модули BUS_TRIP.PRG, CONVICT.PRG, EDUCAT.PRG, FAMILY.PRG, HOLIDAY.PRG, LANGUAGE.PRG, MOVE.PRG, QUALIF.PRG, WORKCARD.PRG, формируют BROWSE-окна для отображения дополнительной информации. PASSPORT.PRG формирует GET-поля. Модуль PRINT выводит все анкетные данные сотрудника на печать. Модуль SEARCH.PRG позволяет выбрать нужного сотрудника. Этот

модуль вызывается как из R_W.PRG, так и из REFEREN.PRG. Чтобы удалить анкетные данные сотрудника(ов) из базы, следует выбрать пункт подменю <Удаление>. При этом запускается модуль DEL_REC.PRG позволяющий нажатием клавиш Ctrl+T пометить к удалению сотрудника(ов). Можно отменить метку, повторно нажав Ctrl+T. Эти действия реализует модуль DL_UNDL.PRG путем пометки к удалению/снятия пометки к удалению во всех таблицах записей, имеющих то же значение ORG_NUM,