电子病历与医疗质量控制系统.doc

摘要

随着信息技术的发展及医院运行机制的转变,医院信息系统已成为现代化医院必不可少的重要基础设施与支撑环境,现代计算机技术、信息技术和医学技术的融合给生命科学带来了新的发展契机和巨大推动力.
医院信息系统是计算机技术、通信技术和管理科学在医院管理中的应用,是计算机技术对医院管理、临床医学、医院信息管理相互结合的产物,它极大地推动了医院管理和医学科学技术的发展.它是集病人信息管理,包括住院管理系统,病人资料管理系统,医院办公管理系统以及药品管理系统为一体的统合性管理系统,在复杂的医院管理程序中,任何一环都有可能出错,有些时候甚至是关乎生命挽救的成功与失败,信息系统的高效率可以及时的为医院管理人员提供各种信息,为决策者提供了可靠的依据,医院应用信息系统，其效益的提高是综合性的,医院的管理者和决策者,应充分看到信息系统在其中的作用,从而来减少管理成本,并提高整体的工作效率.

关键词：医院信息系统,医院信息管理,工作效率,VB.NET

ABSTRACT

With the development of information technology and the operational mechanism of change in the hospital,the hospital information system has become essential to modern hospital facilities and an important foundation for supporting environment,modern computer technology,information technology and medical technology to the integration of the life sciences has brought new Development opportunities and tremendous impetus.
     Hospital information system is computer technology,communications technology and scientific management in hospital management in the application of computer technology on hospital management, clinical medicine, hospital information management integration of the product, it has greatly promoted the hospital management and the development of medical science and technology . It is set patient information management, including hospital management systems, patient information management systems, hospitals and office management systems for drug management system integrates the integration of management systems, the hospital management in complex procedures, any one could go wrong, Sometimes even to save lives is related to the successes and failures, the high efficiency of information systems can be timely for the hospital management to provide information for policy makers to provide a reliable basis, the hospital information system applications, its effectiveness is the improvement of comprehensive , Hospital managers and policy makers, information systems should be fully seen in the role, to reduce management costs and improve overall efficiency.

Keywords: Hospital Information System, Hospital information management, Work efficiency, VB.NET

目录

摘要 I
ABSTRACT II
第1章 引言 1
1.1 背景 1
1.2研究的基本内容与拟解决的主要问题 1
第2章 系统开发所需环境 3
2.1医院管理系统的数据库管理系统 3
2.2 Microsoft Visual Studio 2008的开发环境 4
2.3系统开发语言介绍-------VB.NET 5
第3章 医院管理系统设计与分析 6
3.1医院管理系统概述 6
3.2系统项目规划 7
3.3系统功能结构图 7
第4章 数据库分析与设计 8
4.1 需求分析 8
4.2概念结构设计 9
4.3 数据库逻辑结构设计 9
第5章 主要功能模块的详细设计 14
5.1 系统登陆界面的实现 14
5.2 管理员界面的实现 16
5.2.1管理员登陆界面的实现 16
5.2.2管理员管理界面 16
5.2.3医生账号查询 17
5.2.4医生账号添加 18
5.2.5医生账号修改 21
5.2.6医生账号信息删除 24
5.3 医生管理界面的实现 25
5.3.1病人信息查询 27
5.3.2病人挂号信息查询操作 28
5.3.3病人挂号信息修改操作 29
5.3.4病人挂号信息删除操作 32
5.3.5复位操作 33
5.3.6医生备忘录界面的实现 34
第6章 数据库连接的设计 37
第7章 结束语 38
致谢 39

40

第1章 引言

1.1 背景
随着信息技术的发展及医院运行机制的转变，医院信息系统已成为现代化医院必不可少的重要基础设施与支撑环境,现代计算机技术、信息技术和医学技术的融合给生命科学带来了新的发展契机和巨大推动力。
信息系统的高效率可以及时的为医院管理人员提供各种信息，为决策者提供了可靠的依据,医院应用信息系统，其效益的提高是综合性的，医院的管理者和决策者，应充分看到信息系统在其中的作用，不仅要看到对信息系统所投入的人力与经费，还要看到它所带来的各方面的效益，积极合理地安排这方面的投资，使医院得到最佳的发展。
最初医院引进计算机应用于医院管理，主要是进行数据处理，对以数字描述为主并且耗费时间的一般简单重复性业务实行自动化，如会计、统计、收费、核算等。当时计算机性能差，价格昂贵，应用软件数量极少，并且存在对使用人员素质要求高的特点，严重影响了计算机在医院信息管理中的应用。计算机技术的不断发展，使计算机在价格、易用性等方面有了自身优势，其存储容量大、计算速度快的特点得到了广泛的认同。计算机被应用于医院的各项工作中，主要内容是以数字信息的记录、贮存、传递、检索为中心。在网络技术发展的推动下很多医院建成了网络信息系统，使各部门之间的信息可以共享，从而大大促进了医院信息系统的应用和发展。

