Разработка информационной системы управления данными для медицинского центра СевКавГТУ, г. Ставрополь
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
трудника медицинского центра сократится со 110 до 20,5 часов, то есть в более чем пять раз.
Таким образом, приходим к заключительному выводу о том, что разработка информационной системы Medic является экономически обоснованной и эффективной.
К перспективным направлениям развития темы дипломного проекта можно отнести расширение функциональных возможностей разработанной информационной системы: страницы для составления и отображения расписания врачей, страницы, при помощи которых врач будет сам создавать новые отчеты и предавать им требуемые формы и как следствие из этого, использование HTML5.
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1.Аппак М.А. Автоматизированные рабочие места на основе персональных ЭВМ [Текст] / М.А. Аппак - М.:Радио и связь, 1989. - 400 с.
2.Буч Г. Язык UML для пользователя: Пер. с англ. [Текст]/ Г. Буч, Д. Рамбо, А. Джекобсон. - М.: ДМК, 2000. ? 432 с.
.Голицына О.Л. Основы алгоритмизации и программирования (2-е издание) И.И. Попов, О.Л. Голицына. - М.: Инфа-М, 2006. - 432 с.
.Дейтел Х.М. Как программировать на Perl [Текст]/ Х.М. Дейтел, П.Дж. Дейтел, Т.Р. Нието, Д.К. МакФай. - М: Бином, 2002. - 547 с.
.Декарт А. Программирование на Perl DBI [Текст]/ А. Декарт, Т. Банс. - Спб.: Символ-Плюс, 2000. - 700 с.
.Диго С.М. Проектирование и использования баз данных [Текст]/ С.М. Диго. - М.: Финансы и статистика, 1995. - 200 с.
.Карпова Т. Базы данных. Модели, разработка, реализация [Текст]/ Т. Карпова. - Спб.: Питер, 2001. - 304 с.
.Киммел, П. UML. Основы визуального анализа и проектирования [текст]/ П. Киммел. - М.: НТ Пресс, 2008. - 272 с.
.Киммел П. UML. Универсальный язык программирования [текст]/ П. Киммел. - СПб.: НТ Пресс, 2008. - 272 с.
.Когаловский М.Р. Технология баз данных на персональных ЭВМ [Текст]/ М.Р. Когаловский. - Киев: Радиоэлектроника, 2004. - 270 с.
.Колесов Ю.Б. Моделирование систем. Объектно-ориентированный подход [текст]/ Ю.Б. Колесов, Ю.Б. Сениченков. - СПб.: БХВ-Петербург, 2006. - 192 с.
12.Конноли Т. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. [Текст]/ Т. Конноли, К. Бегг - СПб.; М.: Киев: изд. дом Вильяме, 2001. - 1120 с.
.Крёнке Д. Теория и практика построения баз данных [Текст]/ Д. Крёнке - СПб.: Питер, 2003. - 800 с.
.Левитин А.В. Алгоритмы. Введение в разработку и анализ [Текст]/ А.В. Левитин. - М.: Вильямс, 2006 - 576 с.
.Маклнтош Дж. Perl & XML библиотека программиста [Текст]/ Дж. Маклнтош, Эрик Т. Рэй. - СПб.: Питер, 2003. - 207 с.
.Мартин Дж. Организация баз данных в вычислительных системах [Текст]/ Дж. Мартин. - М.: Мир, 1978. - 700 с.
.Мельтцер К. Разработка CGI-приложений на Perl [Текст]/ К. Мельтцер, Б. Михальски. - М.: Вильямс, 2001. - 574 с.
.Петров А.И. Информационные системы [Текст]/ А. И. Петров. - М.: Горячая линия-Телеком, 2000. - 300 с.
.Стаблибайн Т. Регулярные выражения. Карманный справочник [Текст]/ Т. Стаблибайн. - СПб.: Питер, 2004. - 160 с.
.Уолл Л. Программирование на Perl [Текст]/ Л. Уолл, Т. Кристиансен, Дж. Орвант. - СПб.: Символ, 2005. - 1150 с.
.Уорсли Дж. PodtgreSQL для профессионалов [Текст]/ Дж. Уорсли, Дж. Дрейк. - СПб.: Питер, 2003. - 496 с.
.Фридл Дж. Регулярные выражения [Текст]/ Дж. Фридл. - СПб.: Питер, 2003. - 723 с.
Приложение А
Окна редактора медицинских карт
Рисунок А.1 - Добавление карты
Рисунок А.2 - Не заполненные поля карты
Рисунок А.3 - Выбор медицинской карты для редактирования
Рисунок А.4 - Редактирование медицинской карты
Приложение Б
Листинг модулей информационной системы Medic
Б.1 Код модуля ConnectDB.pm
#!C:\www\Perl5.8.9\bin\perlmodules::ConnectDB;strict;warnings;modules::dbase;SelectFromDB{$h = $_[2] || '0';$dbMedic = modules::dbase->new();
$dbMedic->dbConnect();
#my $query = qq"SET client_encoding TO 'UTF8'";
#my $result = $dbMedic->execSelect(\$query);$query = qq"SET DATESTYLE TO 'GERMAN, DMY'";$result = $dbMedic->execSelect(\$query);
$query = qq"$_[1]";
$result = $dbMedic->execSelect(\$query);
#print qq"";
}
{if($h ne 0){$co = CGI->new();@qq = $co->Vars;$ses = $co->param('ses');$now = localtime time;
$query =~ s/\'/\\\'/g;($h eq 1){
#print "$ENV{'REMOTE_ADDR'}";
$dbMedic->execSelect(\qq[insert into transaction_history(request_date, query_data, data_param, sot_id) values('$now', E'$query', '@qq', (SELECT id_sot FROM sesion WHERE sesion = '$ENV{'ses'}'))]);
}($h eq 2){
#print "$ENV{'REMOTE_ADDR'}";
$dbMedic->execSelect(\qq[insert into history_connections(request_date, query_data, data_param, ip_adress) values('$now', E'$query', '@qq', '$ENV{REMOTE_ADDR}')]);
}($h eq 3){
#print "$ENV{'REMOTE_ADDR'}";
$dbMedic->execSelect(\qq[insert into history_session(request_date, query_data, data_param, ip_adress) values('$now', E'$query', '@qq', '$ENV{REMOTE_ADDR}')]);
}
}
}
$dbMedic->dbDisconnect();$result;
}
;
Б.2 Код модуля exel_card.pm
#!C:\www\Perl5.8.9\bin\perlmodules::exel_card;strict;warnings;Spreadsheet::WriteExcel;utf8;Encode;POSIX qw(strftime);modules::ConnectDB;NewExel{
###################################Получение данных из базы####################################$query = qq"SELECT a.id_card AS id_card,.surname_stud AS surname_stud,.name_stud AS name_stud,.middlename_stud AS middlename_stud,
(SELECT name_gr FROM group_fac WHERE id_gr = b.id_gr) AS name_grp,
(SELECT name_fac FROM faculty WHERE id_fac = (SELECT id_fac FROM group_fac WHERE id_gr = b.id_gr)) AS name_fac,.policy AS policy,.number_passport AS number_passport,.sex AS sex,.birthday AS birthday,.home_fone AS home_fone,.mob_fone AS mob_fone,
(SELECT region FROM region WHERE id_region = a.id_region) AS region,
(SELECT town FROM town WHERE id_town = a.id_town) AS town,
(SELECT area FROM area WHERE id_area = a.id_area) AS area,.streat AS streat,.house AS house,.case_ AS case_,.kv_num AS kv_num,.stav_streat AS stav_streat,.stav_house AS stav_house,.stav_case AS stav_case,.stav_kv_num AS stav_kv_numcard aJOIN students b ON a.id_stud = b.id_studa.id_card = '$_[1]'";$result = modules::ConnectDB->SelectFromDB($query);
###############################################################################################$file = "card_".time.".xls";$workbook = Spreadsheet::WriteExcel->new("../htdocs/Excel/$file");$worksheet = $workbook->add_worksheet("Лист 1");
$worksheet->hide_gridlines();
##########################################Форматы ячеек########################################$format = $workbook->add_format(font => 'Times New Roman',=> 10,=> 'center');$format1 = $workbook->add_format(font