- 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
文档评论(0)