1.2研究的基本内容与拟解决的主要问题
研究的基本内容包括入院登记,系统能实现以收费为核心的管理模式。对入出院病人情况进行处理、记录及查询床位情况；提供病人的基础资料、住院病人明细帐、出院病人帐务、病人欠费情况出入院人数信息；以及对长期医嘱、临时医嘱的治疗费、检查费、处置费和药费自动记费；完成入院→收费→治疗→出院等住院病人全过程管理.
解决的主要问题包括以下几个方面:
入院登记: 住院登记模块的主要功能包括病人基本信息的录入、病案号及入院科别、病室、床位的分配、门诊诊断及病情情况；住院病人预交金的交纳。该模块录入的病人基本信息接连入病案管理模块。
出院结算: 办理出院、挂帐处理、病人退药、病人费用清单等。
统计查询及报表: 病案查询、全部医嘱查询、长期医嘱查询、查收费情况、病人费用查询。打入院登记簿、临床科室收入明细、临床科室收入汇总、医技科室收入数量统计、医技科室收入金额统计、医师工作量数量统计、医师工作量金额统计。
系统维护:用户正常的登陆和退出、代码维护、修改密码。

第2章 系统开发所需环境

医院管理系的统数据库是在对医院的各个工作流程进行了详细的调查，在了解该系统功能，收集支持系统目标的基础数据的情况下建立起来的。本系统以英文版Visual Studio 2008为前台开发工具，用SQL Server 2005为后台数据库而实现的。其中主要通过sqlclient和DataSet技术来访问数据库。本系统所用语言为VB.NET
2.1医院管理系统的数据库管理系统
SQL Server 数据平台
SQL Server 是一个全面的、集成的、端到端的数据解决方案，它为企业中的用户提供了一个安全、可靠和高效的平台用于企业数据管理和商业智能应用。SQL Server 2005 为IT专家和信息工作者带来了强大的、熟悉的工具，同时减少了在从移动设备到企业数据系统的多平台上创建、部署、管理及使用企业数据和分析应用程序的复杂度。 通过全面的功能集、和现有系统的集成性、以及对日常任务的自动化管理能力，SQL Server 2005 为不同规模的企业提供了一个完整的数据解决方案。

图2-1 SQL Server 2005数据平台的组成架构
2.2 Microsoft Visual Studio 2008的开发环境
Visual Studio 是一套完整的开发工具集，用于生成 ASP.NET Web 应用程序、XML Web Services、桌面应用程序和移动应用程序。Visual Basic、Visual C++、Visual C# 和 Visual J# 全都使用相同的集成开发环境 (IDE)，利用此 IDE 可以共享工具且有助于创建混合语言解决方案。另外，这些语言利用了 .NET Framework 的功能，通过此框架可使用简化 ASP Web 应用程序和 XML Web Services 开发的关键技术。

图2-2 Microsoft Visual Studio 2008
Visual Studio 2008 为开发人员提供了新的智能客户端生成方式。这些新功能不仅增强了应用程序功能，而且提高了开发人员的工作效率，其中包括：更容易的设计集成、扩充的部署选项、更为丰富多彩的登录和个性化服务以及更好的数据访问和同步。
Visual Studio 2008 为智能客户端开发人员提供的另外一项数据访问功能是对于 Microsoft® SQL Server™ 2005 Compact Edition 的集成支持。Microsoft® SQL Server™ 2005 Compact Edition 是 SQL Server 2005 的免费的、易用的、轻量的、可嵌入式版本，用于开发桌面和移动应用程序。SQL Server 2005 Compact Edition 是下一个版本的 SQL Server Mobile，它将 SQL Server Mobile 技术扩展到桌面。Visual Studio 为所有 Windows 平台（包括 Tablet PC、Pocket PC、Smartphone 和桌面）上的单用户客户端应用程序提供了这一维护成本低且紧凑的嵌入式数据库。

