944

Проектирование автоматизированной информационной системы автомобильной стоянки на Delphi

Курсовая

Информатика, кибернетика и программирование

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

Русский

2013-01-06

753 KB

540 чел.

Министерство науки и образования России

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Нижегородский государственный педагогический университет»

Институт дизайна и информационных технологий

Кафедра математики и информатики

КУРСОВОЙ ПРОЕКТ

по дисциплине

«Корпоративные информационные системы»

на тему:

«Проектирование автоматизированной информационной системы автомобильной стоянки»

Выполнил: студент группы

ИСТ-08

Аверьянов П.В

Проверил:  к.э.н., доцент

Поначугин А.В.

Нижний Новгород

2012 год


Содержание

Введение   4

Глава 1: Теоретическая часть 5

1.1 Среда разработки Delphi 5

1.2 История Delphi  5

1.3 Автоматизированная информационная система  8

1.4 Обзор существующих систем для автоматизации работы автомобильных стоянок   13

1.5 Автостоянка версия 2.5.2  13

1.6 AllStojanka  15

Глава 2:  Проект создания АИС Автомобильной стоянки  16

2.1 Постановка задачи  16

2.2 Используемые компоненты  18

2.3 Программная реализация  20

2.4 Инструкция пользователя  22

Заключение  33

Приложение А  34

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


Аннотация

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

Во второй главе описывается программная реализация системы, основные компоненты и функции с блок-схемой которые мной были использованы для разработки системы, а так же инструкция пользователя в которой подробно описан сначала процесс установки программы на компьютер, далее описание самой программы со всеми функциями с пояснениями,  в конце приведен пример использования программы.

Введение

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

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

Тема курсового проекта – «Проектирование автоматизированной информационной системы автомобильной стоянки».  Главная цель проекта – рассмотреть существующие аналоги программ автоматизирующих процессы деятельности автомобильных стоянок, выявить плюсы и минусы этих автоматизированных информационных систем , исходя из этого определить будущий функционал программы и в дальнейшем спроектировать и разработать «Автоматизированную информационную систему автомобильной стоянки».


Глава 1:  Теоретическая часть

1.1 Среда разработки Delphi

Delphi— императивный, структурированный, объектно-ориентированный язык программирования, диалект Object Pascal. Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появились class helpers, перегрузки операторов и другое.

1.2 История Delphi

Object Pascal — результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо Паскаль, начиная с версии 5.5, добавил в Паскаль объектно-ориентированные свойства, а в Object Pascal — динамическую идентификацию типа данных с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемом интроспекцией — данная технология получила обозначение RTTI. Так как все классы наследуют функции базового класса TObject, то любой указатель на объект можно преобразовать к нему, после чего воспользоваться методом ClassType и функцией TypeInfo, которые и обеспечат интроспекцию[1]. 

Также отличительным свойством Object Pascal от С++ является то, что объекты по умолчанию располагаются в динамической памяти. Однако можно переопределить виртуальные методы NewInstance и FreeInstance класса TObject. Таким образом, абсолютно любой класс может осуществить «желание» «где хочу — там и буду лежать». Соответственно организуется и «многокучность». 

Object Pascal (Delphi) является результатом функционального расширения Turbo Pascal. 

Delphi оказал огромное влияние на создание концепции языка C# для платформы .NET. Многие его элементы и концептуальные решения вошли в состав С#. Одной из причин называют переход Андерса Хейлсберга, одного из ведущих разработчиков Дельфи, из компании Borland Ltd. в Microsoft Corp.

 Версия 8 способна генерировать байт-код исключительно для платформы .NET. Это первая среда, ориентированная на разработку мультиязычных приложений (лишь для платформы .NET);

 Последующие версии (обозначаемые годами выхода, а не порядковыми номерами, как это было ранее) могут создавать как приложения Win32, так и байт-код для платформы .NET. 

Delphi for .NET — среда разработки Delphi, а также язык Delphi (Object Pascal), ориентированные на разработку приложений для .NET. 

Первая версия полноценной среды разработки Delphi для .NET — Delphi 8. Она позволяла писать приложения только для .NET. Delphi 2006 поддерживает технологию MDA с помощью ECO (Enterprise Core Objects) версии 3.0.

 В марте 2006 года компания Borland приняла решение о прекращении дальнейшего совершенствования интегрированных сред разработки JBuilder, Delphi и C++ Builder по причине убыточности этого направления. Планировалась продажа IDE-сектора компании. Группа сторонников свободного программного обеспечения организовала сбор средств для покупки у Borland прав на среду разработки и компилятор.

 Однако в ноябре того же года было принято решение отказаться от продажи IDE бизнеса. Тем не менее, разработкой IDE продуктов теперь будет заниматься новая компания — CodeGear, которая будет финансово полностью подконтрольна Borland. 

