Разработка программы передачи сообщений по локальной сети

Размещено на http://www.allbest.ru

ВВЕДЕНИЕ

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

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

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

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

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

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

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

1. ОБЩАЯ ЧАСТЬ

1.1 Описание предметной области

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

Системы разработки программы передачи сообщений по локальной сети обеспечивают процесс создания, управления доступом и распространения больших объемов документов в компьютерных сетях, а также обеспечивают контроль над потоками документов в организации. Часто эти документы хранятся в специальных хранилищах или в иерархии файловой системы. Типы файлов, которые, как правило, поддерживают такие системы включают: текстовые документы, изображения, электронные таблицы, аудиоданные, видеоданные и Web-документы. К общим возможностям систем электронного документооборота относятся: создание документов, управление доступом, конвертация данных и обеспечение безопасности данных».

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

К стратегическим преимуществам, связанным с повышением эффективности работы предприятия или организации после внедрения систем электронного документооборота, можно отнести:

Появление возможности коллективной работы над документами (что невозможно при бумажном делопроизводстве);

Значительное ускорение поиска и выборки документов (по различным атрибутам);

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

Повышение сохранности документов и удобства их хранения, так как они хранятся в электронном виде на сервере;

Улучшение контроля за исполнением документов.

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

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

отслеживать ход выполнения работ;

устранять текущие проблемы, связанные с соисполнителями, заказчиками, экспертными организациями;

анализировать и оптимизировать технологию обработки документов.

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

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

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

Любой документ в системе документооборота снабжается «карточкой» наподобие библиотечной. Обычно конкретный набор полей в карточке привязан к типу документа. Хранилище системы электронного документооборота можно представить себе в виде базы данных, хранящей содержимое полей карточек и некоторого хранилища для самих документов.

Обычно путают два термина: «делопроизводство» и «документооборот». Часто можно услышать фразу «это не система документооборота, а система делопроизводства». Или наоборот. Делопроизводство - это термин, применяемый в конторской практике для обозначения формального набора правил работы с документами. Существуют системы документооборота, которые можно настроить на необходимые правила делопроизводства. Но есть системы, которые изначально ставили своей целью поддержку именно этих правил и в этом смысле не обладают более общими функциями в достаточной мере для того, чтобы их можно было назвать системами документооборота. С другой стороны, свод правил делопроизводства, который принят в России, довольно обширен, и настройка системы документооборота на эти правила - задача не тривиальная.

Основные задачи, решаемые системами документооборота.

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

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

Поддержка системы контроля качества, соответствующей международным нормам.

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

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

Оптимизация бизнес-процессов и автоматизация механизма их выполнения и контроля.

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

Исключение необходимости или существенное упрощение и удешевление хранения бумажных документов за счет наличия оперативного электронного архива.

1.2 Обзор элементов программирования

В качестве визуальной среды разработки была использована среда Borland Delphi 7.0, который использует язык программирования Object Pascal.

Delphi -- это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi -- строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal.

Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows. К примеру, Borland Pascal for Windows 7.0, Borland C++ 4.0, Word for Windows, Program Manager - это все MDI приложения и выглядят по-другому, чем Delphi. MDI (Multiple Document Interface) - определяет особый способ управления нескольких дочерних окон внутри одного большого окна.

Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон. Это было сделано из-за того, что SDI близок к той модели приложений, что используется в Windows 95.

Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows. К примеру, Borland Pascal for Windows 7.0, Borland C++ 4.0, Word for Windows, Program Manager - это все MDI приложения и выглядят по-другому, чем Delphi. MDI (Multiple Document Interface) - определяет особый способ управления нескольких дочерних окон внутри одного большого окна.

Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон. Это было сделано из-за того, что SDI близок к той модели приложений, что используется в Windows 95.

Главные составные части среды программирования:

Ниже перечислены основные составные части Delphi:

- Дизайнер Форм (Form Designer);

- Окно Редактора Исходного Текста (Editor Window);

- Палитра Компонент (Component Palette);

- Инспектор Объектов (Object Inspector);

- Справочник (On-line help);

Есть, конечно, и другие важные составляющие Delphi, вроде линейки инструментов, системного меню и многие другие, нужные Вам для точной настройки программы и среды программирования.

