住院病人管理系统

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.住院病人管理系统【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.沈阳航空航天大学课课 程程 设设 计计 报报 告告课程设计名称：软件综合课程设计软件综合课程设计课程设计题目：病人住院管理病人住院管理 院（系）：计算机学院专 业： 班 级： 学 号： 姓 名： 指导教师： 完成日期： 2011年09月09日【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.目目 录录1 系统分析.11.1 需求分析.11.2 开发工具.11.2.1VISUAL BASIC .2MICROSOFT OFFI

2、CE ACCESS.22 概要设计.42.1 数据库概念结构设计.42.2 系统模块设计.63 详细设计.73.1 数据库逻辑结构设计.73.2 系统子模块设计.83.2.1 编写全局变量和通用过程.83.2.2 用户管理模块.103.2.3 病人资料管理模块.103.2.4 费用输入模块.134 调试分析.155 测试及运行结果.165.1 用户登陆界面.165.2 用户管理界面.175.3 病人资料管理界面.18参考文献.21附 录.22【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档. 1 系统分析1.1 需求分析需求分析实现一个病人住院管理系统，系统可以连接数据库。病人入

3、院时，住在指定科室的病房（如外科、内科、儿科等） ，到每个病人有一个主治医生负责，可以选择单人间和三人间病房，如果选择三人间病房，床位由系统分配。入院时通过该系统将病人的信息添加数据库中。当病人出院时计算住院期间的费用（药费、床费、餐费等） 。系统能够按照病人、病房、主治医生进行查询，所以查询模块至少有三个界面分别显示相关信息。1.2 开发工具开发工具1.2.1Visual Basic 6.0Visual Basic 是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB 都是世界上使用人数最多的语言不仅是盛赞 VB 的开发者还是抱怨 VB 的开发者的数量。它源自于 B

4、ASIC 编程语言。VB 拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO 连接数据库，或者轻松的创建 ActiveX 控件。程序员可以轻松的使用 VB 提供的组件快速建立一个应用程序。VB 使用了可以简单建立应用程序的 GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB 程序的性能问题一直被放在了桌 面上，但是随着计算机速度的飞速增加，关于性能的争论已

5、经越来越少 。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮 )。每个控件都有自己的属性和事件。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB 的程序可以包含一个

6、或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。 VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样， VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。1.2.2Microso

7、ft Office AccessMicrosoft Office Access（前名 Microsoft Access）是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的成员之一。其实 Access 也是微软公司另一个通讯程序的名字，想与 ProComm 以及其他类似程序来竞争。可是事后微软证实这是个失败计划，并且将它中止。数年后他们把名字重新命名于数据库软件。Access 在 2000 年的时候成为了计算机等级考试中的计算机二级的一种数据库语言并且因为它的易学易用的特点正

8、逐步取代传统的 VFP 成为二级中最受欢迎的数据库语言。Access 是微软公司推出的基于 Windows 的桌面关系数据库管理系统（RDBMS，即 Relational Database Management System） ，是 Office 系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块 7 种用来建立数据库系【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 Acc

9、ess 能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的进阶用户则能使用它来开发简单的应用软件。虽然它支援部分面向对象（OOP）技术，但是未能成为一种完整的面向对象开发工具。与一般的 RDBMS 完全不同，它缺乏数据库触发和预存程序。自从MS Access 2000 (Jet 4.0)，开发人员可以在查询中设定参数，这跟预存程序很相似的，但这些 “预存程序”只能处理一个程序当资料表内数据发生变化时，它确实允许形式包含

10、被引发的代码，使用是普通的透过查询和其他技术在进入营运储存的程序在方面 RDBMS 支援这些的。进入可提供的编程语言，当时在另一个内产品Microsoft Office 家具，微软公司应用的 Visual Basic。两个数据库进入 信息库 COM 组成部分被提供：这笔遗产数据存取物体 (DAO)，用进入和新只可提供 ActiveX 数据对象(忙乱)。Microsoft Access 容易被应用于小的工程，但是如果设计的不好对大工程是无用的。全部数据库质问，形式和报告被储存在数据库里，并且与相关的模型的理想协调，没有与他们做一个身体上组织的阶层的可能性。一种设计技术是把进入应用在数据和计划之间

