Информационно-поисковая система поликлиники

Информационно-поисковая система поликлиники

Многие поколения ученых пыталось упростить работу людей. И для этого было затрачено много ресурсов, знаний и времени. И спустя многие столетия было создано универсальное устройство. Этим устройством является компьютер или, проще говоря, ПК, что означает персональный компьютер. При создании этого устройства были учтены многие факторы, для того чтобы жизнь человека стала проще. Поэтому возможности ПК не ограниченны никакими рамками. Ранее первые версии компьютеров были настолько громоздкими, что они занимали целые этажи, и кроме этого на них могли работать только специализированные люди. Лишь спустя больше 50 лет, компьютер стали называть ПК, так как он смог умещаться на простом маленьком столе и простым в управлении, что теперь им может управлять даже ребенок. У ПК есть множество функций, но их основной возможностью является хранение информации и ведение электронной базы данных.

Как раз на это и направлена наша курсовая работа. Перед нами была поставлена задача создания информационно-поисковой системы для детской поликлиники. Для того чтобы создать такую систему нам проще всего создать особое приложение сочетающее в себе простоту управления и многофункциональность. Она должна быть настолько простой, чтобы любой пользователь быстро смог разобраться в ней. В ней должны быть такие возможности как добавление новых записей, а если была допущена ошибка, то должна быть возможность их отредактировать. Так же необходима такая функция как удаление лишних записей, ведь если пациент, который приписан к этой поликлинике, переедет, то он более не будет принадлежать этой поликлинике. Для этого существуют, так называемы программы для создания этих самых программ. А для того чтобы работать на таких программах необходимо знать языки программирования. А их невероятно много и все они разнообразны и сложны в освоении. Если всё-таки необходима такая система, то следует обратиться в специализированные компании, которые этим и занимаются. Они способны создать такое приложения, с функциями которые вам необходимы. При наличии таких систем упрощается работа многих учреждений и предприятий. В таких системах присутствуют функции поиска информации или же фильтрация. Благодаря наличию таких систем пропадает нужда в необходимости бумажных носителей информации. Бумага, как многие знают, это один из недолговечных материалов в мире. Даже простое намокание бумаги, с какой-либо информацией может быть утеряна. Бумага, так же занимает много места и кроме этого, если случится пожар, то данные, которые есть на бумаге могут пропасть и их нельзя будет восстановить, и даже если можно будет, на это уйдет много времени. А если хранить данные в электронном виде, то их можно будет и восстановить, и так же их можно хранить на специальном сервере.

1. Анализ и обоснование тематики курсовой работы

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

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

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

программный приложение поисковый информационный

1.2 Выбор и обоснование языка и среды разработки

Delphi — это продукт Borland International для быстрого создания приложений. Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal.

Delphi производит небольшие по размерам (до 15−30 Кбайт) высокоэффективные исполняемые модули. С другой стороны небольшие по размерам и быстро исполняемые модули означают, что требования к клиентским рабочим местам существенно снижаются — это имеет немаловажное значение и для конечных пользователей.

Преимущества Delphi по сравнению с аналогичными программными продуктами.

— быстрота разработки приложения;

— высокая производительность разработанного приложения;

— низкие требования разработанного приложения к ресурсам компьютера;

— наращиваемость за счет встраивания новых компонентов и инструментов в среду Delphi;

— возможность разработки новых компонентов и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

— удачная проработка иерархии объектов.

Система программирования Delphi рассчитана на программирование различных приложений и предоставляет большое количество компонентов для этого. Для разработки базы данных мной использована среда программирования BorlandDelphi7.

Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal. В Delphi также входят локальный SQL-сервер, генераторы отчетов, библиотеки визуальных компонентов, и прочее, необходимое для того, чтобы чувствовать себя совершенно уверенным при профессиональной разработке информационных систем или просто программ для Windows-среды.

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

1.3 Разработка алгоритма реализации задачи или информационной модели предметной области

