2022年档案管理系统大学本科方案设计书方案设计书.docx

《2022年档案管理系统大学本科方案设计书方案设计书.docx》由会员分享，可在线阅读，更多相关《2022年档案管理系统大学本科方案设计书方案设计书.docx（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精品学习资源摘要近年来，随着企业彼此间的竞争日趋猛烈，信息技术在企业的进展中占据着越来越重要的位置；在企业的运输生产中，档案已成为企业运输经营中不行或缺的一部分，为治理者进行治理决策和进行各种经营活动供应了重要的依 据，在运输生产中发挥了越来越重要的作用；档案治理系统是一个企业单位不行缺少的部分，它的内容对于企业的决策者和治理者来说都至关重要，所以档案治理系统能够为用户供应充分的信息和 快捷的查询手段；用Visual Basic构建的档案治理系统，能实现档案的录入、修改、查找、删除、统计、查询、预览、编辑、打印、打印预览、取消、 刷新、视图、系统保护、帮忙等功能，此外，在程序中仍设计了用户登陆

2、，并 设定了密码，以确保本系统应用的安全性；本治理系统设计合理、界面美观、 操作便利、运行稳固、功能完备，为进行现代化的档案治理工作起到了重要作 用，具有较高的有用价值；关键词： 数据库模块 信息 数据源目录第一章 概述3其次章 目标分析和方案确定 -4第三章 开发档案治理系统的基本思路63.1 使用 VB6.0 编写代码63.2 使用 Access2000建立数据库63.3 用 JET 数据库引擎拜访数据库6第四章 Visual Basic 6.0编程语言概述74.1 创建菜单栏74.2 创建工具栏74.3 建立帮忙信息84.4 生成版本信息8第五章 使用 Access2000实现关系型数据

3、库95.1 数据库的概念9欢迎下载精品学习资源5.2 新建一个数据库95.3 修改已建的数据库9第六章 系统总体设计10第七章分模块设计 -127.1档案的系统保护 -127.2 档案的版本和系统信息 -137.3 档案的录入、编辑、删除、刷新-177.4 档案的登陆和密码设计 -247.5 档案的主界面-277.6 档案的查询、预览、打印功能 -287.7 档案的统计功能 -317.8 档案的报表 -32第八章 终止语34欢迎下载精品学习资源附：主要参考文献-35欢迎下载精品学习资源第一章 概述近年来，随着企业彼此间的竞争日趋猛烈，信息技术在企业的进展中占据着越来越重要的位置，借助信息技术来

4、猎取更快捷、更高效、更精确的操作方式， 发挥企业本身最大的竞争力以适应快速变迁的商业环境，逐步成为不行防止的趋势；在企业的运输生产中，档案已成为企业运输经营中不行或缺的一部分， 为治理者进行治理决策和进行各种经营活动供应了重要的依据，在运输生产中发挥了越来越重要的作用；为便利、高效、快捷地适应现代化档案的需要，本论文应用 Visual Basic构建了一个档案治理系统，其中用到了数据库的应 用、建立、数据库操作对象 ADO、数据报表设计等学问；档案治理系统是典型的信息治理系统 MIS ，其开发主要包括后台数据库的建立和保护以及前端应用程序的开发两个方面；对于前者要求建立起数据一样性和完整性强、

5、数据安全性好的库；而对于后者就要求应用程序功能完备，易使用等特点；用Visual Basic 构建的档案治理系统，主要能实现档案的录入、修改、查找、删除、统计、查询、编辑、打印、打印预览、取消、刷新、视图、系统保护、帮忙等功能，为保证用户的安全性，仍设计了简捷便利的用户登陆和密码修改；本治理欢迎下载精品学习资源系统设计合理、界面美观、操作便利、运行稳固、功能完备，为进行现代化的档案治理工作起到了重要作用，具有较高的有用价值；其次章 目标分析和方案确定档案治理系统是一个企业单位不行缺少的部分，它的内容对于企业的决策者和治理者来说都至关重要，所以档案治理系统应当能够为用户供应充分的信息和快捷的查询

6、手段；但始终以来人们使用传统人工的方式治理文件档案，这种治理方式存在着很多缺点，如 : 效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和保护都带来了不少的困难；随着科学技术的不断提高，运算机科学日渐成熟，其强大的功能已为人们深刻熟悉，它已进入人类社会的各个领域并发挥着越来越重要的作用；今日， 运算机的价格已经非常低廉，性能却有了长足的进步；它已经被应用于很多领域，运算机之所以如此流行的缘由主要有以下几个方面：第一，运算机可以代替人工进行很多纷杂的劳动； 其次，运算机可以节约很多资源；第三，运算机可以大大的提高人们的工作效率； 第四，运算机可以使敏锐文档更加安全，等等；

