门诊收费管理系统毕业设计毕业论文

太原理工大学成人教育学院毕业（设计）论文：成绩管理系统用户信息管理用户信息用户信息用户信息表操作员用户信息用户信息表操作员药品管理药品类别信息药品管理药品类别信息药品类别信息文件药品类别信息文件划价信息管理划价信息划价药品信息表划价信息管理划价信息划价药品信息表药品收费信息表收费信息管理药品收费信息表收费信息管理图4.3.1图4.3.1数据库设计数据库设计是要在一个给定的应用环境（DBMS）中，通过合理的逻辑设计和有效的物理设计，构造较优的数据库模式、子模式，建立数据库和设计应用程序，满足用户的各种信息需求。1、概念结构设计在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析，然后得出系统的关系模式，可以采用实体——联系图（简称E——R图）的方法进行数据结构的描述。E——R图由实体、属性、联系三部分组成。E——R图的有关符号说明如下：

散件实体编号名称日期其它来源散件实体属性联系IDID帐号密码用户IDID单位名称说明药品单位IDID类型名称说明药品类型IDID科室名称说明科室IDID医师名称说明医师编号编号药品编码药品名称有效期型号规格药品实体间主要关系如下:病人 病人药品药品划价挂号药品药品划价挂号门诊收费属于门诊收费属于医师医师2、物理结构设计物理结构设计的原则如下：（1） 尽可能的减少数据冗余和重复。（2） 结构设计与操作设计相结合。（3） 数据结构具有相对的稳定性。基于以上设计原则，本系统设计了一个数据库，包含基本信息表（如药品、医师、科室等）及几个实体联系建模后的表（如划价信息表、收费信息表等）。为了加快系统访问的速度把这些表放在一个数据库中。本系统中相关数据库表结构设计举例如下：用户表（p_user）编号字段名称字段类型字段说明1ID数值ID2用户名文本用户名3密码文本

