p align="left">Оператор является основной структурной единицей языка. Оператор задает полное описание некоторого действия, которое необходимо выполнить. Для описания сложного действия может потребоваться группа операторов. В этом случае операторы объединяются в составной оператор или блок. Из операций, развилок и слияний строятся базовые конструкции: следование, ветвление, цикл. Применяя только эти три конструкции, можно реализовать алгоритм решения любой задачи. Конструкция, представляющая собой последовательное выполнение двух или более операций, называется следованием. Конструкция, состоящая из развилки, двух операций и слияния, называется ветвлением. Одна из операций может отсутствовать. Конструкция, имеющая линии управления, ведущие к предыдущим операциям или развилкам, называется циклом. Конструкции следование, ветвление и цикл можно представить как операции, так как они имеют единственный вход и единственный выход. Произвольную последовательность операций можно представить как одну операцию. Код между последними операторами begin и end программы управляет логикой программы. В очень простой программе в этой секции кода может содержаться все, что вам нужно. В более крупных и сложных программах размещение в этой секции всего программного кода может затруднить чтение и понимание программы. К тому же ее будет труднее разрабатывать. Процедуры и функции позволяют разделить логику программы на более мелкие и управляемые фрагменты, и аналогичны подпрограммам в других языках. Как и в основном блоке программы, все действия в процедурах и функциях заключаются в begin и end. Каждый из этих сегментов кода выполняет конкретную задачу. Если вы обнаружите, что в вашей диаграмме одни и те же действия выполняются многократно, такую логику желательно выделить в процедуру или функцию. Вы можете один раз записать этот код в процедуре или функции, а затем многократно вызывать его в программе. Программа на языке ObjectPascal может использовать блоки кода в программных модулях. Модуль можно рассматривать как мини-программу, которую может использовать ваша прикладная программа. Как и программа, он имеет заголовок (который называется заголовком модуля) и основной блок, ограниченный begin и end. Модули являются основой модульного программирования. Они используются для создания библиотек, которые могут включаться в различные программы (при этом становится необязательным иметь в наличии исходный код), а большие программы могут подразделяться на логически связанные модули. 3.2 Входные - выходные данные Общение с базой данных осуществляется табличным диалогом в экранных формах. Входными данными являются: во-первых документы предоставляемые пациентами при регистрации в больнице, во-вторых, запросы врача или медсестры на поиск нужного пациента. Данные сведения вводятся при помощи аппаратных средств ввода - клавиатуры и мыши (рисунок 4.1). Выходными данными являются: во-первых, обновленные базы данных и информация на мониторе, отображающая результаты изменений; во-вторых, информация на мониторе по результатам запроса на поиск. Посредством монитора система информирует о своей работе и направляет дальнейшие действия пользователя. 17 Рисунок 4.1 - Работа экспертной системы в режиме консультации Разработка сценария диалога Процесс общения пользователя с программой должен быть простым и понятным, чтобы практически любого ранга пользователь мог моментально освоится без каких-либо дополнительных пояснений (рисунки 3.2, 3.3). |
Главное меню | | Поле для просмотра и выбора данных | Таблица редактирования данных | | |
|
Поле для просмотра данных | | | |
Рисунок 3.2 - Схема главного окна (медсестра). |
Кнопочная часть | | Поле ввода информации для поиска по фамилии | Поле ввода информации для поиска по дате | | Поле отображения найденной информации | | |
Рисунок 3.3- Схема окна поиска |
Таблица редактирования данных | | Таблица редактирования данных | | |
4. Программное обеспечение 4.1 Общесистемное программное обеспечение На сегодняшний момент операционная система Windows фирмы Microsoft во всех ее проявлениях, бесспорно, считается самой распространенной операционной системой на ПК: в мире более 150 млн. IBM PC-совместимых компьютеров, и система Windows установлена на 100 млн. из них. ОС Windows характеризуется тем, что предоставляет приложениям возможность создания пользовательского интерфейса на высоком уровне эргономичности и удобства. В то же время, для работы этой системы требуется от 16 до 128 Мб оперативной памяти в зависимости от версии ОС, что по современным техническим возможностям совсем не много. В качестве операционной системы выбрана ОС семейства Windows, а именно, Windows XP Professional. Этот выбор был сделан по ряду следующих причин. Во-первых, она является одной из наиболее распространенных на сегодняшний день. Во-вторых, в ОС Windows надежность компьютера повышается за счет применения новых мастеров, служебных программ и ресурсов, обеспечивающих бесперебойную работу системы. В-третьих, в состав Windows входит ряд программ, совместное применение которых повышает производительность компьютера. В-четвертых, на кафедре САПР установлена именно эта операционная система. 4.2 Базовое программное обеспечение В качестве базового ПО принята среда Delphi 7.0 языка программирования ObjectPascal. Пакет Delphi 7.0 установлен на кафедре САПР и стабильно работает под системой Windows XP Professional. Среди наиболее распространенных объектно-ориентированных сред программирования, Delphi 7.0 является на данный момент единственной средой быстрой разработки приложений (RAD), полностью поддерживающей все ведущие индустриальные стандарты: XML, SOAP, WSDL и XSL, а также появляющиеся платформы - Microsoft.NET и BizTalk, Sun Microsystems ONE, обеспечивая необходимую гибкость, надежность и масштабируемость. Основной упор в Delphi делается на максимальном реиспользовании кода. Это позволяет разработчикам строить приложения весьма быстро из заранее подготовленных объектов, а также дает им возможность создавать свои собственные объекты для среды Delphi. Никаких ограничений по типам объектов, которые могут создавать разработчики, не существует. Действительно, все в Delphi написано на нем же, поэтому разработчики имеют доступ к тем же объектам и инструментам, которые использовались для создания среды разработки. В результате нет никакой разницы между объектами, поставляемыми Borland или третьими фирмами, и объектами, которые вы можете создать. Библиотека визуальных компонент (объектов) включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Delphi использует структурный объектно-ориентированный язык (Object Pascal), который сочетает с одной стороны выразительную мощь и простоту программирования, а с другой стороны эффективность языка. Программисты немедленно могут начать производить работающие приложения, и им не придется для этого изучать особенности программирования событий в Windows. Delphi полностью поддерживает передовые программные концепции, включая инкапсуляцию, наследование, полиморфизм и управление событиями. Основные причины выбора языка ObjectPascal: - Простота языка позволяет быстро его освоить и создавать сложные программы; - Развитые средства представления структур данных обеспечивают удобство работы, как с числовой, так и с символьной и битовой информацией; - Объектно-ориентированное программирование (ООП) в визуальной среде. Одним из наибольших преимуществ ООП является возможность многократного использования программного кода за счет применения классов наследования, инкапсуляции и полиморфизма. Также, на выбор Delphi 6.0 в качестве базового программного обеспечения, повлияли такие обстоятельства как, достаточное количество необходимой литературы по программированию в этой среде, распространенность этой среды и имеющийся достаточный опыт работы в ней. Для оформления документации дипломного проекта и пояснительной записки был использован текстовый редактор Microsoft Word, который является наиболее популярным и предназначен для подготовки простых и сложных текстовых документов, верстки газетных страниц, макетирования художественных книг с иллюстрациями и научных книг с формулами и таблицами, создания векторной графики, схем и диаграмм. 4.3 Прикладное программное обеспечениеДля работы данной программой необходимо создать проект, который будет обеспечивать интерфейс пользователя (рисунок 3.1).Рисунок 3.1 - Структура прикладного ПО Таблица 3. Основные файлы программы |
Файлы | Назначение | | Unit2.pas | исходный файл с модулем для формы «Unit2» | | UnitFilter.pas | исходный файл с модулем для формы «UnitFilter» | | UnitGlavVrach.pas | исходный файл с модулем для формы «UnitGlavVrach» | | UnitMedSestra.pas | исходный файл с модулем для формы «UnitMedSestra» | | UnitPassword.pas | исходный файл с модулем для формы «UnitPassword» | | ProjectHospital.dpr | исходный файл проекта | | ProjectHospital.exe | автономный исполнимый файл, запускающий приложение | | |
Модуль «Unit2» проекта «Больница» служит приветствием проекта. Модуль «UnitMedSestra» обеспечивает основную работу программы, «UnitFiter» обеспечивает поиск информации, «UnitGlavVrach» обеспечивает работу программы для врача и «UnitPassword» обеспечивает защиту информации. |
Наименование процедуры (функции) | Краткое описание | | Модуль «Unit2» | | procedure TForm2.FormPaint | Закрашивание формы при запуске программы | | Модуль «UnitMedSestra» | | Procedure N1Click | Вызов формы с паролем | | procedure mnFindClick | Вызов формы для поиска пациента | | procedure tbPalataBeforeDelete | Каскадное удаление палаты при отсутствие в ней пациентов | | procedure tbOtdelBeforeDelete | Каскадное удаление отделения, если все палаты пустые | | procedure tbPalataAfterPost | После создания палаты создаем список пациентов в ней путем копирования из списка отделения | | procedure tbPacientAfterPost | После добавления пациента в палату она на одного занимается | | procedure tbOtdelAfterScroll | После выбора отделения обновляется поле списка для выбора палаты | | procedure tbPalataBeforeDelete | Невозможно удалить палату при наличие в ней пациентов | | procedure tbOtdelBeforeDelete | Невозможно удалить отделение пока все палаты не пустые | | procedure tbPacientBeforeInsert | Блокируется добавление записи при вызове из сетки | | procedure FormCanResize | | | procedure FormClose | | | procedure FormShow | | | Модуль «UnitFilter» | | procedure btnFilterClick | Поиск пациента по дате | | procedure btnFamilClick | Поиск пациента по фамилии | | procedure FormShow | | | procedure FormCanResize | | | Модуль «UnitPassword» | | procedure FormShow | | | procedure Timer1Timer | Появление формы с паролем | | |
Страницы: 1, 2, 3
|