Разработка базы данных Кадры
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
()=.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
SELE