bs123_档案管理系统

1、bs123_S案管理系统近年来，随着企业彼此间的竞争日趋猛烈， 信息技术在企 业的进展中占据着越来越重要的地位。在企业的运输生产中， 档案已成为企业运输经营中不可或缺的一部分， 为治理者进行 治理决策和进行各种经营活动提供了重要的依据， 在运输生产 中发挥了越来越重要的作用。档案治理系统是一个企业单位不可缺少的部分，它的内容关于企业的决策者和治理者来讲都至关重要，因此档案治理系 统能够为用户提供充足的信息和快捷的查询手段。用VisualBasic构建的档案治理系统，能实现档案的录入、修改、查找、 删除、统计、查询、预览、编辑、打印、打印预览、取消、刷 新、视图、系统爱护、关心等功能，此外，在程

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实现关系型数据库95.1

3、数据库的概念95.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、运输生产中，档案已成为企业运输经营中不可或 缺的一部分，为治理者进行治理决策和进行各种经营活动提供 了重要的依据，在运输生产中发挥了越来越重要的作用。为方便、高效、快捷地适应现代化档案的需要，本论文应用VisualBasic构建了一个档案治理系统，其中用到了数据库的应用、 建立、数据库操作对象ADO、数据报表设计等知识。档案治 理系统是典型的信息治理系统（MIS），其开发要紧包括后台数 据库的建立和爱护以及前端应用程序的开发两个方面。关于前 者要求建立起数据一致性和完整性强、 数据安全性好的库。而 关于后者则要求应用程序功能完备，易使用等特点。用 VisualBasic构建的档案治理系统，要紧

5、能实现档案的录入、修改、 查找、删除、统计、查询、编辑、打印、打印预览、取消、刷 新、视图、系统爱护、关心等功能，为保证用户的安全性，还 设计了简捷方便的用户登陆和密码修改。本治理系统设计合理、界面美观、操作方便、运行稳固、功能完备，为 进行现代化的档案治理工作起到了重要作用，具有较高的有用价值。目标分析和方案确定档案治理系统是一个企业单位不可缺少的部分，它的 内容关于企业的决策者和治理者来讲都至关重要， 因此档案治 理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式治理文件档案，这种治理方 式存在着许多缺点，如：效率低、保密性差，另外时刻一长， 将产生大量的

6、文件和数据，这关于查找、更新和爱护都带来了 许多的困难。随着科学技术的持续提升，运算机科学日渐成熟，其强大 的功能已为人们深刻认识，它已进入人类社会的各个领域并发 挥着越来越重要的作用。今天，运算机的价格差不多十分低廉， 性能却有了长足的进步。它差不多被应用于许多领域，运算机 之因此如此流行的缘故要紧有以下几个方面：第一，运算机能够代替人工进行许多纷杂的劳动；其次，运算机能够节约许多资源；第三，运算机能够大大的提升人们的工作效率； 第四，运算机能够使敏锐文档更加安全，等等。在企业中用运算机治理档案的意义： 现在，有专门多 企业的档案治理水平还停留在纸介质的基础上， 如此的机制差 不多不能适应时

7、代的进展，因为它白费了许多人力和物力，在 信息时代这种传统的治理方法必定被运算机为基础的信息治 理所取代。作为运算机应用的一部分，使用运算机对档案信息进行治 理，具有着手工治理所无法比拟的优点。例如：检索迅速、查 找方便、可靠性高、储备量大、保密性好、寿命长、成本低等。这些优点能够极大地提升学生档案治理的效率，也是企业的科学化、正规化治理，与世界接轨的重要条件。Visual Basic简单易学且功能丰富，是广泛应用的变 成语言之一，它的进展为编程人员提供了更广泛的空间。为能够迎合转变快速的信息技术，越来越多的企业倾向于分布式的 治理需求，提供分布式主从结构环境的 Microsoft SQL S

8、er ver便成为相当重要的核心角色，那个数据库服务器运用了关 系数据库的技术，同时考虑到高效率数据库治理的需求，借助标准化的访咨询环境，提升了和前端应用环境轻松集成的能 力，以适应各种企业组织在不同环境下的操作需求。作为前端应用程序开发环境的Visual Basic6.0,在数据来源的爱护、 数据访咨询技术、国际网络和企业内部In tra net应用程序等功能方面都有其独到、先进之处。我作为一个运算机应用专业的专科生，期望在这方面 有所奉献。我期望能用我所学的 Visual Basic6.0编制出一个 有用的程序来对企业的档案进行更有效、快捷、方便的治理， 因此，我充分运用Visual Ba