2.3系统开发语言介绍-------VB.NET
Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。
VB是微软公司的一种通用程序设计语言，包含在Microsoft Excel、Microsoft Access等众多Windows应用软件种的VBA都使用VB语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。
利用 VB的数据访问特性，用户可以对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。
从1991年VB诞生之日起到现在已经有七个版本了（最新.NET版）这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，
对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。

第3章 医院管理系统设计与分析

3.1医院管理系统概述
医院管理信息系统，源于当今国际上著名的企业资源计划（Enterprise Rouses Planning）的先进思想。实现"以病人信息为中心，以费用信息为主线"的目标：减轻业务人员的劳动强度，将财、物（药品）、报表等三者有机联合,将医院各方面的资源，包括人事、财政、物资、医务护理、医疗辅助等充分调配和平衡，以期达到管理最佳的经济效果。它绝不仅仅是一套硬件和软件简单组合的计算机系统，而是集先进的管理思想、医院各部门的业务管理经验和计算机先进技术而达成的系统。
　　医院管理信息系统将整个医院的所有工作改造为事务处理信息流、财务管理信息流、物资管理信息流、临床数据信息流和学术资料信息流的网络化控制结构。通过信息数据高度共享，在强大的数据库的支持下，将医院的全面管理水平和服务质量提升到更高层次！大大提高院长决策的效率和准确度。减少因管理原因造成的药品损失，缩短病人排队等待时间， 减少欠费无法及时追缴造成的损失，提高查询、统计效率， 将医院在财务、划价、下医嘱等环节人为造成的错误率降为零，医院对自身的任何调整在瞬间落实到每个具体岗位。
医院管理系统以简洁性、实用性、可扩展性、定制化为目标，贴近医院需求。简洁性包括流程的简化和操作的方便、简洁；实用性保证了软件的实际使用效果；可扩展性则为系统将来扩展提供了保障。本系统高度融合以病人为中心、以住院为核心的开发思想，全面符合卫生部医院信息系统基本功能规范，本系统以住院信息和经济信息两条主线，实现了医院经济、管理和医疗业务的综合信息化管理。充分考虑到不同医院的不同需求，本系统采用了灵活设计，提出定制化软件的概念。本系统的定制化是可以由医院自己操作的，它不同于项目化软件，可以在保证软件个性化的同时，又提供了持续升级、服务的支持。

3.2系统项目规划
本系统上不同用户登陆,并判断权限来决定该项用以何种身份进入系统,并给出不同的操作权限,不同的操作界面,和不同的功能.同时本系统默认管理员为最高权限,并且界面上没有用户注册一项,如所需增加用户,则由管理员进行页面添加,也可进入后台数据库进行添加.
本设计我将采用面向对象的方法,综合运用数据库技术,程序设计技术,结合医院信息管理知识与流程,以Visual Stdio 2008作为系统前台可视化应用程序开发集成工具,Sql server 2005作为后台数据库,通过Visual Stdio 2008中的各种现存控件的使用进行二次开发.

3.3系统功能结构图
由系统项目规划可知，医院管理系统中主要包括用户登录和权限判断功能,用户和角色管理功能,管理员信息管理功能,医生信息管理功能,病人信息管理功能,住院信息查询功能,药品信息查询与管理功能等.具体的功能结构如下图所示：

图3-1 医院管理系统功能结构图
第4章 数据库分析与设计

4.1 需求分析
1) 信息需求：调查本系统中不同用户所需要操作的数据以及不同的权限，并在数据库中存储相应的数据。
2) 处理需求：清楚系统用户要求对数据通信进行怎什么处理，以及数据库中各种数据之间的关系,如表与表之间有无联系,有无外键等等。
在进行需要分析过程中,要尽最大可能保证信息收集的完整性，保证信息处理过程中的各个信息之间的联系,以及用户对某些特定的要求,如文字录入范围,自定义权限等.确保已经正确理解用户的主体要求，明确程序要实现的主要功能,并在实现过程中所用到的各种约束,各种字段名,争取在程序中各个变量的统一,做到:信息完整性,处理信息完整性,用户自定义完整性,明确信息的归类,以最少的TABLE来表示最多的信息.力求程序简结,功能强大.这是设计数据库的一个重要的指标.一个好的数据库可以为整个工程节省很多的工作量,并且不容易出错,减少BUG数!根据需求分析以后的结果,初步得出以下信息及处理信息:
病人信息库(Tpaient)：用来存储医院内部包括住院和就诊病人的全部信息,包括病人姓名,年龄,性别等基本信息.
医生信息表(Tdoctor)：用来存储医生及医院内部工作人员的数据,如医生ID,医生姓名,工作年月日,联系方式,角色ID等。
药品信息表(Tmedicine)：用来存储各种药品的的名称,药品说明,药品的使用方法,药品的价格,药品的使用期限等信息。
挂号信息表(Tregistered)：用来存储部门信息,如挂号ID,挂号类型,挂号人,级别等。
门诊划价信息表(Tmzhj)：用来存储病人就诊以后的所用药品信息,付费信息,所用药品数量信息等。
角色管理信息表(Trole)：用来存储不同用户所具有不同的权限信息等。
药品分类信息表(Tmedigroup)：用来存储管理药品信息,ID,所属类别信息等。
科室资料信息表(Tdepart):用来存储医院内部所划分的各类科室的信息,如:内科,外科,急诊科等.
医院管理系统
4.2概念结构设计

