Описання задачі автоматизації
В ході написання представленої курсової роботи були реалізовані такі задачі автоматизації:
ввід і коригування даних в масиві груп відеодисків
ввід і коригування даних в масиві відеодисків
ввід і коригування даних в масиві груп абонентів
ввід і коригування даних в масиві абонентів
ввід і коригування даних в масиві видач
формування звіту «Каталог дисків»
формування звіту «Обертаність дисків»
формування звіту «Перелік неповернених дисків»
Результатом автоматизації можна вважати звітні відомості. На рисунках 4.6.1-4.6.3. зображені екранні форми відповідних відомостей.
Рисунок 4.6.1.
Рисунок 4.6.2
Рисунок 4.6.3.
В додатку № 1 приведено алгоритм рішення задачі автоматизації.
Висновки
В ході написання представленої роботи була вивчена предметна область «Прокат відеодисків», розроблена відповідна інформаційна система, у середовищі Visual FoxPro складена база даних і написано програмний продукт, який дає змогу обслуговувати базу даних, здійснювати розрахунки і формувати результатні відомості. Для подальшого розвитку представленої системи варто додати програмні модулі, які не входять до складу програмного продукту, наприклад, відбір виданих певному абоненту дисків чи перелік абонентів, які позичали певний диск.
Загалом представлена робота відповідає поставленій задачі і може бути використана при роботі невеликих закладів відеопрокату.
СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ
Глушков С.В., Ломотько Д.В. Бази даних. – Харків, 2002. – 504с.
Ульман Дж.Д. Основи систем баз даних.-М.,1993
Берко А.Ю., Верес О.М., Пасічник В.В., Системи баз даних та знань, Львів, 2008 – 453с.
Пасічник В.В., Резніченко В.А., Організація баз даних та знань, 2006 – 384с.
В.В. Кириллов СitForum «Основи проектирования реляционних баз данних»» – М.: ЗАО «Издательство Тризор», 2002. –121 с.
Додатки
Додаток № 1
Алгоритм рішення задачі автоматизації
Додаток № 2
Текст програмного модуля menu1.Mpr
LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
LOCAL cMenuName, nTotPops, a_menupops
IF TYPE("m.oFormRef") # "O" OR ;
LOWER(m.oFormRef.BaseClass) # 'form' OR ;
m.oFormRef.ShowWindow # 2
MESSAGEBOX([This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.])
RETURN
ENDIF
m.cMenuName = IIF(TYPE("m.getMenuName")="C",m.getMenuName,SYS(2015))
IF TYPE("m.getMenuName")="L" AND m.getMenuName
m.oFormRef.Name = m.cMenuName
ENDIF
DIMENSION a_menupops[3]
IF TYPE("m.lUniquePopups")="L" AND m.lUniquePopups
FOR nTotPops = 1 TO ALEN(a_menupops)
a_menupops[m.nTotPops]= SYS(2015)
ENDFOR
ELSE
a_menupops[1]="дан"
a_menupops[2]="звти"
a_menupops[3]="сервс"
ENDIF
DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR
DEFINE PAD _3dn0wq72p OF (m.cMenuName) PROMPT "Дані" COLOR SCHEME 3 ;
KEY CTRL+D, "CTRL+D"
DEFINE PAD _3dn0wq72q OF (m.cMenuName) PROMPT "Звіти" COLOR SCHEME 3 ;
KEY CTRL+Z, "CTRL+Z"
DEFINE PAD _3dn0wq72r OF (m.cMenuName) PROMPT "Сервіс" COLOR SCHEME 3 ;
KEY CTRL+S, "CTRL+S"
DEFINE PAD _3dn0wq72s OF (m.cMenuName) PROMPT "Вихід" COLOR SCHEME 3 ;
KEY CTRL+X, "CTRL+X"
ON PAD _3dn0wq72p OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])
ON PAD _3dn0wq72q OF (m.cMenuName) ACTIVATE POPUP (a_menupops[2])
ON PAD _3dn0wq72r OF (m.cMenuName) ACTIVATE POPUP (a_menupops[3])
ON SELECTION PAD _3dn0wq72s OF (m.cMenuName) ;
DO _3dn0wq72t ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[1]) PROMPT "Групи дисків" ;
KEY CTRL+S, "CTRL+S"
DEFINE BAR 2 OF (a_menupops[1]) PROMPT "Відеодиски" ;
KEY CTRL+W, "CTRL+W"
DEFINE BAR 3 OF (a_menupops[1]) PROMPT "Групи абонентів" ;
KEY CTRL+G, "CTRL+G"
DEFINE BAR 4 OF (a_menupops[1]) PROMPT "Абоненти" ;
KEY CTRL+F, "CTRL+F"
DEFINE BAR 5 OF (a_menupops[1]) PROMPT "\-" ;
KEY CTRL+T, "CTRL+T"
DEFINE BAR 6 OF (a_menupops[1]) PROMPT "Видачі" ;
KEY CTRL+N, "CTRL+N"
ON SELECTION BAR 1 OF (a_menupops[1]) ;
DO _3dn0wq72u ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF (a_menupops[1]) ;
DO _3dn0wq72v ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 3 OF (a_menupops[1]) ;
DO _3dn0wq72w ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 4 OF (a_menupops[1]) ;
DO _3dn0wq72x ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 6 OF (a_menupops[1]) ;
DO _3dn0wq735 ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[2]) PROMPT "Звіт1" ;
KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 2 OF (a_menupops[2]) PROMPT "Звіт2" ;
KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 3 OF (a_menupops[2]) PROMPT "Звіт3" ;
KEY CTRL+Z, "CTRL+Z"
ON SELECTION BAR 1 OF (a_menupops[2]) ;
DO _3dn0wq736 ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 2 OF (a_menupops[2]) ;
DO _3dn0wq737 ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ON SELECTION BAR 3 OF (a_menupops[2]) ;
DO _3dn0wq738 ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "Видалення" ;
KEY CTRL+D, "CTRL+D"
ON SELECTION BAR 1 OF (a_menupops[3]) ;
DO _3dn0wq739 ;
IN LOCFILE("VIDEO\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")
ACTIVATE MENU (m.cMenuName) NOWAIT
PROCEDURE _3dn0wq72t
if messagebox("Вийти з програми",4+32,"Вихід")=6
_screen.activeform.Release
else
_screen.activeform.refresh
endif
PROCEDURE _3dn0wq72u
do form fgrup
PROCEDURE _3dn0wq72v
do form fdysk
PROCEDURE _3dn0wq72w
do form fgabon
PROCEDURE _3dn0wq72x
do form fabon
PROCEDURE _3dn0wq735
do form fvydach
PROCEDURE _3dn0wq736
report form zvit1 prev
PROCEDURE _3dn0wq737
report form zvit2 prev
PROCEDURE _3dn0wq738
report form zvit3 prev
PROCEDURE _3dn0wq739
do form fpack
Текст обробників подій кнопок навігації, включених до класів проекту
Для кнопки Перший
if !bof()
go top
if dele()
_screen.activeform.label2.caption="видалено"
else
_screen.activeform.label2.caption=" "
endif
endif
_screen.activeform.refresh
Для кнопки Попередній
if !bof()
skip -1
if dele()
_screen.activeform.label2.caption='видалений'
else
_screen.activeform.label2.caption=' '
endi
endi
_screen.activeform.refresh
Для кнопки Наступний
if !eof()
skip
if dele()
_screen.activeform.label2.caption='видалений'
else
_screen.activeform.label2.caption=' '
endi
endi
_screen.activeform.refresh
Для кнопки Останній
if !eof()
go bott
if dele()
_screen.activeform.label2.caption='видалений'
else
_screen.activeform.label2.caption=' '
endi
endi
_screen.activeform.refresh()
Для кнопки Вихід
close tables
_screen.activeform.release
mainform1.refresh
mainform1.show
Для кнопки Додати
go bott
appe blan
_screen.activeform.refresh
Для кнопки Видалити
if dele()
reca
else
dele
endi
if dele()
_screen.activeform.label2.caption='видалений'
else
_screen.activeform.label2.caption=' '
endi
Текст запускаючої програми проекту
public mainform1
set defa to e:/vfp5/video
set safe off
set date germ
do form mainform name mainform1