Программисты на Delphi проводят большинство времени переключаясь между Дизайнером Форм и Окном Редактора Исходного Текста (которое для краткости называют Редактор). Прежде чем Вы начнете, убедитесь, что можете распознать эти два важных элемента. Дизайнер Форм показан на рисунок 1, окно Редактора - на рисунок 2.

Рис.1: Дизайнер Форм - то место, где Вы создаете визуальный интерфейс программы.

Рис.2: В окне Редактора создаётся логика управления программой.

Дизайнер Форм в Delphi столь интуитивно понятен и прост в использовании, что создание визуального интерфейса превращается в детскую игру. Дизайнер Форм первоначально состоит из одного пустого окна, которое Вы заполняете всевозможными объектами, выбранными на Палитре Компонент.

Несмотря на всю важность Дизайнера Форм, местом, где программисты проводят основное время является Редактор. Логика является движущей силой программы и Редактор - то место, где Вы ее "кодируете".

Палитра Компонент (рисунок 3) позволяет Вам выбрать нужные объекты для размещения их на Дизайнере Форм. Для использования Палитры Компонент просто первый раз щелкните мышкой на один из объектов и потом второй раз - на Дизайнере Форм. Выбранный Вами объект появится на проектируемом окне и им можно манипулировать с помощью мыши.

Палитра Компонент использует постраничную группировку объектов. Внизу Палитры находится набор закладок - Standard, Additional, Dialogs и т.д. Если Вы щелкнете мышью на одну из закладок, то Вы можете перейти на следующую страницу Палитры Компонент. Принцип разбиения на страницы широко используется в среде программирования Delphi и его легко можно использовать в своей программе. (На странице Additional есть компоненты для организации страниц с закладками сверху и снизу).

Рисунок 3: Палитра Компонент - место, где Вы выбираете объекты, которые будут помещены на вашу форму.

Предположим, Вы помещаете компонент TEdit на форму; Вы можете двигать его с места на место. Вы также можете использовать границу, прорисованную вокруг объекта для изменения его размеров. Большинством других компонент можно манипулировать тем же образом. Однако, невидимые во время выполнения программы компоненты (типа TMenu или TDataBase) не меняют своей формы.

Слева от Дизайнера Форм Вы можете видеть Инспектор Объектов (рис.4). Заметьте, что информация в Инспекторе Объектов меняется в зависимости от объекта, выбранного на форме. Важно понять, что каждый компонент является настоящим объектом и Вы можете менять его вид и поведение с помощью Инспектора Объектов.

Инспектор Объектов состоит из двух страниц, каждую из которых можно использовать для определения поведения данного компонента. Первая страница - это список свойств, вторая - список событий. Если нужно изменить что-нибудь, связанное с определенным компонентом, то Вы обычно делаете это в Инспекторе Объектов. К примеру, Вы можете изменить имя и размер компонента TLabel изменяя свойства Caption, Left, Top, Height, и Width.

Вы можете использовать закладки внизу Инспектора Объектов для переключения между страницами свойств и событий.

Рисунок 4: Инспектор Объектов позволяет определять свойства и поведение объектов, помещенных на форму.

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

Основной блок программы состоит из последовательности операторов, причём работа программы начинается с первого оператора основного блока программы. Тело программы ограничено операторами BEGIN и END. После оператора END ставится точка.

2. СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Общая постановка задачи

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

Перед курсовым проектом программы “Разработка программы передачи сообщений по локальной сети” стояли следующие задачи:

- создать программу «Электронный документооборот»;

- обеспечить удобство для пользователя;

- обеспечить возможность отправки и принятия любых файлов;

- обеспечить возможность информировать о входящих и отправленных файлов;

- обеспечить возможность удаления имеющейся записи;

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

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

В итоге разработки программный продукт обладает следующими функциями:

- информация о программе;

- справка для работы с программой;

- удобство при удалении записи;

- удобство при просмотре;

- удобство при выводе документов;

- удобство при оформлении ;

- полная документация на программу;

- возможность отмены удаления.

2.2 Структурные и функциональные схемы

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

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

