数据库课程设计--门诊收费管理系统

1、精品文档 成 绩 评 定 表学生姓名班级学号专 业课程设计题目评语组长签字：成绩日期 2021 年12月 日课程设计任务书学 院专 业学生姓名班级学号课程设计题目实践教学要求与任务:工作方案与进度安排:第一周：数据库设计，利用SQL Server创立数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与辩论。指导教师： 2021年 12月 日专业负责人：2021年 12月 日学院教学副院长：2021 年12月 日摘 要本系统的主要功能是建立门诊收费管理系统，对药品信息、治疗信息和病人信

2、息的管理和查询。本系统的数据库是用SQL server 2000软件进行创立与设计，分别包括药品信息表、病人信息表、治疗信息表、检查信息表四个表。通过系统ODBC数据源管理工具把已创立的数据源与系统数据库相连。利用VB软件对系统的窗口进行设计，包括欢送界面、登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，以及最重要的操作是对数据库中信息进行修改与查询。并可以对数据进行添加与删除，做到及时更新关键词： 门诊收费管理；SQL server 2000；VB;查询目 录第1章 系统功能概述11.1 系统功能11.2 系统

3、总体总图1第2章 数据库设计22.1 需求分析22.2 E-R模型32.3 关系模型32.4 表结构设计4第3章 系统各功能模块的详细设计53.1 各窗体的设计：53.2 主页面53.3 登录窗体63.4 MDI主窗体83.5 注册新用户93.6 顾客信息113.7 员工信息163.8 顾客信息查询193.9 员工信息查询21总 结23参考文献24欢迎下载精品文档第1章 系统功能概述1.1 系统功能门诊收费管理系统主要实现了药品信息管理、病人信息管理、治疗信息管理。设计为MDI窗体，含有主菜单：开始、管理、信息查询、 开始菜单包含以下子菜单及其功能：注册新用户菜单：翻开“注册新用户窗体登陆：转

4、到登陆页面 管理 包含以下子菜单：药品信息管理菜单：显示药品信息浏览和编辑窗体检查信息管理菜单：显示病人信息浏览和编辑窗体 信息查询包含以下子菜单： 药品信息查询：显示药品信息查询窗体病人信息查询：显示病人信息查询窗体治疗信息查询：显示治疗信息查询窗体第2章 数据库设计2.1 需求分析这个是为某个门诊准备的门诊收费管理系统，这个系统需要处理四种信息。首先作为数据库设计人员，需要知道所需信息：药品信息：药品编号、单位、数量、名称、价格。病人信息：姓名、性别、备注、应付金额、实付金额、检查类型、治疗类型、药品类型。治疗信息：治疗编号、名称、价格、主治医师。检查信息：检查编号、名称、价格等信息。然后

5、作为数据库设计人员需要考虑系统的处理要求。这个系统的适用对象是门诊的管理人员，比方收银员之类的人员才能够使用。所以设有登录系统，只有注册过的工作人员才能使用这个系统。另外应该有查询、添加、删除、修改功能，可以进行查询如病人进行了什么检查，使用了什么药品等信息。而管理人员坑爹不可能只有一名，所以还有注册功能，可以进行用户注册，并且自己设置密码。2.2 E-R模型病人信息检查治疗信息属于治疗信息属于检查信息检查类型1nn1n 图2.21 全局E-Rn2.3 关系模型1药品信息：药品编号、单位、数量、名称、价格2病人信息：姓名、性别、备注、应付金额、实付金额、检查类型、治疗类型、药品类型3治疗信息：

6、治疗编号、名称、价格、主治医师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窗体。下面介

7、绍各个窗体的设计语句及实现功能。3.2 主页面欢送界面：运行vb程序，出现欢送界面，点击进入系统按钮，进入主窗体界面 欢送界面 图3.1源代码：Private Sub Command1_Click()MDIForm1.ShowUnload MeEnd Sub3.3 MDI主窗体主窗体含有主菜单：开始、管理、信息查询。开始菜单包含子菜单注册新用户、登陆。管理菜单包含子药品信息管理、检查信息管理、治疗信息管理。信息查询菜单包含子菜单药品信息查询、病人信息查询、治疗信息查询。 图3.2 MDI主窗体界面 源代码：Private Sub brxx_Click()病人信息查询.ShowEnd SubPr

8、ivate Sub DL_Click()Form1.ShowEnd SubPrivate Sub jcgl_Click()Form2.ShowEnd SubPrivate Sub xcxyh_Click()注册新用户.ShowEnd SubPrivate Sub ypgl_Click()Form3.ShowEnd SubPrivate Sub ypxx_Click()药品信息查询.ShowEnd SubPrivate Sub zlgl_Click()Form4.ShowEnd SubPrivate Sub zlxx_Click()治疗信息查询.ShowEnd Sub 登录窗体翻开登录界面后，输

9、入用户名和密码，点击登陆按钮，进入MDI主窗体。 图3.2 登录界面 源代码：Private Sub Command1_Click()Static miCout As IntegerDim sqlstr As Stringsqlstr = "Select * from 密码表 Where 用户名='" & Text1.Text & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox "用户名错误，请重新输入

