VB6.0结合Access2003制作交叉配血软件

李亚宁

甘肃省平凉市泾川县人民医院，甘肃平凉 744300

交叉配血是医院血库最重要的工作之一，以往使用传统的手工方法进行交叉配血申请单相关信息的登记、报告单填写、资料统计和信息查询，工作量大、报告单不够整洁规范、查询统计不便。笔者结合我院实际情况，用access2003作为数据库，以VB6.0作为开发平台，开发制作了交叉配血软件，解决了手工法存在的种种问题，现报道如下。

1 设计数据库

①打开Microsoft Access2003，新建一个名为“临床用血”的数据库[1]。

②根据实际需求，在“交叉配血”数据库中建立“操作员”、“患者信息”、“配血”等数据表。

2 设计程序

打开Visual Basic 6.0，新建一个名为“交叉配血”的新项目。

2.1 设计界面

在VB6.0“交叉配血”项目内根据软件功能需要设计“登陆”、“临床用血管理”、“临床用血交叉配合试验”、“存根打印时间设置”、“用血统计”、“操作员维护”、“更改密码”等7个界面[2]。

“登陆”界面用于进入本软件，界面设置了用户名选择下拉列表框和密码输入文本框，如用户名或密码输入不正确，则不能进入软件，避免非法登陆保证数据安全。

“临床用血管理”是软件的主界面，其上设置了6个图片框，用户单击其它图片进入相应的界面，实现相应功能，单击“退出”图片退出软件，如图1所示。

图1 “临床用血管理”界面图

“临床用血交叉配合试验”界面用于患者信息、血液制品信息、交叉配血试验结果的录入、编辑修改、查询、交叉配合报告单打印和交叉配合记录单打印。为了便于使用、减少录入差错、提高工作效率，考虑到交叉配血试验的工作实际情况，界面设计时充分利用VB6.0提供的下拉列表框、ABODC等控件的功能。如性别、血型、血液制品类型等有固定格式内容的信息可以通过鼠标、箭头键选择录入。大多数情况下患者所受血液制品ABO血型及RH（D）血型和患者相同，交叉配血试验结果为“无溶血无凝集”，因此，通过编写代码使本界面中患者ABO血型及RH（D）血型选择录入后血液制品相关内容自动输入，试验结果自动输入“无溶血无凝集”，如有不符可以修改。界面提供了每次试验最多6个血液制品的试验能力，满足大容量交叉配血试验要求。界面如图2所示。

图2 “临床用血交叉配合试验”界面图

“存根打印时间设置”界面用于选择打印SOP文件要求的临床输血记录的时间段，在界面上选择开始时间和结束时间后单击“确定”按钮即可打印所需时间段内临床输血记录，界面如图3所示。

“用血统计”界面用于统计血液制品用量、输血人次、血费等日常统计工作，如图4所示。

“操作员维护”界面用于添加、修改和删除操作员工作。

“更改密码” 界面用于维护操作员密码。

图3 “存根打印时间设置”界面图

图4 “用血统计”界面图

图5 “交叉配合报告”报表图

图6 “临床输血记录”报表图

2.2 数据绑定

以上界面在设计过程中，根据需要将VB6.0 ADODC控件数据源设置为access 2003“交叉配血”数据库相应的数据表，再设置界面上各控件的数据源，完成数据绑定。

2.3 设计报表

在VB6.0“交叉配血”项目内根据软件功能需要设计“交叉配合试验报告”、“临床输血记录”和“用血统计”3个报表，打印效果分别如图5，图6，图7所示。

2.4 调试打包

完成数据库、界面和报表设计工作后，反复进行调试修改直至符合软件设计要求，利用VB6.0“打包和发布向导”对软件打包。

3 总结

经过3年多时间使用，本软件在Windows XP、Windows 2000下运行情况良好，具有软件体积小、占用系统资源少、运行速度快、使用简便等特点，提高了工作效率和工作质量，符合临床血库工作信息化发展方向。交叉配血是血库工作的一部分，开发包括交叉配血功能在内的可管理整个血库工作的计算机软件是今后的发展方向。

[1] 求是科技编著.Visual Basic 6.0程序设计与开发技术大全[M].北京：人民邮电出版社，2004：122-224.

[2] [美]Cary N.Prague，著.赵传起，叶卓映，郭军，等译.中文版Access 2003宝典[M].北京：电子工业出版社，2004：39-74.