论文部分内容阅读
【摘要】 本文介绍了针对设备管理人员开发的单机MEIS系统，并对开发中的关键技术进行阐述，包括数据库设计介绍，ADO连接方式，网格控件显示及调用EXCEL模块输出，并对该系统的应用作了评价。软件开发环境为VISUAL BASIC和MS ACCESS。
【关键词】 MEIS；VISUAL BASIC；数据库；ACCESS
【中图号】 G250.74【文献标示码】 A 【文章编号】 1005-1074(2008)12-0151-01
医院信息化正在成为潮流。对医疗设备的管理也慢慢地从手工方式向计算机管理转变，很多MEIS(Medical Equipment Information System医疗设备信息系统)系统开始应用于医院设备科和各临床科室。我院是一家拥有700张床位，年门诊量120万人次的地区性妇女儿童专科医院，购买设备数量在逐年增加；设备科使用的网络版MEIS系统目前仅用于医用耗材的出入库，设备管理部分并未启用。为了方便工作，使用VISUAL BASIC和MS ACCESS开发了一套单机的MEIS系统，为设备采购和统计服务。
1 系统主要功能
记录采购产品名称，注册证号，购买日期，购买方式，经销商信息，售后服务信息，合同编号，付款信息，使用状态等；还具有自动生成购买编号，数据完整性检查，付款提醒，设备报损，报表输出打印，字段查询，多返回值输出等实用功能。
2 开发相关工具
ACCESS数据库是微软出品的强大数据库工具，能够建立关系型数据库，并支持可视化操作，在其中添加、查询、删除数据。同时VISUAL BASIC可视化编程工具能对ACCESS数据库进行操作，达到操作方便、功能定制、界面友好的效果。
3 系统结构及关键技术
软件界面采用MDI多文档界面，在这个界面中允许创建单容器窗体中包含多个子窗体的应用程序。在这个界面中主要包括以下六个模块：新增设备、报损设备、设备管理、厂商管理、查询输出、退出系统。
3.1 数据表设计 关系型数据库设计是数据库软件最为关键的步骤之一，需要进行需求分析、概念结构设计、逻辑结构设计等阶段，消除数据冗余，提高运行效率。本设计中主要包含三个数据表，分别是产品表、经销商表和购买表。
3.2 ADO连接数据库 ADO是微软提供的访问数据库功能的构建，能够通过ODBC、SQL Server等多种方法同数据库接口，可使用ODBC兼容数据源和OLE DB兼容的数据源，是便于使用的应用程序层接口。系统中所有的信息输入都使用ADO方式访问数据库。使用ADO对象连接数据库代码如下：
Public Function cn() As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=" & App.Path & "\sbgl.mdb" & "；Persist Security Info=False"
‘连接字符串
End Function
3.3 导出到数据表并打印 EXCEL具有非常强大的报表功能，输出至EXCEL文件不仅能满足打印报表的功能，更能作为阶段统计留存、科室数据交换使用。VB中提供了一个Microsoft Excel对象模型，它包括了128个不同的对象，从文本框等简单的对象到透视表、图表等复杂的对象。本例所涉及到其中的四个对象，分别是Application对象、Workbook对象、Worksheet对象、Cells对象。首先要创建EXCEL对象，定义相应的对象变量，接下来生成工作表内容及填充数据。这些过程的关键代码如下：
Dim xlsapp As Excel.Application——‘定义应用程序变量
Dim xlswb As Excel.Workbook——‘定义工作薄对象变量
Dim xlsws As Excel.Worksheet——‘定义工作表对象变量
Set xlsapp = CreateObject(“Excel.Application”)——‘创建一个应用程序
xlsapp.Visible=False
Set xlswb = xlsapp.Workbooks.Open(sample)——‘创建一个名为sample的工作薄
Set xlsws = xlswb.Worksheets(1)——‘创建一个工作表
xlsws.Cells(3，1)=“产品名称”——‘设置单元格数据为固定值
xlsws.Cells(3，2)=“注册证号”
xlsws.Cells(3，3)=“型号”
用Visual Basic导出的Excel报表又可以利用Excel软件的强大功能来进行格式设置、打印预览、打印和保存等，而不需要在系统开发过程中进行这些方面的代码编写，大大减少了编程工作量。
3.4 MSHFlexGrid网格控件的应用 该网格控件可以显示数据库中的数据，还可以对包含字符串和图片的表格进行分类、合并以及格式化等操作。但绑定到ADO控件上时，显示的只是只读数据。该网格控件的引入，可以直观的显示数据表和查询结果，方便使用者对数据进行选择和对比。单机版的MEIS系统基本达到了设备信息保存、查询、报表等功能，实现了设备信息的数字化，为设备的管理提供了有力工具。该系统的特色是符合采购人员习惯的强大查询功能，能够定制查询并直接输出至EXCEL文件。数据库可移植性强，方便备份和转移。更重要的是，设备科自主开发的管理软件可以按照实际需求和使用习惯灵活地增、删、变各种功能。该系统可以作为中小医院MEIS系统，也可以作为大医院大系统的补充。
4 参考文献
[1] 安 剑，孙秀梅.Visual Basic数据库系统开发[M].北京：人民邮电出版社，2008.
[2] 张焰林.Visual Basic制作Excel报表方法探究[J].计算机系统应用，2008，3.
【关键词】 MEIS；VISUAL BASIC；数据库；ACCESS
【中图号】 G250.74【文献标示码】 A 【文章编号】 1005-1074(2008)12-0151-01
医院信息化正在成为潮流。对医疗设备的管理也慢慢地从手工方式向计算机管理转变，很多MEIS(Medical Equipment Information System医疗设备信息系统)系统开始应用于医院设备科和各临床科室。我院是一家拥有700张床位，年门诊量120万人次的地区性妇女儿童专科医院，购买设备数量在逐年增加；设备科使用的网络版MEIS系统目前仅用于医用耗材的出入库，设备管理部分并未启用。为了方便工作，使用VISUAL BASIC和MS ACCESS开发了一套单机的MEIS系统，为设备采购和统计服务。
1 系统主要功能
记录采购产品名称，注册证号，购买日期，购买方式，经销商信息，售后服务信息，合同编号，付款信息，使用状态等；还具有自动生成购买编号，数据完整性检查，付款提醒，设备报损，报表输出打印，字段查询，多返回值输出等实用功能。
2 开发相关工具
ACCESS数据库是微软出品的强大数据库工具，能够建立关系型数据库，并支持可视化操作，在其中添加、查询、删除数据。同时VISUAL BASIC可视化编程工具能对ACCESS数据库进行操作，达到操作方便、功能定制、界面友好的效果。
3 系统结构及关键技术
软件界面采用MDI多文档界面，在这个界面中允许创建单容器窗体中包含多个子窗体的应用程序。在这个界面中主要包括以下六个模块：新增设备、报损设备、设备管理、厂商管理、查询输出、退出系统。
3.1 数据表设计 关系型数据库设计是数据库软件最为关键的步骤之一，需要进行需求分析、概念结构设计、逻辑结构设计等阶段，消除数据冗余，提高运行效率。本设计中主要包含三个数据表，分别是产品表、经销商表和购买表。
3.2 ADO连接数据库 ADO是微软提供的访问数据库功能的构建，能够通过ODBC、SQL Server等多种方法同数据库接口，可使用ODBC兼容数据源和OLE DB兼容的数据源，是便于使用的应用程序层接口。系统中所有的信息输入都使用ADO方式访问数据库。使用ADO对象连接数据库代码如下：
Public Function cn() As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=" & App.Path & "\sbgl.mdb" & "；Persist Security Info=False"
‘连接字符串
End Function
3.3 导出到数据表并打印 EXCEL具有非常强大的报表功能，输出至EXCEL文件不仅能满足打印报表的功能，更能作为阶段统计留存、科室数据交换使用。VB中提供了一个Microsoft Excel对象模型，它包括了128个不同的对象，从文本框等简单的对象到透视表、图表等复杂的对象。本例所涉及到其中的四个对象，分别是Application对象、Workbook对象、Worksheet对象、Cells对象。首先要创建EXCEL对象，定义相应的对象变量，接下来生成工作表内容及填充数据。这些过程的关键代码如下：
Dim xlsapp As Excel.Application——‘定义应用程序变量
Dim xlswb As Excel.Workbook——‘定义工作薄对象变量
Dim xlsws As Excel.Worksheet——‘定义工作表对象变量
Set xlsapp = CreateObject(“Excel.Application”)——‘创建一个应用程序
xlsapp.Visible=False
Set xlswb = xlsapp.Workbooks.Open(sample)——‘创建一个名为sample的工作薄
Set xlsws = xlswb.Worksheets(1)——‘创建一个工作表
xlsws.Cells(3，1)=“产品名称”——‘设置单元格数据为固定值
xlsws.Cells(3，2)=“注册证号”
xlsws.Cells(3，3)=“型号”
用Visual Basic导出的Excel报表又可以利用Excel软件的强大功能来进行格式设置、打印预览、打印和保存等，而不需要在系统开发过程中进行这些方面的代码编写，大大减少了编程工作量。
3.4 MSHFlexGrid网格控件的应用 该网格控件可以显示数据库中的数据，还可以对包含字符串和图片的表格进行分类、合并以及格式化等操作。但绑定到ADO控件上时，显示的只是只读数据。该网格控件的引入，可以直观的显示数据表和查询结果，方便使用者对数据进行选择和对比。单机版的MEIS系统基本达到了设备信息保存、查询、报表等功能，实现了设备信息的数字化，为设备的管理提供了有力工具。该系统的特色是符合采购人员习惯的强大查询功能，能够定制查询并直接输出至EXCEL文件。数据库可移植性强，方便备份和转移。更重要的是，设备科自主开发的管理软件可以按照实际需求和使用习惯灵活地增、删、变各种功能。该系统可以作为中小医院MEIS系统，也可以作为大医院大系统的补充。
4 参考文献
[1] 安 剑，孙秀梅.Visual Basic数据库系统开发[M].北京：人民邮电出版社，2008.
[2] 张焰林.Visual Basic制作Excel报表方法探究[J].计算机系统应用，2008，3.