Разработка базы данных Кадры
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
" TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE "* СЛЕДУЮЩАЯ " TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПРЕДЫДУЩАЯ" TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* НАЙТИ " TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПЕЧАТЬ" TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
STORE "* ВЫХОД" TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLE
RETURN
WIEV3.PRG
PARAMETER edit
ACTIVATE WINDOW win1
CLEAR
eduadd=5
forlang=5
conv=5
structfam=5
pass=5
bok=5
purpos=5
qualcateg=5
tripsbus=5
holid=5
@ 1,1 SAYПенсионер?:__________________
@ 2,1 SAYУчастник войны?:_____________
@ 3,1 SAYДомашний индекс:_____________
@ 4,1 SAYРайон:_______________________
@ 5,1 SAYОбласть:_____________________
@ 6,1 SAYДомашний адрес:______________
@ 7,1 SAYДомашний телефон:____________
@ 9,1 SAYВоинская обязанность:________
@ 10,1 SAYВоинское звание:_____________
@ 11,1 SAYНомер ВУС:___________________
@ 12,1 SAYВоенный билет:_______________
@ 13,1 SAYГодность к военной службе:___
@ 14,1 SAYОтношение к бронированию:____
@ 15,1 SAYНаличие моб. предписания:____
@ 18,4 SAYЛИСТАТЬ
@ 18,29 SAYЗАПИСЬ
@ 16,0,16,77 BOX
@ 17,26,19,26 BOX
@ 17,52,19,52 BOX
STORE 6 TO pensioner, ;
partic_war,post_index,region,area,address,telephone, ;
pass,passport,conscript,milit_rank,number,mil_ticket,;
mil_valid,attitude,mobile_ins,up,down,next,previos,find,print,exit
@ 1,30 GET pensioner VALID pensioner=дOR pensioner=ДOR ;
pensioner=нOR pensioner=Н ERROR Только [Д]а или [Н]ет ;
SIZE 1,1 WHEN edit=.t. COLOR SCHEME 2
@ 2,30 GET partic_war VALID partic_war=дOR partic_war=ДOR ;
partic_war=нOR partic_war=Н ERROR Только [Д]а или [Н]ет ;
SIZE 1,1 WHEN edit=.t. COLOR SCHEME 2
@ 3,30 GET post_index SIZE 1,6 WHEN edit=.t. COLOR SCHEME 2
@ 4,30 GET region SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2
@ 5,30 GET area SIZE 1,40 WHEN edit=.t. COLOR SCHEME 2
@ 6,30 GET address SIZE 1,40 WHEN edit=.t. COLOR SCHEME 2
@ 7,30 GET telephone PICTURE ###-##-## код: ### ;
SIZE 1,18 WHEN edit=.t. COLOR SCHEME 2
STORE "* Паспортные данные:__________" TO MPROMPTS
@ 8,0 GET pass FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 8,30 GET passport PICTURE серия:XXXXXXX-XX номер ###### ;
SIZE 1,29 WHEN edit=.t. COLOR SCHEME 2
@ 9,30 GET conscript SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2
@ 10,30 GET milit_rank SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2
@ 11,30 GET number SIZE 1,12 WHEN edit=.t. COLOR SCHEME 2
@ 12,30 GET mil_ticket PICTURE серия:XXX номер ####### ;
SIZE 1,23 WHEN edit=.t. COLOR SCHEME 2
@ 13,30 GET mil_valid SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 14,30 GET attitude SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 15,30 GET mobile_ins VALID mobile_ins=дOR mobile_ins=Д ;
OR mobile_ins=нOR mobile_ins=Н ;
ERROR Только [Д]а или [Н]ет SIZE 1,1 WHEN edit=.t. ;
COLOR SCHEME 2
STORE "* ВПЕРЕД" TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE "* НАЗАД " TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE "* СЛЕДУЮЩАЯ " TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПРЕДЫДУЩАЯ" TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* НАЙТИ " TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПЕЧАТЬ" TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
STORE "* ВЫХОД" TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLE
RETURN
WIEV4.PRG
PARAMETER edit
ACTIVATE WINDOW win1
CLEAR
eduadd=5
forlang=5
conv=5
structfam=5
pass=5
bok=5
purpos=5
qualcateg=5
tripsbus=5
holid=5
@ 1,1 SAYГруппа учета:________________
@ 2,1 SAYКатегория учета:_____________
@ 3,1 SAYРайвоенкомат:________________
@ 4,1 SAYДата начала срочной службы:__
@ 5,1 SAYДата окончания срочн. службы:
@ 6,1 SAYДата посл. прохожд. мед. ком:
@ 7,30 SAY record_num COLOR SCHEME 2
@ 8,30 SAY purpos_num COLOR SCHEME 2
@ 9,30 SAY qual_num COLOR SCHEME 2
@ 10,1 SAYУчреждение:__________________
@ 11,1 SAYПодразделение:_______________
@ 12,1 SAYТекущая должность:___________
@ 13,1 SAYДата приема на работу:_______
@ 14,1 SAYДата окончания испыт. срока:_
@ 15,30 SAY trial_num COLOR SCHEME 2
@ 18,4 SAYЛИСТАТЬ
@ 18,29 SAYЗАПИСЬ
@ 16,0,16,77 BOX
@ 17,26,19,26 BOX
@ 17,52,19,52 BOX
STORE 4 TO group_acc, ;
category_a,commissar,start_date,close_date,last_date,bok,purpos, ;
qualcateg,company,suddivis,cur_post,employment,trial_clos, ;
admission,up,down,next,previos,find,print,exit,tripsbus
@ 1,30 GET group_acc SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 2,30 GET category_a SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2
@ 3,30 GET commissar SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 4,30 GET start_date SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 5,30 GET close_date SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 6,30 GET last_date SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
STORE "* Трудовая книжка:____________" TO MPROMPTS
@ 7,0 GET bok FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
STORE "* Назначения и перемещения:___" TO MPROMPTS
@ 8,0 GET purpos FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
STORE "* Квалификационный разряд:____" TO MPROMPTS
@ 9,0 GET qualcateg FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 10,30 GET company SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 11,30 GET subdivis SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 12,30 GET cur_post SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 13,30 GET employment SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 14,30 GET trial_clos SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
STORE "* Командировки:_______________" TO MPROMPTS
@ 15,0 GET tripsbus FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
STORE "* ВПЕРЕД" TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE "* НАЗАД " TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE "* СЛЕДУЮЩАЯ " TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПРЕДЫДУЩАЯ" TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* НАЙТИ " TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE "* ПЕЧАТЬ" TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
STORE "* ВЫХОД" TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLE
RETURN
WIEV5.PRG
PARAMETER edit
ACTIVATE WINDOW win1
CLEAR
eduadd=5
forlang=5
conv=5
structfam=5
pass=5
bok=5
purpos=5
qualcateg=5