Смекни!
smekni.com

Довідник аматора живопису (стр. 6 из 6)

MESSAGE "Arranges windows as non-overlapping tiles"

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

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 "&bsol;<Помощь" ;

KEY F1, "F1"

DEFINE BAR 2 OF помощь PROMPT "&bsol;-"

DEFINE BAR 3 OF помощь PROMPT "&bsol;<О "+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

4. Створення інсталяційного пакету

Створення інсталяційного пакету будемо проводити за допомогою програми InstallSheld Express Visual FoxPro Limited Edition:

1. Запускаємо програму InstallSheld Express Visual FoxPro Limited Edition (Рис. 4.1)

Рис. 4.1 – Головне вікно InstallSheld Express Visual FoxPro Limited Edition

2. Створюємо новий проект (Рис. 4.2)

Рис. 4.2 – Вікно New Project


Вводимо Application Information, як показано на рис. 4.3.

Рис. 4.3 – Вікно Application Information

3. Вставляємо потрібну нам БД до інсталяційного пакету (Рис. 4.4)

Рис. 4.4 – Вкладка Application Files

4. Будуємо інсталяційний пакет (Рис. 4.5).


Рис. 4.5 – Створення інсталяційного пакету програми

5. Після створення інсталяційного пакету записуємо його на диск.

Висновки

Бази даних відіграють велику роль у сучасному світі. Все з чим ми сьогодення зустрічаємось, швидше всього зареєстровано в тій чи іншій базі. При роботі з великим обсягом даних важливу роль відіграє їх наглядність. Тому часто дані представляють у вигляді таблиць. На прикладі баз даних ми ознайомимось з тим, як організовується збереження і обробка даних в таблиці, для зручності редагування та перегляду даних зробимо форми та звіти. Вміння працювати з базами даних сьогодні є одним з найважливіших навиків роботи з комп’ютером, а спеціалісти з цієї галузі ніколи не залишаться безробітними.

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

База даних має власне меню, в якому є всі запити, форми, представлення даних та багато іншого.

Таким чином, при виконанні курсової роботи були отримані практичні навички розробки баз даних та додатків для керування ними у Visual FoxPro.

Перелік використаної літератури

1. Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных: учебник для высших учебных заведений. – 3-е издание, дополненное и переработанное. – СПБ: Корона принт, 2003. – 672 с.

2. Агальцов В. П. Базы данных. – М.: Мир, 2002. – 376 с.

3. Русскоязычная справка Visual FoxPro 8.

4. Иллюстрированный самоучитель по Visual FoxPro 7

5. Методичний посібник з лабораторного практикуму. Частина 1 та 2. /Склали П.В. Бурнасов, М.П.Тиханський, Л.І.Єфименко - Кривий Ріг: КТУ, 2002.

6. Методичний посібник для проектування і програмування додатків з використанням СУБД для студентів спеціальностей 8.0101.04, 8.0914.01, 7.091501 усіх форм навчання / Укладач П.В. Бурнасов - Кривий Ріг: КТУ, 2003.

7. Ставровский А.Б. «Fox для начинающих:Учебное пособие» - К.: Издательская группа BHV, 2000. – 400 с.

8. 3. Глушаков С.В., Сурядный А.С. «Персональный компьютер». – 5-е изд., доп. и перераб. – Харьков: Фолио, 2007. – 500 с. – (Учебный курс).

9. Електронний ресурс: http://www.museum-online.ru/

10. Електронний ресурс:

11. http://av-gostemilov-foxpro.narod.ru/Glava11/Index10.htm

12. Електронний ресурс: http://www.yworld.ru/book/info/Glava13/Index6.htm