Реферат Розробка бази даних "Кадри"

>

BROWSE FOR org_num=org_num1 TITLE «Відрядження» NOAPPEND NOMODIFY NODELETE;

LOCK 0 FIELDS start_trp: H=«Дата початку:», closed_trp: H=«Дата закінчення:»,;

destinat: H=«Місце призначення:» TOP=0FOR org_num=org_num1WHILE EOF () =. f.

IF FOUND () =. t.

f=f +1

ENDIF

CONTINUEa

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE trial_num WITH f.PRGorg_num1, editeWINDOW win3 FROM 3, 5 TO 20, 75 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R + / Nedit =. t.WINDOW win4

@ 0,1 SAY «[Ctrl + T]-видалити запис, [Ctrl + N]-створити нову, [Ctrl + W]-зберегти і вийти»

@ 1,30 SAY «[Ctrl + F]-пошук поля» 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=0WINDOW win4

@ 0,26 SAY «Натисніть [ESC] для виходу»

@ 1,28 SAY «[Ctrl + F]-пошук поля» WINDOW win3

BROWSE FOR org_num=org_num1 TITLE «Наявність судимості» ;

NOAPPEND NOMODIFY NODELETE LOCK 0;

FIELDS date_verd: H=«Дата винесення вироку:», article: H=«Стаття:»,;

period: H=«Термін:» TOP=0FOR org_num=org_num1WHILE EOF () =. f.

IF FOUND () =. t.

f=f +1

ENDIF

CONTINUEaWINDOW win4WINDOW win3conv_num WITH f.PRGorg_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...