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

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Образование (дополнительно)' LOCK 0 ;

FIELDS date_begin :H='Поступил:',date_end :H='Окончил:', ;

education :H='Образование:',name_educ :H='Название у/з:', ;

dipl :H='Диплом:',form_tr :H='Форма обучения:', ;

qualific :H='Квалификация:',special :H='Специальность:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Образование (дополнительно)' NOAPPEND

;

NOMODIFY NODELETE LOCK 0 FIELDS date_begin :H='Поступил:', ;

date_end :H='Окончил:', education :H='Образование:', ;

name_educ :H='Название у/з:',dipl :H='Диплом:', ;

form_tr :H='Форма обучения:',qualific :H='Квалификация:', ;

special :H='Специальность:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE EDU_NUM WITH f

RETURN

FAMILY.PRG

PARAMETER org_num1,edit

SELECT f

DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Состав семьи' LOCK 0 ;

FIELDS relation :H='Степень родства:', names :H='Фамилия, инициалы:', ;

date_relat :H='Дата рождения:', expense :H='На иждивении:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Состав семьи' NOAPPEND NOMODIFY

NODELETE ;

LOCK 0 FIELDS relation :H='Степень родства:', ;

names :H='Фамилия, инициалы:', date_relat :H='Дата рождения:', ;

expense :H='На иждивении:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE famil_num WITH f

RETURN

HOLIDAY.PRG

PARAMETER org_num1,edit

SELECT 11

DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Отпуска' LOCK 0 ;

FIELDS kind_hol :H='Вид отпуска:', basis_hol :H='Основание:', ;

with_hol :H='За время с',on_hol :H='За время по:', ;

d_st_hol :H='Дата начала:', amount :H='Кол-во дней:', ;

d_en_hol :H='Дата окончания:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Отпуска' NOAPPEND NOMODIFY NODELETE

LOCK 0 ;

FIELDS kind_hol :H='Вид отпуска:', basis_hol :H='Основание:', ;

with_hol :H='За время с',on_hol :H='За время по:', d_st_hol :H='Дата

начала:', ;

amount :H='Кол-во дней:',d_en_hol :H='Дата окончания:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE holid_num WITH f

RETURN

LANGUAGE.PRG

PARAMETER org_num1,edit

SELECT d

DEFINE WINDOW win3 FROM 3, 13 TO 20, 67 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Владение иностранными языками' LOCK

0 ;

FIELDS oth_lang :H='Язык:', level :H='Уровень владения:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Владение иностранными языками' ;

NOAPPEND NOMODIFY NODELETE LOCK 0 ;

FIELDS oth_lang :H='Язык:', level :H='Уровень владения:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE LANG_NUM WITH f

RETURN

MOVE.PRG

PARAMETER org_num1,edit

SELECT h

DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Назначения и перемещения' LOCK 0 ;

FIELDS date_mov :H='Дата:', reason_mov :H='Основание:', depart

:H='Отдел:', ;

post_mov :H='Должность:',method_mov :H='Режим работы:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Назначения и перемещения' NOAPPEND

NOMODIFY NODELETE LOCK 0 ;

FIELDS date_mov :H='Дата:', reason_mov :H='Основание:', depart

:H='Отдел:', ;

post_mov :H='Должность:',method_mov :H='Режим работы:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE purpos_num WITH f

RETURN

PASSPORT.PRG

PARAMETER org_num1,edit

SELECT b

LOCATE FOR org_num=org_num1

IF FOUND()=.f.

APPEND BLANK

REPLACE org_num WITH org_num1

ENDIF

DEFINE WINDOW win3 FROM 3, 1 TO 24, 78 NOGROW ;

NOFLOAT NOZOOM SHADOW CLOSE COLOR SCHEME 10 TITLE 'ПАСПОРТНЫЕ ДАННЫЕ'

ACTIVATE WINDOW win3

@ 1,5 SAY'Кем выдан:'

@ 2,5 SAY'Дата выдачи:'

@ 6,5 SAY'Индекс:'

@ 7,5 SAY'Область:'

@ 8,5 SAY'Район:'

@ 9,5 SAY'Город:'

@ 10,5 SAY'Населенный пункт:'

@ 11,5 SAY'Улица:'

@ 12,5 SAY'Дом:'

@ 13,5 SAY'Корпус:'

@ 14,5 SAY'Квартира:'

@ 4,2,16,73 BOX

@ 4,30 SAY ' Адрес прописки '

STORE 5 TO

exp_given,date_distr,index_p,area_p,region_p,city_p,point_p,street_p,;

house_p,corps_p,flat_p,end

@ 1,20 GET exp_given SIZE 1,50 WHEN edit=.t. COLOR SCHEME 2

@ 2,20 GET date_distr SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2

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

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

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

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

@ 10,30 GET point_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 11,30 GET street_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

@ 12,30 GET house_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2

@ 13,30 GET corps_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2

@ 14,30 GET flat_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2

STORE "* ВЫХОД" TO MPROMPTS

@ 18,34 GET end FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11

READ CYCLE

SELECT a

RELEASE WINDOW win3

RETURN

QUALIF.PRG

PARAMETER org_num1,edit

SELECT i

DEFINE WINDOW win3 FROM 3, 10 TO 20, 69 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Квалификационный разряд' LOCK 0 ;

FIELDS date_qual :H='Дата:', reas_qual :H='Основание:', ;

qualificat :H='Квалификационный разряд:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Квалификационный разряд' NOAPPEND

NOMODIFY NODELETE LOCK 0 ;

FIELDS date_qual :H='Дата:', reas_qual :H='Основание:', ;

qualificat :H='Квалификационный разряд:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE qual_num WITH f

RETURN

WORKCARD.PRG

PARAMETER org_num1,edit

SELECT g

DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 10

DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;

NOFLOAT NOZOOM COLOR R+/N

IF edit=.t.

ACTIVATE WINDOW win4

@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-

сохранить и выйти'

@ 1,30 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Трудовая книжка' LOCK 0 ;

FIELDS date_wrk :H='Дата пост:', date_dism :H='Дата увольн:', ;

name_wrk :H='Название учреждения:', post_wrk :H='Должность:', ;

reason_wrk :H='Причина:',basis_wrk :H='Основание:'

REPLACE org_num WITH org_num1 FOR org_num=0

ELSE

ACTIVATE WINDOW win4

@ 0,26 SAY'Нажмите [ESC] для выхода'

@ 1,28 SAY'[Ctrl+F]-поиск поля'

ACTIVATE WINDOW win3

BROWSE FOR org_num=org_num1 TITLE 'Трудовая книжка' NOAPPEND NOMODIFY ;

NODELETE LOCK 0 FIELDS date_wrk :H='Дата пост:', ;

date_dism :H='Дата увольн:', name_wrk :H='Название учреждения:', ;

post_wrk :H='Должность:',reason_wrk :H='Причина:', ;

basis_wrk :H='Основание:'

ENDIF

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SELECT a

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE record_num WITH f

RETURN

PRINT.PRG

SELECT a

n=alltrim(surname)+' '+alltrim(name)+' '+alltrim(patron)

_peject='after'

SET PRINTER ON

SET CONSOLE OFF

PRINTJOB

? space((80-len(n))/2),n

WAIT "Печать" NOWAIT WINDOW

?

? ' Таб. номер: ',org_num

? ' Страховой номер: ',ins_num

? ' Фамилия: ',surname

? ' Имя: ',name

? ' Отчество: ',patron

? ' Пол: ',sex

? ' Дата рождения: ',birth_date

? ' Место рождения: ',birthplace

? ' Национальность: ',national

? ' Социальное происхождение: ',SOCIAL

? ' Гражданство: ',citizen

? ' Образование: ',educat

? ' Название учебного заведения:',NAME_EDU

? ' Форма обучения: ',form_train

? ' Год окончания: ',year_end

? ' Диплом: ',diploma

? ' Квалификация по диплому: ',qual_dip

? ' Специальность по диплому: ',spec_dip

? ' Вид найма: ',kind_hir

? ' Вид работы: ',KIND_WRK

? ' Ученая степень: ',s_degree

? ' Ученое звание: ',s_rank

? ' Узкая специальность: ',mar_spec

? ' Семейное положение: ',mar_status

? ' Профсоюз: ',tr_union

? ' Группа инвалидности: ',group

? ' Пенсионер?: ',pensioner

? ' Участник войны?: ',partic_war

? ' Домашний индекс: ',post_index

? ' Район: ',region

? ' Область: ',area

? ' Домашний адрес: ',address

? ' Домашний телефон: ',telephone

