Заключение

По имеющимся результатам создания ПП АИС «Платная поликлиника», основанной на реляционной базе данных, можно сделать следующие выводы:

- все требования по хранению информационных объектов и их реквизитов, описанных в разделе анализа предметной области, выполнены.

- все требования по управлению данными (добавление, редактирование, удаление, вычисление), описанные в разделе анализа и постановки задачи, выполнены.

.

Список литературы

1. Перминов О.Н. Программирование.-М.: Радио и связь, 2011.

2. Ананьев А.И., Федоров А. Ф. Самоучитель Делфи. – СПБ.: БХВ-Петербург, 2010.

3. Демидова Л. А., Пылькин А. Н. Программирование в среде Делфи: Практикум. – М.: Горячая линия – Телеком, 2004.

4. Голицына О. Л., Максимв Н. В., Попов И. И. Базы данных: учеб. Пособие. – 2-е изд., испр. И доп. – М.: ФОРУМ: ИНФРА-М, 2007.

5. Харитонова И. А., В. Д. Михеева. Microsoft Access 2007: разработка приложений. – СПБ.: БХВ – Санкт-Петербург, 2010.

6. Шафрин Ю. Информационные технологии, - М., ООО" Лаборатория базовых знаний”, 2009.

7. Малитиков А.С., Сольский Д.М. Руководство по делопроизводству. — М., 2010.

8. Компьютерные технологии обработки информации./Под ред. Назарова С.И. – М.: Финансы и статистика, 2011.

Список сокращений

АИС – Автоматизированная Информационная Система

БД – Базы данных

ИС – Информационная – Система

ООО – Общество с Ограниченной Ответственностью

ПО – Программное обеспечение

ПП – Программный Проукт

ПЭВМ – Программная Электронно-Вычислительная машина

СУБД – Система Удаленных Баз Данных

ЭВМ – Электронно-Вычислительная Машина

Приложение а. Инструкция пользователя

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

Для просмотра справочников выбираем вкладку справочники и выбираем нужный нам справочник.

Справочник клиентов отображает информацию о клиентах.

Справочник посещений отображает информацию о посещениях.

Справочник по врачам отображает информацию по врачу,его квалификацию и специализацию.

Журнал врачей позволяет добавлять и зименять записи врачей.

Журнал клиентов позволяет добавлять и изменять записи о клиентах.

Журнал посещений позволяет добавлять и изменять информацию о посещениях.

Для просмотра отчетов выберити нужный вам отчет в вкладке «отчеты» на главной форме.

Приложение б. Текст программы (листинг)

//гл форма

uses spravkaVrachiForm, vrachiADDForm,clientform,posForm, urnalklientForm, klietnOtchForm, jurnalposForm, raveVrachiForm,raveposform; {$R *.dfm} procedure TMain.N2Click(Sender: TObject); begin Application.CreateForm(TspravkaVrachi, spravkaVrachi); end; procedure TMain.N6Click(Sender: TObject); begin Application.CreateForm(TVrachiADD, VrachiADD); end; procedure TMain.N3Click(Sender: TObject); begin Application.CreateForm(TClient, Client); end; procedure TMain.N4Click(Sender: TObject); begin Application.CreateForm(Tpos, pos); end; procedure TMain.N7Click(Sender: TObject); begin Application.CreateForm(Tjurnalklient, jurnalklient); end; procedure TMain.N11Click(Sender: TObject); begin Application.CreateForm(TotchKlient, otchKlient); end; procedure TMain.N8Click(Sender: TObject); begin Application.CreateForm(Tjurnalpos, jurnalpos); end; procedure TMain.N10Click(Sender: TObject); begin Application.CreateForm(TraveVrachi, raveVrachi); end; procedure TMain.N12Click(Sender: TObject); begin Application.CreateForm(TravePos, ravePos); end; procedure TMain.N15Click(Sender: TObject); begin winexec ('winhlp32 help/help.hlp',0); end; procedure TMain.FormCreate(Sender: TObject); begin end; end.

//журнал врачей

implementation uses DataModule, VrachiAddMinForm; {$R *.dfm} procedure TVrachiADD.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; procedure TVrachiADD.BitBtn1Click(Sender: TObject); begin datamodule1.TBVrachi.Insert; Application.CreateForm(TVrachiAddMin, VrachiAddMin); end; procedure TVrachiADD.BitBtn2Click(Sender: TObject); begin Application.CreateForm(TVrachiAddMin, VrachiAddMin); vrachiaddmin.Caption:='Изминение данных'; end; procedure TVrachiADD.FormCreate(Sender: TObject); begin end;

//справочник врачей

implementation uses DataModule; {$R *.dfm} procedure TspravkaVrachi.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=cafree; end; procedure TspravkaVrachi.FormCreate(Sender: TObject); begin end; end.