9、sic进行了这套档案治理系统的 开发。第二章开发档案治理系统的差不多思路3.1、编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工 具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过 程，从而有效的提升了应用程序的运行效率和可靠性。故而， 实现本系统VB是一个相对较好的选择。3.2、关系型数据库的实现Access2000确实是关系数据库开发工具，数据库能聚拢 各种信息以供查询、储备和检索。Access的优点在于它能使用数据表示图或自定义

10、窗体收集信息。数据表示图提供了一种 类似于Excel的电子表格，能够使数据库一目了然。另外， A ccess承诺创建自定义报表用于打印或输出数据库中的信息。 Access也提供了数据储备库，能够使用桌面数据库文件把数据 库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用 的数据库之一。如上所述，Access作为关系数据库开发具备 了许多优点，能够在一个数据包中同时拥有桌面数据库的便利 和关系数据库的强大功能。3.3、二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic来访咨询

11、数据库并对其进行各 种操作。Visual Basic、Access以及其他微软的软件产品差不 多上通过共用JET数据库引擎，从而给用户提供了丰富的数据 类型。DATA控件在数据库中的信息与将信息显示给用户看的 Visual Basic程序之间架起了一座桥梁。我们能够设置 DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省 情形下，DATA控件按照数据库中的一个或多个数据表建立一 个dynaset-type （动态集合）类型的记录集合。一个记录集合 是动态的也就意味着，当原先的数据表中的容改变了以后， 该 记录集合中的记录也会随之改变。DATA控件还提供了用来扫 瞄不同记录的各种跳

12、转按钮。将 DATA控件放置在窗体中之 后，我们还必须在该控件与要处理的数据库之间建立联系。第四章 Visual Basic 6.0编程语言概述Visual Basic应用程序差不多的构建块是用户所创 建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法）。开发人员能够最有效利用所创建的每一个对象。使用 应用程序具有可通用性、可扩展性和强有力的功能。Visual Basic应用由一系列对象组成，包括有函数、菜单、 结构和数据窗口、用户对象、用户事件等等，对象中又包含若 干控件如命令按钮、单行编辑器等这些对象和控件都可在许多 应用中重复使用。4.1创建菜单栏除此之外，VB6.0还有以下一

13、些重要功能。菜单是程序最 重要的特性之一，大多数程序都依靠一个定义良好的菜单使程 序易于使用和爱护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。您能够使用 Visual Basic的Applicaytion Wizard也能够使用Visual Basic的菜单编辑器建立菜单或者修改差不多存在的菜单、控件。其属性及对象如下：Align属性定义工具条在窗休中的位置。ToolTipText属性是字符串类型，定义控件的提示字符。Style属性定义按钮外观。ImageList属性定义与数据条对应的ImageList控件名，该 控件定义工具条按钮显示的图像。HotImangeList

14、属性设置一个ImageList控件名，该控件定 义按钮获得热点时显示的图像。DisabledlmageList属性定义工具条按钮无效时显示的图 像。4.2创建工具栏创建工具条要紧利用ImageList和Toolbar控件。创建时， 先将ImageList添加到窗体上，然后往其中添加一些图片，接 着Toolbar控件添加到窗体上，再往Toolbar中插入一些命令按 纽，为他们添加上相应图片即可。4.3建立关心信息专业水平的软件通常都带有联机关心功能。不管写出来的程序是要给大量的用户使用，依旧仅仅局限于公司内部有限的 使用者，我们都应该为用户提供详细的、易于明白得的联机关 心文档。微软的 Help

15、 Workshop4.0是一套独立于 Visual Ba sic的用来协助我们创建、运行于32位Windows操作系统下的 关心文件的工具。使用它能够为我们编写的应用程序生成一组 关心文件。4.4生成版本信息为了使程序显得更具有专业风格，第一能够在其中加入通 常的应用程序信息。这些信息包括公司名称、版本号、修订号 以及其他类似信息。Visual Basic承诺你使用APP对象来储 存这些信息，APP对象是一个预定义对象，不需要在程序中创 建它。APP对象的大多数属性被应用程序用来提供常规的信 息，通过使用这些APP提供的属性，能够在应用程序和用户 之间交流重要信息，在项目属性框中能够设置它的属

