База данных поликлиники - Программирование, компьютеры и кибернетика курсовая работа
Разработка информационной системы с применением динамических структур данных. Назначение и область применения разрабатываемой программы по регистрации больных в поликлинике. Структурная схема фрагмента информационной системы, таблица имен и списков.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Назначение и область применения разрабатываемой программы
Структурная схема фрагмента информационной системы
Приложение 1(листинг программного кода)
Разработать информационную систему с применением динамических структур данных. Для решения поставленной задачи рекомендуется использовать динамические структуры (списки, деревья, очереди, стеки и т.п.) в том случае, если для решения поставленной задачи их использование окажется более целесообразным. Обеспечить возможность выполнения следующих операций над выбранными структурами данных:
поиск элементов структуры данных, отвечающих заданным критериям;
вывод всех элементов структуры данных на экран.
Назначение и область применения разрабатываемой программы
Область применения программы - регистрация больных в поликлинике. Данная программа предназначена для автоматизации ведения учета пациентов а поликлинике.
Основные возможности и характеристики программы
Программа позволяет создавать, упорядоченный по алфавиту, список пациентов, содержащий ФИО , год рождения и название отделения в которое направлен больной. Добавлять в него новые записи о пациентах, так же осуществлять просмотр всего имеющегося списка, и удалять записи о пациентах , осуществляя их поиск по заданным параметрам:ФИО и год рождения.
Для выполнения контрольной работы будет использоваться динамическая структура памяти - список. Такой выбор я сделал потому, что он обладает необходимой функциональностью в отличие, например, от очереди или стека.
Списком называется упорядоченное множество, состоящее из переменного числа элементов, к которым применимы операции включения, исключения. Список, отражающий отношения соседства между элементами, называется линейным. Если ограничения на длину списка не допускаются, то список представляется в памяти в виде связной структуры. Линейные связные списки являются простейшими динамическими структурами данных.
Графически связи в списках удобно изображать с помощью стрелок. Если компонента не связана ни с какой другой, то в поле указателя записывают значение, не указывающее ни на какой элемент. Такая ссылка обозначается специальным именем - nil.
На рисунке ниже приведена структура односвязного списка. На нем поле INF - информационное поле, данные, NEXT - указатель на следующий элемент списка. Каждый список должен иметь особый элемент, называемый указателем начала списка или головой списка, который обычно по формату отличен от остальных элементов. В поле указателя последнего элемента списка находится специальный признак nil, свидетельствующий о конце списка.
Итак, необходимо реализовать программно линейный связный список и обеспечить выполнение над ним следующих операций:
Структурная схема фрагмента информационной системы
Во время работы над курсовой работой был создан объект - пациентов. В качестве узлов списка используются экземпляры структуры node.
TPPacient = ^TPacient; //указатель на тип Tpacient
next:TPPacient; //следующий элемент списка
node: TPPacient; //новый узел списка
curr: TPPacient; //текущий узел списка
pre: TPPacient; //предыдущий( относительно curr) узел списка
new(node); //создание нового элемента списка
node^.date:= Edit2.Text; //Год рождения
node^.vr:= ListBox1.Items[listBox1.ItemIndex];//врач
procedure Button1Click(Sender: TObject);//добавление пациента в список
procedure Button2Click(Sender: TObject);//вывод списка пациентов
procedure Button3Click(Sender: TObject);//удаление из списка
При запуске программы появляется форма (рис. 1)
Для добавления нового пациента в список нужно ввести в поля «ФИО» и «Год рождения» данные пациента, а также выделить курсором мыши название, отделения в которое направляется больной. Когда данные введены нажать на кнопку «добавить». Список при добавлении пациентов автоматически сортируется по алфавиту.
Для просмотра введенного списка пациентов нужно нажать кнопку «вывести список» . (рис. 2)
Для поиска и удаления пациента до нужно ввести его ФИО, год рождения и нажать на кнопку «удалить». Если пациент присутствует в списке появится сообщение (рис. 3)
И при нажатии на «ОК» появится сообщение (рис.4)
Если введенные данные не соответствуют ни одному пациенту , тогда появится сообщение (рис.5)
Проверить результат выполнения операции удаления можно снова нажав на кнопку «вывести список» (рис.6)
Контрольная работа заключалась в написании базы данных поликлиники с использованием динамических структур данных. Для выполнения контрольной работы в качестве динамических структур использовались связные списки. Была изучена теория вопросу, затем, в среде визуального программирования Delphi, реализован класс для работы со списком и интерфейс программы.
Большинство современных языков программирования уже содержат встроенные средства для работы со списками , но тем не менее, полезно самому написать код для работы с ними, чтобы лучше понимать их внутреннее устройство для более эффективного использования.
Никита Культин «Delphi в задачах и примерах» БХВ-Петербург 2003
Джулиан М. Бакнелл «Фундаментальные алгоритмы и структуры данных в Delphi» DiaSoft Москва 2003
Вирт Н. «Алгоритмы и структуры данных» Пер. с англ. -- М.: Мир, 1989.
Приложение 1(листинг программного кода)
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
TPPacient = ^TPacient; //указатель на тип Tpacient
next:TPPacient; //следующий элемент списка
procedure TForm1.Button1Click(Sender: TObject);
node: TPPacient; //новый узел списка
curr: TPPacient; //текущий узел списка
pre: TPPacient; //предыдущий( относительно curr) узел списка
new(node); //создание нового элемента списка
node^.date:= Edit2.Text; //Год рождения
node^.vr:= ListBox1.Items[listBox1.ItemIndex];//врач
while (curr <> NIL) and (node.name > curr^.name) do
// введенное значение больше текущего
curr:=curr^.next; // к следующему узлу
// новый узел после pre, перед curr
procedure TForm1.Button2Click(Sender: TObject);
curr: TPPacient; // текущий элемент списка
n:integer; // длина (кол-во элементов) списка
st:string; // строковое представление списка
st:=st+curr^.name+' '+curr^.date+' '+curr^.vr+#13;
then ShowMessage('Список пациентов: '#13+st)
else ShowMessage('В списке нет элементов.');
procedure TForm1.FormCreate(Sender: TObject);
procedure TForm1.Button3Click(Sender: TObject);
curr:TPPacient; // текущий, проверяемый узел
found:boolean; // TRUE - узел, который надо удалить, есть в списке
MessageDlg('Список пустой!',mtError,[mbOk],0);
curr:=head; // текущий узел - первый узел
// найти узел, который надо удалить
while (curr <> NIL) and (not found) do
if (curr^.name = Edit1.Text) and (curr^.date = Edit2.Text)
then found:=TRUE // нужный узел найден
if MessageDlg('Пациент будет удален из списка!',
mtWarning,[mbOk,mbCancel],0) = mrOk
then head:=curr^.next // удаляем первый узел списка
else // узла, который надо удалить, в списке нет
Edit2.Text +' года рождения'+ #13 +
Анализ характеристик объекта компьютеризации. Разработка структур данных, алгоритмов и программного обеспечения системы управления базой данных. Особенности синтеза структур данных. Разработка алгоритмов системы и оценка результатов тестирования. курсовая работа [37,0 K], добавлен 07.12.2010
Создание информационной системы учета стран, поставляющих продукты в крупные фирмы. Схема данных и ее описание. Создание таблиц программы. Проектирование базы данных. Главная кнопочная форма. Рисунки структур запросов для отчетов в режиме конструктора. курсовая работа [2,9 M], добавлен 04.02.2013
Выбор инструментальной среды для разработки базы данных. Подсистема сбора, обработки и загрузки данных. Укрупненный алгоритм разрабатываемой информационной системы. Формирование области запросов базы, интерфейс ввода и редактирования входных данных. курсовая работа [2,2 M], добавлен 25.12.2012
Создание структуры базы данных. Таблица реквизитов входных данных информационной системы "Видеобиблиотека". Процессы, составляющие действие в базе данных. Формирование ведомостей с использованием MS Excel. Использование интегрированной среды Delphi. курсовая работа [455,8 K], добавлен 05.01.2013
Разработка информационной системы для предметной области с использованием заданных структур данных. Создание и проверка базы данных, которая позволяет вводить информацию, хранить её в файле, осуществлять поиск, модификацию, сортировку и удаление данных. курсовая работа [240,0 K], добавлен 29.03.2016
Разработка модуля регистрации абонентов для информационной системы предприятия "Библиотека". Структура базы данных. Взаимодействие клиентов с БД и клиентов друг с другом. Форма регистрации, сохранение данных. Основные сущности данного приложения. курсовая работа [991,4 K], добавлен 18.06.2015
Хранение и обработка данных. Компоненты системы баз данных. Физическая структура данных. Создание таблиц в MS Access. Загрузка данных, запросы к базе данных. Разработка информационной системы с применением системы управления базами данных MS Access. курсовая работа [694,0 K], добавлен 17.12.2016
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
База данных поликлиники курсовая работа. Программирование, компьютеры и кибернетика.
Изотерма Химической Реакции Реферат
Курсовая работа по теме Утомление и восстановление организма, роль физических упражнений в регулировании этих состояний
Какой У Мамы Смех Творческое Сочинение
Курсовая работа по теме Языковые манипуляции в рекламе с точки зрения потребительского восприятия
Тема Сочинения Что Мешает Человеку Быть Счастливым
Реферат: Роль рекламы в условиях монополистической конкуренции
Учебное пособие: Методические указания (глоссарий) с контрольными заданиями для студентов заочного факультета Утверждаю
Курсовая работа: Правовое регулирование времени отдыха 3
Сочинение По Творчеству Чехова
Курсовая работа по теме Группа как развивающаяся система, динамика становления, развития и функционирования
Реферат: Разработка технологии производства сгущенного молока с сахаром
Социальный Статус И Престиж Реферат
Реферат: Афанасий Никитин. Скачать бесплатно и без регистрации
Реферат по теме Составляющие здорового образа жизни
Однофазный Асинхронный Двигатель Реферат
Курсовая Работа Режим Рабочего Времени
Ответ на вопрос по теме Социально-культурный сервис и туризм (шпаргалка)
Дипломная Работа Украинский Народный Танец
Контрольная работа: Сума накопиченого боргу Актуарний метод розвязку задач
Курсовая работа по теме Применение языков программирования высокого уровня для реализации численных методов
Роды и причина их наступления. Клиническое наступление родов - Медицина презентация
Международная и национальная защита прав ребенка - Государство и право курсовая работа
Лікування candida-асоційованого стоматиту у жінок з урогенітальною патологією грибкового походження - Медицина автореферат