Повышение эффективности работы поликлиники за счет внедрения автоматизированной системы учета пациентов
Обзор медицинских информационных систем. Анализ и моделирование автоматизированной системы "Регистратура". Требования к составу и параметрам вычислительной системы. Обоснование выбора системы управления базами данных. Разработка инструкции пользователя.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | украинский |
| Дата добавления | 14.10.2012 |
| Размер файла | 1,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
RefreshDataAfterEdit1(EditOperatForm,DM.QOperat,ShowOperatTable);
finally
EditOperatForm.Free;
end;
3:try
EditSanatorForm:=TEditSanatorForm.Create(Self);
RefreshDataAfterEdit1(EditSanatorForm,DM.QSanator,ShowSanatorTable);
finally
EditSanatorForm.Free;
end;
4:try
EditNasledstForm:=TEditNasledstForm.Create(Self);
RefreshDataAfterEdit1(EditNasledstForm,DM.QNasledst,ShowNasledstTable);
finally
EditNasledstForm.Free;
end;
5:try
EditPrivivkaForm:=TEditPrivivkaForm.Create(Self);
RefreshDataAfterEdit1(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);
finally
EditPrivivkaForm.Free;
end;
6:try
EditPrivichkaForm:=TEditPrivichkaForm.Create(Self);
RefreshDataAfterEdit1(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);
finally
EditPrivichkaForm.Free;
end;
7:try
EditOsob_notesForm:=TEditOsob_notesForm.Create(Self);
RefreshDataAfterEdit1(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);
finally
EditOsob_notesForm.Free;
end;
end;{case}
end;
end ;{case}
end;
end;
procedure TPeopleForm.DBGrid1DblClick(Sender: TObject);
begin
if LastNode<>nil then
begin
case LastNode.Level of
0:begin
case LastNode.Index of
1:try
EditHistoryForm:=TEditHistoryForm.Create(Self);
RefreshDataAfterEdit(EditHistoryForm,DM.QHistory,ShowHistoryTable);
finally
EditHistoryForm.Free;
end;
3:try
EditLifeFunForm:=TEditLifeFunForm.Create(Self);
RefreshDataAfterEdit(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);
finally
EditLifeFunForm.Free;
end;
4:try
EditVesRostForm:=TEditVesRostForm.Create(Self);
RefreshDataAfterEdit(EditVesRostForm,DM.QVesRost,ShowVesRostTable);
finally
EditVesRostForm.Free;
end;
5:try
EditPeriodOsmForm:=TEditPeriodOsmForm.Create(Self);
RefreshDataAfterEdit(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);
finally
EditPeriodOsmForm.Free;
end;
6:try
EditZaklDiagForm:=TEditZaklDiagForm.Create(Self);
RefreshDataAfterEdit(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);
finally
EditZaklDiagForm.Free;
end;
7:try
EditNaprAnalizForm:=TEditNaprAnalizForm.Create(Self);
RefreshDataAfterEdit(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);
finally
EditNaprAnalizForm.Free;
end;
8:try
EditReceptForm:=TEditReceptForm.Create(Self);
RefreshDataAfterEdit(EditReceptForm,DM.QRecept,ShowReceptTable);
finally
EditReceptForm.Free;
end;
9:try
EditRengenForm:=TEditRengenForm.Create(Self);
RefreshDataAfterEdit(EditRengenForm,DM.QRengen,ShowRengenTable);
finally
EditRengenForm.Free;
end;
10:try
EditFlurkaForm:=TEditFlurkaForm.Create(Self);
RefreshDataAfterEdit(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);
finally
EditFlurkaForm.Free;
end;
11:try
EditOsvobWorkForm:=TEditOsvobWorkForm.Create(Self);
RefreshDataAfterEdit(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);
finally
EditOsvobWorkForm.Free;
end;
end;{case }
end;
1:begin
case TV.Selected.Parent.Index of
1:try
EditHistoryForm:=TEditHistoryForm.Create(Self);
RefreshDataAfterEdit(EditHistoryForm,DM.QHistory,ShowHistoryTable);
finally
EditHistoryForm.Free;
end;
case TV.Selected.Index of
0:try
EditZabolevanForm:=TEditZabolevanForm.Create(Self);
RefreshDataAfterEdit(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);
finally
EditZabolevanForm.Free;
end;
1:try
EditTravmiForm:=TEditTravmiForm.Create(Self);
RefreshDataAfterEdit(EditTravmiForm,DM.QTravmi,ShowTravmiTable);
finally
EditTravmiForm.Free;
end;
2:try
EditOperatForm:=TEditOperatForm.Create(Self);
RefreshDataAfterEdit(EditOperatForm,DM.QOperat,ShowOperatTable);
finally
EditOperatForm.Free;
end;
3:try
EditSanatorForm:=TEditSanatorForm.Create(Self);
RefreshDataAfterEdit(EditSanatorForm,DM.QSanator,ShowSanatorTable);
finally
EditSanatorForm.Free;
end;
4:try
EditNasledstForm:=TEditNasledstForm.Create(Self);
RefreshDataAfterEdit(EditNasledstForm,DM.QNasledst,ShowNasledstTable);
finally
EditNasledstForm.Free;
end;
5:try
EditPrivivkaForm:=TEditPrivivkaForm.Create(Self);
RefreshDataAfterEdit(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);
finally
EditPrivivkaForm.Free;
end;
6:try
EditPrivichkaForm:=TEditPrivichkaForm.Create(Self);
RefreshDataAfterEdit(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);
finally
EditPrivichkaForm.Free;
end;
7:try
EditOsob_notesForm:=TEditOsob_notesForm.Create(Self);
RefreshDataAfterEdit(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);
finally
EditOsob_notesForm.Free;
end;
end;{case}
end;
3:try
EditLifeFunForm:=TEditLifeFunForm.Create(Self);
RefreshDataAfterEdit(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);
finally
EditLifeFunForm.Free;
end;
4:try
EditVesRostForm:=TEditVesRostForm.Create(Self);
RefreshDataAfterEdit(EditVesRostForm,DM.QVesRost,ShowVesRostTable);
finally
EditVesRostForm.Free;
end;
5:try
EditPeriodOsmForm:=TEditPeriodOsmForm.Create(Self);
RefreshDataAfterEdit(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);
finally
EditPeriodOsmForm.Free;
end;
6:try
EditZaklDiagForm:=TEditZaklDiagForm.Create(Self);
RefreshDataAfterEdit(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);
finally
EditZaklDiagForm.Free;
end;
7:try
EditNaprAnalizForm:=TEditNaprAnalizForm.Create(Self);
RefreshDataAfterEdit(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);
finally
EditNaprAnalizForm.Free;
end;
8:try
EditReceptForm:=TEditReceptForm.Create(Self);
RefreshDataAfterEdit(EditReceptForm,DM.QRecept,ShowReceptTable);
finally
EditReceptForm.Free;
end;
9:try
EditRengenForm:=TEditRengenForm.Create(Self);
RefreshDataAfterEdit(EditRengenForm,DM.QRengen,ShowRengenTable);
finally
EditRengenForm.Free;
end;
10:try
EditFlurkaForm:=TEditFlurkaForm.Create(Self);
RefreshDataAfterEdit(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);
finally
EditFlurkaForm.Free;
end;
11:try
EditOsvobWorkForm:=TEditOsvobWorkForm.Create(Self);
RefreshDataAfterEdit(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);
finally
EditOsvobWorkForm.Free;
end;
end;{case}
end;
2:if TV.Selected.Parent.Parent.Index=2 then
begin
case TV.Selected.Parent.Index of
0:try
EditZabolevanForm:=TEditZabolevanForm.Create(Self);
RefreshDataAfterEdit(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);
finally
EditZabolevanForm.Free;
end;
1:try
EditTravmiForm:=TEditTravmiForm.Create(Self);
RefreshDataAfterEdit(EditTravmiForm,DM.QTravmi,ShowTravmiTable);
finally
EditTravmiForm.Free;
end;
2:try
EditOperatForm:=TEditOperatForm.Create(Self);
RefreshDataAfterEdit(EditOperatForm,DM.QOperat,ShowOperatTable);
finally
EditOperatForm.Free;
end;
3:try
EditSanatorForm:=TEditSanatorForm.Create(Self);
RefreshDataAfterEdit(EditSanatorForm,DM.QSanator,ShowSanatorTable);
finally
EditSanatorForm.Free;
end;
4:try
EditNasledstForm:=TEditNasledstForm.Create(Self);
RefreshDataAfterEdit(EditNasledstForm,DM.QNasledst,ShowNasledstTable);
finally
EditNasledstForm.Free;
end;
5:try
EditPrivivkaForm:=TEditPrivivkaForm.Create(Self);
RefreshDataAfterEdit(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);
finally
EditPrivivkaForm.Free;
end;
6:try
EditPrivichkaForm:=TEditPrivichkaForm.Create(Self);
RefreshDataAfterEdit(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);
finally
EditPrivichkaForm.Free;
end;
7:try
EditOsob_notesForm:=TEditOsob_notesForm.Create(Self);
RefreshDataAfterEdit(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);
finally
EditOsob_notesForm.Free;
end;
end;{case}
end;
end ;{case}
end;
end;
procedure TPeopleForm.ShowLifeFunTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QLifeFun do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='TEMPER';
Col.Width:=76;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='AD_S';
Col.Width:=140;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='AD_D';
Col.Width:=148;
Col.Title.Caption:=
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QLifeFun;
end;
end;
procedure TPeopleForm.ShowVesRostTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QVesRost do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='VES';
Col.Width:=87;
Col.Title.Caption
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='ROST';
Col.Width:=97;
Col.Title.Caption:=
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QVesRost;
end;
end;
procedure TPeopleForm.ShowHistoryTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QHistory do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='DNAME';
Col.Width:=241;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='FIO';
Col.Width:=200;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='NOTE';
Col.Width:=100;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QHistory;
end;
end;
procedure TPeopleForm.ShowNasledstTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QNasledst do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='RODST';
Col.Width:=200;
Col.Title.Caption
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='DNAME';
Col.Width:=334;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QNasledst;
end;
end;
procedure TPeopleForm.ShowOperatTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QOperat do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:=
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='EDATE';
Col.Width:=64;
Col.Title.Caption:='Конец';
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='NAME';
Col.Width:=276;
Col.Title.Caption
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='FIO';
Col.Width:=200;
Col.Title.Caption
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QOperat;
end;
end;
procedure TPeopleForm.ShowOsob_NotesTable(ID: Word);
var Col:TColumn;
begin
VisiblePanel(Panel6);
with DM.QOsob_Notes do
begin
if not Active then
begin
Close;
ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;
Open;
end;
DBGrid1.Columns.Clear;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='PDATE';
Col.Width:=64;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='NOTE';
Col.Width:=340;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
Col:=DBGrid1.Columns.Add;
Col.FieldName:='FIO';
Col.Width:=200;
Col.Title.Caption:
Col.Alignment:=taLeftJustify;
if ID<>0 then Locate('ID',ID,[]) else First;
DM.DataSource2.DataSet:=DM.QOsob_Notes;
end;
end;
1. Размещено на www.allbest.ru
Подобные документы
Автоматизированные информационные системы и их структура. Обзор существующих автоматизированных информационных систем "Расписание". Структурный подход к проектированию автоматизированной системы "Расписание", построение моделей данных и анализ внедрения.
дипломная работа [3,1 M], добавлен 29.06.2010Постановка задачи разработки автоматизированной системы управления в органах социальной защиты населения. Организация учета и распределения денежных средств. Логическая и физическая структуры базы данных. Методология работы с автоматизированной системой.
дипломная работа [1,9 M], добавлен 24.03.2010Требования к составу и параметрам технических средств, информационной и программной совместимости. Разработка функциональных моделей автоматизированной системы "Деятельность бетонно-растворного узла". Интерфейс Web-приложения, руководство пользователя.
курсовая работа [4,6 M], добавлен 04.10.2014Выбор инструментальной системы управления базами данных. Описание Торговой Информационной Системы, предназначенной для ведения учета на производственных предприятиях, в оптовых и розничных торговых компаниях. Руководство для пользователя программы.
дипломная работа [1,6 M], добавлен 07.12.2012Анализ создания информационной системы. Анализ существующих систем управления базами данных ремонтно-строительной фирмы. Требования к составу и параметрам технических средств. Структура программной системы. Описание входной и выходной информации.
курсовая работа [409,9 K], добавлен 29.04.2015Процесс создания автоматизированной системы управления. Требования, предъявляемые к техническому обеспечению вычислительной системы. Разработка общей концепции и алгоритмов работы вычислительной системы. Выбор аппаратных средств локальных сетей.
дипломная работа [7,6 M], добавлен 28.08.2014Обзор средств автоматизации торговли. Обзор состояния Интернет-торговли и роли в них аукционов. Описание процесса проектирования автоматизированной системы. Расчет экономической эффективности от внедрения программного продукта. Охрана труда работников.
дипломная работа [569,0 K], добавлен 09.09.2008Требования к программному изделию и параметрам технических средств. Описание пользовательского интерфейса для автоматизированной системы учёта товаров на оптовом складе. Обоснование выбора языков программирования, организации входных и выходных данных.
дипломная работа [3,4 M], добавлен 02.04.2013Этапы проектирования информационных систем. Корпоративные информационные системы, тенденции их развития. Требования к организации базы данных. Основные концепции реляционных баз данных. Выбор системы проектирования. Логическая структура приложения.
дипломная работа [2,2 M], добавлен 20.12.2012Обзор и обоснование выбора системы управления обучением. Структура автоматизированной обучающей системы. Описание процессов проектирование базы. Общие сведения о процессах полимеризации. Получение каучуков методом стереоспецифической полимеризации.
курсовая работа [2,9 M], добавлен 19.06.2015
