Вход

Разработка программы для регистрации и учета автотранспортных средств в ГИБДД

Реферат* по программированию
Дата добавления: 28 мая 2006
Язык реферата: Русский
Word, rtf, 5.6 Мб (архив zip, 228 кб)
Реферат можно скачать бесплатно
Скачать
Данная работа не подходит - план Б:
Создаете заказ
Выбираете исполнителя
Готовый результат
Исполнители предлагают свои условия
Автор работает
Заказать
Не подходит данная работа?
Вы можете заказать написание любой учебной работы на любую тему.
Заказать новую работу
* Данная работа не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, предназначенной для использования в качестве источника материала при самостоятельной подготовки учебных работ.
Очень похожие работы



Содержание:


Введение…………………………………………………………

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. Экономическая характеристика объекта


Разработка программы для регистрации и учета автотранспортных средств в ГИБДД позволила бы сократить материальные затраты, связанные с регистрацией и учетом автотранспорта, которые включают в себя: заработанную плату сотруд­ников, инструментарий, складские помещения для хранения материала, а также оборудование для этих помещений.

Одним из главных факторов разработки программы является сокращение времени поиска необходимой информации, так как учет транспортных средств в ГИБДД ведется с помощью журналов и таблиц, в которые записывают данные о владельце и о транспортном средстве. Данная работа влечет за собой затраты времени и материальные затраты по регистрации и учету автотранспорта. Таким образом, разработанная мною программа предоставляет экономию времени и затрат, а также облегчает ввод данных.

Предложенная программа может быть использована в органах ГИБДД, со­трудниками МРЭО и ОВД.






























  1. Постановка задачи


Передо мной поставлена задача разработать программу по учету и регист­рации автотранспортных средств в ГИБДД. Она должна осуществлять регистра­цию автотранспортных средств, поиск зарегистрированного АМТ, поиск угнан­ного АМТ, а так же отчет о зарегистрированном АМТ- автоматически.


    1. Входная информация


Входной информацией для решения данной задачи являются следующие данные:

  1. Информация, необходимая для регистрации автомототранспорта:


Дата регистрации;

Регистрационный номер;

Модель автотранспорта;

Цвет;

Номер двигателя;

Номер кузова;

Номер шасси;

Мощность двигателя;

Объем двигателя;

Вид АМТ;

Год выпуска;

Сумма приобретения;


Сведения о владельце:


Фамилия;

Имя;

Отчество;

Дата рождения;

Телефон;


Место жительства:


Область;

Район;

Город;

Улица;

Дом;

Квартира;



Паспортные данные:


2) Информация по угнанному АМТ:

Регистрационный номер;

Номер двигателя;

Модель АМТ;

Год выпуска;

Цвет;

Инициатор розыска;


Входными документами являются: заявление на приобретение, заключение

техосмотра.




    1. Выходная информация.


Выходной информацией для решения данной задачи является:

• Информация о зарегистрированном АМТ;

• Информация об угнанном АМТ;

Выходными документами являются: отчеты о зарегистрированных и уг­нанных АМТ.

1)Отчет о зарегистрированных АМТ содержит следующие данные:


1. Дата регистрации;

2. Регистрационный номер;

3. Модель автотранспорта;

4. Цвет;

5. Номер двигателя;

6. Номер кузова;

7. Номер шасси;

8. Мощность двигателя;

9. Объем двигателя;

10. Вид АМТ;

11. Год выпуска;

12. Сумма приобретения;

13. Сведения владельце:

14. Фамилия;

15. Имя;

16. Отчество;

17. Дата рождения;

18. Телефон;


Место жительства:


19. Область;

20. Район;

21. Город;

22. Улица;

23. Дом;

24. Квартира;

25. Паспортные данные;


2)Отчет об угнанном АМТ содержит следующие данные:


1. Регистрационный номер;

2. Номер двигателя;

3. Номер кузова;

4. Модель АМТ

5. Год выпуска;

6. Цвет АМТ;

7. Инициатор розыска;


Регистрация, перерегистрация, отчеты- используются сотрудниками ГИБДД и другими правоохранительными органами ежедневно.


























3. Технические и инструментальные средства обеспечения задачи


3.1 Обоснование выбора языка программирования.


Целью моей курсовой работы является разработка программы по учету и ре­гистрации автотранспортных средств в ГИБДД.

Для решения этой задачи необходимо создать сложные системы обработки данных, обеспечить работу с базами, разработать гибкий и удобный интерфейс-все это может быть обеспеченно средствами Microsoft VFoxPro 8.0