Разработку структурной схемы программы обычно выполняют методом пошаговой детализации.



Рисунок 2.1 -Структурная схема программы «Разработка программы передачи сообщений по локальной сети»

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



Рисунок 2.2 -Функциональная схема программы «электронный документооборот»

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

2.3 Описание модулей

электронная система файл передача

В программе курсового проекта «Электронный документооборот» были использованы следующие процедуры и функции

//выход из программы

procedure N2Click(Sender: TObject);

//Справочники

procedure N3Click(Sender: TObject);

//Поиск

procedure BitBtn1Click(Sender: TObject);

//передать данные

procedure BitBtn3Click(Sender: TObject);

//удаление записи

procedure BitBtn2Click(Sender: TObject);

//О программе

procedure N6Click(Sender: TObject);

//отправить данные

procedure BitBtn4Click(Sender: TObject);

//выбор строки с помощью клавиатуры DBGrid1

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

//выбор строки с помощью мыши для DBGrid1

Procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

//выбор строки с помощью клавиатуры DBGrid2

procedure TForm1.DBGrid2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

//выбор строки с помощью мыши для DBGrid2

Procedure TForm1.DBGrid2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

//выход

procedure TAboutBox.OKButtonClick(Sender: TObject);

//выход

procedure TForm2.BitBtn1Click(Sender: TObject);

//для выхода по нажатия любой клавиши на заставке

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);

//интервал показа заставки

procedure TForm3.Timer1Timer(Sender: TObject);

// ввод порта и IP адреса компьютера

procedure TForm4.FormCreate(Sender: TObject);

//выбор сервера

procedure TForm4.BitBtn2Click(Sender: TObject);

//принятие файла

procedure TForm4.BitBtn1Click(Sender: TObject);

//информация о сервере

procedure TForm4.IdTCPClient1Connected(Sender: TObject);

//ввод IP сервера

procedure TForm4.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

//ввод порта сервера

procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

//выход

procedure BitBtn3Click(Sender: TObject);

//процедура для принятия файла

procedure TForm5.IdTCPServer1Connect(AThread: TIdPeerThread);

//выбор порта

procedure TForm5.Button1Click(Sender: TObject);

//остановить отправку

procedure TForm5.Button3Click(Sender: TObject);

//ввод порта

procedure TForm5.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

//выбор файла для отправки

procedure Button2Click(Sender: TObject);

2.4 Таблица идентификаторов

Список идентификаторов	Описание переменных
BitBtn 1-2	Отправление, принятие данных
BitBtn 3-4	Удаление, поиск данных
DbGrid 1-7	Таблицы данных
Button 1-2	Подключение, отключение от сети
Button 3	Подтверждение

2.5 Описание набора данных

База данных состоит из семи таблиц:

Входящие;

Исходящие;

Тип носителей;

Тип документов;

Отправители;

Местонахождение;

Исполнители.

Таблица 3.1 - Структура таблицы “Входящие”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	+
Дата приёма	Строка	Data	10
Дата контроля	Строка	Data	10
Тема	Строка	Alpha	30
Тип продукта	Строка	Alpha	10
Отправитель	Строка	Alpha	30
Исполнитель	Строка	Alpha	30
Отдел	Строка	Alpha	30

Таблица 3.2 - Структура таблицы “Исходящие”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	+
Дата приёма	Строка	Data	10
Дата контроля	Строка	Data	10
Тема	Строка	Alpha	30
Тип продукта	Строка	Alpha	10
Отправитель	Строка	Alpha	30
Исполнитель	Строка	Alpha	30
Отдел	Строка	Alpha	30

Таблица 3.3 - Структура таблицы “ Тип носителей ”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	N
Имя носителя	Строка	Alpha	20

Таблица 3.4 - Структура таблицы “ Тип документов ”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	N
Имя	Строка	Alpha	20

Таблица 3.5 - Структура таблицы “ Отправители ”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	N
ФИО отправителя	Строка	Alpha	20
IP Отправителя	Строка	Alpha	20

Таблица 3.6 - Структура таблицы “ Местонахождение”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	N
Расположение файла	Строка	Alpha	20

