Курсовая работа: Система управління базою даних відділу кадрів в середовищі FoxPro

\\\\головна програма\\\\

HIDE WINDOW all

CLEAR ALL

DO menu1.mpr

\\\головне меню\\\\\

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _21k04swkq OF _MSYSMENU PROMPT "File" COLOR SCHEME 3 ;

KEY ALT+F, ""

DEFINE PAD _21k04swkr OF _MSYSMENU PROMPT "Forms" COLOR SCHEME 3 ;

KEY ALT+F, ""

DEFINE PAD _21k04swks OF _MSYSMENU PROMPT "Reports" COLOR SCHEME 3 ;

KEY ALT+R, ""

DEFINE PAD _21k04swkt OF _MSYSMENU PROMPT "About" COLOR SCHEME 3 ;

KEY ALT+A, ""

ON PAD _21k04swkq OF _MSYSMENU ACTIVATE POPUP file

ON PAD _21k04swkr OF _MSYSMENU ACTIVATE POPUP forms

ON PAD _21k04swks OF _MSYSMENU ACTIVATE POPUP reports

ON PAD _21k04swkt OF _MSYSMENU ACTIVATE POPUP newitem

DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF file PROMPT "Exit"

ON SELECTION BAR 1 OF file set sysmenu to default

DEFINE POPUP forms MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF forms PROMPT "Kadri"

DEFINE BAR 2 OF forms PROMPT "Education"

DEFINE BAR 3 OF forms PROMPT "Department"

DEFINE BAR 4 OF forms PROMPT "Kadri_Education"

DEFINE BAR 5 OF forms PROMPT "Kadri_Department"

ON SELECTION BAR 1 OF forms do form form_main.scx