数据库档案管理系统毕业论文.doc

数据库档案管理系统毕业论文数据库档案管理系统毕业论文 摘摘 要要I I ABSTRACTABSTRACTIIII 第一章第一章 引言引言 1 1 1.11.1 背景背景1 1 1.1.11.1.1 档案管理系统档案管理系统 1 1 1.21.2 开发档案管理系统的目的和原则开发档案管理系统的目的和原则3 3 1.31.3 开发环境介绍开发环境介绍3 3 1.3.11.3.1 开发平台开发平台4 4 1.3.21.3.2 数据库设计工具数据库设计工具ACCESSACCESS 数据库管理系统数据库管理系统 7 7 第二章第二章 系统设计系统设计9 9 2.12.1 系统分析系统分析 9 9 2.22.2 系统流程和操作方式设计系统流程和操作方式设计1111 第三章第三章 系统界面设计系统界面设计 1212 3.13.1 系统界面设计以及代码分析系统界面设计以及代码分析 1212 第四章第四章 数据库的设计数据库的设计3030 4.14.1 数据库设计数据库设计3030 总总 结结 3939 致致 谢谢4040 参考文献参考文献4141 摘摘 要要 随着经济的发展，社会的进步，计算机越来越深入到我们日常 的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为 人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的 作用。它已经深入到日常工作和生活的方方面面，比如文字处理、 信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。 各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多 复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软 件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发 适合自己特殊需求的软件。以前开发 Windows 应用软件是专业人员 的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在 不同了，即使你没有接受过严格的程序设计训练，使用 Visual Basic 也一样能够开发出功能强大、适合自己特殊需求的应用程序 了。Visual Basic 继承了 Basic 语言易学易用的特点，特别适合于 初学者学习 Windows 系统编程。 档案管理系统用计算机管理档案的一种计算机应用技术的创新, 在计算机还未普及之前档案文件管理都是由工作人员人工存档,调阅 的方式来操作的.现在一般的档案管理都采用计算机智能化管理,采 用计算机作为工具的实用的计算机档案管理程序来帮助档案管理员 进行更有效的档案管理工作。档案管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序 的开发两个方面。对于前者要求建立起数据一致性和完整性强、数 据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特 点。 经过分析,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利 用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而 简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型, 然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户 满意的可行系统。 因为本人能力有限，加上时间紧迫，所以设计出来的本系统可 能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这 些都有待于我在以后的工作学习中进一步改进。 关键字关键字:档案管理,MIS,visual basic ,数据库,Access ABSTRACTABSTRACT With economic development, social progress, the computer and went to work learning and our daily lives, we become an indispensable tool in everyday life. As science and technology continue to improve, computer science increasingly mature, and its powerful functions for the people to deeply understand that it has entered human society in various fields and is playing an increasingly important role. It has to go down to the daily work and life, such as word processing, information management, aided design, graphics and video processing, as well as education and training game entertainment. All people without special training will be able to use computers to complete numerous complex. However, although now the world has been filled with an over-abundance of software, but they still can not meet the special needs of the various users, it also had to develop software suited to their particular needs. Professional Windows application software development before the work is needed in many professional knowledge and competence through special training. Different now, even if you have not received strict procedures designed training, the use of Visual Basic also like to develop a powerful, and suited to their special needs applications. Visual Basic inherited Basic language learn user-friendly features, and are particularly suited to new learner learning Windows system programming. File management system using a computer application computer file management technology innovation in the computer files before the document management is not yet universal by staff manual filing, access to the operation. General file management are now using computer intelligent management, using the computer as a tool for computer files management procedures to help managers more effective archives files management. Records management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Because I limited capacity, coupled with time constraints, it designed the system may function relatively simple, and the system is single edition, not Internet operations network, which I have yet to learn that in future work to further improve. keyword : file management, MIS,visual basic database, Access 第一章第一章引言引言 1.11.1 背景背景 随着经济的发展，社会的进步，计算机越来越深入到我们日常 的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人 们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作 用。它已经深入到日常工作和生活的方方面面，比如文字处理、信 息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各 行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复 杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件， 但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合 自己特殊需求的软件。以前开发 Windows 应用软件是专业人员的工 作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同 了，即使你没有接受过严格的程序设计训练，使用 Visual Basic 也一 样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic 继承了 Basic 语言易学易用的特点，特别适合于初学者学习 Windows 系统编程。 1.1.11.1.1 档案管理系统档案管理系统 档案管理系统用计算机管理档案的一种计算机应用技术的创新, 在计算机还未普及之前档案文件管理都是由工作人员人工存档,调阅 的方式来操作的.现在一般的档案管理都采用计算机智能化管理,采用 计算机作为工具的实用的计算机档案管理程序来帮助档案管理员进 行更有效的档案管理工作。档案管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序 的开发两个方面。对于前者要求建立起数据一致性和完整性强、数 据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特 点。 1.21.2 开发档案管理系统的目的和原则开发档案管理系统的目的和原则 档案管理系统开发目的主要是服务于企事业单位档案室档案 管理人员.方便日常的档案组建,分类,存储,调用. 设计原则是力求完成任务书所要求的所用功能模块,做到程序的 健壮性和界面的人性化. 1.31.3 开发环境介绍开发环境介绍 Visual Basic 6.0 是 Micrsoft 公司出品的开发工具， Visual Basic 是一种可视化的，面向对象的 Windows 开发 语言，它具有易用，通用和开发效率高的特点。随着微软 对它不断地改进以及计算机本身性能的提高，使得 Visual Basic 越来越适合一般的应用程序开发。正如 Bill Gate 所 说，世界上绝大多数的 Windows 应用程序是用 Visual Basic 编写的。在众多的开发工具中，我们为什么要选择 Visual Basic6.0 呢？因为 VB 具有众多其它开发工具所没 有的优点！具体介绍如下： 开发的高效 语言的高效 编译的高效 执行的高效 维护的高效 基于以上理由，我们毫不忧郁的选择了 VB6.0 做为我们的 开发工具！ 主主要要的的控控件件及及其其基基本本属属性性，事事件件简简介介 命令按钮类的控件： 1) Caption 属性：用来显示在控件上的标题。 2) Enable 属性：控制控件的激活状态灰色或可用。 3) Appearance 属性：值为 1 时,则以 3D 效果显示该控 件,0 则不然。 4) Backcolor 属性：用来改变在按钮上显示图像的背景 色。 5) Cancel 属性：该属性决定按钮是否为一个”取消” 按钮。 6) Default 属性:决定哪一个命令按钮控件是窗体的缺 省命令按钮. 7) Font 属性:控制各种文字字体类型. 8) Left,top,height,width 属性:设定控件的位置与大 小. 9) Style,picture 属性:决定按钮的显示方式是否为图 像形式出现. 10) Visible 属性:确定控件运行时是否为可见. 11) Index 属性:当控件为一控件数组时,此属性值为该 控件在数组的下标值. 12) DownPicture 属性：设置/返回一个对图片的引用， 该图片在按钮被单击处于压下状态时显示。 13) DisabledPicture 属性：设置/返回一个对图片的 引用，该图片在控件无效时显示在控件中。 14) MaskColor 属性：设置/返回一个在按钮的图片中 作为“掩码“的的颜色 15) Picture 属性：设置返回 commandButton 控件中要 显示的图片。 命令按钮类的事件： 1）单击事件Click 事件 （1） 触发与适用 此事件是在一个命令按钮对象上按下然后释 放一个鼠标按钮时发生。命令按钮的 Click 事件仅对当单击鼠标时发生。 （2） 事件处理过程 按钮单击事件的处理过程为： Private Sub object-Click（Index As Integer） 其中 Object 为引发该事件的对象名称。如果 是命令按钮的控件是数组，则需要使用 Index 参数标识该控件。 2）获得焦点GotFocus 事件 （1）触发与适用 当命令按钮获得焦点产生该事件，获得焦点 可以通过诸如 Tab 切换或单击对象之类的用 户动作，或在代码中用 SetFocus 方法改变 焦点来实现。 （2）事件处理过程 命令按钮 GotFoucs 事件处理过程为： Private Sub Object-GotFocus（Index As Integer） 3）LostFocus 事件：当一个对象失去焦点时发生 4）KeyDown 事件：当命令按钮具有焦点时按下一 个键时发生 5）KeyUp 事件：当命令按钮具有焦点时释放一个 键时发生。 6）KeyPress 事件：当用户按下或松开一个 ANSI 键时发生。 7）MouseDown 事件：当在命令按钮上按下鼠标按 钮时发生。 8）MouseMove 事件：当命令按钮上移动鼠标时发 生。 9）MouseUp 事件：当在命令按钮上释放鼠标按钮 时发生。 标签框类的控件类的控件： 1) Caption 属性：在应用程序界面上加入说明。 2) Autosize 属性：决定控件是否自动改变大小以显示 其全部内容。 3) Backstyle 属性：用以指示标签是否透明. 4) Bordstyle 属性:用以设定控件是否有边框。 文本框类的控件： 1) Text 属性：通过像 text 属性赋值的方法来改变该属 性的值。 2) Maxlength 属性：该属性设定在文本框控件中能够输 入的最大字符数。 3) Multline 属性：该属性设定 text 字符串中是否接受 换行符。 4) Scrollbars 属性：该属性决定是否为文本框加滚动 条。 5) Passwordchar 属性：该属性设定输入文本的特殊显 示字符,在设计密码程序时非常有用。 6) Change 事件属性：文本框的内容发生改变时,相应的 控件之间发生相应的改变,具有即时性。 7) Keypress：事件由用户在文本框控件中按任意键触 发。 8) Alignment 属性：设定控件中的文本对其方式 9) Appearance 属性：设定一个对象在运行时是否可以 3D 效果显示。 10) BackColor 属性：设置返回背景色 11) BorderStyle 属性：设置对象的边框样式 12) DataField 属性：设定数据使用者将被绑定到的字 段名 13) DataFormat 属性：设定 DataFormat 对象，用于数 据绑定 14) DataMember 属性：从数据供应程序提供的几个数 据成员中返回/设定一个特定的数据成员 15) DataSource 属性：设定控件绑定的一个数据源 16) DragIcon 属性：设定图标，它将在拖放操作中作 为指针显示 17) DragMode 模式：设定一个值，确定在拖放操作中 所用方式 18) Enabled 属性：设置/返回运行时 TextBox 是否相 应用户事件 19) Font 属性：设置/返回字体属性 20) ForeColor 属性：设置/返回文本的前景色 21) Height 属性：设置/返回 TextBox 的高度 22) IMEMode 属性：设置/返回数值用来确定输入方法 编辑器的状态 23) Index 属性：设置/返回唯一的标识控件数组中该 控件的编号 24) Left 属性：设置/返回 TextBox 控件的水平位置 25) Locked 属性：设置/返回 TextBox 中文本是否可编 辑 26) LinkItem 属性：设置/返回 DDE 与另一个应用程序 会话时，传给接受端的数据 27) MaxLength 属性：设置/返回一个值，指定在 TextBox 控件中能够输入的字符最大值 28) MouseIcon 属性：设置/返回自定义鼠标的图标 29) Top 属性：设置/返回 TextBox 控件的垂直位置 30) Tag 属性：存储过程所需的附加数据 文本框类的事件： 1）Change 事件：当改变文本框内容时发生 2）Click 事件：鼠标单击控件时发生 3）DblClick 事件：用鼠标左键双击控件时发生 4）DragDrop 事件：在一个完整的拖放动作完成或 使用 Drag 方法，并将其 Action 参数设置为 2 时发 生 5）DragOver 事件：在拖放操作正在进行时发生 6）GotFocus 事件：当一个命令按钮获得焦点时发 生 7）LinkClose 事件：当一个 DDE 对话结束时发生 8）LinkError 事件：当一个 DDE 对话框过程中出 现错误时，该事件发生 9）KeyDown 事件：当命令按钮具有焦点时按下一 个键时发生 10） Validate 事件：在焦点转换到另一个控件之前 发生，此时该控件的 Causes Validation 属性值 设置为 True 单选按钮类的控件： 1) Caption 属性：显示在控件上的文本,是单选按钮的 标题。 2) Alignment 属性：决定单选按钮的标题在控件上的位 置。 3) Enable 属性：该控件为灰色时为 false,表示运行时 不可用。 4) Index 属性：属性值表示为单选按钮组成的控件中某 个按钮的索引值。 5) Tabindex 属性：建立控件时,vb 自动为其分配一个 tabindex 值,利用 tab 键可以在控件之间切换焦点。 6) Value 属性：反映控件状态的属性,返回 true 表示已 选择了该按钮。 7) Appearance 属性：设置/返回一个对象在运行时是 否以 3D 效果显示。 8) BackColor 属性：设置/返回背景色。 9) Container 属性：设置/返回 Form 上的控件属性。 10) DataField 属性：设置/返回数据使用者将被绑定 到的字段名。 11) DataFormat 属性：设置/返回 DataFormat 对象， 一个绑定对象将附加到它。 12) DisabledPicture 属性：设置/返回一个对图像的 引用，该图片在控件无效时显示在控件中。 13) DownPicture 属性：设置/返回一个对图片的引用， 该图片在控件单击下处于压下状态时显示。 14) DragMode 属性：设置/返回一个值，确定在拖放操 作中所用的方式。 15) Font 属性：设置/返回字体属性。 16) FontBold 属性：设置/返回字体粗体样式。 17) FontItalic 属性：设置/返回字体斜体样式。 18) FontStrikethru 属性：设置/返回字体删除线样式。 19) FontUnderLine 属性：设置/返回字体下划线样式。 20) FontName 属性：设置/返回控件中显示文本所用的 字体大小。 21) FontSize 属性：设置/返回控件中显示文本所用的 字体大小 22) Height 属性：设置/返回控件的高度。 23) MaskColor 属性：设置/返回一个在控件的图片中 作为掩码的颜色。 24) MousePointer 属性：设置/返回一个值，该值指示 在运行时当鼠标移动到对象上时显示的指针类型。 单选按钮类的常用事件： 1）Click 事件：鼠标单击控件时发生。 2）DbClick 事件： 当在一个对象上按下和释放鼠 标按钮并再次按下和释放按钮时，该事件发生。 3）DragDrop 事件：在一个完整的拖放动作或使用 Drag 方法，并将其 Action 参数设置位 2 时，该事 件发生。 4）DragOver 事件： 在拖放操作正在进行时发生。 5）GotFocus 事件： 当获的对象焦点时发生。 6）LostFocus 事件：当对象失去焦点时发生。 7）KeyDown 事件：当控件具有焦点时按下一个键 时发生。 8）KeyUp 事件： 当控件具有焦点时释放一个键时 发生。 9）KeyPress 事件：当用户按下或释放 ANSI 一个 键时发生。 10） MouseDown 事件：当在控件上按下鼠标键时发 生。 11） MouseMove 事件：在控件上移动鼠标时发生。 12） MouseUp 事件：在控件上释放鼠标时发生。 复选按钮类的控件： 1) Caption 属性：缺省为 check1。 2) Index 属性:该属性值为复选框控件数组的下标. 3) Value 属性:value 为 0 表空白,为 1 表勾号,为 2 表 示灰色勾号. 4) Container 属性：Form 控件上的容器。 5) DataChangeed 属性：设置/返回一个值，指出被绑定 的控件中的数据已经被某进程修改。 6) DataField 属性：设置或返回数据使用者将被绑定到 的字段名。 7) DataFormat 属性：设置或返回 DataFormat 对象， 用于数据绑定。 8) Datasource 属性：设置或返回控件绑定的一个数据 源。 9) DisabledPicture 属性：设置或返回一个对图片的引 用，该图片在控件无效时显示在控件中。 10) DownPicture 属性：设置或返回一个对图片的引用， 该图片在控件被单击处于压下状态时显示。 11) DragIcon 属性：设置或返回图标，它将在拖放操 作中做为指针显示。 12) DragMode 属性：设置返回一个值，确定在拖放操 作中所用方式。 13) Font 属性：设置或返回字体的属性。 14) Name 属性：设置或返回控件的标识名。 15) Value 属性：设置或返回控件的状态。 复选按钮类的控件的基本事件： 1）Click 事件：鼠标单击控件时发生。 2）DragDrop 事件：在一个完整的拖放动作完成或 使用 Drag 方法，并将其 Action 参数设置为 2 时发 生。 3）DragOver 事件：在拖放操作正在进行时发生。 4）GotFocus 事件：在对象获的焦点时发生。 ， 5）OLECompleteDrag 事件：当源部件被放到目标 时发生，并通知源部件拖放操作被执行或取消。 6）OLEDragDrag 事件：当源部件决定放操作能发 生，却源部件被放到目标部件时，此事件发生。 框架类的控件： 1) List 属性：列表框控件的表项是使用数组的 方式保存,数组的每一个元素存储列表控件的一 个表项 1) Listcount 属性:控件列表部分项目的个数。 2) Mutselect 属性:可以设置列表框为单选或允许多选 属性. 3) Selectd 属性:标示一个数组,数组各元素为: 4) Selected(0),selected(1) 滚动条类的控件： 1) Value 属性：滚动条上滑块所在位置由 value 值所决 定。 2) Max 和 min 属性：对 value 值的最大,最小进行限制。 3) Largechange 属性：用户点击滚动条与键头之间的区 域时,value 的改变量。 4) OnClick 事件：用来添加按钮的单击事件 所执行的程序代码。 定时器类类的控件： 1) Interval 属性：表示定时的时间间隔,以毫秒为单位。 2) Enable 属性:为 true 时(缺省值),激活定时器开始计 时;为 false 时处于休眠状态. 数数据据库库连连接接方方式式选选择择 Visual basic6.0 连接数据库的主要方式以下几种方式：一 是：用 data 控件进行数据库链接 ，二是利用 adodc（ADO Data Control)进行数据库链接 。三是: 利用 DataEnvironment 进行数据库链接.四是利用 ADO(ActiveX Data Objects)进行编程 :现在我们来大致对这几种技术应用介绍： 一、用 data 控件进行数据库链接. 第一步：给窗体添加一个 Data 控件。 第二步：用 Access 建立一个名为 Pad 的数据库，在库中 建立一个表 Myset，给表添加四个字段：backcolor（数 据），forecolor(文本），fontname(文本）, fontsize（文本）。注意：请将库文件存入程序所在目 录。 如果你的机器没安装有 Access，可通过 VB 建库。 二、利用 adodc（ADO Data Control)进行数据库链接： 使用 adodata 控件访问数据库可以完全不用编写代码,只 需要通过简单的设置和操作其属性就可以实现与数据库 的连接,通过绑定数据感知控件,就能提供一个访问数据 库的界面,用来实现对数据库的浏览,贴加,删除,修改等 操作. 三、利用 DAO 对数据库进行操纵: 在 visual basic 中提供了两种与 jet 数据引擎接口的方 法:data 控件与数据访问对象(DAO)DAO 是 database object 的英文缩写,要访问数据库一方面数据库要提供访 问接口,另一方面要在编程环境中有对数据库的支持. DAO 模型是设计关系数据库系统结构的对象类的集合.他 们提供了管理关系型数据库系统所需要的全部操作属性 和方法,这其中包括建立数据库,定义表,字段和建立表间 关系,定位和查询数据库等. 关系数据库介绍: 关系数据库是目前各类数据库中最重要、最流行的数据 库，他应用数学方法来处理数据库数据，是目前使用最 广泛的数据库系统。20 世纪 70 年代以后开发的数据库管 理系统产品几乎都是基于关系的。在数据库发展的历史 上，最重要的成就就是关系模型。 关系数据库系统与非关系数据库系统的区别是：关系 系统只有“表“这一种数据结构；而非关系数据库系统 还有其他数据结构，对这些数据结构有其他的操作。 结构化查询语言 SQL（Structured Query Language）是一 种介于关系代数与关系演算之间的语言，其功能包括查询、 操纵、定义和控制四个方面，是一个通用的、功能极强的 关系数据库语言。目前已成为关系数据库的标准语言 1.3.21.3.2 数据库设计工具数据库设计工具ACCESSACCESS 数据库管理系统数据库管理系统 Microsoft Access 介绍: 使用 Microsoft Access，可以在单一的数据库文件中管 理所有的信息。在这个文件中，用户可以将自己的数据 分别保存在各自独立的存储空间中，这些空间称作表； 可以使用联机窗体来查看、添加及更新表中的数据；使 用查询来查找并检索所要的数据；也可以使用报表以特 定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。 如果要从查询、窗体或报表中的多个表中将数据合并在 一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多 个表中的数据，就要创建查询。查询的同时也可以更新 或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据， 请创建一个窗体。在打开一个窗体时， Microsoft Access 将从一个或多个表中检索数据，并使 用用户在“窗体向导”选择的版面布局或所创建的版面 布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请 创建一个报表。例如，可以打印一份将数据分组并计算 数据总和的报表，也可以打印另一份带有各种数据格式 的打印邮件标签的报表。 第二章第二章系统设计系统设计 2.12.1 系统分析系统分析 本系统主要由以下几大功能模块构成: 一.档案管理:档案仓库,退出系统 二.系统配置:配置公司信息,配置员工信息,配置数据库路 径 三.添加档案,修改档案,删除档案,搜索档案 2.22.2 系统流程和操作方式设计系统流程和操作方式设计 程序登陆 主界面 档 案 管理 系统 配置 添加 档案 系统 帮助 退 出 系 统 第三章第三章 系统界面设计系统界面设计 3.13.1 系统界面设计以及代码分析系统界面设计以及代码分析 1. 登陆界面设计 代码设计分析: Private Sub cmdOK_Click() 检查密码的正确性 Dim X As Long X = UserTxt.ListIndex 如果有加密，解密方法放此处，将 PassYu(X)数组中的值， 转换成原来信息 Dim FindStr As String 将加密口令变回来 Dim shiftStr As String, shiftStrR As Variant, shiftNum As Integer, ili As Integer, SureStr As String shiftStr = Trim(txtPassword.Text) shiftNum = Len(shiftStr) ili = 1 SureStr = For ili = 1 To shiftNum shiftStrR = Mid(shiftStr, ili, 1) shiftStrR = Asc(shiftStrR) shiftStrR = shiftStrR - 3 shiftStrR = Chr(shiftStrR) SureStr = SureStr & shiftStrR Next 密匙 开始查找 sureStr 为解除的口令 If SureStr = PassYu(X) Then UserText = UserTxt.Text PurView = strPurView(X) 密码正确时 frmLogin.MousePointer = 11 Unload Me frmSplash.Show Exit Sub Else MsgBox 无效的密码，再试一次！, 32, 登录 LOGINNO = LOGINNO + 1 If LOGINNO 3 Then MsgBox 对不起，您不能使用该系统！, 64, 登录失败 Unload Me Exit Sub End If txtPassword.SetFocus SendKeys Home+End End If End Sub Private Sub Form_Load() On Error Resume Next Me.Left = Val(GetSetting(App.EXEName, Login, Left) Me.Top = Val(GetSetting(App.EXEName, Login, Top) Dim retValue As Long retValue = SetActiveWindow(Me.hwnd) Browser = CurDir() 设计时定义 temp dir Browser = D:ProgramStudy文件管理 If Right(Browser, 1) Then Browser = Browser + End If checkPath 检测路径 Dim DB As Database, EF As Recordset, X As Long, i As Long Dim UserYu(10) As String Set DB = OpenDatabase(ConData, False, False, ConStr) Set EF = DB.OpenRecordset(User, dbOpenTable) X = EF.RecordCount Set EF = DB.OpenRecordset(User, dbOpenDynaset) For i = 0 To X - 1 UserYu(i) = EF.Fields(0).Value If Not IsNull(EF.Fields(1).Value) Then PassYu(i) = EF.Fields(1).Value End If If Not IsNull(EF.Fields(2).Value) Then strPurView(i) = EF.Fields(2).Value End If UserTxt.AddItem UserYu(i), i EF.MoveNext Next EF.Close DB.Close If X = 1 Then UserTxt.ListIndex = 0 End If LOGINNO = 1 End Sub 2. 主界面设计 代码分析: Private Sub MDIForm_Load() frmMain.MousePointer = 11 Dim Ltp As Long frmMain.WindowState = GetSetting(App.EXEName, Windows, Windows Status, 1) 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) 配置图片 StatusBar.Panels.Item(3).Text = 日期: & Format(Date, Long Date) frmMain.Caption = TempArray(0) + -档案管理系统 frmMain.StatusBar.Panels.Item(6).Text = 制作单位： + TempArray(0) frmMain.StatusBar.Panels.Item(6).ToolTipText = 欢迎使用本软件 frmMain.MousePointer = 0 On Error Resume Next frmMain.Picture = LoadPicture(TempArray(5) frmMain.StatusBar.Panels.Item(2).Text = 准备就绪. showT = False 权限控制 Select Case PurView Case 只能添加 MnuCompany.Enabled = False MnuEmploy.Enabled = False Case 不能修改 MnuCompany.Enabled = False MnuEmploy.Enabled = False Case 可以修改 MnuEmploy.Enabled = False Case 超级权限 没有权限限制 End Select 显示路径 MnuDataPathDisplay.Caption = 当前数据库路径： & ConData Exit Sub PhotoValible: MsgBox 桌面图片配置有错误,请重新配置桌面!, vbOKOnly + 16, 警告! frmMain.MousePointer = 0 Exit Sub End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 右键按下时 PopupMenu MnuSystem End If End Sub Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If frmMain.StatusBar.Panels.Item(2).Text = 待命状态. Then Exit Sub Else frmMain.StatusBar.Panels.Item(2).Text = 待命状态. End If End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim SureQ As Integer SureQ = MsgBox(真的退出该系统吗(Y/N)？ , vbYesNo + 32, 请确认.) If SureQ = 6 Then Cancel = 0 Else Cancel = -1 End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i) Next 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 If SaveSetting App.EXEName, Windows, Windows Status, frmMain.WindowState End Sub Private Sub MnuCompany_Click() Me.MousePointer = 11 GetStatus 公司信息配置 If ConfigForm.Visible = True Then ConfigForm.SetFocus Else ConfigForm.Show End If Me.MousePointer = 0 End Sub Private Sub MnuEmploy_Click() Me.MousePointer = 11 GetSt