База данных поликлиники

Задание

Назначение и область применения разрабатываемой программы

Постановка задачи

Структурная схема фрагмента информационной системы

Таблица имён

Инструкция по работе с программой

Заключение

Литература

Приложение 1(листинг программного кода)

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

инициализацию;

добавление новых элементов;

удаление элементов;

перемещение по структуре данных;

поиск элементов структуры данных, отвечающих заданным критериям;

вывод всех элементов структуры данных на экран.

Вариант № 2 «Поликлиника»

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

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

Постановка задачи Для выполнения контрольной работы будет использоваться динамическая структура памяти — список. Такой выбор я сделал потому, что он обладает необходимой функциональностью в отличие, например, от очереди или стека.

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

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

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

Рис. Список.

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

Добавление Сортировка Поиск Удаление Структурная схема фрагмента информационной системы Таблица имён Во время работы над курсовой работой был создан объект — пациентов. В качестве узлов списка используются экземпляры структуры node.

TPPacient = ^TPacient; //указатель на тип Tpacient

TPacient = record

name:string[20]; //ФИО

date:string[4]; //год рождения

vr:string[20]; //врач

next:TPPacient; //следующий элемент списка

head: TPPacient; // голова списка

node: TPPacient; //новый узел списка

curr: TPPacient; //текущий узел списка

pre: TPPacient; //предыдущий (относительно curr) узел списка

new (node); //создание нового элемента списка

node^.name:= Edit1. Text; //ФИО

node^.date:= Edit2. Text; //Год рождения

node^.vr:= ListBox1. Items[listBox1.ItemIndex]; //врач

procedure Button1Click (Sender: TObject);//добавление пациента в список

procedure Button2Click (Sender: TObject);//вывод списка пациентов

procedure Button3Click (Sender: TObject);//удаление из списка Инструкция по работе с программой При запуске программы появляется форма (рис. 1)

Рис. 1

Для добавления нового пациента в список нужно ввести в поля «ФИО» и «Год рождения» данные пациента, а также выделить курсором мыши название, отделения в которое направляется больной. Когда данные введены нажать на кнопку «добавить». Список при добавлении пациентов автоматически сортируется по алфавиту.

Для просмотра введенного списка пациентов нужно нажать кнопку «вывести список». (рис. 2)

Рис.2

Для поиска и удаления пациента до нужно ввести его ФИО, год рождения и нажать на кнопку «удалить». Если пациент присутствует в списке появится сообщение (рис. 3)

Рис.3

И при нажатии на «ОК» появится сообщение (рис.4)

Рис.4

Если введенные данные не соответствуют ни одному пациенту, тогда появится сообщение (рис.5)

Рис.5

Проверить результат выполнения операции удаления можно снова нажав на кнопку «вывести список» (рис.6)

Рис.6

Заключение

Контрольная работа заключалась в написании базы данных поликлиники с использованием динамических структур данных. Для выполнения контрольной работы в качестве динамических структур использовались связные списки. Была изучена теория вопросу, затем, в среде визуального программирования Delphi, реализован класс для работы со списком и интерфейс программы.

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

база данный список информационный Литература Никита Культин «Delphi в задачах и примерах» БХВ-Петербург 2003

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

Вирт Н. «Алгоритмы и структуры данных» Пер. с англ. — М.: Мир, 1989.

Приложение 1(листинг программного кода)

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

ListBox1: TListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button3Click (Sender: TObject);

var

Form1: TForm1;

implementation

{$R *.dfm}

type

TPPacient = ^TPacient; //указатель на тип Tpacient

TPacient = record

name:string[20]; //ФИО

date:string[4]; //год рождения

vr:string[20]; //врач

next:TPPacient; //следующий элемент списка

end;

var

head: TPPacient; // голова списка

procedure TForm1. Button1Click (Sender: TObject);

var

node: TPPacient; //новый узел списка

curr: TPPacient; //текущий узел списка

pre: TPPacient; //предыдущий (относительно curr) узел списка

begin

new (node); //создание нового элемента списка

node^.name:= Edit1. Text; //ФИО

node^.date:= Edit2. Text; //Год рождения

node^.vr:= ListBox1. Items[listBox1.ItemIndex]; //врач

//добавление узла в список

//найдем подходящее место

curr:=head;

pre:=NIL;

while (curr <> NIL) and (node.name > curr^.name) do

begin

// введенное значение больше текущего

pre:= curr;

curr:=curr^.next; // к следующему узлу

end;

if pre = NIL

then

begin

// новый узел в начало списка

node^.next:=head;

head:=node;

end

else

begin

// новый узел после pre, перед curr

node^.next:=pre^.next;

pre^.next:=node;

end;

Edit1.text:='';

Edit2.text:='';

Edit1.SetFocus;

end;

procedure TForm1. Button2Click (Sender: TObject);

var

curr: TPPacient; // текущий элемент списка

n:integer; // длина (кол-во элементов) списка

st:string; // строковое представление списка

begin

n:=0;

st:='';

curr:=head;

while curr <> NIL

do

begin n:=n+1;

st:=st+curr^.name+' '+curr^.date+' '+curr^.vr+#13;

curr:=curr^.next;

end;

if n <> 0

then ShowMessage ('Список пациентов: '#13+st)

else ShowMessage ('В списке нет элементов.');

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

head:=NIL; // список пустой

end;

//удаление пациентов

procedure TForm1. Button3Click (Sender: TObject);

var

curr:TPPacient; // текущий, проверяемый узел

pre: TPPacient; // предыдущий узел

found:boolean; // TRUE — узел, который надо удалить, есть в списке

buttonSelected: Integer;

begin

if head = NIL then

begin

MessageDlg ('Список пустой!', mtError,[mbOk], 0);

Exit;

end;

curr:=head; // текущий узел — первый узел

pre:=NIL; // предыдущего узла нет

found:=FALSE;

// найти узел, который надо удалить

while (curr <> NIL) and (not found) do

begin

if (curr^.name = Edit1. Text) and (curr^.date = Edit2. Text)

then found:=TRUE // нужный узел найден

else // к следующему узлу

begin

pre:=curr;

curr:=curr^.next;

end;

end;

if found then

begin

// нужный узел найден

if MessageDlg ('Пациент будет удален из списка!',

mtWarning,[mbOk, mbCancel], 0) = mrOk

then {Exit}

begin

// удаляем узел

if pre = NIL

then head:=curr^.next // удаляем первый узел списка

else pre^.next:=curr.next;

Dispose (curr);

MessageDlg ('Узел' + #13 +

'ФИО:'+Edit1.Text + #13 +

Edit2.Text+' года рождения'+ #13 +

'удален из списка.',

mtInformation,[mbOk], 0);

end

else Exit;

end

else // узла, который надо удалить, в списке нет

MessageDlg ('Пациент' + #13 +

'ФИО:' + Edit1. Text + #13 +

Edit2.Text +' года рождения'+ #13 +

'в списке не найден.',

mtError,[mbOk], 0);

Edit1.Text:='';

Edit1.Text:='';

Edit1.SetFocus;

end;

end.