Програмування програмної оболонки керування базами даних

Лістинг програми керування додатку меню DOVIDNIK_GIVOPIS_GO.MPR

* *********************************************************

* *

* * 05/26/11 DOVIDNIK_GIVOPIS_GO.MPR 17:45:26

* *

* *********************************************************

* *

* * Миних

* *

* * Copyright (C) 2011 Криворожский Технический Университет

* * Address

* * Кривой Рог, Zip

* * Украина

* *

* * Description:

* * This PROGRAM was automatically generated BY GENMENU.

* *

* *********************************************************

* *********************************************************

* *

* * Setup Code

* *

* *********************************************************

*

* This file is a generated, framework-enabling component

* created by APPBUILDER

* (c) Microsoft Corporation

#INCLUDE [..\DOVIDNIK_GIVOPIS_APP.H]

* *********************************************************

* *

* * Menu Definition

* *

* *********************************************************

*

DEFINE PAD _msm_Go OF _MSYSMENU PROMPT "\<Перейти" COLOR SCHEME 3;

BEFORE _MWINDOW;

KEY ALT+G, "ALT+G";

MESSAGE "Navigates the currently selected table, cursor, or view"

ON PAD _msm_Go OF _MSYSMENU ACTIVATE POPUP перейти

DEFINE POPUP перейти MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF перейти PROMPT "\<Начало"

DEFINE BAR 2 OF перейти PROMPT "\<Конец"

DEFINE BAR 3 OF перейти PROMPT "\<Следующая"

DEFINE BAR 4 OF перейти PROMPT "\<Предыдущая"

DEFINE BAR 5 OF перейти PROMPT "\-"

DEFINE BAR 6 OF перейти PROMPT "\<Перейти на..."

DEFINE BAR 7 OF перейти PROMPT "\<Указать..."

DEFINE BAR 8 OF перейти PROMPT "\<Сортировать по возрастанию"

DEFINE BAR 9 OF перейти PROMPT "\<Сортировать по убыванию"

DEFINE BAR 10 OF перейти PROMPT "Установить \<фильтр..."

ON SELECTION BAR 1 OF перейти APP_GLOBAL.GoTop()

ON SELECTION BAR 2 OF перейти APP_GLOBAL.GoBottom()

ON SELECTION BAR 3 OF перейти APP_GLOBAL.GoNext()

ON SELECTION BAR 4 OF перейти APP_GLOBAL.GoPrevious()

ON SELECTION BAR 6 OF перейти APP_GLOBAL.ShowTableGoToDialog()

ON SELECTION BAR 7 OF перейти APP_GLOBAL.ShowTableFindDialog()

ON SELECTION BAR 8 OF перейти APP_GLOBAL.DoSort(,,,.F.)

ON SELECTION BAR 9 OF перейти APP_GLOBAL.DoSort(,,,.T.)

ON SELECTION BAR 10 OF перейти APP_GLOBAL.ShowTableSetFilterDialog()

ON SELECTION POPUP перейти MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

Лістинг програми керування додатку меню DOVIDNIK_GIVOPIS_MAIN.MPR

* *********************************************************

* *

* * 05/31/11 DOVIDNIK_GIVOPIS_MAIN.MPR 18:21:36

* *

* *********************************************************

* *

* * Миних

* *

* * Copyright (C) 2011 Криворожский Технический Университет

* * Address

* * Кривой Рог, Zip

* * Украина

* *

* * Description:

* * This PROGRAM was automatically generated BY GENMENU.

* *

* *********************************************************

* *********************************************************

* *

* * Setup Code

* *

* *********************************************************

*

* This file is a generated, framework-enabling component

* created by APPBUILDER

* (c) Microsoft Corporation

#INCLUDE [..\DOVIDNIK_GIVOPIS_APP.H]

* *********************************************************

* *

* * Menu Definition

* *

* *********************************************************

*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<Файл" COLOR SCHEME 3;

NEGOTIATE LEFT, NONE;

KEY ALT+F, "";

MESSAGE "Creates, opens, saves, prints files or quits "+APP_GLOBAL.cCaption

DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Правка" COLOR SCHEME 3;

KEY ALT+E, "";

MESSAGE "Edits text or current selection"

DEFINE PAD _msm_tools OF _MSYSMENU PROMPT "\<Сервис" COLOR SCHEME 3;

KEY ALT+T, ""

DEFINE PAD _msm_run OF _MSYSMENU PROMPT "\<Живопись" COLOR SCHEME 3;

