基于VBA的脑卒中评分系统的设计与实现.docx

?

?

基于VBA的脑卒中评分系统的设计与实现

?

?

李小刚孟网兵缪垚梁峰宁吕崇文刘伟

摘要：信息技术的不断发展，极大地提高了医疗服务水平，同时也提高了医务人员的服务效率，减轻了负担。传统的脑卒中病人的随访评分记录以纸质形式进行存档，这种方式存储的数据不能被直接提取、统计和分析，会造成严重的资源浪费。一般的脑卒中评分系统，是针对神经内科医生的普遍需求，医生难以针对自身的需求对系统进行修改。考虑到很多医生大学有过VB学习经验，采用ExceIVBA技术，综合运用VBA的多种功能，以医生作为用户，设计并实现了脑卒中评分系统，并可对病人进行随访，界面简洁实用，同时便于医生对系统进行少量修改。

关键词：脑卒中;评分系统;ExceIVBA

：TP311

：A

：1009-3044（2019）34-0074-02

1背景

脑卒中（“cerebralstroke”）又称“中风”“脑血管意外”是一种常见的急性脑血管疾病。通过近期的大数据调查可以知道，其发病率高，发病年轻化，疾病变化快，致残率及病死率高。所以早期诊断、缩短早期干预的时间、在最佳时间窗内给予正确治疗是降低其病死率、致残率的关键。而在中国乃至全世界范围内，对于脑卒中一直缺乏有效的治疗手段，目前认为预防是最好的措施。

因此，对脑卒中病人进行随访，使用脑卒中评价量表对患者进行评分并将其记录下来，对于早期诊断、缩短早期干预的时间、在最佳时间窗内给予正确治疗十分关键。所以，我们设计开发了脑卒中评分系统，一方面方便医生对病人的神经缺损的程度进行评价，另一方面也可保存病人数据，用于科研。

2ExceIVBA编程技术简介

VBA，即VisualBasicforApplications，是基于VisualBasic的一种宏语言，是由微软开发出来的一种自动化的编程语言，Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA技术来提高办公效率。

VBA语言作VB家族成员，二者的结构较为相似，但是VBA需要一个应用程序作为主体才能运行，而VB则可以创建独立的应用程序。VBA技术中，除了可以利用窗体与Excel表的交互，对象的属性、方法、事件以及对象间的组合运用来完成相关任务，还可通过录制宏来自动生成代码，从而极大地提高办公效率。

简单地说，ExcelVBA是依附于Excel程序的一种自动化语言，有多种用途，不仅可用于处理大型运算、操作工作簿与工作簿、信息录入与存储，还可开发专业程序。本系统综合使用ExceIVBA的多种功能，用于开发脑卒中随访与评分系统。

3脑卒中评分系统设计与实现

脑卒中评分系统是基于ExcelVBA来设计与实现的。主要包括：登录界面、主页面、添加新患者界面、评分系统界面、记录查询界面、统计图表界面、excel表界面、链接网址界面以及各个用户窗体和模块的设计。

3.1登录界面的设计与实现

界面设计简洁实用，可供多名用户使用，用户的账号和密码保存在Excel表中。

新用户需要注册，注册成功后，返回登录界面，输入用户名和密码即可进入系统的主页面。关键代码如下：

Fori_2ToWorksheets（”密码”）.Cells（l，7）.Value+17将用户数放在密码表gI（Cells（l，7））单元格中，添加新用户就将数值加1

IfTextBoxI.Text=Worksheets（”密碼”）.Cells（i，1）Then

IfTextBox2.Text=Then

MsgBox”请输入密码”

TextBox2.SetFocus

flag=False

EndIf

Ifflag=TrueAndTextBox2.Text=Worksheets（“密码”）.Cells（i，2）Then

TextBoxl.Text=

TextBox2.Text=

登录界面.Hide

主页面.Show

ExitFor

EndIf

EndIf

Nexti

3.2主页面

主页面为功能选择界面，主要功能有修改密码、添加新患者、评分、记录查询、链接网址。添加新患者功能的设计采用窗体和Excel表交互的方式，窗体用于输入，Excel表用于保存数据。对于一名新的患者，需要通过基本信息、症状、并发症、体征、日常生活、用药、肢体功能恢复情况、转诊8个方面进行详细的建档。通过这个建档，可以清晰地看到病人的各种基本状况，并可将病人相关信息存入excel表。除此之外，还设置了格式化输入，用户只有再输入了全部的必填信息后才可保存相关数据。

关键代码如下：

Ifflag=TrueThen

OnErrorResumeNext

Worksheets（病人信息记录”）.Activate

选择窗口中的单元格

Range（”al