VFoxPro 8.0 позволяет:

Создавать хорошо структурированные программы. Практически из всех оп­ций команд могут быть вызваны пользовательские процедуры, что придает ему исключительную гибкость. Допускаются как внешние, так и внутренние процеду­ры.

Microsoft VFoxPro 8.0 обладает возможностями поддержки разработки и отладки программ, средствами отслеживания изменений исходных текстов программных модулей с их автоматической перекомпиляцией.

Предусмотрены специальные окна для отладчика программ, работающего в терминах исходного текста. Окно трассировки позволяет анализировать логику выполнения программы. Эта информация можно использоваться и при работе в пошаговом режиме.


3.2 Технические требования к ПК для решения задачи.


Для решения данной задачи необходим компьютер следующей конфигурации:

• Процессор Pentium class;

• Оперативная память 64 MB RAM (128 MB рекомендуется );

• Место на жестком диске для минимальной инсталляции 165 МВ для полной 165 МВ;

• Графический адаптер и монитор VGA 800 x 600 разрешение, 256 цветов (High Color 16-bit рекомендуется);

• Дисковод для гибких дисков.











4. Информационное обеспечение задачи


4.1 Описание структуры файлов.


Все файлы программы находятся в каталоге ГИБДД. Они имеют следующие значения:

1)AVTO.dbf – табличный файл содержит информацию о зарегистрированном автотранспорте. Пример таблицы (см.: Приложение 1):

1. Datareg - содержит дату регистрации;

2. Regn - содержит регистрационный номер;

3. Marka - содержит модель автотранспорта;

4. Cvet - содержит цвет автотранспорта;

5. Nd - содержит номер двигателя;

6. Nk - содержит номер кузова;

7. Nh- содержит номер шасси;

8. Md - содержит мощность двигателя;

9. Od - содержит объем двигателя;

10. Vidamt - содержит АМТ;

11 .Godv - содержит год выпуска;

12. Sumpre - содержит сумму приобретения;

13. Fam - содержит фамилию владельца;

14. Im - содержит имя владельца;

15. Och - содержит отчество владельца;

16. Godr - содержит дату рождения владельца;

17. Tel - содержит телефон владельца;

18. Obl - область;

19. Raion - район;

20. Gorod - город;

21. Ul - улица;

22. Dom - дом;

23. Kv - квартиру;

24. Pasport - паспортные данные владельца;


2)ROZ.dbf – табличный файл, который содержит информацию о находящемся в ро­зыске автотранспорте имеет следующую структуру:


1. Regn - содержит регистрационный номер;

2. Nk - содержит номер кузова;

3. Nd - содержит номер двигателя;

4. Marka - содержит модель автотранспорта;

5. Cvet - содержит цвет автотранспорта;

6. Godv - содержит год выпуска;

7. Kod - инициатор розыска


3)password.dbf – табличный файл, хранящий пароль для запуска программы, имеет следующую структуру:

1. Par - содержит пароль;


4)GIBDD.dbf – табличный файл, который содержит информацию о работе с про­граммой, имеет следующую структуру:


1. Dd - содержит пункты помощи;

2. Help - содержит справочную информацию;





































5. Программное обеспечение задачи


5.1 Алгоритм решения задачи.


Программа состоит из следующих внешних процедур:

1. Open prog.prg - главный модуль, позволяет запустить главное меню программы, если введен правильный пароль.

2. graf.prg - при запуске этой процедуры на экране появляется заставка

3. ГИБДД.MPR - главное меню активирующее процедуры назначенные на определен­ные пункты.

4. ss.scx – форма для вывода сведений о аппаратных ресурсах используемого компьютера.

5. sop.scx - форма для вывода сведений о программе.

6. sp.prg - позволяет изменить пароль запуска программы.

7. регистрация.scx – форма, которая выводит окно регистрации АМТ в котором нужно ввести необходимые данные для регистрации.

8. перерегистрация.scx – форма, которая выводит окно перерегистрации в котором необходимо ввести данные о новом владельце.

9. opr.scx – форма для вывода зарегистрированных автотранспортных средств по заданному району.

Включает в себя внутренние процедуры:


• vpr.scx – форма для осуществления вывода транспортных средств, найденных по заданному ключу.

10. opg.scx – форма для вывода зарегистрированных автотранспортных средств по городу.


Включает в себя форму:


• vpg.scx – форма осуществляет вывод транспортных средств, найденных по заданному клю­чу.

11.opgod.scx – форма позволяет вывести отчет за введенный год.


