数据库课程设计门诊收费管理系统Word文件下载.docx
- 文档编号:20509943
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:26
- 大小:6.63MB
数据库课程设计门诊收费管理系统Word文件下载.docx
《数据库课程设计门诊收费管理系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《数据库课程设计门诊收费管理系统Word文件下载.docx(26页珍藏版)》请在冰豆网上搜索。
学院教学副院长:
2013年12月日
摘要
本系统的主要功能是建立门诊收费管理系统,对药品信息、治疗信息和病人信息的管理和查询。
本系统的数据库是用SQLserver2000软件进行创建与设计,分别包括药品信息表、病人信息表、治疗信息表、检查信息表四个表。
通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。
利用VB软件对系统的窗口进行设计,包括欢迎界面、登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等,可以通过这些窗体进行登录操作,对输入的用户信息进行验证,和注册新用户操作,以及最重要的操作是对数据库中信息进行修改与查询。
并可以对数据进行添加与删除,做到及时更新
关键词:
门诊收费管理;
SQLserver2000;
VB;
查询
第1章系统功能概述
1.1系统功能
门诊收费管理系统主要实现了药品信息管理、病人信息管理、治疗信息管理。
设计为MDI窗体,含有主菜单:
[开始]、[管理]、[信息查询]、
[开始]菜单包含以下子菜单及其功能:
[注册新用户]菜单:
打开“注册新用户”窗体
[登陆]:
转到登陆页面
[管理]包含以下子菜单:
[药品信息管理]菜单:
显示药品信息浏览和编辑窗体
[检查信息管理]菜单:
显示病人信息浏览和编辑窗体
[信息查询]包含以下子菜单:
[药品信息查询]:
显示药品信息查询窗体
[病人信息查询]:
显示病人信息查询窗体
[治疗信息查询]:
显示治疗信息查询窗体
第2章数据库设计
2.1需求分析
这个是为某个门诊准备的门诊收费管理系统,这个系统需要处理四种信息。
首先作为数据库设计人员,需要知道所需信息:
药品信息:
药品编号、单位、数量、名称、价格。
病人信息:
姓名、性别、备注、应付金额、实付金额、检查类型、治疗类型、药品类型。
治疗信息:
治疗编号、名称、价格、主治医师。
检查信息:
检查编号、名称、价格等信息。
然后作为数据库设计人员需要考虑系统的处理要求。
这个系统的适用对象是门诊的管理人员,比如收银员之类的人员才能够使用。
所以设有登录系统,只有注册过的工作人员才能使用这个系统。
另外应该有查询、添加、删除、修改功能,可以进行查询如病人进行了什么检查,使用了什么药品等信息。
而管理人员坑爹不可能只有一名,所以还有注册功能,可以进行用户注册,并且自己设置密码。
2.2E-R模型
病人信息
检查
治疗信息
属于
检查信息
检查类型
1nn1
n
图2.21全局E-R
2.3关系模型
(1)药品信息:
(药品编号、单位、数量、名称、价格)
(2)病人信息:
(姓名、性别、备注、应付金额、实付金额、检查类型、治疗类型、药品类型)
(3)治疗信息:
(治疗编号、名称、价格、主治医师)
(4)检查信息:
(检查编号、名称、价格)
(5)密码表:
(用户名、密码)
2.4表结构设计
图2.41药品信息表
图2.42病人信息表
图2.43治疗信息表
图2.44检查信息表
图2.45密码表
依次在每个表中输入数据:
图2.46药品信息表内容
图2.47病人信息表内容
图2.48治疗信息表内容
图2.49检查信息表内容
图2.50密码表内容
第3章系统各功能模块的详细设计
3.1各窗体的设计:
本门诊收费管理系统共包括10个窗体,分别为欢迎界面,登录,注册新用户,检查管理,药品信息管理,治疗信息管理,检查信息查询,MDI窗体等。
其中主窗体为MDI窗体。
下面介绍各个窗体的设计语句及实现功能。
3.2主页面
欢迎界面:
运行vb程序,出现欢迎界面,点击进入系统按钮,进入主窗体界面
欢迎界面图3.1
源代码:
PrivateSubCommand1_Click()
MDIForm1.Show
UnloadMe
EndSub
3.3MDI主窗体
主窗体含有主菜单:
[开始]、[管理]、[信息查询]。
[开始]菜单包含子菜单注册新用户、登陆。
[管理]菜单包含子药品信息管理、检查信息管理、治疗信息管理。
[信息查询]菜单包含子菜单药品信息查询、病人信息查询、治疗信息查询。
图3.2MDI主窗体界面
PrivateSubbrxx_Click()
病人信息查询.Show
PrivateSubDL_Click()
Form1.Show
PrivateSubjcgl_Click()
Form2.Show
PrivateSubxcxyh_Click()
注册新用户.Show
PrivateSubypgl_Click()
Form3.Show
PrivateSubypxx_Click()
药品信息查询.Show
PrivateSubzlgl_Click()
Form4.Show
PrivateSubzlxx_Click()
治疗信息查询.Show
登录窗体
打开登录界面后,输入用户名和密码,点击登陆按钮,进入MDI主窗体。
图3.2登录界面
StaticmiCoutAsInteger
DimsqlstrAsString
sqlstr="
Select*from密码表Where用户名='
"
&
Text1.Text&
"
'
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"
用户名错误,请重新输入!
vbExclamation,"
警告"
Text1.Text="
:
Text1.SetFocus
Else
IfAdodc1.Recordset.Fields("
密码"
)=Text2.TextThen
密码错误,请重新输入!
Text2.Text="
Text2.SetFocus
EndIf
miCount=miCount+1
IfmiCount>
=3ThenUnloadMe
3.5注册新用户
在上面主窗体点击菜单文件下的注册新用户,进入注册新用户界面,输入用户名、密码、再次输入密码确认,注册成功。
注册成功后会有提示,密码不一致也会有提示。
图3.4新用户注册
图3.5注册成功提示图3.6密码不一致提示
3.6药品信息管理
点击MDI主窗体的管理菜单下的药品信息管理,出现药品信息管理界面,可以进行增加,删除,前移,后移,添加,修改,删除等功能。
图3.7药品信息管理
Adodc1.Recordset.MoveFirst'
记录指针移到首记录(显示首记录)
Command1.Enabled=False'
让[首记录]按钮无效
Command2.Enabled=False'
让[前移]按钮无效
Command3.Enabled=True'
让[后移]按钮有效
Command4.Enabled=True'
让[末记录]按钮有效
在Label6上显示当前记录号/记录总数:
PrivateSubCommand2_Click()
Adodc1.Recordset.MovePrevious'
记录指针移到前一条记录
Command3.Enabled=True
Command4.Enabled=True
IfAdodc1.Recordset.BOFThen'
如果记录指针移到首记录之前,
则记录指针移到首记录上
Command1.Enabled=False
Command2.Enabled=False
PrivateSubCommand3_Click()
Adodc1.Recordset.MoveNext'
记录指针移到下一条记录
Command3.Enabled=True
Command2.Enabled=True
IfAdodc1.Recordset.EOFThen'
如果记录指针移到了末记录之后
Adodc1.Recordset.MoveLast'
则记录指针移到末记录上
Command3.Enabled=False
Command4.Enabled=False
PrivateSubCommand4_Click()
移到末记录
Command1.Enabled=True
PrivateSubCommand5_Click()
Adodc1.Recordset.AddNew
Command5.Enabled=False
Command7.Enabled=False
Command8.Enabled=True
Command6.Enabled=True
PrivateSubCommand6_Click()
Command5.Enabled=True
Command7.Enabled=True
Command8.Enabled=False
Command6.Enabled=False
PrivateSubCommand7_Click()
x=MsgBox("
确实要删除当前记录吗?
vbYesNo+vbQuestion,"
确认"
)
Ifx=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
Adodc1.Refresh
PrivateSubCommand8_Click()
Adodc1.Recordset.Update
PrivateSubCommand9_Click()
PrivateSubForm_Load()
Command1.Enabled=False'
[首记录]按钮无效
Command2.Enabled=False'
[上一个]按钮无效
Command3.Enabled=True'
[下一个]按钮有效
Command4.Enabled=True'
[末记录]按钮有效
Command5.Enabled=True'
[添加]按钮有效
Command7.Enabled=True'
[删除]按钮有效
Command8.Enabled=False'
[确定]按钮无效
Command6.Enabled=False'
[取消]按钮无效
3.7检查信息管理
管理点击MDI主窗体管理菜单下的检查信息管理,出现检查信息界面,可以进行增加,删除,前移后移,添加,修改,删除等功能。
图3.8员工信息表
3.8治疗信息查询
点击MDI主窗体的管理菜单下的治疗信息管理,出现治疗信息管理界面,可以进行增加,删除,前移,后移,添加,修改,删除等功能。
治疗信息管理表图3.9
Adodc1.Recordset.AddNew
Command5.Enabled=False
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
vbYesNo+vbQues
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程设计 门诊 收费 管理 系统