? ' Воинская обязанность: ',conscript

? ' Воинское звание: ',milit_rank

? ' Номер ВУС: ',number

? ' Военный билет: ',mil_ticket

? ' Годность к военной службе: ',mil_valid

? ' Отношение к бронированию: ',attitude

? ' Наличие моб. предписания: ',mobile_ins

? ' Группа учета: ',group_acc

? ' Категория учета: ',category_a

? ' Райвоенкомат: ',commissar

? ' Дата начала срочной службы: ',start_date

? ' Дата окончания срочн.службы:',close_date

? ' Дата посл. прохождения: ',last_date

? ' Учреждение: ',company

? ' Подразделение: ',subdivis

? ' Текущая должность: ',cur_post

? ' Дата приема на работу: ',employment

? ' Дата окончания испыт. срока:',trial_clos

? ' Дата увольнения: ',date_dis

? ' Причина увольнения: ',reason_dis

? ' ИНН: ',inn

? ' Серия свидет. налогоплател.:',series_tax

? ' Номер свидет. налогоплател.:',num_tax

? ' Дата свидет. налогоплател.: ',date_tax

? SPACE (25),'Образование (дополнит.):',EDU_NUM

org_num1=org_num

EDU_NUM1=EDU_NUM

SELECT c

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO EDU_NUM1

? ' Поступил:',date_begin,' Окончил:',date_end

? ' Название у/з: ',name_educ

? ' Образование: ',education

? ' Диплом: ',dipl

? ' Форма обучения:',form_tr

? ' Квалификация: ',qualific

? ' Специальность: ',special

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Владение иностран. языками:',LANG_NUM

LANG_NUM1=LANG_NUM

SELECT d

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO LANG_NUM1

? ' Язык:',oth_lang,' Уровень владения:',level

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Наличие судимости:',conv_num

conv_num1=conv_num

SELECT e

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO conv_num1

? ' Дата вынесения приговора: ',date_verd

? ' Статья:',article,' Срок:',period

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Состав семьи:',famil_num

struct_f1=famil_num

SELECT f

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO struct_f1

? ' Дата рождения:',date_relat,' Фамилия, инициалы:',names

? ' Степень родства:',relation, ' На иждивении:',expense

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (12),'Паспортные данные:',passport

SELECT b

GO TOP

f=0

LOCATE FOR org_num=org_num1

DO WHILE EOF()=.f.

IF FOUND()=.t.

f=f+1

ENDIF

CONTINUE

ENDDO

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO f

? ' Кем выдан: ',exp_given

? ' Дата выдачи:',date_distr

? SPACE (25),'Прописка:'

? ' Индекс: ',index_p

? ' Область: ',area_p

? ' Район: ',region_p

? ' Город: ',city_p

? ' Населенный пункт:',point_p

? ' Улица: ',street_p

? ' Дом: ',house_p

? ' Корпус: ',corps_p

? ' Квартира: ',flat_p

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Трудовая книжка:',record_num

record_num1=record_num

SELECT g

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO record_num1

? ' Дата постановки: ',date_wrk,' Дата увольнения:',date_dism

? ' Название учреждения:',name_wrk

? ' Должность: ',post_wrk

? ' Причина: ',reason_wrk

? ' Основание: ',basis_wrk

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Назначения и перемещения:',purpos_num

purpos_num1=purpos_num

SELECT h

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO purpos_num1

? ' Дата: ',date_mov,' Основание:',reason_mov

? ' Отдел: ',depart

? ' Должность: ',post_mov

? ' Режим работы:',method_mov

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Квалификационный разряд:',qual_num

qual_num1=qual_num

SELECT i

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO qual_num1

? ' Дата: ',date_qual,' Основание:',reas_qual

? ' Квалификация:',qualificat

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Командировки:',trial_num

trips1=trial_num

SELECT j

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO trips1

? ' Дата начала: ',start_trp,' Дата окончания:',closed_trp

? ' Место назначения:',destinat

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

? SPACE (25),'Отпуска:',holid_num

holid_num1=holid_num

SELECT 11

SET FILTER TO org_num=org_num1

GO TOP

FOR n=1 TO holid_num1

? ' Вид отпуска: ',kind_hol

? ' Основание: ',basis_hol

? ' За время с: ',with_hol,' За время по: ',on_hol

? ' Дата начала: ',d_st_hol,' Количество дней:',amount