Включает в себя форму:


• vpgod.scx – форма осуществляет вывод транспортных средств, найденных по заданному клю­чу.

12. roz.scx – форма позволяет произвести поиск данных в базе (ROZ.dbf) содержащей информацию по находящемуся в розыске АМТ.

13. vor.scx – форма позволяет вывести для просмотра таблицу (ROZ.dbf).

14. sk.prg - создает резервную копию используемых табличных файлов путем копирования в директорию STRAH


15. vd.prg - восстанавливает резервные данные из каталога страх

16. help.prg - выводит сведенья о работе с программой, содержащиеся в базе (GBDD.dbf).


В программе используется следующие переменные:


1. A - предназначена для проверки пароля;

2. С - временно содержит новый пароль;

3. kol - первоначальное значение 0, подсчет количества найденных транспортных средств;

4. ra - содержит название района по которому производится по­иск;

5. go – содержит название города по которому производится по­иск;

6. g - первоначальное значение 0, содержит год;

7. t - первоначальное значение 0, используется в подсчете количест­ва найденного транспорта;

12. dv - первоначальное значение- 0, применяется для поиска АМТ, числящегося в угоне, содержит введенный номер двигателя автотранспорта;






























5.2 Блок- схема программы (см.: Приложение 2)



5.3 Описание блок-схемы


При запуске модуля ГИБДД.MPR запускается процедура graf.prg - заставка. Затем идет определение главного меню ГИБДД.MPR и его активизация, назначение реакции на пункты главного меню.

Если выбран пункт главного меню «Sистема» - активизируется Popup-menu .


Если выбран подпункт «Сведения о системе» - запускается форма ss.scx.

Если выбран подпункт «Сведения о программе» - запускается форма sop.scx.

Если выбран подпункт «Смена пароля» - запуск процедуры sp.prg.

Если выбран пункт главного меню «Rегистрация» - активируется Popup-menu.

Если выбран подпункт «Регистрация» - запускается форма регистрация.scx.

Если выбран подпункт «Перерегистрация» - запускается форма перерегистрация.scx.

Если выбран подпункт «Отчет по регистрации» - активируется Popup-menu.

Если выбран пункт «По району» - запускается форма opr.scx

Если выбран пункт «По городу» - запускается форма opg.scx

Если выбран пункт «За год» - запускается форма opgod.scx

Если выбран пункт главного меню «Uгон» - запускается форма roz.scx.

Если выбран пункт главного меню «Sервис» - активируется Popup-menu к этому пункту.

Если выбран подпункт «Страховое копирование» - запускается процедура sk.prg.

Если выбран подпункт «Восстановление данных» - запускается процедура vd.prg.

Если выбран пункт главного меню «Pомощь» - запускается процедура help.prg.

Если выбран пункт главного меню «Vыход» выполняется команда










5.4 Пояснение последовательности выполнения команд


Команды установки:

SET SYSMENU TO

SET SYSMENU AUTOMATIC

SET TALK OFF – отключение вывода промежуточных записей

DO graf –запуск процедуры


ОПРЕДЕЛЕНИЕ PAD ПУНКТОВ ГЛАВНОГО МЕНЮ

DEFINE PAD _1h41es2a7 OF _MSYSMENU PROMPT "Sистема" COLOR SCHEME 3 ;

KEY ALT+S, ""

DEFINE PAD _1h41es2a8 OF _MSYSMENU PROMPT "Rегистрация" COLOR SCHEME 3 ;

KEY ALT+R, ""

DEFINE PAD _1h41es2a9 OF _MSYSMENU PROMPT "Uгон" COLOR SCHEME 3 ;

KEY ALT+U, ""

DEFINE PAD _1h41es2aa OF _MSYSMENU PROMPT "Sервис" COLOR SCHEME 3 ;

KEY ALT+S, ""

DEFINE PAD _1h41es2ab OF _MSYSMENU PROMPT "Pомощь" COLOR SCHEME 3 ;

KEY ALT+P, ""

DEFINE PAD _1h41es2ac OF _MSYSMENU PROMPT "Vыход" COLOR SCHEME 3 ;

KEY ALT+V, ""


НАЗНАЧЕНИЕ РЕАКЦИИ НА ВЫБОР ПУНКТА

ON PAD _1h41es2a7 OF _MSYSMENU ACTIVATE POPUP sистема

ON PAD _1h41es2a8 OF _MSYSMENU ACTIVATE POPUP rегистраци

ON SELECTION PAD _1h41es2a9 OF _MSYSMENU Do form roz.scx