NEGOTIATE LEFT, NONE;

KEY ALT+G, "";

MESSAGE "Запуск форму, отчётов, запросов по живописи"

DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "\<Программа" COLOR SCHEME 3;

NEGOTIATE MIDDLE, NONE;

KEY ALT+P, "";

MESSAGE "Runs, debugs, compiles, and suspends programs"

DEFINE PAD _msm_fave OF _MSYSMENU PROMPT "И\<збранное" COLOR SCHEME 3;

KEY ALT+A, "ALT+A";

MESSAGE "Easy access to favorite documents"

DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Окно" COLOR SCHEME 3;

NEGOTIATE RIGHT, NONE;

KEY ALT+W, ""

DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "\<Помощь" COLOR SCHEME 3;

KEY ALT+H, ""

ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP файл

ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP правка

ON PAD _msm_tools OF _MSYSMENU ACTIVATE POPUP сервис

ON PAD _msm_run OF _MSYSMENU ACTIVATE POPUP живопись

ON PAD _msm_prog OF _MSYSMENU ACTIVATE POPUP программа

ON PAD _msm_fave OF _MSYSMENU ACTIVATE POPUP избранное

ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP окно

ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP помощь

DEFINE POPUP файл MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF файл PROMPT "\<Создать...";

MESSAGE "Creates a document"

DEFINE BAR 2 OF файл PROMPT "\<Открыть...";

MESSAGE "Opens a document"

DEFINE BAR 3 OF файл PROMPT "\<Закрыть";

SKIP FOR TYPE("_SCREEN.Activeform") # "O" OR _SCREEN.ActiveForm.ShowWindow = 2;

MESSAGE "Closes the active form"

DEFINE BAR 4 OF файл PROMPT "\-"

DEFINE BAR 5 OF файл PROMPT "\<Сохранить";

SKIP FOR EMPTY(AUSED(latemp));

MESSAGE "Saves the editing on the current form or formset"

DEFINE BAR 6 OF файл PROMPT "\<Отменить";

SKIP FOR EMPTY(AUSED(latemp));

MESSAGE "Reverts the editing on the current form or formset"

DEFINE BAR 7 OF файл PROMPT "\-"

DEFINE BAR 8 OF файл PROMPT "Печат\<ь...";

SKIP FOR EMPTY(AUSED(latemp));

MESSAGE "Prints current data"

DEFINE BAR 9 OF файл PROMPT "\<Печать отчётов...";

MESSAGE "Picks a report"

DEFINE BAR 10 OF файл PROMPT "На\<стройки печати...."

DEFINE BAR 11 OF файл PROMPT "\-"

DEFINE BAR 12 OF файл PROMPT "\<Быстрый старт...";

MESSAGE "Picks a form or report document to run"

DEFINE BAR 13 OF файл PROMPT "\<Логин...";

MESSAGE "Log in as a different User"

DEFINE BAR 14 OF файл PROMPT "\-"

DEFINE BAR 15 OF файл PROMPT "В\<ыход";

MESSAGE "Exit "+APP_GLOBAL.cCaption

ON SELECTION BAR 1 OF файл APP_GLOBAL.DoNewOpen(.T.)

ON SELECTION BAR 2 OF файл APP_GLOBAL.DoNewOpen()

ON SELECTION BAR 3 OF файл IIF(APP_GLOBAL.QueryDataSessionUnload(),APP_GLOBAL.ReleaseForm(),.T)

ON SELECTION BAR 5 OF файл APP_GLOBAL.DataUpdate()

ON SELECTION BAR 6 OF файл APP_GLOBAL.DataRevert()

ON SELECTION BAR 8 OF файл APP_GLOBAL.DoTableOutput()

ON SELECTION BAR 9 OF файл APP_GLOBAL.DoReportDialog()

ON SELECTION BAR 10 OF файл SET PRINTER TO NAME (SYS(1037))

ON SELECTION BAR 12 OF файл APP_GLOBAL.DoStartupForm()

ON SELECTION BAR 13 OF файл IIF(APP_GLOBAL.ReleaseForms(),IIF(APP_GLOBAL.SetCurrentUser(.T.),.T., APP_GLOBAL.Release()),.T.)

ON SELECTION BAR 15 OF файл APP_GLOBAL.Release()

DEFINE POPUP правка MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _med_undo OF правка PROMPT "\<Отменить";

KEY CTRL+Z, "Ctrl+Z";

MESSAGE "Undoes the last command or action"

DEFINE BAR _med_redo OF правка PROMPT "По\<вторить";

