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

1. Распоряжение Правительства РФ от 29.12.2014 N 2769-р "Об утверждении Концепции региональной информатизации"

2. Приказ Министерства здравоохранения от 13.02.2016 №36ан "Об утверждении порядка проведения диспансеризации определенных групп взрослого населения".

3. "ИТ в здравоохранении: от первых идей к современному состоянию" [Электронный ресурс] /Компьютерный еженедельник (http://www.pcweek.ru/idea/article/detail. php? ID=171454)

4. Устинова Г.М. Информационные системы менеджмента/ Учебное пособие. - СПб: Изд-во "ДиаСофт ЮП", 2000.

5. "Классификация информационных медицинский систем" [Электронный ресурс] /Информационный архив (http://studopedia.org/3-112172.html)

6. "Требования к МИС, передаваемым в фонд алгоритмов и программ Министерства здравоохранения и социального развития Российской Федерации, применяемым в Государственной информационной системе персонифицированного учета в здравоохранении Российской Федерации"№SBR1009140314-02-2.20.

7. ГОСТ 34.601-90 "Автоматизированные системы. Стадии создания"/ Государственный стандарт союза СССР, 1992

8. ФЕДЕРАЛЬНЫЙ ЗАКОН РОССИЙСКОЙ ФЕДЕРАЦИИ от 20 февраля 1995 г. N 24-ФЗ "Об информации, информатизации и защите информации" с изменениями от 10 января 2003 г.

Приложения

Приложение 1

Рисунок 1. Карта с пропорциональным изображением распространения лидирующих на рынке МИС по регионам РФ.

Рисунок 2. ER-модель базы данных.

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

Рисунок 4. Окно работы с данными пациентов

Рисунок 5. Окно оформления пациента

Диаграмма 1. Мед. работник. Авторизация

Диаграмма 2. Врач-терапевт. Первичный прием пациента

Диаграмма 3. Врач-терапевт. Вторичный прием.

Диаграмма 4. Мед. работник. Прием пациента.

Диаграмма 5. Занесение данных в БД;

Диаграмма 6. Запрос в БД.

Диаграмма 7. Запрос к пациенту.

Приложение 2

Таблица 1. Описание типов полей БД

Приложение 3

Листинг программного модуля ИС для медицинского учреждения.

Модуль "ДИСПАНСЕРИЗАЦИЯ"

1) DataModule;

unit Unit3;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM1 = class (TDataModule)

ZConnection1: TADOConnection;

QueryUsers: TADOQuery;

QueryMedPersonal: TADOQuery;

QueryPacienty: TADOQuery;

QueryMarsh_Karta: TADOQuery;

QueryVozrastMedmer: TADOQuery;

QueryDiagnozy: TADOQuery;

ZQuery7: TADOQuery;

ZQuery8: TADOQuery;

QueryDiagnozyGraphik: TADOQuery;

DataUsers: TDataSource;

DataMedPersonal: TDataSource;

DataPacienty: TDataSource;

DataMarsh_Karta: TDataSource;

DataVozrastMedmer: TDataSource;

DataDiagnozy: TDataSource;

DataSource7: TDataSource;

DataSource8: TDataSource;

DataDiagnozyGraphik: TDataSource;

QueryBolnica: TADOQuery;

DataBolnica: TDataSource;

QueryOtchet: TADOQuery;

DataOtchet: TDataSource;

QueryPacientyid_pz: TAutoIncField;

QueryPacientyDSDesigner: TWideStringField;

QueryPacientyDSDesigner2: TWideStringField;

QueryPacientyDSDesigner3: TWideStringField;

QueryPacientyDSDesigner4: TWideStringField;

QueryPacientyDSDesigner5: TDateField;

QueryPacientyDSDesigner6: TWideStringField;

QueryPacientyDSDesigner7: TWideStringField;

QueryPacientyDSDesigner8: TWideStringField;

QueryPacientyDSDesigner9: TWideStringField;

QueryPacientyDSDesigner10: TWideStringField;

QueryPacientyDSDesigner11: TWideStringField;

QueryPacientyDSDesigner12: TWideStringField;

QueryPacientyDSDesigner13: TWideStringField;

QueryPacientyDSDesigner14: TWideStringField;

QueryPacientyDSDesigner15: TWideStringField;

QueryPacientyDSDesigner16: TWideStringField;

QueryPacientyDSDesigner17: TDateField;

QueryPacientyDSDesigner18: TIntegerField;

procedure DataModuleCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM1: TDM1;

implementation

{$R *. dfm}

end.

2) Главная форма терапевта;