Таблица 3.7 - Структура таблицы “ Исполнители ”

Наименование	Тип	Обозначение	Длина
Номер	Авто инкремент	N
ФИО	Строка	Alpha	20

ЗАКЛЮЧЕНИЕ

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

Электронный документ виртуален по определению и имеет возможность неограниченного клонирования.

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

Тема "электронного документооборота" в последнее время стала довольно популярной.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Xavier Pacheco - Delphi Developer's Guide = Ксавье Пачеко, Стив Тейксейра - Руководство разработчика Delphi.

Marco Cantu - Mastering Delphi 7.

Валентина Озерова - Советы по Delphi.

В. Пономарева - ActiveX в Delphi

Фундаментальные алгоритмы и структуры данных в Delphi Бакнелл Джулиан М.

Фленов М., VR Online journal - 1 

Учебник по Delphi 7 для начинающих 

Сухарев М, Основы Delphi профессиональный подход 

Стиввенс Р., Delphi готовые алгоритмы

Семакин И., Основы программирования 

Понамарев В., COM и ActiveX в Delphi 

Пестриков В., Delphi на примерах 

Немнюгин C., Turbo Pascal. Учебник 

Иллюстрированный самоучитель по Delphi для профессионалов

Дарахлевидзе П., Программирование в Delphi 7 

Голицина О., Основы алгоритмизации и программирования

Бакнел Д.,Фундаментальные алгоритмы и структуры данных в Delphi.pdf 

Русская справка по Delphi

Подольский С., Разработка интернет-приложений в Delphi

Немнюгин C.,Turbo Pascal. Учебник 

ПРИЛОЖЕНИЕ А

ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1 Введение

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

- повышение эффективности работы управленческого аппарата;

- содействие экономическому развитию;

- повышение уровня жизни граждан.

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

В итоге разработки программный продукт обладает следующими функциями:

Информация о программе

Справка для работы с программой

Удобство при добавлении записи

Удобство при удалении записи

Удобство при просмотре

Удобство при выводе документов

Полная документация на программу

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ А

Возможность отправки данных

Возможность окончательного удаления

Возможность отмены удаления

2 Основание для разработки

Техническое задание выполнено в соответствии с учебным планом кафедры информационных технологий и приказом на курсовое проектирование протокол №10 от «5» октября 2011 года .

3 Назначение

Данный программный продукт дает возможность отправить данные и принять данные.

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

4 Требование к программе или программному изделию

4.1 Требования к функциональным характеристикам

4.1.1 Данная программа должна поддерживать интерфейс с пользователем

4.1.2 Исходными данными являются: список городов, депозитов, видов страхования

4.1.3 Выходными данными является результат заполнения данными имеющейся базы и результат запроса

4.2 Требования к надежности программы

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

4.2.2 Обеспечить корректное завершение

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ А

4.3 Требования к составу и параметрам технических средств

4.3.1 Минимальная конфигурация

- тип процессора - Pentium и выше;

- объем оперативного запоминающего устройства - 128 Мб;

- тип монитора - SVGA (17)

4.4 Требования к информационной и программной совместимости.

Система должна работать под управлением операционной системы Windows

5 Требования к программной документации

5.1 Разрабатываемые программные модули должны быть самодокументированы, то есть тексты программ должны содержать все необходимые комментарии

5.2 Программная система должна включать справочную информацию о программе

5.3 В состав сопровождающей документации должны входить:

5.3.1 Пояснительная записка, содержащая описания разработка

5.3.2 Руководство пользователя

5.3.3 Графическая часть на месте формата А1

5.3.4 Контрольный пример

ПРИЛОЖЕНИЕ Б

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

Запуск программы производится двойным щелчком по ярлыку с надписью ElectronicDocumentCirculation.exe.

Рисунок А.1 - Главное окно программы

Появляется главное окно программы, на котором представлены 3 пункта меню и 4 пункта главного окна программы:

1.Справочники

2. Справка

О программе

Просмотреть справку

3. Выход.

Отправить данные

Принять данные

Удалить запись

Поиск

Пункт меню “Справочники” является справкой о том или ином файле.