? ' Дата окончания:',d_en_hol

? REPLICATE(' -',39)

SKIP

NEXT n

SET FILTER TO

SELECT a

WAIT CLEAR

ENDPRINTJOB

SET PRINTER OFF

SET CONSOLE ON

RETURN

SEARCH.PRG

DEFINE WINDOW win3 FROM 3, 11 TO 20, 69 NOGROW ;

NOFLOAT NOZOOM SHADOW CLOSE;

TITLE 'Выберите запись и нажмите ' COLOR SCHEME 10

ACTIVATE WINDOW win3

BROWSE NOAPPEND NOMODIFY NODELETE LOCK 0 FIELDS org_num :H='Таб. N:', ;

surname :H='Фамилия:', name :H='Имя:',patron :H='Отчество:'

RELEASE WINDOW win3

RETURN

INDEX.PRG

WAIT "Индексирую таблицы" NOWAIT WINDOW

SELECT a

INDEX ON org_num TO stuff.idx

SELECT c

INDEX ON date_begin TO educat.idx

SELECT d

INDEX ON oth_lang TO language.idx

SELECT e

INDEX ON date_verd TO convict.idx

SELECT f

INDEX ON date_relat TO family.idx

SELECT g

INDEX ON date_wrk TO workcard.idx

SELECT h

INDEX ON date_mov TO moving.idx

SELECT i

INDEX ON date_qual TO qualific.idx

SELECT j

INDEX ON start_trp TO bus_trip.idx

SELECT 11

INDEX ON with_hol TO holiday.idx

WAIT CLEAR

RETURN

INITIAL.PRG

DEFINE WINDOW win3 FROM 7, 10 TO 13, 70 NOGROW ;

NOFLOAT NOZOOM CLOSE COLOR SCHEME 12

ACTIVATE WINDOW win3

@ 0,12 SAY'ЭТО действие уничтожит все данные'

@ 1,13 SAY'Вы уверены в его необходимости?'

STORE 2 TO no,yes

STORE "* НЕТ" TO MPROMPTS

@ 3,19 GET no FUNCTION MPROMPTS SIZE 1, 8

STORE "* ДА" TO MPROMPTS

@ 3,30 GET yes FUNCTION MPROMPTS SIZE 1, 8

READ CYCLE

RELEASE WINDOW win3

IF yes=2

RETURN

ENDIF

WAIT "Инициализация таблиц" NOWAIT WINDOW

SELECT a

ZAP

SELECT b

ZAP

SELECT c

ZAP

SELECT d

ZAP

SELECT e

ZAP

SELECT f

ZAP

SELECT g

ZAP

SELECT h

ZAP

SELECT i

ZAP

SELECT j

ZAP

SELECT 11

ZAP

WAIT CLEAR

RETURN

REFEREN.PRG

SELECT a

DO search.prg

_peject='after'

SET PRINTER ON

SET CONSOLE OFF

PRINTJOB

WAIT "Печать" NOWAIT WINDOW

n=ALLTRIM(company)

? space((80-len(n))/2),n

? ''

? SPACE(28),'О Т Д Е Л К А Д Р О В'

? REPLICATE('-',79)

? SPACE(26),'Краткая справка о сотруднике'

? REPLICATE('-',79)

n=alltrim(surname)+' '+alltrim(name)+' '+alltrim(patron)

? space((80-len(n))/2),n

? ''

d=MONTH(birth_date)

IF d=1

n='января'

ENDIF

IF d=2

n='февраля'

ENDIF

IF d=3

n='марта'

ENDIF

IF d=4

n='апреля'

ENDIF

IF d=5

n='мая'

ENDIF

IF d=6

n='июня'

ENDIF

IF d=7

n='июля'

ENDIF

IF d=8

n='августа'

ENDIF

IF d=9

n='сентября'

ENDIF

IF d=10

n='октября'

ENDIF

IF d=11

n='ноября'

ENDIF

IF d=12

n='декабря'

ENDIF

IF sex='Ж' OR sex='ж'

sx1='Родилась'

sx2='уроженка'

sx3='Окончила'

ELSE

sx1='Родился'

sx2='уроженец'

sx3='Окончил'

ENDIF

? ' ',sx1,DAY(birth_date),n,YEAR(birth_date),'года ,'

