В даний час Visual dBase належить компанії dBase Іnc. Його остання версія -- Visual dBase 7.5 має наступні можливості:

* Засоби маніпуляції даними dBase і FoxPro усіх версій.

* Засоби створення форм, звітів і додатків.

* Засоби публікації даних в Internet і створення Web-клієнтів.

* Ядро доступу до даних Advantage Database Server фірми Extended Systems і ODBC- драйвер для доступу до даних цієї СУБД.

* Засоби публікації звітів у Web.

* Засоби візуальної побудови запитів.

* Засоби генерації файлів, що виконуються, і дистрибутивів.

В даний час до Visual dBase як доповнення може бути придбаний компонент dConnectіons, що дозволяє здійснити доступ до даних Oracle, Sybase, Informix, MS SQL Server, DB2, InterBase з Visual dBase 7.5 і додатків, створених з його допомогою.

1.3.2 Paradox

Поточна версія даної СУБД - Paradox 9, поставляється в двох варіантах - Paradox 9 Standalone Edition і Paradox 9 Developer's Edition. Перший з них призначений для використання в якості настільної СУБД і входить у Corel Office Professional, другий -- у якості як настільної СУБД, так і засобу розробки додатків і маніпуляції даними в серверних СУБД. Обидві версії містять:

* Засоби маніпуляції даними Paradox і dBase.

* Засоби створення форм, звітів і додатків.

* Засоби візуальної побудови запитів.

* Засоби публікації даних і звітів в Internet і створення Web-клієнтів.

* Corel Web-сервер.

* ODBC -- драйвер для доступу до даних формату Paradox з Windows -- додатків.

* Засобу для доступу до даних формату Paradox з Java-додатків.

Крім цього Paradox 9 Developer's Edition містить:

* Run-time- версію Paradox для постачання разом з додатками.

* Засоби створення дистрибутивів.

* Драйвери SQL Links для доступу до даних серверних СУБД.

Відзначимо, однак, що популярність цього продукту як засобу розробки останнім часом трохи знизилася, хоча у світі експлуатується ще чимало інформаційних систем, створених з його допомогою.

1.3.3 Microsoft Visual FoxPro

Visual Fox Pro 9.0 надає наступні можливості:

* Засоби публікації даних в Internet і створення Web-клієнтів.

* Засоби створення ASP -- компонентів і Web-додатків.

* Засоби створення COM - об'єктів і об'єктів для Microsoft Transactіon Server, що дозволяють створювати багатоланкові додатки для обробки даних, які масштабуються.

* Засоби доступу до даних серверних СУБД, що базуються на використанні OLE DB (набір COM-інтерфейсів, що дозволяє здійснити уніфікований доступ до даних з різноманітних джерел, у тому числі з нереляційних баз даних і інших джерел, наприклад Microsoft Exchange).

* Засоби доступу до даних Microsoft SQL Server і Oracle, включаючи можливість створення і редагування таблиць, тригерів, збережених процедур

* Засоби налагодження збережених процедур Microsoft SQL Server.

* Засіб візуального моделювання компонентів і об'єктів, що є складовими частинами додатка -- Visual Modeler.

* Засіб для керування компонентами додатків, що дозволяє здійснювати їхнє повторне використання.

Отже, тенденції розвитку цього продукту очевидні: з настільної СУБД Visual FoxPro поступово перетворюється в засіб розробки додатків в архітектурі “клієнт-сервер” і розподілених додатків в архітектурі Windows DNA. Утім, ці тенденції деякою мірою характерні для усіх найбільш популярних настільних СУБД -- ми вже переконалися, що і dBase, і Paradox також дозволяють здійснювати доступ до найбільш популярних серверних СУБД.

1.3.4 Microsoft Access

Остання версія цієї СУБД -- Access 2010 входить до складу Microsoft Office 2010, а також доступна як самостійний продукт. До складу Access 2010 входять:

* Засоби маніпуляції даними Access і даними, доступними через ODBC (останні можуть бути “приєднані” до бази даних Access).

* Засоби створення форм, звітів і додатків; при цьому звіти можуть бути експортовані у формат Microsoft Word чи Microsoft Excel, а для створення додатків використовується Visual Basic for Applications, загальний для всіх складових частин Microsoft Office.

* Засоби публікації звітів в Internet.

* Засоби створення інтерактивних Web -- додатків для роботи з даними (Data Access Pages).

* Засоби доступу до даних серверних СУБД через OLE DB.

* Засоби створення клієнтських додатків для Microsoft SQL Server.