7、欢迎下载精品学习资源在企业中用运算机治理档案的意义：现在，有很多企业的档案治理水平仍停留在纸介质的基础上，这样的机制已经不能适应时代的进展，由于它铺张了很多人力和物力，在信息时代这种传统的治理方法必定被运算机为基础的信息治理所取代；作为运算机应用的一部分，使用运算机对档案信息进行治理，具有着手工治理所无法比拟的优点；例如: 检索快速、查找便利、牢靠性高、储备量大、保密性好、寿命长、成本低等；这些优点能够极大地提高同学档案治理的效 率，也是企业的科学化、正规化治理，与世界接轨的重要条件；Visual Basic简洁易学且功能丰富，是广泛应用的变成语言之一，它的进展为编程人员供应了更广泛的空间；为

8、能够迎合转变快速的信息技术，越来越多的企业倾向于分布式的治理需求，供应分布式主从结构环境的Microsoft SQL Server便成为相当重要的核心角色，这个数据库服务器运用了关系数据 库的技术，同时考虑到高效率数据库治理的需求，借助标准化的拜访环境，提高了和前端应用环境轻松集成的才能，以适应各种企业组织在不同环境下的操 作需求；作为前端应用程序开发环境的Visual Basic6.0，在数据来源的保护、数据拜访技术、国际网络和企业内部Intranet应用程序等功能方面都有其独到、先进之处；我作为一个运算机应用专业的专科生，期望在这方面有所奉献；我期望能用我所学的 Visual Basic6

9、.0编制出一个有用的程序来对企业的档案进行更有效、快捷、便利的治理，因此，我充分运用Visual Basic进行了这套档案治理系统的开发；欢迎下载精品学习资源第三章 开发档案治理系统的基本思路3.1 、编程环境的挑选微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面对对象的开发工具； Visual Basic 供应了大量的控件，这些控件可用于设计界面和实现各种功能，削减了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和牢靠性；故而，实现本系统 VB是一个相对较好的挑选；3.2 、关系型数据库的实现Acc

10、ess2000 就是关系数据库开发工具，数据库能聚集各种信息以供查询、储备和检索； Access 的优点在于它能使用数据表示图或自定义窗体收集信息；数据表示图供应了一种类似于Excel的电子表格，可以使数据库一目了然；另外， Access 答应创建自定义报表用于打印或输出数据库中的信息；Access 也供应了数据储备库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库；Access 是一种关系数据库工具， 关系数据库是已开发的最通用的数据库之一；如上所述，Access 作为关系数欢迎下载精品学习资源据库开发具备了很多优点，可以在一个数据包中同时拥有桌面数据库的便利

11、和关系数据库的强大功能；3.3 、二者的结合（ DBA）微软的 JET 数据库引擎供应了与数据库打交道的途径，我们是通过它以及Visual Basic来拜访数据库并对其进行各种操作；Visual Basic、Access 以及其他微软的软件产品都是通过共用JET 数据库引擎，从而给用户供应了丰富的数据类型；DATA控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁；我们可以设置DATA控件的各个属性，告知它要调用那 个数据库的哪个部分；缺省情形下， DATA控件依据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合；一个

12、记录集合是动态 的也就意味着，当原先的数据表中的容转变了以后，该记录集合中的记录也会随之转变； DATA控件仍供应了用来浏览不同记录的各种跳转按钮；将DATA控件放置在窗体中之后，我们仍必需在该控件与要处理的数据库之间建立联系；第四章 Visual Basic 6.0 编程语言概述Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、大事和方法）；开发人员可以最有效利用所创建的每一个对象；使用应用程序具有可通用性、可扩展性和强有力的功能；Visual Basic应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户大事等等，对象中

13、又包含如干控件如命令按钮、单行编辑器等这些对象和控件都可在很多应用中重复使用；4.1 创建菜单栏除此之外， VB6.0 仍有以下一些重要功能；菜单是程序最重要的特性之一，大多数程序都依靠一个定义良好的菜单使程序易于使用和保护， Visual Basic 也供应了强大的创建菜单功能是程序更加标准；您可以使用 Visual Basic 的 Applicaytion Wizard 也可以使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单、控件；其属性及对象如下：欢迎下载精品学习资源1. Align属性定义工具条在窗休中的位置；2. ToolTipText属性是字符串类型，定义

