Содержание Введение 1. ЭКОНОМИЧЕСКИЕ ХАРАКТЕРИСТИКИ ОБЪЕКТА 2. ПОСТАНОВКА ЗАДАЧИ 2.1 Входная информация 2.2 Выходная информация 3. ТЕХНИЧЕСКИЕ И ИНСТРУМЕНТАЛЬНЫЕ СРЕДСВА ОБЕСПЕЧЕНИЯ ЗАДАЧИ. 3.1 Обоснование выбора языка программирования. 3.2 Требования к ПК для решения данной задачи 4. ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ 4.1 Описание структуры файлов и каталогов 5 ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ 5.1 Алгоритм решения задачи 5.2 Блок- схема программы 5.3 Описание блок- схемы. 5.4 Пояснение последовательности выполнения команд 5.5 Описание интерфейса Пользователей- ПЭВМ при решении задачи. 5.6 Отладка программы. 5.7 Инструкция по работе с программой. ЗАКЛЮЧЕНИЕ СПИСОК ЛИТЕРАТУРЫ ПРИЛОЖЕНИЕ 1 ПРИЛОЖЕНИЕ 2 ПРИЛОЖЕНИЕ З 1. ГИБДД позволила бы сократить материальные затраты, связанные с регистрацией и учетом автотранспорта, которые включают в себя заработанную плату сотрудников, инструментарий, складские помещения для хранения материала, а также оборудование для этих помещений.
Одним из главных факторов разработки программы является сокращение времени поиска необходимой информации, так как учет транспортных средств в ГИБДД ведется с помощью журналов и таблиц, в которые записывают данные о владельце и о транспортном средстве.
Данная работа влечет за собой затраты времени и материальные затраты по регистрации и учету автотранспорта.
Таким образом, разработанная мною программа предоставляет экономию времени и затрат, а также облегчает ввод данных. Предложенная программа может быть использована в органах ГИБДД, сотрудниками МРЭО и ОВД. 2.
ПОСТАНОВКА ЗАДАЧИ Передо мной поставлена задача разработать программу по учету и регистрации автотранспортных средств в ГИБДД. Она должна осуществлять регистрацию автотранспортных средств, поиск зарегистрированного АМТ, поиск угнанного АМТ, а так же отчет о зарегистрированном АМТ- автоматически. 2.1
Входная информация. Входной информацией для решения данной задачи являются следующие данны... 2.2 .
Область 20. 1Отчет о зарегистрированных АМТ содержит следующие данные 1. Технические и инструментальные средства обеспечения задачи 3.1 . Модель автотранспорта 4. Регистрационный номер 3.
Microsoft VFoxPro 8.0 обладает возможностями поддержки разработки и от... . Для решения этой задачи необходимо создать сложные системы обработки д... Обоснование выбора языка программирования. 4.
Они имеют следующие значения 1AVTO.dbf табличный файл содержит информа... Datareg - содержит дату регистрации 2. Godr - содержит дату рождения владельца 17. Tel - содержит телефон владельца 18. Cvet - содержит цвет автотранспорта 6.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ 5.1
Алгоритм решения задачи. Программа состоит из следующих внешних процед... 4. 5. sp.prg - позволяет изменить пароль запуска программы. vd.prg - восстанавливает резервные данные из каталога страх 16.
см. Если выбран подпункт Сведения о системе - запускается форма ss.scx. Если выбран подпункт Смена пароля - запуск процедуры sp.prg. Если выбран пункт главного меню Rегистрация - активируется Popup-menu. Если выбран пункт По району - запускается форма opr.scx Если выбран пу...
Так же происходит выдача отчетов на принтер. Команды установки SET SYSMENU TO SET SYSMENU AUTOMATIC SET TALK OFF от... Пояснение последовательности выполнения команд. 5.6 .
Uгон - позволяет просмотреть автотранспорт, находящийся в розыске и ос... При создании программы я сталкивался с серией синтаксических и логичес... 2.2 Перерегистрация АМТ Кнопка Сохранить- позволяет сохранить введенну... е. Рис.3 Розыск Ели необходимо создать резервные копии баз данных, нужно ...
Список Литературы 1. Создание приложений для FoxPro 2.5, 3.0 в DOS и для VFoxPro 5.0 8.0 в WINDOWS М. Издательство ДЕСС 672стр, Приложение 1 Приложение 3 Внешняя процедура Open prog.prg SET TALK OFF CLEAR USE password bpar DO WHILE .t. aSPACE9 DEFINE WINDOW w3 FROM 10,20 TO 14,50 COLOR SCHEME 23 double ACTIVATE WINDOW w3 1,2 say Preface password get a 2,5 get o func h ok Cancel defa 0 size 1,6,6 SET BELL on FOR t1 TO 5 SET BELL TO t80,T3 CHR7 ENDFOR READ cycle IF ba CLEAR WINDOW DO ПАША.mpr EXIT DEACTIVATE WINDOW w3 ELSE WAIT Пароль введен не верно wind TIMEOUT 2 ENDIF ENDDO Главный модуль ГИБДД.mpr SET SYSMENU TO SET SYSMENU AUTOMATIC SET TALK OFF DO graf DEFINE PAD 1h60rs4hx OF MSYSMENU PROMPT Sистема COLOR SCHEME 3 KEY ALTS, DEFINE PAD 1h60rs4hy OF MSYSMENU PROMPT Rегистрация COLOR SCHEME 3 KEY ALTR, DEFINE PAD 1h60rs4hz OF MSYSMENU PROMPT Uгон COLOR SCHEME 3 KEY ALTU, DEFINE PAD 1h60rs4i0 OF MSYSMENU PROMPT Sервис COLOR SCHEME 3 KEY ALTS, DEFINE PAD 1h60rs4i1 OF MSYSMENU PROMPT Pомощь COLOR SCHEME 3 KEY ALTP, DEFINE PAD 1h60rs4i2 OF MSYSMENU PROMPT Vыход COLOR SCHEME 3 KEY ALTV, ON PAD 1h60rs4hx OF MSYSMENU ACTIVATE POPUP sистема ON PAD 1h60rs4hy OF MSYSMENU ACTIVATE POPUP rегистраци ON SELECTION PAD 1h60rs4hz OF MSYSMENU Do form roz.scx ON PAD 1h60rs4i0 OF MSYSMENU ACTIVATE POPUP sервис ON SELECTION PAD 1h60rs4i1 OF MSYSMENU Do help ON SELECTION PAD 1h60rs4i2 OF MSYSMENU Do exit DEFINE POPUP sистема MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF sистема PROMPT Сведения о системе DEFINE BAR 2 OF sистема PROMPT Сведения о программе DEFINE BAR 3 OF sистема PROMPT Смена пароля ON SELECTION BAR 1 OF sистема do form ss.scx ON SELECTION BAR 2 OF sистема do form sop.scx ON SELECTION BAR 3 OF sистема do sp DEFINE POPUP rегистраци MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF rегистраци PROMPT Регистрация DEFINE BAR 2 OF rегистраци PROMPT Перерегистрация DEFINE BAR 3 OF rегистраци PROMPT Отчет по регистрации ON SELECTION BAR 1 OF rегистраци Do form Регистрация.scx ON SELECTION BAR 2 OF rегистраци Do form Перерегистрация.scx ON BAR 3 OF rегистраци 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 За год ON SELECTION BAR 1 OF отчетпорег Do form opr.scx ON SELECTION BAR 2 OF отчетпорег Do form opg.scx ON SELECTION BAR 3 OF отчетпорег Do opgod.scx DEFINE POPUP sервис MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF sервис PROMPT Страховое копирование DEFINE BAR 2 OF sервис PROMPT Восстановление данных ON SELECTION BAR 1 OF sервис Do sk ON SELECTION BAR 2 OF sервис Do vd Внешняя процедура GRAF.prg Clear For t1 to 4 If t1 DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 22 Endif If t2 DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 17 Endif If t3 DEFINE WINDOW graf from 0,0 to 24,76 NONE COLOR SCHEME 16 Endif If t4 DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 24 Endif ACTIVATE WINDOW graf 7,14 to 7,16 panel 5,14 to 5,16 panel 9,14 to 9,16 panel 11,14 to 11,16 panel 13,14 to 13,16 panel 5,1 to 5,3 panel 7,1 to 7,3 panel 9,1 to 9,3 panel 11,1 to 11,3 panel 13,1 to 13,3 panel 5,24 to 5,26 panel 7,24 to 7,26 panel 9,24 to 9,26 panel 11,24 to 11,26 panel 13,24 to 13,26 panel 7,22 to 7,22 panel 11,19 to 11,19 panel 11,18 to 11,18 panel 10,20 to 10,20 panel 10,19 to 10,19 panel 9,21 to 9,21 panel 5,25 to 5,25 panel 5,31 to 5,33 panel 7,31 to 7,33 panel 9,31 to 9,33 panel 11,31 to 11,33 panel 13,31 to 13,33 panel 5,4 to 5,11 panel 5,34 to 5,40 panel 9,35 to 9,37 panel 13,35 to 13,37 panel 9,39 to 9,39 panel 10,42 to 10,42 panel 11,43 to 11,43 panel 12,42 to 12,42 panel 13,40 to 13,40 panel 5,47 to 5,54 panel 5,55 to 5,57 panel 7,55 to 7,57 panel 9,55 to 9,57 panel 11,55 to 11,57 panel 7,47 to 7,49 panel 9,47 to 9,49 panel 11,47 to 11,49 panel 13,50 to 13,52 panel 13,56 to 13,58 panel 13,48 to 13,50 panel 13,53 to 13,55 panel 13,45 to 13,47 panel 13,58 to 13,60 panel 14,45 to 14,47 panel 14,58 to 14,60 panel 5,55 to 5,57 panel 5,64 to 5,71 panel 5,72 to 5,74 panel 7,64 to 7,66 panel 9,64 to 9,66 panel 11,64 to 11,66 panel 7,72 to 7,74 panel 9,72 to 9,74 panel 11,72 to 11,74 panel 13,63 to 13,76 panel 14,63 to 14,65 panel 14,74 to 14,76 panel 9,20 to 9,20 panel 8,22 to 8,22 panel 8,21 to 8,21 panel 7,24 to 7,24 panel 8,22 to 8,22 panel 11,42 to 11,42 panel 10,41 to 10,41 panel 9,40 to 9,40 panel 12,42 to 12,42 panel 12,41 to 12,41 panel 13,39 to 13,39 panel 12,17 to 12,17 panel 12,18 to 12,18 panel 8,31 to 8,31 panel 8,33 to 8,33 panel 10,31 to 10,31 panel 10,33 to 10,33 panel 12,31 to 12,31 panel 12,33 to 12,33 panel 10,47 to 10,47 panel 12,47 to 12,47 panel 12,49 to 12,49 panel 10,49 to 10,49 panel 8,47 to 8,47 panel 8,49 to 8,49 panel 6,47 to 6,47 panel 6,49 to 6,49 panel 6,31 to 6,31 panel 6,33 to 6,33 panel 6,55 to 6,55 panel 6,57 to 6,57 panel 8,55 to 8,55 panel 8,57 to 8,57 panel 10,55 to 10,55 panel 10,57 to 10,57 panel 12,55 to 12,55 panel 12,57 to 12,57 panel 6,64 to 6,64 panel 6,66 to 6,66 panel 8,64 to 8,64 panel 8,66 to 8,66 panel 10,64 to 10,64 panel 10,66 to 10,66 panel 12,64 to 12,64 panel 12,66 to 12,66 panel 6,72 to 6,72 panel 6,74 to 6,74 panel 8,72 to 8,72 panel 8,74 to 8,74 panel 10,72 to 10,72 panel 10,74 to 10,74 panel 12,72 to 12,72 panel 12,74 to 12,74 panel 6,24 to 6,24 panel 6,26 to 6,26 panel 8,24 to 8,24 panel 8,26 to 8,26 panel 10,24 to 10,24 panel 10,26 to 10,26 panel 12,24 to 12,24 panel 12,26 to 12,26 panel 6,14 to 6,14 panel 6,16 to 6,16 panel 8,14 to 8,14 panel 8,16 to 8,16 panel 10,14 to 10,14 panel 10,16 to 10,16 panel 12,14 to 12,14 panel 12,16 to 12,16 panel 6,23 to 6,23 panel 6,1 to 6,1 panel 6,3 to 6,3 panel 8,1 to 8,1 panel 8,3 to 8,3 panel 10,1 to 10,1 panel 10,3 to 10,3 panel 12,1 to 12,1 panel 12,3 to 12,3 panel for I1 to 3 set bell to I150,3 chr7 endfor clear endfor DEACTIVATE WINDOW graf return Форма ss.scx screen. ActiveForm.release Форма sop.scx screen. ActiveForm.release Вешняя процедура sp.prg Do while .t. cspace 10 aspace9 use password bpar DEFINE WINDOW w1 from 10,10 to 17,50 color scheme 23 title Смена пароля DOUBLE ACTIVATE WINDOW w1 1,2 say Введите старый пароль get a 4,5 get k func h OK Cancel defa 0 size 1,6,6 set BELL on for I1 to 1 set bell to I80,I3 for f1 to 2 set bell to f200,f5 chr7 endfor for g1 to 3 set bell to g60,g2 chr7 endfor chr7 endfor read cycle do case case k1 if parallta 2,2 say Введите новый пароль get c 4,5 get k funch OK Cancel defa 0 size 1,6,6 read cycle do case case k1 REPLACE par WITH ALLTRIMc DEACTIVATE WINDOW w1 exit case k2 DEACTIVATE WINDOW w1 exit endcase else WAIT WINDOW Пароль введен не верно TIMEOUT 1 clear endif case k2 DEACTIVATE WINDOW w1 exit endcase enddo return Форма регистрация.scx APPEND BLANK screen. ActiveForm.refresh screen. ActiveForm.release Форма перерегистрация.scx APPEND BLANK screen. ActiveForm.refresh GO TOP SCREEN.ACTIVEFORM.REFRESH IF BOF.F. SKIP-1 ENDIF SCREEN.ACTIVEFORM.REFRESH IF EOF.F. SKIP ENDIF SCREEN.ACTIVEFORM.REFRESH GO BOTTOM SCREEN.ACTIVEFORM.REFRESH screen.
ActiveForm.release Форма opr.scx DO FORM vpr.scx screen. ActiveForm.release SET FILTER TO Raionra SET FILTER TO screen. ActiveForm.release Форма opg.scx DO FORM vpg.scx screen. ActiveForm.release SET FILTER TO Gorodgo screen. ActiveForm.release Форма roz.scx DO FORM vor.scx screen. ActiveForm.release SET FILTER TO Nddv screen. ActiveForm.release Внешняя процедура sk.prg CLOSE ALL DEFINE WINDOW A FROM 10,10 TO 20,64 TITLE Страховое копирование ACTIVATE WINDOW a DO WHILE .t. 3,3 say Будете делать копию 7,10 get t func h OK No defa 0 size 1,6,8 READ cycle DO CASE CASE t1 copy AVTO.dbf.stran copy ROZ.dbf.stran copy password.dbf.stran DEFINE WINDOW w4 FROM 10,10 TO 15,70 COLOR SCHEME 22 ACTIVATE WINDOW w4 1,1 say Данные скопированы в директорию stran WAIT TIMEOUT 2 DEACTIVATE WINDOW w4 CLEAR WINDOW CLEAR RETURN CASE t2 DEACTIVATE WINDOW a CLEAR RETURN ENDCASE ENDDO Внешняя процедура vd.prg DEFINE WINDOW A FROM 10,10 TO 20,64 TITLE COLOR SCHEME 15 ACTIVATE WINDOW a DO WHILE .t. 3,3 say Восстановить данные 7,10 get t func h OK NO defa 0 size 1,6,8 READ cycle DO case CASE t1 copy .strah. cfoxpro1.6 DEFINE WINDOW w4 FROM 10,10 TO 15,70 COLOR SCHEME 22 ACTIVATE WINDOW w4 1,1 say Данные восстановлены из директории STRAH WAIT TIMEOUT 2 DEACTIVATE WINDOW w4 CLEAR WINDOW CLEAR RETURN CASE t2 DEACTIVATE WINDOW a RETURN ENDCASE ENDDO Внешняя процедура help.prg SET TALK OFF USE GBDD DEFINE WINDOW p FROM 5,5 TO 20,33 TITLE Помощь COLOR SCHEME 14 DEFINE WINDOW r1 FROM 5,33 TO 20,70 TITLE ALLTRIMdd COLOR 15 ot0 g1 DIMENSION a8 i0 SCAN ii1 aidd ENDSCAN GO 1 MODIFY MEMO help WINDOW r1 NOEDIT NOWAIT SAVE DO WHILE .t. ACTIVATE WINDOW p 1,1 get g from a defa 1 12,1 get ot func h показатьExit defa 0 READ cycl GO g IF ot1 GO g DEFINE WINDOW r1 FROM 5,33 TO 20,70 TITLE ALLTRIMdd COLOR 15 ACTIVATE WINDOW r1 MODIFY MEMO hel WINDOW r1 NOEDIT NOWAIT SAVE ENDIF IF ot2 CLEAR WINDOW DEACTIVATE WINDOW r1 CLOSE memo all EXIT ENDIF ENDDO.