Разработка базы данных Кадры
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
tripsbus=5
holid=5
@ 1,30 SAY holid_num COLOR SCHEME 2
@ 2,1 SAYДата увольнения:_____________
@ 3,1 SAYПричина увольнения:__________
@ 4,1 SAYИНН:_________________________
@ 5,1 SAYСерия свидет. налогоплател.:_
@ 6,1 SAYНомер свидет. налогоплател.:_
@ 7,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 holid,date_dis,reason_d,inn,series_tax,num_tax, ;
date_tax,up,down,next,previos,find,print,exit
STORE "* Отпуска:____________________" TO MPROMPTS
@ 1,0 GET holid FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 2,30 GET date_dis SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 3,30 GET reason_dis SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2
@ 4,30 GET inn SIZE 1,12 WHEN edit=.t. COLOR SCHEME 2
@ 5,30 GET series_tax SIZE 1,14 WHEN edit=.t. COLOR SCHEME 2
@ 6,30 GET num_tax SIZE 1,14 WHEN edit=.t. COLOR SCHEME 2
@ 7,30 GET date_tax SIZE 1,10 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
BUS_TRIP.PRG
PARAMETER org_num1,edit
SELECT j
DEFINE WINDOW win3 FROM 3, 11 TO 20, 68 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 start_trp :H=Дата начала:, closed_trp :H=Дата окончания:, ;
destinat :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 start_trp :H=Дата начала:, closed_trp :H=Дата окончания:, ;
destinat :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 trial_num WITH f
RETURN
CONVICT.PRG
PARAMETER org_num1,edit
SELECT e
DEFINE WINDOW win3 FROM 3, 5 TO 20, 75 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_verd :H=Дата вынесения приговора:, article :H=Статья:, ;
period :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_verd :H=Дата вынесения приговора:, article :H=Статья:, ;
period :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 conv_num WITH f
RETURN
EDUCAT.PRG
PARAMETER org_num1,edit
SELECT c
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_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