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

rg_num WITH org_num1 FOR org_num=0

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=«Режим роботи:» TOP=0FOR org_num=org_num1WHILE EOF () =. f.

IF FOUND () =. t.

f=f +1

ENDIF

CONTINUEa

RELEASE WINDOW win4

RELEASE WINDOW win3

REPLACE purpos_num WITH f.PRGorg_num1, edit

SELECT bFOR org_num=org_num1FOUND () =. f.

APPEND BLANK

REPLACE org_num WITH org_num1

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

NOFLOAT NOZOOM SHADOW CLOSE COLOR SCHEME 10 TITLE «Паспортні дані» 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 CYCLEa

RELEASE WINDOW win3.PRGorg_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, 7...