Перед тем как составлять информационную модель необходимо найти сущности и атрибуты. Раз у нас информационно-поисковая система для поликлиники, то здесь 3 сущности. Первая сущность — это пациенты. Вторая сущность это список врачей. 3 сущность это таблица посещаемости пациентов.

2. Проектирование структуры и описание компонентов программного продукта

2.1 Разработка интерфейса пользователя

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

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

AdoConnection - компонент, обеспечивающий связь с базой данных созданной в СУБД MSAcсess.

1) LoginPrompt — позволяет выбрать, нужно ли вводить пароль при установке связи с БД.

2) ConnectionString — обеспечивает соединение с базой данных.

3) Connected — позволяет активировать и деактивировать соединение.

ADOTable-является аналогом компонента Table и предназначен для доступа к таблице с помощью технологии ADO.

1) Connection-связываеткомпонентыADO TableиADO Connection.

2) Tablename-служит для выбора таблицы созданной в различных СУБД.

3) Active-включает и выключает работу таблицы.

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

1) DataSourсe — позволяет выбрать источник данных, т. е. нужную таблицу.

2) DataField — позволяет выбрать поле таблицы для связи с ним.

QuickReport-Используется для выведения на печать отчеты.

1) Bands-свойство в котором, выбираются нужные поля, которые будут отображать необходимые данные.

— HasTitle-Заглавная строка.

— HasColumnHeader-показывает поля, которые есть в таблице.

— HasDetail-отображает записи, сделанные в таблице.

2) DataSet-указывает на компонент набора данных, с которыми связан источник.

QRDBText-Представляет собой ориентированный на данные компонент для размещения текста в отчете.

1) Data Source — источникданныхтипа T Data Source.

2) Data Field — имя поля, с которым связан компонент.

Button-это стандартная кнопка Delphi7. Которая служит для создания внешних кнопок на форме, которые выполняют различные функции.

1) Caption — задает визуальное название кнопки, которое отображается поверх самой кнопки.

DBGrid-этот компонент предназначен для отображения данных в виде таблицы.

1) Data Sourceисточникданныхтипа T Data Source.

QRLabel-Используется для размещения текста в отчете.

1) Caption-меняет визуально имя компонента.

Label-этот компонентспособен отображать текст на форме.

1) Caption-надпись отображаемого текста.

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

1) Dataset — служит для соединения компонентов, отображающих данные, с такими компонентами как AdoTable и Table.

Edit-компонент служащий для ввода текстовой и числовой информации.

QRLabel-Используется для размещения текста в отчете.

1) Caption-меняет визуально имя компонента.

2.3 Разработка и описание программного приложения

Приложение было разработано в среде программированияDelphi7. И выглядит оно следующим образом.

Следующая форма это наши таблицы:

Это форма для добавления и редактирования записей:

А в этой части осуществляется поиск и фильтрация данных.

А это сортировка:

3. Разработка инструкций пользователя

Следующие строки адресованы будущим пользователям этого приложения. Так выглядит приложение сразу после запуска:

Следующая форма это наши таблицы:

Вот таким образом можно добавить новые данные:

Сортировка осуществляется с помощью кнопки на форме.

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

Приложение А

Листинг текста программного приложения

Unit1