unit Unit1;

interface

uses

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

Dialogs, Menus, ExtCtrls, Grids, DBGrids, Unit7, TeeProcs, TeEngine,

Chart, DbChart, StdCtrls, DateUtils, DBCtrls, Series, Mask;

type

TForm1 = class (TForm)

DBGrid2: TDBGrid;

MainMenu1: TMainMenu;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

OpenDialog1: TOpenDialog;

Panel5: TPanel;

RadioGroup2: TRadioGroup;

GroupBox1: TGroupBox;

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

Panel1: TPanel;

Panel3: TPanel;

RadioGroup1: TRadioGroup;

Panel2: TPanel;

Panel4: TPanel;

GroupBox2: TGroupBox;

Edit1: TEdit;

Button2: TButton;

procedure N4Click (Sender: TObject);

procedure DBGrid2Enter (Sender: TObject);

procedure DBGrid2CellClick (Column: TColumn);

procedure DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

{ procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject); }

procedure N6Click (Sender: TObject);

{ procedure FormCreate (Sender: TObject); }

procedure DBGrid1DblClick (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

NowYear, s,ClWhere: string;

fontstyle: integer;

implementation

uses

ComObj, Unit3, Unit4, Unit5, Unit6, Unit8;

{$R *. dfm}

// Функция записывает новый текст для закладки с именем aBmName.

// Функция возвращает значение True, если закладка найдена и её текст изменён

// и False - если закладка не найдена.

// Переустановка текста закладки выплоняется так:

// - Получаем ссылку на объект-диапазон, который содержит текст закладки.

// - Удаляем закладку.

// - Устанавливаем новый текст для объекта-диапазона.

// - Создаём новую закладку с диапазоном, который содержит новый текст.

function SetBmText (var aBms: Variant; const aBmName, aText: String): Boolean;

var

Bm, Rng: Variant;

begin

// Проверяем - существует ли закладка с заданным именем.

Result: = aBms. Exists (aBmName);

// Если закладка не найдена - выходим.

if not Result then Exit;

// Ссылка на закладку.

Bm: = aBms. Item (aBmName);

// Ссылка на диапазон, связанный с закладкой.

Rng: = Bm. Range;

// Удаление закладки.

Bm. Delete;

// Заменяем текст в диапазоне.

Rng. Text: = aText;

// Добавляем новую закладку с таким же именем.

// aBms. Add (aBmName, Rng);

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Application. Terminate;

end;

procedure TForm1. DBGrid2Enter (Sender: TObject);

begin

{DM1. QueryDiagnozy. Close;

DM1. QueryDiagnozy. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+clWhere);

DM1. QueryDiagnozy. Open; }

end;

procedure TForm1. DBGrid2CellClick (Column: TColumn);

var

years, i,d,n, KolvoStrokDiag: integer;

Clwhere2,x,ClwhereOcenka,ClWherePZ, NowYear: string;

x1,x2,x3,x4,x5,proverka: real;

mas: array [1.27] of integer;

begin

Form8. Series1. Clear;

proverka: =0;

x5: =0;

// Label3. Caption: =DBText2. Caption+' '+DBText3. Caption+' '+DBText4. Caption;

DM1. QueryVozrastMedmer. Close;

// Label2. Font. Color: =clRed;

// Label4. Visible: =true;

Clwhere: =DBGrid2. DataSource. DataSet. Fields [0]. AsString;

DM1. QueryDiagnozy. Close;

DM1. QueryDiagnozy. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+clWhere);

DM1. QueryDiagnozy. Open;

Clwhere: =DBGrid2. DataSource. DataSet. Fields [0]. AsString;

DM1. QueryDiagnozy. Close;

DM1. QueryDiagnozy. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+clWhere);

DM1. QueryDiagnozy. Open;

end;

procedure TForm1. DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

