VB017医院门诊管理系统（vb+access数据库）设计与实现
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
系统具有以下特点：
copyright think58
极大地提高了医务人员的工作效率，加快了病人就诊的速度，有效地解决了“看病难“的问题。
[版权所有：http://think58.com]
全面提高了医院的综合管理水平和服务质量。
解决了漏收费、错收费问题，控制了药品的流失。
think58好，好think58 [资料来源：http://think58.com]
[资料来源：THINK58.com]采用公费、自费两种收费模式。
强大的报表打印功能，使用户可以随时查看或打印收费、退费的统计结果。
[资料来源：http://www.THINK58.com]
系统具有较高的安全性，每进入一个功能模块，都要验证操作员的身份和密码。
本文来自think58 [资料来源：www.THINK58.com]
1.7系统实现的目标
中型医院门诊管理系统用于支持医院完成各方面的管理，有如下几个方面的目标：
1.记录病人的基本档案信息，提供便捷的查询功能。
2.管理医生的信息，使医生与病人有很好的联系。
3.有效管理病人的各方面信息，以便医生查询。
think58
4.减少医生漏收费、错收费问题，降低管理成本。
think58.com [资料来源：http://THINK58.com]
[资料来源：THINK58.com]5.有效地完成医院的日常管理工作。
3 系统实现及编码3.1系统工程说明
系统的工程名定为医院医院门诊管理系统。在工程中的一些规定：
1. Form取名 Frm + 标识名， 标识名一般取表名。
copyright think58
[来源：http://www.think58.com]
2. 与数据库的连接用 ADOConnection，在程序主界面上。
[来源：http://www.think58.com]
3. 数据库控件统一用ADOQuery, 取名 Query + 表名。
4. 编辑字段控件用 Edit控件，取名为字段名。数据自动存储，只要置Edit字段的name属性为字段名，Tag置0，非库字段值置1。
3.2界面设计
1.窗体属性设置：
think58好，好think58 [来源：http://think58.com]
[来源：http://www.think58.com]设置MSFlexGrid表格列数，列宽及表头信息。其代码不不介绍。
就看上面的代码只是对程序的一些数据进行了初始化，函数和录入过程还不是很清楚，下面就来一一介绍说明一下所用到的函数和录入过程。
1. 数据录入过程
按（ENTER）键使控件自动获得焦点。
在数据录入的过程中，应该考虑到用户输入的方便性和高效性。用户每录入完一个项目后，系统应该自动将焦点放到下一个控件上。由于一般用户都习惯使用（ENTER）键，所以这里设计只要用户按下（ENTER）键，下一个需要录入数据的控件便自动获得焦点。完成这一功能，只需要在每个控件的KEYDOWN事件下输入下一个控件获得焦点代码即可。例如：IfKeyCode=vbKeyReturn And Index=1 Then Cbo1(1).SetFocus
think58 [资料来源：THINK58.com]
[资料来源：http://THINK58.com]通过用户输入的拼音简码检索并输入科室、医生等信息
think58
[资料来源：THINK58.com]
[资料来源：http://THINK58.com]以输入科室信息为例介绍通过拼音简码输入信息的方法。在“就诊科室”文本框中，当用户输入一个拼音简码或全输，按（ENTER）键后系统自动检索与其相匹配的科室信息，并显示在科室信息列表中。如果第一条记录是用户需要的，那么直接按（ENTER）键，即可在“就诊科室”文本框中显示该科室的信息；否则，可以通过键盘中的上下键进行选择，然后按（ENTER）键，即可在“就诊科室”文本框中显示该科室的信息。代码如下：
If KeyCode = vbKeyReturn And Index = 2 Then
[资料来源：http://think58.com]
Adodc1.RecordSource = "select * from 科室信息表 where 拼音码 like + '" + Txt1(2).Text + "'+'%'"
copyright think58 [来源：http://www.think58.com]
[来源：http://www.think58.com] Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
copyright think58 [资料来源：http://THINK58.com]
GridKS.Visible = True
[资料来源：http://think58.com]
GridKS.SetFocus
Else
GridKS.Visible = False
Txt1(3).SetFocus
End If
End If
[资料来源：THINK58.com]
2. 将表格中的数据显示在MS1表格中
[来源：http://www.think58.com]
药品信息或诊疗项目信息被检索出来后，将显示在DATAGRID表格中。下面以药品表格（GRIDYP）为例介绍他的设计方法。
在GRIDYP表格的KEYDOWN事件下，当用户按下（ENTER）键时，将GRIDYP表格中的药品信息赋给MS1的各个单元格。代码如下：
If KeyCode = vbKeyReturn Then
[资料来源：www.THINK58.com]
With Adodc2.Recordset