* Засобу адміністрування Microsoft SQL Server.

Підтримка COM у Access виражається в можливості використовувати елементи керування Active у формах і Web-сторінках, створених за допомогою Access. На відміну від Visual FoxPro створення COM -- серверів за допомогою Access не передбачається. Microsoft Access може бути використаний, з одного боку, у якості настільної СУБД і складової частини офісного пакета, а з іншого боку, в якості клієнта Microsoft SQL Server, що дозволяє здійснювати його адміністрування, маніпуляцію його даними і створення додатків для цього сервера.

Крім маніпуляції даними Microsoft SQL Server, Access 2000 дозволяє також як сховище даних використовувати Microsoft Data Engine (MSDE), що представляє собою власне кажучи настільний сервер баз даних, сумісний з Microsoft SQL Server.

1.3.5 Microsoft Data Engine

Тестова задача - це сукупність даних та процедур їх обробки, які дозволяють визначити чи є вірними та безпомилково реалізованими алгоритми обробки даних. Інакше кажучи, це "правильні" та "неправильні" дані які необхідно розмістити у базі даних і при виконанні програми вона повинна " правильні" дані обробити наперед заданим чином, а на "неправильні" дані відреагувати адекватно (виправити їх, видати відповідні діагностичні повідомленні і т.д.).

2. Проектування задачі

Visual FoxPro - це мова програмування систем управління реляційними базами даних, розроблена корпорацією Microsoft. Також це об'єктно-орієнтована, процедурна, візуально-програмована мова, що керується по подіях. В якості подій у Visual FoxPro розглядаються певні дії, що викликають стандартну реакцію об'єкта.

Основою для даного програмного продукту послужив мова програмування FoxPro. Відноситься до сімейства мов xBase, розроблених на базі синтаксису мови програмування dBase.

Visual FoxPro належить до реляційних баз даних, у яких вся інформація зведена до таблиць, строки та стовпці у яких називаються відповідно записами та полями.

2.1.1 Створення проекту

Для створення нового проекту у головному вікні Visual FoxPro обираємо пункт меню File>New… та обираємо створення проекту за допомогою майстра (Wizard). Пишемо ім'я проекту Dovidnik_givopis та обираємо каталог для збереження файлів проекту (рис. 2.1)

Рис. 2.1 - Створення файлу проекту

Після цього Visual FoxPro створює структуру каталогів та необхідні для проекту базові компоненти і на екрані з'являється діалогове вікно конструктора додатків, що показано на рис. 2.2, з пропозицією ввести параметри для даного проекту: ім'я, малюнок, дані про автора та інше.

Рис. 2.2- Вікно редагування параметрів проекту

Створений проект автоматично відкривається для редагування і усі його компоненти можна побачити у вікні Project Manager, що зображене на рис. 2.3.

Рис. 2.3- Менеджер проекту

2.1.2 Створення бази даних

1. Таблиця epohi має поля: kod (код епохи), name (назва епохи живопису), period (історичний період), cherti (коротка характеристика епохи), predstaviteli (найвідоміші представники епохи);

2. Таблиця hudogniki має поля: num (номер), fio (прізвище, ім'я та по-батькові художника), date_birth (дата народження художника), date_death (дата смерті художника), epoha (спрямування в історії живопису), count_kartin (кількість картин, що написав художник), best_kartin (найкращі картини художника);

3. Таблиця kartini має поля: num (номер), name (назва картини), fio (прізвище, ім'я та по-батькові художника), date (дата написання картини), epoha (епоха, в яку була створена картина), razmer (розмір картини), material (матеріал, з якого було створено картину), museum (музей, в якому картина зберігаться);

4. Таблиця museums має поля: kod (код музею), name (зава музею), place (місце розташування), opisanie (короткий опис музею).

Для того, щоб створити кожну з таблиць, натискаємо на хрестик поруч з базою даних та зі списку обираємо пункт Tables. Натискаємо Create… >New table та обираємо ім'я таблиці і місце зберігання - каталог Data. Після цього відкривається вікно табличного редактора першої таблиці epohi (рис. 2.4), у якому вводимо імена та псевдоніми для полів таблиці, типи даних цих полів. На вкладці Індекси створюємо необхідні для роботи індекси (рис. 2.5).

Рис. 2.4 - Створення полів таблиці epohi

Рис. 2.5 - Створення індексів таблиці epohi

Після створення усіх полів та індексів відкриваємо таблицю для введення даних, натиснувши кнопку Browse. Для створення нового запису необхідно натиснути комбінацію клавіш Ctrl+Y. Заповнена таблиця epohi показана на рис. 2.6.

Рис. 2.6 - Заповнена даними таблиця epohi

Аналогічно створюємо заповнюємо і інші 3 таблиці:

1) створення полів таблиць hudogniki, kartini, museums відповідно показано на рис. 2.7, 2.10 та 2.13;

2) створення індексів таблиць hudogniki, kartini, museums відповідно показано на рис. 2.8, 2.11 та 2.14;