DiagnozDate: TDateTime;

DiagnozYear: string;

i,KolvoStrok,proverka: integer;

DateY,DateM,DateD,DateHour,DateMin,DateSec: Word;

Clwhere2: string;

begin

Clwhere: =DBGrid2. DataSource. DataSet. Fields [0]. AsString;

Clwhere2: =Form8. DBGrid1. DataSource. DataSet. Fields [1]. AsString;

DM1. ZQuery7. Close;

DM1. ZQuery7. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+clWhere+' and diagnozy. МедМероприятие='+#39+ClWhere2+#39);

DM1. ZQuery7. Open;

NowYear: = FormatDateTime ('yyyy', Now);

KolvoStrok: =Form5. DBGrid1. DataSource. DataSet. RecordCount;

if KolvoStrok=0 then exit

else

for i: =1 to KolvoStrok do

begin

proverka: =0;

DecodeDate (StrToDate (Form5. DBGrid1. DataSource. DataSet. FieldByName ('Дата'). AsString),DateY, DateM, DateD);

// DiagnozDate: =StrToDate (Form5. DBGrid1. DataSource. DataSet. Fields [3]. AsString);

// DecodeDate (DiagnozDate, DateY, DateM, DateD);

DiagnozYear: =IntToStr (DateY);

IF DiagnozYear=NowYear{ условие }

Then Begin

Form8. DBGrid1. Canvas. Brush. Color: =clGreen;

Form8. DBGrid1. Canvas. Font. Color: =clWhite;

Form8. DBGrid1. Canvas. FillRect (Rect);

proverka: =1;

end

else

begin

Form8. DBGrid1. Canvas. Brush. Color: =clTeal;

Form8. DBGrid1. Canvas. Font. Color: =clWhite;

Form8. DBGrid1. Canvas. FillRect (Rect);

End;

// если строка была выделена, оставляем "подсвеченные" цвета

{IF gdSelected IN State

Then Begin

TDBGrid (Sender). Canvas. Brush. Color: = clHighLight;

TDBGrid (Sender). Canvas. Font. Color: = clHighLightText;

DBGrid1. Canvas. FillRect (Rect);

End; }

TDBGrid (Sender). DefaultDrawColumnCell (Rect,DataCol,Column,State);

if proverka=1 then break else

Form5. DBGrid1. DataSource. DataSet. Next;

end;

end;

{

procedure TForm1. N1Click (Sender: TObject);

begin

dbgrid3. Visible: =false;

dbgrid1. visible: =true;

panel2. Visible: =false;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

dbgrid1. Visible: =false;

dbgrid3. visible: =true;

panel2. Visible: =false;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

panel2. Visible: =true;

end;

}

procedure TForm1. N6Click (Sender: TObject); // ОТЧЕТ

var

wdApp, wdDocs, wdDoc, wdBms: Variant;

Od: TOpenDialog;

begin

Od: = OpenDialog1;

if Od. InitialDir = '' then

Od. InitialDir: = ExtractFilePath (Application. ExeName)

;

Od. Title: = 'Выберите шаблон, на основе которого будет создан новый документ';

if not Od. Execute then Exit;

if not FileExists (Od. FileName) then begin

MessageDlg (

'Файл с заданным именем не найден. Действие отменено. '

,mtWarning, [mbOK], 0

);

Exit;

end;

try

wdApp: = CreateOleObject ('Word. Application');

except

ShowMessage ('Не удалось запустить MS Word. Действие отменено. ');

Exit;

end;

// Делаем видимым окно MS Word.

wdApp. Visible: = True;

// Ссылка на коллекцию документов.

wdDocs: = wdApp. Documents;

// Попытка открыть выбранный файл.

wdDoc: = wdDocs. Open (FileName: =Od. FileName);

// Подключаемся к коллекции закладок.

wdBms: = wdDoc. Bookmarks;

// Ищем закладки с нужными именами и изменяем их текст, в соответствие

// с данными, введёнными на форме.

try

SetBmText (wdBms, 'id_pz', DM1. QueryPacienty. FieldByName ('id_pz'). AsString);

SetBmText (wdBms, 'data_ofrml',DM1. QueryPacienty. FieldByName ('Дата оформления'). AsString);

