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

lign="justify"> @ 18,4 SAY «гортають»

@ 18,29 SAY «ЗАПИС»

@ 16,0,16,77 BOX

@ 17,26,19,26 BOX

@ 17,52,19,52 BOX

STORE 4 TO group_acc,;

category_a, commissar, start_date, close_date, last_date, bok, purpos,;

qualcateg, company, suddivis, cur_post, employment, trial_clos,;

admission, up, down, next, previos, find, print, exit, tripsbus

@ 1,30 GET group_acc SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2

@ 2,30 GET category_a SIZE 1,20 WHEN edit =. t. COLOR SCHEME 2

@ 3,30 GET commissar SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2

@ 4,30 GET start_date SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2

@ 5,30 GET close_date SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2

@ 6,30 GET last_date SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2

STORE «* Трудова книжка: ____________» TO MPROMPTS

@ 7,0 GET bok FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

STORE «* Призначення і переміщення: ___» TO MPROMPTS

@ 8,0 GET purpos FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

STORE «* Кваліфікаційний розряд: ____» TO MPROMPTS

@ 9,0 GET qualcateg FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

@ 10,30 GET company SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2

@ 11,30 GET subdivis SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2

@ 12,30 GET cur_post SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2

@ 13,30 GET employment SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2

@ 14,30 GET trial_clos SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2

STORE «* Відрядження: _______________» TO MPROMPTS

@ 15,0 GET tripsbus FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11

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.PRGedit

ACTIVATE WINDOW win1

CLEAR=5=5=5=5=5=5=5=5=5=5

@ 1,30 SAY holid_num COLOR SCHEME 2

@ 2,1 SAY «Дата звільнення: _____...