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

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 'Выберите запись  и нажмите <ESCAPE>' 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. ГРАФИЧЕСКИЙ МАТЕРИАЛ