KEY CTRL+R, "Ctrl+R";

MESSAGE "Repeats the last command or action"

DEFINE BAR _med_sp100 OF правка PROMPT "\-"

DEFINE BAR _med_cut OF правка PROMPT "Вы\<резать";

KEY CTRL+X, "Ctrl+X";

MESSAGE "Removes the selection and places it onto the Clipboard"

DEFINE BAR _med_copy OF правка PROMPT "\<Копировать";

KEY CTRL+C, "Ctrl+C";

MESSAGE "Copies the selection onto the Clipboard"

DEFINE BAR _med_paste OF правка PROMPT "\<Вставить";

KEY CTRL+V, "Ctrl+V";

MESSAGE "Pastes the contents of the Clipboard"

DEFINE BAR _med_clear OF правка PROMPT "Очи\<стить";

MESSAGE "Removes the selection and does not place it onto the Clipboard"

DEFINE BAR _med_sp200 OF правка PROMPT "\-"

DEFINE BAR _med_slcta OF правка PROMPT "Вы\<брать всё";

KEY CTRL+A, "Ctrl+A";

MESSAGE "Selects all text or items in the current window"

DEFINE BAR _med_sp300 OF правка PROMPT "\-"

DEFINE BAR _med_find OF правка PROMPT "\<Найти...";

KEY CTRL+F, "Ctrl+F";

MESSAGE "Searches for specified text"

DEFINE BAR _med_finda OF правка PROMPT "Найти е\<щё раз";

KEY CTRL+G, "Ctrl+G";

MESSAGE "Repeats the last search"

DEFINE BAR _med_repl OF правка PROMPT "З\<аменить...";

KEY CTRL+L, "Ctrl+L";

MESSAGE "Replaces specified text with different text"

DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF сервис PROMPT "М\<акрос...";

MESSAGE "Creates, deletes, or revises a keyboard macro"

DEFINE BAR 2 OF сервис PROMPT "\<Логи ошибок"

DEFINE BAR 3 OF сервис PROMPT "\-"

DEFINE BAR 4 OF сервис PROMPT "\<Опции..."

DEFINE BAR 5 OF сервис PROMPT "\<Сменить пароль..."

ON BAR 1 OF сервис ACTIVATE POPUP макрос

ON BAR 2 OF сервис ACTIVATE POPUP логиошибок

ON SELECTION BAR 4 OF сервис APP_GLOBAL.DoOptionsDialog()

ON SELECTION BAR 5 OF сервис APP_GLOBAL.DoChangePassword()

DEFINE POPUP макрос MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF макрос PROMPT "\<Записать макрос"

DEFINE BAR 2 OF макрос PROMPT "\<Очистить макрос"

DEFINE BAR 3 OF макрос PROMPT "\<Сохранить макрос по умолчанию"

DEFINE BAR 4 OF макрос PROMPT "Восстановить \<макрос по умолчанию"

ON SELECTION BAR 1 OF макрос KEYBOARD ("{"+SET("MACKEY")+"}")

ON SELECTION BAR 2 OF макрос CLEAR MACROS

ON SELECTION BAR 3 OF макрос APP_GLOBAL.SetMacros(.T.)

ON SELECTION BAR 4 OF макрос APP_GLOBAL.SetMacros()

DEFINE POPUP логиошибок MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF логиошибок PROMPT "\<Показать лог ошибок"

DEFINE BAR 2 OF логиошибок PROMPT "\<Експортировать лог"

DEFINE BAR 3 OF логиошибок PROMPT "\<Очистить лог"

ON SELECTION BAR 1 OF логиошибок APP_GLOBAL.DisplayErrorLog()

ON SELECTION BAR 2 OF логиошибок APP_GLOBAL.ExportErrorLog()

ON SELECTION BAR 3 OF логиошибок APP_GLOBAL.PurgeErrorLog()

DEFINE POPUP живопись MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF живопись PROMPT "\<ФОРМЫ"

DEFINE BAR 2 OF живопись PROMPT "\<ОТЧЁТЫ"

DEFINE BAR 3 OF живопись PROMPT "\<ЗАПРОСЫ"

DEFINE BAR 4 OF живопись PROMPT "\<ПРЕДСТАВЛЕНИЯ"

ON BAR 1 OF живопись ACTIVATE POPUP формы

ON BAR 2 OF живопись ACTIVATE POPUP отчёты

ON BAR 3 OF живопись ACTIVATE POPUP запросы

ON BAR 4 OF живопись ACTIVATE POPUP представле