Пункты меню “Оформление кредитов”, “Оформление депозитов”, “Страхование физических лиц” по своей сути являются идентичными в использовании. Если необходимо создать новую запись, то можно воспользоваться двумя способами: выбором пункта меню или при помощи кнопки на форме. При этом появляется окно ввода новой записи. Редактирование и удаление имеющейся записи производится аналогичным образом.

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

Выход из программы осуществляется двумя способами: выбором пункта меню и нажатием кнопки на главной форме.

ПРИЛОЖЕНИЕ В

ЛИСТИНГ ПРОГРАММЫ

// Главная форма

unit Glavnaya;

interface

uses

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

Dialogs, Menus, ComCtrls, XPMan, StdCtrls, Buttons, DB, DBTables, Grids,

DBGrids, ExtCtrls, DBCtrls, OleServer, WordXP, ExtDlgs, jpeg, Mask;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N2: TMenuItem;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

BitBtn1: TBitBtn;

Edit1: TEdit;

Label1: TLabel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

XPManifest2: TXPManifest;

DataSource1: TDataSource;

Table1: TTable;

N3: TMenuItem;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

DBGrid2: TDBGrid;

Table2: TTable;

DataSource2: TDataSource;

Image1: TImage;

Label2: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

BitBtn4: TBitBtn;

DBGrid1: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

DataSource3: TDataSource;

DataSource4: TDataSource;

Table3: TTable;

Table4: TTable;

Memo1: TMemo;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure DBGrid2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Spravochniki, Zastavka, oproge, client, server;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation, [mbYes, mbNo], 0) = mrYes

then close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if not Table1.Locate('Tema',Edit1.Text,[]) then

ShowMessage('Запись не найдена');

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

form5.ShowModal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

Table1.Delete;

end;

if MessageDlg('Удалить текущую запись?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

Table2.Delete;

end;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Form1.Edit2.Text:=DBGrid1.Fields[3].AsString;

end;

procedure TForm1.DBGrid2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Form1.Edit2.Text:=DBGrid2.Fields[3].AsString;

end;

procedure TForm1.DBGrid2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Form1.Edit2.Text:=DBGrid2.Fields[3].AsString;

end;

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Form1.Edit2.Text:=DBGrid1.Fields[3].AsString;

end;

procedure TForm1.FormCreate(Sender: TObject);

//var R:TRect;

begin

{R.Left := 0;

R.Top := 0;

R.Right := Screen.Width-150;

R.Bottom:=Screen.Height;

SystemParametersInfo(SPI_SETWORKAREA, 1, @R, SPIF_SENDCHANGE);

Self.Left:=Screen.Width-150; }

end;

procedure TForm1.N7Click(Sender: TObject);

begin

winhelp(Form1.Handle,'C:\Users\Hip Hop\Desktop\Electronic document circulation\HELP.HLP',HELP_CONTEXT,1);end;

end.

//Справочники

unit Spravochniki;

interface

uses

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

Dialogs, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Buttons,

jpeg, DB, DBTables;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

DBGrid5: TDBGrid;

Image1: TImage;

BitBtn1: TBitBtn;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

Table1: TTable;

Table2: TTable;

Table3: TTable;

Table4: TTable;

Table5: TTable;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

if MessageDlg('Выйти на главную страницу?',mtConfirmation, [mbYes, mbNo], 0) = mrYes

then close;

end;

end.

//О программе

unit oproge;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

OKButton: TButton;

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image1: TImage;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

Close;

end;

end.

//Заставка

unit Zastavka;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, jpeg;

type

TForm3 = class(TForm)

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure Timer1Timer(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Glavnaya;

{$R *.dfm}

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=false;

form3.close;

form1.show;

end;

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);

begin

form3.close;

form1.Show;

end;end.

//Клиент(Принятие данных)

unit client;

interface

uses

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

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,

IdTCPClient, XPMan, Buttons, ExtCtrls, FileCtrl, ComCtrls, Menus, jpeg;

type

TForm4 = class(TForm)

IdTCPClient1: TIdTCPClient;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

GroupBox1: TGroupBox;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

BitBtn2: TBitBtn;

Memo1: TMemo;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

GroupBox2: TGroupBox;

StatusBar1: TStatusBar;

Timer1: TTimer;

Image1: TImage;

procedure IdTCPClient1Connected(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);

procedure LabeledEdit4KeyPress(Sender: TObject; var Key: Char);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

host: string;

port: integer;

FS: TFileStream;

today : TDateTime;

put:string;

boundip:string;

boundport:integer;

implementation

uses oproge, Glavnaya;

{$R *.dfm}

procedure TForm4.IdTCPClient1Connected(Sender: TObject);

var

FileName: PChar;

FileSize: Cardinal;

//FS: TFileStream;

begin

GetMem(FileName, 256);

try

put:=directorylistbox1.Directory+'\';

IdTCPClient1.ReadBuffer(FileName^, 256);

IdTCPClient1.ReadBuffer(FileSize, SizeOf(FileSize));

//FS := TFileStream.Create('C:\incoming\'+FileName, fmCreate); // тут создается файл, я его положил в каталог incoming

FS := TFileStream.Create(put+FileName, fmCreate);

try

IdTCPClient1.ReadStream(FS, FileSize);

finally

FS.Free;

end;

finally

FreeMem(FileName);

end;

memo1.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

put:=directorylistbox1.Directory+'\';

IdTCPClient1.ConnectAndGetAll;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

host:=labelededit1.Text;

port:=StrToInt(labelededit2.Text);

IdTCPClient1.Host:=host;

IdTCPClient1.Port:=port;

memo1.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+' || '+'выбран сервер '+host+':'+IntTOStr(port));

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