ON PAD _1h41es2aa OF _MSYSMENU ACTIVATE POPUP sервис

ON SELECTION PAD _1h41es2ab OF _MSYSMENU Do help

ON SELECTION PAD _1h41es2ac OF _MSYSMENU set sysmenu.refresh()


ОПРЕДЕЛЕНИЕ ВАК МЕНЮ НА ПУНКТ «SИСТЕМА»

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


ОПРЕДЕЛЕНИЕ ВАК МЕНЮ НА ПУНКТ «RЕГИСТРАЦИЯ»

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 pr

ON SELECTION BAR 2 OF отчетпорег Do pg

ON SELECTION BAR 3 OF отчетпорег Do zg


НАЗНАЧЕНИЕ РЕАКЦИЙ НА ВЫБРАННЫЙ ВАК ПУНКТ «UГОН»

ON SELECTION PAD _1h41es2a9 OF _MSYSMENU Do form roz.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




5.5 Описание интерфейса при решении данной задачи


Информация располагается в окнах. Ввод сопровождается подсказками, при выполнении опасных действий, появляются окна с вопросами типа (Будете вы­полнять страховое копирование....?)

Исключительно полезным для пользователя программы является доступ спра­вочной информации, предусмотрен отказ пользователя в любой момент времени. Программа имеет большое количество различных окон: ввода, запроса, сообще­ния.

В программе заложена процедура страхового копирования данных. Так же происходит выдача отчетов на принтер.


5.6 Отладка программы


При создании программы я сталкивался с серией синтаксических и логиче­ских ошибок:

• Пропуск знаков препинания (незакрытые кавычки, скобки);

• Отсутствие пары в командах (FOR-ENDFOR, CASE-ENDCASE, IF-ENDIF);

• Ввод запятой вместо точки;

• Несоответствие параметров по типу;

• Неверный алгоритм программы.


VFoxPro 8.0 обладает удобным и гибким отладчиком программы, который позво­ляет детально проследить поведение программы и ее переменной в сомнительных местах, т. е. выполнить трассировку.

Эти средства находятся в меню WINDOW главного системного меню VFoxPro 8.0.

Пункты Command WINDOW и Properties WINDOW выводят на экран два спе­циальных отладочных окна Command и Properties, которые могут вызываться раз­дельно или вместе. В окне Command выводятся команды исполняемой программы, а в окне Properties - значение указанных в нем переменных и выражений.


5.7 Инструкция по работе с программой


Данная программа должна быть установлена в текущем каталоге Курсовой по ТРПП. Для того чтобы запустить программу необходимо ввести правильный пароль. Сразу после этой операции на экране появляется главное меню, через которое можно непосредственно управлять данным (осуществлять ввод и вывод инфор­мации). Непосредственный вызов нужного пункта меню может осуществляться как при помощи мыши, так и при помощи нажатия клавиши Enter.

Для того чтобы программа начала свои действия необходимо ввести пароль. После ввода, которого на экране появляется главное меню, расположенное в верхней части экрана.










Рис.1 Главное меню


Пункты главного меню имеют следующий смысл:


• «Sистема» - предоставляет информации о программе, о системе, дает возмож­ность осуществить смену пароля.

• «Rегистрация» - позволяет осуществить процесс регистрации, перерегистрации, поиска зарегистрированного АМТ и вывести отчет (по району, городу и за год).

• «Uгон» - позволяет просмотреть автотранспорт, находящийся в розыске и осу­ществить поиск угнанного АМТ.

• «Sервис» - этот пункт предоставляет возможность осуществить страховое ко­пирование баз данных, а так же их восстановление.

• «Pомощь» - содержит справочную информацию о программе.

• «Vыход» - при помощи этого пункта осуществляется выход из программы. Для осуществления регистрации необходимо выбрать пункт меню «Rегистра­ция/регистрация» на экране появится окно (рис. 2)















Рис. 2 Регистрация АМТ


В появившемся окне, в полях ввода необходимо ввести соответствующую информацию. Для сохранения информации нажать кнопку «Сохранить». Кнопка «Печать» - выводит информацию на пе­чать. «Выход» - выход из окна регистрации.

Для осуществления перерегистрации необходимо выбрать пункт меню «Rегистрация/Перерегистрация» на экран поя­вится окно (рис.2.2)




















Рис. 2.2 Перерегистрация АМТ


Кнопка «Сохранить»- позволяет сохранить введенную информацию. «Выход»- выход из окна.


Розыск угнанного АМТ осуществляется при выборе пункта меню «Uгон»

В появившемся окне введите необходимую информацию (рис. 3). В окне име­ются следующие кнопки «Найти»- производит поиск по данной информации, «Выход» - выход из окна.










Рис.3 Розыск


Ели необходимо создать резервные копии баз данных, нужно выполнить пункт меню «Sервис/Страховое копирование»

Появится окно с сообщением «Будите делать копию?» (рис.4) При нажатии на кнопку «OK» базы скопируются в каталог STRAH









Рис.4 Страховое копирование


При нажатии пункта «Pомощь», на экран выводится справочная информация о работе с программой, (рис.5)











Рис.5 Помощь


Окно «Помощь» разделено на две части. В левой части окна содержатся пункты меню, при помощи мыши или клавишей Enter выбираете нужный пункт и нажимаете на кнопку «Показать». В правой части окна выводится необходимая информация по данному пункту.

Кнопка «Выход» позволят выйти из окна.












Список Литературы

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

b=par

DO WHILE .t.

a=SPACE(9)

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 t=1 TO 5

SET BELL TO t*80,T*3

?? CHR(7)

ENDFOR

READ cycle

IF b=a

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 ALT+S, ""

DEFINE PAD _1h60rs4hy OF _MSYSMENU PROMPT "Rегистрация" COLOR SCHEME 3 ;

KEY ALT+R, ""

DEFINE PAD _1h60rs4hz OF _MSYSMENU PROMPT "Uгон" COLOR SCHEME 3 ;


KEY ALT+U, ""

DEFINE PAD _1h60rs4i0 OF _MSYSMENU PROMPT "Sервис" COLOR SCHEME 3 ;

KEY ALT+S, ""

DEFINE PAD _1h60rs4i1 OF _MSYSMENU PROMPT "Pомощь" COLOR SCHEME 3 ;

KEY ALT+P, ""

DEFINE PAD _1h60rs4i2 OF _MSYSMENU PROMPT "Vыход" COLOR SCHEME 3 ;

KEY ALT+V, ""

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 t=1 to 4

If t=1

DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 22

Endif

If t=2

DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 17

Endif

If t=3

DEFINE WINDOW graf from 0,0 to 24,76 NONE COLOR SCHEME 16

Endif

If t=4

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 I=1 to 3

set bell to I*150,3

??chr(7)

endfor

clear

endfor



DEACTIVATE WINDOW graf

return



Форма ss.scx

_screen.ActiveForm.release()



Форма sop.scx


_screen.ActiveForm.release()



Вешняя процедура sp.prg

Do while .t.

c=space (10)

a=space(9)

use password

b=par

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 I=1 to 1

set bell to I*80,I*3

for f=1 to 2

set bell to f*200,f*5

??chr(7)

endfor

for g=1 to 3

set bell to g*60,g*2

??chr(7)

endfor

??chr(7)

endfor

read cycle

do case

case k=1

if par=allt(a)

@2,2 say 'Введите новый пароль' get c

@4,5 get k func'*h OK; Cancel' defa 0 size 1,6,6



read cycle

do case

case k=1

REPLACE par WITH ALLTRIM(c)

DEACTIVATE WINDOW w1

exit

case k=2

DEACTIVATE WINDOW w1

exit

endcase

else

WAIT WINDOW 'Пароль введен не верно' TIMEOUT 1

clear

endif

case k=2

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 Raion=ra

SET FILTER TO

_screen.ActiveForm.release()



Форма opg.scx

DO FORM vpg.scx

_screen.ActiveForm.release()

SET FILTER TO Gorod=go

_screen.ActiveForm.release()



Форма roz.scx

DO FORM vor.scx

_screen.ActiveForm.release()

SET FILTER TO Nd=dv

_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 t=1

! 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 t=2

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 t=1

! copy .\strah\*.* c:\foxpro~1.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 t=2

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 ALLTRIM(dd) COLOR 15

ot=0

g=1

DIMENSION a(8)

i=0

SCAN

i=i+1

a(i)=dd

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 ot=1

GO g

DEFINE WINDOW r1 FROM 5,33 TO 20,70 TITLE ALLTRIM(dd) COLOR 15

ACTIVATE WINDOW r1

MODIFY MEMO hel WINDOW r1 NOEDIT NOWAIT SAVE

ENDIF

IF ot=2

CLEAR WINDOW

DEACTIVATE WINDOW r1

CLOSE memo all

EXIT

ENDIF

ENDDO












© Рефератбанк, 2002 - 2024