Geum.ru


Разработка базы данных "Кадры"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



а:___________________'

@ 6,1 SAY'Вид работы:__________________'

@ 7,1 SAY'Ученая степень:______________'

@ 8,1 SAY'Ученое звание:_______________'

@ 9,1 SAY'Узкая специальность:_________'

@ 10,30 SAY LANG_NUM COLOR SCHEME 2

@ 11,30 SAY conv_num COLOR SCHEME 2

@ 12,1 SAY'Семейное положение:__________'

@ 13,30 SAY famil_num COLOR SCHEME 2

@ 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 diploma,qual_dip,spec_dip,eduadd, ;

kind_hir,KIND_WRK,s_degree,s_rank,mar_spec, ;

forlang,conv,mar_status,structfam,tr_union,group, ;

up,down,next,previos,find,print,exit

@ 1,30 GET diploma PICTURE 'серия:XXXX номер:NNNNNNNN' ;

SIZE 1,25 WHEN edit=.t. COLOR SCHEME 2

@ 2,30 GET qual_dip SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

@ 3,30 GET spec_dip SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

STORE "* Образование (дополнит.):____" TO MPROMPTS

@ 4,0 GET eduadd FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

@ 5,30 GET kind_hir SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 6,30 GET KIND_WRK SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 7,30 GET s_degree SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 8,30 GET s_rank SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 9,30 GET mar_spec SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

STORE "* "адение иностран. языками:_" TO MPROMPTS

@ 10,0 GET forlang FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

STORE "* Наличие судимости:__________" TO MPROMPTS

@ 11,0 GET conv FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

@ 12,30 GET mar_status SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2

STORE "* Состав семьи:_______________" TO MPROMPTS

@ 13,0 GET structfam FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

@ 14,30 GET tr_union SIZE 1,40 WHEN edit=.t. COLOR SCHEME 2

@ 15,30 GET group 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

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,3