DEFINE POPUP формы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF формы PROMPT "\<Художники"

DEFINE BAR 2 OF формы PROMPT "\<Картины"

DEFINE BAR 3 OF формы PROMPT "\<Эпохи"

DEFINE BAR 4 OF формы PROMPT "\<Музеи"

ON SELECTION BAR 1 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\artists.scx"

ON SELECTION BAR 2 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\pictures.scx"

ON SELECTION BAR 3 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\epoch.scx"

ON SELECTION BAR 4 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\museums.scx"

DEFINE POPUP отчёты MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отчёты PROMPT "\<КАРТИНЫ"

DEFINE BAR 2 OF отчёты PROMPT "\<ЭПОХИ"

ON SELECTION BAR 1 OF отчёты REPORT FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\KARTINI.FRX " PREVIEW

ON SELECTION BAR 2 OF отчёты REPORT FORM " H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\EPOHI.FRX " PREVIEW

DEFINE POPUP запросы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF запросы PROMPT "\<Художники"

DEFINE BAR 2 OF запросы PROMPT "\<Картины да Винчи"

ON SELECTION BAR 1 OF запросы DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query1_hud.qpr"

ON SELECTION BAR 2 OF запросы DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query2_kart.qpr"

DEFINE POPUP представле MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF представле PROMPT "\<Живопись"

ON SELECTION BAR 1 OF представле;

DO _38c13cokn;

IN LOCFILE("DOVIDNIK_GIVOPIS_2\MENUS\DOVIDNIK_GIVOPIS_MAIN","MPX;MPR|FXP;PRG","WHERE is DOVIDNIK_GIVOPIS_MAIN?")

DEFINE POPUP программа MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _mpr_do OF программа PROMPT "\<Запустить...";

MESSAGE "Runs a program, application, form, report, query, or menu"

DEFINE BAR _mpr_cancl OF программа PROMPT "\<Отменить";

MESSAGE "Stops running the current program"

DEFINE BAR _mpr_resum OF программа PROMPT "\<Продолжить";

MESSAGE "Resumes running the current suspended program"

DEFINE BAR _mpr_suspend OF программа PROMPT "\<Остановить";

MESSAGE "Suspends the currently running program"

DEFINE BAR _mpr_compl OF программа PROMPT "С\<компилировать...";

MESSAGE "Compiles the current or selected program"

DEFINE BAR 6 OF программа PROMPT "\-"

DEFINE BAR 7 OF программа PROMPT "Отл\<адчик"

DEFINE BAR 8 OF программа PROMPT "С\<ессии данных"

DEFINE BAR 9 OF программа PROMPT "Ко\<мандная строка"

DEFINE BAR 10 OF программа PROMPT "\-"

DEFINE BAR _mtl_browser OF программа PROMPT "Проводник \<классов";

MESSAGE "Runs the Class Browser"

ON SELECTION BAR 7 OF программа DEBUG

ON SELECTION BAR 8 OF программа APP_GLOBAL.ActivateSystemWindow("View")

ON SELECTION BAR 9 OF программа APP_GLOBAL.ActivateSystemWindow("Command")

DEFINE POPUP избранное MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF избранное PROMPT "\<Добавить в избранное...";

MESSAGE "Add to Favorites menu"

DEFINE BAR 2 OF избранное PROMPT "\<Очистить избранное";

MESSAGE "Clear list of Favorites"

DEFINE BAR 3 OF избранное PROMPT "\-"

ON SELECTION BAR 1 OF избранное APP_GLOBAL.DoStartupForm(.T.)

ON SELECTION BAR 2 OF избранное APP_GLOBAL.ClearFavorites()

DEFINE POPUP окно MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF окно PROMPT "\<Каскадом"

DEFINE BAR _mwi_arran OF окно PROMPT "\<Организовать вс";

MESSAGE "Arranges windows as non-overlapping tiles"

DEFINE BAR _mwi_rotat OF окно PROMPT "Ц\<икл";

KEY CTRL+F1, "CTRL+F1"

ON SELECTION BAR 1 OF окно APP_GLOBAL.CascadeAll()

DEFINE POPUP помощь MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF помощь PROMPT "\<Помощь";

KEY F1, "F1"

DEFINE BAR 2 OF помощь PROMPT "\-"

DEFINE BAR 3 OF помощь PROMPT "\<О "+APP_GLOBAL.cCaption+"..."

ON SELECTION BAR 1 OF помощь APP_GLOBAL.DoHelp()

