同济大学 数据库 大作业

┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊同济大学《数据库技术及应用》项目报告项目名称：医院一体化系统小组成员：1350871 倪荫豪1350870 李天扬年级：大二专业：土木工程指导教师：王睿智日期：2014 年12 月30 日┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊目录一、系统概述 (3)1.系统简介..................................................................3 2.功能特色 (3)二、需求分析 (3)1.系统功能需求分析......................................................3 2.数据库需求分析 (4)三、数据库设计 (4)1.概念模式设计............................................................4 2.逻辑模式设计............................................................6 3.物理数据库设计.........................................................6 4.触发器设计...............................................................11 5.存储过程设计 (13)四、系统设计和实现 (14)1.窗体类和功能类统计表................................................14 2.界面设计及其代码实现 (15)五、系统测试 (41)1.触发器测试用例.........................................................41 2.存储过程测试用例......................................................41 3.功能测试用例 (41)六、总结 (52)┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊一. 系统概述1.1系统简介当前医患关系、医院挂号等一直是社会热点问题。

本项目将站在病人，医院医职人员，医院管理者的角度设计一系列 程序和数据库，简化病人挂号、医生看病开药、病人付款和管理者管理的过程，使一个医院的效率大幅度提升，并增加病人满意度。

1.2功能特色①对于医院内工作人员，管理员及非管理员使用统一登陆入口登陆，根据用户名自动判别其拥有的权限。

管理员可查看其他工作人员的工作状态，实时督促，提高工作效率。

②病人通过程序可以在到达医院前挂号，且可以指定什么职称的医生来诊治，并通过程序实现缴纳医药费用。

若病人没有指定医生，则系统自动分配当前待诊人数最少的该科室医生为其看病。

简化看病流程、减少排队时间。

③医生通过程序来实现接纳病人，开药，并写入记录存档，方便后来的医生医治和解决医闹问题。

亦有助于解决现如今大部分医生手写病历，字迹龙飞凤舞、不可辨认的问题。

二. 需求分析2.1 系统功能需求分析用户①——病人：需要通过程序来实现挂号，应该给用户一个输入他信息的窗口和他挂号的类型。

对于新病人，应给予程序实现注册。

用户②——医治人员：需要看到挂号在他名下的待诊病人，查看病人既往病史，对病人实施医治并开药。

这个过程应该要访问数据。

将可能的药品名称展现在医生面前，并提供一个窗口给他写入病人的病情作为记录。

还可修改自身登录系统时的密码。

用户③——收银员：需要看到医生开具的药单，并收费。

还可修改自身登录系统时的密码。

用户④——医院的管理者:能通过程序看到目前有多少职工在工作，并能够查看并编辑修改他们（包括管理员自身）的信息。

此外，还能查看并修改医院所拥有的各种药品及病人注册时的基本信息。

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊2.2 数据库需求分析①每个管理员、收银员、医生、药品、病人都有唯一的标识。

②病人可以同时挂多个科室，可以选择想要的医生职称，医生可以医治多名病人，病人可以由多名医生医治。

③每名管理员可以管理多名收银员、医生和多种药品。

④医生可以给病人开不同的药，同一种药可以被开给不同的病人，病人可以向不同的收银员付不同的药单钱，每张药单只需付一遍钱。

三. 数据库设计3.1概念模式设计根据上面的分析，可建立5个实体和4个关系。

5个实体：administrator （管理员）、cashier （收银员）、doctor （医生）、medicine （药品）、patient （病人）5个关系：staff （职员）、prescription （药单、处方）、medicalrecord （病历）、registration （挂号）、管理由于纸张大小限制，我们将E-R 图分解为以下3幅图：实体关系图（不含属性）、实体属性图、关系属性图。