11、进行分发。一个数据库应该只包含桌子和关系，当另一个将有全部计划时，形式，报告和质问和对第一个数据库桌子的连接。令人遗憾，当连结时，进入允许没有有关的道路，因此那些发展环境作为这种生产环境有相同的道路应该(虽然你写你们自己的能动态连接程序常规在里 VBA 那搜出能一定背面结束档案以透过这个目录树搜寻，如果它发现这条电流通路它不能)。 这种技术也允许开发者在不同的档案中分申请，因此一些架构是可能的。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.2 概要设计2.1 数据库概念结构设计数据库概念结构设计本系统包括的实体主要有病人、科室、病房、医生、费用等。下面分别介绍各实体的 E-R

12、 图，通过 E-R 图可以了解各实体的属性。科室实体的属性图如图 2.1 所示。科室开始科室名称编号图图 2.12.1 科室实体的属性图科室实体的属性图病房实体的属性图如图 2.2 所示。病房开始编号病房类型床费图图 2.22.2 病房实体的属性图病房实体的属性图医生实体的属性图如图 2.3 所示。医生开始编号医生姓名图图 2.32.3 医生实体的属性图医生实体的属性图病人实体的属性图如图 2.4 所示。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.病人开始编号姓名身份证性别备注图图 2.22.2 病人实体的属性图病人实体的属性图费用实体的 E-R 图如图 2.5 所示。费用

13、开始药费总计结算床费餐费日期基本费用编号图图 2.52.5 费用实体的属性图费用实体的属性图实体间的 E-R 图如图 2.6 所示。病人入院时，根据病人情况选择科室和病房，每个科室有多个病人就诊，每个病房可以住多个病人。一个病人由一个医生负责，作为该病人的主治医生，每个医生可能负责多个病人。病人住院期间的费用根据时间日期来计算。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.病人开始科室开始医生开始费用开始病房开始花费属于属于治疗日期1n1nmnmn图图 2.62.6 实体间的实体间的 E-RE-R 图图2.2 系统模块设计系统模块设计整个系统可分为三个模块进行设计，主要包括病

14、人基本信息管理，费用数据录入、查询，病人、病房、主治医生查询，系统管理等部分，系统模块图如图2.7 所示。病人住院管理系统开始数据处理模块开始查询模块开始系统功能模块费用输入病人资料管理用户管理数据备份数据恢复病房查询病人查询主治医生查询图图 2.72.7 系统模块图系统模块图【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.3 详细设计3.1 数据库逻辑结构设计数据库逻辑结构设计本系统共建立六张表：科室表、病房表、医生表、病人表、费用表、操作员表。以下分别列出各表的字段说明。科室表：用于保存医院中各科室的信息。在系统中只使用科室编号和名称，将其单独列出一张表可方便用户修改科室。

15、各字段参数如表 3.1 所示。表表 3.13.1 科室表科室表字段名称数据类型字段大小是否主键说明ID自动编号是科室编号科室文本20否科室名称病房表：用于保存病房信息。包括病房编号、类型，以及不同类型病房床费。其中病房类型分为单人间和三人间，且不同房间所需床费不同。各字段参数如表3.2 所示。表表 3.23.2 病房表病房表字段名称数据类型字段大小是否主键说明ID自动编号是病房编号病房文本20否病房类型床费货币否床费医生表：用于医院所有医生的信息。病人需要医生开药来计算药费，所以将药费作为医生的一个属性。各字段参数如表 3.3 所示。表表 3.33.3 医生表医生表字段名称数据类型字段大小是否

16、主键说明ID自动编号是医生编号医生文本15否医生姓名药费货币否开药药费病房表：用于保存病人基本信息。包括病人编号、姓名、性别、身份证号码、入院时间、科室、病房、主治医生及入院时所需缴纳的基本费用。其中科室、病房和医生均是各实体的编号。各字段参数如表 3.4 所示。表表 3.43.4 病人表病人表字段名称数据类型字段大小是否主键说明ID自动编号是病人编号姓名文本10否病人姓名【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.身份证文本15否身份证性别文本2否性别入院时间日期/时间否入院时间科室数字否科室编号病房数字否病房编号医生数字否医生编号基本费用货币否基本费用备注备注备注信息费

17、用表：用于保存病人住院期间的费用。由于需要按病人查询费用，所以包含了病人 ID。各字段参数如表 3.5 所示。表表 3.53.5 费用表费用表字段名称数据类型字段大小是否主键说明ID自动编号是序号病人 ID长整型否病人编号日期日期/时间否费用日期基本费用货币否基本费用床费货币否床费药费货币否药费餐费货币否餐费总计货币否总计结算货币否结算操作员表：用于保存操作本系统人员的登录名、密码等信息。各字段参数如表 3.6 所示。表表 3.63.6 操作员表（操作员表（UserUser）字段名称数据类型字段大小是否主键说明Name文本15是登录名PWD文本16否登录密码UserClass字节否用户类型3.

18、2 系统子模块设计系统子模块设计3.2.1 编写全局变量和通用过程编写全局变量和通用过程在由应用程序向导创建的程序框架中，创建了一个模块文件“Module1.bas” ，在该模块中有一个名为“Sub Main”的过程，用来启动应用程序。在该模块中还定义了一下全局变量和通用过程，供其他模块使用。下面的过程用来执行针对数据库的操作，如创建/释放数据库连接，运行查询等。Public Sub Connect() 连接数据库 If IsConnect = True Then 如果连接标记为真，则返回。否则会出错【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档. Exit Sub End I

19、f Set cnn = New ADODB.Connection 关键 New 用于创建新对象 cnn cnn.ConnectionString = Conn 设置连接字符串 ConnectionString 属性 cnn.Open 打开到数据库的连接 If cnn.State adStateOpen Then 判断连接的状态 MsgBox 数据库连接失败, vbOKOnly + vbCritical, 警告 如果连接不成功，则显示提示信息，退出程序 End End If IsConnect = True 设置连接标记，表示已经连接到数据库End SubPublic Sub Disconnec

20、t() 断开与数据库的连接 Dim rc As Long If IsConnect = False Then Exit Sub 如果连接标记为假，标明已经断开连接，则直接返回 cnn.Close 关闭连接 Set cnn = Nothing IsConnect = FalseEnd SubPublic Sub SQLExt(ByVal strSQLstmt As String) 执行数据库操作语句 Dim cmd As New ADODB.Command 创建 Command 对象 cmd Connect 连接到数据库 Set cmd.ActiveConnection = cnn 设置 cmd

21、 的 ActiveConnection 属性，指定与其关联的数据库连接 cmd.CommandText = strSQLstmt 设置要执行的命令文本 cmd.Execute Set cmd = Nothing Disconnect【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.End Sub3.2.2 用户管理模块用户管理模块用户管理是大多数信息管理系统中都需要的功能，将用户管理的功能设置为一个类，可提高代码的可重用性。用户管理类模块名称为“clsUser” ，基本流程如图 3.1。开始初始化数据调用 SQLExt 过程执行 SQL 语句结束查找指定用户图图 3.13.1 用

22、户管理模块流程图用户管理模块流程图3.2.3 病人资料管理模块病人资料管理模块病人资料管理模块是本系统的核心，包括病人资料的增加、修改、删除等功能的实现，可以在对话框中对病人资料进行管理并连接到数据库中。 “增加”按钮有两种状态，当该按钮病人入院时，进入该模块点击“增加”按钮，可以增加一个病人，将病人的基本信息输入，并添加到数据库的病人表中，其流程如图3.2。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.从科室表中获取数据从病房表中获取数据SQL 语句结束从医生表中获取数据定义 SQL 语句SQL 语句刷新 ADO 控件数据SQL 语句设置 DataGrid1 控件显示 AD

23、O 控件中的数据SQL 语句数据是否读取完毕设置 ADO 控件连接字符串为全局变量SQL 语句计数器加 1SQL 语句是程序停止运行，返回 false否开始图图 3.23.2 病人资料管理模块增加事件流程图病人资料管理模块增加事件流程图病人入院后可能会更换病房或者出现其他变动，所以在该模块还需要实现病人资料的即时更新。当在 DataGrid 表格中选中一个病人记录时， “增加”按钮的【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.标题将改变为“修改” ，此时单击该按钮将修改选中记录的数据，具体流程如图3.3。开始禁止使用“删除”按钮调用 Status 过程允许用户操作窗体各控件

24、SQL 语句结束清除数据检查用户输入或修改的数据SQL 语句刷新 ADO 控件数据SQL 语句调用 Status 过程禁止用户操作窗体中的控件SQL 语句输入数据SQL 语句数据是否输入完毕是否图图 3.33.3 病人资料管理模块修改事件流程图病人资料管理模块修改事件流程图为了方便查询，只显示住院病人资料，若病人出院，需要将该病人的资料删除，及时更新数据库，进入该模块点击“删除”按钮，可以将病人的基本信息删【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.除，其流程如图 3.4。开始结束显示提示信息SQL 语句刷新数据SQL 语句病人编号大于 0是否为添加状态删除 SQL 语句S

25、QL 语句执行 SQL 语句SQL 语句是是否否图图 3.43.4 病人资料管理模块删除事件流程图病人资料管理模块删除事件流程图3.2.4 费用输入模块费用输入模块费用输入模块主要用来录入病人指定时间的费用。为减少录入工作量，减少录入错误，使用列表框显示病人姓名，系统将自动填充病人的基本费用、床费、药费，用户也可以修改这些自动填充的数据。对于最终的结算数据，既可手工输入，也可单击右侧的“C” （计算）按钮自动计算。其主要流程如图 3.5。【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.开始从病房表中获取数据从病人表中获取数据SQL 语句结束从医生表中获取数据调用 status

26、过程禁止用户操作窗体控件SQL 语句将当前记录中“病人 ID”保存到变量 id 中SQL 语句在病人数组中逐个判断SQL 语句数据是否读取完毕设置 ADO 控件连接字符串SQL 语句将病人姓名添加到组合框中SQL 语句是否图图 3.53.5 费用输入模块流程图费用输入模块流程图【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.4 调试分析 (1) 信息不能全部显示问题描述：数据文件输出到 text 控件中输出数据不能全部显示。问题分析： text 控件中且数据量比较大，窗体不够大，所以不能全部显示。解决方法：比较简单的方法就是把数据放到一个文本框（text）里，并在其中加上水平和

27、垂直滚动条。具体实现步骤为：先在窗体（form）里加入一个文本框，采用默认名 text1；然后，设置文本框 text1 的属性：text 属性设置为空，multiline 属性设置为 true，scrollbars 属性设置为 3both；接着添加一段 vb 代码即可。(2) 运行出错问题描述：运行点击病人资料时出错，调试时在设置 ADO 控件连接字符串为全局变量 Conn 一行出错。问题分析：指示出错行并未有问题，可能原因是前面定义 SQL 语句时出错。经检查分析，SELECT 语句中医生表中并未出现“主治医生”这一参数。解决方法：将 SELECT 语句中“主治医生”改为“医生” 。修改后的

28、SELECT 语句如下： strSQL2 = SELECT a.ID,姓名,d.科室,性别,身份证,入院时间,b.病房,c.医生,基本费用,备注 strSQL2 = strSQL2 & FROM 病人表 a,病房表 b,医生表 c,科室表 d strSQL2 = strSQL2 & WHERE a.病房=b.ID AND a.医生=c.ID AND a.科室=d.ID【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.5 测试及运行结果5.1 用户登陆界面用户登陆界面在 VB6 开发环境中，选择菜单“运行/启动”命令，将显示登陆窗体，如图 5.1所示。图图 5.15

29、.1 用户登陆窗体用户登陆窗体在登录窗体中单击“确定”按钮，即可进入系统主窗体，如图 5.2 所示。图图 5.25.2 系统主窗体系统主窗体5.2 用户管理界面用户管理界面在系统主窗体中“系统/用户管理”或点击“用户”按钮，可以进入用户管理界面，如图 5.3 所示。图图 5.35.3 用户管理窗体用户管理窗体单击“添加用户”按钮，管理员和操作员都可以添加新用户，如图 5.4 所示。图图 5.45.4 添加用户窗体添加用户窗体单击“修改用户”按钮，管理员可以修改用户，如图 5.5 所示。图图 5.55.5 修改用户窗体修改用户窗体5.3 病人资料管理界面病人资料管理界面在系统主窗体中“数据/病人

30、资料” ，可以进入病人资料管理界面。操作员可以对病人资料进行添加、修改、删除等操作，并且可以直观显示在界面的表格中。如图 5.6 所示。图图 5.65.6 病人资料管理界面病人资料管理界面输入新的入院病人资料，单击“添加”按钮，添加时界面显示如图 5.7 所示。图图 5.75.7 添加病人资料显示界面添加病人资料显示界面新入院病人资料已添加到数据库中，添加后界面显示如图 5.8 所示。图图 5.85.8 添加后病人资料显示界面添加后病人资料显示界面单击“删除”按钮，弹出对话框如图 5.9 所示。图图 5.95.9 弹出对话框弹出对话框选择“是” ，可将该用户从数据库中删除，删除后显示界面如图