ON SELECTION BAR 3 OF помощь APP_GLOBAL.DoAboutBox()

ON SELECTION POPUP файл MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP сервис MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP логиошибок MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP программа MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP избранное MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP окно MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

ON SELECTION POPUP помощь MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

* *********************************************************

* *

* * Cleanup Code & Procedures

* *

* *********************************************************

*

* none of these statements will work

* in exactly this way in a Top menu --

* we'll use the array elements

IF VERSION(2) = 0

RELEASE PAD _msm_prog OF _MSYSMENU

RELEASE POPUP _mprog EXTENDED

SET SYSMENU SAVE

SET SYSMENU TO

SET SYSMENU TO DEFAULT

ENDIF

* the program pad items, above, always get

* get released in runtime, but some items

* specific to application state may be

* released or disabled as you choose:

IF NOT APP_GLOBAL.lReleaseUnusedMenuItems

IF EMPTY(APP_GLOBAL.cHelpFile)

SET SKIP OF BAR 1 OF _msystem.T.

ENDIF

IF EMPTY(APP_GLOBAL.cOptionsDialogClass)

SET SKIP OF BAR 4 OF _mtools.T.

ENDIF

IF EMPTY(APP_GLOBAL.cAboutBoxClass)

SET SKIP OF BAR 3 OF _msystem.T.

ENDIF

IF EMPTY(APP_GLOBAL.cStartupFormClass);

OR NOT (APP_GLOBAL.lStartupForm)

SET SKIP OF BAR 12 OF _mfile.T.

ENDIF

IF NOT APP_GLOBAL.lUserPreferences

SET SKIP OF BAR 13 OF _mfile.T.

SET SKIP OF BAR 5 OF _mtools.T.

ENDIF

ELSE

* if you prefer

IF EMPTY(APP_GLOBAL.cOptionsDialogClass)

RELEASE BAR 4 OF _mtools

ENDIF

IF EMPTY(APP_GLOBAL.cAboutBoxClass)

RELEASE BAR 3 OF _msystem

ENDIF

IF EMPTY(APP_GLOBAL.cHelpFile)

RELEASE BAR 1 OF _msystem

RELEASE BAR 2 OF _msystem

ENDIF

IF NOT APP_GLOBAL.lUserPreferences

RELEASE BAR 13 OF _mfile

RELEASE BAR 14 OF _mfile

RELEASE BAR 5 OF _mtools

ENDIF

IF EMPTY(APP_GLOBAL.cStartupFormClass);

OR NOT (APP_GLOBAL.lStartupForm)

RELEASE BAR 12 OF _mfile

ENDIF

 

ENDIF

IF (NOT APP_GLOBAL.lReadEvents)

* unlikely for a Replace-style menu unless

* Top Form, but the following

* isn't safe in a non-ReadEvents environment

RELEASE BAR 1 OF _mTools

RELEASE POPUP _mMacros

ELSE

APP_GLOBAL.cMacroPopupName = "_mMacros"

APP_GLOBAL.SetMacros() && refresh to appropriately disable bar

IF EMPTY(SET("MACKEY"))

RELEASE BAR 1 OF _mMacros

ENDIF

ENDIF

IF (NOT APP_GLOBAL.lFavorites)

RELEASE PAD _msm_Fave OF _MSYSMENU

RELEASE POPUP _mfave EXTENDED

ACTI MENU _MSYSMENU NOWAIT

ELSE

APP_GLOBAL.cFavoritePopupName = "_mFave"

APP_GLOBAL.RefreshFavoritePopup()

ENDIF

* *********************************************************

* *

* * _38C13COKN ON SELECTION BAR 1 OF POPUP представле

* *

* * Procedure Origin:

* *

* * From Menu: DOVIDNIK_GIVOPIS_MAIN.MPR, Record: 69

* * Called By: ON SELECTION BAR 1 OF POPUP представле

* * Prompt: Живопись

* * Snippet: 1

* *

* *********************************************************

*

PROCEDURE _38c13cokn

SELECT Hudogniki.fio, Hudogniki.epoha, Epohi.period, Epohi.cherti,;

Kartini.name, Kartini.museum, Museums.place;

FROM;

givopis!epohi;

INNER JOIN givopis!hudogniki;

ON Epohi.name = Hudogniki.epoha;

INNER JOIN givopis!kartini;

ON Hudogniki.fio = Kartini.fio;

AND Epohi.name = Kartini.epoha;

INNER JOIN givopis!museums;

ON Museums.name = Kartini.museum