SetBmText (wdBms, 'n_bol',DM1. QueryBolnica. FieldByName ('Наименование'). AsString);

SetBmText (wdBms, 'adr_bol',DM1. QueryBolnica. FieldByName ('Адрес'). AsString);

SetBmText (wdBms, 'kod_bol',DM1. QueryBolnica. FieldByName ('Код ОГРН'). AsString);

SetBmText (wdBms, 'FIO', DM1. QueryPacienty. FieldByName ('Фамилия'). AsString + ' ' + DM1. QueryPacienty. FieldByName ('Имя'). AsString + ' ' + DM1. QueryPacienty. FieldByName ('Отчество'). AsString);

SetBmText (wdBms, 'Data_rozhd', DM1. QueryPacienty. FieldByName ('Дата рождения'). AsString);

SetBmText (wdBms, 'pol', DM1. QueryPacienty. FieldByName ('Пол'). AsString);

SetBmText (wdBms, 'pasport', DM1. QueryPacienty. FieldByName ('Паспорт'). AsString);

SetBmText (wdBms, 'adres_pac', DM1. QueryPacienty. FieldByName ('Адрес'). AsString);

SetBmText (wdBms, 'telephon', DM1. QueryPacienty. FieldByName ('Телефон'). AsString);

SetBmText (wdBms, 'nomer_polis', DM1. QueryPacienty. FieldByName ('Полис ОМС'). AsString);

{QueryOtchet}

// Дописать поле DataTime в запросе

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Заключение врача терапевта' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'terapevt', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Антропометрия' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'antropometria', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Измерение АД' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'izmerenie_ad', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Уровень общего холестерина в крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'holesterin', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Определение уровня глюкозы в крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'glukoza', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Определение суммарного сердечно-сосудистого риска' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'serdechny_risk', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'ЭКГ (мужчины) ' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'ekg', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр фельдшера' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'osm_feldsher', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Флюорография легких' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'flurogramma', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Маммография' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'mammographia', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Клинический анализ крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'klin_analiz_krovi', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Клинический анализ крови развернутый' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'klin_analiz_krovi_razv', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Анализ крови биохимический общетерапевтический' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'bio_analiz_krovi', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Общий анализ мочи' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'mocha', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Исследование кала на скрытую кровь' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'kal', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Определение уровня ПСА в крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'psa', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'УЗИ органов брюшной полости' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'uzi', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Измерение внутриглазного давление' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'glaz_davl', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Дуплексное сканирование брахиоцефальных артерий' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'dsb_art', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'ЭФГДС' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'efgds', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр врача хирурга' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'osm_vrach_hirurg', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр врача хирурга-проктолога' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'osm_vrach_hirurg_proct', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Колоноскопия (ректороманоскопия) ' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'kolonoskopia', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Определение липидного спектра крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'spectr_krovi', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр врача акушера-гинеколога' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'akusher', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Определение концентрации гликированного Hb в крови' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'konc_hb_krovi', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр врача офтальмолога' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'oftalmolog', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

DM1. QueryOtchet. SQL. Text: = 'Select * from diagnozy where id_pz = '+ #39 + ClWhere + #39 + ' and ' + 'МедМероприятие = ' + #39 + 'Осмотр врача невролога' + #39;

DM1. QueryOtchet. Open;

SetBmText (wdBms, 'nevrolog', DM1. QueryOtchet. FieldByName ('Диагноз'). AsString);

finally

// Сохранять документ следует под другим именем, чтобы не перезаписать шаблон.

// wdApp. DisplayAlerts: = False; // Отключаем режим показа предупреждений.

// wdDoc. SaveAs (FileName: =.);

// wdApp. DisplayAlerts: = True; // Включаем режим показа предупреждений.

// Закрываем документ.

// wdDoc. Close;

// Закрываем MS Word.

// wdApp. Quit;

end;

end; {

procedure TForm1. FormCreate (Sender: TObject);

begin

Panel2. Visible: =false;

DBGrid3. Visible: =false;

end; }

procedure TForm1. DBGrid1DblClick (Sender: TObject);

var

Clwhere2: string;

begin