В августе 2006 года Borland выпустил облегченную версию RAD Studio под именем Turbo: Turbo Delphi (для Win32 и .NET), Turbo C#, Turbo C++.

 В марте 2008 года было объявлено о прекращении развития этой линейки продуктов. 

В марте 2007 года CodeGear порадовала пользователей обновленной линейкой продуктов Delphi 2007 for Win32 и выходом совершенно нового продукта Delphi 2007 for PHP. 

В июне 2007 года CodeGear представила свои планы на будущее, то есть опубликовала так называемый roadmap.

 25 августа 2008 года компания Embarcadero, новый хозяин CodeGear, опубликовала пресс-релиз на Delphi for Win32 2009. Версия привнесла множество нововведений в язык, как то:

  •  По умолчанию полная поддержка Юникода во всех частях языка, VCL и RTL; замена обращений ко всем функциям Windows API на юникодные аналоги (то есть MessageBox вызывает MessageBoxW, а не MessageBoxA).
  •  Обобщённые типы, они же generics.
  •  Анонимные методы.
  •  Новая директива компилятора $POINTERMATH [ON|OFF].
  •  Функция Exit теперь может принимать параметры в соответствии с типом функции. 

Вышедшая в 2011 году версия Delphi XE2 добавила компилятор Win64 и кросс-компиляцию для операционных систем фирмы Apple. 

1.3 Автоматизированная информационная система

В прямом (узком) значении АИС [2] – это комплекс программных, технических, информационных, лингвистических, организационно-технологических средств и персонала, предназначенный для решения задач справочно-информационного обслуживания и/или информационного обеспечения пользователей информации.

В расширенном значении АИС – это комплекс программных, технических, информационных, лингвистических, организационно-технологических средств и персонала, предназначенный для сбора, обработки (первичной), хранения, поиска, обработки (вторичной) и выдачи данных в заданной форме (виде) для решения разнородных профессиональных задач пользователей системы.

Часть реального мира, которая моделируется информационной системой, называется ее предметной областью. Поскольку модель предметной области, поддерживаемая информационной системой, материализуется в форме организованных необходимым образом информационных ресурсов, она называется информационной моделью. Автоматизированная информационная система не всегда функционирует самостоятельно. Она может входить в качестве компонента (подсистемы) в более сложную систему, такую, например, как система управления производством[3].

Под открытой системой (open system) понимают систему, которая отвечает стандартам OSI (Open Systems Interconnection); обеспечивает свободный доступ пользователей к своим ресурсам; способна видоизменяться.

По терминологии Institute of Electrical and Electronics Engineers (IEEE), открытые системы определяются как системы, в которых реализован исчерпывающий и согласованный набор базовых международных стандартов информационных технологий и профилей функциональных стандартов, которые специфицируют интерфейсы, службы и поддерживающие форматы данных, чтобы обеспечить интероперабельность и мобильность приложений, данных и персонала[5].

В АИС за хранение информации отвечают:

  •  на физическом уровне
    •  встроенные устройства памяти (RAM)
    •  внешние накопители
    •  дисковые массивы
  •  на программном уровне
    •  файловая система ОС
    •  СУБД
    •  Системы хранения документов, мультимедиа и т. д.

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

Информационная система (ИС) – система хранения, обработки и передачи информации, представленной в определенной форме. В вычислительной технике информационная система представляет собой программный комплекс, который предоставляет возможность надежного хранения данных в памяти, выполнение преобразований информации и вычислений, предоставление пользователям удобного и легко осваиваемого интерфейса[4].

Таким образом, использование информационных систем позволяет:

  •  работать с большим объемом данных (причем прослеживается преобладание логической обработки над математической);
    •  хранить данные в течение длительного временного периода;
    •  связать несколько компонентов, имеющих свои локальные цели, задачи и приемы функционирования, в единую систему для работы с информацией;
    •  значительно снизить затраты на хранение и доступ к необходимым данным;
    •  достаточно быстро находить требуемую информацию и т. д.

Классическими примерами информационных систем являются банковские системы, автоматизированные системы управления предприятиями, системы резервирования авиационных или железнодорожных билетов и т. д. Современные СУБД обладают широкими возможностями резервного копирования и архивации данных, параллельной обработки информации, особенно в случае использования многопроцессорных компьютеров в качестве сервера базы данных. [8] 

Автоматизированная информационная система(АИС) – информационная система, использующая электронно-вычислительную машину на этапах ввода, подготовки и выдачи информации, то есть является развитием информационных систем, занимающихся поиском с помощью прикладных программ. Автоматизированные информационные системы относятся к классу сложных систем, как правило, не столько в связи с большой физической размерностью, сколько в связи с многозначностью структурных отношений между их компонентами. АИС может быть определена как комплекс автоматизированных информационных технологий, предназначенных для информационного обслуживания – организованного непрерывного технологического процесса подготовки и выдачи потребителям научной, управленческой и др. информации, используемой для принятия решений, в соответствии с нуждами для поддержания эффективной деятельности[7].