14、控件的提示字符；3. Style属性定义按钮外观；4. ImageList属性定义与数据条对应的 ImageList控件名，该控件定义工具条按钮显示的图像；5. HotImangeList属性设置一个 ImageList控件名，该控件定义按钮获得热点时显示的图像；6. DisabledImageList属性定义工具条按钮无效时显示的图像；4.2 创建工具栏创建 工具条主 要利 用 ImageList 和 Toolbar 控件 ； 创 建时 ， 先将ImageList 添加到窗体上，然后往其中添加一些图片，接着 Toolbar 控件添加到窗体上，再往 Toolbar 中插入一些命令按纽，为他们添

15、加上相应图片即可；4.3 建立帮忙信息专业水平的软件通常都带有联机帮忙功能；无论写出来的程序是要给大量的用户使用，仍是仅仅局限于公司内部有限的使用者，我们都应当为用户供应具体的、易于懂得的联机帮忙文档；微软的 Help Workshop4.0 是一套独立于Visual Basic 的用来帮助我们创建、运行于 32 位 Windows操作系统下的帮忙文件的工具；使用它可以为我们编写的应用程序生成一组帮忙文件；4.4 生成版本信息为了使程序显得更具有专业风格，第一可以在其中加入通常的应用程序信息；这些信息包括公司名称、版本号、修订号以及其他类似信息；Visual Basic 答应你使用 APP 对

16、象来储存这些信息， APP对象是一个预定义对象，不需要在程序中创建它； APP 对象的大多数属性被应用程序用来供应常规的信息，通过使用这些APP 供应的属性，可以在应用程序和用户之间沟通重要信息，在工程属性框中可以设置它的属性；欢迎下载精品学习资源第五章 使用 Access2000实现关系型数据库5.1 、数据库的概念数据库是一种储备数据并对数据进行操作的工具；数据库的作用在于组织和表达信息，简而言之，数据库就是信息集合；运算机的数据库可以分为两类：非关系数据库（ flat-file）和关系数据库（ relational）；关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记

17、录、域等；5.2 、新建一个数据库创建任何一个数据库的第一步是认真的规划数据库，设计必需是敏捷的、有规律的；创建一个数据库结构的过程被认为是数据模型设计；1） 标识需要的数据；2） 收集被标识的字段到表中；3） 标识主关键字字段；欢迎下载精品学习资源4） 绘制一个简洁的数据图表；5） 规范数据；6） 标识指定字段的信息；7） 创建物理表；5.3 、修改已建的数据库档案治理登录修查统预陆入改询计览模模模模模打块块块块块印数据库的修改分为：添加、编辑和删除记录；这三种操作均可由Visual Basic创建的程序来完成，下面的章节将具体描述实现的具体方法；第六章 系统总体设计依据设计方案，本系统的结

18、构框图为（如下所示）： 本系统所实现的主要功能为：可以进行文本操作；1. 录入一个数据库工程；2. 修改一个数据库工程；3. 查找一个数据库信息；4. 删除一个数据库信息；5. 统计一个数据库信息；6. 查询一个数据库信息；7. 预览一个数据库信息；欢迎下载精品学习资源8. 编辑一个数据库信息；9. 打印一个数据库信息；10. 打印预览一个数据库信息；11. 刷新一个数据库信息；12. 取消一个数据库信息；依据实际数据操作流程，本城西数据的ER图为（依据数据流程勾画，下图为示意图） ：数据修改、查询档案数据数据录入数据打印用户登录 档案的录入档案的修改和查询档案的预览和打印本系统所采纳的数据库

19、结构：数据表：档案表、用户表；依据系统的需要，档案表采纳字段结构为：编号标题发文部门发文号内容发文日期字段类型自动编号字符字符字符备注日期是否索引是否否否否否登录表结构为：编 号用 户 名密 码欢迎下载精品学习资源第七章 分模块设计7.1 、档案的系统保护 ：为提高系统的安全性，防止非法用户进入本系统，本系统设有用户登陆界 面，并设立密码，合法用户可以在系统保护里面的用户修改里面自行设立用户 名和密码，系统默认用户名为“admin”，密码为“ 1234”；系统的用户密码更换界面如下：欢迎下载精品学习资源Edit.frmDim db As Connection Dim rs As Records

