药检信息管理系统主要包括以下的子系统：基础信息维护子系统、药品检验管理子系统、食品检验管理子系统、医疗器械检验管理子系统、检品收费管理子系统、试剂试药管理子系统、仪器设备管理子系统、标准库管理子系统、综合查询管理子系统、内部事物管理子系统。为了实现系统功能，设计的系统工作流程图，如图1所示。
在图1中，系统运行时显示主功能窗体，使用者可以设置服务器信息进行相应的连接。操作用户点击登录按钮进行系统登录，在登录过程中，程序会自动连接数据库用户表，查询操作用户所输入的登录用户名和密码，如果验证通过，程序将记录此登录用户名、功能权限(此权限记录在数组中)，否则返回登录窗体，并提示操作用户登录错误信息。验证通过显示系统功能主页，此时在主页LOAD窗体过程中，程序分析登录用户所拥有的权限，并显示可使用的各项功能。为了保证在使用系统过程中的数据安全问题，每项功能操作后都需要相应权限的用户进行审批或审核才能进行下一步操作。例如：操作者添加了一项检验登记信息，此时这项检验登记还未生效，必需等待审批后才可调用此检验登记资料进行下一步操作。
本系统中所有功能都存在相对关系，需要操作下一项任务时，必需保证上一项操作已完成。在此给出药品检验管理主页面图，如图2所示。
药品检验管理主页面是药品检验管理的主窗口，里面提供了多个业务流程的入口，包括检品信息录入、检品登记、检品收费、检品发放、检品签收、检品分配、协检签收、协检分配、检品检验、复核检品、检品审核等。点击各模块按钮，进入相应的操作界面。由于篇幅有限，这里以检品登记模块为例来探讨系统的设计过程。
所谓检品，是指所有待检验的物品，包括药品、食品、医疗器械等。检品登记模块是检品信息采集的第一个流程，进入后系统自动生成9位登记编号，每增加一个检品，登记编号都会自动累加。在此窗口输入检品名称、检品种类、剂型、生产企业、销售单位、检品编号、包装、生产批号、检验类型、收费类别、检品单位、检品数量、留样数量、检验数量、有效期至、抽样单位、抽样人、送检单位、送检人、收检日期、检验时限、检验依据、收检人、检验目的、备注等信息。如没有相应信息也需填写必要文字如“无”或“/”，避免漏填，全部填写完毕，点击添加。也可在查询栏内选择已添加的检品信息进行修改操作，检品信息一旦录入，不能进行删除操作。在录入下一条检品信息时可选择已登记过的检品进行修改操作，生成另一条新的检品登记信息（登记编号不同），这样可以有效降低相同检品登记录入的工作量。基本信息录入完毕，为检品添加检验项目，选择相应的检验类及检验项目，点击添加。此模块对应功能为检品登记管理功能。检品登记界面如图3所示。
检品登记部分代码如下：
Private Sub flex1_Click()
Dim objRs As New Recordset
On Error GoTo Errorno
If flex1.Row = -1 Then Exit Sub
VSdel flex2: jpno = 0
If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from 检品登记 where 登记编号='" + flex1.TextMatrix(flex1.Row, 1) + "'", Sqlcn, adOpenKeyset, adLockOptimistic
If objRs.RecordCount > 0 Then
Text1.Text = objRs.Fields("登记编号").Value
Text2.Text = objRs.Fields("检品名称").Value
Combo12.Text = objRs.Fields("检品种类").Value
Combo10.Text = objRs.Fields("剂型").Value
Combo9.Text = objRs.Fields("生产企业").Value
Combo11.Text = objRs.Fields("销售单位").Value
Text14.Text = objRs.Fields("检品规格").Value
Text13.Text = objRs.Fields("生产批号").Value
Text12.Text = objRs.Fields("包装").Value
Combo7.Text = objRs.Fields("检验类型").Value
Combo8.Text = objRs.Fields("收费类别").Value
Combo1.Text = objRs.Fields("检品单位").Value
Text4.Text = objRs.Fields("检品数量").Value
Text5.Text = objRs.Fields("留样数量").Value
Text6.Text = objRs.Fields("检验数量").Value
DTPicker1.Value = objRs.Fields("有效期至").Value
Combo2.Text = objRs.Fields("抽验单位").Value
Combo3.Text = objRs.Fields("抽验人").Value
Combo4.Text = objRs.Fields("送检单位").Value
Combo5.Text = objRs.Fields("送检人").Value
DTPicker2.Value = objRs.Fields("收检日期").Value
Text7.Text = objRs.Fields("检验时限").Value
Text9.Text = objRs.Fields("检验依据").Value
Combo6.Text = objRs.Fields("收检人").Value
Text10.Text = objRs.Fields("检验目的").Value
Text11.Text = objRs.Fields("备注").Value
ReDim JPname(objRs.RecordCount - 1)
ReDim JPxmname(objRs.RecordCount - 1)
For i = 1 To objRs.RecordCount
If flex2.TextMatrix(1, 1) <> "" Then flex2.AddItem ""
flex2.TextMatrix(flex2.Rows - 1, 1) = objRs.Fields("检验类").Value
flex2.TextMatrix(flex2.Rows - 1, 2) = objRs.Fields("检验项目").Value
JPname(i - 1) = objRs.Fields("检验类").Value
JPxmname(i - 1) = objRs.Fields("检验项目").Value
objRs.MoveNext
Next
jpno = objRs.RecordCount - 1
End If
Toolbar1.Buttons("del").Enabled = True
Toolbar1.Buttons("xg").Enabled = True
Toolbar1.Buttons("add").Enabled = False
Text1.Enabled = False
Exit Sub
Errorno:
SQLerror
End Sub
其它模块设计思路及代码在此不多赘述。
在药检信息管理系统中，药品检验管理子系统是最复杂，工作量最大的子系统，它包含了其它子系统涉及的大部分功能，它的完成已经完全能够满足对整个药检信息管理系统试运行的需要，经过试运行，收到了满意的效果。
药品检验管理子系统实现了药品从收检到检验报告打印的全程控制，具体包括检品信息的登记、检品收费、检品发放、检品签收、检品分配（协检分配）、检品检验、结果审核（4层审核）、报告打印等功能。经过近一年的开发，基本完成了该子系统。
本系统具有易维护性、兼容性、高效性、安全性和友善性等特点，该系统的建成将对提高实验室的管理水平和工作效率，减少实验室开支，提高服务质量，为领导决策提供可靠数据等方面具有一定的现实意义。但在设计阶段也遇到一些问题，再次和大家共同探讨，寻找最佳接军方案。
1、药检所的信息化建设还处在发展、实践阶段，对于实践过程中遇到的一些新问题还需要进一步的讨论。
2、由于人力及时间的限制，本文截稿时药检信息管理系统只是实现了部分功能，在以后的工作中还要逐步实现全部功能，并在实现功能的基础上进一步挖掘新用途、新功能。
3、本系统的完成虽然能够对检验管理工作拥有很大促进作用，但是与世界发达国家实验室信息管理系统还有较大差距，主要体现在仪器设备与系统的连接，数据的采集等方面，也需要进一步的研究。
参考文献
[1]李东，管理信息系统的理论与应用，北京大学出版社，2001年3月
[2]赵斯思，Visual Basic数据库编程技术与实例，人民邮电出版社，2004年6月
[3] Carig，R.，Cortens，J..P，Beavis， R.C.Open Souree System for Analyzing，Validating，and StoringProteinIdentificationData.J.ProteomeRes.:(Artiele):2004，3(6)，1234-1242.
|