权限判断

操作标志位=0 操作标志位=1

医生
管理员

病人住院查询
病人挂号信息
病人药品使用信息
药品信息查询
病人信息删除
病人信息添加
病人信息修改
病人信息查询
医生信息修改
医生信息添加剂
医生信息删除
医生信息查询

图4-1 医院管理系统功能流程图
4.3 数据库逻辑结构设计
本系统采用的是Microsoft SQL Server 2005 数据库，数据库名为HISBOOK_DATA，下面列举数据库HISBOOK_DATA中的若干个数据表进行描述。关于数据库中的这几个数据表详细信息如下：
（1）病人信息库(Tpaient):
用来存储医院内部包括住院和就诊病人的全部信息,包括病人姓名,年龄,性别等基本信息.详细信息如下所示表:
表4-1病人信息库数据表定义信息
字段名
数据类型
字段说明
描述
编号
varchar(15)
病人编号
Primary Key
姓名
varchar(30)
病人姓名
NOT NULL
性别
varchar(2)
病人性别
NOT NULL
年龄
int
病人年龄
NOT NULL
民族
varchar(20)
民族
NOT NULL
（2）医生信息表(Tdoctor)：
用来存储医生及医院内部工作人员的数据,如医生ID,医生姓名,工作年月日,联系方式,角色ID等。详细如下表所示：
表4-2医生信息表表定义信息
字段名
数据类型
字段说明
描述
编号
int
医生ID
PK
姓名
varchar(100)
医生名称
NOTNULL　
年龄
int
医生年龄
NOTNULL　
入职日期
smalldatetime
医生入职日期
NOTNULL　
离职日期
smalldatetime
医生离职日期
NOTNULL　
科室
varchar(100)
医生所在科室
NOTNULL　
用户角色
int
医生使用权限
NOTNULL　

（3）药品信息表(Tmedicine)：
用来存储各种药品的的名称,药品说明,药品的使用方法,药品的价格,药品的使用期限等信息。
表4-3药品信息表定义信息
字段名
数据类型
字段说明
描述
编号
varchar(20)
药品编号
PK (自增)
名称
varchar(150)
药品名称
NOTNULL　
规格
varchar(100)
药品规格
NOTNULL　
整量单位
varchar(50)
药品计量单位
NOTNULL　
入库单价
decimal(12, 2)
药品入库单价
NOTNULL　
分类
varchar(100)
药品分类
NOTNULL　
费用归类
varchar(100)
药品费用分类
NOTNULL　
效期
int
药品有效期
NOTNULL　
（4）挂号信息表(Tregistered)：
用来存储部门信息,如挂号ID,挂号类型,挂号人,级别等。详细结构如下表所示：
表4-4挂号信息表定义信息
字段名
数据类型
字段说明
描述
编号
varchar(15)
挂号号码
PK (自增)
姓名
varchar(30)
挂号人姓名
NOTNULL　
性别
varchar(2)
挂号人性别
NOTNULL　
挂号科室
varchar(30)
挂号所在科室
NOTNULL　
挂号类型
varchar(30)
挂号类型
NOTNULL　
挂号费用
decimal(12, 2)
挂号所需费用
NOTNULL　
医生
varchar(30)
挂号医生
NOTNULL　
是否已划价
varchar(2)
FLAG
NOTNULL　

（5）门诊划价信息表(Tmzhj)：用来存储病人就诊以后的所用药品信息,付费信息,所用药品数量信息等。详细结构如下表所示：
　　　　　　　表4-5门诊划价信息表定义信息
字段名
数据类型
字段说明
描述
编号
int
门诊诊断号
PK (自增)
划价编号
varchar(15)
门诊划价编号
NOTNULL　
药品编号
varchar(15)
诊断药品编号
NOTNULL　
单价
decimal(12, 2)
药品单价
NOTNULL　
数量
decimal(12, 2)
药品数据
NOTNULL　