? ' ',ALLTRIM(national),',',sx2,ALLTRIM(birthplace),','

? ' имеет',ALLTRIM(citizen),'гражданство .'

? ' ',sx3,ALLTRIM(NAME_EDU),'.'

? ' Семейное положение:',ALLTRIM(mar_status),'.'

? ' В настоящее время работает в должности: ',ALLTRIM(cur_post),','

? ' в подразделении:',ALLTRIM(subdivis),'.'

? ' Домашний адрес:',ALLTRIM(address),',',ALLTRIM(region),'район .'

? ' Домашний телефон:',telephone

? ''

? SPACE(60),DATE(),'г'

SELECT a

WAIT CLEAR

ENDPRINTJOB

SET PRINTER OFF

SET CONSOLE ON

RETURN

END.PRG

CLEAR

CLOSE ALL

QUIT

7. ГРАФИЧЕСКИЙ МАТЕРИАЛ

Рис. 2.2.1. Описание связи «объект-свойство».

Рис. 2.4.1 Взаимосвязь командных файлов в проекте.

-----------------------

Страховой номер

D

Табельный №

Имя

Отчество

Фамилия

ЛИЧНОСТЬ

2001 г.

г. Москва

S

Пол

S

Дата рождения

S

Место рождения

S

Национальность

S

Социальное происхождение

D

Гражданство

D

Образование

D

Название учебного заведения

D

Форма обучения

D

Год окончания

D

Диплом (серия)

D

Поступил

Квалификация по диплому

D

Окончил

Специальность по диплому

Образование (дополнительное)

D

Образование

Название у/з

Диплом

Форма обучения

Квалификация

D

Вид найма

Специальность

D

Вид работы

D

Ученая степень

D

Ученое звание

D

Язык

Узкая специальность

D

Владение ин. языками

Уровень владения

D

Наличие судимости

Дата вын-ия приговора

Статья

D

Семейное положение

Срок

D

Степень родства

Состав семьи

D

Фамилия, инициалы

Профсоюз

Дата рождения

D

Группа инвалидности

На иждивении

D

Пенсионер?

D

Участник войны?

D

Домашний индекс

D

Район

D

Кем выдан

Область

D

Дата выдачи

Домашний адрес

D

Индекс

Домашний телефон

D

Область

Паспортные данные (прописка)

D

Район

Воинская обязанность

D

Город

Воинское звание

D

Населенный пункт

Номер ВУС

D

Улица

Военный билет (номер)

D

Дом

Годность к воен. службе

D

Корпус

Отношение к бронированию

D

Квартира

Наличие моб. предписания

D

Группа учета

D

Категория учета

D

Категория учета

D

Дата начала срочной службы

Дата постановки

D

Дата окончания сроч. службы

Дата увольнения

D

Дата посл. прохождения

D

Трудовая книжка

Название учреждения

Должность

Причина

Основание

D

Дата

Назначения и перемещения

Основание

Отдел

Должность

Режим работы

D

Дата

Квалификационный разряд

D

Учреждение

Основание

D

Подразделение

Квалификация

D

Текущая должность

D

Дата приема на работу

D

Дата окончания испыт. срока

Дата начала

D

Дата окончания

Командировки

Место назначения

D

Вид отпуска

Отпуска

Основание

За время с

За время по

Дата начала

D

Дата увольнения

D

Количество дней

Причина увольнения

D

Дата окончания

ИНН

D

Серия свидет. налогоплател.

D

Номер свидет. налогоплател.

D

Дата свидет. налогоплат.

READ.PRG

WIEV1.PRG

R_??????????????????????????????????????????????????????????????????????????

????????????????????????????????????????????????????????????????????????????

???

W.PRG

START.PRG

WRITE.PRG

WIEV2.PRG

NEW.PRG

WIEV3.PRG

DEL_REC.PRG

WIEV4.PRG

WIEV5.PRG

BUS_TRIP.PRG

DL_UNDL.PRG

CONVICT.PRG

INDEX.PRG

EDUCAT.PRG

PRINT.PRG

INITIAL.PRG

FAMILY.PRG

END.PRG

SEARCH.PRG

REFEREN.PRG

HOLIDAY.PRG

LANGUAGE.PRG

MOVE.PRG

PASSPORT.PRG

QUALIF.PRG

WORKCARD.PRG

Страницы: 1, 2, 3, 4, 5, 6, 7