31、5.10 所示。图图 5.105.10 删除后病人资料显示界面删除后病人资料显示界面【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档.参考文献1 Visual Basic 课程设计案例精编M.北京:清华大学出版社,20072 Visual Basic 项目案例开发实例自学手册M.北京:人民邮电出版社,20083 Visual Basic 完全自学手册M.北京:机械工业出版社,20094 30 天学通 Visual Basic 项目案例开发M.北京:电子工业出版社,20095 Visual Basic 从入门到精通M.北京:人民邮电出版社,2010【精品文档】如有侵权，请联系网站删

32、除，仅供学习与交流.精品文档.附 录主要源程序清单：Private Sub MDIForm_Load() Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000) Me.Top = GetSetting(App.Title, Settings, MainTop, 1000) Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500) Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500) LoadNewDocE

33、nd SubPrivate Sub MDIForm_Unload(Cancel As Integer) If Me.WindowState vbMinimized Then SaveSetting App.Title, Settings, MainLeft, Me.Left SaveSetting App.Title, Settings, MainTop, Me.Top SaveSetting App.Title, Settings, MainWidth, Me.Width SaveSetting App.Title, Settings, MainHeight, Me.Height End I

34、fEnd SubPrivate Sub mnuDataEmp_Click() frmEmp.ShowEnd SubPrivate Sub mnuDataInput_Click() frmInput.ShowEnd SubPrivate Sub mnuDataRef_Click() frmDataRef.ShowEnd SubPrivate Sub mnuQueryFind_Click() frmSearchName.ShowEnd SubPrivate Sub mnuReportEmp_Click() frmReportEmp.ShowEnd SubPrivate Sub mnuReportP

35、ay_Click() frmReportPay.ShowEnd SubPrivate Sub mnuSysBack_Click() Dim strSoureFile As String, strDestFile As String, iRet As Integer On Error Resume Next strSoureFile = App.Path & strDB 源数据库文件【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档. strDestFile = App.Path & BAKDATA.BAK 备份文件 If Trim(strDestFile) = Th

36、en Exit Sub If Dir(strDestFile) Then 文件存在 iRet = MsgBox(Dir(strDestFile) & 文件已经存在，是否替换？, vbYesNo, 警告) If iRet = vbNo Then Exit Sub End If End If Dim buff() As Byte, i As Long 定义缓冲区 i = FileLen(strSoureFile) ReDim buff(i - 1) Open strSoureFile For Binary As #1 打开源文件 Get #1, , buff 读取数据到缓冲区 Close

37、#1 关闭文件 Open strDestFile For Binary As #1 打开目标文件 Put #1, , buff 输入缓冲区到目标文件 Close #1 MsgBox 数据库备份完成！, vbInformation + vbOKOnly, 提示End SubPrivate Sub mnuSysPWD_Click() With frmUserEdit .Caption = 修改密码 .strOldUser = CurUser.strName .txtUserName.Text = CurUser.strName If CurUser.iUserClass = 1 Then .cmb

38、UserClass.AddItem 管理员 Else .cmbUserClass.AddItem 操作员 End If .cmbUserClass.ListIndex = 0 .cmbUserClass.Enabled = False .txtUserName.Enabled = False 不允许修改用户名 .bModify = True .Show End WithEnd SubPrivate Sub mnuSysQuit_Click() Dim yn As String yn = MsgBox(确定要退出系统吗？, vbYesNo, 退出确定) If yn = vbYes Then Un

39、load MeEnd SubPrivate Sub mnuSysRest_Click() Dim strSoureFile As String, strDestFile As String【精品文档】如有侵权，请联系网站删除，仅供学习与交流.精品文档. Dim buff() As Byte, i As Long, iRet As Integer On Error Resume Next strSoureFile = App.Path + BAKDATA.BAK strDestFile = App.Path + strDB If Dir(strSoureFile) = Then MsgBox 没有发现可以恢复的数据库！, vbOKOnly + vbCritical, 警告 Else