procedure TForm1. N2Click (Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

close;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form5.showmodal;

end;

implementation

Unit2

procedure TForm2. Button1Click (Sender: TObject);

begin

Form3.DBEdit1. Text:='';

Form3.DBEdit2. Text:='';

Form3.DBEdit3. Text:='';

Form3.DBEdit4. Text:='';

Form3.DBEdit5. Text:='';

Form3.DBEdit6. Text:='';

form2.ADOTable1. Insert;

Form3. ShowModal;

end;

procedure TForm2. Button10Click (Sender: TObject);

begin

Form4.DBEdit1. Text:='';

Form4.DBEdit2. Text:='';

Form4.DBEdit3. Text:='';

Form4.DBEdit5. Text:='';

form2.ADOTable2. Insert;

Form4. ShowModal;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Form3. ShowModal;

end;

procedure TForm2. Button9Click (Sender: TObject);

begin

Form4. ShowModal;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin

form2.ADOTable1.delete;

end;

procedure TForm2. Button8Click (Sender: TObject);

begin

form2.ADOTable2.delete;

end;

procedure TForm2. Button4Click (Sender: TObject);

begin

form2.ADOTable1. IndexFieldNames:=' [Код врача]'

end;

procedure TForm2. Button7Click (Sender: TObject);

begin

form2.ADOTable2. IndexFieldNames:=' [Код пациента]'

end;

procedure TForm2. Edit1Change (Sender: TObject);

begin

if Length (Edit1. Text)>0 then

form2.ADOTable1. Filtered:=true

else

form2.ADOTable1. Filtered:=False;

form2.ADOTable1. Filter:='[Пол]='''+Edit1. Text+'''';

end;

procedure TForm2. Edit3Change (Sender: TObject);

begin

if Length (Edit3. Text)>0 then

form2.ADOTable1. Filtered:=true

else

form2.ADOTable1. Filtered:=False;

form2.ADOTable1. Filter:='[Специальность]='''+Edit3. Text+'''';

end;

procedure TForm2. Edit2Change (Sender: TObject);

begin

if Length (Edit2. Text)>0 then

form2.ADOTable2. Filtered:=true

else

form2.ADOTable2. Filtered:=False;

form2.ADOTable2. Filter:='[Ф.И.О.]='''+Edit2. Text+'''';

end;

procedure TForm2. Edit4Change (Sender: TObject);

begin

if Length (Edit4. Text)>0 then

form2.ADOTable2. Filtered:=true

else

form2.ADOTable2. Filtered:=False;

form2.ADOTable2. Filter:='[Пол]='''+Edit4. Text+'''';

end;

procedure TForm2. Button6Click (Sender: TObject);

begin

QuickReport8. Previewmodal;

end;

Unit3

procedure TForm3. Button1Click (Sender: TObject);

begin

if form2. ADOTable1. Modified then

form2.ADOTable1. Post;

close;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

close;

end;

Unit4

procedure TForm4. Button1Click (Sender: TObject);

begin

if form2. ADOTable2. Modified then

form2.ADOTable2. Post;

close;

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

close;

end;

Unit5

procedure TForm5. Edit1Change (Sender: TObject);

begin

if Length (Edit1. Text)>0 then

Form5.ADOTable1. Filtered:=true

else

Form5.ADOTable1. Filtered:=False;

Form5.ADOTable1. Filter:=' [Дата приема]='''+Edit1. Text+'''';

end;

procedure TForm5. Edit2Change (Sender: TObject);

begin

if Length (Edit2. Text)>0 then

Form5.ADOTable1. Filtered:=true

else

Form5.ADOTable1. Filtered:=False;

Form5.ADOTable1. Filter:=' [Ф.И.О. врача]='''+Edit2. Text+'''';

end;

procedure TForm5. Button10Click (Sender: TObject);

begin

Form6.DBEdit1. Text:='';

Form6.DBEdit2. Text:='';

Form6.DBEdit3. Text:='';

Form6.DBEdit4. Text:='';

Form6.DBEdit5. Text:='';

Form5.ADOTable1. Insert;

Form6. ShowModal;

end;

procedure TForm5. Button9Click (Sender: TObject);

begin

Form6. ShowModal;

end;

procedure TForm5. Button8Click (Sender: TObject);

begin

Form5.ADOTable1. Delete;

end;

procedure TForm5. Button7Click (Sender: TObject);

begin

Form5.ADOTable1. IndexFieldNames:=' [Рег номер]'

end;

procedure TForm5. Button6Click (Sender: TObject);

begin

QuickReport9. Previewmodal;

end;

Unit6

procedure TForm6. Button1Click (Sender: TObject);

begin

if form5. ADOTable1. Modified then

form5.ADOTable1. Post;

close;

end;

procedure TForm6. Button2Click (Sender: TObject);

begin

close;

end;

Приложение Б

Образцы выходных форм программного приложения