20、etPrivate Sub Command1_Click On Error GoTo erIf rs.State = adStateOpen Then rs.Closers.Open 登录, db, 1, 3 rs 用户名 = Text1.Text rs 密码 = Text2.Text rs.Updaters.CloseMsgBox 修改胜利！ , vbOKOnly + vbExclamation Unload MeExit Sub er:MsgBox 有错误产生！ , vbOKOnly + vbExclamationEnd SubPrivate Sub Command2_Click欢迎下载精

21、品学习资源Unload Me End SubPrivate Sub Form_Load Text1.Text = login.user Text2.Text = login.password Set db = New Connectiondb.CursorLocation = adUseClientdb.Open PROVIDER=Microsoft.Jet.OLEDB.3.51；Data Source=database.mdb；Set rs = New Recordset End SubPrivate Sub Form_UnloadCancel As Integer If rs.State

22、= adStateOpen Then rs.CloseSet rs = Nothing db.CloseSet db = Nothing End Sub7.2 、档案的版本和系统信息About.frm Option Explicit 注册表关键字安全选项 .Const READ_CONTROL = &H20000 Const KEY_QUERY_V ALUE = &H1Const KEY_SET_V ALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10

23、Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 注册表关键字 ROOT 类型 .Const HKEY_LOCAL_MACHINE = &H80000002欢迎下载精品学习资源Const ERROR_SUCCESS = 0Const REG_SZ = 1 独立的空的终结字符串Const RE

24、G_DWORD = 4 32位数字Const gREGKEYSYSINFOLOC = SOFTWAREMicrosoftShared Tools Location Const gREGV ALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWAREMicrosoftShared ToolsMSINFO Const gREGV ALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA ByVal hKey As Long, ByVal l

25、pSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA ByVal hKey As Long, ByVal lpValueName As String, ByVallpReserved AsLong, ByReflpType As Long, ByVal lpData As String, ByRe

26、f lpcbData As Long As LongPrivate Declare Function RegCloseKey Lib advapi32 ByVal hKey As Long As LongPrivate Sub cmdSysInfo_Click Call StartSysInfoEnd SubPrivate Sub cmdOK_Click Unload MeEnd SubPrivate Sub Form_LoadMe.Caption = 关于 & App.TitlelblVersion.Caption = 版本 & App.Major & . & App.Minor & . &

27、 App.Revision lblTitle.Caption = App.TitleMe.Width = 5820Me.Height = 4035 End SubPublic Sub StartSysInfo On Error GoTo SysInfoErrDim rc As LongDim SysInfoPath As String欢迎下载精品学习资源 试图从注册表中获得系统信息程序的路径及名称.IfGetKeyValueHKEY_LOCAL_MACHINE,gREGKEYSYSINFO,gREGV ALSYSINFO,SysInfoPath Then 试图仅从注册表中获得系统信息程序的路径

28、.ElseIfGetKeyValueHKEY_LOCAL_MACHINE,gREGKEYSYSINFOLOC,gREGV ALSYSINFOLOC, SysInfoPath Then 已知 32 位文件版本的有效位置If DirSysInfoPath & MSINFO32.EXE ThenSysInfoPath = SysInfoPath & MSINFO32.EXE 错误 - 文件不能被找到 . ElseGoTo SysInfoErr End If 错误 - 注册表相应条目不能被找到.ElseGoTo SysInfoErr End IfCall ShellSysInfoPath, vbNor

29、malFocusExit Sub SysInfoErr:MsgBox 此时系统信息不行用 , vbOKOnlyEnd SubPublic Function GetKeyValueKeyRootAs Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String As BooleanDim i As Long循环计数器Dim rc As Long返回代码Dim hKey As Long打开的注册表关键字句柄Dim hDepth As LongDim KeyValType As Long注册表关键字数据类型Dim tmpVa

30、l As String注册表关键字值的暂时储备器Dim KeyValSize As Long注册表关键自变量的尺寸- 打开 HKEY_LOCAL_MACHINE.下的 RegKey -欢迎下载精品学习资源rc = RegOpenKeyExKeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey 打开注册表关键字If rc ERROR_SUCCESS Then GoTo GetKeyError处理错误 .tmpVal = String$1024, 0安排变量空间KeyValSize = 1024标记变量尺寸- 检索注册表关键字的值.-rc = RegQueryValue

