病房管理系统

成绩评定表

课程设计任务书

摘要

随着医院病人管理的日趋复杂和住院人员的增多，医院的病人管理变得越来越复杂。规范的医院病人管理是医院提高管理效益的重要保证，而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端，已经无法适应医院的需求。随着计算机技术和通信技术的迅速发展，将传统的人工管理计算机化，建立一个高效率的、无差错的住院病人管理系统，能够有效的帮助医院完成病人的住院情况，使医院的管理水平登上一个新的台阶。

本系统采用VB + SQL Server开发。通过数据源管理工具把已创建的数据源与系统数据库相连，后台数据库采用sqlserve2008数据库，前台程序开发工具采用微软的VB6.0，实现了医院住院病人管理功能。

关键词住院病人管理系统；SQL；数据库

目录

1系统功能概述 (5)

1.1 系统的功能： (5)

1.2 系统结构图： (5)

2数据库设计 (6)

2.1需求分析： (6)

2.2 表的结构设计： (6)

2.3 E-R图： (11)

3系统各功能模块的详细设计 (12)

3.1系统各窗体的设计： (12)

3.2系统功能使用简介： (20)

总结 (21)

参考文献 (22)

1系统功能概述

1.1 系统的功能：

住院病人管理系统是利用计算机根据医生信息、医院病房信息、病人住院信息建立的，用vb6.0开发实现。该系统能够进行住院院病人的注册、病人住院基本信息的浏览，能够按病人姓名、科室代码、病人编号或者电话等条件查询病人住院基本信息。

1.2系统结构图：

2数据库设计

2.1 需求分析：

本系统是根据医院的病房情况和病人住院情况对病人进行登记和编辑的系统。

首先设计数据库时，需要知道所需信息：病人的基本信息，包括姓名、性别、年龄、电话；医院的信息病人编号、病房号、病人费用等；病人住院则导致两实体之间有联系着建立一个住院的信息包括病人姓名、编号、年龄、费用、科室等。在根据病人来建立一个普通用户密码表，使得每个病人有个自己登陆的账号密码，而且外来用户还可以通过注册新用户来登录系统。并且病人离院时，我们可以通过该系统对病人住院费用进行结算等功能。

2.2 表的结构设计：

1、病人费用信息表

创建病人费用信息表

create table 病人费用信息

(

病人编号char(8) primary key , --病人编号

病人姓名char(8), --病人姓名

病人性别char(2), --性别

病人年龄char(2), --病人年龄

费用类型char(2), --费用类型

科室代码char(8) --科室代码

)

2、病人信息表

创建病人信息表

create table病人信息表

(

病人编号char(8) primary key, --病人编号

科室代码char(8), --科室代码

病人姓名char(8) not null, --病人姓名

病人性别char(4), --性别

病人年龄char(8), --病人年龄

身高char(8), --身高

血型varchar(4), --血型

电话varchar(20)--联系电话

)

3、病人用药信息表

病人用药情况表

create table 病人用药信息

(

病人编号char(8)primary key, --病人编号

药品编号char(8), --药品编号药品名称char(8), --药品名称

病人姓名char(8), --病人姓名

剂型char(8), --剂型

类别char(40), --类别

用药时间char(10) --用药时间)

4、科室表

创建科室表

create table 科室

(

科室代码char(8) primary key, --科室代码科室名称char(20) not null, --科室名称

病房编号char(8), --病房编号床位数char(20), --床位数

科室主任char(8) --科室主任编号

)

5、药品信息表

创建药品表

create table 药品

(

药品编号char(8) primary key, --药品编号名称char(8), --名称

数量varchar(8), --计量单位

单价varchar(8), --单价

剂型char(8), --剂型

类别char(10) --类别

)

6、医生信息表

创建医生表

create table 医生信息

(

医生编号char(8) primary key, --医生编号’医生姓名char(8) not null, --医生姓名医生性别char(2), --性别

医生年龄char(10), --年龄

科室代码char(8), --科室代码学历char(20) --学历

)

7、密码表

create table 用户密码

(

用户名char(8) ,

密码char(8)

)

2.3 E-R图：

3系统各功能模块的详细设计

3.1 系统各窗体的设计：

图3.1.1

1.此窗体设立了一个ADODC控件，以便访问和操作数据库，本控件连到数据库的密码表。以下各窗体除了主窗体外都有此控件来实现与数据库的连接。登陆窗体

的源代码如下：

Dim miCountAs Integer

Private Sub Command1_Click()

If Trim(Text1.Text) = "" Then

MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"

Text1.SetFocus

ElseIfTrim(Text2.Text) = "" Then

MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"

Text2.SetFocus

Else

Adodc1.RecordSource = "select * from 普通密码表where 用户名='"& Trim(Text1.Text) &"' and 密码='"& Trim(Text2.Text) &"'"

Adodc1.Refresh

If Adodc1.Recordset.EOF Then

MsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus