毕业设计论文VB6.0科研人员信息管理系统含源代码 .doc

《毕业设计论文VB6.0科研人员信息管理系统含源代码 .doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB6.0科研人员信息管理系统含源代码 .doc（87页珍藏版）》请在三一办公上搜索。

1、摘 要摘 要随着市场经济的高速发展，越来越多的机构、企业认识到人员信息的有效管理是机构，企业创作效益、提高水平的有效渠道。而科研机构作为一个特殊的社会机构，推动社会经济发展,促进社会进步，同样面临着人员信息庞大，情况复杂,项目多，安排人员困难的问题, 本文详细介绍了一个专门面向科研机构的信息管理系统的设计流程，该系统的特点是以科研人员为核心、构建针对科研人员和科研项目的信息管理系统，加强了人员管理，提高工作效率，促进科研人员管理手段科学化、规范化、信息化。该系统使用visualBasic编写前台应用程序,可以访问Oracle, SQL Server, FoxPro等多种数据库,通用性强;模块化

2、的功能设计,使其可以很简单的添加新的功能.本文主要介绍的是访问SQL Server数据库。【关键词】 科研机构 科研人员管理系统 人员管理 科研项目管理 Microsoft SQL Server 2000 Microsoft VisualBasic6.0源代码，联系QQ153893706IABSTRACT With the rapid development of market economy, a growing number of institutions, enterprises recognize that effective management of personnel infor

3、mation is the institutions, enterprises create efficiency and enhance the level of the effective channel. And scientific research institutions, as a special social institutions, to promote socio-economic development, promoting social progress, the same information is faced with a huge staff, the sit

4、uation is complex, the project more difficult to arrange the issue, this article details a specialized information for scientific research institutions management system design process, the characteristics of the system is at the core of scientific research personnel and building projects for scient

5、ific research and information management systems, strengthening management, improving the efficiency of personnel management tools to promote scientific research, standardization, and information technology . The system uses the preparation of future applications visualBasic, you can access Oracle,

6、SQL Server, FoxPro and many other databases, high universality; modular design so that it can be very simple to add new features. In this paper, visit the SQL Server database. 目 录目 录第1章 引言1第2章 科研人员信息管理系统的开发平台22.1 开发环境22.2 后台数据库22.2.1 SQL Server 2000简介22.2.2 企业管理器32.3 前台应用程序的开发平台42.3.1 VisualBasic简介4

7、2.3.2 VisualBasic的特点52.3.3 VB连接SQL数据库6第3章 科研人员信息管理总体设计83.1 系统目标设计83.2 系统功能分析83.3 解决方案设计93.4 功能模块设计93.5 数据库设计133.5.1数据库需求分析133.5.2 ER模型分析143.5.3 数据表设计14第4章 详细设计174.1 主窗口模块174.1.1添加主窗口174.1.2添加模块代码234.2 登录与系统模块设计264.3 科研人员定义模块324.3.1增加科研人员324.3.2 修改科研人员404.3.3 查询科研人员484.3.4 删除科研人员554.4 科研项目模块设计584.4.1

8、 添加要研发的科研项目584.4.2 修改要研发的科研项目624.4.3 删除要研发的科研项目634.4.4 查询已研发的科研项目664.4.5 查询正在审核的科研项目694.4.6发成功科研项目724.4 模块测试73第5章 结束语77参 考 文 献78英文资料原文79III第1章 引言第1章 引言随着计算机技术的发展和机构办公自动化的建设，信息化办公已经成为各个企事业单位进行日常管理工作的必然趋势.相对于传统的人工方式的信息管理,利用数据库应用软件来进行信息管理有着十分明显的优点:1. 使用信息管理软件比人工操作有着更高的效率,更为可靠.2. 信息管理软件保密性更强,更安全.3. 信息管理

9、软件可以促进企业实现规范化操作和管理.使用信息管理软件来进行信息管理工作不仅是一种趋势,也是当今社会对高速度,高效率的追求带来的一种必然结果.无论什么行业,在涉及到信息管理之类的工作的时候,使用信息管理软件来进行操作都是最为明智的选择.而当今社会,科学技术已经成为推动社会发展的主要因素之一,科研越来越受到社会的重视.各类型的科研机构纷纷扩大规模,增加人员编制,面向各类科研机构的数据库应用软件需求非常旺盛.而与此同时专门面向科研机构而设计的信息管理系统却很少,因此开发一套适合科研机构使用,能够满足科研机构信息管理需求的信息管理系统软件是一件具有相当价值的事情.在下面的各章中将会介绍一款科研人员信

10、息管理系统的开发设计情况过程,并对相关问题进行讨论和分析.使用信息管理软件来进行信息管理工作不仅是一种趋势,也是当今社会对高速度,高效率的追求带来的一种必然结果.无论什么行业,在涉及到信息管理之类的工作的时候,使用信息管理软件来进行操作都是最为明智的选择. 科研人员信息管理系统使科研管理工作更加规范化、科学化，建设一个科研管理信息系统已显得非常重要。科研人员信息管理信息系统包括科研人员，科研项目管理等，科研人员信息管理系统本着经济、实用、高效的原则，为科研机构提供一个高效、规范、轻松的营销工作环境，满足机构的需要。实现目标如下：1.系统采用人机对话方式，界面美观友好，信息查询灵活、方便、快捷、

11、准确，数据存储安全可靠。2.对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。3.不同的操作员有不同的操作权限，增强了系统的安全性。4.系统最大限度地实现了易安装性、易维护性和易操作性。5.系统运行稳定、安全可靠。1第2章 科研人员信息管理系统的开发平台第2章 科研人员信息管理系统的开发平台2.1 开发环境本系统在设计时采用了基于微软公司Windows XP SP3操作系统的平台,前台客户端程序运用美国著名的微软公司开发的信息系统编程语言visualBasic进行编写,后台数据库系统则是使用了微软公司在大型关系库领域的旗舰产品SQL Server 2000.在当今最为流行的操作系

12、统平台上进行编写工作,开发工具在当今的数据库开发领域使用也是及其广泛,这样可以保证程序能够最大程度上兼容现在大多数工作平台,也使得本系统可以更好的与时代接轨.需要加以说明的是,本系统在设计时虽然采用的是这样的开发环境,但是其中大部分内容在不同的软件版本环境下有一定的通用性.2.2 后台数据库2.2.1 SQL Server 2000简介本系统的后台数据库采用的是微软公司开发的SQL Server 2000,它是目前Windows平台上安装最多的数据库产品之一.SQL Server 2000所代表的不仅仅是一个软件,它和它的相关联产品,如数据仓库软件,内容管理软件等,一起构成了一整套数据库应用和

13、数据分析的解决方案,从而成为广大Windows平台企业用户在电子商务应用领域的首要选择.SQL Server 2000是一个非常典型的客户机/服务器体系结构应用程序.根据各模块功能的不同,SQL Server 2000可以被划分为:客户端组件,服务器端组件和通信组件三部分.本系统主要是利用SQL Server 2000来建立数据库服务器以及对其进行的操作,客户端程序的编写是靠PowerBuilder来实现,所以应用到的主要是其中的服务器端组件和通信组件.其中服务器端组件主要应用到的组件有:.SQL Server 以服务的形式实现,是SQL Server 2000数据库管理系统的核心数据库引擎,

14、管理着系统拥有的所有文件,是系统内唯一可以直接读取和修改数据的组件.主要功能是负责协调和安排客户端服务请求的执行顺序,然后逐一解释和执行SQL指令,并返回执行结果.SQL Server Agent 以服务的形式存在,提供SQL Server的调度服务,通过对其配置和使用,用户可以实现数据库系统的定时,自动管理.由于设计的考虑,本系统没有采用分布式数据库,用来协调和处理分布式事务的MS DTC组件就没有得到应用.SQL Server 2000的客户端组件在本文中主要得到应用的是企业管理器.企业管理器是图形化的集成管理工具,使用企业管理器可以实现SQL Server 2000服务器有效的配置和管理

15、,本文主要利用其来创建和修改数据库服务器.通信组件的分析由于涉及到具体的操作,所以放在后面章节加以介绍.2.2.2 企业管理器本系统对SQL Server 2000的使用主要是通过操作企业管理器来加以实现的,在这里就主要对SQL Server 2000的企业管理器加以简要介绍:SQL Server 2000提供了功能强大而又使用方便的数据库管理工具.其中,企业管理器是最主要的管理工具,绝大部分的数据库管理工作都可以在企业管理器中完成.企业管理器与Windows系统在功能上紧密集成,它以树型结构的形式来管理SQL Server数据库服务器,数据库以及数据库中的对象,能够在单一的控制界面上实现对位

16、于同一企业网络结构中多个SQL Server数据库服务器的有效管理.执行企业管理器的步骤如下:(1)打开”开始”菜单.(2)在Microsoft SQL Server 2000程序组里选择企业管理器.系统将打开企业管理器.在窗口中可以看出,企业管理器使用了类似于资源管理器的树型结构.在左边的树型结构图上,根节点是”控制台根目录”,表示它是所有服务器控制台的根.在第一层节点上有一个默认的节点是Microsoft SQL Servers,所有的SQL Server服务器组都是Microsoft SQL Server节点的子节点.可以在Microsoft SQL Server节点下面,自己定义新的服

17、务器组.服务器组一般按照不同的用途和功能对服务器进行分类.按照模块化管理的原则,所有的服务器都必须按组进行分类.当安装完SQL Server 2000后,系统会默认地提供一个名叫”SQL Server组”的服务器组.刚安装成功的服务器就注册在该服务器组下面.在每个服务器下面是该服务器的所有管理对象和可以执行的管理任务,分为数据库,数据转换服务,管理,安全性,复制,支持服务和元数据服务(Meta Data Services)七大类.在每一类下面又可以进一步进行细分.在企业管理器提供的系统菜单中,工具菜单包含了SQL Server 2000提供的各种管理工具的调用途径.可以通过单击”工具”菜单中的

18、命令,进入实现具体管理功能的管理工具环境中.使用企业管理器是进入其他SQL Server工具的捷径.如果要进入SQL查询分析器来编写Transact-SQL语句或执行存储过程,可以从工具菜单中执行”SQL查询分析器”命令.SQL Server在企业管理器中提供了很多的向导.这些向导,可以用图形化的方式,一步一步地指导用户完成相应地数据库操作.例如:创建存储过程,创建数据库,创建索引等.2.3 前台应用程序的开发平台2.3.1 VisualBasic简介一、Visual Basic是什么？ Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当

19、今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。 何谓 Visual Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其

20、它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。2.3.2 VisualBasic的特点（1）Visual BASIC提供可视化的编程工具 用传统的高级语言编程时，程序的各种功能、用户界面和显示的结果全要由程序语句来实现，这就增加了编程难度。而用Visual BASIC开发应用程序，包括两部分工作：一是设计用户界面

21、，二是编写程序代码。Visual BASIC向程序设计人员提供图形对象（窗体、控件、菜单等）来进行应用程序的界面设计，例如程序人员可以根据用户的需要轻而易举地在屏幕上画出下图的用户界面。Visual BASIC提供的“工具箱”内存放若干个“控件”，程序设计者可以自由地从工具箱中取出所需控件，放到窗体中的指定位置，而不必为此编写程序。也就是说，屏幕上的用户界面是用Visual BASIC提供的可视化设计工具直接“画”出来的，而不是用程序“写出来的”。（2）程序采用“事件驱动“方式 在设计好用户界面后，第二件事是编写程序。Visual BASIC改变了程序的机制，它没有传统意义上的主程序，而由“事

22、件”来驱动子程序的运行。一般来说，每个子程序要实现的功能是单一的，子程序的规模一般不会太大，也就是说，把原来一个统一控制的、包罗万象的大程序分解为许多个独立的、小规模的子程序，分别由各种“事件”来驱动执行，于是编程难度大大降低了。（3）Visual BASIC融入了最新的计算机技术 Visual BASIC的设计者在Visual BASIC中融入了最新的计算机技术，使得用Visual BASIC编程能充分利用了这些最新的技术，例如在多媒体方面的应用、在Internet 方面的应用等。总之，Visual BASIC是面向对象的、结构化的计算机语言。Visual BASIC的界面由一些对象组成，每

23、个对象有若干个属性、方法和事件，程序人员的任务是设计这些对象的事件处理过程。Visual BASIC是一种很容易学习并很快就可以熟练掌握的功能强大的编程语言。运行环境如下：图1-1运行环境界面2.3.3 VB连接SQL数据库1. 数据库连接处理 2. 3. PublicFunctionConnectSybase(sr,db,us,pd,bs)AsBoolean 4. OnErrorGoToErrMsg 5. 判断数据库是否已经打开如果打开则先关闭 6. IfConsb.State=adStateOpenThen 7. Consb.Close 8. EndIf 9.10. DimstrConne

24、ctAsString 11. Consb.ConnectionTimeout=3 12. 13. SelectCasebs 14. Case0: 15. - 16. 连接SQL数据库 17. strConnect=Provider=SQLOLEDB.1;DataSource=&sr&;PersistSecurityInfo=True;UserID=&us&;Password=&pd&;InitialCatalog=&db 83第3章 科研人员信息管理总体设计第3章 科研人员信息管理总体设计3.1 系统目标设计本系统专门面向科研单位以及企事业单位的科研部门的信息管理人员,可以应用于支持科研单位以

25、及企事业单位的科研部门完成人事管理和科研项目管理工作,主要有以下几个目标:支持科研单位或科研部门实现规范化管理.支持科研单位或科研部门实现高效率的人事管理工作,包括新进人员人事档案的建立,员工离开时相关档案的处理,参与科研项目的员工查询等.支持科研单位或科研部门实现高效率的科研项目管理工作,如建立新的科研项目信息档案,根据当前员工工作安排情况为科研项目分配人员,检查科研项目完成情况等.3.2 系统功能分析在系统开发总体目标设计的基础上完成系统功能分析,该信息管理系统应该具有以下功能:员工各种信息的输入,包括员工基本信息,工作相关信息,职称，学历等.员工各种信息的修改.对于转出,辞职,退休员工信

26、息的删除.按照某种条件,查询符合条件的员工信息.科研项目各种信息的输入,包括项目概述,计划工作时间,科研经费，项目参与人员，审核人员等.科研项目各种信息的修改.对于指定科研项目信息的删除.按照某种条件,查询,统计符合条件的科研项目信息.科研项目工作进展情况信息的输入和修改,包括项目人员组成,工作预第3章 科研人员信息管理总体设计计完成时间等.按照某种条件,查询,统计符合条件的项目进展情况信息.3.3 解决方案设计根据前面的项目功能分析，此管理系统对各主要功能模块进行设计，数据也存储至SQL Server 2000建立的数据库，并以Visual Basic6.0作为开发平台，系统总体方案设计流程

27、图如图所示：注销系统退出系统增删管理员修改密码系统登录科研人员信息管理系统系统设置科研人员管理模块科研项目管理模块增加科研人员更改科研人员查询科研人员信息删除科研人员 添加要研发的项目修改要研发的项目删除要研发的项目已研发成功的项目正在审核的项目删除研发成功的项目 .图1-2设计方案流程图3.4 功能模块设计本系统采用了模块化的设计思想,在功能上根据目标设计和功能分析所要达到的要求,考虑到visualBasic特点,因此分为了三大模块,分别是:管理员选项模块科研人员管理模块科研项目安排及查询模块各个模块分别实现人事管理,项目基本信息管理主要功能.本系统所设计的几个主要窗口模块如下：1.登录窗口

28、系统启动时先弹出如图所示的登录信息窗口，供管理员用户输入正确的用户名和密码，才能进入系统。本实例的默认管理员登陆名为“aaa”密码为“aaa”。图1-3登录窗界面2.主程序窗口 主窗口界面用于调用各种功能的主窗口的操作，其上有菜单选项，界面上也放置有各选项对应的快捷按钮可供选择。主窗口如图所示。图1-4主界面图3. 科研人员管理窗口这些都是科研人员基本信息录入，修改，查询和删除等功能窗口。包括了科研人员的名称，编号，科研人员所在地区，电话，名族，学历等等内容。在主窗口菜单栏的“科研人员管理”菜单中选择相关功能按钮，或从主窗口界面上单击对应的快捷按钮，即可弹出相应的子窗口来。例如单击“添加科研人

29、员”选项，将会出现如图2.4所示的基本数据录入窗口此窗口用于建立新的科研人员信息。图1-5添加人员信息界面4. 科研项目管理窗口 科研项目的生成，首先要添加新的科研项目，即生成相应的科研项目单。所以，此类窗口是实现科研项目单的添加，修改和删除功能，以及新的科研项目确定为以研发成功的项目，正在审核的科研项目与删除功能。包括了科研项目ID，起始研发日期，项目代号，类型，名称，审核人名称，联系电话，预计研发时间，研发地点，研发经费和项目负责人等内容。在主窗口菜单栏的“科研项目管理”菜单中选择相关功能按钮，或从主窗口界面上单击对应的快捷按钮，即可弹出相应的子窗口来。例如单击“添加科研项目”选项，将会出

30、现如图所示的项目单基本数据录入窗口。此窗口用于新项目。图1-6添加科研项目界面5. 管理员选项窗口（两个）对管理员账户进行增加，删除操作和密码修改，这在主窗口菜单栏中的“管理员选项”菜单和主窗口界面上都有“增加管理员”图1-7与“修改管理员密码”选项图1-8所示。图1-7添加管理员界面图1-8修改密码界面3.5 数据库设计这里使用了SQL Server 2000作为后台数据库，其数据库的建立与连接方法在前面已经介绍过。3.5.1数据库需求分析根据在系统总体设计中的功能分析和方案设计，可以得到如图1-9所示的整个系统的数据流图情况。可见要建立一些数据来记录以下数据信息： 数据流向 图1-9 科研

31、人员管理系统数据流程图1）登陆基本信息：包括管理员的登录号，登陆密码等。2）科研人员相关信息：包括科研人员代码，名称，职称，电子邮件，电话，学历，政治面貌，名族等。3）项目相关信息：包括项目ID，类型，名称，研发起始日期，审核人名称，研发地点，预计研发经费等等。4）审核人信息：包括审核人ID，审核人姓名，联系电话等。5）项目成品：已研发的项目编号，转换的项目编号等。3.5.2 ER模型分析按照ER实体关系数据模型图的画法，如图所示“科研人员管理系统”的ER模型。科研人员人员ID姓名职称.研发科研项目名单项目ID项目名称预计经费项目类型起始研发日期研发地点审核研发成功的项目审核人员姓名联系电话.

32、审核人ID通过NNNNN 图2-1“科研人员信息管理系统”ER模型分析图3.5.3 数据表设计根据上面数据库分析，我们启动SQL Server 2000来创建一个新的数据库，向里面添加表，如图2-22-2数据库界面1.管理员登录表2.学历表.3.科研人员表4.工作地点表5.审核人员表第4章 详细设计第4章 详细设计4.1 主窗口模块4.1.1添加主窗口1.首先打开Visual Basic 6.0的主设计界面，安提示新建一个“标准的EXE”工程，然后向工程中添加一个form窗口作为将来系统的主窗口，主窗口的属性设置如表1所示表1将此窗口名保存为“mainForm.frm”2. 添加菜单选项向主窗

33、口添加菜单选项，菜单选项的内容如下表2：表23. 向主界面添加控件向主窗口添加控件，使添加后的界面变成上面如图所示那样，主要添加Image、CommandButton、CheckBox、StatusBar和Frame等控件，例举其中一个,如表3：表34. 添加代码（1）在完成主窗口外观设计后，要向主窗口添加必要的初始代码。首先添加的是实现单击界面的快捷按钮，打开相应的子窗口的语句。这些代码如下：Private Sub Check1_Click() If Check1.Value Then 启用或者禁止快捷按钮所在的Frame Frame1.Enabled = False Frame2.Enab

34、led = False Frame3.Enabled = False Else Frame1.Enabled = True Frame2.Enabled = True Frame3.Enabled = True Frame3.Enabled = True End IfEnd SubPrivate Sub Command1_Click() AddAdmin.Show 1 显示增加管理员窗体End SubPrivate Sub Command10_Click() DelSales.Show 1 显示删除科研项目单对话框End SubPrivate Sub Command13_Click() Add

35、Order.Show 1 显示增加科研项目窗体End SubPrivate Sub Command14_Click() FixOrder.Show 1 显示修改科研项目对话框End SubPrivate Sub Command15_Click() QuerySales.Show 1 显示查询科研项目单窗体End SubPrivate Sub Command16_Click() DelOrder.Show 1 显示删除科研项目单对话框End SubPrivate Sub Command2_Click() AdminPass.Show 1 显示修改管理员密码窗体End SubPrivate Sub