（6）药品分类信息表(Tmedigroup)：用来存储管理药品信息,药品ID,所属类别信息等。详细结构如下表所示：
表4-6药品分类信息表定义结构
字段名
数据类型
字段说明
描述
编号
varchar(100)
类型编号
PK (自增)
名称
varchar(200)
类型名称
NOTNULL　
备注
varchar(500)
药品分类说明
NOTNULL　

（7）门诊收费项目信息表(Tzuyuan):用来存储门诊诊断的相关信息，包括费用分类，病种分类等信息，详细结构如下表所示：
表4-7门诊收费项目信息表结构定义信息
字段名
数据类型
字段说明
描述
编号
varchar(20)
编号
PK (自增)
名称
varchar(100)
名称
NOTNULL　
拼音码
varchar(100)
拼音码
NOTNULL　
费用
decimal(12, 2)
所需费用
NOTNULL
费用分类
varchar(100)
费用分类
NOTNULL　
病种分类
varchar(100)
病种分类
NOTNULL　
备注
varchar(100)
注释
NOTNULL

根据上面的定义信息,以及相关的需求,创建了如下的数据库:

图4-2数据库中所有表一览

第5章 主要功能模块的详细设计

5.1 系统登陆界面的实现
在这个画面中,加入了用户当天的日期在正上方显示,在登陆区域下面有一个作者信息介绍. 页面UsnayLogin.vb的设计界面如图5-1所示。

图5-1系统登陆界面
系统登陆功能模块由画面UsnayLogin.vb来实现,其中含有两个ComboBox,两个TextBox,两个Button,以及若干个label,本系统默认为医生用户登陆,能过登陆Button触发一个CLICK事件来连接数据,并根据用户权限表信息来判断该用户是否是管理员用户。
在登陆窗口时,本系统做了很多的CHECK检查,目前每一个系统不追求功能要达到多少,而是要求所要的系统稳定性能好,BUG数少,考虑的全面一点,这才是作为一人编程人员需要考虑的,一个画面,如何才是用户真正的需求,要体现实用性,可靠性和安全性,所以本画面作了如下检查:
MESSAGEBOX.SHOW(“编号不能为空”)
If Me.YiShengBianHao.Text.Trim = String.Empty Then
MessageBox.Show("编号不能为空!")
ElseIf Me.YiShengBianHao.Text.Trim = String.Empty Then
MessageBox.Show("姓名不能为空!")
End If

图5-2 MESSAGEBOX界面
MESSAGEBOX.SHOW(“医生编号不正确或者姓名不存在”)

图5-3 MESSAGEBOX界面
MESSAGEBOX.SHOW(“此用户不具备管理员权限!请选择医生用户进入!”)

图5-4 MESSAGEBOX界面
5.2 管理员界面的实现
5.2.1管理员登陆界面的实现
为了更好的进行管理,系统对不等权限的用户说明了各自的功能,说明如下:
1.本系统默认管理员为最高权限管理者,任何用户均无法对管理员的信息进行修改,删除等操作.
2.本系统不提供注册功能,由于本系统是面向医院内部工作人员的,所以用户的添加删除等操作均由管理员来完成.
3.医生用户没有权限查看其它医生用户的信息.
4.管理员可以管理员身份进入系统,也可以以医生身份进入系统.
5.管理员可以修改所有用户的权限等级.

图5-5管理员登陆界面
5.2.2管理员管理界面
管理员管理界面是这个系统里一个重要的一部分,具有医生账号查询功能,医生账号修改,医生账号删除,医生账号修改等功能. 同其它的模板界面一样,医生信息管理也用许多控件组成,在页面Usnay管理员用户操作.VB 上添加五个Button控件,两个ImageBOX控件和一个Panel和一个DataGridview.其中控件DataGridview用来显示所有医生用户的信息;控件F2:医生账号增加Btn,控件F3:医生账号修改Btn和控件F4:医生账号删除Btn分别实现医生用户信息的添加,修改,删除功能.页面Usnay管理员用户操作.VB的设计界面如图5-6所示