16、性。第五章使用Access2000实现关系型数据库5.1、数据库的概念数据库是一种储备数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库确实是信息集 合。运算机的数据库能够分为两类：非关系数据库（flat-file） 和关系数据库（relational）。关系数据库中包含了多个数据表 的信息，数据库含有各个不同部分的术语，象记录、域等。5.2、新建一个数据库创建任何一个数据库的第一步是认确实规划数据库，设计 必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为 是数据模型设计。1）标识需要的数据；2）收集被标识的字段到表中；3）标识主关键字字段；4）绘制一个简单的数

17、据图表；5）规范数据；6）标识指定字段的信息;7）创建物理表。5.3、修改已建的数据库案治理丄登录修查统预陆入改询计览模模模模模打块块L.J块J块J块d印1J数据库的修改分为：添加、编辑和删除记录。这三种操作 均可由Visual Basic创建的程序来完成，下面的章节将详细 描述实现的具体方法。第六章 系统总体设计按照设计方案，本系统的结构框图为（如下所示）： 本系统所实现的要紧功能为：能够进行文本操作；录入一个数据库项目；修改一个数据库项目；查找一个数据库信息；删除一个数据库信息；统计一个数据库信息；查询一个数据库信息；预览一个数据库信息；编辑一个数据库信息；打印一个数据库信息；打印预览一个

18、数据库信息；刷新一个数据库信息；取消一个数据库信息。按照实际数据操作流程，本城西数据的 ER图为（按照数 据流程勾画，下图为示意图）：档案数据据录入数据修改、查询刁数据打卬用户登录T档案的录入T档案的修改和查询T档案的预览和打印本系统所采纳的数据库结构：数据表：档案表、用户表。按照系统的需要，档案表采纳编号标题发文部门发文号内容发文日期.字段类型自动编号字符字符字符备注日期是否索引是否否否否否字段结构为:登录表结构为:编号用户名密码第七章分模块设计7.1、档案的系统爱护：为提升系统的安全性，防止非法用户进入本系统，本系统 设有用户登陆界面，并设置密码，合法用户能够在系统爱护里 面的用户修改里面

19、自行设置用户名和密码， 系统默认用户名为“admin”，密码为“ 1234”。系统的用户密码更换界面如下：用户名:密码:登录退岀Edit.frmDim db As ConnectionDim rs As RecordsetPrivate Sub Comma nd1_Click（）On Error GoTo erIf rs.State = adStateOpen Then rs.Close rs.Open 登录, db, 1, 3rs（用户名）=Text1.Textrs（密码）=Text2.Textrs.Updaters.CloseMsgBox 修改成功！ , vbOKOnly + vbExcl

20、amationUn load MeExit Suber:MsgBox 有错误产生！ , vbOKOnly + vbExclamationEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd SubPrivate Sub Form_Load()Text1.Text = logi n. userText2.Text = logi n.passwordSet db = New Connectiondb.CursorLocati on 二 adUseClie ntdb.Ope n PROVIDER二Microsoft .J et.OLEDB.3.51;Da

21、taSource二database.mdb;Set rs = New RecordsetEnd SubPrivate Sub Form_Unload(Cancel As Integer)If rs.State = adStateOpen Then rs.CloseSet rs = Nothi ngdb.CloseSet db = Noth ingEnd Sub7.2、档案的版本和系统信息About.frmOption Explicit注册表关键字安全选项Co nst READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Const KEY_SET_V

22、ALUE = &H2Const KEY_CREATE_SUB_KEY 二 &H4Const KEY_ENUMERATE_SUB_KE YS = &H8Const KEY_NOTIFY 二 &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_V ALUE + KEY_SET_VALUE + _KEY_CREATE_SUB_KE Y + KEY_ENUMERATE_SUB_KE YS + _KEY_NOTIF Y + KEY_CREATE_LINK + READ_CONTROL注册表关键字 ROOT类型Const HKE

23、Y_LOCAL_MACHINE = & H80000002Const ERROR_SUCCESS = 0独立32Const REG SZ = 1的空的终结字符串Const REG_DWORD = 4位数字Const gREGKE YSY SINFOLOC = SOFTWAREMicroso ftShared Tools Locati onCo nst gREGVALS YSINFOLOC = MSINFOConst gREGKE YSY SINFO = SOFTWAREMicrosoftSh ared ToolsMSINFOConst gREGVALS YSINFO = PATHPrivate

