- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据库应用基础课程设计报告
中南大学
本科生课程实践报告
(数据库应用基础)
题 目 医院检验项目管理系统 学生姓名 指导教师 学 院 专业班级
学生学号
计算机基础教学实验中心
2015年 6 月 18 日
一.目的
数据库应用基础课程设计是在这门课程的学习后进行的一次全面的综合练习,是对学生使用SQL Server数据库管理系统和Visual Basic应用程序开发工具的训练。在该环节通过对课程设计任务的分析与设计实现,将所学的理论知识应用于实践编制出较为实用的软件。从而更加系统地理解和掌握SQL Server数据库管理系统和VB语言的基本概念、语言特点和编程技巧,掌握数据库系统设计的基本方法,提高应用数据库技术进行数据管理以解决实际问题的能力。
医院检验项目管理系统的主要目标是支持医院医护人员的临床活动,收集
和处理病人的临床检验医疗信息,丰富和积累临床医学知识,并提供临床咨询、
辅助诊疗和辅助临床决策,提高医护人员的工作效率,为病人提供更多、更快、更好的服务。
二.需求分析
1.数据需求
数据库数据要相对完整,能较好反应病人的基本信息和检验数据,满足基本需求。
基本信息主要包括病人信息、检验项目和检验结果等。
2.系统需求
.登录。
根据身份验证密码后登录。系统管理员身份具备系统管理、病人基本信息管理功能;检验医生身份具备修改本人密码、检验项目管理、查询统计功能;病人身份只具备查询本人检验项目信息的功能。
.系统功能
1、系统管理包括添加、查询、修改、删除检验医生等。
2、病人基本信息管理包括病人基本信息的录入、查询、修改和删除等。
3、检验项目管理实现检验项目结果的录入、查询、修改和删除操作。
4、查询统计:可以按病人、诊疗科室、样本等统计查询检验项目情况。
三、系统功能设计
医院检验项目管理系统主要实现用户登陆、用户管理、病人信息管理、检验项目及检验结果管理等,包含的系统功能模块如下图所示:
相关过程及功能分析简述
1. 系统管理的处理过程主要包含:用户登陆、查询用户、添加用户、修改密码和系统退出。
2.病人基本信息管理包括病人信息的录入和查询以及维护,需要登记病人的编号、姓名、年龄、性别、主治医生、诊疗科室、联系电话、密码。
病人信息维护过程主要包含:记录删除、记录修改。
3.检验项目管理主要包括:项目录入和查询以及维护,需要记录项目名称、样本、项目名称、单位、参考值。
4.检验结果可以按照病人、科室和样本进行查询。
四.数据库设计
1.数据库概念设计
实体联系模型图(E-R图)
2.数据表设计
系统管理员表
检验医生表
病人信息表
检验项目表
检验结果表
数据表的实现
系统管理员表
检验医生表
病人信息表
检验项目表
检验结果表
.物理结构设计
根据数据表设计应用程序:
登 录 界 面(Login):
代码:
Option Explicit
Dim cnt As Integer
Private Sub Command1_Click()
Dim sqlStr As String
If Trim(txtuser.Text) = Then
MsgBox 请输入用户名, vbOKOnly + vbExclamation,
txtuser.SetFocus
Else
sqlStr = select * from 用户信息表 where 用户名= _
Trim(txtuser)
Adodc1.RecordSource = sqlStr
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox 没有这个用户, vbOKOnly + vbExclamation,
txtuser.SetFocus
Else
If Trim(Adodc1.Recordset.Fields(用户类型)) Trim(Combo1.Text) Then
MsgBox 没有符合条件的用户, vbOKOnly + vbExclamation,
Else
If Trim(Adodc1.Recordset.Fields(密码)) = Trim(txtpwd) Then
userID = txtuser
If Combo1.Text = 管理员 Then
usertype = 1
Else
If Combo1.Text = 检验医生 Then
usertype = 2
Else
usertype = 3
End If
End If
Unload Me
MDIfrmMain.Show
Else
MsgBox 密码不正确, vbOKOnly + v
您可能关注的文档
- 操作系统实验全(包含源代码).doc
- 操作系统第二次作业(含答案).doc
- 操作系统,装双系统,Linux和windows双系统,红帽Linux和windows2003双系统.docx
- 操作题WORD1.docx
- 提高门窗砼包框柱施工质量一次合格率.doc
- 擦耳岩引水灌溉工程实施方案.doc
- 支座更换专项方案714.doc
- 支撑围檀技术交底.docx
- 收货地址导入教程.doc
- 收费广场意外车辆事故应急预案.doc
- 2022年广东省清远市公开招聘警务辅助人员辅警笔试精编自考题2卷含答案.docx
- 2023年四川省乐山市公开招聘警务辅助人员辅警笔试精编自考题1卷含答案.docx
- 2022年河南省开封市公开招聘警务辅助人员辅警笔试模拟自测题A卷含答案.docx
- 2021年黑龙江省伊春市公开招聘警务辅助人员辅警笔试冲刺自测题二卷含答案.docx
- 2024年黑龙江省黑河市公开招聘警务辅助人员辅警笔试专项训练题试卷1含答案.docx
- 2022年湖南省怀化市公开招聘警务辅助人员辅警笔试专项训练卷2含答案.docx
- 2023年福建省三明市公开招聘警务辅助人员辅警笔试冲刺自测题二卷含答案.docx
- 2024年广东省广州市公开招聘警务辅助人员辅警笔试模拟自测题C卷含答案.docx
- 2023年四川省雅安市公开招聘警务辅助人员辅警笔试专项训练题试卷2含答案.docx
- 2022年广东省梅州市公开招聘警务辅助人员辅警笔试冲刺自测题一卷含答案.docx
最近下载
- 常见的平面牵出线调车工作(宽屏).ppt
- 行风建设及医德医风考核领导小组 .pdf VIP
- 2024危险化学品重大生产安全事故隐患判定标准考核试题及答案.docx VIP
- 宁攀高速zcb1-14项目部现浇箱梁统计表.xlsx VIP
- 咸阳市事业单位招聘硕士研究生人员真题.docx VIP
- 物业管理服务节能降耗与环保管理方案.pdf
- 万东医疗DR产品介绍课件.ppt
- 高中政治2025届高考《中国特色社会主义》真题汇总练习(附参考答案).doc
- 联通新融合发展技能竞赛(业务管理及稽核赛道)试题及答案.doc VIP
- 山东省临沂市罗庄区2023-2024学年七年级上学期期中考试语文试题(含答案).doc VIP
文档评论(0)