基于SQL和VB的医院信息管理系统.doc

数据库课程设计报告医院管理信息系统设计设计主要内容：一、开发平台：VB+SQL SERVER 2000二、功能要求：1、设计内容设计一个医院管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登陆，登录的时候首先要判断用户的身份，合法的用户然后进入到系统的主界面中，不同的用户看到不同的系统功能。用sql sever2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、医院管理信息系统主要功能（1）用户管理：用户登录界面，用户注册界面，病人资料登记界面（添加，打印等），职工资料查询界面（一定条件），门诊挂号登记界面（添加，打印等），病人资料查询界面（一定条件），病院病床查询界面（一定条件），药剂信息查询界面（添加，打印等），药剂信息选购界面（选购）， 科室界面（查询），本用户密码的修改界面（2）管理员管理：管理员登录界面，管理员注册界面，职工资料管理界面（添加，修改，删除），病人资料管理界面（增加，修改，删除），用户信息管理界面（添加，删除），病院病床管理界面（修改，删除），病院病床管理界面（添加，修改，删除），药剂管理界面（修改，删除），科室管理（修改，删除）。3、医院管理信息系统数据库表单（1）用户信息表单：用户名，密码，用户身份（管理员和普通用户）（2）职工信息表单：员工号，所属科室，员工姓名，性别，现任职务，出身年月，开始工作时间，年龄，工资，科室编号，备注（3）病人信息表单：病人编号，病人姓名，病人性别，病人年龄，职业，登记日期，证件号码，过敏史，体重，血型，联系电话，家庭住址，婚姻状况。（4）科室表单：科室名称，地点，员工号，科室主任，病房数，是否显示 （5）病院病床表单：病床代号，所属科室，是否空闲 （6）药品信息表单：药品编号，药品名称，规格名称，计量单位，单价，主治症状（7）医疗仪器管理表单：仪器代号，仪器名称，仪器价格，仪器数量（8）门诊挂号表：编号，病人编号，姓名，性别，挂号科室，费用类型，挂号费用，是否已划价三、课程设计报告主要内容：1 医院管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）2 医院管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格）3 医院管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4 医院管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句注释）1.轿车销售管理信息系统需求分析 医疗仪器管理 用户信息管理 门诊挂号登记 病院病床查询医院管理信息系统登 陆用 户 登 陆管 理 员 登 陆用户服务新用户注册管理员服务病人信息登记药剂信息查询用户密码修改职工资料管理病院病床管理科室信息管理更 新 添 加 删 除科室信息查询职工信息查询病人资料管理药剂资料管理图1.1医院管理信息系统1.1欢迎登陆界面1.1.1选中管理员登录后便进入管理员登陆界面1.1.2选中用户登陆后便进入用户登陆界面1.1.3选中新用户注册后便进入用户注册界面，管理员注册1.2管理员界面 可以进行职工资料管理，病人资料管理，病院病床管理，药剂资料管理，科室信息管理，医疗仪器管理，用户信息管理。1.2.1职工资料管理 利用VB界面，管理员可以查询职工资料信息，添加信息，更新信息，删除记录，从而改变了数据库中的信息。1.2.2病人资料管理 管理员可以查询，修改，删除，添加病人资料，在VB界面中修改了数据库中的信息。1.2.3病院病床信息管理 管理员可以根据需要对病床使用的情况进行查询，添加，删除和更新，从而改变数据库中的信息。1.2.4药剂资料管理管理 管理员可以根据需要对药剂的情况进行添加，删除和更新，从而改变数据库中的信息。1.2.5科室信息管理管理员可以根据需要对科室信息的情况进行删除和更新，从而改变数据库中的信息。1.2.6 医疗仪器管理管理员可以根据各种库存的医疗仪器进行添加，查询，更新，删除，从而改变数据库中的信息。1.2.7 用户信息管理 管理员可以添加，删除，更新，查询各用户的信息，从而改变数据库中的信息。1.3用户界面 用户可以查看病院病床信息、药剂信息查询，药剂选购，科室信息查询，门诊挂号登记，职工信息查询，病人信息登记，用户密码修改1.3.1医疗信息查询 用户进入界面后可看到病院病床信息，药剂信息，药剂选购，科室信息。1.3.2门诊挂号登记进入界面后用户挂号登记。1.3.3人员信息查询用户进入界面后可看到所有工作人员的信息和可以查询，并且科根据病人的证件号码查询病人信息。1.3.4本用户密码修改用户通过输入和确认新密码来更改自己的密码。 2医院信息管理系统界面设计图2.1 欢迎登陆界面图2.2 用户登陆界面图2.3 管理员登陆界面、图2.4 新用户注册界面 图2.5管理员注册界面 图2.6 管理员服务界面 图2.7 用户服务界面图2.8 用户密码修改界面表2.1 用户密码修改界面属性表对象属性设置值Label1caption修改密码Label2caption旧密码Label3caption新密码Label4caption新密码确认图2.9 药剂选购界面表2.2 药剂选购界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceyaojixinxivisiblefalseLabel1Caption类型选择Label1Caption购买数量Label1Caption您的总金额Label1Caption商品选购及结算Label1CaptionRMB图2.10 科室信息查询界面表2.2 科室信息查询界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourcekeshixinxivisiblefalseOption1Caption员工号Option2Caption主任Label1Caption查询条件frameCaption科室信息查询图2.11 病人资料登记界面表2.3病人资料界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourcebingrenziliaovisiblefalseLabel1Caption姓名Label2Caption性别Label3caption患者编号Label4Caption年龄Label5caption体重Label6Caption血型Label7Caption证件号码Label8Caption职业Label9Caption婚姻状况Label10Caption联系电话Label11Caption联系地址Label12Caption登记日期Label13Caption过敏史frameCaption病人信息登记图2.12 职工信息查询界面表2.4 职工信息界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsource职工信息visiblefalseOption1Caption姓名Option2Caption员工表Label1caption查询条件Label2caption姓名Label3caption性别Label4caption员工号Label5caption科室编号Label6caption科室Label7caption年龄Label8Caption职务Label9Caption备注Label0Caption工资Label1Caption入职时间Label2caption请输入查询条件图2.13 病人信息查询界面表2.5 病人信息查询界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceBingrenziliaovisiblefalseLabel1Caption病人信息中心Label2Caption姓名Label3Caption年龄Label4Caption性别Label5Caption病号Label6Caption登记日期Label7caption家庭住址Label8caption职业Label9caption联系电话Label10caption婚姻状况Label11caption血型Label12caption体重Label13caption过敏史图2.14 门诊挂号登记界面表2.6 门诊挂号登记界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceguahaovisiblefalseLabel1caption病人编号Label2caption编号Label3caption姓名Label4caption挂号科室Label5caption性别Label6caption时间Label7caption费用类型Label8caption挂号费用Label9caption医生Label10caption是否划价 图2.15 科室信息管理界面表2.7 科室信息管理界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourcekeshixinxivisiblefalseLabel1caption科室信息管理Label2caption科室名称Label3caption科室编号Label4caption员工号Label5caption病房数Label6caption科室地点Label7caption系主任 图2.16 用户信息管理界面 表2.8 用户信息管理界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceUser1visiblefalseLabel1caption用户名Label2caption密码Label3caption用户类型 图2.17 病人资料管理界面表2.9 病人资料管理界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceBingrenziliaovisiblefalseLabel1Caption病人信息中心Label2Caption姓名Label3Caption年龄Label4Caption性别Label5Caption病号Label6Caption登记日期Label7caption家庭住址Label8caption职业Label9caption联系电话Label10caption婚姻状况Label11caption血型Label12caption体重Label13caption过敏史 图2.18 药品资料管理界面表2.10 药品资料管理界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceYaojixinxivisibleTrueLabel1caption药品编号Label2Caption药品规格Label3captioncaption药品名称Label4Caption药品数量Label5Caption主治症状Label6Caption单价Label7caption所属药房图2.19 管理员密码修改界面表2.11 管理员密码修改界面属性表对象属性设置值Label1caption管理员修改密码中心Label2caption旧密码Label3caption新密码Label4caption新密码确认3医院管理信息系统数据库设计医院管理信息管理系统总共涉及8张表，分别是用户信息表，病床信息表，病人资料表，挂号登记表，科室信息表，药剂信息表，仪器管理信息表和员工信息表。表3.1用户信息表字段名称标始名称数据类型是否允许为空字段说明用户名用户名Char否主码密码密码nvarChar否身份身份Char是表3.2病床信息表字段名称标始名称数据类型是否允许为空字段说明病床代号病床代号Int否主码所属科室所属科室Char是是否空闲是否空闲Char是表 3.3 病人资料信息表字段名称标始名称数据类型是否允许为空字段说明姓名姓名Int否年龄年龄samllint是性别性别chai是登记日期登记日期datetime是证件号码证件号码nvarChar是病号病号int否主码家庭住址家庭住址nvarChar是联系电话联系电话Char是过敏史过敏史nvarChar是职业职业nvarChar是婚姻状况婚姻状况个Char是血型血型Char是体重体重char是 表3.4挂号登记表字段名称标始名称数据类型是否允许为空字段说明编号编号Int否主码病人编号病人编号Char是姓名姓名Char是性别性别Char是挂号科室挂号科室nvarChar是费用类型费用类型Char是挂号费用挂号费用Float是医生医生Char是时间时间datetime是是否划价是否划价Char是表3.5科室信息表字段名称标始名称数据类型是否允许为空字段说明科室名称科室名称nvarChar否地点地点nvarChar是员工号员工号Int是外码科室编号科室编号Char是主码科室主任科室主任Char是病房数病房数int是表3.6药剂信息表字段名称标始名称数据类型是否允许为空字段说明药品编号药品编号Int否主码药品名称药品名称nvarchar否规格名称规格名称Char是单价单价Char是主治症状主治症状nvarchar是所属药房所属药房Char是药品数量药品数量flaot是表3.7仪器信息表字段名称标始名称数据类型是否允许为空字段说明仪器代号仪器代号Int否主码仪器名称仪器名称nvarChar是仪器价格仪器价格Char是仪器数量仪器数量int是所属科室所属科室nvarChar是表3.8员工信息表字段名称标始名称数据类型是否允许为空字段说明员工号员工号int否主码姓名姓名Char是性别性别Char是年龄年龄Smallint是所属科室所属科室nvarChar是现任职务现任职务nvarChar是开始工作时间开始工作时间datetime是工资工资float是科室编号科室编号int否外码备注备注nvarChar是4医院管理信息系统程序设计（部分代码）4.1欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。4.2登陆界面 进入此界面后，使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆，管理员选择管理员登陆。4.3用户登陆和新用户注册界面程序设计普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下Private Sub Command1_Click()Dim strselectname As StringDim str As StringDim strselectpassword As Stringstr = Trim(Text1.Text)strselectname = select 用户名 from user1 where 用户名= & & str & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chenyan;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectname 从用户信息表中查询所有的用户姓名Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then ret = MsgBox(姓名错误！, 48, warming!) 如果用户输入的姓名与用户信息表中姓名不一致，就会出现该对话框提醒用户重新输入 Text1.Text = Text2.Text = Exit SubEnd Ifstrselectpassword = select 密码 from user1 where 用户名= & & Trim(Text1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chenyan;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.Refresh If Trim(Adodc1.Recordset.Fields(密码).Value) Trim(Text2.Text) Then ret = MsgBox(密码错误！, 48, warming!) 如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框 Text2.Text = Text2.SetFocus Exit Sub Else Text1.Text = Text2.Text = form2.Hide form1.Show End If End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = form2.HideForm20.ShowEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）Private Sub Command1_Click()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chenyan;Data Source=(local)Adodc1.CommandType = adCmdTableAdodc1.RecordSource = select 用户名 from user1 where 用户名 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text1.SetFocus Exit SubEnd IfIf Text1.Text = Or Text2.Text = Or Text3.Text = ThenMsgBox 请输入用户名或密码, 0, 提示ElseIf Text2.Text Text3.Text ThenMsgBox 确认密码错误，请重新输入, 0, 提示Text1.Text = Text2.Text = Text3.Text = ElseMsgBox 恭喜你注册成功Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chenyan;Data Source=(local)Adodc1.CommandType = adCmdTableAdodc1.RecordSource = user1Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(密码).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(用户类型).Value = 用户Adodc1.Recordset.UpdateText1.Text = Text2.Text = Text3.Text = End IfExit SubEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Form16.Hideform1.ShowEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = End Sub4.4管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。4.5用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了5种服务，分别是“医疗信息模块（病院病床查询，药剂信息查询，科室信息查询）”，“人员信息模块（病人资料登记，职工信息查询）”，“门诊挂号登记”，“用户留言板”和“本用户的密码修改”，。4.6用户密码修改界面程序设计用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）4.7管理员服务界面管理员登陆进去后，可以到管理员服务界面选择自己所需的服务，该界面为用户提供了5种服务，分别是“医疗信息模块（病院病床管理，仪器信息管理，科室信息管理）”，“人员信息模块（病人资料管理，职工信息管理）”，“用户信息管理”， “药剂信息管理” ，“用户留言板”和“管理员的密码修改”，。4.8病人资料登记界面用户可通过此界面所提供的内容登记自己的内容。所有的信息通过Adodc控件和相应的数据库连接起来，设置相应的属性后所有信息便可存入数据库中。4.9职工信息的查询界面该界面所用的控件Adodc控件与数据库联系在一起，用户根据提供的查询条件选择查询的职工。4.10病人信息的查询界面 该界面所用的控件Adodc控件与数据库联系在一起，用户通过输入证件号码查询相应的病人信息。4.11病院病床的查询界面该界面所用的控件Adodc控件与数据库联系在一起，用户想要查看的信息也会显示各文本框中。4.12科室信息查询界面该界面所用的控件datagrid ,Adodc控件与数据库联系在一起，用户想要查看的信息也会显示在datagrid中。4.13药剂信息查询及选购界面该界面所用的控件datagrid ,Adodc控件与数据库联系在一起，用户想要查看的信息也会显示在datagrid中。4.14门诊挂号登记界面用户可通过此界面所提供的内容登记自己的内容。所有的信息通过Adodc控件和相应的数据库连接起来，设置相应的属性后所有信息便可存入数据库中。4.15药剂管理界面程序设计管理员在此界面可查看药剂存放的情况，而且能根据需要进行添加，删除和修改。（代码如略）4.16职工管理界面程序设计管理员在此界面可查看工作人员的情况，而且能根据需要进行增加，删除和修改。（代码如略）4.17用户管理界面程序设计管理员在此界面可查看用户的情况，而且能根据需要进行增加，删除和修改。（代码如略）4.18病床管理界面程序设计