* *********************************************************
* *
* *MenuDefinition
* *
* *********************************************************
*
>DEFINEPAD _>msm_GoOF _>MSYSMENUPROMPT "<Перейти"COLORSCHEME 3 ;
>BEFORE _>MWINDOW ;
>KEYALT+G, ">ALT+G" ;
>MESSAGE ">Navigates thecurrentlyselectedtable,cursor, orview"
>ONPAD _>msm_GoOF _>MSYSMENUACTIVATEPOPUP перейти
>DEFINEPOPUP перейтиMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF перейтиPROMPT "<Початок"
>DEFINEBAR 2OF перейтиPROMPT "<Кінець"
>DEFINEBAR 3OF перейтиPROMPT "<Наступна"
>DEFINEBAR 4OF перейтиPROMPT "<Попередня"
>DEFINEBAR 5OF перейтиPROMPT "-"
>DEFINEBAR 6OF перейтиPROMPT "<Перейти на..."
>DEFINEBAR 7OF перейтиPROMPT "<Вказати..."
>DEFINEBAR 8OF перейтиPROMPT "<Сортувати зі збільшення"
>DEFINEBAR 9OF перейтиPROMPT "<Сортувати по спадаючій"
>DEFINEBAR 10OF перейтиPROMPT "Встановити <фільтр..."
>ONSELECTIONBAR 1OF перейтиAPP_GLOBAL.GoTop()
>ONSELECTIONBAR 2OF перейтиAPP_GLOBAL.GoBottom()
>ONSELECTIONBAR 3OF перейтиAPP_GLOBAL.GoNext()
>ONSELECTIONBAR 4OF перейтиAPP_GLOBAL.GoPrevious()
>ONSELECTIONBAR 6OF перейтиAPP_GLOBAL.ShowTableGoToDialog()
>ONSELECTIONBAR 7OF перейтиAPP_GLOBAL.ShowTableFindDialog()
>ONSELECTIONBAR 8OF перейтиAPP_GLOBAL.DoSort(,,,.F.)
>ONSELECTIONBAR 9OF перейтиAPP_GLOBAL.DoSort(,,,.T.)
>ONSELECTIONBAR 10OF перейтиAPP_GLOBAL.ShowTableSetFilterDialog()
>ONSELECTIONPOPUP перейтиMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>Лістингпрограмикеруваннядодатку менюDOVIDNIK_GIVOPIS_MAIN.MPR
* *********************************************************
* *
* * 05/31/11DOVIDNIK_GIVOPIS_MAIN.MPR 18:21:36
* *
* *********************************************************
* *
* * Мініх
* *
* *Copyright (З) 2011 Криворізький Технічний Університет
* *Address
* * Кривий Ріг,Zip
* * Україна
* *
* *Description:
* *ThisPROGRAMwasautomaticallygeneratedBYGENMENU.
* *
* *********************************************************
* *********************************************************
* *
* *SetupCode
* *
* *********************************************************
*
*Thisfileis agenerated,framework-enablingcomponent
*createdbyAPPBUILDER
* (з) Microsoft Corporation
#>INCLUDE [..>DOVIDNIK_GIVOPIS_APP.H]
* *********************************************************
* *
* *MenuDefinition
* *
* *********************************************************
*
>SETSYSMENUTO
>SETSYSMENUAUTOMATIC
>DEFINEPAD _>msm_fileOF _>MSYSMENUPROMPT "<>Файл"COLORSCHEME 3 ;
>NEGOTIATELEFT,NONE ;
>KEYALT+F, "" ;
>MESSAGE ">Creates,opens,saves,printsfiles orquits "+>APP_GLOBAL.cCaption
>DEFINEPAD _>msm_editOF _>MSYSMENUPROMPT "<>Правка"COLORSCHEME 3 ;
>KEYALT+E, "" ;
>MESSAGE ">Editstext orcurrentselection"
>DEFINEPAD _>msm_toolsOF _>MSYSMENUPROMPT "<Сервіс"COLORSCHEME 3 ;
>KEYALT+T, ""
>DEFINEPAD _>msm_runOF _>MSYSMENUPROMPT "<Живопис"COLORSCHEME 3 ;
>NEGOTIATELEFT,NONE ;
>KEYALT+G, "" ;
>MESSAGE "Запуск форму,отчетов, запитів по живопису"
>DEFINEPAD _>msm_progOF _>MSYSMENUPROMPT "<Програма"COLORSCHEME 3 ;
>NEGOTIATEMIDDLE,NONE ;
>KEYALT+P, "" ;
>MESSAGE ">Runs,debugs,compiles, andsuspendsprograms"
>DEFINEPAD _>msm_faveOF _>MSYSMENUPROMPT ">И<збранное"COLORSCHEME 3 ;
>KEYALT+A, ">ALT+A" ;
>MESSAGE ">Easyaccess tofavoritedocuments"
>DEFINEPAD _>msm_windoOF _>MSYSMENUPROMPT "<Вікно"COLORSCHEME 3 ;
>NEGOTIATERIGHT,NONE ;
>KEYALT+W, ""
>DEFINEPAD _>msm_systmOF _>MSYSMENUPROMPT "<Допомога"COLORSCHEME 3 ;
>KEYALT+H, ""
>ONPAD _>msm_fileOF _>MSYSMENUACTIVATEPOPUP файл
>ONPAD _>msm_editOF _>MSYSMENUACTIVATEPOPUP правка
>ONPAD _>msm_toolsOF _>MSYSMENUACTIVATEPOPUP сервіс
>ONPAD _>msm_runOF _>MSYSMENUACTIVATEPOPUP живопис
>ONPAD _>msm_progOF _>MSYSMENUACTIVATEPOPUP програма
>ONPAD _>msm_faveOF _>MSYSMENUACTIVATEPOPUP обраний
>ONPAD _>msm_windoOF _>MSYSMENUACTIVATEPOPUP вікно
>ONPAD _>msm_systmOF _>MSYSMENUACTIVATEPOPUP допомогу
>DEFINEPOPUP файлMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF файлPROMPT "<Створити..." ;
>MESSAGE ">Creates adocument"
>DEFINEBAR 2OF файлPROMPT "<Відкрити..." ;
>MESSAGE ">Opens adocument"
>DEFINEBAR 3OF файлPROMPT "<Закрити" ;
>SKIPFORTYPE("_SCREEN.Activeform") # ">O"OR _>SCREEN.ActiveForm.ShowWindow = 2 ;
>MESSAGE ">Closes theactiveform"
>DEFINEBAR 4OF файлPROMPT "-"
>DEFINEBAR 5OF файлPROMPT "<Зберегти" ;
>SKIPFOREMPTY(AUSED(latemp)) ;
>MESSAGE ">Saves theediting on thecurrentform orformset"
>DEFINEBAR 6OF файлPROMPT "<Скасувати" ;
>SKIPFOREMPTY(AUSED(latemp)) ;
>MESSAGE ">Reverts theediting on thecurrentform orformset"
>DEFINEBAR 7OF файлPROMPT "-"
>DEFINEBAR 8OF файлPROMPT ">Печат<ь..." ;
>SKIPFOREMPTY(AUSED(latemp)) ;
>MESSAGE ">Printscurrentdata"
>DEFINEBAR 9OF файлPROMPT "<Печаткаотчетов..." ;
>MESSAGE ">Picks areport"
>DEFINEBAR 10OF файлPROMPT ">На<стройки друку...."
>DEFINEBAR 11OF файлPROMPT "-"
>DEFINEBAR 12OF файлPROMPT "<Швидкий старт..." ;
>MESSAGE ">Picks aform orreportdocument torun"
>DEFINEBAR 13OF файлPROMPT "<Логін..." ;
>MESSAGE ">Log inas adifferentUser"
>DEFINEBAR 14OF файлPROMPT "-"
>DEFINEBAR 15OF файлPROMPT ">В<иход" ;
>MESSAGE ">Exit "+>APP_GLOBAL.cCaption
>ONSELECTIONBAR 1OF файлAPP_GLOBAL.DoNewOpen(.T.)
>ONSELECTIONBAR 2OF файлAPP_GLOBAL.DoNewOpen()
>ONSELECTIONBAR 3OF файлIIF(APP_GLOBAL.QueryDataSessionUnload(),APP_GLOBAL.ReleaseForm(),.T)
>ONSELECTIONBAR 5OF файлAPP_GLOBAL.DataUpdate()
>ONSELECTIONBAR 6OF файлAPP_GLOBAL.DataRevert()
>ONSELECTIONBAR 8OF файлAPP_GLOBAL.DoTableOutput()
>ONSELECTIONBAR 9OF файлAPP_GLOBAL.DoReportDialog()
>ONSELECTIONBAR 10OF файлSETPRINTERTONAME (>SYS(1037))
>ONSELECTIONBAR 12OF файлAPP_GLOBAL.DoStartupForm()
>ONSELECTIONBAR 13OF файлIIF(APP_GLOBAL.ReleaseForms(),IIF(APP_GLOBAL.SetCurrentUser(.T.),.T.,APP_GLOBAL.Release()),.T.)
>ONSELECTIONBAR 15OF файлAPP_GLOBAL.Release()
>DEFINEPOPUP правкаMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR _>med_undoOF правкаPROMPT "<Скасувати" ;
>KEYCTRL+Z, ">Ctrl+Z" ;
>MESSAGE ">Undoes the lastcommand oraction"
>DEFINEBAR _>med_redoOF правкаPROMPT ">По<вторить" ;
>KEYCTRL+R, ">Ctrl+R" ;
>MESSAGE ">Repeats the lastcommand oraction"
>DEFINEBAR _>med_sp100OF правкаPROMPT "-"
>DEFINEBAR _>med_cutOF правкаPROMPT ">Ви<резать" ;
>KEYCTRL+X, ">Ctrl+X" ;
>MESSAGE ">Removes theselection andplaces itonto theClipboard"
>DEFINEBAR _>med_copyOF правкаPROMPT "<>Копировать" ;
>KEYCTRL+C, ">Ctrl+C" ;
>MESSAGE ">Copies theselectiononto theClipboard"
>DEFINEBAR _>med_pasteOF правкаPROMPT "<Вставити" ;
>KEYCTRL+V, ">Ctrl+V" ;
>MESSAGE ">Pastes thecontents of theClipboard"
>DEFINEBAR _>med_clearOF правкаPROMPT ">Очи<стить" ;
>MESSAGE ">Removes theselection anddoesnotplace itonto theClipboard"
>DEFINEBAR _>med_sp200OF правкаPROMPT "-"
>DEFINEBAR _>med_slctaOF правкаPROMPT ">Ви<брать все" ;
>KEYCTRL+A, ">Ctrl+A" ;
>MESSAGE ">Selects alltext oritems in thecurrentwindow"
>DEFINEBAR _>med_sp300OF правкаPROMPT "-"
>DEFINEBAR _>med_findOF правкаPROMPT "<Знайти..." ;
>KEYCTRL+F, ">Ctrl+F" ;
>MESSAGE ">Searchesforspecifiedtext"
>DEFINEBAR _>med_findaOF правкаPROMPT "Знайтие<ще раз" ;
>KEYCTRL+G, ">Ctrl+G" ;
>MESSAGE ">Repeats the lastsearch"
>DEFINEBAR _>med_replOF правкаPROMPT ">З<аменить..." ;
>KEYCTRL+L, ">Ctrl+L" ;
>MESSAGE ">Replacesspecifiedtextwithdifferenttext"
>DEFINEPOPUP сервісMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF сервісPROMPT ">М<акрос..." ;
>MESSAGE ">Creates,deletes, orrevises akeyboardmacro"
>DEFINEBAR 2OF сервісPROMPT "<>Логи помилок"
>DEFINEBAR 3OF сервісPROMPT "-"
>DEFINEBAR 4OF сервісPROMPT "<>Опции..."
>DEFINEBAR 5OF сервісPROMPT "<Замінити пароль..."
>ONBAR 1OF сервісACTIVATEPOPUP макрос
>ONBAR 2OF сервісACTIVATEPOPUPлогиошибок
>ONSELECTIONBAR 4OF сервісAPP_GLOBAL.DoOptionsDialog()
>ONSELECTIONBAR 5OF сервісAPP_GLOBAL.DoChangePassword()
>DEFINEPOPUP макросMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF макросPROMPT "<Записати макрос"
>DEFINEBAR 2OF макросPROMPT "<Очистити макрос"
>DEFINEBAR 3OF макросPROMPT "<Зберегти макрос за умовчанням"
>DEFINEBAR 4OF макросPROMPT "Відновити <макрос за умовчанням"
>ONSELECTIONBAR 1OF макросKEYBOARD ("{"+>SET("MACKEY")+"}")
>ONSELECTIONBAR 2OF макросCLEARMACROS
>ONSELECTIONBAR 3OF макросAPP_GLOBAL.SetMacros(.T.)
>ONSELECTIONBAR 4OF макросAPP_GLOBAL.SetMacros()
>DEFINEPOPUPлогиошибокMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OFлогиошибокPROMPT "<Показати лот помилок"
>DEFINEBAR 2OFлогиошибокPROMPT "<>Експортировать лот"
>DEFINEBAR 3OFлогиошибокPROMPT "<Очистити лот"
>ONSELECTIONBAR 1OFлогиошибокAPP_GLOBAL.DisplayErrorLog()
>ONSELECTIONBAR 2OFлогиошибокAPP_GLOBAL.ExportErrorLog()
>ONSELECTIONBAR 3OFлогиошибокAPP_GLOBAL.PurgeErrorLog()
>DEFINEPOPUP живописMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF живописPROMPT "<>ФОРМЫ"
>DEFINEBAR 2OF живописPROMPT "<>ОТЧЁТЫ"
>DEFINEBAR 3OF живописPROMPT "<ЗАПИТИ"
>DEFINEBAR 4OF живописPROMPT "<УЯВЛЕННЯ"
>ONBAR 1OF живописACTIVATEPOPUP форми
>ONBAR 2OF живописACTIVATEPOPUP звіти
>ONBAR 3OF живописACTIVATEPOPUP запити
>ONBAR 4OF живописACTIVATEPOPUPпредставле
>DEFINEPOPUP формиMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF формиPROMPT "<Художники"
>DEFINEBAR 2OF формиPROMPT "<Картини"
>DEFINEBAR 3OF формиPROMPT "<Епохи"
>DEFINEBAR 4OF формиPROMPT "<Музеї"
>ONSELECTIONBAR 1OF формиDOFORM ">H:VisualFoxProProjectsDovidnik_givopisFORMSartists.scx"
>ONSELECTIONBAR 2OF формиDOFORM ">H:VisualFoxProProjectsDovidnik_givopisFORMSpictures.scx"
>ONSELECTIONBAR 3OF формиDOFORM ">H:VisualFoxProProjectsDovidnik_givopisFORMSepoch.scx"
>ONSELECTIONBAR 4OF формиDOFORM ">H:VisualFoxProProjectsDovidnik_givopisFORMSmuseums.scx"
>DEFINEPOPUP звітиMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF звітиPROMPT "<>КАРТИНЫ"
>DEFINEBAR 2OF звітиPROMPT "<ЕПОХИ"
>ONSELECTIONBAR 1OF звітиREPORTFORM ">H:VisualFoxProProjectsDovidnik_givopisREPORTSKARTINI.FRX "PREVIEW
>ONSELECTIONBAR 2OF звітиREPORTFORM "H:VisualFoxProProjectsDovidnik_givopisREPORTSEPOHI.FRX "PREVIEW
>DEFINEPOPUP запитиMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF запитиPROMPT "<Художники"
>DEFINEBAR 2OF запитиPROMPT "<Картини так Вінчі"
>ONSELECTIONBAR 1OF запитиDO ">h:visualfoxproprojectsdovidnik_givopis_2queriesquery1_hud.qpr"
>ONSELECTIONBAR 2OF запитиDO ">h:visualfoxproprojectsdovidnik_givopis_2queriesquery2_kart.qpr"
>DEFINEPOPUPпредставлеMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OFпредставлеPROMPT "<Живопис"
>ONSELECTIONBAR 1OFпредставле ;
>DO _>38c13cokn ;
INLOCFILE("DOVIDNIK_GIVOPIS_2MENUSDOVIDNIK_GIVOPIS_MAIN" ,">MPX;MPR|FXP;PRG" ,">WHEREisDOVIDNIK_GIVOPIS_MAIN?")
>DEFINEPOPUP програмаMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR _>mpr_doOF програмаPROMPT "<Запустити..." ;
>MESSAGE ">Runs aprogram,application,form,report,query, ormenu"
>DEFINEBAR _>mpr_canclOF програмаPROMPT "<Скасувати" ;
>MESSAGE ">Stopsrunning thecurrentprogram"
>DEFINEBAR _>mpr_resumOF програмаPROMPT "<Продовжити" ;
>MESSAGE ">Resumesrunning thecurrentsuspendedprogram"
>DEFINEBAR _>mpr_suspendOF програмаPROMPT "<Зупинити" ;
>MESSAGE ">Suspends thecurrentlyrunningprogram"
>DEFINEBAR _>mpr_complOF програмаPROMPT ">С<компилировать..." ;
>MESSAGE ">Compiles thecurrent orselectedprogram"
>DEFINEBAR 6OF програмаPROMPT "-"
>DEFINEBAR 7OF програмаPROMPT ">Отл<адчик"
>DEFINEBAR 8OF програмаPROMPT ">С<ессии даних"
>DEFINEBAR 9OF програмаPROMPT ">Ко<мандная рядок"
>DEFINEBAR 10OF програмаPROMPT "-"
>DEFINEBAR _>mtl_browserOF програмаPROMPT ">Проводник <класів" ;
>MESSAGE ">Runs theClassBrowser"
>ONSELECTIONBAR 7OF програмаDEBUG
>ONSELECTIONBAR 8OF програмаAPP_GLOBAL.ActivateSystemWindow("View")
>ONSELECTIONBAR 9OF програмаAPP_GLOBAL.ActivateSystemWindow("Command")
>DEFINEPOPUP обранийMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF обранийPROMPT "<Додати в обраний..." ;
>MESSAGE ">Add toFavoritesmenu"
>DEFINEBAR 2OF обранийPROMPT "<Очистити обраний" ;
>MESSAGE ">Clear list ofFavorites"
>DEFINEBAR 3OF обранийPROMPT "-"
>ONSELECTIONBAR 1OF обранийAPP_GLOBAL.DoStartupForm(.T.)
>ONSELECTIONBAR 2OF обранийAPP_GLOBAL.ClearFavorites()
>DEFINEPOPUP вікноMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF вікноPROMPT "<>Каскадом"
>DEFINEBAR _>mwi_arranOF вікноPROMPT "<Організувативс" ;
>MESSAGE ">Arrangeswindowsasnon-overlappingtiles"
>DEFINEBAR _>mwi_rotatOF вікноPROMPT ">Ц<икл" ;
>KEYCTRL+F1, ">CTRL+F1"
>ONSELECTIONBAR 1OF вікноAPP_GLOBAL.CascadeAll()
>DEFINEPOPUP допомогуMARGINRELATIVESHADOWCOLORSCHEME 4
>DEFINEBAR 1OF допомогуPROMPT "<Допомога" ;
>KEYF1, ">F1"
>DEFINEBAR 2OF допомогуPROMPT "-"
>DEFINEBAR 3OF допомогуPROMPT "<Про "+>APP_GLOBAL.cCaption+"..."
>ONSELECTIONBAR 1OF допомогуAPP_GLOBAL.DoHelp()
>ONSELECTIONBAR 3OF допомогуAPP_GLOBAL.DoAboutBox()
>ONSELECTIONPOPUP файлMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUP сервісMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUPлогиошибокMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUP програмаMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUP обранийMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUP вікноMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
>ONSELECTIONPOPUP допомогуMESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
* *********************************************************
* *
* *CleanupCode &Procedures
* *
* *********************************************************
*
*none ofthesestatementswillwork
* inexactlythisway in a Topmenu --
*we'lluse thearrayelements
>IFVERSION(2) = 0
>RELEASEPAD _>msm_progOF _>MSYSMENU
>RELEASEPOPUP _>mprogEXTENDED
>SETSYSMENUSAVE
>SETSYSMENUTO
>SETSYSMENUTODEFAULT
>ENDIF
* theprogrampaditems,above,alwaysget
*getreleased inruntime,butsomeitems
*specific toapplication statemaybe
*released ordisabledasyouchoose:
>IFNOTAPP_GLOBAL.lReleaseUnusedMenuItems
>IFEMPTY(APP_GLOBAL.cHelpFile)
>SETSKIPOFBAR 1OF _>msystem .T.
>ENDIF
>IFEMPTY(APP_GLOBAL.cOptionsDialogClass)
>SETSKIPOFBAR 4OF _>mtools .T.
>ENDIF
>IFEMPTY(APP_GLOBAL.cAboutBoxClass)
>SETSKIPOFBAR 3OF _>msystem .T.
>ENDIF
>IFEMPTY(APP_GLOBAL.cStartupFormClass) ;
>ORNOT (>APP_GLOBAL.lStartupForm)
>SETSKIPOFBAR 12OF _>mfile .T.
>ENDIF
>IFNOTAPP_GLOBAL.lUserPreferences
>SETSKIPOFBAR 13OF _>mfile .T.
>SETSKIPOFBAR 5OF _>mtools .T.
>ENDIF
>ELSE
*ifyouprefer
>IFEMPTY(APP_GLOBAL.cOptionsDialogClass)
>RELEASEBAR 4OF _>mtools
>ENDIF
>IFEMPTY(APP_GLOBAL.cAboutBoxClass)
>RELEASEBAR 3OF _>msystem
>ENDIF
>IFEMPTY(APP_GLOBAL.cHelpFile)
>RELEASEBAR 1OF _>msystem
>RELEASEBAR 2OF _>msystem
>ENDIF
>IFNOTAPP_GLOBAL.lUserPreferences
>RELEASEBAR 13OF _>mfile
>RELEASEBAR 14OF _>mfile
>RELEASEBAR 5OF _>mtools
>ENDIF
>IFEMPTY(APP_GLOBAL.cStartupFormClass) ;
>ORNOT (>APP_GLOBAL.lStartupForm)
>RELEASEBAR 12OF _>mfile
>ENDIF
>ENDIF
>IF (>NOTAPP_GLOBAL.lReadEvents)
*unlikelyfor aReplace-stylemenuunless
* TopForm,but thefollowing
*isn'tsafe in anon-ReadEventsenvironment
>RELEASEBAR 1OF _>mTools
>RELEASEPOPUP _>mMacros
>ELSE
>APP_GLOBAL.cMacroPopupName = "_>mMacros"
>APP_GLOBAL.SetMacros() &&refresh toappropriatelydisablebar
>IFEMPTY(SET("MACKEY"))
>RELEASEBAR 1OF _>mMacros
>ENDIF
>ENDIF
>IF (>NOTAPP_GLOBAL.lFavorites)
>RELEASEPAD _>msm_FaveOF _>MSYSMENU
>RELEASEPOPUP _>mfaveEXTENDED
>ACTIMENU _>MSYSMENUNOWAIT
>ELSE
>APP_GLOBAL.cFavoritePopupName = "_>mFave"
>APP_GLOBAL.RefreshFavoritePopup()
>ENDIF
* *********************************************************
* *
* * _>38C13COKNONSELECTIONBAR 1OFPOPUPпредставле
* *
* *ProcedureOrigin:
* *
* *FromMenu:DOVIDNIK_GIVOPIS_MAIN.MPR,Record: 69
* *CalledBy:ONSELECTIONBAR 1OFPOPUPпредставле
* *Prompt: Живопис
* *Snippet: 1
* *
* *********************************************************
*
>PROCEDURE _>38c13cokn
>SELECTHudogniki.fio,Hudogniki.epoha,Epohi.period,Epohi.cherti,;
>Kartini.name,Kartini.museum,Museums.place;
>FROM ;
>givopis!epohi ;
>INNERJOINgivopis!hudogniki ;
>ONEpohi.name =Hudogniki.epoha ;
>INNERJOINgivopis!kartini ;
>ONHudogniki.fio =Kartini.fio;
>ANDEpohi.name =Kartini.epoha ;
>INNERJOINgivopis!museums ;
>ONMuseums.name =Kartini.museum
>Створенняінсталяційного пакету будемопроводити задопомогоюпрограмиInstallSheld ExpressVisualFoxPro LimitedEdition:
1.ЗапускаємопрограмуInstallSheld ExpressVisualFoxPro LimitedEdition (>Рис. 4.1)
>Рис. 4.1 –ГоловневікноInstallSheld ExpressVisualFoxPro LimitedEdition
2.Створюємоновий проект (>Рис. 4.2)
>Рис. 4.2 –Вікно New Project
>ВводимоApplication Information, як показано на рис. 4.3.
>Рис. 4.3 –ВікноApplication Information
3.Вставляємопотрібну намБД доінсталяційного пакету (>Рис. 4.4)
>Рис. 4.4 –ВкладкаApplicationFiles
4.Будуємоінсталяційний пакет (>Рис. 4.5).
>Рис. 4.5 –Створенняінсталяційного пакетупрограми
5.Післястворенняінсталяційного пакетузаписуємо його на диск.
Базіданихвідіграютьвелику роль усучасному світі. Усі ізчим мисьогоденнязустрічаємось,швидшевсьогозареєстровано втій чиіншійбазі. Прироботі із великимобсягомданихважливу рольвідіграє їхньогонаглядність. Тому частоданіпредставляють увиглядітаблиць. Наприкладі базданих миознайомимось із тім, якорганізовуєтьсязбереження йобробкаданих втаблиці, длязручностіредагування тапереглядуданихзробимоформи тазвіти.Вмінняпрацювати із базамиданихсьогодніє одним ізнайважливішихнавиків роботи ізкомп’ютером, аспеціалісти ізцієїгалузініколи незалишатьсябезробітними.
Результатомданої роботиє базаданих подназвою «>Довідник аматораживопису». Уційбазіданих,окрімтаблиць, щомістятьінформацію прохудожників,картини,епохиживопису,музеї таінше,єтакожформи, щозабезпечуютькористувачевіможливостіперегляду йредагуваннябазиданих.Булитакожстворенізапити, котріпоказуютьокремічастинибазиданих, котрівідібрані попевномукритерію, атакожпредставленняданих, щозабезпечуєкористувачевіможливістьпереглядуповноговмістубазиданих.
Базаданихмаєвласне меню, вякомує усізапити,форми,представленняданих та багатоіншого.
Таким чином, привиконаннікурсової роботи булиотриманіпрактичнінавички розробки базданих тадодатків длякерування ними уVisualFoxPro.
1.Хомоненко А. Д.,Циганков У. М., Мальцев М. Р. Бази даних: підручник для ВНЗ. – 3-тє видання, доповнене і перероблене. – СПБ: Коронапринт, 2003. – 672 з.
2.Агальцов У. П. Бази даних. – М.: Світ, 2002. – 376 з.
3. Російськомовна довідкаVisualFoxPro 8.
4. Ілюстрований самовчитель поVisualFoxPro 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.Електронний ресурс:museum-online/
10.Електронний ресурс:
11.av-gostemilov-foxpro.narod/Glava11/Index10.htm
12.Електронний ресурс:yworld/book/info/Glava13/Index6.htm
Нові надходження
Реклама
Контакти