host:='127.0.0.1';

port:=3000;

put:=directorylistbox1.Directory+'\';

//directorylistbox1.Directory:='C:\';

today := now;

with StatusBar1 do

begin

panels[0].text:=TimeToStr(now);

panels[2].text:=IdTCPClient1.Host;

panels[4].text:=IntToStr(IdTCPClient1.Port);

end;

end;

procedure TForm4.Timer1Timer(Sender: TObject);

begin

with StatusBar1 do

begin

panels[0].text:=TimeToStr(now);

panels[2].text:=IdTCPClient1.Host;

panels[4].text:=IntToStr(IdTCPClient1.Port);

end;

end;

procedure TForm4.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#46: ;

#8: ;

else

key:= chr(0);

end;

end;

procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8: ;

else

key:= chr(0);

end;

end;

procedure TForm4.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#46: ;

#8: ;

else

key:= chr(0);

end;

end;

procedure TForm4.LabeledEdit4KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8: ;

else

key:= chr(0);

end;

end;

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if MessageDlg('Выйти на главную страницу?', mtConfirmation,[mbYes, mbNo],0)=mrYes then

begin

Canclose:=true;

end else

Canclose:=false;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

AboutBox.show;

end;end.

//Сервер(Отправитель данных)

unit server;

interface

uses

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

Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls, Buttons,

Mask, ExtCtrls, XPMan, ComCtrls, Menus, jpeg;

type

TForm5 = class(TForm)

IdTCPServer1: TIdTCPServer;

OpenDialog1: TOpenDialog;

BitBtn1: TBitBtn;

LabeledEdit2: TLabeledEdit;

XPManifest1: TXPManifest;

Button1: TButton;

Button2: TButton;

Memo2: TMemo;

Button3: TButton;

StatusBar1: TStatusBar;

Image1: TImage;

BitBtn3: TBitBtn;

Label1: TLabel;

procedure IdTCPServer1Connect(AThread: TIdPeerThread);

procedure Memo1Enter(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

FileToSend: String;

FileSize: Cardinal;

p: Pointer;

put:string;

today : TDateTime;

ip, compare:string;

j,port:integer;

implementation

uses oproge, Glavnaya, client;

{$R *.dfm}

procedure TForm5.IdTCPServer1Connect(AThread: TIdPeerThread);

{var

FileToSend: String;

FileSize: Cardinal;

p: Pointer;}

begin

today := now;

//FileToSend :=ExtractFilePath(Application.ExeName)+'test.txt';

//FileToSend := 'c:\1.jpg'; // тут файл, который мы рассылаем любому попросившему.

with TFileStream.Create(FileToSend, fmOpenRead) do

try

FileToSend := ExtractFileName(FileToSend) + #00;

GetMem(p, 256);

try

CopyMemory(p, @FileToSend[1], Length(FileToSend));

AThread.Connection.Socket.Send(p^, 256);

finally

FreeMem(p);

end;

FileSize := Size;

AThread.Connection.Socket.Send(FileSize, SizeOf(FileSize));

GetMem(p, Size);

try

ReadBuffer(p^, Size);

AThread.Connection.Socket.Send(p^, Size);

finally

FreeMem(p);

end;

finally

Free;

end;

AThread.Connection.Disconnect;

Memo2.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+' || '+'файл послан клиенту');