31、ExhKey, SubKeyRef, 0, _KeyValType, tmpVal, KeyValSize获得 /创建关键字值If rc ERROR_SUCCESS Then GoTo GetKeyError处理错误If AscMidtmpVal, KeyValSize, 1 = 0 Then Win95外接程序空终结字符串. tmpVal = LefttmpVal, KeyValSize - 1 Null被找到 ,从字符串中分别出来Else WinNT没有空终结字符串 .tmpVal = LefttmpVal, KeyValSize Null没有被找到 , 分别字符串End If- 打算转换

32、的关键字的值类型.-Select Case KeyValType 搜寻数据类型 .Case REG_SZ 字符串注册关键字数据类型KeyVal = tmpVal复制字符串的值Case REG_DWORD四字节的注册表关键字数据类型For i = LentmpVal To 1 Step -1将每位进行转换KeyVal = KeyVal + HexAscMidtmpVal, i, 1生成值字符； By Char ；NextKeyVal = Format$&h + KeyVal转换四字节的字符为字符串End SelectGetKeyValue = True 返回胜利rc = RegCloseKeyh

33、KeyExit Function关闭注册表关键字退出欢迎下载精品学习资源GetKeyError:错误发生后将其清除 .KeyVal = 设置返回值到空字符串GetKeyValue = False 返回失败rc = RegCloseKeyhKey关闭注册表关键字End Function7.3 、档案的录入、编辑、删除、刷新本部分程序主要是把车站的档案录入运算机数据库档案表里，并供应编辑、删除等功能，能快捷、高效地把用纸张记录的档案内容用数字的形式储备在运算机里，适应现代化的办公系统的需要，以对信息进行高效、快速的查 询、修改；系统的录入界面如下：frm 档案Dim WithEvents adoP

34、rimaryRS As Recordset Dim mbChangedByCode As BooleanDim mvBookMark As Variant Dim mbEditFlag As BooleanDim mbAddNewFlag As Boolean Dim mbDataChanged As BooleanPrivate Sub Form_Load欢迎下载精品学习资源Dim db As Connection Set db = New Connectiondb.CursorLocation = adUseClientdb.Open PROVIDER=Microsoft.Jet.OLED

35、B.3.51；Data Source=database.mdb；Set adoPrimaryRS = New RecordsetadoPrimaryRS.Open select 标题 ,发文部门 ,发文号 ,发文日期 ,录入人 ,内容 from 档案 , db, adOpenStatic, adLockOptimisticDim oText As TextBox 绑定字段到窗体文本框For Each oText In Me.txtFieldsSet oText.DataSource = adoPrimaryRS NextmbDataChanged = False End SubPrivate

36、Sub Form_ResizeOn Error Resume Next lblStatus.Width = Me.Width - 1500 cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340 End SubPrivate Sub Form_UnloadCancel As Integer Screen.MousePointer = vbDefaultEnd SubPrivate Sub adoPrimaryRS_MoveCompleteByValadReason AsADODB.EventReasonEnu

37、m, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset显示记录位置lblStatus.Caption = Record: & CStradoPrimaryRS.AbsolutePosition End SubPrivate Sub adoPrimaryRS_WillChangeRecordByVal adReason As ADODB.EventReasonEnum, ByValcRecordsAsLong,adStatus AsADODB.Ev

38、entStatusEnum,ByValpRecordset As ADODB.Recordset欢迎下载精品学习资源This is where you put validation codeThis event gets called when the following actions occur Dim bCancel As BooleanSelect Case adReason Case adRsnAddNew adStatus = adStatusCancel Case adRsnCloseCase adRsnDelete Case adRsnFirstChange Case adRs

39、nMoveCase adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdateEnd SelectIf bCancel Then adStatus = adStatusCancel End SubPrivate Sub cmdAdd_Click On Error GoTo AddErr With adoPrimaryRSIf Not .BOF And .EOF Then mvBookMark = .Bookmark End If.Ad

40、dNewlblStatus.Caption = Add record mbAddNewFlag = True SetButtons FalseEnd WithExit Sub AddErr:MsgBox Err.Description End Sub欢迎下载精品学习资源Private Sub cmdDelete_Click On Error GoTo DeleteErr With adoPrimaryRS.Delete.MoveNextIf .EOF Then .MoveLast End WithExit Sub DeleteErr:MsgBox Err.Description End SubPrivate Sub cmdRefresh_ClickThis is only needed for multi user apps On Error GoTo RefreshErr adoPrimaryRS.RequeryExit Sub RefreshErr:MsgBox Err.Description End SubPrivate Sub cmdEdit_Click