36、 Command3_Click() Me.Hide AdminLogin.User.Text = 登录窗体信息清空 AdminLogin.Pass.Text = AdminLogin.Show 显示注销(登录)窗体End SubPrivate Sub Command4_Click() End 退出管理系统End SubPrivate Sub Command5_Click() AddSeller.Show 1 显示增加科研人员对话框End SubPrivate Sub Command6_Click() FixSeller.Show 1 显示修改科研人员对话框End SubPrivate Sub

37、Command7_Click() QuerySeller.Show 1 显示查询科研人员对话框End SubPrivate Sub Command8_Click() DelSeller.Show 1 显示删除科研人员对话框End SubPrivate Sub Command9_Click() EffectSales.Show 1 显示科研项目对话框End Sub（2） 另外，当单击界面上方的菜单栏中的某个选项时，同样可也打开相应的子窗口，代码如下：Private Sub menu_AddAdmin_Click() AddAdmin.Show 1 显示增加科研人员窗体End SubPrivate

38、 Sub menu_AddOrder_Click() AddOrder.Show 1 显示增加科研项目单窗体End SubPrivate Sub menu_AddSeller_Click() AddSeller.Show 1 显示增加科研人员对话框End SubPrivate Sub menu_AdminPass_Click() AdminPass.Show 1 显示修改管理员密码窗体End SubPrivate Sub menu_DelOrder_Click() DelOrder.Show 1 显示删除科研项目对话框End SubPrivate Sub menu_DelSales_Click

39、() DelSales.Show 1 显示删除科研项目对话框End SubPrivate Sub menu_DelSeller_Click() DelSeller.Show 1 显示删除科研人员对话框End SubPrivate Sub menu_EffectSales_Click() EffectSales.Show 1 显示科研项目对话框End SubPrivate Sub menu_Exit_Click() End 退出管理系统End SubPrivate Sub menu_FixOrder_Click() FixOrder.Show 1 显示修改项目对话框End SubPrivate

40、Sub menu_FixSeller_Click() FixSeller.Show 1 显示修改科研人员对话框End SubPrivate Sub menu_Logout_Click() Me.Hide AdminLogin.User.Text = 登录窗体信息清空 AdminLogin.Pass.Text = AdminLogin.Show 显示注销(登录)窗体End SubPrivate Sub menu_QuerySales_Click() QuerySales.Show 1 显示查询科研项目窗体End SubPrivate Sub menu_QuerySeller_Click() Qu

41、erySeller.Show 1 显示查询科研人员对话框End Sub4.1.2添加模块代码建立一个公共函数用于与我们建立的SQL Server数据库进行连接；再建立一个公共函数用于断开与数据库的连接，这两个函数必须能够被各个窗口代码调用。所以我们向工程中添加一个模块，命名为Modulel.代码如下： Option Explicit Public DbFinance As New ADODB.Connection 设置ADODB连接对象的公共变量Public Function DbConnection() As Boolean 打开数据库 Dim e As ADODB.Error Dim st

42、rUserid, strPassword, strInitialCatalog, strDataSource As String Dim fso As New FileSystemObject Dim ts 用于取得登录服务器的信息 On Error GoTo errorhandle 出现任何错误将执行errorhandle进行错误处理 DbConnection = True ConnectDB为真时表示打开数据库无误 DbFinance.Errors.Clear DbFinance.CommandTimeout = 30 执行SQL命令的缺省等待时间 DbFinance.Connection

43、Timeout = 30 连接数据库的缺省时间 Set ts = fso.OpenTextFile(App.Path & zjhConnectionDataBase.ini, ForReading, True, TristateFalse) strUserid = ts.ReadLine 从ini文件中得到连接SqlServer的用户名 strPassword = ts.ReadLine 得到密码 strInitialCatalog = ts.ReadLine 得到数据库名 strDataSource = ts.ReadLine 得到服务器名 ts.Close Set ts = Nothing Set fso = Nothing strUserid = Trim(Mid(strUserid, 8) 从ini文件中得到连接SqlServer的用户名 strPassword = Trim(Mid(strPassword, 10) 得到密码 strInitialCatalog = Trim(Mid(strInitialCat