Повышение эффективности функционирования предприятий невозможно без внедрения современных методов управления, базирующихся на АИС управления предприятиями.

АИС можно представить как комплекс автоматизированных информационных технологий, составляющих ИС, предназначенную для информационного обслуживания потребителей. Основные компоненты и технологические процессы АИС изображены на Рис 1.1.

Рис 1.1

АИС позволяют:

  •  повышать производительность работы персонала;
    •  улучшать качество обслуживания клиентов;
    •  снижать трудоемкости и напряженность труда персонала, минимизировать ошибки в его действиях;

Таким образом, можно сделать вывод о том, что в общем виде автоматизированная информационная система – совокупность аппаратных (технических) средств, математических средств (математические модели, алгоритмические способы обработки информации, методы поиска и описания объектов программирования), телекоммуникационных средств, средств сбора и хранения информации.

Типы автоматизированных информационных систем 

Какая-либо однозначная и общепринятая классификация АИС отсутствует, однако в науке и индустрии по крайней мере выделяют следующие типы систем по назначению[7]:

  •  АСУ — Автоматизированные системы управления
  •  АСУП — Автоматизированные системы управления предприятия
  •  АСКУЭ— Автоматизированная система контроля и учёта энергоресурсов
  •  АСУ ТП — Автоматизированные системы управления технологическими процессами
  •  ГИС — Геоинформационные системы
  •  ИУС — Информационно-управляющие системы
  •  ИИС — Информационно-измерительные системы
  •  ИИС — Интеллектуальные информационные системы
  •  ИПС — Информационно-поисковые системы
  •  ИАС — Информационно-аналитические системы
  •  ИСС — Информационно-справочные системы;
  •  ЛИС — Лабораторная информационная система
  •  РИС — Распределенная информационная система
  •  САПР — Системы автоматизированного проектирования
  •  СИИ — Системы искусственного интеллекта
  •  СКД, СКУД — Система контроля (и управления) доступом
  •  СПД — Системы передачи данных

1.4 Обзор существующих систем для автоматизации работы автомобильных стоянок

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

  •  Автостоянка версия 2.5.2
  •  AllStojanka

1.5 Автостоянка версия 2.5.2

Автостоянка версия 2.5.2 (Рис 1.2) - программа ведет электронные журналы учета регистрации и выбытия автотранспортных средств автостоянки.
Программа максимально проста в использовании.
Наличие автоматически заполняющихся справочников, позволяет несколькими движениями мышки зарегистрировать въезд или выезд автомобиля.
Программа ведет учет о времени нахождения автомобиля на автостоянке. Контролирует оплату услуг автостоянки. Позволяет выписать квитанцию об оплате услуг автостоянки.
Программа формирует следующие виды отчетов:
1) выручка кассы - покажет принятые от клиентов платежи за выбранный вами промежуток времени;
2) отчет о должниках - предоставит сведения о автомобилях и из владельцах автотранспортные средства которых находятся на автостоянке, но оплата услуг автостоянки закончилась;
3) полный отчет об автотранспортном средстве (владельце) - в нем вы найдете информацию о автотранспортных средствах посещавших вашу автостоянку, а также сведения о их владельца и другую информацию
4) отчет о занятости мест - оперативно выберет информацию о автомобилях находящихся на автостоянке, забронировнанных местах на автостоянке, свободных местах.
Программа проста и удобна в использовании, автозаполняющиеся справочники, позволяет быстро и удобно вести учет на автомобильной стоянке.

Рис 1.2

1.6 AllStojanka

Программа AllStojanka (Рис.1.3) позволяет:

- вести учет в электронном виде в базе данных с простым и понятным интерфейсом

- получать достоверную и оперативную информацию по взаиморасчетам

- наглядно отобразить схему автостоянки с разделением на занятные и свободные места

- самостоятельно формировать схему автостоянки

- показать на схеме местоположение конкретного транспортного средства

- быстро оформлять операцию постановки и снятия транспортного средства со стояночного места

- принимать и оформлять получение денежных средств с печатью товарного чека

- автоматически рассчитывать стоимость услуг по стоянке используя различные варианты и тарифы

- вести учет скидок

- автоматически рассчитывать и начислять пени за просрочку

- контролировать дни и время просрочки

- хранить и оперативно получать подробную контактную информацию по каждому транспортному средству, владельце и доверенному лицу

- хранить и оперативно получать информацию в разрезе тех сотрудников, которые произвели конкретную операцию (поставили/сняли автомобиль со стоянки, выписали товарный чек и прочее)