24、 Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpS ubKey As String, ByVal ulOptions As Long, ByVal samDesir ed As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi3 2 Alias RegQueryValueExA (ByVal hKey As Long, ByVal

25、 lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysl nfo_Click()Call StartSysInfoEnd SubPrivate Sub cmdOK_Click()Un load MeEnd S

26、ubPrivate Sub Form_Load()Me.Caption 二关于 ” & App.TitlelblVersion.Caption =版本& App.Major & . &App.Minor & . & App.RevisionlblTitle.Captio n = App.TitleMe.Width = 5820Me.Height = 4035End SubPublic Sub StartSysI nfo()On Error GoTo Sys In foErrDim rc As LongDim SysInfoPath As String试图从注册表中获得系统信息程序的路径及名称I

27、f GetKeyValue(HKEY_LOCAL_MACHINE, gREGK EYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then试图仅从注册表中获得系统信息程序的路径 ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gR EGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPat h) The n已知32位文件版本的有效位置If (Dir(SyslnfoPath & MSINFO32.EXE) )ThenSysInfoPath = SysInfoPath & MSINFO32.EXE错误-文

28、件不能被找到ElseGoTo SysI nfoErrEnd If错误-注册表相应条目不能被找到 ElseGoTo SysI nfoErrEnd IfCall Shell(SysInfoPath, vbNormalFocus)Exit SubSysl nfoErr:MsgBox 现在系统信息不可用, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyNa me As String, SubKeyRef As String, ByRef KeyVal As Strin g) As BooleanDim i As Long循

29、环计数器Dim rc As Long返回代码Dim hKey As Long打开的注册表关键字句柄Dim hDepth As LongIDim KeyValType As Long注册表关键字数据类型Dim tmpVal As String注册表关键字值的临时储备器Dim KeyValSize As Long注册表关键自变量的尺寸打开HKEY_LOCAL_MACHINE. 下的 RegKeyrc = RegOpe nKeyEx(KeyRoot, KeyName, 0, KEY_ ALL_ACCESS, hKey)打开注册表关键字If (rc ERROR_SUCCESS) Then GoTo G

30、etKeyE rror处理错误tmpVal = Stri ng$(1024, 0)分配变量空间KeyValSize = 1024标记变量尺寸检索注册表关键字的值rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyVa lSize)获得/创建关键字值If (rc ERROR_SUCCESS) Then GoTo GetKeyE rror处理错误If (Asc(Mid(tmpVal, KeyValSize, 1) = 0) ThenWin95外接程序空终结字符串.tmpVal = Left(tmpVal, KeyVal

31、Size - 1)Null被找到，从字符串中分离出来ElseWinNT没有空终结字符串 tmpVal = Left(tmpVal, KeyValSize)Null没有被找到，分离字符串End If决定转换的关键字的值类型Select Case KeyValType搜索数据类型Case REG_SZ字符串注册关键字数据类型KeyVal = tmpVal复制字符串的值Case REG_DWORD四字节的注册表关键字数据类型For i = Len(tmpVal) To 1 Step -1将每位进行转换KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)生成值字符。

32、By Char。NextKeyVal = Format$(&h + KeyVal)转换四字节的字符为字符串End SelectGetKeyValue = True返回成功rc = RegCloseKey(hKey)关闭注册表关键字Exit Function退出GetKeyError:错误发生后将其清除.KeyVal =设置返回值到空字符串GetKeyValue = False返回失败rc = RegCloseKey(hKey)关闭注册表关键字End Fun cti on7.3、档案的录入、编辑、删除、刷新本部分程序要紧是把车站的档案录入运算机数据库档案 表里，并提供编辑、删除等功能，能快捷、高

33、效地把用纸张记 录的档案内容用数字的形式储备在运算机里，适应现代化的办U .疋档楽录入余X人二的录入界面如下:Tvi公系统的需要,以对信息进行高效、快速的查询、修改。系统j-后承计2加十I-A丢丄立又不丰:*申畑3也瓯.:&她走.-田-酒一阵三白” I方*thiffi你歼滸带帀唏” 天可TT 换输iVTT.i古nT ：矩坯七换一斗扭frfC宜- 胱冃制Dac=r导且1 0K；网 -堀*丘卜忌不起菊几亠H奢豫彳海- 口山12OD=f-5-Z3frm档案Dim WithEvents adoPrimaryRS As RecordsetDim mbChangedByCode As BooleanDim