①实体关系图（不含属性）┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊②实体属性图┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊③关系属性图3.2逻辑模式设计Administrator （工号，姓名，性别，职务，出生日期，密码） Cashier （工号，姓名，性别，出生日期，密码）Doctor （工号，姓名，性别，出生日期，职称，科室，待诊人数，房间号，密码） Medicine （药品编号，名称，单价，医保折扣，制造厂商，处方药） Patient （医保卡号，姓名，性别，出生日期，籍贯，密码，照片） Medicalrecord （医保卡号，科室，医生工号，描述，就诊日期）Prescription （医保卡号，药品编号，数量，就诊日期，医生工号，是否付款） Registration （医保卡号，科室，工号，挂号费） Staff （工号，职务，是否在上班）3.3物理数据库设计┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊use mastergocreate database Hospitalon primary (name='Hospital',filename='F:\Hospital.mdf')log on (name='Hospital-log',filename='F:\Hospital.ldf')gouse Hospitalgo①staff表创建sql代码create table staff( 工号CHAR(4),职务V ARCHAR(10),是否在上班CHAR(2) CHECK(是否在上班in ('是','否')) )②patient表创建sql代码create table patient(医保卡号CHAR(4) NOT NULL PRIMARY KEYCHECK(医保卡号like 'y[0-9][0-9][0-9]'), 姓名V ARCHAR(20),性别CHAR(2) CHECK(性别in('男', '女')),出生日期DATE,籍贯V ARCHAR(20),密码V ARCHAR(20)，照片V ARINARY(MAX))③cashier表创建sql代码create table cashier(工号CHAR(4) NOT NULL PRIMARY KEYCHECK(工号like 'c[0-9][0-9][0-9]'),┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊姓名 V ARCHAR(20),性别 CHAR(2) CHECK(性别 in('男', '女')), 出生日期 DATE, 密码 V ARCHAR(20) )④administrator 表创建sql 代码create table administrator (工号 CHAR(4) NOT NULL PRIMARY KEY CHECK(工号 like 'a[0-9][0-9][0-9]'), 姓名 V ARCHAR(20),性别 CHAR(2) CHECK(性别 in('男', '女')), 职务 V ARCHAR(20), 出生日期 DATE, 密码 V ARCHAR(20) )⑤doctor 表创建sql 代码create table doctor( 工号 CHAR(4) NOT NULL PRIMARY KEY CHECK(工号 like 'd[0-9][0-9][0-9]'), 姓名 V ARCHAR(20),性别 CHAR(2) CHECK(性别 in('男', '女')), 出生日期 DATE, 职称 V ARCHAR(10) CHECK (职称 in ('助理医师','医师','主治医师','副主任医师','主任医师')), 科室 V ARCHAR(20), 待诊人数 int, 房间号 CHAR(7) CHECK(房间号 like 'door[0-9][0-9][0-9]'), 密码 V ARCHAR(20) )⑥medicalrecord 表创建sql 代码create table medicalrecord( 医保卡号 CHAR(4) FOREIGN KEY REFERENCES patient, 科室 V ARCHAR(20), 医生工号 CHAR(4) FOREIGN KEY REFERENCES doctor, 描述 V ARCHAR(100), 就诊日期 DA TE )⑦medicine 表创建sql 代码create table medicine(药品编号 CHAR(4) PRIMARY KEY CHECK (药品编号 like 'm[0-9][0-9][0-9]'), 名称 V ARCHAR(30), 单价 float , 医保折扣 float,┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊制造厂商 V ARCHAR(100), 处方药 CHAR(2) CHECK(处方药 in ('是', '否')) )⑧registration 表创建sql 代码create table registration(医保卡号 CHAR(4) FOREIGN KEY REFERENCES patient, 科室 V ARCHAR(20), 工号 CHAR(4) FOREIGN KEY REFERENCES doctor, 挂号费 float PRIMARY KEY(医保卡号,科室))⑨prescription 表创建sql 代码create table prescription( 医保卡号 CHAR(4) FOREIGN KEY REFERENCES patient, 药品编号 CHAR(4) FOREIGN KEY REFERENCES medicine, 数量 int, 就诊日期 DATE, 医生工号 CHAR(4) FOREIGN KEY REFERENCES doctor, 是否付款 CHAR(2) CHECK(是否付款 in ('是','否')) )关系图：见下页┊┊┊┊┊┊┊┊┊┊┊┊┊装┊┊┊┊┊订┊┊┊┊┊线┊┊┊┊┊┊┊┊┊┊┊┊┊┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊3.4触发器设计①use Hospital gocreate trigger DelAdm on administrator for delete asdeclare @工号 CHAR(4)select @工号=i.工号 from deleted i delete from staff where 工号=@工号②use Hospital gocreate trigger DelCas on cashier for delete asdeclare @工号 CHAR(4)select @工号=i.工号 from deleted i delete from staff where 工号=@工号③use Hospital gocreate trigger DelDoc on doctor for delete asdeclare @工号 CHAR(4)select @工号=i.工号 from deleted i delete from staff where 工号=@工号 ④use Hospital gocreate trigger DelRes on registration┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊for delete asdeclare @工号 CHAR(4)select @工号=d.工号 from deleted d update doctor set 待诊人数=待诊人数-1 where 工号=@工号⑤use Hospital gocreate trigger IstAdm on administrator for insert asdeclare @工号 CHAR(4)select @工号=i.工号 from inserted iinsert into staff values(@工号,'行政人员','否')⑥use Hospital gocreate trigger IstCas on cashier for insert asdeclare @工号 CHAR(4)select @工号=i.工号 from inserted i insert into staff values(@工号,'收银员','否')⑦use Hospital gocreate trigger IstDoc on doctor for insert asdeclare @工号 CHAR(4)select @工号=i.工号 from inserted i insert into staff values(@工号,'医生','否')⑧use Hospital gocreate trigger IstRes on registration for insert asdeclare @工号 CHAR(4)select @工号=i.工号 from inserted iupdate doctor set 待诊人数=待诊人数+1 where 工号=@工号┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊3.5存储过程设计①use Hospital gocreate proc IstDis @pid CHAR(4),@dpt V ARCHAR(20), @fee int asdeclare @did CHAR(4) select @did=c.工号 from(select a.工号 from(select 工号,待诊人数 from doctorwhere 科室=@dpt ) as awhere 待诊人数=(select min(b.待诊人数) from (select 工号,待诊人数 from doctorwhere 科室=@dpt) as b)) as cinsert into registrationvalues(@pid,@dpt,@did,@fee)②use Hospital gocreate proc IstDis1 @pid CHAR(4),@dpt V ARCHAR(20), @fee int,@class V ARCHAR(10) as┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊declare @did CHAR(4) if exists(select a.工号 from(select 待诊人数,工号 from doctor where 职称=@class and 科室=@dpt) as awhere 待诊人数 in (select min(b.待诊人数) from (select 待诊人数,工号 from doctor where 职称=@class and 科室=@dpt) as b)) beginselect @did=a.工号 from(select 待诊人数,工号 from doctor where 职称=@class and 科室=@dpt) as awhere 待诊人数 in (select min(b.待诊人数) from (select 待诊人数,工号 from doctor where 职称=@class and 科室=@dpt) as b) insert into registrationvalues(@pid,@dpt,@did,@fee) end四. 系统设计和实现4.1窗体类和功能类统计表┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊4.2界面设计及其代码实现模块：Imports System.Data.SqlClient Module m_slcDim constr As String = "Data Source=倪荫豪\SQLEXPRESS;Initial Catalog=Hospital;Integrated Security=True"Public Function GetVal(ByRef ds As DataSet , row As Integer , col As Integer , table As String ) As String'取数据 如果在该处无数据 返回空字符串 TryGetVal = ds.Tables(table).Rows(row).Item(col) Catch ex As Exception MsgBox(ex.Message) GetVal = "" End Try End FunctionPublic Function slc(sql As String , table As String ) As DataSet Debug .Print(sql) TryDim conn As New SqlConnection (constr) conn.Open()Dim da As SqlDataAdapter = New SqlDataAdapter (sql, conn) '创建适配器 ' Dim ds As DataSet = New DataSet() '创建数据集 slc = New DataSet ()da.Fill(slc, table) '填充数据 Exit Function Catch ex As Exception slc = New DataSet () MsgBox(ex.Message) End Try End FunctionPublic Function slc(goal As String , condition As String , table As String , dtable As String ) As DataSetDim sql As Stringsql = "select " & goal & " from " & table If condition <> "" Thensql = sql & " where " & condition End IfDebug .Print(sql) Try┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊Dim conn As New SqlConnection (constr) conn.Open()Dim da As SqlDataAdapter = New SqlDataAdapter (sql, conn) '创建适配器 ' Dim ds As DataSet = New DataSet() '创建数据集 slc = New DataSet ()da.Fill(slc, dtable) '填充数据 Exit Function Catch ex As Exception slc = New DataSet () MsgBox(ex.Message) End TryEnd FunctionPublic Function Upt(sql As String ) As Integer '执行插入 修改命令 返回受影响的行数 Debug .Print(sql)Dim conn As New SqlConnection (constr) Upt = 0 TryDim cmd As New SqlCommand (sql, conn) conn.Open()Upt = cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try conn.Close() End FunctionPublic Function GetFisrtCell(sql As String ) As String Debug .Print(sql)Dim conn As New SqlConnection (constr) GetFisrtCell = "" TryDim cmd As New SqlCommand (sql, conn) conn.Open()GetFisrtCell = cmd.ExecuteScalar() Catch ex As Exception MsgBox(ex.Message) End Try conn.Close() End Function End Module┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊①登陆功能实现代码Module 全局变量Public 工号 As String = "d003" Public 科室 As String Public 医保卡号 As String End ModulePublic Class 登录Private Sub Cancel_Click(sender As Object , e As EventArgs ) Handles Cancel.Click Me .Close() End SubPrivate Sub OK_Click(sender As Object , e As EventArgs ) Handles OK.Click If UsernameTextBox.Text = "" Or PasswordTextBox.Text = "" Then MsgBox("用户名或密码不能为空") Return End IfDim sql As Stringsql = "select 职务 from staff where 工号='" & UsernameTextBox.Text & "'" Dim s As String = GetFisrtCell(sql) If "" = s ThenMsgBox("用户名或密码错误") End IfDim d As String If s = "医生" Then d = "doctor"科室 = GetFisrtCell("select 科室 from doctor where 工号='" & UsernameTextBox.Text & "'")┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊┊ ┊ElseIf s = "收银员" Then d = "cashier" 科室 = ""ElseIf s = "行政人员" Then d = "administrator" 科室 = "" End IfIf PasswordTextBox.Text = GetFisrtCell("select 密码 from " & d & " where 工号='" & UsernameTextBox.Text & "'") Then Dim startuptxt As Stringstartuptxt = System.Windows.Forms.Application .StartupPath & "\" If s = "医生" Thenstartuptxt = startuptxt & "就诊.exe " & UsernameTextBox.TextElseIf s = "收银员" Thenstartuptxt = startuptxt & "收费.exe " & UsernameTextBox.Text ElseIf s = "行政人员" Thenstartuptxt = startuptxt & "管理.exe " & UsernameTextBox.Text End IfShell(startuptxt, AppWinStyle .NormalFocus, False ) Me .Close() ElseMsgBox("用户名或密码错误") End If End Sub End Class②挂号功能实现代码：Public Class Form1┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊Private Sub Form1_Load(sender As Object , e As EventArgs ) Handles MyBase .Load ComboBox1.SelectedIndex = 0End SubPrivate Sub CheckBox1_CheckedChanged(sender As Object , e As EventArgs ) Handles CheckBox1.CheckedChangedIf True = CheckBox1.Checked Then ComboBox1.Enabled = True ElseComboBox1.Enabled = False End If End SubPrivate Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click If TextBox.Text <> GetFisrtCell("select 密码 from patient where 医保卡号='" & TextBox1.Text & "'") Or Len(TextBox.Text) = 0 Then MsgBox("密码错误", MsgBoxStyle .Information) Exit Sub End IfDim sql As Stringsql = "'" & TextBox1.Text & "','" & TextBox2.Text & "'," If CheckBox1.Checked = False Then sql = "exec IstDis " & sql & "100" Elsesql = "exec IstDis1 " & sql & "150,'" & ComboBox1.Text & "'" End IfIf 2 = Upt(sql) Thensql = "select 工号 from registration where 医保卡号='" & TextBox1.Text & "' and 科室='" & TextBox2.Text & "'"Dim gh As String = GetFisrtCell(sql)sql = "select 房间号 from doctor where 工号='" & gh & "'"MsgBox("请前往" & GetFisrtCell(sql) & "就诊。