- возможность прикрепления и хранения фотографии в карточке транспортного средства

- возможность фильтрации журнала транспортных средств и быстрого поиска

- хранить подробную историю постановки/снятия и взаиморасчетов по каждому транспортному средству

- организовать учет по нескольким автостоянкам сразу в единой базе данных – филиальная структура

     Рис 1.3

Глава 2:  Проект создания АИС Автомобильной стоянки

2.1 Постановка задачи :

Целью выполнения курсового проекта является получение практических навыков в проектировании автоматизированной информационной системы автостоянки.

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

Определен будущий функционал программы:

  1.  База данных клиентов автостоянки, хранящая данные об:
  •  ФИО клиента
  •  Марке автомобиля (у одного клиента может быть несколько автомобилей)
  •  Месте парковке автомобиля
  •  Государственном регистрационном номере автомобиля
  •  Цвете автомобиля
  •  Контактном телефоне клиента
  •  Дополнительную информацию об автомобиле или клиенте
  1.  Интуитивно понятный интерфейс (навигация по программе, добавление новых записей, поиск в базе данных, мониторинг платежей за парковочные места).
  2.  Хранение и добавление записей об платежах за парковочные места.
  3.  Поиск в базе данных по основным параметрам : Место парковки, ФИО, Марка авто, Адрес владельца.
  4.  Мультиязычность, для возможности использования программы как русскоговорящим пользователям, так и англоговорящим.

2.2 Используемые компоненты

Основной средой разработки мной была выбрана среда Delphi. Ниже будут описаны основные компоненты при построении программы:

Рис. 2.1 Компонент DBGrid

Одним из основных компонентов программы является DBGrid  он обеспечивает вывод и просмотр информации из базы данных. Данный компонент связываться с компонентом DataSource.

Рис. 2.2 Компонент DBNavigator

DBNavigator  позволяет управлять записями в базе данных: прокручивать, заносить, удалять, редактировать. Данный компонент связываться с компонентом DataSource.

Рис. 2.3 Компонент MainMenu

Компонент MainMenu позволяет создать главное меню в окне программы.

Рис. 2.4 Компонент Query

Компонент Query один из главных компонентов всей программы он обеспечивает связь базой данных и компонентом DataSource.

Рис. 2.5 Компонент DataSource

Компонент DataSource обеспечивает связь между компонентом Query и компонентами, отвечающими за вывод и ввод информации. Данный компонент связываться с компонентом Query

Рис. 2.6 Компонент Button

Компонент Button используется повсеместно в программе. Каждая кнопка отвечает за свою функцию.

 

Рис. 2.7 Компонент Label

Используется для отображения текстовой информации

Рис. 2.8 Компонент Edit

Используется для реализации поиска записей по базе данных

Рис. 2.9 Компонент GroupBox

Используется как декоративный элемент

Рис. 2.10 Компонент Panel

Используется как декоративный элемент

Рис 2.11 Компонент RadioButton

Используется для реализации запросов и опций

2.3 Программная реализация 

Ниже будут подробно рассмотрены основные алгоритмы и функции программы.

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

Далее необходимо создать базу данных, связать все DBEdits с базой данных, добавить столбцы (Columns) в DbGrid 1 и 2

За реализации функции поиска отвечает следующий алгоритм (Блок-схема 1):

