Проектирование реализации операций бизнес-процесса « Продажи »
Содержание:
ВВЕДЕНИЕ
Развитие информационных технологий изменило наши жизни, они стали неотъемлемой частью практически любой работы, незаменимым залогом успеха и конкурентоспособности любого предприятия и, зачастую, единственным способом эффективной экономии времени и денег в любой сфере жизни. Информационные технологии - процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и способы осуществления таких процессов и методов.
Цель курсовой работы – проектирование информационной системы для реализации бизнес-процесса «Продажи» на примере компании «ЭлектроМастер».
Для достижения поставленной цели необходимо решить следующие задачи:
- проанализировать текущую организацию бизнес-процесса продажи компании «ЭлектроМастер» и возникающего при его выполнении документооборота;
- выбрать и обосновать проектные решения по информационному и программному обеспечению;
- составить информационную модель проектируемой информационной системы;
- разработать базу данных и программные модули ИС;
- описать контрольный пример реализации проекта.
1 Глава. Аналитическая часть
1.1. Выбор комплекса задач автоматизации
Деятельность компании «ЭлектроМастер» заключается в розничных продажах электротоваров различных групп: от настольных ламп до генераторов.
Магазин «ЭлектроМастер» занимает несколько помещений (склад товаров и торговый зал). У компании имеются договорные отношения с поставщиками, которые осуществляют поставку электротоваров и сопутствующей продукции на склад магазина. Затем эти товары выставляются для демонстрации в торговом зале.
У компании имеется собственный штат сотрудников, в который входят продавцы-консультанты торгового зала, руководитель отдела закупок, кладовщик, грузчики и бухгалтер.
Когда клиент приходит в магазин «ЭлектроМастер», все его взаимодействие осуществляется с менеджером торгового зала, который проводит консультации клиента по интересующим его вопросам, а также осуществляет продажу техники: операции с денежными средствами, отбивка чека и т.д. После оплаты товара клиент получает чек, на основании которого работники склада отгружают перечисленные в нем товарные позиции. Если товара на складе нет, то работник склада составляет заявку на его заказ и направляет данную заявку в отдел закупок.
Далее отдел закупок формирует заказы для поставщиков, которые в свою очередь поставляют товар на склад, где его принимают работники склада.
Работник торгового склада магазина принимает от отдела закупок списки заказанных товаров. Когда по данным заказам приходит товар от поставщиков, работник склада сверяет количество товара в заказах, счет-фактурах и фактическое наличие товара. Кроме того, при приеме товара работник склада проверяет сохранность упаковок товаров. После этого товар распределяется по отделам для выставления его на демонстрационные стенды, выдаются соответствующие накладные и ценники.
В качестве предмета исследования в рамках данного курсового проекта выступает организация бизнес-процесса «Продажи». Данный процесс целиком выполняется менеджерами торгового зала.
Для более подробного изучения организации бизнес-процесса продаж в компании ООО «ЭлектроМастер» будет использован метод моделирования.
1.2. Характеристика существующих бизнес-процессов
Для анализа бизнес-процесса воспользуемся функционально-структурным моделированием этой деятельности. В качестве основной методологии построения функциональных моделей выступает IDEF0.
Методология описания бизнес-процессов IDEF0 предполагает указание не только входов и выходов, но и дополнительных входов. Всего в данном стандарте выделяют три типа входа: первый так и называется вход, второй – управлением, а третий – механизмами.
Стандарт IDEF0 регламентирует с помощью входа (первый тип входных данных) показывать объекты, которые преобразуются в данным бизнес-процессе, это могут информационные и материальные потоки. С помощью управления (второй тип) показывают объекты, которые управляют выполнением бизнес-процессам. С помощью механизмов (третий тип) необходимо показывать объекты, которые непосредственно осуществляют данный бизнес-процесс: сотрудники, технические средства, информационный системы. На выходе бизнес процесса показывают результат выполнения данного бизнес-процесса.
На первом этапе построения IDEF0 модели система представляется как единое целое. Основная цель данного этапа – выявить входные и выходные данные, а также механизмы и правила для данной системы. Диаграмма данного этапа называется контекстной. Контекстная диаграмма для бизнес-процесса «Продажи» изображена на рисунке 1 (для построения диаграмм использовалось CASE- средство AllFusion Process Modeler 7)
Рисунок 1. Контекстная диаграмма
В качестве входных данных для исследуемого бизнес-процесса выступают остатки товаров на складе и заявка от клиента на покупку, в качестве выходных данных – заказ покупателя, чек об оплате и проданные товары. Бизнес-процесс выполняется менеджерами торгового зала в соответствии с регламентом работы торгового зала.
Следующий этап построения функциональной модели – декомпозиция контекстной диаграммы на составляющие её бизнес-процессы. Диаграмма декомпозиции процесса продаж представлена на рисунке 2.
Рисунок 2. Диаграмма декомпозиции
Продажа товаров товара состоит из четырех основных этапов:
- выяснение потребности клиента;
- уточнение данных нужных товаров;
- оформление заказа покупателя;
- прием оплаты.
1.3. Характеристика документооборота, возникающего при решении задачи
В процессе выполнения бизнес-процесса продаж в компании «ЭлектроМастер» формируются два документа: заказ покупателя и чек об оплате. На рисунках ниже (рисунки 3 и 4) приведены схемы документооборота для каждого из этих документов.
Рисунок 3. Схема документооборота для заказа покупателя
Рисунок 4. Схема документооборота для чека об оплате
1.4. Обоснование проектных решений по информационному обеспечению
Информационное обеспечение комплекса задач, которые поставлены перед данным проектом организовано в виде реляционной базы данных, в которой хранится вся информация, необходимая для автоматизации процесса продаж.
Существует очень простое понятие БД как большого по объему электронного хранилища информации, в которое организация помещает все данные, которые используются при деятельности этой организации, а доступ к этой информации осуществляется посредством специального программного обеспечения. Однако чаще всего под базой данных понимают любой массив взаимосвязанных данных, хранящихся на компьютере.
Базы данных проектируются на основе представлений конечных пользователей конкретной организации, которые называют концептуальными требованиями к системе. Именно конечный пользователь принимает какие-то решения на основе полученной информации, хранящейся в базе данных. От оперативности и качества этой информации будет зависеть эффективность работы организации. Данные, помещаемые в базу данных, также предоставляет конечный пользователь.
Существуют определенные правила создания и проектировании базы данных для нужд какой-либо организации:
- База данных должна содержать в себе все необходимые для работы организации данные, хранимая информация должна быть в актуальном состоянии;
- База данных должна обеспечивать доступ ко всей информации за приемлемое время, то есть отвечать заданным требованиям производительности;
- База данных должна удовлетворять выявленным и вновь возникающим требованиям конечных пользователей;
- База данных должна иметь возможности расширения, на случай расширения сферы деятельности организации;
- База данных должна легко изменяться при изменении программной и аппаратной среды;
- Данные, которые загружаются в базу данных, должны быть корректными, поэтому при добавлении данных должна проводиться проверка вводимых данных;
- Доступ к информации, хранимой в БД должны иметь только лица и сотрудники организации, имеющие на это соответствующие полномочия и должностные обязанности;
- Работа с базой данных не должны вызывать трудностей у пользователей, для этого обязательно нужен дружественных интерфейс.
Реляционная модель базы данных – это такая модель, где БД – совокупность отношений, содержащих всю информацию, которая должна храниться в БД. Однако пользователи могут воспринимать такую базу данных как совокупность таблиц.
1.5. Обоснование проектных решений по программному обеспечению
Программное обеспечение – это совокупность программ для реализации целей и задач информационной системы, а также нормального функционирования комплекса технических средств.
В состав программного обеспечения входят общесистемные и специальные программные продукты, в том числе: операционная система, системы программирования, инструментальные средства программиста, тестовые и диагностические программы, программные средства телекоммуникации, защиты информации, функциональное программное обеспечение (автоматизированные рабочие места, системы управления базами данных и т. п.).
Для реализации проектируемой информационной системы необходимо выбрать язык программирования для создания пользовательского интерфейса и систему управления базой данных для организации хранения информации в виде базы данных.
В качестве возможных альтернатив были выбраны три наиболее популярных языка: Delphi, C++ и Java.
Delphi – язык программирования высокого уровня, имеющий следующие особенности
- набор операторов языка отражает принципы структурного проектирования и позволяет записывать достаточно сложные алгоритмы в лёгкой и элегантной форме;
- синтаксис языка достаточно несложный и включает в себя возможности объектно-ориентированного программирования;
- язык лёгок для изучения;
- позволяет работать с базами данных;
- позволяет составлять отчёты;
- наличие компилятора с возможностью компоновки исполняемых файлов под операционные системы семейства Windows.
Следующий язык – язык С++. Синтаксис этого языка более сложен по сравнению с простым и ясным синтаксисом Object Pascal, который положен в основу языка Delphi, поэтому Object Pascal претендует на роль языка, идеально подходящего для описания алгоритма. Во всех случаях Object Pascal имеет самый быстрый, среди продуктов подобного рода, оптимизирующий компилятор, позволяющий создавать быстрые и относительно компактные программы. С++ является языком программирования общего назначения. Единственная для него область применения - системное программирование, понимаемое в широком смысле этого слова. С++ успешно используется во многих областях приложения, далеко выходящих за его естественную область применения. Реализации С++ находятся на всех машинах, начиная с самых скромных микрокомпьютеров - до самых больших супер-ЭВМ, и практически для всех операционных систем.
Язык С++ проектировался для использования в довольно традиционной среде, такой как: в системе программирования С операционной системы UNIX. Однако, такие возможности, как динамическая загрузка, развитые системы трансляции и базы данных для хранения определений типов, дают вполне обоснованные доводы в пользу использования С++ как более богатую программную среду.
И последний из самых популярный в последнее время языков – язык программирования Java. Программы на Java транслируются в байт-код, выполняемый виртуальной машиной Java (JVM) – специальной программой, которая обрабатывает байтовый код и передает соответствующие команды оборудованию.
Главным достоинство такого способа выполнения программ является независимость транслируемого байтового кода от операционной системы и оборудования. То есть JAVA-приложения могут быть выполнены на любом устройстве, для которого существует виртуальная машина. Еще одной особенностью технологии Java является полный контроль исполнения программы виртуальной машиной, что обеспечивает гибкие возможности безопасности и защиты данных. Любые операции, которые не должны входить в полномочия программы (например, доступ к закрытым или конфиденциальным данным, соединения с другим компьютером и пр.) вызывают завершение работы программы. К недостаткам технологии Java следует отнести сниженную производительность, по сравнению с классической технологией программирования в виде дополнительных операции по трансляции программы в байт-код.
Для разработки информационной системы был выбран язык программирования Delphi, и среда разработки Delphi 7 в виду наличия опыта работы с данной средой у разработчика.
В качестве системы управления базой данных была выбрана СУБД Microsoft SQL SERVER.
СУБД MS SQL Server 2008 наделена всеми необходимыми возможностями. В частности, система обладает следующими преимуществами:
- обеспечивает высокую надежность и устойчивость к различным сбоям;
- позволяет осуществлять доступ к данным посредством ЛВС;
- обладает развитой системой репликации, позволяющей избегать конфликтов изменений и чтений информации при многопользовательском доступе к БД.
2 Глава. Проектная часть
2.1. Информационная модель и её описание
Информационной моделью называют схему движения входной, промежуточной и результативной информации и функций предметной области. Также с помощью информационной модели объясняется с помощью каких входных данных (документов) и какой нормативно-справочной информации происходит выполнение основных функций. Информационная модель проектируемой ИС представлена на рисунке 5.
Рисунок 5. Информационная модель
В соответствии с составленной информационной моделью Пользователи могут может работать со всеми справочниками информационной системы.
Также пользователи могут добавлять вводить данные о заказах клиентов и формировать выходные документы: заказ покупателя и чек об оплате.
2.2. Характеристика нормативно-справочной, входной и оперативной информации
В информационной системе используются четыре справочника, характеристики которых приведены в таблице 2.
Таблица 2
Справочники информационной системы
|
№ пп |
Название справочника |
Ответственный за ведение |
Средний объём справочника в записях |
Среднюю частоту актуализации |
Средний объем актуализации, % |
|
1 |
Пользователи |
Менеджер |
2 |
1 раз в полгода |
50 |
|
2 |
Клиенты |
Менеджер |
10 |
1 раз в месяц |
10 |
|
3 |
Товары |
Менеджер |
1000 |
1 раз в неделю |
10 |
|
4 |
Категории |
Менеджер |
10 |
1 раз в месяц |
10 |
За ведение всех справочников отвечает старший менеджер, для каждого вида справочника своя частота актуализации и средний объем актуализации.
Реквизитный состав каждого справочника представлен в виде таблицы 3.
Таблица 3
Реквизитный состав справочников информационной системы
|
№ п/п |
Наименование справочника |
Перечень реквизитов |
|
1 |
Пользователи |
ФИО пользователя Логин Пароль Телефон Электронная почта |
|
2 |
Клиенты |
Наименование (ФИО) Телефон Электронная почта |
|
3 |
Товары |
Наименование Описание Единица измерения Цена |
|
4 |
Категории |
Наименование |
Редактирование и ввод новых записей во все справочники осуществляется с помощью специальных форм.
На рисунке 6 изображена форма для работы с записями справочника «Пользователи».
Рисунок 6. Форма Пользователь
Поле для ввода пароля продублировано, это необходимо для того, чтобы исключить возможность опечатки при вводе пароля.
Перед сохранением данных проверяется наличие пользователей с таким же логином (каждый пользователь должен иметь уникальный логин), сложность введенного пароля (минимум одна цифра и один прописной знак).
Формы для работы с записями других справочников имеют аналогичный вид (Рисунок 7-9).
Рисунок 7. Форма Клиент
Рисунок 8. Форма Товар
Рисунок 9. Форма Категория
В качестве входных данных для информационной системы выступают данные о заказах клиентов. Эти данные вводятся в ИС с помощью специальной формы, приведенной на рисунке 10.
Рисунок 10. Форма для добавления заказа клиента
Данные, введенные в формы, которые приведены выше, сохраняются в базе данных и используются для формирования выходных данных.
2.3. Характеристика результатной информации
В качестве выходных данных выступают заказ клиента и чек об оплате.
Подробное описание выходных данных в таблице 4.
Таблица 4
Описание результатной информации
|
Наименование |
Заказ клиента |
Чек об оплате |
|
Реквизиты |
Номер заказа клиента Наименование клиента Товары в заказе Количество товаров Цена товаров Дата формирования Сотрудник, оформивший заказ |
Номер заказа клиента Наименование клиента Сумма оплаты Дата формирования Сотрудник, принявший оплату |
|
Таблицы, на основе которых формируется |
Заказ клиента Клиенты Товары Категории Сотрудники |
Заказ клиента Клиенты Сотрудники |
|
Частота формирования |
По мере необходимости |
По мере необходимости |
|
Способ доставки |
Файл в формате Excel |
Файл в формате Excel |
2.4. Общие положения (дерево функций и сценарий диалога).
Базовый набор функций разработанной информационной системы можно изобразить в виде дерева, изображенного на рисунке 11.
Рисунок 11. Дерево функций
Выполнение функций разработанной информационной системы осуществляется с помощью ведения диалога с пользователем. То есть Пользователь информационной системы выполняет какие-то действия, а программа соответствующим образом на них реагирует. Сценарий диалога с пользователем представлен на рисунке 12.
Рисунок 12. Сценарий диалога
Началом диалога является запрос логина и пароля пользователя для доступа в систему. После успешного прохождения авторизации пользователю предлагается выбрать задачу, которую он собирается решить: работа со справочниками, работа с заказами. В зависимости от выбора пользователя ему открываются различные формы пользовательского интерфейса, предназначенные для решения выбранной задачи.
2.5. Характеристика базы данных
В качестве системы управления базой данный для разрабатываемой информационной системы была выбрана СУБД Microsoft SQL Server.
Для хранения всех необходимых данных была спроектирована и создана база данных, состоящая из 6 таблиц. ER-модель спроектированной базы данных представлена на рисунке 13.
Рисунок 13. ER-модель базы данных
Описание всех таблиц базы данных представлено в таблицах 5-10.
Таблица 5
Таблица users
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код пользователя |
id |
int |
4 |
AI |
|
ФИО пользователя |
fio |
varchar |
120 |
|
|
Логин пользователя |
login |
varchar |
120 |
|
|
Пароль пользователя (в зашифрованном виде) |
password |
varchar |
120 |
|
|
Email пользователя |
|
varchar |
120 |
|
|
Телефон пользователя |
phone |
varchar |
120 |
\
Таблица 6
Таблица client
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код клиента |
id |
int |
4 |
AI |
|
Наименование |
caption |
varchar |
120 |
|
|
Телефон |
phone |
varchar |
120 |
|
|
Адрес |
address |
varchar |
120 |
Таблица 7
Таблица product
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код продукта |
id |
int |
4 |
AI |
|
Наименование |
caption |
varchar |
120 |
|
|
Описание |
description |
text |
65655 |
|
|
Единица измерения |
edizm |
varchar |
120 |
|
|
Цена |
price |
decimal |
10 |
|
|
Код категории |
categoryid |
int |
4 |
Таблица 8
Таблица category
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код категории |
id |
int |
4 |
AI |
|
Наименование |
caption |
varchar |
120 |
Таблица 9
Таблица order_product
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код заказа |
orderid |
int |
4 |
|
|
Код товара |
productid |
int |
4 |
|
|
Количество в заказе |
ordercount |
int |
4 |
|
|
Цена за единицу |
price |
decimal |
10 |
Таблица 10
Таблица order
|
Наименование поля |
Идентификатор поля |
Тип поля |
Длина поля |
Прочее |
|
Код заказа |
id |
int |
4 |
AI |
|
Номер заказа |
ordernumber |
int |
4 |
|
|
Дата создания |
createdate |
datetime |
10 |
|
|
Сумма заказа |
ordersum |
float |
4 |
|
|
Код клиента |
clientid |
int |
4 |
2.6. Структурная схема пакета (дерево вызова программных модулей)
Проект программы состоит из четырех модулей:
- модуль Main.pas (главный модуль);
- модуль Order.pas (работа с заказом);
- модуль Connect.pas (настройки соединения с базой данных);
- модуль Sprav.pas (работа со справочниками).
Подробное описание модулей представлено в виде таблицы 11.
Таблица 11
Описание модулей системы
|
№ п/п |
Наименование модуля |
Функции модуля |
|---|---|---|
|
1. |
модуль Main.pas |
содержит процедуры и функции, отвечающие за отображение главного окна программы и её главного меню |
|
2. |
модуль Order.pas |
в данном модуле запрограммированы процедуры для работы заказом (добавление нового, редактирование добавленного ранее, формирование входных документов) |
|
3. |
модуль Connect.pas |
модуль содержит процедуры и компоненты для инициализации подключения и осуществления всех операций взаимодействия с базой данных (отправки SQL-запросов и обработка результатов их выполнения) |
|
4 |
модуль Sprav.pas |
модуль содержит процедуры и компоненты для выполнения основных операций со справочниками информационной системы (просмотр, добавление, изменение, удаление записей) |
Дерево вызова программных модулей приведено на рисунке 14.
Рисунок 14. Дерево вызова программных модулей
2.7 Описание программных модулей
После запуска программы инициализируется подключения к базе данных. Соединение с базой данных осуществляется с помощью технологии ADO.
Данная технология связи с хранилищами данных завоевала особую популярность у разработчиков, благодаря своей универсальности – базовый набор интерфейсов OLE DB имеется в каждой современной операционной системе Windows. Поэтому для обеспечения доступа приложения к данным достаточно лишь правильно указать провайдер соединения ADO, после этого можно переносить созданный программные продукт на любой компьютер, где имеется требуемая база данных и, конечно, установленная ADO.
В палитре компонентов Delphi есть отдельная вкладка ADO, которая содержит набор компонентов, позволяющих создавать полноценные приложения БД, обращающиеся к данным через данную технологию.
Форма работы со справочниками системы работают напрямую с таблицами базы данных, поэтому для их работы используется компонент Adotable. Данный компонент представляет собой виртуальную копию таблицы базы данных, изменения в которой сразу передаются в связанную таблицу БД.
Для работы с заказами, а также их изменения используется компонент AdoQuery. Данный компонент предназначен для отправки запросов к базе данных и обработки ответов на них. В приложении используются 3 вида запросов:
- Запросы на выборку;
- Запросы на добавление данных;
- Запросы на обновление данных.
Для получения практически любых данных любого количества таблиц базы данных используется оператор запроса SELECT.
Этот оператор выбирает записи из базы данных и имеет самую сложную структуру, по сравнению с другими операторами языка SQL. Данный оператор позволяет не только выбирать записи из базы данных, удовлетворяющие заданному условию, но также и настраивать параметры отображения этих записей, таких как сортировка и группировка. А использование агрегатных функций позволяет подсчитывать необходимые данные.
Для обновления данных, хранящихся в базе данных используется оператор UPDATE, для добавления новых – оператор INSERT.
Следует отметить, что технология ADO позволяет писать запрос в объекте AdoQuery на классическом языке SQL, без учета особенностей СУБД, используемой в качестве хранилища данных. Это является значимым преимуществом, т.к. позволяет легко переводить программные средства с одной СУБД на другую, в зависимости от условий эксплуатации и требований к ней.
Программные модули состоят из процедур, которые обрабатывают различные действия пользователя (нажатия на кнопки, ввод текста в поля и т.д.) нужным образом.
Исходный код всех процедур с комментариями представлен в приложении.
2.8. Контрольный пример реализации проекта и его описание
После запуска программы открывается форма авторизации, с помощью которой пользователю необходимо ввести свои логин и пароль (Рисунок 15).
Рисунок 15. Форма авторизации
После успешного прохождения авторизации пользователю отображается главное окно программы, в котором в виде таблицы представлены все добавленные заказы клиентов (Рисунок 16).
Рисунок 16. Главная форма со списком заказов
Для переключения между функциями программы необходимо использовать главное меню (Рисунок 17).
Рисунок 17. Главное меню
Чтобы добавить новый заказ нужно выбрать пункт меню «Новый заказ», откроется форма добавления заказа (Рисунок 18).
Рисунок 18. Форма добавления заказа
Для открытия формы работы с заказом необходимо дважды щелкнуть по нему в списке заказов на главной форме. Откроется форма работы с заказом, на данной форме работы с заказом можно изменить его данные, а также сформировать выходные документы (Рисунок 19).
Рисунок 19. Форма работы с заказом
Форма работы со всеми справочниками имеет общий вид: большую часть формы занимает таблица с записями справочника, а над ней расположены кнопки для открытия формы добавления или изменения записи, либо удаления записи их справочника (Рисунок 20).
Рисунок 20. Форма работы со справочником
ЗАКЛЮЧЕНИЕ
В ходе проделанной работы были решены следующие задачи:
- Была проанализирована текущая организация бизнес-процесса продажи товаров в компании «ЭлектроМастер», были выделены основные этапы выполнения бизнес-процесса, изучен возникающий документооборот;
- Были выбран проектные решения по информационному обеспечению и программному, в качестве среды разработки была выбрана Delphi7, а в качестве СУБД – Microsoft SQL Server;
- Была составлена информационная модель информационной системы, которая отражает пути преобразования входной информации в выходную;
- Была разработана база данных и программные модули, реализующие работу ИС.
- Был описан контрольный пример реализации проекта.
Таким образом, все задачи, поставленные перед данным курсовым проектом выполнены, а значит и основная цель достигнута.
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
- ГОСТ 2.105 – 95. Общие требования к текстовым документам.
- ГОСТ 7.32 – 2001. Отчет по научно-исследовательской работе. Структура и правила оформления.
- ГОСТ 7.82-2001. Библиографическое описание электронных ресурсов.
- ГОСТ 24.702-85 Эффективность автоматизированных систем управления.
- ГОСТ Р 7.0.5-2008. Библиографическая запись. Библиографическое описание.
- Агальцов В.П. Базы данных. В 2-х т. Т. 2. Распределенные и удаленные базы данных: Учебник. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. 272 с.
- Гагарина Л.Г. Разработка и эксплуатация автоматизированных информационных систем: учебное пособие. М.: ИД «ФОРУМ»: ИНФРА-М, 2013. 384 с.
- Горбаченко В.И., Убиенных Г.Ф. Бобрышева Г.В. Проектирование информационных систем с СА Erwin Modeling Suite 7.3. Пенза: Изд-во ПГУ, 2012, 154 c.
- Зуев Е.А. Программирование на языке Delphi 6.0,7.0. – М.: Радио и связь, Веста, 2016. - 186 с.
- Калмыков Ю.В. Учебно-методичское пособие по обучению программированию на языке Delphi для школ, 2014. – 100 с.
- Карпова И.П. Базы данных: Учебное пособие. – Спб.: Питер, 2013. – 240 с.
- Кузин А.В., Левонисова С.В. Базы данных: Учебное пособие для студ. высш. учеб. заведений. – М.: ИЦ Академия, 2012. – 320с.
- Культин Никита – Основы программирования в Delphi, 2015 – 232 с.
- Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1) / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2013. – 340 c.
- Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2015. – 512 c.
- Тельнова, Ю.Ф. Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М. : Горячая линия, 2015 — 345 c.
- Фуфаев Д.Э. Фуфаев Э.В. Разработка и эксплуатация автоматизированных информационных систем: учебник дя студ. М.: Издательский центр «Академия», 2013. 304 с.
- Шаньгин В.Ф. Информационная безопасность компьютерных системы и сетей: Учебное пособие. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. 416 с.
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frms,
Dialogs, Menus, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids, comobj,
ExtCtrls;
type
TFrm1 = class(TFrm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
Label1: TLabel;
Edt1: TEdt;
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
Label2: TLabel;
Edt2: TEdt;
BitBtn2: TBitBtn;
Adotbl1: TAdotbl;
Adotbl1Id: TAutoIncField;
Adotbl1FIO: TWideStringField;
Adotbl1Phone: TWideStringField;
Adotbl1Address: TWideStringField;
Adotbl1Passport: TWideStringField;
DataSource1: TDataSource;
DataSource2: TDataSource;
Adotbl2: TAdotbl;
Adotbl2id: TAutoIncField;
Adotbl2caption: TWideStringField;
Adotbl2path: TWideStringField;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
PopupMenu2: TPopupMenu;
N8: TMenuItem;
ADOQuery1: TADOQuery;
N9: TMenuItem;
N10: TMenuItem;
BitBtn3: TBitBtn;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
produre N3Click(Send: TObject);
produre BitBtn1Click(Send: TObject);
produre BitBtn2Click(Send: TObject);
produre FrmShow(Send: TObject);
produre Edt1Change(Send: TObject);
produre N7Click(Send: TObject);
produre N8Click(Send: TObject);
produre N5Click(Send: TObject);
produre N6Click(Send: TObject);
produre N4Click(Send: TObject);
produre N2Click(Send: TObject);
produre FrmResize(Send: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm1: TFrm1;
implementation
uses shabl;
{$R *.dfm}
produre TFrm1.N3Click(Send: TObject);
begin
frm1.Close;
end;
produre TFrm1.BitBtn1Click(Send: TObject);
begin
Edt1.Clear;
Edt1.SetFocus;
end;
produre TFrm1.BitBtn2Click(Send: TObject);
begin
Edt2.Clear;
Edt2.SetFocus;
end;
produre TFrm1.FrmShow(Send: TObject);
begin
Adotbl1.open;
Adotbl1.Sort:='FIO ASC';
DbGrid1.Collums[0].Width:=ROUND(DbGrid1.Width*0.65);
DbGrid1.Collums[1].Width:=ROUND(DbGrid1.Width*0.25);
Adotbl2.open;
Adotbl2.Sort:='caption ASC';
DbGrid2.Collums[0].Width:=ROUND(DbGrid2.Width*0.65);
DbGrid2.Collums[1].Width:=ROUND(DbGrid2.Width*0.28);
end;
produre TFrm1.Edt1Change(Send: TObject);
begin
if Edt1.text<>'' then
begin
DbGrid1.DataSource.DataSet.Filtered:=false;
DbGrid1.DataSource.DataSet.Filter:='FIO like %'+Edt1.Text+'%';
DbGrid1.DataSource.DataSet.Filtered:=true;
end
else
begin
DbGrid1.DataSource.DataSet.Filtered:=false;
DbGrid1.DataSource.DataSet.Filter:='';
end;
end;
produre TFrm1.N7Click(Send: TObject);
begin
Dbgrid2.DataSource.DataSet.Close;
DbGrid2.DataSource.DataSet.open;
Adotbl2.Sort:='caption ASC';
DbGrid2.Collums[0].Width:=ROUND(DbGrid2.Width*0.65);
DbGrid2.Collums[1].Width:=ROUND(DbGrid2.Width*0.28);
end;
produre TFrm1.N8Click(Send: TObject);
begin
Dbgrid1.DataSource.DataSet.Close;
DbGrid1.DataSource.DataSet.open;
Adotbl1.Sort:='FIO ASC';
DbGrid1.Collums[0].Width:=ROUND(DbGrid1.Width*0.65);
DbGrid1.Collums[1].Width:=ROUND(DbGrid1.Width*0.25);
end;
produre TFrm1.N5Click(Send: TObject);
begin
if not DbGrid1.DataSource.DataSet.FieldByName('id').IsNull then
begin
Frm2.Edt1.Text:=DbGrid2.DataSource.DataSet.FieldByName('caption').AsString;
Frm2.Edt2.Text:=DbGrid2.DataSource.DataSet.FieldByName('path').AsString;
Frm2.Caption:='Редактирование шаблона';
Frm2.Label3.Caption:= DbGrid2.DataSource.DataSet.FieldByName('id').AsString;
Frm2.show;
end;
end;
produre TFrm1.N6Click(Send: TObject);
var
s: string;
begin
s := InputBox('Ввод данных','Необходимо указать название нового шаблона','');
if s<>'' then
begin
With AdoQuery1 do
begin
close;
SQL.Clear;
SQl.add('INSERT INTO shablon (caption) VALUES ( :caption )');
Parameters.ParamByName('caption').Value:=s;
EXECSQL;
end;
n7.Click;
end;
end;
produre TFrm1.N4Click(Send: TObject);
var
Word:Variant;
begin
if not DBGrid1.DataSource.DataSet.FieldByName('id').IsNull then
begin
if fileExists(ExtractFilePath(ParamStr(0))+'shablon\'+DbGrid2.DataSource.DataSet.FieldByName('path').AsString) then
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Add(ExtractFilePath(ParamStr(0))+'shablon\'+DbGrid2.DataSource.DataSet.FieldByName('path').AsString);
Word.visible:=true;
end
else
begin
Showmessage(' Файл '+DbGrid2.DataSource.DataSet.FieldByName('path').AsString+' не найден в папке shablon.'+#10+#13+'Проверьте правильность названия файла и его наличие в указанной папке.');
end;
end;
end;
produre TFrm1.N2Click(Send: TObject);
begin
n7.Click;
n8.Click;
end;
produre TFrm1.FrmResize(Send: TObject);
begin
panel1.Width:=Round((frm1.Width-50)*0.5);
panel2.Width:=Round((frm1.Width-50)*0.5);
panel1.Width:=Round(frm1.Width*0.5);
BitBtn3.Left:=Round(panel5.Width*0.5)-Round(Bitbtn3.Width*0.5);
DbGrid2.Collums[0].Width:=ROUND(DbGrid2.Width*0.65);
DbGrid2.Collums[1].Width:=ROUND(DbGrid2.Width*0.26);
DbGrid1.Collums[0].Width:=ROUND(DbGrid1.Width*0.65);
DbGrid1.Collums[1].Width:=ROUND(DbGrid1.Width*0.26);
end;
end.
unit shabl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frms,
Dialogs, StdCtrls, Buttons, DB, ADODB, comobj;
type
TFrm2 = class(TFrm)
Label1: TLabel;
Label2: TLabel;
Edt1: TEdt;
BitBtn1: TBitBtn;
Edt2: TEdt;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
OpenDialog1: TOpenDialog;
Label3: TLabel;
ADOQuery1: TADOQuery;
produre BitBtn3Click(Send: TObject);
produre Edt1Change(Send: TObject);
produre Edt2Change(Send: TObject);
produre BitBtn1Click(Send: TObject);
produre BitBtn2Click(Send: TObject);
produre FrmClose(Send: TObject; var Action: TCloseAction);
produre BitBtn4Click(Send: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm2: TFrm2;
implementation
Uses main;
{$R *.dfm}
produre TFrm2.BitBtn3Click(Send: TObject);
begin
Frm2.Close;
end;
produre TFrm2.Edt1Change(Send: TObject);
begin
if not (copy(caption,length(caption)-1,1) = '*') then caption:=caption+'*';
end;
produre TFrm2.Edt2Change(Send: TObject);
begin
if not (copy(caption,length(caption)-1,1) = '*') then caption:=caption+'*';
end;
produre TFrm2.BitBtn1Click(Send: TObject);
begin
openDialog1.InitialDir := GetCurrentDir;
if opendialog1.Execute then
begin
if FileExists(opendialog1.FileName) then
begin
Edt2.Text:=Opendialog1.FileName;
end;
end;
end;
produre TFrm2.BitBtn2Click(Send: TObject);
begin
if Edt1.text='' then begin showmessage('Имя шаблона не может быть пустым'); Edt1.SetFocus; exit; end;
if Edt2.text='' then begin showmessage('Необходимо выбрать файл'); BitBtn1.SetFocus; exit; end;
if not (FileExists(ExtractFilePath(ParamStr(0))+'shablon\'+Edt2.Text)) or (FileExists(Edt2.Text)) then begin showmessage('Указанный файл шаблона не найден'); BitBtn1.SetFocus; exit; end;
if OpenDialog1.filename='' then OpenDialog1.filename:=ExtractFilePath(ParamStr(0))+'shablon\'+Edt2.Text;
With AdoQuery1 do
begin
close;
SQl.clear;
SQL.add('UPDATE shablon SET caption = :caption, path = :path WHERE id = :id');
Parameters.ParamByName('caption').value:=Edt1.text;
Parameters.ParamByName('path').value:=ExtractFileName(OpenDialog1.Filename);
Parameters.ParamByName('id').value:=label3.caption;
execSQL;
end;
CopyFile(Pchar(Edt2.text), Pchar(ExtractFilePath(ParamStr(0))+'shablon\'+ExtractFileName(OpenDialog1.Filename)), true) ;
caption:=copy(caption,0,length(caption)-2);
close;
Frm1.N7.Click;
end;
produre TFrm2.FrmClose(Send: TObject; var Action: TCloseAction);
begin
if copy(caption,length(caption)-1,1) = '*' then
begin
If MessageBox(Handle,PChar('Данные были изменены. Сохранить изменения?'),PChar('Подтверждение'),MB_ICONINFRMATION+MB_YESNO+MB_DEFBUTTON2)=IdYes
then BitBtn2.Click;
end;
end;
produre TFrm2.BitBtn2Click(Send: TObject);
begin
if Edt1.text='' then begin showmessage('Имя шаблона не может быть пустым'); Edt1.SetFocus; exit; end;
if Edt2.text='' then begin showmessage('Необходимо выбрать файл'); BitBtn1.SetFocus; exit; end;
if not (FileExists(ExtractFilePath(ParamStr(0))+'shablon\'+Edt2.Text)) or (FileExists(Edt2.Text)) then begin showmessage('Указанный файл шаблона не найден'); BitBtn1.SetFocus; exit; end;
if OpenDialog1.filename='' then OpenDialog1.filename:=ExtractFilePath(ParamStr(0))+'shablon\'+Edt2.Text;
With AdoQuery1 do
begin
close;
SQl.clear;
SQL.add('UPDATE shablon SET caption = :caption, path = :path WHERE id = :id');
Parameters.ParamByName('caption').value:=Edt1.text;
Parameters.ParamByName('path').value:=ExtractFileName(OpenDialog1.Filename);
Parameters.ParamByName('id').value:=label3.caption;
execSQL;
end;
produre TFrm2.BitBtn4Click(Send: TObject);
var
Word:Variant;
begin
if fileExists(Edt2.text) then
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Add(Edt2.text);
if not (copy(caption,length(caption)-1,1) = '*') then caption:=caption+'*';
Word.visible:=true;
end
else
begin
Showmessage(' Файл '+Edt2.text+' не найден.'+#10+#13+'Проверьте правильность названия файла и его наличие в указанной папке.');
end;
end;
end.
unit Connect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
Uses DataM;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
var
SetF : TextFile;
s:array[1..9] of string;
i:integer;
begin
if Edit1.text='' then begin showmessage('Укажите имя сервера'); exit; end;
if Edit2.text='' then begin showmessage('Укажите логин'); exit; end;
if Edit3.text='' then begin showmessage('Укажите пароль'); exit; end;
if Edit4.text='' then begin showmessage('Укажите имя базы данных'); exit; end;
AssignFile(SetF, ExtractFilePath(ParamStr(0))+'SetF.cfg');
reset(SetF);
For i:=1 to 4 do Readln(Setf,s[i]);
closeFile(SetF);
s[1]:=edit1.text;
s[2]:=edit2.text;
s[3]:=edit3.text;
s[4]:=edit4.text;
Rewrite(SetF);
For i:=1 to 9 do Writeln(Setf,s[i]);
closefile(Setf);
Close;
end;
end.
- Исследование проблем борьбы с вирусами и антивирусные программы
- Сходство и отличие требований права и морали
- Проблемы профессиональных стрессов. Профессиональное выгорание работников пожарной части МЧС
- Налоговые регистры по НДФЛ(Теоретические основы налогообложения доходов физических лиц в Российской Федерации)
- Федеральное казначейство РФ и его роль в управлении движением государственных финансов
- Общая характеристика оперативно-розыскных мероприятий
- Россия в системе международных кредитных отношений
- Проектирование реализации операций бизнес-процесса «Продажи» (Выбор комплекса задач автоматизации).
- Исследование проблем борьбы с вирусами и антивирусные программы
- Распределенная технология обработки информации»
- Функциональные и технические характеристики устройств персонального компьютера
- Применение объектно-ориентированного подхода при проектировании информационной системы (Диаграмма деятельности )