Розробка інформаційної підсистеми "Автостанція, облік продажу квитків" - Курсовая работа

У відповідності до технічного завдання програма "Автостанція" повинна забезпечувати роботу стандартної автостанції (тобто присутність функції продажу квитків), і можливість отримання інформації, вибраної за певними критеріями. У відповідності до аналізу предметної області можна зробити висновок, що задача, яка підлягає автоматизації відноситься до складу типових аналітично-облікових задач і може бути вирішена з використанням програмних та інструментальних засобів, передбачених технічним завданням, а саме з використанням елементів файл-серверних баз даних. Оскільки, у відповідності до технічного завдання і аналізу предметної області, розробка автоматизованої системи обліку рейсів проводиться на основі принципів та елементів систем управління базами даних, то логічним є збереження даних здійснювати у вигляді файлів таблиць бази даних певного типу, вибір і обробку інформації виконувати на основі запитів, для введення і відображення даних використовувати діалогові екранні форми, а вихідні паперові документи формувати у вигляді звітів. Структури довідників: Таблиця naprav - містить дані про напрямки рейсів автобусів, які можуть здійснюватись з автостанції. Таблиця marshrut - містить дані про рейси, які здійснюються з автостанції.У курсовому проекті розроблена автоматизована інформаційна підсистема обліку замовлення квитків на автостанції. У процесі налагодження програмного виробу був отриманий цілком працездатний програмний продукт.Програма «Автостанція» призначена для автоматизації обліку рейсів на автостанції і забезпечує можливість реєстрації нового рейсу, внесення поточних змін в дані рейсу, збереження даних про всі дії з рейсами, одержання поточних даних про стан рейсів, а також друк білету. Програма може бути застосована на різних автостанціях із можливостями внесення змін для конкретної автостанції. Програма повинна забезпечувати введення, збереження і редагування даних по матеріалам, формувати запити по основним обліковим і статистичним показникам. Програма повинна надавати можливість відслідковувати дані про замовлення квитка. При виникненні збою в роботі апаратури, відновлення нормальної роботи програми повинне виконуватися після: перезавантаження операційної системи; запуску стартового файлу програми; повторного виконання дій, втрачених до останнього збереження інформації на магнітному диску.Процедури, що реалізують роботу світлових кнопок форм dov_naprav, dov_reys - довідників напрямків і рейсів. SET EXCLUSIVE ON USE naprav IMG_7f8dd7d1-6e8d-4ce4-8f0b-0abb21124785 PUBLIC n_napr SELECT naprav n_napr=0 scan IF naprav.kod_npr>n_napr n_napr=naprav.kod_npr endif ENDSCAN APPEND BLANK replace naprav.kod_npr WITH n_napr 1 thisform.GRDNAPRAV.Refresh thisform.GRDNAPRAV.column2.setfocus IF MESSAGEBOX("Дійсно видалити?",4 32 256)=6 DELETE ELSE RECALL endif IF MESSAGEBOX("Закрити форму",4 32 256)=6 PACK thisform.Release endifIMG_a5300a86-a53d-4cd3-9c43-478b783585cf PUBLIC i,kol_prod,k_r,f,d,kilk,st_ms,pr_st thisform.grdmarshrut.column1.setfocus k_r=thisform.grdmarshrut.column1.text1.Value thisform.grdmarshrut.column3.setfocus kilk=thisform.grdmarshrut.column3.text1.Value d=thisform.text1.value DIMENSION mist(kilk) kol_prod=0 st_ms="" st_av="" FOR i=1 TO kilk mist(i)=i ENDFOR SELECT bilet SCAN FOR bilet.kod_marsh=k_r AND bilet.data_vidpr=d kol_prod=kol_prod 1 st_ms=st_ms str(non_mist) " "mist(non_mist)=0 ENDSCAN f=kilk-kol_prod pr_st="" FOR i=1 TO kilk IF mist(i)0 pr_st=pr_st STR(i) " "ENDIF ENDFOR thisform.edit1.value=LTRIM(RTRIM(pr_st)) thisform.text2.value=f thisform.text2.refresh thisform.edit2.Value=LTRIM(RTRIM(st_ms)) thisform.edit2.refresh thisform.edit1.refresh PUBLIC bil_kod,vidpr_chas bil_kod=0 SELECT bilet SET FILTER TO SCAN IF bilet.kod_bilet>bil_kod bil_kod=bilet.kod_bilet endif ENDSCAN thisform.GRDBILET.SETFOCUS SET FILTER TO bilet.kod_marsh=marshrut.kod_marsh AND bilet.data_vidpr=thisform.text1.value thisform.GRDBILET.refresh bil_kod=bil_kod 1 thisform.GRDMARSHRUT.column2.SETFOCUS vidpr_chas=thisform.GRDMARSHRUT.column2.text1.value SELECT bilet SET FILTER TO APPEND BLANK replace bilet.kod_bilet WITH bil_kod replace bilet.kod_marsh WITH thisform.GRDMARSHRUT.column1.text1.value replace bilet.chas WITH vidpr_chas replace bilet.data_vidpr WITH thisform.text1.value replace bilet.non_mist WITH thisform.spinner1.Value thisform.GRDBILET.Refresh thisform.GRDBILET.SETFOCUS SET FILTER TO bilet.kod_marsh=marshrut.kod_marsh AND bilet.data_vidpr=thisform.text1.value thisform.GRDBILET.refreshПроцедури, що реалізують роботу світлових кнопок форми parol, kontrol - контроль парольного доступу та авторизація IMG_cdb3028f-177c-4593-aece-9ebae48a820e PUBLIC n_pas SELECT password n_pas=0 scan IF password.id_kor>n_pas n_pas=password.id_kor endif ENDSCAN APPEND BLANK replace password.id_kor WITH n_pas 1 thisform.Grid1.Refresh thisform.Grid1.column2. setfocusПроцедури, що реалізують роботу світлових кнопок форми zapit, zv_per - формуван

автоматизація облік продаж квиток

У курсовому проекті розроблена автоматизована інформаційна підсистема обліку замовлення квитків на автостанції.

Автоматизована інформаційна система реалізована в середовищі Visual FOXPRO 9.

У процесі налагодження програмного виробу був отриманий цілком працездатний програмний продукт.

Проведено тестування програмного виробу, проаналізовані отримані результати.

Аналіз результатів показав, що поставлена задача успішно розвязується.

1. Проектування інформаційних систем: Посібник / За редакцією В.С. Пономаренка. - К:, ВЦ «Академія», 2001. - 488 с.

2. Інформаційні системи і технології в економіці: Посібник для студентів вищих навчальних закладів / За редакцією В.С. Пономаренка. - К.: ВЦ «Академія», 2001. - 544 с.

3. Информационные системы / Петров В.Н. - СПБ.: Питер, 2002. - 688 с.

4. Базиян, Менехем и др. Использование Visual FOXPRO 6. Специальное издание: Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 928 с.