图5-6管理员管理界面
5.2.3医生账号查询
医生账号查询功能是由以下代码实现,系统默认检索数据库中所有医生信息,并显示在DataGridview中,其中,本系统增加了一个额外的功能,就是可以用键盘操作,就是:可以按F1来实现查询功能,可以不用激活Button的CLICK事件,系统记录键盘所操作的状态来控制.
此操作所用到的数据库为一个名称叫做:医生资料 的表,对表的查询信息可以用以下SQL命令来实现:
SELECT * FROM 医生资料
如果要加条件查询可以用以下命令来完成:
SELECT * FROM 医生资料 WHERE 医生资料.ID=TEXTBOX.Text
Dim sqlCmd As System.Text.StringBuilder = New System.Text.StringBuilder
With sqlCmd
.Append("select * from 医生资料")
End With
Dim dt As DataTable = UsnayClass1.GetDataTable(sqlCmd.ToString)
管理员GridView.DataSource = dt
Usnay管理员用户操作.intCount = 管理员GridView.Rows.Count

图5-7管理员医生信息查询界面
5.2.4医生账号添加
医生账号的添加也是直接由管理员来操作的,可以直接在数据库中添加,也可以通过本系统提供的界面形式来添加,添加过程中还会受到许多的数据库和实现意义的制约,如数据库Primary Key 重复,如所加的数据超过数据库本身的自定义限制,或者类型不对呢,或者年龄到了不实际的数.
数据在添加过程中会激活一个医生账户管理窗口,这个窗口是管理员窗口的子窗口,返回时自动重新更新数据库,并做数据CHECK.

图5-8管理员医生信息添加界面
在本系统中,用户添加是由主页面跳至SUB画面,以下代码为主页面代码,创建一个SUB画面对象,并给该对象中的各个属性进行初始化.并通过该对象中的一个ShowDialog()方法来打开SUB画面.同进定义一个Windows.Forms.DialogResult.OK的全局变量来判断SUB画面是否正常添加,来决定重新更新数据库.
Sub subF2Click()
Dim addFrame As New Usnay管理员用户操作
addFrame.编号.Text = ""
addFrame.姓名.Text = ""
addFrame.年龄.Text = ""
addFrame.DateTimePicker1.Text = Today.ToShortDateString.ToString()
addFrame.DateTimePicker2.Text = Today.ToShortDateString.ToString()
addFrame.科室.Text = ""
addFrame.userRole.Text = ""
MessageBox.Show("本系统在此说明,当您在进行用户添加时,注意不要和己存在的主键重复！请注 意, 在添加新用户时候, 请将所有数据填满, 不要有空格!")
If addFrame.ShowDialog() = Windows.Forms.DialogResult.OK Then
subF1Click()
End If
End Sub
以下代码是SUB画面中的,在SUB画面中,通过SQLCMD变量来实现数据库的操作命令,其中: 编号.Text.Trim, 姓名.Text.Trim等为画面中的控件名.
Dim sqlCmd As New System.Text.StringBuilder
With sqlCmd
.Append("insert into 医生资料 (")
.Append("编号,姓名,年龄,入职日期,离职日期,科室,学历,userRole )")
.Append(" values (")
.Append(编号.Text.Trim + ",'"
+ 姓名.Text.Trim + "',"
+ 年龄.Text.Trim + ", "
+ CType(DateTimePicker1.Text.ToString, Date) + ", "
+ CType(DateTimePicker2.Text.ToString, Date) + ",'"
+ 科室.Text.Trim + "'," + "'"
+ txtXueli.Text.Trim + "',"
+ userRole.Text.Trim)
.Append(")")
End With
Dim dt As DataTable = UsnayClass1.GetDataTable(sqlCmd.ToString)
MessageBox.Show("成功添加用户!")
formResult = Windows.Forms.DialogResult.OK
Me.DialogResult = formResult
5.2.5医生账号修改
医生账号管理页面需要对数据库中的数据进行更新操作,这其中涉及到权限的问题,如管理员可以删除普通用户的权力,不过在删除的时候会经管理员确认,同时系统不允许管理员把自己删除,只有一种方法,可以到数据库中删除,画面不上提供删除最高权限管理员的功能.画面,在这个修改功能里,系统提供了一几个DataCheck,如:当没有数据时,按了更新按钮,此时系统将报一个:
Message: “没有数据可以更新,请先检索再进行相关操作”.
同时,系统会检查用户进行修改的对象中数据的用户权限来判断该用户是否为管理员用户,如果是管理员用户,则会提示:
Message: “不能对管理员进行修改操作,本系统默认管理员为最高权限”.
当这两个条件均满足是,系统才