毕业设计（论文）-VB学生档案管理系统.doc

封面学生信息档案管理系统摘 要 学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成满意的可行系统。系统主要模块：学生信息管理、老师信息管理、系统管理等。关键字：MIS (管理信息系统)、控件、域。SummaryThe system of managing student file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.Keywords:MIS, ActiveX ,Field摘 要ISummaryII1.系统概述11.1 系统及需求分析11.1.1 系统需求11.1.2可行性分析11.2系统设计的背景51.3系统的功能简介81.4系统开发的目标102. 系统分析112.1业务流程分析112.2数据流程分析：132.3数据存储分析：实体联系图142.4功能分析：功能层次图163.系统设计173.1软件模块结构设计1732数据库设计184.系统的功能2341系统登陆界面：2342系统主界面：2643用户管理模块：3844学生缴费管理模块：435.系统的实现5551系统开发环境：555.2系统测试：555.3 系统运行与维护：5854系统的转换方案：596.全文总结60致 谢61参考文献6293第一章系统概述学生档案管理系统能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的。本系统具有较强的实用性和先进性、规范管理、快速查询等特点。1.1 系统及需求分析 通过调查,要求系统需要有以下功能: (1)由于操作人员的计算机知识普遍较差,要求有良好的人机界面； (2)由于该系统的使用对象多,要求有较好的权限管理；(3) 方便的数据查询，支持多条件查询；(4) 在相应的权限下，删除数据方便简单；(5) 辅助功能：如数据库的中断与连接、限定时间内没响应，自动断开数据库连接；(6)文件预览、打印;1.2可行性分析由于本系统管理的对象单一,且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows XP简体中文版操作系统环境下，使用MS Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.3系统的功能简介本系统主要功能：学生信息管理、老师信息管理、系统管理等等。1.3.1 项目规划学生档案管理系统是一个典型的数据库应用程序,由学生档案管理、老师信息管理、系统管理等模块组成。特规划如下:1.3.2系统管理模块(CTRL+O)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)、数据库的连接与断开、文件浏览及打印等等。1.3.3学生信息管理模块（CTRL+P）：该模块的功能是实现对学生信息管理工作，包括：学生添加、学生修改、学生查询等，完成对学生档案信息的规范管理、快速的查询。1.3.4老师信息管理模块（CTRL+T）：该模块的主要功能是实现对老师个人信息的管理工作，包括档案添加、档案修改、档案查询等功能，从而方便对老师信息基本情况的规范管理、快速的查询。1.4系统开发的目标出于本系统是学生档案管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上，其管理界面友好化，增强人机交互性，同时也提高数据的可靠性。第二章系统分析2.1数据流程分析：2.1.1 从学生角度分析2.1.2 从老师角度分析2.1.3 从管理员角度分析2.1.4 技术可行性说明2.2数据流程图：下面仅以学生信息管理模块为例来进行编制：管 理 员老 师学生学 生 档 案 管 理系 统管理员学生老师学生档案查询2.3数据存储分析：实体联系图1、数据模型设计。首先来做出学生信息管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的档案管理系统是由学生、老师、管理员组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生档案与老师档案没有内在联系。2.4功能分析：功能层次图学生档案信息管理系统登 陆学生信息管理老师信息管理系统管理信息录入信息修改信息查询信息删除信息录入信息修改信息查询信息删除密码修改信息打印窗口排列数据库连接第三章系统设计3.1软件模块结构设计3.1.1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：学生信息管理、老师信息管理、系统管理等功能。3.1.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可进行数据输入、修改、查询、浏览、打印等操作。3.1数据库设计数据库采用MS SQL Server 2000数据库，由于SQL Server具有高度的数据安全性，及强大的功能、快速的查询速率、方便管理。3.2.1本系统中所涉及到的主要实体共有三个数据表：学生信息管理表xt_student：学号 姓名 性别 院 系 专业 年级 班级 照片 籍贯 政治面貌 父母姓名 手机 家庭电话 单位电话 获得奖励 惩罚情况 学籍变动情况老师信息管理表xt_teacher：编号 姓名 性别 年龄 籍贯 联系电话 联系地址 院系 职务 职称 备注用户登陆信息表xt_user：序号 用户帐号 用户密码 用户类型3.2.2各表的物理结构如下：xt_student表：字段名称类型宽度是否可为空学号Varchar50否(主键)姓名Varchar50是性别Varchar50是院Varchar50是系Varchar50是专业Varchar50是年级Varchar50是班级Varchar50是照片Varchar200是籍贯Varchar50是政治面貌Varchar50是父母姓名Varchar50是手机Varchar50是家庭电话Varchar50是单位电话Varchar50是家庭住址Varchar200是获得奖励Varchar200是惩罚情况Varchar200是学籍变动情况Varchar50是Xt_teacher表：字段名称类型宽度是否可为空编号Varchar50否(主键)姓名Varchar50是性别Varchar50是年龄Varchar50是籍贯Varchar50是联系电话Varchar50是联系地址Varchar200是院系Varchar50是职务Varchar50是职称Varchar200是备注Varchar200是Xt_user表：字段名称类型宽度是否可为空序号Int自动增加10否(主键)用户帐号Varchar50否用户密码Varchar50是用户类型Varchar50是第四章系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。4.1系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在xt_user表中，本系统根据不同的用户而设置了不同的权限，可以用admin、system、管理员为用户帐户、用户密码、用户类型来登陆本系统（默认）。说明：(1)用户类型包括学生、老师、管理员，即可以选择不同的权限。 (2)用户帐户、用户密码连续5次输入错误，暂时无法登录系统。Dim ll_time As Integer, ll_yhzh, ll_old_yhzh As StringPrivate Sub cmd_exit_Click() Unload MeEnd SubPrivate Sub cmd_login_Click() If Trim(txt_yhzh.Text) = Then MsgBox 用户帐户不能为空!, vbOKOnly, 提示 txt_yhzh.SetFocus Exit Sub End If If Trim(cmb_yhlx.Text) = Then MsgBox 请选择用户类型!, vbOKOnly, 提示 cmb_yhlx.SetFocus Exit Sub End If 步骤2同一用户名5次错误，系统提示 你暂时无法登陆 If ll_old_yhzh = ll_yhzh Then If ll_time = 5 Then MsgBox 你暂时无法登陆，请与管理员联系!, vbDefaultButton1, 提示 Exit Sub End If Else ll_time = 0 End If Str_sql = select * from xt_user where dbo.StrComp(yhmm, & txt_yhmm & )=1 and yhmm= & txt_yhmm & and yhzh= & txt_yhzh & and yhlx= & cmb_yhlx & Set mrc = ExecuteSQL(Str_sql) If mrc.RecordCount 0 Then Ps_yhlx = cmb_yhlx If Ps_yhlx = 学生 Then Ps_xh = txt_yhzh 判断修改是否已经填写过信息 Str_sql = select jg from xt_student where xh= & Ps_xh & Set mrc = ExecuteSQL(Str_sql) If mrc.Fields(jg) = Then Pi_operation = 1 Else Pi_operation = 2 End If frm_student.Show Unload Me Else frm_main.Show Unload Me End If Else 步骤3同一用户名5次错误，系统提示 你暂时无法登陆 If ll_time = 0 Then ll_yhzh = txt_yhzh End If If ll_old_yhzh = ll_yhzh Then ll_time = ll_time + 1 Else ll_time = 0 End If MsgBox 登陆失败,请注意大小写，输入正确的用户名或密码, vbDefaultButton1, 提示 End If End SubPrivate Sub cmd_modify_Click() frm_modify.ShowEnd SubPrivate Sub Form_Activate() Ps_window = frm_loginEnd SubPrivate Sub Form_Load() opertion = Year(Date) If Month(Date) 10 Then opertion = opertion & 0 & Month(Date) Else opertion = opertion & Month(Date) End If If Day(Date) 10 Then opertion = opertion & 0 & Day(Date) Else opertion = opertion & Day(Date) End If nf_login.LoadSkin nf_login.MnuStyleIdx 载入界面样式,为了使界面和菜单对应,所以使用NiceForm的MnuStyleIdx为参数 nf_login.AutoSkinControl 让控件自动设计窗体上的其它Nice控件的界面样式 End SubPrivate Sub txt_yhzh_Change() 步骤1同一用户名5次错误，系统提示 你暂时无法登陆 ll_old_yhzh = txt_yhzhEnd Sub修改用户密码：及源代码：Private Sub cmd_cancle_Click() Unload MeEnd SubPrivate Sub cmd_sure_Click() If Pb_time = True Then If MsgBox( 由于你3分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示 Exit Sub End If If Trim(txt_yhzh.Text) = Then MsgBox 用户帐户不能为空!, vbOKOnly, 提示 txt_yhzh.SetFocus Exit Sub End If If Trim(cmb_yhlx.Text) = Then MsgBox 请选择所在类型!, vbOKOnly, 提示 cmb_yhlx.SetFocus Exit Sub End If If Trim(txt_new_mm.Text) Trim(txt_sure_mm.Text) Then MsgBox 新密码与确认密码不一致,请重新输入!, vbOKOnly, 提示 txt_new_mm.SetFocus Exit Sub End If Str_sql = select * from xt_user where dbo.StrComp(yhmm, & txt_yhmm & )=1 and yhmm= & txt_yhmm & and yhzh= & txt_yhzh & and yhlx= & cmb_yhlx & Set mrc = ExecuteSQL(Str_sql) If mrc.RecordCount 0 Then Str_sql = update xt_user set yhmm= & txt_new_mm & where dbo.StrComp(yhmm, & txt_yhmm & )=1 and yhmm= & txt_yhmm & and yhzh= & txt_yhzh & and yhlx= & cmb_yhlx & Set mrc = ExecuteSQL(Str_sql) MsgBox 修改成功!, vbDefaultButton1, 提示 Else MsgBox 登陆失败,请注意大小写，输入正确的用户名或密码, vbDefaultButton1, 提示 End IfEnd SubPrivate Sub Form_Activate() Ps_window = frm_modifyEnd SubPrivate Sub Form_Load() nf_modify.LoadSkin nf_modify.MnuStyleIdx 载入界面样式,为了使界面和菜单对应,所以使用NiceForm的MnuStyleIdx为参数 nf_modify.AutoSkinControl 让控件自动设计窗体上的其它Nice控件的界面样式End Sub4.2系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有3个功能菜单和11个子菜单（功能模块），从而实现了本系统对学生档案信息管理系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。主界面如下:实现代码:Public Sub cmb_lx_Click() b = init_window(cmb_lx) b = init_xllb(cmb_lx.Text) If cmb_lx = 学生 Then Str_sql = select * from xt_student order by xh ElseIf cmb_lx = 老师 Then Str_sql = select * from xt_teacher order by bh End If Set mrc = ExecuteSQL(Str_sql) b = show_data(cmb_lx.Text) End SubPrivate Sub cmb_lx_DropDown() If Pb_time = True Then If MsgBox( 由于你15分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示 cmd_exit.SetFocus Exit Sub End IfEnd SubPrivate Sub cmd_delete_Click() If Pb_time = True Then If MsgBox( 由于你15分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示 Exit Sub End If 删除操作 If Me.grd_data.Rows = 2 Then MsgBox 当前记录为空,不允许删除!, vbOKOnly + vbExclamation, 提示 Exit Sub Else If Trim(Me.grd_data.TextMatrix(grd_data.Row, 1) = Then MsgBox 请选中你需要进行操作的行!, vbOKOnly + vbExclamation, 提示 Exit Sub Else If MsgBox(确定要删除此记录吗？, vbOKCancel + vbExclamation, 警告) = 1 Then If cmb_lx = 学生 Then Ps_xh = Me.grd_data.TextMatrix(grd_data.Row, 1) Str_sql = select * from xt_student where xh= & Ps_xh & ElseIf cmb_lx = 老师 Then Ps_bh = Me.grd_data.TextMatrix(grd_data.Row, 1) Str_sql = select * from xt_teacher where bh= & Ps_bh & End If Set mrc = ExecuteSQL(Str_sql) If mrc.EOF = False Then mrc.Delete End If Me.grd_data.RemoveItem (grd_data.Row) End If End If End IfEnd SubPrivate Sub cmd_exit_Click() Unload MeEnd SubPrivate Sub cmd_modify_Click() If Pb_time = True Then If MsgBox( 由于你15分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示 Exit Sub End If If Me.grd_data.Rows 2 Then MsgBox 当前记录为空,不允许修改!, vbOKOnly + vbExclamation, 提示 Exit Sub Else If Trim(Me.grd_data.TextMatrix(grd_data.Row, 1) = Then MsgBox 请选中你需要进行操作的行!, vbOKOnly + vbExclamation, 提示 Exit Sub Else 修改标志 Pi_operation = 1 If cmb_lx = 学生 Then Ps_xh = Me.grd_data.TextMatrix(grd_data.Row, 1) frm_student.Show ElseIf cmb_lx = 老师 Then Ps_bh = Me.grd_data.TextMatrix(grd_data.Row, 1) frm_teacher.Show End If End If End IfEnd SubPrivate Sub cmd_newadd_Click() If Pb_time = True Then If MsgBox( 由于你15分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示 Exit Sub End If If cmb_lx = 学生 Then Pi_operation = 0 frm_student.Show ElseIf cmb_lx = 老师 Then Pi_operation = 0 frm_teacher.Show End IfEnd SubPublic Sub cmd_search_Click() If Pb_time = True Then If MsgBox( 由于你15分钟用户对电脑未作任何操作，系统自动断开连接，请问是否要重新连接？, vbQuestion + vbYesNo, 退出系统) = vbNo Then For Each Form In Forms Unload Form Next Form Else Pb_time = False For Each Form In Forms Unload Form Next Form frm_login.Show End If Exit Sub End If If Pi_sjk = 0 Then MsgBox 数据库已经断开,请重新连接, vbDefaultButton1, 提示