am:=Edit1.Text;

             if fam <> '' then begin

        with form1.Query2 do begin

          Close;

          SQL.Clear;

          // записываем новый запрос в свойство SQL

          SQL.Add(' SELECT DISTINCT Nom,Ima,Fam,Otchestva,Data,Adres,Telefon,Avto,park');

          SQL.Add('FROM ":stoianka.DB"');

          SQL.Add('WHERE');

          SQL.Add('(Adres= "'+ fam + '")');

          SQL.Add('ORDER BY Nom,Ima,Fam,Otchestva,Data,Adres,Telefon,Avto,park'');

          Open;

        end;

        if form1.Query2.RecordCount <> 0 then

          form1.DataSource1.DataSet:=form1.Query2

        else begin

             ShowMessage('Ошибка.');

             form1.DataSource1.DataSet:=form1.Table2;

Блок-схема 1 «Функция поиска»

2.4 Инструкция пользователя

Установка приложения  запускается двойным щелчком мыши по ярлыку (Рис 2.12) установки программы «Автостоянка.msi»

    Рис 2.12

Программа попросит ввести информацию о пользователе (Рис 2.13)

Рис 2.13

На следующем этапе установки, программа попросит Вас выбрать «Вид установки» (Рис 2.14). Всего 2 параметра : «Полная», т.е установка всех компонентов программы в папку по умолчанию(C:\Program Files (x86)\My Product Name\);  «Выборочная», т.е установка всех компонентов программы в папку которую выберет пользователь.

Рис 2.14

По окончанию установки, ярлык программы (Рис 2.15) будет добавлен на рабочий стол пользователя. Для запуска необходимо нажать на ярлык двойным щелчком мыши.

Рис 2.15

Запустив программу, Вы увидите основное окно (Рис 2.16), которое содержит информацию о клиентах, их автомобилях и платежах.

Рис. 2.16 Главное окно программы «Автостоянка»

Так же в главном окне (Рис 2.16) программы находится панель управления записями,  кнопка «Поиск» и «Показать все», которые при нажатии ищут записи или показывают все записи в базе данных соответственно.

Рис. 2.17 Меню «Правка»

Меню «Файл» (Рис 2.17) содержит пункт «Выход».

Меню «Правка» (Рис 2.17) содержит 3 функции: переключение языка программы на английский, переключение языка программы на русский, поиск по записям.

Рис. 2.18 Функция «Поиск»

Всего в программе присутствует 5 видов запросов (Рис 2.18): «Поиск по месту парковки», «Поиск по имени владельца авто», «Поиск по Фамилии владельца авто», «Поиск по адресу владельца авто» и «Поиск по марке Авто». По нажатии на пункт меню «Поиск» программа показывает результат(ы) поиска.

Рис. 2.19 Переключение языка

По нажатии на пункт меню «English» (Рис 2.19), меняет язык интерфейса на английский. Переход обратно на русский язык происходит нажатием на пункт меню «Russian».

Рис. 2.20 Платежи

Вкладка «Платежи» (Рис 2.20) на основной форме программы имеет свою таблицу, в которой указаны такие данные как: Марка авто, Гос.Номер, Фамилия, Оплата в рублях. Так же вкладка «Платежи» содержит данные об дате платежа и дате истечения срока платежа. Обе таблицы связаны между собой, что позволяет наиболее удобно просматривать данные и добавлять новые записи.

Рис. 2.21 Кнопка «Показать все записи»

После успешного поиска по базе данных, пользователь может вернуться к общему списку клиентов автостоянки с помощью кнопки «Показать все» (Рис 2.21), которая находится на главной форме программы.

Рис. 2.22 Пункт меню «About - справка»

Последний пункт меню «Помощь» включает подменю «Справка» (Рис 2.22) здесь указано название программы и разработчик.

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

Для добавления новой записи о клиенте, необходимо запустить программу, нажать на кнопку «+» (плюс) и во вкладке «Информация об АВТО» (Рис 2.23)  ввести все необходимые данные об автомобиле и владельце, а так же назначить свободное парковочное место основываясь на данных из таблицы.

Рис. 2.23 Добавление новой записи об АВТО

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

Для добавления новой записи о платеже (Рис 2.24), необходимо перейти во вкладку «Платежи», слева в таблице выбрать клиента который желает произвести платеж и заполнить все необходимые данные.

Рис. 2.24 Добавление новой записи об платеже

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

Для поиска записи по запросу, необходимо открыть окно «Поиск» (Рис 2.25). Сделать это можно двумя способами: нажав на кнопку «Поиск» в главном окне программы под меню «Файл» или выбрав меню «Правка» нажать на строку меню «Поиск».

Рис. 2.25 Использование функции «Поиск»

Откроется окно «Поиск», в котором вводим запрашиваемые данные (например фамилия) и выбираем соответствующий параметр поиска. Всего параметров 5 , но т.к мы ввели в окно поиска фамилию, необходимо выбрать параметр «Фамилия». Для осуществления поиска необходимо нажать на кнопку « Поиск».

Результат поиска (Рис 2.26) выдается в основной таблице слева.

Рис. 2.26 Результат использования функции «Поиск»

Что бы удалить запись из базы данных полностью, Вам необходимо нажать на кнопку «-» (минус) (Рис 2.27) в панеле навигации по программе.

Рис. 2.27 Удаление записи из базы данных


Заключение

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

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

В заключение можно сделать вывод о том, что при должном подходе и правильном проектировании информационных систем они позволяют автоматизировать и облегчить работу с информацией на предприятии, повысить эффективность труда работников и, как следствие, увеличить прибыли компании, что всегда является конечной целью любых нововведений.

 

Приложение А

Form 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, ComCtrls, ExtCtrls, DBCtrls, XPMan, Menus, Grids,

DBGrids, DB, StdCtrls, Mask, ToolWin,Unit2, ExtDlgs,Unit3,Jpeg, DBTables;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

About1: TMenuItem;

XPManifest1: TXPManifest;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

ToolBar1: TToolBar;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ImageList1: TImageList;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit6: TDBEdit;

Label6: TLabel;

Label7: TLabel;

DBEdit8: TDBEdit;

DBEdit13: TDBEdit;

Label13: TLabel;

GroupBox1: TGroupBox;

DBEdit7: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

TabSheet3: TTabSheet;

Label9: TLabel;

Label10: TLabel;

DBEdit10: TDBEdit;

DBEdit9: TDBEdit;

Label11: TLabel;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

Label14: TLabel;

DBGrid2: TDBGrid;

Label12: TLabel;

Label15: TLabel;

OpenPictureDialog1: TOpenPictureDialog;

DBEdit5: TDBEdit;

DBMemo1: TDBMemo;

N10: TMenuItem;

N11: TMenuItem;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

DBEdit2: TDBEdit;

Label8: TLabel;

Query2: TQuery;

Table2: TTable;

Label19: TLabel;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

procedure N8Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure ToolButton8Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

save, fileSave: boolean;

fileName: String;

implementation

{$R *.dfm}

procedure TForm1.N8Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.About1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Label5.Caption:='Color :';

Label7.Caption:='name car :';

Label8.Caption:='name car :';

Label1.Caption:='The name of the owner :';

Label2.Caption:='Surname of the owner:';

Label3.Caption:='Middle name :';

Label4.Caption:='Date of contract :' ;

Label13.Caption:='Address :';

Label13.Caption:='Phone number :';

Label9.Caption:='Car :';

Label10.Caption:='License plate :';

Label12.Caption:='Payment in dollars :';

Label11.Caption:='Last name :';

Label14.Caption:='Payment date:';

Label15.caption:='The next payment date :';

GroupBox1.Caption:='Payment';

N1.Caption:='File';

n6.Caption:='Close';

n8.Caption:='Find';

n10.Caption:='English';

n11.Caption:='Russian';

n9.Caption:='Help';

TabSheet1.Caption:='Information on cars';

TabSheet3.Caption:='  Payment  ';

N7.Caption:='Правка';

Form2.RadioButton8.Caption:='Место парковки';

Form2.RadioButton1.Caption:='Имя владельца';

Form2.RadioButton2.Caption:='Фамилия владельца';

Form2.RadioButton5.Caption:='Адрес';

Form2.RadioButton7.Caption:='Название АВТО';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Label5.Caption:='Цвет :';

Label7.Caption:='Название АВТО :';

Label8.Caption:='Название АВТО :';

Label1.Caption:='Имя владельца :';

Label2.Caption:='Фамилия владельца:';

Label3.Caption:='Отчество владельца :';

Label4.Caption:='Дата заключения договора :' ;

Label13.Caption:='Адрес :';

Label13.Caption:='Контактный телефон :';

Label9.Caption:='АВТО :';

Label10.Caption:='Гос.Номер :';

Label12.Caption:='Оплата в рублях :';

Label11.Caption:='Фамилия :';

Label14.Caption:='Оплата число:';

Label15.caption:='Следующая оплата число :';

GroupBox1.Caption:='Платежи';

N1.Caption:='Файл';

n6.Caption:='Выход';

n8.Caption:='Поиск';

n10.Caption:='Язык латин';

n11.Caption:='Язык Рус';

n9.Caption:='Помощь';

TabSheet1.Caption:='Информация об АВТО';

TabSheet3.Caption:='  Платежи  ';

N7.Caption:='Правка';

Form2.RadioButton8.Caption:='Место парковки';

Form2.RadioButton1.Caption:='Имя владельца';

Form2.RadioButton2.Caption:='Фамилия владельца';

Form2.RadioButton5.Caption:='Адрес';

Form2.RadioButton7.Caption:='Название АВТО';

end;

procedure TForm1.FormActivate(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day : Word;

begin

with Session do

begin

ConfigMode := cmSession;

try

AddStandardAlias( 'kollej',

ExtractFilePath(ParamStr(0))+'DATA\',

'PARADOX');

Table2.Active:=True;

finally

ConfigMode := cmAll;

end;

end;

end;

procedure TForm1.ToolButton8Click(Sender: TObject);

begin

DataSource1.DataSet:=Table2;

end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

if Column.FieldName <> 'Expr1005' then

begin

begin

Column.Title.Font.Color := clBlue;

end;

end;

end;

end.

Form 2

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, StdCtrls, Buttons, ComCtrls, Mask, ExtCtrls, DB,

DBTables;

type

TForm2 = class(TForm)

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Panel1: TPanel;

RadioButton8: TRadioButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton5: TRadioButton;

RadioButton7: TRadioButton;

Edit1: TEdit;

Label1: TLabel;

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

fam:string[30];

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

if RadioButton8.Checked then begin

fam:=Edit1.Text;

if fam <> '' then begin

with form1.Query2 do begin

Close;

SQL.Clear;

// записываем новый запрос в свойство SQL

SQL.Add(' SELECT DISTINCT Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

SQL.Add('FROM ": stoianka.DB"');

SQL.Add('WHERE');

SQL.Add('(Guruh= "'+ fam + '")');

SQL.Add('ORDER BY Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

Open;

end;

if form1.Query2.RecordCount <> 0 then

form1.DataSource1.DataSet:=form1.Query2

else begin

ShowMessage('Ошибка.');

form1.DataSource1.DataSet:=form1.Table2;

end;

end;

end;

if RadioButton1.Checked then begin

fam:=Edit1.Text;

if fam <> '' then begin

with form1.Query2 do begin

Close;

SQL.Clear;

// записываем новый запрос в свойство SQL

SQL.Add(' SELECT DISTINCT Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto Nomer');

SQL.Add('FROM ": stoianka.DB"');

SQL.Add('WHERE');

SQL.Add('(Ism= "'+ fam + '")');

SQL.Add('ORDER BY Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

Open;

end;

if form1.Query2.RecordCount <> 0 then

form1.DataSource1.DataSet:=form1.Query2

else begin

ShowMessage('Ошибка.');

form1.DataSource1.DataSet:=form1.Table2;

end;

end;

end;

if RadioButton2.Checked then begin

fam:=Edit1.Text;

if fam <> '' then begin

with form1.Query2 do begin

Close;

SQL.Clear;

// записываем новый запрос в свойство SQL

SQL.Add(' SELECT DISTINCT Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

SQL.Add('FROM ": stoianka.DB"');

SQL.Add('WHERE');

SQL.Add('(Fam= "'+ fam + '")');

SQL.Add('ORDER BY Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

Open;

end;

if form1.Query2.RecordCount <> 0 then

form1.DataSource1.DataSet:=form1.Query2

else begin

ShowMessage('Ошибка.');

form1.DataSource1.DataSet:=form1.Table2;

end;

end;

end;

if RadioButton5.Checked then begin

fam:=Edit1.Text;

if fam <> '' then begin

with form1.Query2 do begin

Close;

SQL.Clear;

// записываем новый запрос в свойство SQL

SQL.Add(' SELECT DISTINCT Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

SQL.Add('FROM ": stoianka.DB"');

SQL.Add('WHERE');

SQL.Add('(Adres= "'+ fam + '")');

SQL.Add('ORDER BY Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

Open;

end;

if form1.Query2.RecordCount <> 0 then

form1.DataSource1.DataSet:=form1.Query2

else begin

ShowMessage('Ошибка.');

form1.DataSource1.DataSet:=form1.Table2;

end;

end;

end;

if RadioButton7.Checked then begin

fam:=Edit1.Text;

if fam <> '' then begin

with form1.Query2 do begin

Close;

SQL.Clear;

// записываем новый запрос в свойство SQL

SQL.Add(' SELECT DISTINCT Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

SQL.Add('FROM ": stoianka.DB"');

SQL.Add('WHERE');

SQL.Add('(K_nom= "'+ fam + '")');

SQL.Add('ORDER BY Fam,Otchestva,Data,Adres,Telefon,Infor,K_nom,K_avto);

Open;

end;

if form1.Query2.RecordCount <> 0 then

form1.DataSource1.DataSet:=form1.Query2

else begin

ShowMessage('Ошибка.');

form1.DataSource1.DataSet:=form1.Table2;

end;

end;

end;

end;

end.

Form 3

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Close

end;

end.

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

  1.  Алгоритмические языки и программирование. Система программирования DELPHI: учеб. пособ. для вузов / разраб. Т.А.Лабзиной. - М: Совр. Гум. Ун-т, 2009.
  2.  Ахангельский А.Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс», 2008 г. – 1152с.
  3.  Гайдамакин Н.А. Автоматизированные информационные системы, банки и базы данных. Вводный курс: учебное пособие. - М: Гелиос АРВ, 2009.- 368 с.
  4.  Голицына О.Л. и др. Языки программирования: учеб. пособие для ссузов / О.Л.Голицына, Т.Л.Партыка , И.И.Попов . - М: Форум; Инфра-М, 2010.
  5.  Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. – СПб.: БХВ-Петербург, 2008. – 784с: ил.
  6.  Емельянова Н.З., Партыка Т.А., Попов И. Основы построения автоматизированных информационных систем: учебное пособие для студ. СПО. - М: Форум; Инфра-М, 2011.- 416 с.
  7.  Карпова Т. Базы данных. Модели, разработка, реализация: учеб. пособие. - СПб: Питер, 2008.- 304 с.
  8.  Моисеенко С. SQL : задачи и решения. - СПб: Питер, 2009.-256 с.
  9.  Основы автоматизированных информационных систем: Автоматизированные информационные системы (АИС): учеб. пособ. для вузов / разраб. В.Н.Кузубовым. - М: Совр. Гум. Ун-т, 2010.
  10.  Основы автоматизированных информационных систем. Обеспечение автоматизированных информационных систем: учеб. пособ. для вузов / разраб. В.Н.Кузубовым. - М: Совр. Гум. Ун-т, 2011.
  11.  Принципы построения автоматизированных информационных систем (АИС). Техническое и рабочеее пректирование АИС: учеб. пособие для вузов / разраб. В.Н.Кузубовым. - М: Совр.Гум.Ун-т, 2008.-102 с.


 

А также другие работы, которые могут Вас заинтересовать

12693. ЗАЩИТА ОТ СВЧ - ИЗЛУЧЕНИЙ 478 KB
  Лабораторная работа №1 ЗАЩИТА ОТ СВЧ ИЗЛУЧЕНИЙ по дисциплине Безопасность жизнедеятельности в чрезвычайных ситуациях Цель работы. 1 ознакомить студентов с характеристиками электромагнитного излучения и нормативными требованиями к его уровням; ...
12694. ОЦЕНКА И КОНТРОЛЬ ОСВЕТИТЕЛЬНЫХ УСЛОВИЙ ПРОИЗВОДСТВЕННЫХ ПОМЕЩЕНИЙ 115.5 KB
  Лабораторная работа №3 ОЦЕНКА И КОНТРОЛЬ ОСВЕТИТЕЛЬНЫХ УСЛОВИЙ ПРОИЗВОДСТВЕННЫХ ПОМЕЩЕНИЙ по дисциплине Безопасность жизнедеятельности в чрезвычайных ситуациях Цель работы 1 ознакомиться с устройством и порядком применения имеющихся приборов для и...
12695. АНАЛИЗ УСЛОВИЙ ЭЛЕКТРОБЕЗОПАСНОСТИ В ТРЕХФАЗНЫХ ЭЛЕКТРИЧЕСКИХ СЕТЯХ НАПРЯЖЕНИЕМ ДО 1кВ 313.5 KB
  АНАЛИЗ УСЛОВИЙ ЭЛЕКТРОБЕЗОПАСНОСТИ В ТРЕХФАЗНЫХ ЭЛЕКТРИЧЕСКИХ СЕТЯХ НАПРЯЖЕНИЕМ ДО 1кВ Отчет по лабораторной работе № 1 по дисциплине безопасность жизнедеятельности в чрезвычайных ситуациях Цель работы – исследовать опасность прикосновения человека к фазно
12696. Исследовать опасность прикосновения человека к фазному проводу электрической сети напряжением до 1 кВ 393.5 KB
  Цель работы – исследовать опасность прикосновения человека к фазному проводу электрической сети напряжением до 1 кВ в ее нормальном и аварийном состояниях в зависимости от режима нейтрали источника питания сети активного сопротивления изоляции и емкости проводов относ...
12697. Стенд лабораторный Защита от СВЧ-излучения БЖ 5м 527.5 KB
  Цель работы: 1 ознакомить студентов с характеристиками электромагнитного излучения и нормативными требованиями к его уровням; 2 провести измерения интенсивности электромагнитного излучения СВЧдиапазона на различных расстояниях от источника; 3 оценить эффективн
12698. Расчет эффективности и паспортизации механической вентиляционной установки 1.2 MB
  Цель работы: получить навыки проведения измерений необходимых для испытания оценки эффективности и паспортизации механической вентиляционной установки. 1. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ 1.1. Определить производительность вентилятора по замерам статического ско...
12699. ИЗМЕРЕНИЕ ВИБРАЦИИ С ПОМОЩЬЮ ИЗМЕРИТЕЛЯ ШУМА И ВИБРАЦИИ ВШВ-003-М2 802.5 KB
  Цель работы: 1 закрепить основные теоретические положения о вибрации как об опасном и вредном производственном факторе; 2 научиться оценивать вибрации на рабочих местах и определять эффективность виброизоляции. ИЗМЕРЕНИЕ ВИБРАЦИИ С ПОМОЩЬЮ ИЗМЕРИТЕЛЯ ШУМА И ВИ...
12700. Расчет электрического искусственного освещения 103.5 KB
  Расчет электрического искусственного освещения Вариант №4 Беспалова А.А. Исходные данные: наименование помещения – механический цех; размеры помещения 12×18 м2; расчетная высота подвеса 50 м; освещенность по ОСТ 32.9.81 тип светильника – УПД500; источ...
12701. Построение трехмерной модели гранной поверхности и её комплексного чертежа 1.04 MB
  Лабораторная работа №1 Построение трехмерной модели гранной поверхности и её комплексного чертежа ВВЕДЕНИЕ Данные методические рекомендации предназначаются для студентов первого курса очного обучения изучаю...