当前位置：网学 > 设计下载 > JSP,NET,JAVA类别 > 正文

基于VB.NET医院门诊就诊系统

来源：http://myeducs.cn 联系QQ：

作者：用户投稿来源：网络发布时间： 13/05/11

本文主要为广大网友提供“基于VB.NET医院门诊就诊系统”，希望对需要基于VB.NET医院门诊就诊系统网友有所帮助，学习一下!

客服咨询，网学网竭诚为您服务，本站永久域名：myeducs.cn

5.2 用户功能模块

5.2.1注册病人

注册用户登陆后，能在注册模块使用到3个功能，分别为注册病人、编辑病人以及删除病人。注册用户时打开注册页面，系统自动随机生成6位不重复编号，用户只需根据病人情况输入病人相关信息即可完成注册(如图5-4)。

相关代码：读取挂号科室信息

Function add_depart()

conn.Open()

comm = New OleDbCommand("SELECT * FROM depart", conn) ''选择挂号科室数据表

corr = comm.ExecuteReader()

While corr.Read

ComboBox1.Items.Add(corr("dep")) ''将所有挂号科室放入items中

End While

conn.Close()

corr.Close()

End Function

5.2.3医嘱录入

医生用户登陆后，能在挂号模块使用到2个功能，分别为录入医嘱和修改医嘱。当医生用户使用系统时，首先根据病人编号读取病人相关信息，判断该病人挂的是该医生的号，即病人挂号科室应与医生所在科室相吻合，否则病人是走错了挂号科室。之后医生根据病人病情，进行医嘱的录入，需要选择所进行的医疗类型、所开处方（如果需多种药品则可进行多项选择，根据系统需要，在此仅提供3项）以及相应的医嘱(如图5-6)。

5.2.4收费

收费用户登陆后，能在收费模块使用到3个功能，分别为医疗收费、药品收费和缴费查询。收费分为2种，此处显示的是药品收费。首先收费员根据病人编号读取病人相关信息，根据病人医嘱上所开药品进行相应的收费，如有多种药品则将药品费用相加。缴费后收费用户可在缴费查询功能中根据病人编号查到病人是否缴费(如图5-7)。

相关代码：病人编号读取数据库两张表里的数据

Function loadpatient() As Object

conn.Open() ''打开连接

comm = New OleDbCommand("SELECT * FROM patient WHERE num = ''" & TextBox1.Text & "''", conn)

corr = comm.ExecuteReader() ''通过病人编号读取信息

While corr.Read

TextBox1.Text = corr("num") ''读取病人编号

TextBox2.Text = corr("pname") ''读取病人编号

TextBox3.Text = corr("way") ''读取病人医疗类型

End While

conn.Close()

corr.Close() ''关闭连接

comm.Dispose() ''释放资源

conn.Open() ''再次打开连接

comm = New OleDbCommand("SELECT * FROM method WHERE meth = ''" & TextBox3.Text & "''", conn)

corr = comm.ExecuteReader() ''根据上个连接所获得的病人医疗类型,用另外一张表读取该医疗类型费用

While corr.Read

TextBox4.Text = corr("money") ''读取医疗费用

End While

conn.Close()

corr.Close() ''关闭连接

comm.Dispose()

End Function

5.3 管理员模块

5.3.1用户添加

管理员用户添加用户进入添加界面后，需输入用户姓名、输入代码、密码并选择相应的权限(如图5-8)。

5.3.2用户解冻

在用户登陆时，连续输入错误5次密码则会导致该用户帐户被冻结，冻结后只有管理员用户才能对帐户进行解冻。解冻时listbox将列出所有被冻结帐户，选择被冻结帐户后点击解冻即刻(如图5-9)。

相关代码：解冻用户

Private Sub Frm_UnlockUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim status As String ''预设status为冻结

status = "冻结"

conn.Open()

comm = New OleDbCommand("SELECT * FROM sysuser WHERE status =''" & status & "''", conn)

corr = comm.ExecuteReader() ''读取sysuser表中status项为"冻结"的

While corr.Read

ListBox1.Items.Add(corr("username")) ''将这些项放入listbox中

End While

conn.Close()

corr.Close()

comm.Dispose()

End Sub

5.3.3字典维护

系统字典维护包括增加挂号科室、医疗种类和药品种类，即在挂号和下医嘱时进行更多的选择。直接填写挂号科室以及相应的描述，点击保存即可。

5.3.4报表查询

报表查询可将系统数据库中所有报表都列出。图5-11为病人情况报表，选择报表查询相应子项，即可显示，利用水晶报表完成该功能。

6 系统测试

6.1 测试环境

本系统测试环境：CPU P4 3.0，内存DDR 1G, ACCESS2007，VISUAL STUDIO 2005，WINDOWS XP下均测试通过.建议用户CPU PIII，内存256M及以上，数据库版本ACCESS2003，WIN2000PRO/XP，2003，WIN2000 SERVER 及以上软硬件平台使用。

6.2 测试结果

系统在上述软硬件环境下分别对功能用户，系统管理员的详细设计功能作出测试，结果能够达到预期功能,并且系统运行稳定。

结论

在老师的指导和督促下，经过三个月的紧张设计与开发，我的毕业设计基于.Net的门诊就诊系统终于开发完成了，实现了该系统的基本功能，基本满足了用户的需求。管理员实现了对用户及系统的管理，注册挂号员分别实现了添加病人和根据病人需求挂号，医生可根据病人的实际情况开出医嘱和用药，收费员可根据医嘱的内容就行相应的收费。

由于做毕业设计的时间有限以及本人经验不足，使得本系统在某些方面表现得并不是非常的完善，有很多地方需要改善：

1)系统的美观方面需要改善。各个按钮加上对应的图标，显得更加专业。

2)流程不够细化。比如在挂号流程上，挂号员应能对具体的某个科室的医生挂号而不只是一个单单的可以，相应的就诊流程上医生也能只看到本医生所接收的病人。

3)考虑不够周全。在医生下医嘱的模块，医生最多只能选择三种药品，如果日后用户对系统有更多需求想添加更多选择则会在代码方面做很大改动。

4)代码略有重复。比如在读取病人信息上很多页面的代码都是相同的。在以后的学习中，可以对其进行更正，尽量避免代码的重复。

但是，通过这次系统开发，将学习的理论与实践相结合，使我对门诊就诊系统和数据库的设计与开发有了更真实、具体的体会，使我得到了一次很有价值的实践。