《病房管理系统.doc》由会员分享，可在线阅读，更多相关《病房管理系统.doc（46页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流病房管理系统.精品文档.目 录课程设计任务一览表2课程设计报告3一、引言41.1 项目的开发背景41.2 可行性分析4 技术可行性4 经济可行性4 操作可行性4二、需求分析52.1 系统需求描述52.2.3 系统功能结构图92.2.4 实体E-R图92.2.5 性能分析11三、数据库设计123.1、概念模型设计123.2 E-R图转为逻辑模型的方法及过程123.3 逻辑模型133.4 数据库评价173.4.1 数据库物理评价173.4.2 数据库的规范化18五、 编码实现19一、登录模块191 功能简介192 基本设计实现203 具体代码21
2、二 添加模块221 功能简介222 基本设计实现263 具体代码26三、修改模块291 功能简介292 基本设计实现313 具体实现31四 查询模块331 功能简介332 基本设计实现353 具体代码36五 信息的删除模块381 功能简介382 基本设计实现393 具体代码39六 出院模块以及费用的统计401 功能简介412 基本设计实现413 具体代码42六 结束语44课 程 设 计 总 结 表45课程设计任务一览表序号课程设计任务名称设计专题任务描述（可附页）1设计一个数据库应用程序从拟选题目目录里选定或自选一个选题，完成数据库的设计及代码实现，程序设计语言不限，但需是数据库应用程序。23
3、4指导用书:_ Visual Basic 数据库应用开发教程 课程设计报告设计项目编 号1名 称医院病房管理系统主要仪器设备Pc机附属设备无主要使用软件Visual Basic 6.0Access 2000起止时间2011年3月1日6月7日同组人无课程设计任务书一、引言 1.1 项目的开发背景随着医院规模的大型化，传统的医院靠人工管理的方式已经越来越不适应现代医院的规模了。而且随着电脑的普及及电脑性能的提高，使用电脑来管理医院的常规运作已经成为必然。同时，用电脑进行管理可以大大的节约劳动力降低医院的成本，降低人为的误操作，可以节约资源，降低成本，同时大大的提高工作效率，给医院和病人同时带来巨大
4、的方便。本系统就是在这个背景下开发的，将先进的电脑技术和现代医院的管理完美的结合起来，完成以前需要大量人工才能完成的任务，实现医院病房的管理，使得医疗和服务更加简洁和便捷。1.2 可行性分析 技术可行性硬件、软件要求不高，目前市场上的一般计算机软硬件资源均能满足系统开发需要。该管理系统以VB和Access为主要开发工具，通过ADO方式与后台数据库Access相连接，建立了一个基于客户端的数据库应用管理系统。维护工作方便，由于Access的易用性，使得后台的操作十分便捷，操作人员可以在短时间内完全掌握系统的维护工作。 经济可行性本系统主要作用于医院内部服务，对于每个住院部门，可以根据自己需要，配
5、置性能一般的计算机做为终端，向服务器存储数据或搜索数据。这样可以节省工作人员的数量，节约一定的成本。这些电脑的费用对整个住院系统来说并不是一个很重点负担。 操作可行性本系统，使用Access作为后台数据库管理，而这个数据库恰好适合简单的中小型企业或者医院，作为现代社会的医务管理人员，都会通过基本的计算机考核，掌握计算机的基础应用，有一定的计算机水平，能满足使用该系统的要求能够对数据库进行管理，而前台，我使用VB给用户提供图形化地简单选择性操作，是不同用户也能够进行一些病人住院方面的信息查询，提高工作效率，方便用户，使得医院更透明化。二、需求分析 2.1 系统需求描述随着医院规模的大型化，传统的
6、医院靠人工管理的方式已经越来越不适应现代医院的规模了。而且随着电脑的普及及电脑性能的提高，使用电脑来管理医院的常规运作已经成为必然。同时，用电脑进行管理可以大大的节约劳动力降低医院的成本，降低人为的误操作，大大的提高工作效率，给医院和病人同时带来巨大的方便。本系统就是在这个背景下开发的，将先进的电脑技术和现代医院的管理完美的结合起来，完成以前需要大量人工才能完成的任务，实现了医疗，服务一体的全新概念的服务和管理方式。本系统的业务描述如下：（1） 用户登录模块：用户登录，用户信息的添加、删除和修改，密码管理(密码修改)；（2）病房床位管理模块：床位信息的添加、删除、修改和多条件组合查询，病房管理
7、可以随时查看、修改病房状态信息，便于新病人的入住；（3）病人与医生信息管理模块：更新和维护系统中的病人与医生信息，主要包括对病人、医生信息的查询、修改、插入和删除等的操作；（4）病房床位分配模块：病人住宿床位的分配和对住院情况多条件组合查询。（5） 病人病情治疗登记模块 医生诊断病人的病情，登记病人的治疗信息并存入档案备份，以及档案信息的更新。2.2 数据流图分析和设计 2.2.1系统各模块分析 图2.1 入院 图一：系统总流程图表1：系统总流程图数据字典数据流名 ： 住院登记组 成 ： 病人个人信息+病情与诊断书 病床信息时间数 据 项 ： 病人个人信息组 成 ： 身份证号姓名性别年龄家庭住
8、址联系方式 组 织 ： 身份证数 据 项 ： 病情与诊断书备 注 ： 由主治医生给出病情描述和诊断结果。 数 据 项 ： 病床信息 组 成 ： 房号床位单价状态组 织 ： 房号数 据 项 ： 状态取 值 ： 空床可用 床位已满数 据 项 ： 时间组 成 ： 入住时间预计住院时间2、 病房管理系统 病房信息查询、增加、删除、床位分配情况查询、医生信息查询和病人信息查询 数据处理名：房间查询简述：根据房间信息表，确定是否有空床输入：【1】病人实体，【2】房间信息表输出：【1】无，去处：“病人” 【2】有，登记，去处“病人信息”数据处理名：病人信息处理简述：根据病人过往病历，个人信息，制出本次住院的
9、信息表格输入：【1】病历，【2】病人个人信息输出：病人信息表，去处：“收银”3 、出院子系统出院登记，床位信息修改，病房床位修改。病人缴费结算，病人诊断情况一览表。数据处理名：收银简述：根据后台系统提供的理疗帐单，计算出病人应付的住院费用输入：帐单输出：用户收银条数据处理名：出院报告简述：病人付清住院费用之后，由收银条和本次住院的病历，生成一个本次住院的出院报告，并即时更新房间信息表输入：【1】收银条 【2】新的病历输出：打印出院报告 2.2.3 系统功能结构图2.2.4 实体E-R图（1）用户实体属性图如图1所示：用户名用户信息用户密码用户ID图1 用户信息实体属性图（2）病房实体属性图如图
10、2所示： 图2 病房实体属性图（3） 医生实体属性图如图3所示：图3 医生-病人实体属性图（4） 病房床位信息实体属性图如图4所示：图4 病房床位信息实体属性图（5）科室信息实体图如图5所示：图5 科室信息实体属性图 （6）治疗信息实体图如图所示：图6 治疗信息实体属性表（6）用户信息实体属性如图5所示：病人床位医生病人床位信息治疗就住图6 用户信息实体属性图2.2.5 性能分析系统的性能需求主要从以下几方面来考虑，系统的响应时间，信息速率，操作的难易程度，可靠及性能稳定性，实用性，安全性和可维护性，下面分别从各个方面来说明本系统的各性能需求。 （1）响应时间：本系统的响应时间大概能够控制在0
11、.05-0.1秒左右，基本上可以限制在用户操作的时间约束内。（2）信息速率：在数据的输入和输出方面，用户通过可视界面基本对数据进行输入和输出，且数据的输入和输出速率在用户的可接受范围内。（3)可靠及性能稳定性：系统运行具有较高的可靠性，提供严格的并发控制，确保数据的一致性和正确性。（4）实用性：系统以用户需求为目标、以方便用户使用为原则，从用户的实际需要出发进行系统开发，切实做到满足用户的需求。（5）安全性：系统安全措施可靠、高效、可维护性好，有权限控制、口令控制、临时锁定控制，其中口令录入界面便于系统识别登录用户（6）易用性本系统设计过程中力求人性化，结合强大的搜索功能帮助医生、护士、病人随
12、时查找到所需的信息，同时在数据录入过程中，尽可能减少人工输入部分，降低人工输入错误的可能性。（7）可移植性由于医院整体系统庞大复杂，可以根据需要实际取系统中的部分功能。同时由于数据库采用微软的Access，可以很方便地备数据，转移数据。系统的名称、目标名称：医院病房管理系统目标：(1) 方便医院对病人和病房的管理 (2) 方便医院管理病人的住院费用三、数据库设计 3.1、概念模型设计 图7 医院病房管理系统的大概E-R图 说明：一个病人只能住一个病房，一个床位；病房按照等级划分，不同等级的病房拥有的床位数不一样，该系统将病房划分成两种不同的等级，一种拥有4个床位，一个只有一个。这样划分主要是根
13、据现代医院实际情况来决定的。有些特护病人需要特别照顾则必须选择特殊病房进行特殊照顾。一个科室拥有若干个医生，一个医生只属于某个科室；一名医生可以治疗多名病人，一名病人可以由多个医生看病。 3.2 E-R图转为逻辑模型的方法及过程 关系模型的逻辑结构是一组关系模式的集合。E-R图则是由实体型、实体的属性和实体型之间的联系3个要素组成的。所以将E-R图转换为关系模型实际上就是要将实体型、实体的属性和实体之间的联系转换为关系模式，这种转换一般遵循如下原则： 一个实体型转换为一个关系模式。实体的属性就是关系的属性，实体的码就是关系的码。 对于实体型间的联系则有以下不同的情况： （1）一个1:1联系可以
14、转换为一个独立的关系模式，也可以与任意一端对应的关系模式合并。如果转换为一个独立的关系模式，则与该联系相连的各实体的码以及联系本身的属性均转换为关系的属性，每个实体的码均是该关系的候选码。如果与某一端实体对应的关系模式合并，则需要在该关系模式的属性中加入另一个关系模式的码和联系本身的属性。 （2）一个1：N联系可以转换为一个独立的关系模式，也可以与N端对应的关系模式合并。如果转换为一个独立的关系模式，则与该联系相连的各实体的码以及联系本身的属性均转换为关系的属性，而关系的码为N端实体的码。 （3）一个M：N联系转换为一个关系模式。与该联系相连的各实体的码以及联系本身的属性均转换为关系的属性，各
15、实体的码组成关系的码或关系码得一部分。 （4）3个或3个以上实体间的一个多元联系可以转换为一个关系模式。与该多元联系相连的各实体的码以及联系本身的属性均转换为关系的属性，各实体的码组成关系的码或关系码得一部分。 （5）具有相同码得关系模式可合并。 下面把图7的E-R图转换为关系模式。关系的码用下横线标出。病人（病人编号，姓名，年龄，性别，床位号，所属医生编号、入院日期，出院日期）； 此为病人实体对应的关系模式。该关系模式已经包含了联系“医生”所对应的关系模式。所属医生编号是关系的外码。病房（病房编号，病房类型，价格，床位数，地点）； 此为病房实体的关系模式。病房编号将作为该关系的主码。床位（床
16、位号，所属病房，使用情况）； 此为床位实体对应的关系模式。该关系模式已经包含了联系“病房”所对应的关系模式。所属病房是该病房关系的主属性，是关系的外码。医生（医生编号，姓名，性别，所属科室，学历）； 此为医生对应实体的关系模式。该关系模式包含了联系“科室”所对应的关系模式。所属科室是科室关系的主属性，是该关系的外键。科室（科室编号，科室名，地点，联系电话，科室主任名）。 此为科室对应实体的关系模式。该关系模式的主属性为科室编号。治疗（治疗编号，治疗时间，病人编号，主治医生，病情诊断，治疗费用） 此为病人与医生之间的联系所对应的关系模式。该关系模式包含了“病人”和“医生”所对应的关系模式。病人编
17、号是病人关系的码，主治医生是医生关系的属性。二者为关系的外码。其中治疗编号为关系的码。 3.3 逻辑模型 本系统数据库中包含的表结构设计如表16所示，数据表的实现如图16。表1 用户信息表字段名称数据类型长度是否为空备注用户ID整型6否主键用户名文本6否用户密码文本20否身份文本8否用户信息设置：图8表2 病人信息表字段名称字段类型长度是否为空备注病人编号文本6否主键姓名文本8否性别文本8否床号文本6否外键所属医生编号文本6否外键入院日期日期/时间否出院日期日期/时间否病人信息设置：图9表3病房信息表字段名称字段类型长度是否为空备注病房编号文本6否主键病房类型文本6否价格货币否床位数整型6否地
18、点文本30否病房信息设置： 图10表4 病房床位表字段名称数据类型长度是否为空备注床位编号文本6否主键所属病房文本6否外键使用情况真值1否0空1满床位信息设置： 图11表 5 医生信息表字段名称数据类型长度是否为空备注医生编号文本6否主键姓名文本8否性别文本6否所属科室文本6否学历文本6否医生信息设置：图12表6 科室信息表字段名称数据类型长度是否为空备注科室编号文本6否主键科室名文本6否地点文本30否联系电话文本20否科室主任文本6否科室信息设置：图13表7治疗表字段名称数据类型长度是否为空备注治疗编号文本6否主键治疗时间日期否病人编号文本6否外键病情诊断文本50否治疗费用货币否治疗表情况：
19、图143.4 数据库评价 3.4.1 数据库物理评价 本系统的数据库使用了Access 2000作为本系统的数据库后台管理。ACCESS是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office的成员之一。Access部署简单方便就一个文件运用起来比较灵活主要是桌面数据库系统,他也可以开发基于自己的桌面数据库应用(UI),也可以作为前端开发工具与其它数据库搭配开发应用程序(如SQL Server,DB2,Oracle等)，熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的
20、程序员和非程序员的初级用户则使用它来开发简单的应用软件。 本系统主要是针对中小型医院开发的一个病房管理系统。它采用客户机/服务器的形式，根据规模用access 2000作为本系统的数据库后台管理足以满足系统的要求。而且可以轻松的数据库转移到任何一个存储设备上。 另外，它的时间效率、空间效率都是在管理人员以及系统用户可以接受的范围。最后，采用Access 2000作为系统数据库，它的维护代价不会很高，数据更改很方便，这对于一个中小型医院来说是件很好的事。 但是Access数据库数据储存量小安全性不够高，加了用户级密码容易破解。C/S结构下对服务器要求很高，但是对高强度操作适应性差，如果服务器不够
21、好，网络不够好，编程的方法不够好，不能脱离ACCESS或者ACCESS RUNTIME环境，该环境相对其他软件体积较大（50M左右）。Microsoft Access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。 3.4.2 数据库的规范化 规范化的基本思想是消除关系模式中的数据冗余，消除数据依赖中的不合适的部分，解决数据插入，删除时发生的异常现象。在SCD中，既存在完全函数依赖，又存在部分函数依赖和传递函数依赖。这种情况往往在数据库中是不允许的。也正是关系中存在着复杂的函数依赖，才导致数据操作中出现了种种弊端。克服这种弊端的方
22、法是用投影运算将关系分解，去掉过于复杂的函数依赖关系，向更高一级的范式进行转换。1 第一范式的定义 如果关系数据库R满足每个表的各个字段不可拆分这样的最低要求则称R属于第一范式。 根据定义和系统的各个表可知，本系统数据库满足1NF.2 第二范式的定义 若关系模式R属于1NF，且每一个非主属性的完全依赖于码，则称R属于第二范式。 根据定义查看数据库各张表字段可知本系统数据库满足2NF。 3 第三范式的定义 如果关系模式R属于2NF，且每个非主属性都不传递依赖于R的每个关系键，则称R属于第三范式。 根据数据库即数据库中表可以看出，表的各属性间不存在部分函数依赖和传递依赖，所以该数据库满足3NF。
23、4 BCN范式的定义 如果关系模式R属于1NF，且所有的函数依赖X-Y，决定因素X都包含了R的一个侯选键，则称R属于BCN范式。分析上面的八个关系模式可看出，每个关系模式中，既不存在非主属性对主属性的部分函数依赖，也不存在传递函数依赖，也没有主属性对键的部分依赖。因此，这些关系模式都是BCN范式。五、 编码实现 一、登录模块 1 功能简介 该模块主要用于实现系统的登录。首先用户输入相关的信息，然后系统判断用户输入信息的正确性，如果完全正确则进入系统，如果不正确则用户重新输入直到正确为止，这样保证了系统的安全性，防止了非法用户的登录以及登录后破坏系统的数据。其中密码输入的文本框使用密文进行密码的
24、保护以防范他人篡改。 模块界面设计如图： 图1.1主登录界面 图1.2 系统登录后的主菜单页面 2 基本设计实现 3 具体代码 定义两个变量用来表示数据库表信息Dim rs As New ADODB.RecordsetDim sqlstr As String登录按钮的代码，用来实现登录的功能Private Sub Command1_Click() Dim str As String Dim i As Integer If Trim(Text1.Text = ) Then 判断用户名输入是否为空 MsgBox 没有输入用户，请重新输入！, vbOKOnly + vbExclamation, 提示
25、 Text1.SetFocus End If选择记录 sqlstr = select * from YonghInfo where 用户名= & Text1.Text & 打开数据库连接，设置记录属性 rs.Open sqlstr, Conn, adOpenForwardOnly, adLockOptimistic用于记录用户名和密码输入的次数 If i = 2 Then i = i + 1 If rs.EOF Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 提示 Text1.SetFocus rs.Close End If 判断
26、输入的密码是否正确 If Trim(Text2.Text) = Then MsgBox 密码为空，请输入密码, vbOKOnly + vbExclamation, 提示 Text2.SetFocus Else If rs(用户密码) = Trim(Text2.Text) Then 判断密码正确性 Me.Hide Load Form2 Form2.Show rs.Close Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 提示 Text2.SetFocus Text2.Text = rs.Close End If End If Else
27、 记录输入密码的输入次数，累计到3次则自动结束程序 MsgBox 输入密码次数达到三次，没有机会再使用本系统了！, vbOKOnly + vbExclamation, 提示 rs.Close Me.Hide End If Exit SubEnd“退出”按钮的代码，用于退出系统Private Sub Command2_Click() Unload MeEnd Sub窗体加载时连接数据库Private Sub Form_Load() sqlstr = provider=microsoft.jet.oledb.4.0;data source= & App.Path & db1.mdb Conn.Op
28、en sqlstrEnd Sub二 添加模块 1 功能简介 该模块主要用户添加用户信息、医生信息、病人信息、床位信息。首先从文本框中输入完整的信息，用于系统信息的录入。 界面设计： 图2.1用户信息添加窗口 图2.2 医生信息添加窗口 图2.3病人信息添加窗口 图2.4 床位信息添加窗口2 基本设计实现 3 具体代码 3.1 用户信息添加部分的代码 Private Sub Command1_Click() 连接数据中相应的表记录，设置指针的属性 sqlstr = select * from YonghInfo rs.Open sqlstr, Conn, adOpenKeyset, adLock
29、Pessimistic On Error Resume Next将“删除”设置为不可用 Command3.Enabled = False 判断用户信息输入的完整性，添加用户信息，若不完整的话要重新输入。If rs(用户ID) = Trim(Text1(0).Text) Then MsgBox 用户ID重复,请重新输入!, vbOKOnly + vbExclamation, 提示 利用数组对文本框统一进行赋空值 For i = 0 To 3 Text1(i).Text = Next i Else rs.MoveLast rs.AddNew 开始设置，用Trim函数去掉多余的空格以匹配字段格式。
30、rs(用户ID) = Trim(Text1(0).Text) rs(用户名) = Trim(Text1(1).Text) rs(用户密码) = Trim(Text1(2).Text) rs.Update MsgBox 你已添加用户ID为 & Trim(Text1(0).Text) & Chr$(13) & 用户名为 & Trim(Text1(1).Text) & 的用户信息! rs.MoveNext 使用数组进行统一初始化为空值 For i = 0 To 3 Text1(i).Text = Next i Command3.Enabled = True rs.Close End IfEnd Su
31、b3.2 医生信息添加部分的代码： 该部分主要利用文本框来输入添加的信息，然后可以通过DataGrid控件以及点击刷新按钮来实现查看新添用户的具体信息。Private Sub Command1_Click() 关闭记录 rs.Close 选择医生信息记录 sqlstr = select top 1 * from DocInfo 打开记录，设置记录的属性 rs.Open sqlstr, Conn, adOpenForwardOnly, adLockPessimistic On Error Resume Next 将“删除”、“修改”、“取消”按钮设置为不可用 Command2.Enabled =
32、 Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled 使用数组将文本框赋空值 For i = 0 To 4 Text1(i).Text = Next i开始添加医生信息 If Command1.Caption = 确认 Then rs.MoveLast rs.AddNew rs(医生编号) = Trim(Text1(1).Text) rs(姓名) = Trim(Text1(2).Text) rs(性别) = Trim(Text1(3).Text)
33、 rs(所属科室) = Trim(Text1(4).Text) rs(学历) = Trim(Text1(5).Text) 更新数据库 rs.Update MsgBox (添加成功！请查看！) 关闭数据库 rs.Close End IfEnd Sub其中，界面上面设置了一个刷新按钮，这个按钮的功能是当用户信息添加完毕后为了使得添加的信息显示出来而设置的。具体代码如下: Private Sub Command7_Click() 关闭数据库记录集的连接后再重新打开一遍。 rs.Close sqlstr = select * from DocInfo rs.Open sqlstr, Conn, adO
34、penKeyset, adLockPessimistic 将DataGrid控件的数据源设置为rs. Set DataGrid1.DataSource = rs rs.MoveFirst For i = 0 To 4 Text1(i).Text = rs.Fields(i) Next iEnd Sub3.3 病人信息添加部分的代码： Dim sqlstr As String Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click() sqlstr = select * from PatInfo rs.Open sqlstr, Conn,
35、adOpenKeyset, adLockOptimistic 添加病人信息 If Trim(Text1.Text) = Then MsgBox 没有输入病人病号，请重新输入！, vbOKOnly + vbExclamation, 提示 Text1.SetFocus 病人的编号不能重复，若存在这样的编号则添加不成功，重新输入，不存在这样的编号的话则添加成功。 ElseIf Trim(Text1.Text) = rs.Fields(0) Then MsgBox 该编号已经存在，请重新编号！, vbOKOnly + vbExclamation, 提示 Text1.Text = Text1.SetFo
36、cus Else rs.MoveLast 利用Addnew方法开始输入信息，每个字段都要和相应的文本框对应。 rs.AddNew rs.Fields(0) = Trim(Text1.Text) rs.Fields(1) = Trim(Text2.Text) rs.Fields(2) = Trim(Text3.Text) rs.Fields(3) = Trim(Text4.Text) rs.Fields(4) = Trim(Text5.Text) rs.Fields(5) = Trim(Text6.Text) rs(入院日期) = Trim(Text7.Text) rs(出院日期) = Trim
37、(Text8.Text) rs.Update 添加成功会给出提示，说明添加病人的名字以及编号信息 MsgBox 你已经成功添加编号为： & Trim(Text1.Text) & Chr$(13) & 病人姓名为： & Trim(Text2.Text) & 的病人。 rs.Close End IfEnd Sub 三、修改模块 1 功能简介 该部分主要用于修改用户的信息如密码，修改医生信息、病人信息、床位信息等。 界面设计 图3.1 用户密码的修改2 基本设计实现用户信息表（医生信息表）（病人信息表）（床位信息表）用户信息表（医生信息表）（病人信息表）（床位信息表） 进入界面连接数据库输入信息如用
38、户名床位号等判断信息输入是否正常修改信息，更新数据库是否确定修改取消修改YNYN退出界面3 具体实现用户密码的修改设置连接数据库的字符串、记录集 Dim sqlstr As StringDim rs As New ADODB.Recordset“确认修改”的按钮进行密码的修改Private Sub Command1_Click()选择和输入密码相符的用户记录集信息sqlstr = select top 1 * from YonghInfo where 用户密码= & Text3.Text & rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimisti
39、c判断用户ID是否相符，若不正确则将文本框清空并重新输入If Trim(Text1.Text) rs(用户ID) Then MsgBox 用户ID错误，请重新输入！, vbOKOnly + vbExclamation, 提示 rs.Close Text1.SetFocus Text1.Text = 判断用户名是否相符，只有正确才可以修改。否则清空输入的用户名。ElseIf Trim(Text2.Text) rs(用户名) Then MsgBox 用户名，请重新输入！, vbOKOnly + vbExclamation, 提示 rs.Close Text2.SetFocus Text2.Text = 最后检查原密码是否正确，若正确才能进行修改。 ElseIf Trim(Text3.Text) rs(用户密码) Then MsgBox (密码错误，请重新输入！) Else 获取拥护新密码更新数据库 rs(用户密码) = Text4.Text rs.Update MsgBox (密码修改成功！) 修改成功后清空文本框内容便于继续修改。 Text1.Text = Text2.Text = Text3.Text = Text4.Text = rs.CloseEnd