基于Delphi的病历卡片信息检索系统的设计与实现

邹 向 坤

(河北北方学院附属第一医院，河北 张家口 075000)

基于Delphi的病历卡片信息检索系统的设计与实现

邹 向 坤

(河北北方学院附属第一医院，河北 张家口 075000)

医院；病案；电子化；Delphi；信息检索

河北北方学院附属第一医院2008年实施电子病历系统以来,病案首页实现了电子化归档管理。但系统运行前的历史病案首页信息仍用纸质病历卡片存储和保管,若想对某一病人的病历信息查询需要对大量纸制病历卡片进行人工查询和筛选，耗费人力且效率低下[1-3]。针对这种管理模式和病案室管理需求开发了基于Delphi的病历卡片信息检索系统,使病历卡片实现了电子化存储并且极大提高了信息查询工作效率。Delphi是由Borland公司推出的可视化编程环境,可较为快捷地实现程序开发。

1 软件功能需求

1.1 功能模块

根据病案室工作人员需求，该系统需要对病历卡片信息人工录入，然后在系统内可以通过住院号、姓名、住址等信息进行检索查询，并且可对病历总数进行统计。具体模块如图1。

图1 病历卡片信息检索系统功能模块图

1.2 软件环境

本系统开发使用Window XP操作系统，开发软件使用Delphi 7.0，数据库采用Access数据库。软件使用兼容Window 2000/Windows XP/Window 7操作系统，但须安装Access 2003或者Access 2007数据库软件。

2 数据表结构设计

表1 病历卡片信息表 card_detail

3 系统实现

3.1 Access数据库连接

在Delphi的工程主FORM中放入ADOConnection控件，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名。为了数据的准确和安全，我们为数据库设置了访问密码，直接访问数据库是不允许的。这时点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示。这时点“所有”页，然后双击“Jet OLEDB:Database Password”，出现对话框，添入密码后，选择“连接”页中的“测试连接”按钮，出现“测试连接成功”的对话框。把ADOConnection控件的LoginPromtp设为false。设置连接完成。

3.2 系统主要功能程序代码

系统中最重要的功能就是病历卡片信息录入采集功能，通过程序界面录入信息插入到Access数据库中的card_detail表，主要代码如下：

begin

{提交数据}

//判断姓名和住院号是否为空，并且要求住院号的长度为6才算正确

if(DBEdit2.Text<>'')and(DBEdit4.Text<>'')and(length(dbedit2.text)=6)then

begin

if messagebox(handle,'是否保存？','温馨提示',mb_iconquestion+mb_yesno)=IDyes

then ADOQuery1.Post; //符合提交条件，向数据库写入数据

end

else

if messagebox(handle,'住院号必须为6位数字，姓名不可为空，放弃输入？','温馨提示',mb_iconquestion+mb_yesno+MB_DEFBUTTON2)=IDyes

then ADOQuery1.Cancel

else

exit;

//下放部分为控制软件界面录入框和按钮的可用性控制语句

button5.Enabled:=false;button6.Enabled:=false;

Dbedit1.Enabled:=False;Dbedit2.Enabled:=False;

Dbedit3.Enabled:=False;Dbedit4.Enabled:=False;

Dbedit5.Enabled:=False;Dbedit6.Enabled:=False;

combobox1.enabled:=false;Dbedit7.Enabled:=False;

Dbedit8.Enabled:=False;Dbedit9.Enabled:=False;

Dbedit10.Enabled:=False;Dbedit11.Enabled:=False;

Dbedit12.Enabled:=False;DateTimePicker1.Enabled:=False;

DateTimePicker2.Enabled:=False;button1.Enabled:=true;

button2.Enabled:=true;button3.Enabled:=true;

dbgrid1.Enabled:=true;

end;

3.3 程序实现界面

通过数据库设计，Delphi程序编码，主要功能界面如图2，包括左侧查询区域，下方信息录入区及右上病历卡统计和备份还原数据库。为提高录入人员工作效率，我们设计了相关快捷键，包括新增、修改、提交数据及放弃录入。这样在大量录入数据时，操作人员可完全抛开鼠标操作，解放双手在键盘上专注操作，大大提高录入效率，缩短录入时间。通过程序内代码流程控制，实现了相关按钮及录入区域的禁用和启用，防止误操作造成信息错误及丢失。比如信息区、提交数据按钮及放弃录入按钮在非编辑状态显示为灰色，只有在新增或者修改状态时才可进行编辑使用。

4 结 语

随着电子病历在医院的逐渐普及，病案电子化是大势所趋。如何解决历史病案的电子化是重点和难题[4-5]，我们根据本院具体情况和病案室工作人员相关需求，自行编写设计了病历卡片信息检索系统，后期可随时进行维护和改进。目前此系统为单机系统，日后可改进升级为网络化系统，使病历卡片信息实现院内局域网共享，方便临床医生使用，为提高医疗水平服务。

[1]庄严,钱阳明,翁盛鑫.医院电子病历系统的设计[J].解放军医院管理杂志,2010,(10):974-976.

[2]王骏生,逢鲁红.我院电子病案应用中存在的问题及对策[J].中国医院统计,2010,(4):366-367.

[3]刘峰.基于XML的电子病历系统[D].哈尔滨：哈尔滨工程大学,2007.

[4]张宇星.病历档案的信息化管理途径研究[J].医学信息(中旬刊),2011,(5):2186-2187.

[5]张凌志.院档案信息化管理与电子病历概述[J].民营科技,2011,(6):54.

[责任编辑：李蓟龙]

邹向坤(1986-)，男,河北顺平人，硕士，助理工程师。

R-1

C

10.3969/j.issn.1673-1492.2015.04.034

来稿日期：2014-12-23