3) заповнення даними таблиць hudogniki, kartini, museums відповідно показано на рис. 2.9, 2.12 та 2.15.

Рис. 2.7 - Створення полів таблиці hudogniki

Рис. 2.8 - Створення індексів таблиці hudogniki

Рис. 2.9 - Заповнена даними таблиця hudogniki

Рис. 2.10 - Створення полів таблиці kartini

Рис. 2.11 - Створення індексів таблиці kartini

Рис. 2.12 - Заповнена даними таблиця kartini

Рис. 2.13 - Створення полів таблиці museums

Рис. 2.14 - Створення індексів таблиці museums

Рис. 2.15 - Заповнена даними таблиця museums

2.1.4 Встановлення зв'язків між таблицями

У вікні Database designer відкриваємо створені раніше таблиці та встановлюємо необхідні для роботи зв'язки, використовуючи створені на попередньому етапі індекси. Схема зв'язків між таблицями показана на рис. 2.16.

Рис. 2.16 - Схема зв'язків між таблицями бази Dovidnik_Givopis

2.1.5 Визначення умов цілісності даних

Перевірка цілісності даних може здійснюватися програмними засобами. Однак більш правильним є визначення умови цілісності даних на рівні бази даних, тому що в цьому випадку жодний додаток не може порушити цілісність даних.

Встановити умови цілісності даних можна за допомогою вікна “REFERENTIAL INTEGRITY BUILDER”. Їх встановлення показано нижче на рис. 2.17.

Рис. 2.17 - Визначення умов цілісності даних бази

Як бачимо в полі UPDATE усіх зв'язків між таблицями стоїть опція CASCADE, яка означає наступне: при зміні значень полів первинного ключа чи ключа-кандидата в батьківській таблиці автоматично здійснюється каскадна зміна усіх відповідних значень у дочірній таблиці. Наприклад, якщо це правило застосувати до відношення між таблицями hudogniki і kartini, то при зміні коду диска в таблиці hudogniki автоматично будуть змінені коди диска й у таблиці kartini.

Для поля DELETE також встановлена опція CASCADE, але тут вона означає дещо інше: при видаленні запису в батьківській таблиці автоматично здійснюється каскадне видалення всіх записів з дочірньої таблиці, зв'язаних із записом, що видаляється.

Для поля INSERT встановлена опція IGNORE, що означає наступне: при введенні даних у дочірню таблицю не аналізується значення індексного вираження. Цілісність даних при цьому не підтримується.

При визначенні умов цілісності даних VISUAL FOX PRO створює службові тригери, текст яких можна переглянути у вкладці STORED PROCEDURES.

2.2 Створення форм

SELECT Kartini.name, Kartini.fio, Kartini.date, Kartini.epoha,;

Kartini.museum;

FROM ;

GIVOPIS!KARTINI;

WHERE Kartini.fio = ( "Леонардо да Винчи" );

ORDER BY Kartini.name

2.4 Формування локальних представлень даних

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

2.5 Створення звітів

DO FORM “H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\artists.scx”

· Пункт «Картины»:

DO FORM “H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\pictures.scx”

· Пункт «Эпохи»:

DO FORM “H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\epoch.scx”

· Пункт «Музеи»:

DO FORM “H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\museums.scx”

2. Підменю Отчёты (має 2 пункти) призначене для перегляду звітів про склад бази даних.

Для виклику звіту про картини потрібно використати наступну команду:

REPORT FORM

"H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\PICTURES.FRX " PREVIEW

Для виклику звіту про епохи живопису була використана наступна команда:

REPORT FORM

" H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\EPOCH.FRX " PREVIEW

3. В підменю Запросы є 2 запити до бази даних, що були створені раніше. Для їх виклику з меню потрібно використати такі команди відповідно:

DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query1_hud.qpr"

DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query2_kart.qpr"

4. В підменю Представления є 1 представлення даних бази даних, що було створене раніше. Для його виклику з меню потрібно теж створити процедуру та вписати в неї SQL-код представлення даних, що було приведене раніше.

2.7 Компіляція додатку

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

* *

* * 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()