vb课程设计报告,门诊挂号收费系统

目  录 第1章  系统功能概述    1 第2章  开发工具    1 2.1  Visual Basic 6.0    1 2.2  SQL    2 第3章  数据库 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计     3 3.1  需求分析    3 3.2  E-R模型    4 3.3  表结构设计    5 第4章 系统各功能模块的详细设计    7 4.1  界面设计    7 4.2  控件代码    10 参考文献    20 第1章  系统功能概述 药品管理: 用于添加,删除或修改药品信息,其中包括药品编号,药品名称,药品价格,药品数量,并且可以查看已有的药品记录. 检查管理: 用于查看或者向数据库内添加删除或修改检查的项目,其中包括检查编号,检查名称,价格. 治疗管理: 用于查看和修改添加以及删除已有的治疗项目,其中包括治疗编号,治疗名称,价格和主治医师. 挂号:    用于对病人进行信息录入,选择药品以及治疗方式,最后合算其消费金额,并且针对未能全额支付的病人也予以挂号,将其信息存放在报表中,即报表显示欠款病人的信息. 第2章  开发工具 2.1  Visual Basic 6.0 Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。 窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。 VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。 VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。 2.2 SQL SQL（前名 SQL）是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office的成员之一。其实SQL 也是微软公司另一个通讯程序的名字，想与 ProComm 以及其他类似程序来竞争。可是事后微软证实这是个失败计划，并且将它中止。数年后他们把名字重新命名于数据库软件。SQL在2000年的时候成为了计算机等级考试中的计算机二级的一种数据库语言并且因为它的易学易用的特点正逐步取代传统的VFP成为二级中最受欢迎的数据库语言。 SQL 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS，即Relational Database Management System），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 SQL能够存取 SQL/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的"进阶用户"则能使用它来开发简单的应用软件。虽然它支援部分面向对象（OOP）技术，但是未能成为一种完整的面向对象开发工具。 与一般的RDBMS完全不同，它缺乏数据库触发和预存程序。自从MS SQL 2000 (Jet 4.0)，开发人员可以在查询中设定参数，这跟预存程序很相似的，但这些“预存程序”只能处理一个程序．当资料表内数据发生变化时，它确实允许形式包含被引发的代码，使用是普通的透过查询和其他技术在进入营运储存的程序在方面RDBMS支援这些的。 进入可提供的编程语言，当时在另一个内产品Microsoft Office家具，微软公司应用的Visual Basic。两个数据库进入信息库COM组成部分被提供：这笔遗产数据存取物体(DAO)，用进入和新只可提供ActiveX数据对象(忙乱)。 SQL容易被应用于小的工程，但是如果设计的不好对大工程是无用的。全部数据库质问，形式和 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 被储存在数据库里，并且与相关的模型的理想协调，没有与他们做一个身体上组织的阶层的可能性。 一种设计技术是把进入应用在数据和计划之间进行分发。一个数据库应该只包含桌子和关系，当另一个将有全部计划时，形式，报告和质问和对第一个数据库桌子的连接。令人遗憾，当连结时，进入允许没有有关的道路，因此那些发展环境作为这种生产环境有相同的道路应该(虽然你写你们自己的能"动态连接程序"常规在里VBA那搜出能一定背面结束档案以透过这个目录树搜寻，如果它发现这条电流通路它不能)。 这种技术也允许开发者在不同的档案中分申请，因此一些架构是可能的。 第3章  数据库设计 3.1  需求分析 该系统能实现简单的门诊划价收费处理,且可以连接到数据库,病人挂号时,录入其挂号编号,姓名,检查申请以及开药等信息,并且针对不同开药和诊断选择,有不同的价格,最后对挂号病人进行划价收费,.其中,药品管理用来修改药品信息,其中包括药品的名称和价格等,检查管理包括检查编号和名称及价格,治疗管理也包括价格和名称,另外还有主治医师.对于挂号成功的病人,将其所有信息写入数据库内. 3.2  E-R模型 (1)检查管理E-R图如图3.1 图3.1    检查管理E-R图 (2)药品管理E-R图如图3.2 图3.2    药品管理E-R 图 (3)治疗管理如图3.3 图3.3    治疗管理E-R 图 (4)挂号E-R图如图3.4 图3.4    挂号E-R图 3.3  表结构设计 本系统共建立四张表,分别为检查信息表,治疗信息表,药品信息表和病人信息表,一下分别列出个表内容: (1)检查信息表 用于保存检查信息,默认为这三种,在系统运行后,可以在检查管理中添加,删除和修改各项内容,之后的治疗信息以及药品信息表都可以在运行后的菜单中更改. 检查编号 名称Varchar(50) 价格Int 01 透视检查 232 02 孕妇检查 210 03 肠胃检查 202       (2)治疗信息表 用于保存治疗的方法,默认为三种 治疗编号 名称Varchar(50) 价格Int 主治医师Varchar(50) 0001 按摩 1123 王医生 0002 骨折结合 988 李医生 0003 心脏治疗 343 徐医生         (3)药品信息表 用于保存药品信息,默认为三钟 药品编号 单位Varchar(50) 数量Int 名称Varchar(50) 价格Int 001 克 123 若非沙星 12 002 粒 21 泻立停 23 003 瓶 2 闪亮滴眼液 22           (4)病人信息表 用于存放病人信息,其中的应付金额为选择个服务项之后计算所得,检查,治疗和药品类型,为挂号时所选定. 姓名 性别 备注 应付金额 实付金额 检查类型 治疗类型 药品类型 药品数量 qq -请选择- Asdasd 1525 1222 透视检查 按摩 滴眼液 NULL 23 女 as 1646 23 透视检查 骨折结合 若非沙星 NULL 呵呵 男 无 3713 3713 肠胃检查 按摩 若非沙星 NULL                   第4章 系统各功能模块的详细设计 4.1  界面设计 (1)管理员登陆界面: 图4.1.1 管理员登陆界面 管理员登陆界面,其中的用户名和密码在建立数据库DSN配置时建立,右边ADO控件在运行时为隐藏. (2)检查管理界面: 图4.1.2 检查管理界面 此界面为检查管理界面,通过输入编号,名称和价格来向数据库中添加删除或修改检查项目,该界面设置8个按钮,当显示数据库中的首记录时,按钮’’首记录’’和’’上一个’’的visible属性为false,默认为true,当显示数据库中的末记录时,按钮’’下一个’’和’’末记录’’ 的visible属性为false,默认为true. 当单击确定按钮时,触发事件向数据库中添加删除或修改检查项目. (3)药品管理界面: 图41.3 药品管理界面 此界面为药品管理界面,通过输入药品编号,药品名称和数量等信息来向数据库中添加删除或修改药品信息,按钮功能同上面检查管理. (4)治疗管理界面: 图4.1.4治疗管理界面 该界面为治疗管理界面,通过输入治疗编号名称和价格以及主治医师来修改数据库内容,按钮功能同检查管理中各按钮. (5)主界面-挂号界面: 图4.1.5 挂号界面 该界面为挂号界面,通过编号姓名等八项内容来向数据库中写入数据,其中检查申请,药品开方和治疗管理中各下拉菜单中内容为直接调用数据库中的内容,这三项都可以通过对应的管理来添加删除或修改所包含项,当选定之后,单击计算金额按钮,在应付金额中会显示出总花费,单击确定登记按钮,显示’’挂号成功’’. 4.2  控件代码 (1)登陆 Private Sub button_login_Click() Static count As Integer If count = 2 Then button_login.Enabled = False End If Dim sql As String sql = "Select * from userTable where name='" & username.Text & "' and pass ='" & pass.Text & "'" ' MsgBox (sql) UserTable.RecordSource = sql UserTable.Refresh If UserTable.Recordset.BOF = True Then MsgBox "用户名或密码错误,请重新输入", vbExclamation, "警告" pass.Text = "" pass.SetFocus count = count + 1 MsgBox (count) Else Load Form_main Form_main.Show Unload Me End If End Sub (2) 计算金额 Private Sub Com_show_Click() checkNumFinal = checkNum cureNumFinal = cureNum drugNumFinal = drugNum text_needPay.Text = Val(Mid(checkNumFinal, InStr(checkNumFinal, "-") + 1, (InStr(checkNumFinal, "元") - InStr(checkNumFinal, "-") - 1))) + Val(Mid(cureNumFinal, InStr(cureNumFinal, "-") + 1, (InStr(cureNumFinal, "元") - InStr(cureNumFinal, "-") - 1))) + Val(number) * Val(Mid(drugNumFinal, InStr(drugNumFinal, "-") + 1, (InStr(drugNumFinal, "元") - InStr(drugNumFinal, "-") - 1))) Lab_needPay.Caption = text_needPay & "元" '  MsgBox text_needPay Com_config.Enabled = True End Sub (3)确定登记 Private Sub Com_config_Click() ' MsgBox sex AdodcSick.Refresh Dim sql As String sql = "'" & sickNum & "','" & text_name & "','" & sex & "','" & message & "', " & text_needPay & " , " & Text_havePay & " , '" & checkNum & "','" & cureNum & "','" & drugNum & "'," & number 'MsgBox sql AdodcSick.RecordSource = " insert into sick values ( " & sql & ")" On Error GoTo 1 AdodcSick.Recordset.Update AdodcSick.Refresh 1:        MsgBox ("  挂号成功!    ") (4)刷新 Private Sub Command4_Click() AdodcChecks.Refresh AdodcDrug.Refresh AdodcCure.Refresh checkNum.Clear drugNum.Clear cureNum.Clear While AdodcChecks.Recordset.EOF = False checkNumTemp = AdodcChecks.Recordset.Fields("name") & "-" & AdodcChecks.Recordset.Fields("money") & "元" checkNum.AddItem checkNumTemp AdodcChecks.Recordset.MoveNext Wend While AdodcDrug.Recordset.EOF = False drugNumTemp = AdodcDrug.Recordset.Fields("name") & "(" & AdodcDrug.Recordset.Fields("unit") & ")" & "-" & AdodcDrug.Recordset.Fields("money") & "元" drugNum.AddItem drugNumTemp AdodcDrug.Recordset.MoveNext Wend While AdodcCure.Recordset.EOF = False cureNumTemp = AdodcCure.Recordset.Fields("name") & "-" & AdodcCure.Recordset.Fields("money") & "元" & "-" & AdodcCure.Recordset.Fields("doctor") cureNum.AddItem cureNumTemp AdodcCure.Recordset.MoveNext Wend End Sub (5)药品管理中各按钮 Private Sub Com_First_Click() Adodc1.Recordset.MoveFirst ButtonControl 1, 0 ButtonControl 2, 0 ButtonControl 3, 1 ButtonControl 4, 1 End Sub Private Sub Com_Last_Click() Adodc1.Recordset.MoveLast ButtonControl 1, 1 ButtonControl 2, 1 ButtonControl 3, 0 ButtonControl 4, 0 End Sub Private Sub Com_Next_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then ButtonControl 3, 0 ButtonControl 4, 0 ButtonControl 6, 0 ButtonControl 7, 0 Else ButtonControl 6, 1 ButtonControl 7, 1 End If ButtonControl 1, 1 ButtonControl 2, 1 End Sub Private Sub Com_Previous_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then ButtonControl 1, 0 ButtonControl 2, 0 ButtonControl 6, 0 ButtonControl 7, 0 Else ButtonControl 6, 1 ButtonControl 7, 1 End If ButtonControl 3, 1 ButtonControl 4, 1 End Sub Private Sub Com_Update_Click() record = 2 End Sub Private Sub Com_Yes_Click() DateBaseControl ' MsgBox record End Sub Private Sub f_exit_Click() End End Sub Private Sub Form_Load() Com_First.Enabled = True Com_Previous.Enabled = True Com_Next.Enabled = True Com_Last.Enabled = True End Sub Public Sub ButtonControl(a As Integer, b As Integer) 'a代表控件id  b代表按钮类型 0为无效 1为有效 '----------------------------- If a = 1 Then If b = 0 Then Com_First.Enabled = False Else Com_First.Enabled = True End If End If '----------------------------- If a = 2 Then If b = 0 Then Com_Previous.Enabled = False Else Com_Previous.Enabled = True End If End If '----------------------------- If a = 3 Then If b = 0 Then Com_Next.Enabled = False Else Com_Next.Enabled = True End If End If '----------------------------- If a = 4 Then If b = 0 Then Com_Last.Enabled = False Else Com_Last.Enabled = True End If End If '----------------------------- If a = 5 Then If b = 0 Then Com_Add.Enabled = False Else Com_Add.Enabled = True End If End If '----------------------------- If a = 6 Then If b = 0 Then Com_Update.Enabled = False Else Com_Update.Enabled = True End If End If '----------------------------- If a = 7 Then If b = 0 Then Com_Del.Enabled = False Else Com_Del.Enabled = True End If End If '----------------------------- If a = 8 Then If b = 0 Then Com_Yes.Enabled = False Else Com_Yes.Enabled = True End If End If '----------------------------- If a = 9 Then If b = 0 Then Com_cancel.Enabled = False Else Com_cancel.Enabled = True End If End If ShowMess End Sub Public Sub ShowMess() If Adodc1.Recordset.AbsolutePosition > 0 Then Label3.Caption = "记录" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount Else Label3.Caption = "无记录" End If End Sub Public Sub DateBaseControl() Adodc1.Recordset.Update Adodc1.Refresh End Sub Public Sub Button_four() ButtonControl 1, 0 ButtonControl 2, 0 ButtonControl 3, 0 ButtonControl 4, 0 End Sub Public Sub Button_Five() ButtonControl 5, 0 ButtonControl 6, 0 ButtonControl 7, 0 ButtonControl 8, 0 ButtonControl 9, 0 End Sub 参考文献 [1] Visual Basic课程设计案例精编[M].北京:清华大学出版社,2007 [2] Visual Basic项目案例开发实例自学手册[M].北京:人民邮电出版社,2008 [3] Visual Basic完全自学手册[M].北京:机械工业出版社,2009 [4] 30天学通Visual Basic项目案例开发[M].北京:电子工业出版社,2009 [5] Visual Basic从入门到精通[M].北京:人民邮电出版社,2010