10、！", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密码") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsgBox "密码错误，请重新输入！", vbExclamation, "警告"Text2.Text = "": Text2.SetFocusEnd IfEnd IfmiCount = miCount

11、 + 1If miCount >= 3 Then Unload MeEnd Sub3.5 注册新用户在上面主窗体点击菜单文件下的注册新用户，进入注册新用户界面，输入用户名、密码、再次输入密码确认，注册成功。注册成功后会有提示，密码不一致也会有提示。 图3.4 新用户注册 图3.5 注册成功提示 图3.6 密码不一致提示源代码：Private Sub Command1_Click()Static miCout As IntegerDim sqlstr As Stringsqlstr = "Select * from 密码表 Where 用户名='" &

12、Text1.Text & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox "用户名错误，请重新输入！", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密码") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsg

13、Box "密码错误，请重新输入！", vbExclamation, "警告"Text2.Text = "": Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount >= 3 Then Unload MeEnd Sub3.6 药品信息管理点击MDI主窗体的管理菜单下的药品信息管理，出现药品信息管理界面，可以进行增加，删除，前移，后移，添加，修改，删除等功能。 图3.7 药品信息管理源代码：Private Sub Command1_Click() Adodc1.Recor

14、dset.MoveFirst ' 记录指针移到首记录显示首记录 Command1.Enabled = False ' 让首记录按钮无效 Command2.Enabled = False ' 让前移按钮无效 Command3.Enabled = True ' 让后移按钮有效 Command4.Enabled = True ' 让末记录按钮有效'在Label6上显示当前记录号/记录总数：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '记录指针移到前一条记录C

15、ommand3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF Then '如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst '那么记录指针移到首记录上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '记录指针移到下一条记录 Command3.Enabled = True Comma

16、nd2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast '那么记录指针移到末记录上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLast ' 移到末记录Command1.Enabled = True Command2.Enabled = True Command3.Ena

17、bled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Ena

18、bled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = Fa

19、lseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Command1.Enabled = False ' 首记录按钮无效Command2.Enabled = False ' 上一个按钮无效Command3.Enabled = True ' 下一个按钮有效Command4.Enabled = True ' 末记录按钮有效Command5.Enabled = True ' 添加按钮有效

20、Command7.Enabled = True ' 删除按钮有效Command8.Enabled = False ' 确定按钮无效Command6.Enabled = False ' 取消按钮无效End Sub 3.7 检查信息管理管理点击MDI主窗体管理菜单下的检查信息管理，出现检查信息界面，可以进行增加，删除，前移后移，添加，修改，删除等功能。 图3.8 员工信息表 源代码：Private Sub Command1_Click() Adodc1.Recordset.MoveFirst ' 记录指针移到首记录显示首记录 Command1.Enabled = F

21、alse ' 让首记录按钮无效 Command2.Enabled = False ' 让前移按钮无效 Command3.Enabled = True ' 让后移按钮有效 Command4.Enabled = True ' 让末记录按钮有效'在Label6上显示当前记录号/记录总数：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '记录指针移到前一条记录Command3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.R

22、ecordset.BOF Then '如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst '那么记录指针移到首记录上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '记录指针移到下一条记录 Command3.Enabled = True Command2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果记

23、录指针移到了末记录之后 Adodc1.Recordset.MoveLast '那么记录指针移到末记录上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLast ' 移到末记录Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub

24、Command5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBo

25、x("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_C

26、lick()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Command1.Enabled = False ' 首记录按钮无效Command2.Enabled = False ' 上一个按钮无效Command3.Enabled = True ' 下一个按钮有效Command4.Enabled = True ' 末记录按钮有效Command5.Enabled = True ' 添加按钮有效Command7.Enabled = True ' 删除按钮有效Command8.Enabled = F

27、alse ' 确定按钮无效Command6.Enabled = False ' 取消按钮无效End Sub3.8 治疗信息查询点击MDI主窗体的管理菜单下的治疗信息管理，出现治疗信息管理界面，可以进行增加，删除，前移，后移，添加，修改，删除等功能。 治疗信息管理表 图3.9源代码：Private Sub Command1_Click() Adodc1.Recordset.MoveFirst ' 记录指针移到首记录显示首记录 Command1.Enabled = False ' 让首记录按钮无效 Command2.Enabled = False ' 让前移

28、按钮无效 Command3.Enabled = True ' 让后移按钮有效 Command4.Enabled = True ' 让末记录按钮有效'在Label6上显示当前记录号/记录总数：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '记录指针移到前一条记录Command3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF Then '如果记录指针移到首记录之前, Adodc1.Recordset

29、.MoveFirst '那么记录指针移到首记录上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '记录指针移到下一条记录 Command3.Enabled = True Command2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast '那么记录指针移到末记录

30、上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseEnd SubEnd SubPrivate Sub Comman

31、d5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBox(&quo

32、t;确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_Click()

33、MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_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 ' 取消按钮无效End Sub 3.9 药品信息查询点击MDI主窗体的信息查询菜单下的药品信息查询，出现如下列图所示，可以进行多条件查询。 药品信息查询图3.10源代码：Private Sub Command1_Click()Dim str As Stringstr = " Select * From 药品信息 " str = str & " Where 药品信息." & Combo1.Text & " like '"