//ShowMessage('Послано');

end;

procedure TForm5.Memo1Enter(Sender: TObject);

begin

bitbtn1.SetFocus;end;

procedure TForm5.Button1Click(Sender: TObject);

begin

idTCPServer1.DefaultPort:=StrToInt(LabeledEdit2.Text);

idTCPServer1.active:=true;

if idTCPServer1.active=true then

begin

button1.Enabled:=false;

button1.Visible:=false;

button3.Enabled:=true;

button3.Visible:=true;

Memo2.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+' ||Application.MessageBox,MB_OK+MB_ICONEXCLAMATION);

end else

if idTCPServer1.active=false then

begin

Application.MessageBox('Ошибка','Сервер не запущен',MB_OK+MB_ICONERROR);

Memo2.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+'

end;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

idTCPServer1.active:=false;

button3.Visible:=false;

button3.enabled:=false;

button1.Visible:=true;

button1.enabled:=true;

Application.MessageBox,MB_OK+MB_ICONEXCLAMATION);

Memo2.Lines.Add(TimeToStr(now)+'-'+DateToStr(now

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

if opendialog1.Execute then put:=opendialog1.Files.Strings[0];

FileToSend :=put;

//memo2.Lines.add(put);

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

put:=ExtractFilePath(Application.ExeName)+'test.txt';

FileToSend:=put;

OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);

end;

procedure TForm5.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

else

key:= chr(0);

end;

end;

procedure TForm5.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#46: ;

#8: ;

else

key:= chr(0);

end;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

idTCPServer1.DefaultPort:=StrToInt(LabeledEdit2.Text);

Memo2.Lines.Add(TimeToStr(now)+'-'+DateToStr(now)+' || '+'выбран порт: '+LabeledEdit2.Text);

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

Close;

end;

procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if MessageDlgmtConfirmation,[mbYes, mbNo],0)=mrYes then

begin

Canclose:=true;

end else

Canclose:=false;

end;end.

ПРИЛОЖЕНИЕ Г

КОНТРОЛЬНЫЙ ПРИМЕР

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

При запуске программы появляется заставка:

Рисунок В.1 - Заставка

После нажатия клавиши появляется главное окно:

Рисунок В.2 - Главное окно программы

Программа состоит из трёх пунктов меню :

1.Справочники

2. Справка

- О программе

- Просмотреть справку

3. Выход

И четырёх пунктов главного окна программы :

Отправить данные

Принять данные

Удалить запись

Поиск

Разберем предложенные пункты меню более подробно. Зайдем в пункт меню “Справочники”(происходит переход на другую форму)

Рисунок В.3- Вкладка “ Справочники ”

Данная форма позволяет пользователю узнать информацию о:

- Тип носителей

- Тип документов

- Отправители

- Местонахождение

- Исполнители

При нажатии пункта “Выход” появляется запрос

Рисунок В.4 - Запрос при нажатии пункта “Выход”

При нажатии пункта “Выход”(на главной форме) появляется запрос

Рисунок В.5 - Запрос при нажатии пункта “Выход””(на главной форме)

При нажатии пункта главного меню “ Отправить данные” откроется следующая форма

Рисунок В.6- пункт главного меню “ Отправить данные”

При нажатии пункта главного меню “ Принять данные” откроется следующая форма

Рисунок В.7- пункт главного меню “ Принять данные”

При нажатии пункта главного меню “ Удалить запись” появится запрос

Рисунок В.8- пункт главного меню “ Удалить запись”