药检信息计算机管理系统设计探讨和实现.docVIP

药检信息计算机管理系统设计探讨和实现 　　摘要:药检信息管理系统是应用于药品、食品及医疗器械等相关检验机构的信息管理系统,是计算机技术、网络技术和药检技术交叉结合而发展起来的;该系统基于Visul Basic+SQL Server技术。 　　关键词:信息管理系统药检计算机管理 　　中图分类号:TP3 文献标识码:A 文章编号:1672-3791(2011)02(b)-0011-02 　　药检信息管理系统主要包括以下的子系统:基础信息维护子系统、药品检验管理子系统、食品检验管理子系统、医疗器械检验管理子系统、检品收费管理子系统、试剂试药管理子系统、仪器设备管理子系统、标准库管理子系统、综合查询管理子系统、内部事物管理子系统。为了实现系统功能,设计的系统工作流程图,如图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