密码药品单位（med_dw）编号字段名称字段类型字段说明1ID数值ID2单位名称文本单位名称药品类型表（med_type）编号字段名称字段类型字段说明1ID数值ID2类型名称文本类型名称科室表（med_ks）编号字段名称字段类型字段说明1ID数值ID2科室名称文本科室名称科室表（med_ys）编号字段名称字段类型字段说明1ID数值ID2医师名称文本医师名称药品划价表（hj_t）编号字段名称字段类型字段说明1ID数值ID2药品编码文本药品编码3药品名称日期药品名称4型号规格文本型号规格5数量数值数量6应付款数值应付款7挂号ID数值挂号ID药品划价汇总表（hj）编号字段名称字段类型字段说明1ID数值ID2类型文本类型3应收款数值应收款4挂号ID数值挂号ID门诊收费表（hj_aa）编号字段名称字段类型字段说明1ID数值ID2收费项目文本收费项目3应付款数值应付款4挂号ID数值挂号ID门诊收费汇总表（hj_a）编号字段名称字段类型字段说明1ID数值ID2类型文本类型3应收款数值应收款4挂号ID数值挂号ID详细设计系统主界面在此系统中，充分考虑到人们的使用习惯，利用了菜单对系统中功能进行分类列举,用使对系统的使用，通过菜单即能完成，这样使得主界面简洁，易于使用。另一方面，对当前使用的某一功能选项对应的窗口，以模式的方式进行工作，使得在同一窗口，仅能打开某一类功能的窗口，也在一定程度上减轻了用户的使用难度。系统的主界面如下:用户管理界面此界面为本系统中，较常用的一种界面结构。主要由最上方的工具条，中间的现有数据显示区及下方的新增内容区。在系统细节，主要采用了一个ADO.recordset对象，当增加保存时，使用了其addnew及post方法；当删除某一行数据时，使用了其Delete,post方法主要实现代码如下:PrivateSubForm_Load()CallExcuteSql(rec_user,"select*fromp_user")CallShowInfo(rec_user,flexb)EndSubPublicSubShowInfo(ByValrsAsADODB.Recordset,ByValsearchListAsMSHFlexGrid)OnErrorResumeNextDimSumFields,i,jSumFields=rs.Fields.Count'该表的字段总数searchList.Clear'清空列表，防止增加或修改调用时重复显示'searchList.BackColor=&HC0FFFF'设置网格背景颜色searchList.Cols=SumFields'设置网格列数searchList.Row=0WithsearchList.FillStyle=flexFillSingle'.ScrollTrack=True'.AllowUserResizing=flexResizeColumns.FixedRows=1.FixedCols=0.SelectionMode=flexSelectionByRowEndWith'设置第一行的各列标题Fori=0ToSumFields-1searchList.Col=isearchList.TextMatrix(0,i)=rs.Fields(i).NamesearchList.ColAlignmentFixed(i)=3'searchList.BackColor=&H8000000FNexti'设置第一行的各列标题文字格式Fori=0ToSumFields-1searchList.Col=isearchList.CellAlignment=4'searchList.CellFontBold=True'searchList.CellForeColor=vbBluej=TextWidth(rs.Fields(i).DefinedSize)*8'设置标题宽度，防止部分长文字不显示Ifj>searchList.ColWidth(i)ThensearchList.ColWidth(i)=jEndIfNexti'循环开始--显示所有符合条件记录rs.MoveLastsearchList.Rows=rs.RecordCount+1'其中标题占一行rs.MoveFirstsearchList.Row=0WhileNotrs.EOFsearchList.Row=searchList.Row+1'增加一行，用于写入内容Fori=0ToSumFields-1searchList.Col=iIfsearchList.Col=0ThensearchList.CellBackColor=&H8000000FEndIfsearchList.CellAlignment=4'读入内容IfNotIsNull(rs.Fields(i).Value)ThensearchList.Text=rs.Fields(i).ValueElsesearchList.Text=""EndIfNextirs.MoveNextWend'循环结束--显示所有符合条件记录EndSubPrivateSubtblOperator_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"add"CallForm3.setType("add")Form3.ShowvbModalCase"modify"CallForm3.setType("modify")Form3.ShowvbModalCase"exit"UnloadMeCase"delete"rec_user.Deleterec_user.UpdateEndSelectCallShowInfo(rec_user,flexb)EndSubPrivateSubflexb_DblClick()IfNotrec_user.EOFThenDimfAsNewForm3Callf.setType("modify")f.ShowvbModalCallShowInfo(rec_user,flexb)EndIfEndSubPrivateSubflexb_SelChange()DimstrID,strFindCallGetFlexGridFirstColValue(flexb,strID)IfstrID<>EmptyThenstrFind="ID="&Trim(strID)IfNot(rec_user.EOFAndrec_user.BOF)Thenrec_user.MoveFirstrec_user.Find(strFind)'实时的移动记录'Debug.Print"Moveto"&strIDEndIfEndIfEndSub药品管理界面本界面，主要实现对药品信息的管理，如药品编码、药品名称、型号规格、有效期等.能进行完备的药品编辑操作。主要代码如下:PrivateSubtblOperator_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"add"CallForm13.setType("add")Form13.ShowvbModalCase"modify"CallForm13.setType("modify")Form13.ShowvbModalCase"exit"UnloadMeCase"delete"rec_med.Deleterec_med.UpdateEndSelectCallShowInfo(rec_med,flexb)EndSubPrivateSubflexb_DblClick()IfNotrec_med.EOFThenDimfAsNewForm13Callf.setType("modify")f.ShowvbModalCallShowInfo(rec_med,flexb)EndIfEndSubPrivateSubflexb_SelChange()DimstrID,strFindCallGetFlexGridFirstColValue(flexb,strID)IfstrID<>EmptyThenstrFind="ID="&Trim(strID)IfNot(rec_med.EOFAndrec_med.BOF)Thenrec_med.MoveFirstrec_med.Find(strFind)'实时的移动记录'Debug.Print"Moveto"&strIDEndIfEndIfEndSub挂号界面挂号是系统主要流程的第一步，它的主要功能是为病人人分配一个唯一的编号，在以后的流程中，这个编号即挂的号为划价、收费的基础。在具体的实现中，在医师输入框后，放置了一命令按钮，方便用户快速的查找医师的信息。医师的信息也是以后查询医师的业绩的主要标识.主要代码如下:PrivateSubCommand1_Click()Dimc_glAsStringIfTrim(Text1)=""ThenText1.SetFocusEndIfIft_="add"AndText1.Text<>"init"Thenc_gl=Now()c_gl=Replace(c_gl,"-","")c_gl=Replace(c_gl,":","")c_gl=Replace(c_gl,"","")CallExcuteSql(rec_gh,"select*frommed_gl")Ifre