Clwhere: =DM1. QueryPacienty. FieldByName ('id_pz'). AsString;

Clwhere2: =DM1. QueryVozrastMedmer. FieldByName ('МедМероприятие'). AsString;

DM1. ZQuery8. Close;

DM1. ZQuery8. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+clWhere+' and diagnozy. МедМероприятие='+#39+ClWhere2+#39);

DM1. ZQuery8. Open;

Form5. Show;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Form8. RadioGroup1. ItemIndex: =-1;

Form8. RadioGroup1. ItemIndex: =0;

Form8. ShowModal;

end;

end.

3) Главная форма мед. работника;

unit Unit5;

interface

uses

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

Dialogs, Menus, ExtCtrls, Grids, DBGrids, TeeProcs, TeEngine,

Chart, DbChart, StdCtrls, DateUtils, DBCtrls, Series, Mask, jpeg;

type

TForm2 = class (TForm)

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

procedure DBGrid2DblClick (Sender: TObject);

procedure N1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses

Unit1, Unit3, Unit4, Unit6, Unit7;

{$R *. dfm}

procedure TForm2. DBGrid2DblClick (Sender: TObject);

var

Clwhere2, id_pz: string;

begin

id_pz: =DM1. QueryPacienty. FieldByName ('id_pz'). AsString;

Clwhere2: =DM1. QueryVozrastMedmer. FieldByName ('МедМероприятие'). AsString;

DM1. ZQuery8. Close;

DM1. ZQuery8. SQL. Text: = ('SELECT DISTINCT * FROM diagnozy WHERE diagnozy. id_pz='+id_pz+' and diagnozy. МедМероприятие='+#39+ClWhere2+#39); DM1. ZQuery8. Open;

Form5. Show;

end;

procedure TForm2. N1Click (Sender: TObject);

begin

application. terminate;

end;

end.

4) Форма редактирования диагноза;

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Mask, Menus;

type

TForm3 = class (TForm)

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

dbedtid_pz: TDBEdit;

DBMemo1: TDBMemo;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Label5: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses

Unit1, Unit3, Unit4, Unit5, Unit7;

{$R *. dfm}

procedure TForm3. Button1Click (Sender: TObject);

begin

if dm1. QueryDiagnozy. Modified then

dm1. QueryDiagnozy. Post;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

Form3. Close;

end;

end.

5) Форма список диагнозов;

unit Unit7;

interface

uses

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

Dialogs, Menus, Grids, DBGrids;

type

TForm5 = class (TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

DBGrid2: TDBGrid;

procedure N1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses

Unit1, Unit3, Unit4, Unit5, Unit6;

{$R *. dfm}

procedure TForm5. N1Click (Sender: TObject);

begin

DM1. QueryDiagnozy. Close;

DM1. QueryDiagnozy. Open;

DM1. QueryDiagnozy. Append;

DM1. QueryDiagnozy. FieldByName ('Дата'). AsString: =DateToStr (Date);

DM1. QueryDiagnozy. FieldByName ('МедМероприятие'). AsString: =DM1. QueryVozrastMedmer. FieldByName ('МедМероприятие'). AsString;

DM1. QueryDiagnozy. FieldByName ('id_pz'). AsString: =DM1. QueryPacienty. FieldByName ('id_pz'). AsString;

Form3. Edit1. Text: =DM1. QueryPacienty. FieldByName ('Фамилия'). AsString+' '+DM1. QueryPacienty. FieldByName ('Имя'). AsString+' '+DM1. QueryPacienty. FieldByName ('Отчество'). AsString;

DM1. QueryDiagnozy. Post;

form3. show;

end;

procedure TForm5. FormShow (Sender: TObject);

begin

if dostup <> 1 then

N1. Visible: =False;

end;

end.

6) Форма пациента;

unit Unit8;

interface

uses

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

Dialogs, Menus, ExtCtrls, Grids, DBGrids, Unit7, TeeProcs, TeEngine,

Chart, DbChart, StdCtrls, DateUtils, DBCtrls, Series, Mask, ComCtrls;

type

TForm8 = class (TForm)

Panel2: TPanel;

DBChart1: TDBChart;

Series1: TPieSeries;

Label10: TLabel;