34、 mvBookMark As VariantDim mbEditFlag As BooleanDim mbAddNewFlag As BooleanDim mbDataChanged As BooleanPrivate Sub Form_Load()Dim db As ConnectionSet db = New Connectiondb.CursorLocati on 二 adUseClie ntdb.Ope n PROVIDER二Microsoft .J et.OLEDB.3.51;Data Source二database.mdb;Set adoPrimaryRS = New Record

35、set adoPrimaryRS.Open select标题发文部门，发文号，发 文日期，录入人，内容 from 档案, db, adOpenStatic, adLockOp timisticDim oText As TextBox绑定字段到窗体文本框For Each oText In Me.txtFieldsSet oText.DataSource = adoPrimaryRSNextmbDataCha nged = FalseEnd SubPrivate Sub Form_Resize()On Error Resume NextlblStatus.Width = Me.Width - 15

36、00cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340End SubPrivate Sub Form_Unload(Cancel As Integer)Scree n.MousePoi nter = vbDefaultEnd SubPrivate Sub adoPrimaryRS_MoveComplete(ByVal adReasc n As ADODB.EventReasonEnum, ByVal pError As ADODB. Error, adStatus As ADODB.EventStatus

37、Enum, ByVal pRecord set As ADODB.Recordset)显示记录位置IblStatus.Caption = Record: & CStr(adoPrimaryRS. AbsolutePositi on)End SubPrivate Sub adoPrimaryRS_WillCha ngeRecord(ByVal adR eason As ADODB.EventReasonEnum, ByVal cRecords As Lo ng, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Record

38、set)This is where you put validation codeThis eve nt gets called whe n the followi ng acti ons occ urDim bCancel As BooleanSelect Case adReas onCase adRs nAddNewadStatus = adStatusCa ncelCase adRs nCloseCase adRs nDeleteCase adRs nFirstCha ngeCase adRs nM oveCase adRs nRequeryCase adRs nRes ynchCase

39、 adRs nUn doAddNewCase adRs nUn doDeleteCase adRs nUn doUpdateCase adRs nUpdateEnd SelectIf bCancel Then adStatus = adStatusCancel End SubPrivate Sub cmdAdd_Click()On Error GoTo AddErrWith adoPrimaryRSIf Not (.BOF And .EOF) Then mvBookMark = .BookmarkEnd If.AddNewlblStatus.Caption 二Add record mbAddN

40、ewFlag = TrueSetButt ons FalseEnd WithExit SubAddErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click()On Error GoTo DeleteErrWith adoPrimaryRS.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click()This is only needed for mu

41、lti user appsOn Error GoTo RefreshErradoPrimaryRS.RequeryExit SubRefreshErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdEdit_Click()On Error GoTo EditErrIblStatus.Caption = Edit record mbEditFlag = True SetButt ons FalseExit SubEditErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdCa ncel_Click()On Er

42、ror Resume NextSetButt ons TruembEditFlag = FalsembAddNewFlag = False adoPrimaryRS.Ca ncelUpdate If mvBookMark 0 Then adoPrimaryRS.Bookmark = mvBookMark ElseadoPrimaryRS.MoveFirstEnd IfmbDataCha nged = FalseEnd SubadoPrimaryRS.UpdateBatch adAffectAllIf mbAddNewFlag ThenadoPrimaryRS.MoveLastmove to t

43、henew recordEnd IfmbEditFlag = FalsembAddNewFlag = FalseSetButt ons TruembDataCha nged = FalseExit SubUpdateErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click()Un load MePrivate Sub cmdFirst_Click()On Error GoTo GoFirstError adoPrimaryRS.MoveFirstmbDataCha nged = FalseExit SubGoFirstError:M

44、sgBox Err.DescriptionEnd SubPrivate Sub cmdLast_Click()On Error GoTo GoLastError adoPrimaryRS.MoveLastmbDataCha nged = FalseExit SubGoLastError:MsgBox Err.DescriptionPrivate Sub cmdNext_Click()On Error GoTo GoNextErrorIf Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveN extIf adoPrimaryRS.EOF And adoPrim

45、aryRS.RecordCount 0 ThenBeepmoved off the end so go backadoPrimaryRS.MoveLastEnd Ifshow the curre nt recordmbDataCha nged = FalseExit SubGoNextError:MsgBox Err.DescriptionEnd SubPrivate Sub cmdPrevious_Click()On Error GoTo GoPrevErrorIf Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePr eviousIf adoPrima

46、ryRS.BOF And adoPrimaryRS.RecordCount 0 ThenBeepmoved off the end so go backadoPrimaryRS.MoveFirstEnd Ifshow the curre nt recordmbDataCha nged = FalseExit SubGoPrevError:MsgBox Err.DescriptionEnd SubPrivate Sub SetButtons(bVal As Boolean)cmdAdd.Visible = bValcmdEdit.Visible = bValcmdUpdate.Visible =

47、 Not bValcmdCancel.Visible = Not bValcmdDelete.Visible = bValcmdClose.Visible = bValcmdRefresh.Visible = bValPUmNdXlEnabled = bVal档案管理档秦查询视圉系纸维护帮肋cmdFirst.E nabled = bValcmdPreviousE nabled = bValEndSP1234入本7.4档案的登陆和密码设计|本部分程序要紧是提升系统的安全性，以防止非 系统，幸免不必要的缺E法用户进2005-5-23onLog in.frm是否合法用户Public password

48、 As StringPublic user As StringDim db As ConnectionDim rs As RecordsetPrivate Sub Comma nd1_Click()If Trim(Text1.Text) = ThenMsgBox 请输入完整！ , vbOKOnly + vbExclamatiElseIf rs.State = adStateOpen Then rs.Closers.Open select * from 登录 where 用户名=& Textl.Text & ”, db, 1, 1If Not rs.EOF And Not rs.BOF Then

49、If rs(密码)=Text2.Text Thenuser = Text1.Textpassword = Text2.Textmai n.ShowUn load MeElseMsgBox 密码错误！ , vbOKOnly + vbExclamatio nEnd IfElseMsgBox 无此用户！ ”，vbOKOnly + vbExclama tio nEnd IfEnd IfEnd SubPrivate Sub Comma nd2_Click()EndEnd SubPrivate Sub Form_Activate()Textl.SetFocusEnd SubPrivate Sub Form

50、_Load()Me.Width = 8000Me.Height = 6000Set db = New Connectiondb.CursorLocati on 二 adUseClie ntdb.Ope n PROVIDER二Microsoft .J et.OLEDB.3.51;DataSource二database.mdb;Set rs = New RecordsetEnd SubPrivate Sub Form_Unload(Cancel As Integer)rs.CloseSet rs = Nothi ngdb.CloseSet db = Noth ingEnd SubPrivate S

51、ub Text1_GotFocus()Textl.SelStart = 0Textl.SelLe ngth = Len (Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.SetFocusEnd IfEnd SubPrivate Sub Text2_GotFocus()Text2.SelStart = 0Text2.SelLe ngth = Le n(Text2.Text)End SubPrivate Sub Text2_KeyPress(KeyAscii As

52、 Integer)If KeyAscii = 13 ThenComma nd1.SetFocusIForml- X裆案管理档案查询观图系统雉护帮助体统了系统的所有菜单等操纵功能档案的主界面如下：2006-5-23Mai n.frmPrivate Sub dacz_Click()query.ShowEnd SubPrivate Sub dalr_Click()frm 档案.ShowEnd SubPrivate Sub datj_Click()tle.ShowEnd SubPrivate Sub gua nyu _Click()frmAbout.ShowEnd SubPrivate Sub MDI

53、Form_Load()StatusBarl.Panels(1).Text二 DateMe.Wi ndowState = 2End SubPrivate Sub yn ghuxiugai_Click()edit.ShowEnd SubPrivate Sub zhua ngtai_Click()If zhuangtai.Checked Thenzhua ngtai.Checked = FalseStatusBar1.Visible = FalseElsezhua ngtai.Checked = TrueStatusBar1.Visible = TrueEnd IfEnd Sub7.6、档案的查询、

54、预览、打印功能本部分能够提供对所需文件的按不同条件的查询、预览、 打印等功能，利用了 VB访咨询数据库ADO对象的强大功能,Query.frmDimdbAsConn ecti onDimrsAsRecordsetPublictdataAs Stri ng科案首呼 n療查呦视图I眾魏趁护 帘肋匕，炉门乜羽鬥衆則吋A旦刷新W陽2005-5-23H | *1 Recofi 2St?功能能够实-日愕卜*Private Sub Command1_Click()On Error GoTo erIf rs.State二adStateOpe n Then rs.Closers.Open select * from 档案 where & Combol.Text &=